#include <perms.h>

                                                                //      1  ! Missing COMREG, IOCP, CONSOURCE, LPUT, CPUTIME, NCODE
                                                                //      2  
                                                                //      3  {%MAINEP ICL9CEZIMP
                                                                //      4  {%TRUSTEDPROGRAM
                                                                //      5  %BEGIN
#line 5 "regression-compile-tmp/nrimp10s-77.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      6  !%string(127)%fn ITOS(%integer v,p)
                                                                //      7  !  %integer vv,q,pos
                                                                //      8  !  %byteintegerarray store(0:127)
                                                                //      9  !  
                                                                //     10  !  vv = v;  vv = -vv %if vv > 0
                                                                //     11  !  pos = 127
                                                                //     12  !  %while vv <= -10 %cycle
                                                                //     13  !    q = vv//10
                                                                //     14  !    store(pos) = q*10-vv+'0';  pos = pos-1
                                                                //     15  !    vv = q
                                                                //     16  !  %repeat
                                                                //     17  !  store(pos) = '0'-vv
                                                                //     18  !  %if p <= 0 %start
                                                                //     19  !    p = 128+p
                                                                //     20  !  %else
                                                                //     21  !    p = 128-p
                                                                //     22  !    p = pos %if p > pos
                                                                //     23  !    p = p-1
                                                                //     24  !  %finish
                                                                //     25  !  pos = pos-1 %and store(pos) = '-' %if v < 0
                                                                //     26  !  %while pos > p %and pos > 1 %cycle
                                                                //     27  !    pos = pos-1;  store(pos) = ' '
                                                                //     28  !  %repeat
                                                                //     29  !  pos = pos-1;  store(pos) = 127-pos
                                                                //     30  !  %result = string(addr(store(pos)))
                                                                //     31  !%end
                                                                //     32  
                                                                //     33  !%integermap LONGINTEGER(%integer Addr)
                                                                //     34  !  %result == INTEGER(Addr)
                                                                //     35  !%end
                                                                //     36  !%routine pprofile
                                                                //     37  !%end
                                                                //     38  !%routine print ch(%integer I)
                                                                //     39  !  print symbol(I)
                                                                //     40  !%end
                                                                //     41  !%routine newpage
                                                                //     42  !  print ch(12)
                                                                //     43  !%end
                                                                //     44  !%integerfn IMOD(%integer I)
                                                                //     45  !  %result = |I|
                                                                //     46  !%end
                                                                //     47  !%realfn MOD(%real R)
                                                                //     48  !  %result = |R|
                                                                //     49  !%end
                                                                //     50  !%realfn FRACPT(%real r)
                                                                //     51  !  %result = r-INTPT(r)
                                                                //     52  !%end
                                                                //     53  %CONSTINTEGER RELEASE=10
                                                                //     54  %CONSTINTEGER YES=1,NO=0
                                                                //     55  %CONSTINTEGER USE IMP=YES
                                                                //     56  %CONSTINTEGER VMEB=NO
                                                                //     57  %CONSTSTRING(9) LADATE="28 Jan 81";       ! LAST ALTERED
#line 57 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(9)*/ LADATE = _imp_str_literal("28 Jan 81");
                                                                //     58  %INTEGER I, J, K
#line 58 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 58 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 58 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //     59  ! PRODUCED BY OLDPS FROM NRIMPPS8 ON 16/12/80
                                                                //     60  %CONSTBYTEINTEGERARRAY CLETT(0: 500)=   1,
#line 60 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char CLETT[501] = { 1, 43, 1, 45, 1, 40, 1, 41, 1, 44, 2, 201, 198, 6, 213, 206, 204, 197, 211, 211, 5, 215, 200, 201, 204, 197, 5, 213, 206, 212, 201, 204, 3, 198, 207, 210, 1, 61, 4, 210, 197, 193, 204, 7, 201, 206, 212, 197, 199, 197, 210, 8, 204, 207, 206, 199, 210, 197, 193, 204, 4, 204, 207, 206, 199, 11, 194, 217, 212, 197, 201, 206, 212, 197, 199, 197, 210, 6, 211, 212, 210, 201, 206, 199, 11, 200, 193, 204, 198, 201, 206, 212, 197, 199, 197, 210, 7, 210, 207, 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, 208, 8, 198, 213, 206, 195, 212, 201, 207, 206, 6, 210, 197, 195, 207, 210, 196, 4, 206, 193, 205, 197, 5, 193, 210, 210, 193, 217, 9, 193, 210, 210, 193, 217, 206, 193, 205, 197, 9, 207, 198, 208, 210, 207, 199, 210, 193, 205, 6, 207, 198, 198, 201, 204, 197, 6, 207, 198, 204, 201, 211, 212, 6, 198, 207, 210, 205, 193, 212, 4, 211, 208, 197, 195, 3, 206, 207, 212, 3, 193, 206, 196, 2, 207, 210, 1, 58, 6, 206, 207, 210, 205, 193, 204, 3, 207, 215, 206, 8, 197, 216, 212, 197, 210, 206, 193, 204, 9, 197, 216, 212, 210, 201, 206, 211, 201, 195, 8, 195, 207, 206, 211, 212, 193, 206, 212, 5, 195, 207, 206, 211, 212, 5, 197, 214, 197, 206, 212, 5, 211, 212, 193, 210, 212, 9, 212, 200, 197, 206, 211, 212, 193, 210, 212, 4, 212, 200, 197, 206, 9, 197, 204, 211, 197, 211, 212, 193, 210, 212, 4, 197, 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, 197, 205, 7, 196, 217, 206, 193, 205, 201, 195, 2, 42, 61, 1, 42, 4, 80, 85, 84, 95, 5, 67, 78, 79, 80, 95, 2, 204, 61, 1, 60, 1, 62, 4, 40, 196, 210, 43, 2, 196, 210, 1, 194, 3, 212, 207, 211, 3, 204, 206, 194, 3, 216, 206, 194, 2, 208, 195, 3, 195, 212, 194, 2, 45, 62, 6, 210, 197, 212, 213, 210, 206, 6, 210, 197, 211, 213, 204, 212, 7, 205, 207, 206, 201, 212, 207, 210, 4, 211, 212, 207, 208, 6, 211, 201, 199, 206, 193, 204, 4, 197, 216, 201, 212, 8, 195, 207, 206, 212, 201, 206, 213, 197, 6, 198, 201, 206, 201, 211, 200, 5, 195, 217, 195, 204, 197, 6, 210, 197, 208, 197, 193, 212, 3, 197, 206, 196, 5, 210, 197, 193, 204, 211, 5, 194, 197, 199, 201, 206, 2, 207, 206, 6, 211, 215, 201, 212, 195, 200, 4, 204, 201, 211, 212, 7, 211, 208, 197, 195, 201, 193, 204, 14, 212, 210, 213, 211, 212, 197, 196, 208, 210, 207, 199, 210, 193, 205, 6, 205, 193, 201, 206, 197, 208, 7, 195, 207, 206, 212, 210, 207, 204, 7, 201, 206, 195, 204, 213, 196, 197,  };
                                                                //     61    43,   1,  45,   1,  40,   1,  41,   1,  44,   2, 201, 198,   6, 213,
                                                                //     62   206, 204, 197, 211, 211,   5, 215, 200, 201, 204, 197,   5, 213, 206,
                                                                //     63   212, 201, 204,   3, 198, 207, 210,   1,  61,   4, 210, 197, 193, 204,
                                                                //     64     7, 201, 206, 212, 197, 199, 197, 210,   8, 204, 207, 206, 199, 210,
                                                                //     65   197, 193, 204,   4, 204, 207, 206, 199,  11, 194, 217, 212, 197, 201,
                                                                //     66   206, 212, 197, 199, 197, 210,   6, 211, 212, 210, 201, 206, 199,  11,
                                                                //     67   200, 193, 204, 198, 201, 206, 212, 197, 199, 197, 210,   7, 210, 207,
                                                                //     68   213, 212, 201, 206, 197,   2, 198, 206,   3, 205, 193, 208,   8, 198,
                                                                //     69   213, 206, 195, 212, 201, 207, 206,   6, 210, 197, 195, 207, 210, 196,
                                                                //     70     4, 206, 193, 205, 197,   5, 193, 210, 210, 193, 217,   9, 193, 210,
                                                                //     71   210, 193, 217, 206, 193, 205, 197,   9, 207, 198, 208, 210, 207, 199,
                                                                //     72   210, 193, 205,   6, 207, 198, 198, 201, 204, 197,   6, 207, 198, 204,
                                                                //     73   201, 211, 212,   6, 198, 207, 210, 205, 193, 212,   4, 211, 208, 197,
                                                                //     74   195,   3, 206, 207, 212,   3, 193, 206, 196,   2, 207, 210,   1,  58,
                                                                //     75     6, 206, 207, 210, 205, 193, 204,   3, 207, 215, 206,   8, 197, 216,
                                                                //     76   212, 197, 210, 206, 193, 204,   9, 197, 216, 212, 210, 201, 206, 211,
                                                                //     77   201, 195,   8, 195, 207, 206, 211, 212, 193, 206, 212,   5, 195, 207,
                                                                //     78   206, 211, 212,   5, 197, 214, 197, 206, 212,   5, 211, 212, 193, 210,
                                                                //     79   212,   9, 212, 200, 197, 206, 211, 212, 193, 210, 212,   4, 212, 200,
                                                                //     80   197, 206,   9, 197, 204, 211, 197, 211, 212, 193, 210, 212,   4, 197,
                                                                //     81   204, 211, 197,   1,  95,   6, 211, 217, 211, 212, 197, 205,   7, 196,
                                                                //     82   217, 206, 193, 205, 201, 195,   2,  42,  61,   1,  42,   4,  80,  85,
                                                                //     83    84,  95,   5,  67,  78,  79,  80,  95,   2, 204,  61,   1,  60,   1,
                                                                //     84    62,   4,  40, 196, 210,  43,   2, 196, 210,   1, 194,   3, 212, 207,
                                                                //     85   211,   3, 204, 206, 194,   3, 216, 206, 194,   2, 208, 195,   3, 195,
                                                                //     86   212, 194,   2,  45,  62,   6, 210, 197, 212, 213, 210, 206,   6, 210,
                                                                //     87   197, 211, 213, 204, 212,   7, 205, 207, 206, 201, 212, 207, 210,   4,
                                                                //     88   211, 212, 207, 208,   6, 211, 201, 199, 206, 193, 204,   4, 197, 216,
                                                                //     89   201, 212,   8, 195, 207, 206, 212, 201, 206, 213, 197,   6, 198, 201,
                                                                //     90   206, 201, 211, 200,   5, 195, 217, 195, 204, 197,   6, 210, 197, 208,
                                                                //     91   197, 193, 212,   3, 197, 206, 196,   5, 210, 197, 193, 204, 211,   5,
                                                                //     92   194, 197, 199, 201, 206,   2, 207, 206,   6, 211, 215, 201, 212, 195,
                                                                //     93   200,   4, 204, 201, 211, 212,   7, 211, 208, 197, 195, 201, 193, 204,
                                                                //     94    14, 212, 210, 213, 211, 212, 197, 196, 208, 210, 207, 199, 210, 193,
                                                                //     95   205,   6, 205, 193, 201, 206, 197, 208,   7, 195, 207, 206, 212, 210,
                                                                //     96   207, 204,   7, 201, 206, 195, 204, 213, 196, 197;
                                                                //     97  
                                                                //     98  
                                                                //     99  
                                                                //    100  
                                                                //    101  {%CONST}%ownINTEGERARRAY SYMBOL(1300: 2213)=  1307,
#line 101 "regression-compile-tmp/nrimp10s-77.imp"
static int SYMBOL[914] = { 1307, 1303, 0, 1305, 2, 1307, 1000, 1319, 1312, 1001, 1357, 1824, 1315, 1003, 1020, 1319, 4, 1336, 6, 1329, 1323, 1001, 1014, 1325, 1003, 1329, 4, 1329, 6, 1336, 1336, 1010, 1028, 1319, 1011, 1350, 1343, 1343, 1010, 1028, 1307, 1011, 1343, 1350, 1348, 1026, 1307, 999, 1350, 1000, 1357, 1355, 1026, 1319, 999, 1357, 1000, 1365, 1363, 4, 1336, 1365, 6, 1365, 1000, 1372, 1370, 8, 1336, 999, 1372, 1000, 1377, 1375, 10, 1377, 13, 1401, 1384, 20, 1010, 1542, 1562, 1011, 1390, 26, 1010, 1542, 1562, 1011, 1401, 32, 1010, 1001, 36, 1336, 8, 1336, 8, 1336, 1011, 1408, 1406, 8, 1001, 999, 1408, 1000, 1415, 1411, 38, 1413, 43, 1415, 51, 1430, 1418, 43, 1420, 38, 1423, 60, 1408, 1425, 65, 1428, 77, 1925, 1430, 84, 1437, 1433, 96, 1437, 1031, 1415, 1437, 1444, 1440, 104, 1442, 107, 1444, 111, 1466, 1450, 1415, 1476, 1001, 1401, 1456, 120, 1466, 127, 1001, 1401, 1462, 1430, 1471, 1001, 1401, 1483, 1466, 127, 1001, 1401, 1471, 1469, 132, 1471, 1000, 1476, 1474, 127, 1476, 1000, 1483, 1479, 138, 1481, 127, 1483, 1000, 1493, 1491, 4, 1010, 1444, 1011, 1493, 6, 1493, 1000, 1502, 1500, 1030, 1010, 1444, 1011, 999, 1502, 1000, 1513, 1506, 148, 1016, 1508, 158, 1511, 165, 1018, 1513, 1016, 1518, 1516, 172, 1518, 1000, 1542, 1526, 172, 1001, 4, 1876, 1869, 6, 1535, 179, 1010, 1001, 1818, 1011, 4, 1001, 6, 1542, 1010, 1615, 1011, 4, 1001, 6, 1556, 1548, 1336, 1032, 1336, 1556, 1553, 4, 1542, 1562, 6, 1556, 184, 1542, 1562, 1560, 1037, 1336, 1562, 1000, 1573, 1567, 188, 1542, 1573, 1571, 192, 1542, 1580, 1573, 1000, 1580, 1578, 188, 1542, 999, 1580, 1000, 1587, 1585, 192, 1542, 999, 1587, 1000, 1595, 1591, 1033, 1336, 1593, 195, 1595, 1000, 1601, 1599, 179, 1008, 1601, 1015, 1606, 1604, 60, 1606, 197, 1615, 1613, 8, 1336, 195, 1336, 1606, 1615, 1000, 1624, 1620, 1476, 1001, 1401, 1624, 132, 1513, 1624, 1630, 1630, 1001, 1401, 1832, 1630, 1636, 1634, 8, 1624, 1636, 1000, 1652, 1646, 1476, 1010, 1001, 1401, 1840, 1011, 1652, 1006, 1652, 132, 1513, 1001, 1832, 1701, 1663, 1661, 8, 1010, 1001, 1401, 1840, 1011, 1652, 1663, 1000, 1674, 1666, 204, 1668, 208, 1670, 217, 1672, 227, 1674, 236, 1701, 1678, 1415, 1636, 1689, 120, 1476, 1010, 1001, 1401, 1011, 4, 1001, 6, 1006, 1701, 120, 132, 1513, 1010, 1001, 1832, 1011, 4, 1001, 6, 1006, 1711, 1709, 36, 1028, 1319, 1350, 1722, 1711, 1711, 1000, 1722, 1720, 8, 1012, 1028, 1319, 1350, 1722, 999, 1722, 1000, 1731, 1729, 4, 1028, 1319, 1350, 6, 1731, 1000, 1738, 1736, 8, 1009, 999, 1738, 1000, 1743, 1741, 242, 1743, 1000, 1749, 1747, 8, 1336, 1749, 1000, 1762, 1760, 8, 1001, 1401, 4, 1336, 195, 1336, 6, 999, 1762, 1000, 1769, 1767, 26, 1542, 1562, 1769, 1000, 1782, 1772, 1019, 1774, 1006, 1779, 1372, 1542, 1562, 1006, 1782, 1377, 1006, 1795, 1786, 248, 1034, 1789, 254, 1034, 1795, 264, 1010, 2060, 1011, 1801, 1801, 1799, 188, 2060, 1801, 1000, 1818, 1805, 269, 1034, 1813, 279, 1372, 1010, 1542, 1562, 1011, 1782, 1816, 279, 2060, 1818, 1000, 1824, 1822, 284, 1001, 1824, 1000, 1832, 1830, 284, 1001, 1357, 1824, 1832, 1000, 1840, 1840, 4, 1336, 195, 1336, 1606, 6, 1848, 1846, 36, 1028, 1319, 1350, 1848, 1000, 1858, 1852, 286, 1013, 1854, 208, 1856, 293, 1858, 1000, 1869, 1867, 1001, 36, 1336, 8, 1336, 8, 1336, 1869, 1000, 1876, 1874, 8, 1876, 999, 1876, 1000, 1916, 1882, 1415, 1476, 1001, 1401, 1889, 1415, 132, 1001, 1401, 1832, 1916, 1895, 120, 1466, 127, 1001, 1401, 1904, 120, 1010, 1001, 1401, 1011, 4, 1001, 6, 1916, 120, 132, 1010, 1001, 1401, 1832, 1916, 1011, 4, 1001, 6, 1925, 1923, 8, 1001, 1401, 1832, 999, 1925, 1000, 1932, 1930, 4, 1009, 6, 1932, 1000, 1950, 1936, 301, 1001, 1939, 304, 1001, 1942, 306, 1002, 1945, 1022, 1950, 1950, 311, 1009, 8, 1009, 1964, 1954, 1023, 1964, 1959, 1024, 317, 2003, 2008, 1964, 1025, 1005, 8, 1987, 1987, 1969, 320, 1001, 322, 1971, 2036, 1976, 4, 2036, 2025, 6, 1980, 324, 2036, 6, 1985, 4, 329, 2025, 6, 1987, 332, 2003, 1992, 320, 1001, 322, 1994, 2036, 1999, 4, 329, 2025, 6, 2003, 324, 1005, 6, 2008, 2006, 329, 2008, 1005, 2016, 2014, 8, 1005, 8, 1005, 2016, 1000, 2025, 2020, 0, 1005, 2023, 2, 1005, 2025, 1000, 2031, 2029, 0, 332, 2031, 1000, 2036, 2034, 36, 2036, 1000, 2051, 2041, 2031, 1300, 1003, 2044, 1001, 2016, 2049, 4, 2051, 2016, 6, 2051, 334, 2060, 2054, 338, 2056, 342, 2058, 346, 2060, 349, 2093, 2069, 1010, 1001, 1357, 1824, 1011, 1587, 1795, 2073, 353, 1001, 1357, 2075, 356, 2079, 363, 1033, 1336, 2082, 370, 1795, 2084, 378, 2089, 383, 1738, 1009, 1743, 2091, 390, 2093, 395, 2214, 2100, 1027, 1010, 2060, 1011, 1769, 2102, 1007, 2110, 1372, 1010, 1542, 1562, 1011, 1782, 1006, 2115, 404, 1035, 1801, 1006, 2120, 411, 1029, 1858, 1006, 2125, 417, 1036, 1762, 1006, 2130, 1377, 411, 1029, 1006, 2136, 1031, 1008, 1415, 1615, 1006, 2140, 424, 1502, 1006, 2144, 120, 1518, 1006, 2153, 1010, 1848, 1430, 1011, 1595, 1001, 1483, 1006, 2156, 1663, 1674, 2160, 428, 1601, 1006, 2164, 434, 1015, 1006, 2173, 440, 1021, 1738, 1009, 1731, 248, 1034, 1006, 2184, 443, 1001, 1401, 4, 1336, 195, 1336, 6, 1749, 1006, 2188, 450, 1006, 1017, 2193, 455, 127, 1001, 1006, 2197, 304, 1932, 1006, 2200, 463, 1006, 2204, 478, 1001, 1006, 2208, 485, 1003, 1006, 2212, 493, 1003, 1038, 2214, 1006,  };
                                                                //    102    1303,     0,  1305,     2,  1307,  1000,  1319,  1312,  1001,  1357,
                                                                //    103    1824,  1315,  1003,  1020,  1319,     4,  1336,     6,  1329,  1323,
                                                                //    104    1001,  1014,  1325,  1003,  1329,     4,  1329,     6,  1336,  1336,
                                                                //    105    1010,  1028,  1319,  1011,  1350,  1343,  1343,  1010,  1028,  1307,
                                                                //    106    1011,  1343,  1350,  1348,  1026,  1307,   999,  1350,  1000,  1357,
                                                                //    107    1355,  1026,  1319,   999,  1357,  1000,  1365,  1363,     4,  1336,
                                                                //    108    1365,     6,  1365,  1000,  1372,  1370,     8,  1336,   999,  1372,
                                                                //    109    1000,  1377,  1375,    10,  1377,    13,  1401,  1384,    20,  1010,
                                                                //    110    1542,  1562,  1011,  1390,    26,  1010,  1542,  1562,  1011,  1401,
                                                                //    111      32,  1010,  1001,    36,  1336,     8,  1336,     8,  1336,  1011,
                                                                //    112    1408,  1406,     8,  1001,   999,  1408,  1000,  1415,  1411,    38,
                                                                //    113    1413,    43,  1415,    51,  1430,  1418,    43,  1420,    38,  1423,
                                                                //    114      60,  1408,  1425,    65,  1428,    77,  1925,  1430,    84,  1437,
                                                                //    115    1433,    96,  1437,  1031,  1415,  1437,  1444,  1440,   104,  1442,
                                                                //    116     107,  1444,   111,  1466,  1450,  1415,  1476,  1001,  1401,  1456,
                                                                //    117     120,  1466,   127,  1001,  1401,  1462,  1430,  1471,  1001,  1401,
                                                                //    118    1483,  1466,   127,  1001,  1401,  1471,  1469,   132,  1471,  1000,
                                                                //    119    1476,  1474,   127,  1476,  1000,  1483,  1479,   138,  1481,   127,
                                                                //    120    1483,  1000,  1493,  1491,     4,  1010,  1444,  1011,  1493,     6,
                                                                //    121    1493,  1000,  1502,  1500,  1030,  1010,  1444,  1011,   999,  1502,
                                                                //    122    1000,  1513,  1506,   148,  1016,  1508,   158,  1511,   165,  1018,
                                                                //    123    1513,  1016,  1518,  1516,   172,  1518,  1000,  1542,  1526,   172,
                                                                //    124    1001,     4,  1876,  1869,     6,  1535,   179,  1010,  1001,  1818,
                                                                //    125    1011,     4,  1001,     6,  1542,  1010,  1615,  1011,     4,  1001,
                                                                //    126       6,  1556,  1548,  1336,  1032,  1336,  1556,  1553,     4,  1542,
                                                                //    127    1562,     6,  1556,   184,  1542,  1562,  1560,  1037,  1336,  1562,
                                                                //    128    1000,  1573,  1567,   188,  1542,  1573,  1571,   192,  1542,  1580,
                                                                //    129    1573,  1000,  1580,  1578,   188,  1542,   999,  1580,  1000,  1587,
                                                                //    130    1585,   192,  1542,   999,  1587,  1000,  1595,  1591,  1033,  1336,
                                                                //    131    1593,   195,  1595,  1000,  1601,  1599,   179,  1008,  1601,  1015,
                                                                //    132    1606,  1604,    60,  1606,   197,  1615,  1613,     8,  1336,   195,
                                                                //    133    1336,  1606,  1615,  1000,  1624,  1620,  1476,  1001,  1401,  1624,
                                                                //    134     132,  1513,  1624,  1630,  1630,  1001,  1401,  1832,  1630,  1636,
                                                                //    135    1634,     8,  1624,  1636,  1000,  1652,  1646,  1476,  1010,  1001,
                                                                //    136    1401,  1840,  1011,  1652,  1006,  1652,   132,  1513,  1001,  1832,
                                                                //    137    1701,  1663,  1661,     8,  1010,  1001,  1401,  1840,  1011,  1652,
                                                                //    138    1663,  1000,  1674,  1666,   204,  1668,   208,  1670,   217,  1672,
                                                                //    139     227,  1674,   236,  1701,  1678,  1415,  1636,  1689,   120,  1476,
                                                                //    140    1010,  1001,  1401,  1011,     4,  1001,     6,  1006,  1701,   120,
                                                                //    141     132,  1513,  1010,  1001,  1832,  1011,     4,  1001,     6,  1006,
                                                                //    142    1711,  1709,    36,  1028,  1319,  1350,  1722,  1711,  1711,  1000,
                                                                //    143    1722,  1720,     8,  1012,  1028,  1319,  1350,  1722,   999,  1722,
                                                                //    144    1000,  1731,  1729,     4,  1028,  1319,  1350,     6,  1731,  1000,
                                                                //    145    1738,  1736,     8,  1009,   999,  1738,  1000,  1743,  1741,   242,
                                                                //    146    1743,  1000,  1749,  1747,     8,  1336,  1749,  1000,  1762,  1760,
                                                                //    147       8,  1001,  1401,     4,  1336,   195,  1336,     6,   999,  1762,
                                                                //    148    1000,  1769,  1767,    26,  1542,  1562,  1769,  1000,  1782,  1772,
                                                                //    149    1019,  1774,  1006,  1779,  1372,  1542,  1562,  1006,  1782,  1377,
                                                                //    150    1006,  1795,  1786,   248,  1034,  1789,   254,  1034,  1795,   264,
                                                                //    151    1010,  2060,  1011,  1801,  1801,  1799,   188,  2060,  1801,  1000,
                                                                //    152    1818,  1805,   269,  1034,  1813,   279,  1372,  1010,  1542,  1562,
                                                                //    153    1011,  1782,  1816,   279,  2060,  1818,  1000,  1824,  1822,   284,
                                                                //    154    1001,  1824,  1000,  1832,  1830,   284,  1001,  1357,  1824,  1832,
                                                                //    155    1000,  1840,  1840,     4,  1336,   195,  1336,  1606,     6,  1848,
                                                                //    156    1846,    36,  1028,  1319,  1350,  1848,  1000,  1858,  1852,   286,
                                                                //    157    1013,  1854,   208,  1856,   293,  1858,  1000,  1869,  1867,  1001,
                                                                //    158      36,  1336,     8,  1336,     8,  1336,  1869,  1000,  1876,  1874,
                                                                //    159       8,  1876,   999,  1876,  1000,  1916,  1882,  1415,  1476,  1001,
                                                                //    160    1401,  1889,  1415,   132,  1001,  1401,  1832,  1916,  1895,   120,
                                                                //    161    1466,   127,  1001,  1401,  1904,   120,  1010,  1001,  1401,  1011,
                                                                //    162       4,  1001,     6,  1916,   120,   132,  1010,  1001,  1401,  1832,
                                                                //    163    1916,  1011,     4,  1001,     6,  1925,  1923,     8,  1001,  1401,
                                                                //    164    1832,   999,  1925,  1000,  1932,  1930,     4,  1009,     6,  1932,
                                                                //    165    1000,  1950,  1936,   301,  1001,  1939,   304,  1001,  1942,   306,
                                                                //    166    1002,  1945,  1022,  1950,  1950,   311,  1009,     8,  1009,  1964,
                                                                //    167    1954,  1023,  1964,  1959,  1024,   317,  2003,  2008,  1964,  1025,
                                                                //    168    1005,     8,  1987,  1987,  1969,   320,  1001,   322,  1971,  2036,
                                                                //    169    1976,     4,  2036,  2025,     6,  1980,   324,  2036,     6,  1985,
                                                                //    170       4,   329,  2025,     6,  1987,   332,  2003,  1992,   320,  1001,
                                                                //    171     322,  1994,  2036,  1999,     4,   329,  2025,     6,  2003,   324,
                                                                //    172    1005,     6,  2008,  2006,   329,  2008,  1005,  2016,  2014,     8,
                                                                //    173    1005,     8,  1005,  2016,  1000,  2025,  2020,     0,  1005,  2023,
                                                                //    174       2,  1005,  2025,  1000,  2031,  2029,     0,   332,  2031,  1000,
                                                                //    175    2036,  2034,    36,  2036,  1000,  2051,  2041,  2031,  1300,  1003,
                                                                //    176    2044,  1001,  2016,  2049,     4,  2051,  2016,     6,  2051,   334,
                                                                //    177    2060,  2054,   338,  2056,   342,  2058,   346,  2060,   349,  2093,
                                                                //    178    2069,  1010,  1001,  1357,  1824,  1011,  1587,  1795,  2073,   353,
                                                                //    179    1001,  1357,  2075,   356,  2079,   363,  1033,  1336,  2082,   370,
                                                                //    180    1795,  2084,   378,  2089,   383,  1738,  1009,  1743,  2091,   390,
                                                                //    181    2093,   395,  2214,  2100,  1027,  1010,  2060,  1011,  1769,  2102,
                                                                //    182    1007,  2110,  1372,  1010,  1542,  1562,  1011,  1782,  1006,  2115,
                                                                //    183     404,  1035,  1801,  1006,  2120,   411,  1029,  1858,  1006,  2125,
                                                                //    184     417,  1036,  1762,  1006,  2130,  1377,   411,  1029,  1006,  2136,
                                                                //    185    1031,  1008,  1415,  1615,  1006,  2140,   424,  1502,  1006,  2144,
                                                                //    186     120,  1518,  1006,  2153,  1010,  1848,  1430,  1011,  1595,  1001,
                                                                //    187    1483,  1006,  2156,  1663,  1674,  2160,   428,  1601,  1006,  2164,
                                                                //    188     434,  1015,  1006,  2173,   440,  1021,  1738,  1009,  1731,   248,
                                                                //    189    1034,  1006,  2184,   443,  1001,  1401,     4,  1336,   195,  1336,
                                                                //    190       6,  1749,  1006,  2188,   450,  1006,  1017,  2193,   455,   127,
                                                                //    191    1001,  1006,  2197,   304,  1932,  1006,  2200,   463,  1006,  2204,
                                                                //    192     478,  1001,  1006,  2208,   485,  1003,  1006,  2212,   493,  1003,
                                                                //    193    1038,  2214,  1006;
                                                                //    194  
                                                                //    195  %CONSTINTEGER SS= 2093
                                                                //    196  
                                                                //    197  !
                                                                //    198  %CONST %BYTE %INTEGER %ARRAY I TO E TAB(0 : 127) =       {%C
#line 198 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char ITOETAB[128] = { 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 21, 64, 12, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 79, 127, 123, 91, 108, 80, 125, 77, 93, 92, 78, 107, 96, 75, 97, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 122, 94, 76, 126, 110, 111, 124, 193, 194, 195, 196, 197, 198, 199, 200, 201, 209, 210, 211, 212, 213, 214, 215, 216, 217, 226, 227, 228, 229, 230, 231, 232, 233, 74, 95, 90, 106, 109, 124, 129, 130, 131, 132, 133, 134, 135, 136, 137, 145, 146, 147, 148, 149, 150, 151, 152, 153, 162, 163, 164, 165, 166, 167, 168, 169, 192, 64, 208, 64, 64,  };
                                                                //    199  16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40,
                                                                //    200  16_40,16_40,16_15,16_40,16_0C,16_40,16_40,16_40,
                                                                //    201  16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40,
                                                                //    202  16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40,
                                                                //    203  16_40,16_4F,16_7F,16_7B,16_5B,16_6C,16_50,16_7D,
                                                                //    204  16_4D,16_5D,16_5C,16_4E,16_6B,16_60,16_4B,16_61,
                                                                //    205  16_F0,16_F1,16_F2,16_F3,16_F4,16_F5,16_F6,16_F7,
                                                                //    206  16_F8,16_F9,16_7A,16_5E,16_4C,16_7E,16_6E,16_6F,
                                                                //    207  16_7C,16_C1,16_C2,16_C3,16_C4,16_C5,16_C6,16_C7,
                                                                //    208  16_C8,16_C9,16_D1,16_D2,16_D3,16_D4,16_D5,16_D6,
                                                                //    209  16_D7,16_D8,16_D9,16_E2,16_E3,16_E4,16_E5,16_E6,
                                                                //    210  16_E7,16_E8,16_E9,16_4A,16_5F,16_5A,16_6A,16_6D,
                                                                //    211  16_7C,16_81,16_82,16_83,16_84,16_85,16_86,16_87,
                                                                //    212  16_88,16_89,16_91,16_92,16_93,16_94,16_95,16_96,
                                                                //    213  16_97,16_98,16_99,16_A2,16_A3,16_A4,16_A5,16_A6,
                                                                //    214  16_A7,16_A8,16_A9,16_C0,16_40,16_D0,16_40,16_40
                                                                //    215  %CONSTINTEGERARRAY OPC(0:126)=0,
#line 215 "regression-compile-tmp/nrimp10s-77.imp"
const int OPC[127] = { 0, 541737795, 541737300, 541737286, 0, 0, 0, 0, 542523724, 541284676, 1229865793, 1297040452, 1347568460, 538976330, 541740107, 1128352844, 541148226, 542327362, 1145389642, 541282370, 542329159, 541940034, 542526809, 1129335106, 541868884, 1297109842, 1129337682, 1398031188, 1163413844, 1163085144, 542070100, 541147988, 538989388, 1397510995, 1397510980, 1397510993, 538989396, 1398035784, 1398036558, 1229212741, 542329924, 542329922, 1413760323, 1229865812, 542331972, 542331970, 1398033486, 1398035270, 538976332, 541872979, 541872964, 541872977, 1381127235, 541873480, 1380011086, 541152070, 1279545932, 541869121, 1279546434, 541869122, 538987588, 538987586, 541871182, 541874254, 542393160, 1095648339, 542069331, 1313165651, 1163415617, 541150788, 538988370, 542000465, 538988619, 541675091, 1398100043, 541415504, 1129270593, 541344854, 1146242134, 1145914454, 1398228305, 1398230597, 541282387, 542397522, 541477972, 541672534, 1230128214, 1229800534, 541939276, 538987862, 1128812374, 541282125, 541477208, 542262358, 1381123158, 1380210244, 542458180, 542462786, 1431458626, 542458704, 542462792, 542265172, 542328915, 542328922, 541344068, 541348674, 1146245954, 541344592, 541348680, 541347161, 1145919812, 1128417614, 541671748, 541676354, 1230132034, 541672272, 541676360, 541674841, 1229805892, 1128547651, 542261572, 542266178, 1381126978, 542262096, 542266179, 542264665, 1380800836,  };
                                                                //    216  M' JCC',M' JAT',M' JAF',0(4),
                                                                //    217  M' VAL',M' CYD',M'INCA',M'MODD',M'PRCL',M'   J',M' JLK',M'CALL',
                                                                //    218  M' ADB',M' SBB',M'DEBJ',M' CPB',M' SIG',M' MYB',M' VMY',M'CPIB',
                                                                //    219  M' LCT',M'MPSR',M'CPSR',M'STCT',M'EXIT',M'ESEX',M' OUT',M' ACT',
                                                                //    220  M'  SL',M'SLSS',M'SLSD',M'SLSQ',M'  ST',M'STUH',M'STXN',M'IDLE',
                                                                //    221  M' SLD',M' SLB',M'TDEC',M'INCT',M' STD',M' STB',M'STLN',M'STSF',
                                                                //    222  M'   L',M' LSS',M' LSD',M' LSQ',M'RRTC',M' LUH',M'RALN',M' ASF',
                                                                //    223  M'LDRL',M' LDA',M'LDTB',M' LDB',M'  LD',M'  LB',M' LLN',M' LXN',
                                                                //    224  M' TCH',M'ANDS',M' ORS',M'NEQS',M'EXPA',M' AND',M'  OR',M' NEQ',
                                                                //    225  M'  PK',M' INS',M'SUPK',M' EXP',M'COMA',M' DDV',M'DRDV',M'DMDV',
                                                                //    226  M'SWEQ',M'SWNE',M' CPS',M' TTR',M' FLT',M' IDV',M'IRDV',M'IMDV',
                                                                //    227  M' MVL',M'  MV',M'CHOV',M' COM',M' FIX',M' RDV',M'RRDV',M'RDVD',
                                                                //    228  M' UAD',M' USB',M'URSB',M' UCP',M' USH',M' ROT',M' SHS',M' SHZ',
                                                                //    229  M' DAD',M' DSB',M'DRSB',M' DCP',M' DSH',M' DMY',M'DMYD',M'CBIN',
                                                                //    230  M' IAD',M' ISB',M'IRSB',M' ICP',M' ISH',M' IMY',M'IMYD',M'CDEC',
                                                                //    231  M' RAD',M' RSB',M'RRSB',M' RCP',M' RSC',M' RMY',M'RMYD';
                                                                //    232  %CONSTBYTEINTEGERARRAY ONE CASE(0 : 127) =   {%C
#line 232 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char ONECASE[128] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123, 124, 125, 126, 127,  };
                                                                //    233         0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,
                                                                //    234        16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
                                                                //    235        32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
                                                                //    236        48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
                                                                //    237        64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
                                                                //    238        80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
                                                                //    239        96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
                                                                //    240        80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,127;
                                                                //    241  %CONSTINTEGERARRAY TSNAME (0:62)=16_1000(8),
#line 241 "regression-compile-tmp/nrimp10s-77.imp"
const int TSNAME[63] = { 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4097, 4096, 4096, 4096, 4096, 4096, 4097, 4194, 4097, 4097, 4194, 4096, 4096, 82, 81, 98, 4194, 4194, 4194, 4194, 4194, 4194, 4194, 4096, 49, 81, 4194, 4194, 49, 4096, 81, 98, 4096, 4096, 53, 4096, 4149, 49, 53, 4149, 51, 0, 4096, 49, 82, 81, 97, 114, 97, 114, 81, 98, 4177, 65, 4096,  };
                                                                //    242                 16_1001,16_1000(5),16_1001,16_1062,16_1001(2),16_1062,
                                                                //    243                 16_1000(2),16_52,16_51,16_62,16_1062(7),
                                                                //    244                 16_1000,16_31,16_51,16_1062(2),16_31,16_1000,
                                                                //    245                  16_51,16_62,16_1000(2),16_35,16_1000,16_1035,
                                                                //    246                  16_31,16_35,16_1035,16_33,0,16_1000,16_31,16_52,16_51,
                                                                //    247                  16_61,16_72,16_61,16_72,16_51,16_62,16_1051,16_41,
                                                                //    248                 16_1000;
                                                                //    249  !
                                                                //    250  %OWNINTEGERARRAY FIXED GLA(0:11)=0,
#line 250 "regression-compile-tmp/nrimp10s-77.imp"
static int FIXEDGLA[12] = { 0, 1342177280, 0, 0, (-1), 0, 0, 0, 0, 0, 0, 0,  };
                                                                //    251                 16_50000000,0(2),-1,0,0(6);
                                                                //    252  %CONSTBYTEINTEGERARRAY BYTES(0:7)=0(3),1,2,4,8,16;
#line 252 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char BYTES[8] = { 0, 0, 0, 1, 2, 4, 8, 16,  };
                                                                //    253  %CONSTBYTEINTEGERARRAY TRTAB(0:255)=0(48),
#line 253 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char TRTAB[256] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, [123 ... 255] = 0 };
                                                                //    254                      1(10),0(7),2(26),0(6),2(26),0(5),0(128)
                                                                //    255  %CONSTINTEGER MAXLEVELS=31,CONCOP=13,FIXEDGLALEN=48
                                                                //    256  %CONSTINTEGER JOBBERBIT=16_40000000;    ! SET IN JOBBER MODE
                                                                //    257  %CONSTINTEGER CEBIT=1;                  ! SET IN COMPILER ENVIRONMENT
                                                                //    258  %CONSTINTEGER MAXDICT=16_100;           ! SET FOR MAX OF EVERYTHING
                                                                //    259  !
                                                                //    260  ! THE PRINCIPAL OPCODES ARE HERE DEFINED AS THEIR MNEMONICS(AMENDED)
                                                                //    261  !
                                                                //    262  %CONSTINTEGER LB=16_7A,SLB=16_52,STB=16_5A,ADB=16_20,CPB=16_26, {%C
                                                                //    263                MYB=16_2A,SBB=16_22,CPIB=16_2E,OUT=16_3C,CPSR=16_34
                                                                //    264  %CONSTINTEGER LD=16_78,LDA=16_72,INCA=16_14,STD=16_58,LDB=16_76, {%C
                                                                //    265                LDTB=16_74,LDRL=16_70,CYD=16_12,MODD=16_16,SLD=16_50
                                                                //    266  %CONSTINTEGER STLN=16_5C,ASF=16_6E,ST=16_48,RALN=16_6C,LXN=16_7E,{%C
                                                                //    267                LLN=16_7C,LSS=16_62,SLSS=16_42,MPSR=16_32,STSF=16_5E,{%C
                                                                //    268                LUH=16_6A,STUH=16_4A,LSD=16_64,SLSD=16_44,PRCL=16_18, {%C
                                                                //    269                LSQ=16_66,SLSQ=16_46,STXN=16_4C,LCT=16_30,STCT=16_36
                                                                //    270  %CONSTINTEGER JUNC=16_1A,JLK=16_1C,CALL=16_1E,EXIT=16_38,JCC=2, {%C
                                                                //    271                JAT=4,JAF=6,DEBJ=16_24
                                                                //    272  %CONSTINTEGER IAD=16_E0,ICP=16_E6,USH=16_C8,ISB=16_E2,IRSB=16_E4,{%C
                                                                //    273                OR=16_8C,UCP=16_C6,IMY=16_EA,IMDV=16_AE,AND=16_8A, {%C
                                                                //    274                ISH=16_E8,IMYD=16_EC,IDV=16_AA
                                                                //    275  %CONSTINTEGER RAD=16_F0,RSB=16_F2,RRSB=16_F4,FLT=16_A8,RRDV=16_BC, {%C
                                                                //    276                RSC=16_F8,FIX=16_B8,RDV=16_BA,RDDV=16_BE,RMYD=16_FC, {%C
                                                                //    277                RMY=16_FA
                                                                //    278  !
                                                                //    279  %CONSTINTEGER MVL=16_B0,MV=16_B2,SWEQ=16_A0,SWNE=16_A2,CPS=16_A4
                                                                //    280  !
                                                                //    281  ! DEFINE SOME MNEMONICS FOR THE VISIBLE REGISTERS (XCEPT LNB)
                                                                //    282  !
                                                                //    283  %CONSTINTEGER ACCR=0,DR=1,LNB=2,XNB=3,PC=4,CTB=5,TOS=6,BREG=7
                                                                //    284  %CONSTBYTEINTEGERARRAY LDCODE(0:7)=0,16_78,16_7C,16_7E,0,48,0,16_7A;
#line 284 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char LDCODE[8] = { 0, 120, 124, 126, 0, 48, 0, 122,  };
                                                                //    285  !
                                                                //    286  %CONSTSTRING(8)MDEP="S#NDIAG"
#line 286 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(8)*/ MDEP = _imp_str_literal("S#NDIAG");
                                                                //    287  %CONSTSTRING(8)IOCPEP="S#IOCP";     ! EP FOR IOCP
#line 287 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(8)*/ IOCPEP = _imp_str_literal("S#IOCP");
                                                                //    288  %CONSTSTRING(11)AUXSTEP="ICL9CEAUXST";! DATA REF FOR INDIRECT AUX ST
#line 288 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(11)*/ AUXSTEP = _imp_str_literal("ICL9CEAUXST");
                                                                //    289  %CONSTINTEGER SNPT=16_1006;         ! SPECIALNAME PTYPE
                                                                //    290  %CONSTINTEGER COMMALT=2,ENDALT=9,UNASSPAT=16_81818181,DECALT=8
                                                                //    291  !
                                                                //    292  %INTEGER DICTBASE, CONSTPTR, CONSTBTM, DFHEAD, CONSTHOLE,  WKFILEAD, {%C
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int DICTBASE;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTPTR;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTBTM;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int DFHEAD;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTHOLE;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int WKFILEAD;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int WKFILEK;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int DUMMYFORMAT;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int P1SIZE;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int LEVELINF;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int IOCPDISP;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int PARMBITS1;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int PARMBITS2;
#line 292 "regression-compile-tmp/nrimp10s-77.imp"
int PARMLET;
                                                                //    293           WKFILEK, DUMMYFORMAT, P1SIZE, LEVELINF, IOCPDISP, PARMBITS1, {%C
                                                                //    294           PARMBITS2,PARMLET
                                                                //    295  !
                                                                //    296  %INTEGER ASL, NNAMES, ARSIZE, CABUF, PPCURR, CONSTLIMIT, OLDLINE, {%C
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int ASL;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int NNAMES;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int ARSIZE;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int CABUF;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int PPCURR;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTLIMIT;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int OLDLINE;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int LINE;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int LENGTH;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int NEXTP;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int SNUM;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int RLEVEL;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int NMAX;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int USTPTR;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int PLABEL;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int LEVEL;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int CA;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int LASTNAME;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int CDCOUNT;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int ASLCURBTM;
#line 296 "regression-compile-tmp/nrimp10s-77.imp"
int PARMDYNAMIC;
                                                                //    297           LINE, LENGTH, NEXTP, SNUM, RLEVEL, NMAX, USTPTR, PLABEL,{%C
                                                                //    298           LEVEL, CA, LASTNAME, CDCOUNT, ASL CUR BTM, PARMDYNAMIC
                                                                //    299  !
                                                                //    300  %INTEGER FAULTY, HIT, INHCODE, IMPS, TTOPUT, LIST, PARMDIAG, {%C
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int FAULTY;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int HIT;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int INHCODE;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int IMPS;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int TTOPUT;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int LIST;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMDIAG;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int WARNFLAG;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMTRACE;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMLINE;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMOPT;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int CTYPE;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int DCOMP;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int CPRMODE;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMCHK;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMARR;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int ALLLONG;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMDBUG;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int COMPILER;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int LASTINST;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int SMAP;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int STACK;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int AUXST;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int PARMY;
#line 300 "regression-compile-tmp/nrimp10s-77.imp"
int BFFLAG;
                                                                //    301              WARNFLAG, PARMTRACE, PARMLINE, PARMOPT, CTYPE, DCOMP, {%C
                                                                //    302             CPRMODE, PARMCHK, PARMARR, ALLLONG, PARMDBUG,{%C
                                                                //    303              COMPILER, LAST INST, SMAP, STACK, AUXST, PARMY, BFFLAG
                                                                //    304  !
                                                                //    305  %INTEGER RBASE, N, FREE FORMAT, PARMPROF, EXITLAB, CONTLAB,  {%C
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int RBASE;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int N;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FREEFORMAT;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int PARMPROF;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int EXITLAB;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int CONTLAB;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int R;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int S;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int NEST;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int LDPTR;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int GLACA;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int GLACABUF;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int GLACURR;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int CREFHEAD;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int SSTL;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int QMAX;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int STMTS;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int LASTAT;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FILEADDR;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FILEPTR;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FILEEND;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int FILESIZE;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int LASTEND;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int BIMSTR;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int STLIMIT;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int STRLINK;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int RECTB;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int ASLWARN;
#line 305 "regression-compile-tmp/nrimp10s-77.imp"
int IHEAD;
                                                                //    306           Q, R, S, NEST, FNAME, LDPTR, GLACA, GLACABUF, {%C
                                                                //    307           GLACURR, CREFHEAD, SSTL, QMAX, STMTS, LASTAT, {%C
                                                                //    308           FILE ADDR, FILE PTR, FILE END, FILE SIZE, LASTEND, {%C
                                                                //    309           BIMSTR,STLIMIT,STRLINK,RECTB,ASL WARN,IHEAD
                                                                //    310  !
                                                                //    311  %INTEGER MAX ULAB, SFLABEL
#line 311 "regression-compile-tmp/nrimp10s-77.imp"
int MAXULAB;
#line 311 "regression-compile-tmp/nrimp10s-77.imp"
int SFLABEL;
                                                                //    312  %LONGREAL CVALUE, IMAX, CTIME
#line 312 "regression-compile-tmp/nrimp10s-77.imp"
double CVALUE;
#line 312 "regression-compile-tmp/nrimp10s-77.imp"
double IMAX;
#line 312 "regression-compile-tmp/nrimp10s-77.imp"
double CTIME;
                                                                //    313  %STRING(31)MAINEP
#line 313 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(31)*/ MAINEP;
                                                                //    314  %RECORDFORMAT LISTF(%INTEGER S1,S2,S3,LINK)
#line 314 "regression-compile-tmp/nrimp10s-77.imp"
typedef struct LISTF LISTF;
struct LISTF {
  int S1;
  int S2;
  int S3;
  int LINK;
};
                                                                //    315  %INTEGER LOGEPDISP,EXPEPDISP
#line 315 "regression-compile-tmp/nrimp10s-77.imp"
int LOGEPDISP;
#line 315 "regression-compile-tmp/nrimp10s-77.imp"
int EXPEPDISP;
                                                                //    316  !
                                                                //    317  %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N)
#line 317 "regression-compile-tmp/nrimp10s-77.imp"
extern int /*map*/*comreg( int N );
                                                                //    318  %BEGIN
#line 318 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_1_LEVEL_1_(void) {
                                                                //    319        FILE ADDR=COMREG(46);          ! SOURCE FILE IF CLEAN
#line 319 "regression-compile-tmp/nrimp10s-77.imp"
FILEADDR = *comreg(46);
                                                                //    320        PARMBITS1=COMREG(27)
#line 320 "regression-compile-tmp/nrimp10s-77.imp"
PARMBITS1 = *comreg(27);
                                                                //    321        PARMBITS2=COMREG(28)
#line 321 "regression-compile-tmp/nrimp10s-77.imp"
PARMBITS2 = *comreg(28);
                                                                //    322        WKFILEAD=COMREG(14)
#line 322 "regression-compile-tmp/nrimp10s-77.imp"
WKFILEAD = *comreg(14);
                                                                //    323        {WKFILEK=INTEGER(WKFILEAD+8)>>10
                                                                //    324        wkfilek = 128
#line 324 "regression-compile-tmp/nrimp10s-77.imp"
WKFILEK = 128;
                                                                //    325        %IF FILE ADDR<=0 %THEN FILESIZE=64000 %AND FILE ADDR=0 %ELSESTART
#line 325 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILEADDR) > (0))) goto L_0002;
#line 325 "regression-compile-tmp/nrimp10s-77.imp"
FILESIZE = 64000;
#line 325 "regression-compile-tmp/nrimp10s-77.imp"
FILEADDR = 0;
#line 325 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0003;
#line 325 "regression-compile-tmp/nrimp10s-77.imp"
L_0002:;
                                                                //    326           FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4)
#line 326 "regression-compile-tmp/nrimp10s-77.imp"
FILEPTR = (((int)(FILEADDR)) + (*_imp_INTEGER((((int)(FILEADDR)) + (4)))));
                                                                //    327           FILE END=FILE ADDR+INTEGER(FILE ADDR)
#line 327 "regression-compile-tmp/nrimp10s-77.imp"
FILEEND = (((int)(FILEADDR)) + (*_imp_INTEGER(FILEADDR)));
                                                                //    328           FILE SIZE=INTEGER(FILE ADDR)
#line 328 "regression-compile-tmp/nrimp10s-77.imp"
FILESIZE = *_imp_INTEGER(FILEADDR);
                                                                //    329        %FINISH
#line 329 "regression-compile-tmp/nrimp10s-77.imp"
L_0003:;
                                                                //    330        NNAMES=255
#line 330 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 255;
                                                                //    331        %IF FILESIZE>10000 %THEN NNAMES=511
#line 331 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILESIZE) <= (10000))) goto L_0004;
#line 331 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 511;
#line 331 "regression-compile-tmp/nrimp10s-77.imp"
L_0004:;
                                                                //    332        %IF PARMBITS1&JOBBER BIT=0 %START
#line 332 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PARMBITS1) & (1073741824))) != (0))) goto L_0005;
                                                                //    333           %IF FILESIZE>32000 %THEN NNAMES=1023
#line 333 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILESIZE) <= (32000))) goto L_0006;
#line 333 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 1023;
#line 333 "regression-compile-tmp/nrimp10s-77.imp"
L_0006:;
                                                                //    334           %IF FILESIZE>256*1024 %OR PARMBITS2&MAXDICT#0 %OR WKFILEK>512 %THEN NNAMES=2047
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILESIZE) > ((((int)(256)) * (1024))))) goto L_0007;
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PARMBITS2) & (256))) != (0))) goto L_0007;
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
if (((WKFILEK) <= (512))) goto L_0008;
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
L_0007:;
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 2047;
#line 334 "regression-compile-tmp/nrimp10s-77.imp"
L_0008:;
                                                                //    335        %FINISH
#line 335 "regression-compile-tmp/nrimp10s-77.imp"
L_0005:;
                                                                //    336        ASL=3*NNAMES
#line 336 "regression-compile-tmp/nrimp10s-77.imp"
ASL = (((int)(3)) * (NNAMES));
                                                                //    337        ASL=4095 %IF ASL>4095 %AND PARMBITS2&MAXDICT=0;! STAY WITHIN 128K AUXSTACK
#line 337 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASL) <= (4095))) goto L_0009;
#line 337 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PARMBITS2) & (256))) != (0))) goto L_0009;
#line 337 "regression-compile-tmp/nrimp10s-77.imp"
ASL = 4095;
#line 337 "regression-compile-tmp/nrimp10s-77.imp"
L_0009:;
                                                                //    338        ARSIZE=WKFILEK*768-300
#line 338 "regression-compile-tmp/nrimp10s-77.imp"
ARSIZE = (((int)((((int)(WKFILEK)) * (768)))) - (300));
                                                                //    339  {%END  ... extra block level enables dynamic array bound declarations ...
                                                                //    340  {%BYTEINTEGERARRAYFORMAT AF(0:ARSIZE)
                                                                //    341  {%BYTEINTEGERARRAYNAME A
                                                                //    342  %byteintegerarray A(0:WKFILEK*1024)
#line 342 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char A[(((unsigned char)((((int)(WKFILEK)) * (1024)))) + (1))];
                                                                //    343  %RECORD(LISTF)%ARRAY ASLIST(0:ASL){(LISTF)
#line 343 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF ASLIST[((ASL) + ((int)(1)))];
                                                                //    344  %INTEGERARRAY WORD, TAGS(0:NNAMES)
#line 344 "regression-compile-tmp/nrimp10s-77.imp"
int WORD[((NNAMES) + ((int)(1)))];
#line 344 "regression-compile-tmp/nrimp10s-77.imp"
int TAGS[((NNAMES) + ((int)(1)))];
                                                                //    345  %INTEGERARRAY DVHEADS(0:12)
#line 345 "regression-compile-tmp/nrimp10s-77.imp"
int DVHEADS[13];
                                                                //    346  %INTEGERFNSPEC FROMAR4(%INTEGER PTR)
#line 346 "regression-compile-tmp/nrimp10s-77.imp"
auto int FROMAR4( int PTR );
                                                                //    347  %INTEGERFNSPEC FROMAR2(%INTEGER PTR)
#line 347 "regression-compile-tmp/nrimp10s-77.imp"
auto int FROMAR2( int PTR );
                                                                //    348  %ROUTINESPEC TOAR8(%INTEGER PTR, %LONGREAL VALUE)
#line 348 "regression-compile-tmp/nrimp10s-77.imp"
auto void TOAR8( int PTR, double VALUE );
                                                                //    349  %ROUTINESPEC TOAR4(%INTEGER PTR, VALUE)
#line 349 "regression-compile-tmp/nrimp10s-77.imp"
auto void TOAR4( int PTR, int VALUE );
                                                                //    350  %ROUTINESPEC TOAR2(%INTEGER PTR,VALUE)
#line 350 "regression-compile-tmp/nrimp10s-77.imp"
auto void TOAR2( int PTR, int VALUE );
                                                                //    351  %ROUTINESPEC WARN(%INTEGER N,V)
#line 351 "regression-compile-tmp/nrimp10s-77.imp"
auto void WARN( int N, int V );
                                                                //    352  %ROUTINESPEC FAULT2(%INTEGER N,VAL,IDEN)
#line 352 "regression-compile-tmp/nrimp10s-77.imp"
auto void FAULT2( int N, int VAL, int IDEN );
                                                                //    353  %ROUTINESPEC FAULT(%INTEGER N, VALUE)
#line 353 "regression-compile-tmp/nrimp10s-77.imp"
auto void FAULT( int N, int VALUE );
                                                                //    354  %STRING(255)%FNSPEC PRINTNAME(%INTEGER N)
#line 354 "regression-compile-tmp/nrimp10s-77.imp"
auto _imp_string /*%string(255)*/ PRINTNAME( int N );
                                                                //    355  %INTEGERFNSPEC MORE SPACE
#line 355 "regression-compile-tmp/nrimp10s-77.imp"
auto int MORESPACE( void );
                                                                //    356  !%INTEGERFNSPEC NEWCELL
                                                                //    357  %ROUTINESPEC INSERTATEND(%INTEGERNAME S, %INTEGER A, B, C)
#line 357 "regression-compile-tmp/nrimp10s-77.imp"
auto void INSERTATEND( int /*name*/*S, int A, int B, int C );
                                                                //    358  %ROUTINESPEC FROM12(%INTEGER CELL, %INTEGERNAME S1, S2)
#line 358 "regression-compile-tmp/nrimp10s-77.imp"
auto void FROM12( int CELL, int /*name*/*S1, int /*name*/*S2 );
                                                                //    359  %ROUTINESPEC FROM123(%INTEGER CELL, %INTEGERNAME S1, S2, S3)
#line 359 "regression-compile-tmp/nrimp10s-77.imp"
auto void FROM123( int CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 );
                                                                //    360  %ROUTINESPEC POP(%INTEGERNAME C, P, Q, R)
#line 360 "regression-compile-tmp/nrimp10s-77.imp"
auto void POP( int /*name*/*C, int /*name*/*P, int /*name*/*Q, int /*name*/*R );
                                                                //    361  %ROUTINESPEC PUSH(%INTEGERNAME C, %INTEGER S1, S2, S3)
#line 361 "regression-compile-tmp/nrimp10s-77.imp"
auto void PUSH( int /*name*/*C, int S1, int S2, int S3 );
                                                                //    362  %INTEGERFNSPEC FIND(%INTEGER LAB, LIST)
#line 362 "regression-compile-tmp/nrimp10s-77.imp"
auto int FIND( int LAB, int LIST );
                                                                //    363  %ROUTINESPEC MLINK(%INTEGERNAME CELL)
#line 363 "regression-compile-tmp/nrimp10s-77.imp"
auto void MLINK( int /*name*/*CELL );
                                                                //    364  %ROUTINESPEC REPLACE1(%INTEGER CELL, S1)
#line 364 "regression-compile-tmp/nrimp10s-77.imp"
auto void REPLACE1( int CELL, int S1 );
                                                                //    365  %ROUTINESPEC REPLACE2(%INTEGER CELL, S2)
#line 365 "regression-compile-tmp/nrimp10s-77.imp"
auto void REPLACE2( int CELL, int S2 );
                                                                //    366  %ROUTINESPEC REPLACE3(%INTEGER CELL,S3)
#line 366 "regression-compile-tmp/nrimp10s-77.imp"
auto void REPLACE3( int CELL, int S3 );
                                                                //    367  %ROUTINESPEC REPLACE123(%INTEGER CELL,A1,A2,S3)
#line 367 "regression-compile-tmp/nrimp10s-77.imp"
auto void REPLACE123( int CELL, int A1, int A2, int S3 );
                                                                //    368  %INTEGERFNSPEC FROM2(%INTEGER CELL)
#line 368 "regression-compile-tmp/nrimp10s-77.imp"
auto int FROM2( int CELL );
                                                                //    369  %INTEGERFNSPEC FROM1(%INTEGER CELL)
#line 369 "regression-compile-tmp/nrimp10s-77.imp"
auto int FROM1( int CELL );
                                                                //    370  %INTEGERFNSPEC FROM3(%INTEGER CELL)
#line 370 "regression-compile-tmp/nrimp10s-77.imp"
auto int FROM3( int CELL );
                                                                //    371  %ROUTINESPEC BINSERT(%INTEGERNAME T,B,%INTEGER S1,S2,S3)
#line 371 "regression-compile-tmp/nrimp10s-77.imp"
auto void BINSERT( int /*name*/*T, int /*name*/*B, int S1, int S2, int S3 );
                                                                //    372  %ROUTINESPEC CLEARLIST(%INTEGERNAME HEAD)
#line 372 "regression-compile-tmp/nrimp10s-77.imp"
auto void CLEARLIST( int /*name*/*HEAD );
                                                                //    373  %STRING(255)%FNSPEC MESSAGE(%INTEGER N)
#line 373 "regression-compile-tmp/nrimp10s-77.imp"
auto _imp_string /*%string(255)*/ MESSAGE( int N );
                                                                //    374  %SYSTEMROUTINESPEC LPUT(%INTEGER A, B, C, D)
#line 374 "regression-compile-tmp/nrimp10s-77.imp"
extern void lput( int A, int B, int C, int D );
                                                                //    375  %SYSTEMLONGREALFNSPEC CPUTIME
#line 375 "regression-compile-tmp/nrimp10s-77.imp"
extern double cputime( void );
                                                                //    376  !*DELSTART
                                                                //    377  %SYSTEMROUTINESPEC NCODE(%INTEGER START, FINISH, CA)
#line 377 "regression-compile-tmp/nrimp10s-77.imp"
extern void ncode( int START, int FINISH, int CA );
                                                                //    378  %ROUTINESPEC PRINTLIST(%INTEGER HEAD)
#line 378 "regression-compile-tmp/nrimp10s-77.imp"
auto void PRINTLIST( int HEAD );
                                                                //    379  %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES)
#line 379 "regression-compile-tmp/nrimp10s-77.imp"
auto void PRHEX( int VALUE, int PLACES );
                                                                //    380  %ROUTINESPEC CHECK ASL
#line 380 "regression-compile-tmp/nrimp10s-77.imp"
auto void CHECKASL( void );
                                                                //    381  !*DELEND
                                                                //    382  %IF VMEB=NO %THEN %START
#line 382 "regression-compile-tmp/nrimp10s-77.imp"
if (((0) != (0))) goto L_000a;
                                                                //    383        %SYSTEMROUTINESPEC CONSOURCE(%STRING(31)FILE,%INTEGERNAME AD)
#line 383 "regression-compile-tmp/nrimp10s-77.imp"
extern void consource( _imp_string /*%string(31)*/ FILE, int /*name*/*AD );
                                                                //    384  %FINISH
#line 384 "regression-compile-tmp/nrimp10s-77.imp"
L_000a:;
                                                                //    385           ! START OF COMPILATION
                                                                //    386           {A==ARRAY(WKFILE AD+256*WKFILEK, AF)
                                                                //    387           %BEGIN
#line 387 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_2_LEVEL_2_(void) {
                                                                //    388  !***********************************************************************
                                                                //    389  !*       THIS BLOCK INITIALISE THE COMPILER SCALARS AND ARRAYS         *
                                                                //    390  !*       WAS ORIGINALLY ROUTINE 'INITIALISE'.                          *
                                                                //    391  !*       THE INITIALISATION OF THE CONSTANT LISTS WITH THE VALUES      *
                                                                //    392  !*       IN PERM MAY BE OMITTED IN BATCH OR CUT-DOWN VERSIONS.         *
                                                                //    393  !***********************************************************************
                                                                //    394  %ROUTINESPEC READ LINE(%INTEGER MODE,CHAR)
#line 394 "regression-compile-tmp/nrimp10s-77.imp"
auto void READLINE( int MODE, int CHAR );
                                                                //    395  %INTEGERFNSPEC COMPARE(%INTEGER P)
#line 395 "regression-compile-tmp/nrimp10s-77.imp"
auto int COMPARE( int P );
                                                                //    396  %ROUTINESPEC PNAME(%INTEGER MODE)
#line 396 "regression-compile-tmp/nrimp10s-77.imp"
auto void PNAME( int MODE );
                                                                //    397  %ROUTINESPEC CONST(%INTEGER MODE)
#line 397 "regression-compile-tmp/nrimp10s-77.imp"
auto void CONST( int MODE );
                                                                //    398  %ROUTINESPEC TEXTTEXT(%INTEGER EBCDIC)
#line 398 "regression-compile-tmp/nrimp10s-77.imp"
auto void TEXTTEXT( int EBCDIC );
                                                                //    399  %INTEGER CCSIZE,DSIZE,NEXT,ATLINE1,STARSTART
#line 399 "regression-compile-tmp/nrimp10s-77.imp"
int CCSIZE;
#line 399 "regression-compile-tmp/nrimp10s-77.imp"
int DSIZE;
#line 399 "regression-compile-tmp/nrimp10s-77.imp"
int NEXT;
#line 399 "regression-compile-tmp/nrimp10s-77.imp"
int ATLINE1;
#line 399 "regression-compile-tmp/nrimp10s-77.imp"
int STARSTART;
                                                                //    400        CCSIZE=1000; DSIZE=7*NNAMES
#line 400 "regression-compile-tmp/nrimp10s-77.imp"
CCSIZE = 1000;
#line 400 "regression-compile-tmp/nrimp10s-77.imp"
DSIZE = (((int)(7)) * (NNAMES));
                                                                //    401  %INTEGERARRAY DISPLAY,SFS(0:MAXLEVELS)
#line 401 "regression-compile-tmp/nrimp10s-77.imp"
int DISPLAY[32];
#line 401 "regression-compile-tmp/nrimp10s-77.imp"
int SFS[32];
                                                                //    402  %BYTEINTEGERARRAY  TLINE(-60:161),CC(0:CCSIZE),LETT(0:DSIZE+20)
#line 402 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char TLINE[222];
#line 402 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char CC[((CCSIZE) + ((int)(1)))];
#line 402 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char LETT[(((unsigned char)((((int)(DSIZE)) + (20)))) + (1))];
                                                                //    403  %LONGINTEGER ATL0,ASYM0
#line 403 "regression-compile-tmp/nrimp10s-77.imp"
long long int ATL0;
#line 403 "regression-compile-tmp/nrimp10s-77.imp"
long long int ASYM0;
                                                                //    404  %CONSTBYTEINTEGERARRAY ILETT(0: 500)= 11,
#line 404 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char ILETT[501] = { 11, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 12, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 7, 78, 69, 87, 76, 73, 78, 69, 5, 83, 80, 65, 67, 69, 10, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 84, 82, 73, 78, 71, 8, 78, 69, 87, 76, 73, 78, 69, 83, 6, 83, 80, 65, 67, 69, 83, 10, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 11, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 4, 82, 69, 65, 68, 5, 87, 82, 73, 84, 69, 7, 78, 69, 87, 80, 65, 71, 69, 4, 65, 68, 68, 82, 6, 65, 82, 67, 83, 73, 78, 3, 73, 78, 84, 5, 73, 78, 84, 80, 84, 6, 70, 82, 65, 67, 80, 84, 5, 80, 82, 73, 78, 84, 7, 80, 82, 73, 78, 84, 70, 76, 4, 82, 69, 65, 76, 7, 73, 78, 84, 69, 71, 69, 82, 3, 77, 79, 68, 6, 65, 82, 67, 67, 79, 83, 4, 83, 81, 82, 84, 3, 76, 79, 71, 3, 83, 73, 78, 3, 67, 79, 83, 3, 84, 65, 78, 3, 69, 88, 80, 11, 67, 76, 79, 83, 69, 83, 84, 82, 69, 65, 77, 11, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 8, 69, 86, 69, 78, 84, 73, 78, 70, 6, 82, 65, 68, 73, 85, 83, 6, 65, 82, 67, 84, 65, 78, 6, 76, 69, 78, 71, 84, 72, 11, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 2, 78, 76, 8, 76, 79, 78, 71, 82, 69, 65, 76, 7, 80, 82, 73, 78, 84, 67, 72, 6, 82, 69, 65, 68, 67, 72, 6, 83, 84, 82, 73, 78, 71, 8, 82, 69, 65, 68, 73, 84, 69, 77, 8, 78, 69, 88, 84, 73, 84, 69, 77, 6, 67, 72, 65, 82, 78, 79, 8, 84, 79, 83, 84, 82, 73, 78, 71, 10, 70, 82, 79, 77, 83, 84, 82, 73, 78, 71, 6, 82, 69, 67, 79, 82, 68, 5, 65, 82, 82, 65, 89, 10, 83, 69, 84, 77, 65, 82, 71, 73, 78, 83, 4, 73, 77, 79, 68, 2, 80, 73, 9, 69, 86, 69, 78, 84, 76, 73, 78, 69, 11, 76, 79, 78, 71, 73, 78, 84, 69, 71, 69, 82, 12, 76, 79, 78, 71, 76, 79, 78, 71, 82, 69, 65, 76, 9, 76, 69, 78, 71, 84, 72, 69, 78, 73, 9, 76, 69, 78, 71, 84, 72, 69, 78, 82, 8, 83, 72, 79, 82, 84, 69, 78, 73, 8, 83, 72, 79, 82, 84, 69, 78, 82, 6, 78, 69, 88, 84, 67, 72, 11, 72, 65, 76, 70, 73, 78, 84, 69, 71, 69, 82, 8, 80, 80, 82, 79, 70, 73, 76, 69, 255,  };
                                                                //    405      'S','E','L','E','C','T','I','N','P','U','T', 12,'S','E','L','E',
                                                                //    406      'C','T','O','U','T','P','U','T',  7,'N','E','W','L','I','N','E',
                                                                //    407        5,'S','P','A','C','E', 10,'S','K','I','P','S','Y','M','B','O',
                                                                //    408      'L', 10,'R','E','A','D','S','T','R','I','N','G',  8,'N','E','W',
                                                                //    409      'L','I','N','E','S',  6,'S','P','A','C','E','S', 10,'N','E','X',
                                                                //    410      'T','S','Y','M','B','O','L', 11,'P','R','I','N','T','S','Y','M',
                                                                //    411      'B','O','L', 10,'R','E','A','D','S','Y','M','B','O','L',  4,'R',
                                                                //    412      'E','A','D',  5,'W','R','I','T','E',  7,'N','E','W','P','A','G',
                                                                //    413      'E',  4,'A','D','D','R',  6,'A','R','C','S','I','N',  3,'I','N',
                                                                //    414      'T',  5,'I','N','T','P','T',  6,'F','R','A','C','P','T',  5,'P',
                                                                //    415      'R','I','N','T',  7,'P','R','I','N','T','F','L',  4,'R','E','A',
                                                                //    416      'L',  7,'I','N','T','E','G','E','R',  3,'M','O','D',  6,'A','R',
                                                                //    417      'C','C','O','S',  4,'S','Q','R','T',  3,'L','O','G',  3,'S','I',
                                                                //    418      'N',  3,'C','O','S',  3,'T','A','N',  3,'E','X','P', 11,'C','L',
                                                                //    419      'O','S','E','S','T','R','E','A','M', 11,'B','Y','T','E','I','N',
                                                                //    420      'T','E','G','E','R',  8,'E','V','E','N','T','I','N','F',
                                                                //    421      6,'R','A','D','I','U','S',  6,'A','R','C','T','A','N',
                                                                //    422        6,'L','E','N','G','T','H', 11,'P','R','I','N','T','S','T','R',
                                                                //    423      'I','N','G',  2,'N','L',  8,'L','O','N','G','R','E','A','L',  7,
                                                                //    424      'P','R','I','N','T','C','H',  6,'R','E','A','D','C','H',  6,'S',
                                                                //    425      'T','R','I','N','G',  8,'R','E','A','D','I','T','E','M',  8,'N',
                                                                //    426      'E','X','T','I','T','E','M',  6,'C','H','A','R','N','O',  8,'T',
                                                                //    427      'O','S','T','R','I','N','G', 10,'F','R','O','M','S','T','R','I',
                                                                //    428      'N','G',  6,'R','E','C','O','R','D',  5,'A','R','R','A','Y', 10,
                                                                //    429      'S','E','T','M','A','R','G','I','N','S',4,'I','M','O','D',2,'P',
                                                                //    430      'I',9,'E','V','E','N','T','L','I','N','E',11,'L','O','N','G',
                                                                //    431      'I','N','T','E','G','E','R',12,'L','O','N','G','L','O','N','G',
                                                                //    432      'R','E','A','L',9,'L','E','N','G','T','H','E','N','I',
                                                                //    433       9,'L','E','N','G','T','H','E','N','R',
                                                                //    434       8,'S','H','O','R','T','E','N','I',
                                                                //    435       8,'S','H','O','R','T','E','N','R',
                                                                //    436        6,'N','E','X','T','C','H',
                                                                //    437        11,'H','A','L','F','I','N','T','E','G','E','R',
                                                                //    438        8,'P','P','R','O','F','I','L','E',255;
                                                                //    439           IMAX=(-1)>>1;PLABEL=24999
#line 439 "regression-compile-tmp/nrimp10s-77.imp"
IMAX = (int)((((unsigned int)((-1))) >> (1)));
#line 439 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = 24999;
                                                                //    440           LETT(0)=0
#line 440 "regression-compile-tmp/nrimp10s-77.imp"
LETT[0] = 0;
                                                                //    441           ATLINE1=ADDR(TLINE(1))
#line 441 "regression-compile-tmp/nrimp10s-77.imp"
ATLINE1 = _imp_ADDR(&TLINE[61]);
                                                                //    442           INTEGER(ADDR(ATL0)+4)=ATLINE1-1
#line 442 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER((((int)(_imp_ADDR(&ATL0))) + (4))) = (((int)(ATLINE1)) - (1));
                                                                //    443           INTEGER(ADDR(ATL0))=16_18000100
#line 443 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER(_imp_ADDR(&ATL0)) = 402653440;
                                                                //    444           INTEGER(ADDR(ASYM0))=16_28000C00
#line 444 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER(_imp_ADDR(&ASYM0)) = 671091712;
                                                                //    445           INTEGER(ADDR(ASYM0)+4)=ADDR(SYMBOL(1300))-4*1300
#line 445 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER((((int)(_imp_ADDR(&ASYM0))) + (4))) = ((_imp_ADDR(&(SYMBOL-1300)[1300])) - ((int)((((int)(4)) * (1300)))));
                                                                //    446           N=12;
#line 446 "regression-compile-tmp/nrimp10s-77.imp"
N = 12;
                                                                //    447           MAX ULAB=NNAMES+16384;   ! LARGEST VALID USER LABEL
#line 447 "regression-compile-tmp/nrimp10s-77.imp"
MAXULAB = (((int)(NNAMES)) + (16384));
                                                                //    448           GLACURR=0; GLACA=FIXEDGLALEN; GLACABUF=GLACA
#line 448 "regression-compile-tmp/nrimp10s-77.imp"
GLACURR = 0;
#line 448 "regression-compile-tmp/nrimp10s-77.imp"
GLACA = 48;
#line 448 "regression-compile-tmp/nrimp10s-77.imp"
GLACABUF = GLACA;
                                                                //    449           PARMOPT=1 ;  PARMARR=1;  LAST INST=0
#line 449 "regression-compile-tmp/nrimp10s-77.imp"
PARMOPT = 1;
#line 449 "regression-compile-tmp/nrimp10s-77.imp"
PARMARR = 1;
#line 449 "regression-compile-tmp/nrimp10s-77.imp"
LASTINST = 0;
                                                                //    450           PARMLINE=1; PARMTRACE=1;  PARMDIAG=1
#line 450 "regression-compile-tmp/nrimp10s-77.imp"
PARMLINE = 1;
#line 450 "regression-compile-tmp/nrimp10s-77.imp"
PARMTRACE = 1;
#line 450 "regression-compile-tmp/nrimp10s-77.imp"
PARMDIAG = 1;
                                                                //    451           LIST=1; SFLABEL=20999; PARMCHK=1
#line 451 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 1;
#line 451 "regression-compile-tmp/nrimp10s-77.imp"
SFLABEL = 20999;
#line 451 "regression-compile-tmp/nrimp10s-77.imp"
PARMCHK = 1;
                                                                //    452           EXITLAB=0; CONTLAB=0
#line 452 "regression-compile-tmp/nrimp10s-77.imp"
EXITLAB = 0;
#line 452 "regression-compile-tmp/nrimp10s-77.imp"
CONTLAB = 0;
                                                                //    453           CABUF=0;  PPCURR=0;  OLDLINE=0; COMPILER=0
#line 453 "regression-compile-tmp/nrimp10s-77.imp"
CABUF = 0;
#line 453 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = 0;
#line 453 "regression-compile-tmp/nrimp10s-77.imp"
OLDLINE = 0;
#line 453 "regression-compile-tmp/nrimp10s-77.imp"
COMPILER = 0;
                                                                //    454           RLEVEL=0;  NMAX=0;  USTPTR=0
#line 454 "regression-compile-tmp/nrimp10s-77.imp"
RLEVEL = 0;
#line 454 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = 0;
#line 454 "regression-compile-tmp/nrimp10s-77.imp"
USTPTR = 0;
                                                                //    455           LEVEL=0;  CA=0;  LASTAT=0
#line 455 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = 0;
#line 455 "regression-compile-tmp/nrimp10s-77.imp"
CA = 0;
#line 455 "regression-compile-tmp/nrimp10s-77.imp"
LASTAT = 0;
                                                                //    456           FAULTY=0;  WARNFLAG=0; ALLLONG=0; INHCODE=0
#line 456 "regression-compile-tmp/nrimp10s-77.imp"
FAULTY = 0;
#line 456 "regression-compile-tmp/nrimp10s-77.imp"
WARNFLAG = 0;
#line 456 "regression-compile-tmp/nrimp10s-77.imp"
ALLLONG = 0;
#line 456 "regression-compile-tmp/nrimp10s-77.imp"
INHCODE = 0;
                                                                //    457           DCOMP=0;  BFFLAG=0;  CPRMODE=0
#line 457 "regression-compile-tmp/nrimp10s-77.imp"
DCOMP = 0;
#line 457 "regression-compile-tmp/nrimp10s-77.imp"
BFFLAG = 0;
#line 457 "regression-compile-tmp/nrimp10s-77.imp"
CPRMODE = 0;
                                                                //    458           NEXT=1;  LDPTR=0
#line 458 "regression-compile-tmp/nrimp10s-77.imp"
NEXT = 1;
#line 458 "regression-compile-tmp/nrimp10s-77.imp"
LDPTR = 0;
                                                                //    459           IOCPDISP=0; CREFHEAD=0; AUXST=0
#line 459 "regression-compile-tmp/nrimp10s-77.imp"
IOCPDISP = 0;
#line 459 "regression-compile-tmp/nrimp10s-77.imp"
CREFHEAD = 0;
#line 459 "regression-compile-tmp/nrimp10s-77.imp"
AUXST = 0;
                                                                //    460           RBASE=10;  LOGEPDISP=0;  EXPEPDISP=0; STRLINK=0
#line 460 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = 10;
#line 460 "regression-compile-tmp/nrimp10s-77.imp"
LOGEPDISP = 0;
#line 460 "regression-compile-tmp/nrimp10s-77.imp"
EXPEPDISP = 0;
#line 460 "regression-compile-tmp/nrimp10s-77.imp"
STRLINK = 0;
                                                                //    461           RECTB=0; IHEAD=0
#line 461 "regression-compile-tmp/nrimp10s-77.imp"
RECTB = 0;
#line 461 "regression-compile-tmp/nrimp10s-77.imp"
IHEAD = 0;
                                                                //    462           SSTL=0;  STMTS=1;  SNUM=0;  LEVELINF=0
#line 462 "regression-compile-tmp/nrimp10s-77.imp"
SSTL = 0;
#line 462 "regression-compile-tmp/nrimp10s-77.imp"
STMTS = 1;
#line 462 "regression-compile-tmp/nrimp10s-77.imp"
SNUM = 0;
#line 462 "regression-compile-tmp/nrimp10s-77.imp"
LEVELINF = 0;
                                                                //    463           CDCOUNT=0
#line 463 "regression-compile-tmp/nrimp10s-77.imp"
CDCOUNT = 0;
                                                                //    464           BIMSTR=0
#line 464 "regression-compile-tmp/nrimp10s-77.imp"
BIMSTR = 0;
                                                                //    465           LOGEPDISP=0; EXPEPDISP=0
#line 465 "regression-compile-tmp/nrimp10s-77.imp"
LOGEPDISP = 0;
#line 465 "regression-compile-tmp/nrimp10s-77.imp"
EXPEPDISP = 0;
                                                                //    466           MAINEP="S#GO";                 ! DEFAULT MAIN ENTRY
#line 466 "regression-compile-tmp/nrimp10s-77.imp"
MAINEP = _imp_str_literal("S#GO");
                                                                //    467           DICTBASE=ADDR(LETT(0))
#line 467 "regression-compile-tmp/nrimp10s-77.imp"
DICTBASE = _imp_ADDR(&LETT[0]);
                                                                //    468  !
                                                                //    469  ! OPEN OBJECT FILE HERE BEFORE MORE PAGES OF COMPILER CODE
                                                                //    470  ! ARE PAGED IN AND SUB-SYSTEM PAGES MOVE OUT
                                                                //    471  !
                                                                //    472           LPUT(0,0,0,0)
#line 472 "regression-compile-tmp/nrimp10s-77.imp"
lput(0, 0, 0, 0);
                                                                //    473           CTIME=CPUTIME
#line 473 "regression-compile-tmp/nrimp10s-77.imp"
CTIME = cputime();
                                                                //    474           I=COMREG(27)
#line 474 "regression-compile-tmp/nrimp10s-77.imp"
I = *comreg(27);
                                                                //    475           STLIMIT=16_1F000
#line 475 "regression-compile-tmp/nrimp10s-77.imp"
STLIMIT = 126976;
                                                                //    476           %IF I>>24&1#0 %THEN STLIMIT=COMREG(48)-4096
#line 476 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)(I)) >> (24)))) & (1))) == (0))) goto L_000b;
#line 476 "regression-compile-tmp/nrimp10s-77.imp"
STLIMIT = ((*(int *)(comreg(48))) - (4096));
#line 476 "regression-compile-tmp/nrimp10s-77.imp"
L_000b:;
                                                                //    477           %IF I&2=2 %THEN LIST=0
#line 477 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (2))) != (2))) goto L_000c;
#line 477 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 0;
#line 477 "regression-compile-tmp/nrimp10s-77.imp"
L_000c:;
                                                                //    478           %IF I&4=4 %THEN PARMDIAG=0
#line 478 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (4))) != (4))) goto L_000d;
#line 478 "regression-compile-tmp/nrimp10s-77.imp"
PARMDIAG = 0;
#line 478 "regression-compile-tmp/nrimp10s-77.imp"
L_000d:;
                                                                //    479           %IF I&16_800000#0 %THEN PARMLINE=0
#line 479 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (8388608))) == (0))) goto L_000e;
#line 479 "regression-compile-tmp/nrimp10s-77.imp"
PARMLINE = 0;
#line 479 "regression-compile-tmp/nrimp10s-77.imp"
L_000e:;
                                                                //    480           %IF I&16=16 %THEN PARMCHK=0
#line 480 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (16))) != (16))) goto L_000f;
#line 480 "regression-compile-tmp/nrimp10s-77.imp"
PARMCHK = 0;
#line 480 "regression-compile-tmp/nrimp10s-77.imp"
L_000f:;
                                                                //    481           %IF I&32=32  %THEN PARMARR=0
#line 481 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (32))) != (32))) goto L_0010;
#line 481 "regression-compile-tmp/nrimp10s-77.imp"
PARMARR = 0;
#line 481 "regression-compile-tmp/nrimp10s-77.imp"
L_0010:;
                                                                //    482           PARMPROF=(I>>15&1)!(I>>7&1);   ! USE MAP OR PROFILE BIT PRO TEM
#line 482 "regression-compile-tmp/nrimp10s-77.imp"
PARMPROF = (((((int)((((unsigned int)(I)) >> (15)))) & (1))) | ((((int)((((unsigned int)(I)) >> (7)))) & (1))));
                                                                //    483           PARMDYNAMIC=I>>20&1
#line 483 "regression-compile-tmp/nrimp10s-77.imp"
PARMDYNAMIC = (((int)((((unsigned int)(I)) >> (20)))) & (1));
                                                                //    484           PARMLET=I>>13&1
#line 484 "regression-compile-tmp/nrimp10s-77.imp"
PARMLET = (((int)((((unsigned int)(I)) >> (13)))) & (1));
                                                                //    485           DCOMP=I>>14&1;                 ! PARM CODE OR D
#line 485 "regression-compile-tmp/nrimp10s-77.imp"
DCOMP = (((int)((((unsigned int)(I)) >> (14)))) & (1));
                                                                //    486           PARMDBUG=I>>18&1
#line 486 "regression-compile-tmp/nrimp10s-77.imp"
PARMDBUG = (((int)((((unsigned int)(I)) >> (18)))) & (1));
                                                                //    487           %IF I&64=64 %THEN PARMTRACE=0 %AND PARMDIAG=0
#line 487 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (64))) != (64))) goto L_0011;
#line 487 "regression-compile-tmp/nrimp10s-77.imp"
PARMTRACE = 0;
#line 487 "regression-compile-tmp/nrimp10s-77.imp"
PARMDIAG = 0;
#line 487 "regression-compile-tmp/nrimp10s-77.imp"
L_0011:;
                                                                //    488           FREE FORMAT=I&16_80000
#line 488 "regression-compile-tmp/nrimp10s-77.imp"
FREEFORMAT = ((I) & (524288));
                                                                //    489           STACK=I>>3&1
#line 489 "regression-compile-tmp/nrimp10s-77.imp"
STACK = (((int)((((unsigned int)(I)) >> (3)))) & (1));
                                                                //    490           SMAP=I>>26&1;                 ! USE PARMZ BIT FOR DUMPING WKFILE
#line 490 "regression-compile-tmp/nrimp10s-77.imp"
SMAP = (((int)((((unsigned int)(I)) >> (26)))) & (1));
                                                                //    491           TTOPUT=COMREG(40)
#line 491 "regression-compile-tmp/nrimp10s-77.imp"
TTOPUT = *comreg(40);
                                                                //    492           %IF I&(1<<16)#0 %THEN %START
#line 492 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (((1) << (16))))) == (0))) goto L_0012;
                                                                //    493              PARMARR=0; PARMOPT=0
#line 493 "regression-compile-tmp/nrimp10s-77.imp"
PARMARR = 0;
#line 493 "regression-compile-tmp/nrimp10s-77.imp"
PARMOPT = 0;
                                                                //    494              PARMLINE=0; PARMCHK=0; PARMDIAG=0
#line 494 "regression-compile-tmp/nrimp10s-77.imp"
PARMLINE = 0;
#line 494 "regression-compile-tmp/nrimp10s-77.imp"
PARMCHK = 0;
#line 494 "regression-compile-tmp/nrimp10s-77.imp"
PARMDIAG = 0;
                                                                //    495           %FINISH
#line 495 "regression-compile-tmp/nrimp10s-77.imp"
L_0012:;
                                                                //    496           PARMTRACE=PARMTRACE!PARMOPT;   ! ALLOW NOTRACE ONLY WITH OPT
#line 496 "regression-compile-tmp/nrimp10s-77.imp"
PARMTRACE = ((PARMTRACE) | (PARMOPT));
                                                                //    497           IMPS=I>>23&1;              ! BIT SET IF IMPS REQUESTED
#line 497 "regression-compile-tmp/nrimp10s-77.imp"
IMPS = (((int)((((unsigned int)(I)) >> (23)))) & (1));
                                                                //    498           IMPS=1;                        ! FOR TESTING
#line 498 "regression-compile-tmp/nrimp10s-77.imp"
IMPS = 1;
                                                                //    499           NEWLINES(3); SPACES(14)
#line 499 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINES(3);
#line 499 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES(14);
                                                                //    500           PRINTSTRING("ERCC. Imp")
#line 500 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("ERCC. Imp"));
                                                                //    501           %IF IMPS#0 %THEN PRINTSYMBOL('s')
#line 501 "regression-compile-tmp/nrimp10s-77.imp"
if (((IMPS) == (0))) goto L_0013;
#line 501 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(115);
#line 501 "regression-compile-tmp/nrimp10s-77.imp"
L_0013:;
                                                                //    502           PRINTSTRING(" Compiler Release")
#line 502 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" Compiler Release"));
                                                                //    503           WRITE(RELEASE,1)
#line 503 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(10, 1);
                                                                //    504           PRINTSTRING(" Version ".LADATE)
#line 504 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(" Version "),(_imp_string)LADATE));
                                                                //    505           NEWLINES(3)
#line 505 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINES(3);
                                                                //    506           WRITE(NNAMES,5); WRITE(ASL,5)
#line 506 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(NNAMES, 5);
#line 506 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(ASL, 5);
                                                                //    507           NEWLINE
#line 507 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //    508           ASL WARN=0
#line 508 "regression-compile-tmp/nrimp10s-77.imp"
ASLWARN = 0;
                                                                //    509           ASL CUR BTM=ASL-240
#line 509 "regression-compile-tmp/nrimp10s-77.imp"
ASLCURBTM = (((int)(ASL)) - (240));
                                                                //    510           CONST LIMIT=4*ASL CUR BTM-8
#line 510 "regression-compile-tmp/nrimp10s-77.imp"
CONSTLIMIT = (((int)((((int)(4)) * (ASLCURBTM)))) - (8));
                                                                //    511           %CYCLE I=ASL CUR BTM,1,ASL-1
#line 511 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = ASLCURBTM; _increment = 1; _final = (((int)(ASL)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = ASLCURBTM, 1, (((int)(ASL)) - (1))");
I -= _increment; _control -= _increment;
L_0014:;
if (I == _final) goto L_0015;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    512               ASLIST(I+1)_LINK=I
#line 512 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[(((int)(I)) + (1))].LINK = I;
                                                                //    513           %REPEAT
#line 513 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0014;
#line 513 "regression-compile-tmp/nrimp10s-77.imp"
L_0015:;
                                                                //    514           ASLIST(ASL CUR BTM)_LINK=0
#line 514 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[ASLCURBTM].LINK = 0;
                                                                //    515           ASLIST(0)_S1=-1
#line 515 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[0].S1 = (-1);
                                                                //    516           ASLIST(0)_S2=-1
#line 516 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[0].S2 = (-1);
                                                                //    517           ASLIST(0)_S3=-1
#line 517 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[0].S3 = (-1);
                                                                //    518           ASLIST(0)_LINK=0
#line 518 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[0].LINK = 0;
                                                                //    519           %CYCLE I=0,1,NNAMES
#line 519 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = NNAMES; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NNAMES");
I -= _increment; _control -= _increment;
L_0017:;
if (I == _final) goto L_0018;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    520               WORD(I)=0; TAGS(I)=0;
#line 520 "regression-compile-tmp/nrimp10s-77.imp"
WORD[I] = 0;
#line 520 "regression-compile-tmp/nrimp10s-77.imp"
TAGS[I] = 0;
                                                                //    521           %REPEAT
#line 521 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0017;
#line 521 "regression-compile-tmp/nrimp10s-77.imp"
L_0018:;
                                                                //    522           %CYCLE I=0,1,12
#line 522 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((12)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 12");
L_001a:;
if (I == 12) goto L_001b;
I += 1;
                                                                //    523              DVHEADS(I)=0
#line 523 "regression-compile-tmp/nrimp10s-77.imp"
DVHEADS[I] = 0;
                                                                //    524           %REPEAT
#line 524 "regression-compile-tmp/nrimp10s-77.imp"
goto L_001a;
#line 524 "regression-compile-tmp/nrimp10s-77.imp"
L_001b:;
                                                                //    525  !
                                                                //    526  ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT.
                                                                //    527  !
                                                                //    528           K=0; NEXT=1
#line 528 "regression-compile-tmp/nrimp10s-77.imp"
K = 0;
#line 528 "regression-compile-tmp/nrimp10s-77.imp"
NEXT = 1;
                                                                //    529           I=ILETT(0)
#line 529 "regression-compile-tmp/nrimp10s-77.imp"
I = ILETT[0];
                                                                //    530           %WHILE I<255 %CYCLE
#line 530 "regression-compile-tmp/nrimp10s-77.imp"
L_001d:;
#line 530 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) >= (255))) goto L_001e;
                                                                //    531              %CYCLE J=I,-1,1
#line 531 "regression-compile-tmp/nrimp10s-77.imp"
J = ((I) + ((int)(1)));
if ((((1)-(I)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle J = I, (-1), 1");
L_0020:;
if (J == 1) goto L_0021;
J += (-1);
                                                                //    532                  CC(J)=ILETT(K+J)
#line 532 "regression-compile-tmp/nrimp10s-77.imp"
CC[J] = ILETT[(((int)(K)) + (J))];
                                                                //    533              %REPEAT
#line 533 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0020;
#line 533 "regression-compile-tmp/nrimp10s-77.imp"
L_0021:;
                                                                //    534              CC(I+1)=';'
#line 534 "regression-compile-tmp/nrimp10s-77.imp"
CC[(((int)(I)) + (1))] = 59;
                                                                //    535              R=2; Q=1; PNAME(1)
#line 535 "regression-compile-tmp/nrimp10s-77.imp"
R = 2;
#line 535 "regression-compile-tmp/nrimp10s-77.imp"
Q = 1;
#line 535 "regression-compile-tmp/nrimp10s-77.imp"
PNAME(1);
                                                                //    536              PUSH(TAGS(LASTNAME),SNPT<<16!16_8000,0,SNUM<<16)
#line 536 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&TAGS[LASTNAME], ((((4102) << (16))) | (32768)), 0, ((SNUM) << (16)));
                                                                //    537              SNUM=SNUM+1
#line 537 "regression-compile-tmp/nrimp10s-77.imp"
SNUM = (((int)(SNUM)) + (1));
                                                                //    538              K=K+I+1; I=ILETT(K)
#line 538 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)((((int)(K)) + (I)))) + (1));
#line 538 "regression-compile-tmp/nrimp10s-77.imp"
I = ILETT[K];
                                                                //    539           %REPEAT
#line 539 "regression-compile-tmp/nrimp10s-77.imp"
goto L_001d;
#line 539 "regression-compile-tmp/nrimp10s-77.imp"
L_001e:;
                                                                //    540  !
                                                                //    541           COMREG(24)=16;                ! RETURN CODE
#line 541 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(24) = 16;
                                                                //    542           DUMMY FORMAT=0;        ! DUMMY RECORD FORMAT
#line 542 "regression-compile-tmp/nrimp10s-77.imp"
DUMMYFORMAT = 0;
                                                                //    543           DFHEAD=0
#line 543 "regression-compile-tmp/nrimp10s-77.imp"
DFHEAD = 0;
                                                                //    544           PUSH(DFHEAD,0,0,0)
#line 544 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&DFHEAD, 0, 0, 0);
                                                                //    545           PUSH(DUMMY FORMAT,0,0,DFHEAD); ! FOR BETTER ERROR RECOVERY
#line 545 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&DUMMYFORMAT, 0, 0, DFHEAD);
                                                                //    546           LINE=0; LENGTH=0; Q=1
#line 546 "regression-compile-tmp/nrimp10s-77.imp"
LINE = 0;
#line 546 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = 0;
#line 546 "regression-compile-tmp/nrimp10s-77.imp"
Q = 1;
                                                                //    547           R=1;  LEVEL=1
#line 547 "regression-compile-tmp/nrimp10s-77.imp"
R = 1;
#line 547 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = 1;
                                                                //    548           %CYCLE
#line 548 "regression-compile-tmp/nrimp10s-77.imp"
L_0023:;
                                                                //    549              %IF Q>=LENGTH %THEN QMAX=1 %AND READ LINE(0,0)
#line 549 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) < (LENGTH))) goto L_0026;
#line 549 "regression-compile-tmp/nrimp10s-77.imp"
QMAX = 1;
#line 549 "regression-compile-tmp/nrimp10s-77.imp"
READLINE(0, 0);
#line 549 "regression-compile-tmp/nrimp10s-77.imp"
L_0026:;
                                                                //    550              WARNFLAG=0
#line 550 "regression-compile-tmp/nrimp10s-77.imp"
WARNFLAG = 0;
                                                                //    551              STARSTART=R
#line 551 "regression-compile-tmp/nrimp10s-77.imp"
STARSTART = R;
                                                                //    552              R=R+3
#line 552 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (3));
                                                                //    553              OLDLINE=LINE
#line 553 "regression-compile-tmp/nrimp10s-77.imp"
OLDLINE = LINE;
                                                                //    554              A(R)=LINE>>8
#line 554 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = (int)((((unsigned int)(LINE)) >> (8)));
                                                                //    555              A(R+1)=LINE&255
#line 555 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(R)) + (1))] = ((LINE) & (255));
                                                                //    556              R=R+2
#line 556 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
                                                                //    557              %IF COMPARE(SS)=0 %THEN %START
#line 557 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPARE(2093)) != (0))) goto L_0027;
                                                                //    558                 FAULT(100,ADDR(CC(0)))
#line 558 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(100, _imp_ADDR(&CC[0]));
                                                                //    559                 R=STARSTART
#line 559 "regression-compile-tmp/nrimp10s-77.imp"
R = STARSTART;
                                                                //    560              %FINISH %ELSE %START
#line 560 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0028;
#line 560 "regression-compile-tmp/nrimp10s-77.imp"
L_0027:;
                                                                //    561                 FAULT(102, 0) %IF R>ARSIZE
#line 561 "regression-compile-tmp/nrimp10s-77.imp"
if (((R) <= (ARSIZE))) goto L_0029;
#line 561 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(102, 0);
#line 561 "regression-compile-tmp/nrimp10s-77.imp"
L_0029:;
                                                                //    562                 %IF A(STARSTART+5)=COMMALT %THEN R=STARSTART %ELSE %START
#line 562 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(STARSTART)) + (5))]) != (2))) goto L_002a;
#line 562 "regression-compile-tmp/nrimp10s-77.imp"
R = STARSTART;
#line 562 "regression-compile-tmp/nrimp10s-77.imp"
goto L_002b;
#line 562 "regression-compile-tmp/nrimp10s-77.imp"
L_002a:;
                                                                //    563                    I=R-STARSTART
#line 563 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(R)) - (STARSTART));
                                                                //    564                    A(STARSTART)=I>>16
#line 564 "regression-compile-tmp/nrimp10s-77.imp"
A[STARSTART] = (int)((((unsigned int)(I)) >> (16)));
                                                                //    565                    A(STARSTART+1)=I>>8&255
#line 565 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(STARSTART)) + (1))] = (((int)((((unsigned int)(I)) >> (8)))) & (255));
                                                                //    566                    A(STARSTART+2)=I&255
#line 566 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(STARSTART)) + (2))] = ((I) & (255));
                                                                //    567                    %IF A(STARSTART+5)=DECALT %AND LEVEL>1 %THEN %START
#line 567 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(STARSTART)) + (5))]) != (8))) goto L_002c;
#line 567 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) <= (1))) goto L_002c;
                                                                //    568                       %IF SFS(LEVEL)=0 %THEN %START
#line 568 "regression-compile-tmp/nrimp10s-77.imp"
if (((SFS[LEVEL]) != (0))) goto L_002d;
                                                                //    569                          TO AR4(DISPLAY(LEVEL),STARSTART)
#line 569 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(DISPLAY[LEVEL], STARSTART);
                                                                //    570                          DISPLAY(LEVEL)=STARSTART+6
#line 570 "regression-compile-tmp/nrimp10s-77.imp"
DISPLAY[LEVEL] = (((int)(STARSTART)) + (6));
                                                                //    571                       %FINISH %ELSE A(STARSTART+6)=128;!  FLAG AS UNLINKED
#line 571 "regression-compile-tmp/nrimp10s-77.imp"
goto L_002e;
#line 571 "regression-compile-tmp/nrimp10s-77.imp"
L_002d:;
#line 571 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(STARSTART)) + (6))] = 128;
#line 571 "regression-compile-tmp/nrimp10s-77.imp"
L_002e:;
                                                                //    572                    %FINISH
#line 572 "regression-compile-tmp/nrimp10s-77.imp"
L_002c:;
                                                                //    573  !*DELSTART
                                                                //    574                    %IF SMAP#0 %THEN %START
#line 574 "regression-compile-tmp/nrimp10s-77.imp"
if (((SMAP) == (0))) goto L_002f;
                                                                //    575                       NEWLINE;  WRITE(LINE, 5)
#line 575 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 575 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(LINE, 5);
                                                                //    576                       WRITE(STARSTART,5);  NEWLINE; J=0
#line 576 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(STARSTART, 5);
#line 576 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 576 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
                                                                //    577                       %CYCLE I=STARSTART, 1, R-1
#line 577 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = STARSTART; _increment = 1; _final = (((int)(R)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = STARSTART, 1, (((int)(R)) - (1))");
I -= _increment; _control -= _increment;
L_0030:;
if (I == _final) goto L_0031;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    578                          WRITE(A(I), 5)
#line 578 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(A[I], 5);
                                                                //    579                       J=J+1
#line 579 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(J)) + (1));
                                                                //    580                       %IF J>=20 %THEN NEWLINE %AND J=0
#line 580 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) < (20))) goto L_0033;
#line 580 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 580 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
#line 580 "regression-compile-tmp/nrimp10s-77.imp"
L_0033:;
                                                                //    581                       %REPEAT
#line 581 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0030;
#line 581 "regression-compile-tmp/nrimp10s-77.imp"
L_0031:;
                                                                //    582                       NEWLINE
#line 582 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //    583                    %FINISH
#line 583 "regression-compile-tmp/nrimp10s-77.imp"
L_002f:;
                                                                //    584  !*DELEND
                                                                //    585                    %EXIT %IF A(STARSTART+5)=ENDALT %AND 1<=A(STARSTART+6)<=2;! ENDOF PROG OR FILE
#line 585 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(STARSTART)) + (5))]) != (9))) goto L_0034;
#line 585 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (A[(((int)(STARSTART)) + (6))]))) || (((A[(((int)(STARSTART)) + (6))]) > (2)))) goto L_0034;
#line 585 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0024;
#line 585 "regression-compile-tmp/nrimp10s-77.imp"
L_0034:;
                                                                //    586                    %IF LEVEL=0 %THEN FAULT(14, 0) %AND %EXIT
#line 586 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (0))) goto L_0035;
#line 586 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(14, 0);
#line 586 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0024;
#line 586 "regression-compile-tmp/nrimp10s-77.imp"
L_0035:;
                                                                //    587                 %FINISH
#line 587 "regression-compile-tmp/nrimp10s-77.imp"
L_002b:;
                                                                //    588              %FINISH
#line 588 "regression-compile-tmp/nrimp10s-77.imp"
L_0028:;
                                                                //    589           %REPEAT
#line 589 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0023;
#line 589 "regression-compile-tmp/nrimp10s-77.imp"
L_0024:;
                                                                //    590           TO AR8(R,0); R=R+8
#line 590 "regression-compile-tmp/nrimp10s-77.imp"
TOAR8(R, 0);
#line 590 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (8));
                                                                //    591           %IF R+NEXT>ARSIZE %THEN FAULT(102,0)
#line 591 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)(R)) + (NEXT))) <= (ARSIZE))) goto L_0036;
#line 591 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(102, 0);
#line 591 "regression-compile-tmp/nrimp10s-77.imp"
L_0036:;
                                                                //    592           P1SIZE=R
#line 592 "regression-compile-tmp/nrimp10s-77.imp"
P1SIZE = R;
                                                                //    593  !        %IF USE IMP=YES %THEN %START
                                                                //    594              %CYCLE I=0,1,NEXT
#line 594 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = NEXT; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NEXT");
I -= _increment; _control -= _increment;
L_0037:;
if (I == _final) goto L_0038;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    595                 A(R+I)=LETT(I)
#line 595 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(R)) + (I))] = LETT[I];
                                                                //    596              %REPEAT
#line 596 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0037;
#line 596 "regression-compile-tmp/nrimp10s-77.imp"
L_0038:;
                                                                //    597  !        %FINISH %ELSE %START
                                                                //    598  !           *LDTB_16_18000000
                                                                //    599  !           *LDB_NEXT
                                                                //    600  !           *LDA_LETT+4
                                                                //    601  !           *CYD_0
                                                                //    602  !           *LDA_A+4
                                                                //    603  !           *INCA_R
                                                                //    604  !           *MV_%L=%DR
                                                                //    605  !        %FINISH
                                                                //    606           DICTBASE=ADDR(A(R))
#line 606 "regression-compile-tmp/nrimp10s-77.imp"
DICTBASE = _imp_ADDR(&A[R]);
                                                                //    607           R=R+NEXT+1
#line 607 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)((((int)(R)) + (NEXT)))) + (1));
                                                                //    608           ->BEND
#line 608 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1000;
                                                                //    609  %ROUTINE READ LINE(%INTEGER MODE,CHAR)
#line 609 "regression-compile-tmp/nrimp10s-77.imp"
void READLINE( int MODE, int CHAR )
#line 609 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //    610  %ROUTINESPEC GET LINE
#line 610 "regression-compile-tmp/nrimp10s-77.imp"
auto void GETLINE( void );
                                                                //    611  %INTEGER DEL, LL, LP
#line 611 "regression-compile-tmp/nrimp10s-77.imp"
int DEL;
#line 611 "regression-compile-tmp/nrimp10s-77.imp"
int LL;
#line 611 "regression-compile-tmp/nrimp10s-77.imp"
int LP;
                                                                //    612        LL=0;  LP=0; Q=1
#line 612 "regression-compile-tmp/nrimp10s-77.imp"
LL = 0;
#line 612 "regression-compile-tmp/nrimp10s-77.imp"
LP = 0;
#line 612 "regression-compile-tmp/nrimp10s-77.imp"
Q = 1;
                                                                //    613        LENGTH=0;  DEL=0
#line 613 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = 0;
#line 613 "regression-compile-tmp/nrimp10s-77.imp"
DEL = 0;
                                                                //    614  NEXT:
#line 614 "regression-compile-tmp/nrimp10s-77.imp"
U_1001:;
                                                                //    615  !     %IF USE IMP=YES %THEN %START
                                                                //    616           LP=LP+1
#line 616 "regression-compile-tmp/nrimp10s-77.imp"
LP = (((int)(LP)) + (1));
                                                                //    617           %IF LP>LL %THEN GET LINE %AND LP=1
#line 617 "regression-compile-tmp/nrimp10s-77.imp"
if (((LP) <= (LL))) goto L_003a;
#line 617 "regression-compile-tmp/nrimp10s-77.imp"
GETLINE();
#line 617 "regression-compile-tmp/nrimp10s-77.imp"
LP = 1;
#line 617 "regression-compile-tmp/nrimp10s-77.imp"
L_003a:;
                                                                //    618           I=TLINE(LP)
#line 618 "regression-compile-tmp/nrimp10s-77.imp"
I = TLINE[((LP) + ((int)(60)))];
                                                                //    619           %IF MODE=0 %THEN %START
#line 619 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_003b;
                                                                //    620              %IF I='%' %THEN DEL=128 %AND ->NEXT
#line 620 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (37))) goto L_003c;
#line 620 "regression-compile-tmp/nrimp10s-77.imp"
DEL = 128;
#line 620 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1001;
#line 620 "regression-compile-tmp/nrimp10s-77.imp"
L_003c:;
                                                                //    621              I=ONE CASE(I)
#line 621 "regression-compile-tmp/nrimp10s-77.imp"
I = ONECASE[I];
                                                                //    622              %IF 'A'<=I<='Z' %THEN I=I!DEL %ELSE %START
#line 622 "regression-compile-tmp/nrimp10s-77.imp"
if ((((65) > (I))) || (((I) > (90)))) goto L_003d;
#line 622 "regression-compile-tmp/nrimp10s-77.imp"
I = ((I) | (DEL));
#line 622 "regression-compile-tmp/nrimp10s-77.imp"
goto L_003e;
#line 622 "regression-compile-tmp/nrimp10s-77.imp"
L_003d:;
                                                                //    623                 DEL=0
#line 623 "regression-compile-tmp/nrimp10s-77.imp"
DEL = 0;
                                                                //    624                 ->NEXT %IF I=' '
#line 624 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (32))) goto L_003f;
#line 624 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1001;
#line 624 "regression-compile-tmp/nrimp10s-77.imp"
L_003f:;
                                                                //    625              %FINISH
#line 625 "regression-compile-tmp/nrimp10s-77.imp"
L_003e:;
                                                                //    626              LENGTH=LENGTH+1
#line 626 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (((int)(LENGTH)) + (1));
                                                                //    627              CC(LENGTH)=I
#line 627 "regression-compile-tmp/nrimp10s-77.imp"
CC[LENGTH] = I;
                                                                //    628              %IF I='''' %OR I=34 %THEN MODE=1 %AND CHAR=I
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (39))) goto L_0022;
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (34))) goto L_0040;
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
L_0022:;
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
MODE = 1;
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
CHAR = I;
#line 628 "regression-compile-tmp/nrimp10s-77.imp"
L_0040:;
                                                                //    629           %FINISH %ELSE %START
#line 629 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0041;
#line 629 "regression-compile-tmp/nrimp10s-77.imp"
L_003b:;
                                                                //    630              LENGTH=LENGTH+1
#line 630 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (((int)(LENGTH)) + (1));
                                                                //    631              CC(LENGTH)=I
#line 631 "regression-compile-tmp/nrimp10s-77.imp"
CC[LENGTH] = I;
                                                                //    632              %IF I=CHAR %THEN MODE=0
#line 632 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (CHAR))) goto L_0042;
#line 632 "regression-compile-tmp/nrimp10s-77.imp"
MODE = 0;
#line 632 "regression-compile-tmp/nrimp10s-77.imp"
L_0042:;
                                                                //    633           %FINISH
#line 633 "regression-compile-tmp/nrimp10s-77.imp"
L_0041:;
                                                                //    634           ->NEXT %UNLESS I=NL
#line 634 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (10))) goto L_0043;
#line 634 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1001;
#line 634 "regression-compile-tmp/nrimp10s-77.imp"
L_0043:;
                                                                //    635  !     %FINISH %ELSE %START
                                                                //    636  !        *LB_LP
                                                                //    637  !        *ADB_1
                                                                //    638  !        *CPB_LL
                                                                //    639  !        *JCC_12,<RLL1>
                                                                //    640  !        GET LINE
                                                                //    641  !        *LB_1
                                                                //    642  !RLL1:
                                                                //    643  !        *STB_LP
                                                                //    644  !        *LB_(ATL0+%B)
                                                                //    645  !        *LSS_MODE
                                                                //    646  !        *JAF_4,<RLL2>
                                                                //    647  !        *CPB_37;                       !'%'      
                                                                //    648  !        *JCC_7,<RLL3>
                                                                //    649  !        *L_128
                                                                //    650  !        *ST_DEL
                                                                //    651  !        *J_<NEXT>
                                                                //    652  !RLL3:
                                                                //    653  !        *LSS_(ONE CASE+%B);            ! LOWER CASE TO UPPER
                                                                //    654  !        *ICP_65;                       !'A'
                                                                //    655  !        *JCC_4,<RLL4>
                                                                //    656  !        *ICP_90;                       !'Z'
                                                                //    657  !        *JCC_2,<RLL4>
                                                                //    658  !        *OR_DEL
                                                                //    659  !        *J_<RLL5>
                                                                //    660  !RLL4:
                                                                //    661  !        *LB_0
                                                                //    662  !        *STB_DEL
                                                                //    663  !        *ICP_32;                       !' '
                                                                //    664  !        *JCC_8,<NEXT>
                                                                //    665  !RLL5:
                                                                //    666  !        *LB_LENGTH
                                                                //    667  !        *ADB_1
                                                                //    668  !        *STB_LENGTH
                                                                //    669  !        *ST_(CC+%B)
                                                                //    670  !        *ICP_39;                       !''''
                                                                //    671  !        *JCC_8,<RLL6>
                                                                //    672  !        *ICP_34;                       !'"'
                                                                //    673  !        *JCC_7,<RLL7>
                                                                //    674  !RLL6:
                                                                //    675  !        *ST_CHAR
                                                                //    676  !        *LB_1
                                                                //    677  !        *STB_MODE
                                                                //    678  !RLL7:
                                                                //    679  !        *ICP_10
                                                                //    680  !        *JCC_7,<NEXT>
                                                                //    681  !        *J_<RLL8>
                                                                //    682  !RLL2:
                                                                //    683  !        *LSS_%B
                                                                //    684  !        *LB_LENGTH
                                                                //    685  !        *ADB_1
                                                                //    686  !        *STB_LENGTH
                                                                //    687  !        *ST_(CC+%B)
                                                                //    688  !        *ICP_CHAR
                                                                //    689  !        *JCC_7,<RLL9>
                                                                //    690  !        *LB_0
                                                                //    691  !        *STB_MODE
                                                                //    692  !RLL9:
                                                                //    693  !        *ICP_10
                                                                //    694  !        *JCC_7,<NEXT>
                                                                //    695  !RLL8:
                                                                //    696  !     %FINISH
                                                                //    697        %IF CC(LENGTH-1)='C'+128 %THEN LENGTH=LENGTH-2 %AND ->NEXT
#line 697 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(LENGTH)) - (1))]) != (195))) goto L_0044;
#line 697 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (((int)(LENGTH)) - (2));
#line 697 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1001;
#line 697 "regression-compile-tmp/nrimp10s-77.imp"
L_0044:;
                                                                //    698        FAULT(101,0) %IF LENGTH>CCSIZE
#line 698 "regression-compile-tmp/nrimp10s-77.imp"
if (((LENGTH) <= (CCSIZE))) goto L_0045;
#line 698 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(101, 0);
#line 698 "regression-compile-tmp/nrimp10s-77.imp"
L_0045:;
                                                                //    699        %RETURN
#line 699 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    700  %ROUTINE GET LINE
#line 700 "regression-compile-tmp/nrimp10s-77.imp"
void GETLINE( void )
#line 700 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //    701  %SYSTEMROUTINESPEC IOCP(%INTEGER A,B)
#line 701 "regression-compile-tmp/nrimp10s-77.imp"
extern void iocp( int A, int B );
                                                                //    702  %CONSTBYTEINTEGERARRAY ITOI(0:255)={%C
#line 702 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char ITOI[256] = { 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 10, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 25, 26, 32, 32, 32, 32, 32, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 32, 26, 26, 26, 26, 26, 10, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 92, 38, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 35, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 35, 26, 26, 26, 26, 26, 94, [224 ... 255] = 26 };
                                                                //    703                    32(10),10,32(14),25,26,32(5),
                                                                //    704                    32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
                                                                //    705                    48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
                                                                //    706                    64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
                                                                //    707                    80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
                                                                //    708                    96,97,98,99,100,101,102,103,104,105,106,107,108,109,
                                                                //    709                    110,111,112,113,114,115,116,117,118,119,
                                                                //    710                    120,121,122,123,124,125,126,32,
                                                                //    711                    26(5),10,26(10),
                                                                //    712                    26(16),
                                                                //    713                    26(14),92,38,
                                                                //    714                    26(11),35,26(4),
                                                                //    715                    26(16),
                                                                //    716                    26(9),35,26(5),94,
                                                                //    717                    26(32);
                                                                //    718  %INTEGER K
#line 718 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //    719        LL=0
#line 719 "regression-compile-tmp/nrimp10s-77.imp"
LL = 0;
                                                                //    720        %IF FILE ADDR=0 %THEN %START;     ! SOURCE NOT A 'CLEAN' FILE
#line 720 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILEADDR) != (0))) goto L_0046;
                                                                //    721           {%UNTIL K=NL} %CYCLE
#line 721 "regression-compile-tmp/nrimp10s-77.imp"
L_0047:;
                                                                //    722              READ SYMBOL(K)
#line 722 "regression-compile-tmp/nrimp10s-77.imp"
_imp_READSYMBOL(&K);
                                                                //    723              TLINE(LL+1)=ITOI(K)
#line 723 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[(((unsigned char)((((int)(LL)) + (1)))) + (60))] = ITOI[K];
                                                                //    724              LL=LL+1
#line 724 "regression-compile-tmp/nrimp10s-77.imp"
LL = (((int)(LL)) + (1));
                                                                //    725           %REPEAT %UNTIL K=NL
#line 725 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (10))) goto L_0048;
#line 725 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0047;
#line 725 "regression-compile-tmp/nrimp10s-77.imp"
L_0048:;
                                                                //    726        %FINISH %ELSE %START
#line 726 "regression-compile-tmp/nrimp10s-77.imp"
goto L_004a;
#line 726 "regression-compile-tmp/nrimp10s-77.imp"
L_0046:;
                                                                //    727          %IF FILEPTR>=FILE END %START
#line 727 "regression-compile-tmp/nrimp10s-77.imp"
if (((FILEPTR) < (FILEEND))) goto L_004b;
                                                                //    728              %IF IHEAD#0 %THEN POP(IHEAD,FILEADDR,FILEPTR,FILEEND) %AND GETLINE %AND %RETURN
#line 728 "regression-compile-tmp/nrimp10s-77.imp"
if (((IHEAD) == (0))) goto L_004c;
#line 728 "regression-compile-tmp/nrimp10s-77.imp"
POP(&IHEAD, &FILEADDR, &FILEPTR, &FILEEND);
#line 728 "regression-compile-tmp/nrimp10s-77.imp"
GETLINE();
#line 728 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 728 "regression-compile-tmp/nrimp10s-77.imp"
L_004c:;
                                                                //    729                 %SIGNAL %EVENT 9,1
#line 729 "regression-compile-tmp/nrimp10s-77.imp"
_imp_signal(9, 1, 0, "");
                                                                //    730           %FINISH
#line 730 "regression-compile-tmp/nrimp10s-77.imp"
L_004b:;
                                                                //    731  !        %IF USE IMP=NO %THEN %START
                                                                //    732  !           *LDA_FILEPTR
                                                                //    733  !           *LB_FILEEND
                                                                //    734  !           *SBB_FILEPTR
                                                                //    735  !           *ADB_16_18000000
                                                                //    736  !           *LDTB_%B
                                                                //    737  !           *SWNE_%L=%DR,0,10
                                                                //    738  !           *JCC_8,<IMP>
                                                                //    739  !           *CYD_0
                                                                //    740  !           *STUH_%B
                                                                //    741  !           *IAD_1
                                                                //    742  !           *ST_%B
                                                                //    743  !           *ISB_FILEPTR
                                                                //    744  !           *ST_LL
                                                                //    745  !           *LDA_FILEPTR
                                                                //    746  !           *STB_FILEPTR
                                                                //    747  !           *LDB_LL
                                                                //    748  !           *CYD_0
                                                                //    749  !           *LDA_ATLINE1
                                                                //    750  !           *MV_%L=%DR,0,0
                                                                //    751  !           *LDA_ATLINE1; *LDTB_16_18000000
                                                                //    752  !           *LDB_LL
                                                                //    753  !           *LSS_ITOI+4; *LUH_16_180000FF
                                                                //    754  !           *TTR_%L=%DR
                                                                //    755  !           ->OLIST
                                                                //    756  !        %FINISH
                                                                //    757  IMP:
#line 757 "regression-compile-tmp/nrimp10s-77.imp"
U_1002:;
                                                                //    758           {%UNTIL K=NL %OR K=0} %CYCLE
#line 758 "regression-compile-tmp/nrimp10s-77.imp"
L_004d:;
                                                                //    759              K=BYTE INTEGER(FILEPTR);    ! NEXT CHAR FROM SORCE FILE
#line 759 "regression-compile-tmp/nrimp10s-77.imp"
K = *_imp_BYTEINTEGER(FILEPTR);
                                                                //    760              FILE PTR=FILE PTR+1
#line 760 "regression-compile-tmp/nrimp10s-77.imp"
FILEPTR = (((int)(FILEPTR)) + (1));
                                                                //    761              TLINE(LL+1)=ITOI(K)
#line 761 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[(((unsigned char)((((int)(LL)) + (1)))) + (60))] = ITOI[K];
                                                                //    762              LL=LL+1
#line 762 "regression-compile-tmp/nrimp10s-77.imp"
LL = (((int)(LL)) + (1));
                                                                //    763           %REPEAT %UNTIL K=NL %OR K=0
#line 763 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (10))) goto L_004e;
#line 763 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_004e;
#line 763 "regression-compile-tmp/nrimp10s-77.imp"
goto L_004d;
#line 763 "regression-compile-tmp/nrimp10s-77.imp"
L_004e:;
                                                                //    764  OLIST:
#line 764 "regression-compile-tmp/nrimp10s-77.imp"
U_1003:;
                                                                //    765        %FINISH
#line 765 "regression-compile-tmp/nrimp10s-77.imp"
L_004a:;
                                                                //    766  !      %IF MODE=0 %AND LL=1 %THEN GET LINE %AND %RETURN
                                                                //    767  !      LINE=LINE+1 %UNLESS MODE=0 %AND LENGTH>0
                                                                //    768        LINE=LINE+1;                      ! COUNT ALL LINES
#line 768 "regression-compile-tmp/nrimp10s-77.imp"
LINE = (((int)(LINE)) + (1));
                                                                //    769        %IF LIST#0 %THEN %START
#line 769 "regression-compile-tmp/nrimp10s-77.imp"
if (((LIST) == (0))) goto L_0050;
                                                                //    770           %IF MODE=0 %AND LENGTH>0 %THEN PRINTSTRING("     C") %ELSE WRITE(LINE, 5)
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0051;
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
if (((LENGTH) <= (0))) goto L_0051;
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("     C"));
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0052;
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
L_0051:;
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(LINE, 5);
#line 770 "regression-compile-tmp/nrimp10s-77.imp"
L_0052:;
                                                                //    771  !         SPACES(8)
                                                                //    772           %CYCLE K=-7,1,0
#line 772 "regression-compile-tmp/nrimp10s-77.imp"
K = (-8);
if ((((0)-((-7))) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle K = (-7), 1, 0");
L_0053:;
if (K == 0) goto L_0054;
K += 1;
                                                                //    773              TLINE(K)=' '
#line 773 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[((K) + ((int)(60)))] = 32;
                                                                //    774           %REPEAT
#line 774 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0053;
#line 774 "regression-compile-tmp/nrimp10s-77.imp"
L_0054:;
                                                                //    775        %IF MODE#0 %THEN TLINE(-7)=M'"'
#line 775 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (0))) goto L_0056;
#line 775 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[53] = 34;
#line 775 "regression-compile-tmp/nrimp10s-77.imp"
L_0056:;
                                                                //    776           TLINE(-8)=LL+8
#line 776 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[52] = (((int)(LL)) + (8));
                                                                //    777           IOCP(15,ADDR(TLINE(-8)))
#line 777 "regression-compile-tmp/nrimp10s-77.imp"
iocp(15, _imp_ADDR(&TLINE[52]));
                                                                //    778        %FINISH
#line 778 "regression-compile-tmp/nrimp10s-77.imp"
L_0050:;
                                                                //    779        %IF FREE FORMAT=0 %AND LL>73 %THEN TLINE(73)=10 %AND LL=73
#line 779 "regression-compile-tmp/nrimp10s-77.imp"
if (((FREEFORMAT) != (0))) goto L_0057;
#line 779 "regression-compile-tmp/nrimp10s-77.imp"
if (((LL) <= (73))) goto L_0057;
#line 779 "regression-compile-tmp/nrimp10s-77.imp"
TLINE[133] = 10;
#line 779 "regression-compile-tmp/nrimp10s-77.imp"
LL = 73;
#line 779 "regression-compile-tmp/nrimp10s-77.imp"
L_0057:;
                                                                //    780  %END
#line 780 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETLINE at level 5
                                                                //    781  %END
#line 781 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block READLINE at level 4
                                                                //    782  %INTEGERFN COMPARE(%INTEGER P)
#line 782 "regression-compile-tmp/nrimp10s-77.imp"
int COMPARE( int P )
#line 782 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //    783  %INTEGER I, J, ITEM, RA, RL, RP, RQ, RR, RS, MARKER, SSL, ALT, PP
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int ITEM;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RA;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RL;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RP;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RQ;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RR;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int RS;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int MARKER;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int SSL;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
#line 783 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
                                                                //    784  %OWNINTEGER SAVECOMP;                   ! FOR CHECKING DSIDED CONDS
#line 784 "regression-compile-tmp/nrimp10s-77.imp"
static int SAVECOMP;
                                                                //    785  %SWITCH BIP(999:1038)
#line 785 "regression-compile-tmp/nrimp10s-77.imp"
static int sw1_BIP_idx;
static const void * /*SWITCH*/ sw1_BIP[40] = { &&sw1_BIP_999, &&sw1_BIP_1000, &&sw1_BIP_1001, &&sw1_BIP_1002, &&sw1_BIP_1003, &&sw1_BIP_1004, &&sw1_BIP_1005, &&sw1_BIP_1006, &&sw1_BIP_1007, &&sw1_BIP_1008, &&sw1_BIP_1009, &&sw1_BIP_1010, &&sw1_BIP_1011, &&sw1_BIP_1012, &&sw1_BIP_1013, &&sw1_BIP_1014, &&sw1_BIP_1015, &&sw1_BIP_1016, &&sw1_BIP_1017, &&sw1_BIP_1018, &&sw1_BIP_1019, &&sw1_BIP_1020, &&sw1_BIP_1021, &&sw1_BIP_1022, &&sw1_BIP_1023, &&sw1_BIP_1024, &&sw1_BIP_1025, &&sw1_BIP_1026, &&sw1_BIP_1027, &&sw1_BIP_1028, &&sw1_BIP_1029, &&sw1_BIP_1030, &&sw1_BIP_1031, &&sw1_BIP_1032, &&sw1_BIP_1033, &&sw1_BIP_1034, &&sw1_BIP_1035, &&sw1_BIP_1036, &&sw1_BIP_1037, &&sw1_BIP_1038,  };
                                                                //    786  !     %IF USE IMP=YES %THEN %START
                                                                //    787           RP=SYMBOL(P)
#line 787 "regression-compile-tmp/nrimp10s-77.imp"
RP = (SYMBOL-1300)[P];
                                                                //    788           RL=LEVEL
#line 788 "regression-compile-tmp/nrimp10s-77.imp"
RL = LEVEL;
                                                                //    789           P=P+1
#line 789 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //    790           PP=P;                          ! ROUTINE REALLY STARTS HERE
#line 790 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
                                                                //    791  !     %FINISH %ELSE %START
                                                                //    792  !        *LB_P
                                                                //    793  !        *JLK_2
                                                                //    794  !        *EXIT_-64
                                                                //    795  !SUBENTRY:
                                                                //    796  !        *LSS_(ASYM0+%B)
                                                                //    797  !        *LUH_LEVEL
                                                                //    798  !        *ST_RL
                                                                //    799  !        *ADB_1
                                                                //    800  !        *STB_P
                                                                //    801  !        *STB_PP
                                                                //    802  !     %FINISH
                                                                //    803  COMM:
#line 803 "regression-compile-tmp/nrimp10s-77.imp"
U_1004:;
                                                                //    804  !     %IF USE IMP=YES %THEN %START
                                                                //    805           RQ=Q;                          ! RESET VALUES OF LINE&AR PTRS
#line 805 "regression-compile-tmp/nrimp10s-77.imp"
RQ = Q;
                                                                //    806           RR=R
#line 806 "regression-compile-tmp/nrimp10s-77.imp"
RR = R;
                                                                //    807           SSL=STRLINK;                   ! SAVE STRING LINK
#line 807 "regression-compile-tmp/nrimp10s-77.imp"
SSL = STRLINK;
                                                                //    808           ALT=1;                         ! FIRST ALTERNATIVE TO BE TRIED
#line 808 "regression-compile-tmp/nrimp10s-77.imp"
ALT = 1;
                                                                //    809           RA=SYMBOL(P);                  ! RA TO NEXT PHRASE ALTERNATIVE
#line 809 "regression-compile-tmp/nrimp10s-77.imp"
RA = (SYMBOL-1300)[P];
                                                                //    810           RS=P
#line 810 "regression-compile-tmp/nrimp10s-77.imp"
RS = P;
                                                                //    811  !     %FINISH %ELSE %START
                                                                //    812  !        *LSD_Q
                                                                //    813  !        *ST_RQ
                                                                //    814  !        *LSS_1
                                                                //    815  !        *LUH_STRLINK
                                                                //    816  !        *ST_SSL
                                                                //    817  !        *LB_P
                                                                //    818  !        *LSS_(ASYM0+%B)
                                                                //    819  !        *ST_RA
                                                                //    820  !        *STB_RS
                                                                //    821  !     %FINISH
                                                                //    822  UPR:     R=R+1
#line 822 "regression-compile-tmp/nrimp10s-77.imp"
U_1005:;
#line 822 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (1));
                                                                //    823  SUCC:                                   ! SUCCESS ON TO NEXT ITEM
#line 823 "regression-compile-tmp/nrimp10s-77.imp"
U_1006:;
                                                                //    824  !     %IF USE IMP=YES %THEN %START
                                                                //    825           RS=RS+1;                       ! RS=NEXT ALTERNATIVE MEANS THAT
#line 825 "regression-compile-tmp/nrimp10s-77.imp"
RS = (((int)(RS)) + (1));
                                                                //    826                                          ! THIS ALT HAS BEEN COMPLETED SO
                                                                //    827                                          ! EXIT WITH HIT=1
                                                                //    828           %IF RS=RA %THEN ->FINI
#line 828 "regression-compile-tmp/nrimp10s-77.imp"
if (((RS) != (RA))) goto L_0058;
#line 828 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1007;
#line 828 "regression-compile-tmp/nrimp10s-77.imp"
L_0058:;
                                                                //    829           ITEM=SYMBOL(RS);               ! NEXT BRICK IN THE CURRENT ALT
#line 829 "regression-compile-tmp/nrimp10s-77.imp"
ITEM = (SYMBOL-1300)[RS];
                                                                //    830           %IF ITEM<999 %THEN ->LIT
#line 830 "regression-compile-tmp/nrimp10s-77.imp"
if (((ITEM) >= (999))) goto L_0059;
#line 830 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1008;
#line 830 "regression-compile-tmp/nrimp10s-77.imp"
L_0059:;
                                                                //    831  !     %FINISH %ELSE %START
                                                                //    832  !        *LB_RS
                                                                //    833  !        *ADB_1
                                                                //    834  !        *CPB_RA
                                                                //    835  !        *JCC_8,<FINI>
                                                                //    836  !        *STB_RS
                                                                //    837  !        *LB_(ASYM0+%B)
                                                                //    838  !        *CPB_999
                                                                //    839  !        *JCC_4,<LIT>
                                                                //    840  !        *STB_ITEM
                                                                //    841  !     %FINISH
                                                                //    842        %IF ITEM<1300  %THEN ->BIP(ITEM)
#line 842 "regression-compile-tmp/nrimp10s-77.imp"
if (((ITEM) >= (1300))) goto L_005a;
#line 842 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_idx = ITEM; if ((999 <= sw1_BIP_idx) && (sw1_BIP_idx <= 1038)) goto *(sw1_BIP-999)[sw1_BIP_idx];  /* Bounds=999:1038 */ else {
   /*_imp_signal(8, 2, sw1_BIP_idx);*/
   fprintf(stderr, "%%SWITCH index BIP(%d) not in range 999:1038 at %s:%d\n",
           sw1_BIP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 842 "regression-compile-tmp/nrimp10s-77.imp"
L_005a:;
                                                                //    843                                          ! BRICK IS A PHRASE TYPE
                                                                //    844  !     %IF USE IMP=YES %THEN %START
                                                                //    845           %IF COMPARE(ITEM)=0 %THEN ->FAIL
#line 845 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPARE(ITEM)) != (0))) goto L_005b;
#line 845 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 845 "regression-compile-tmp/nrimp10s-77.imp"
L_005b:;
                                                                //    846  !     %FINISH %ELSE %START
                                                                //    847  !        *LSD_RA
                                                                //    848  !        *SLSQ_RP
                                                                //    849  !        *SLSQ_MARKER
                                                                //    850  !        *ST_%TOS
                                                                //    851  !        *LB_ITEM
                                                                //    852  !        *JLK_<SUBENTRY>
                                                                //    853  !        *ST_%B;                        ! RESULT=0 FOR FAIL
                                                                //    854  !        *LSQ_%TOS; *ST_MARKER
                                                                //    855  !        *LSQ_%TOS; *ST_RP
                                                                //    856  !        *LSD_%TOS; *ST_RA
                                                                //    857  !        *JAT_12,<FAIL>
                                                                //    858  !     %FINISH
                                                                //    859        ->SUCC
#line 859 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    860  LIT:                                    ! BRICK IS LITERAL
#line 860 "regression-compile-tmp/nrimp10s-77.imp"
U_1008:;
                                                                //    861  !     %IF USE IMP=YES %THEN %START
                                                                //    862           I=CC(Q);                       ! OBTAIN CURRENT CHARACTER
#line 862 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    863           ->FAIL %UNLESS I=CLETT(ITEM+1)
#line 863 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (CLETT[(((int)(ITEM)) + (1))]))) goto L_005c;
#line 863 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 863 "regression-compile-tmp/nrimp10s-77.imp"
L_005c:;
                                                                //    864           Q=Q+1
#line 864 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    865           K=CLETT(ITEM)+ITEM
#line 865 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(CLETT[ITEM])) + (ITEM));
                                                                //    866           ITEM=ITEM+2
#line 866 "regression-compile-tmp/nrimp10s-77.imp"
ITEM = (((int)(ITEM)) + (2));
                                                                //    867           %WHILE ITEM<=K %CYCLE
#line 867 "regression-compile-tmp/nrimp10s-77.imp"
L_005d:;
#line 867 "regression-compile-tmp/nrimp10s-77.imp"
if (((ITEM) > (K))) goto L_005e;
                                                                //    868              ->FAIL %UNLESS CC(Q)=CLETT(ITEM)
#line 868 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) == (CLETT[ITEM]))) goto L_0060;
#line 868 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 868 "regression-compile-tmp/nrimp10s-77.imp"
L_0060:;
                                                                //    869              Q=Q+1
#line 869 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    870              ITEM=ITEM+1
#line 870 "regression-compile-tmp/nrimp10s-77.imp"
ITEM = (((int)(ITEM)) + (1));
                                                                //    871           %REPEAT;                       ! CHECK IT WITH LITERAL DICT ENTRY
#line 871 "regression-compile-tmp/nrimp10s-77.imp"
goto L_005d;
#line 871 "regression-compile-tmp/nrimp10s-77.imp"
L_005e:;
                                                                //    872  !     %FINISH %ELSE %START
                                                                //    873  !        *LDB_(CLETT+%B)
                                                                //    874  !        *INCA_%B
                                                                //    875  !        *INCA_1
                                                                //    876  !        *LSS_Q
                                                                //    877  !        *IAD_CC+4
                                                                //    878  !        *LUH_CC
                                                                //    879  !        *CPS_%L=%DR,0,0
                                                                //    880  !        *JCC_7,<FAIL>
                                                                //    881  !        *STUH_%B
                                                                //    882  !        *ISB_CC+4
                                                                //    883  !        *ST_Q
                                                                //    884  !     %FINISH
                                                                //    885        ->SUCC;                           ! MATCHED SUCCESSFULLY
#line 885 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    886  FAIL:                                   ! FAILURE - NOTE POSITION REACHD
#line 886 "regression-compile-tmp/nrimp10s-77.imp"
U_1009:;
                                                                //    887  !     %IF USE IMP=YES %THEN %START
                                                                //    888           %IF RA=RP %THEN ->TFAIL;       ! TOTAL FAILURE NO ALT TO TRY
#line 888 "regression-compile-tmp/nrimp10s-77.imp"
if (((RA) != (RP))) goto L_0061;
#line 888 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100a;
#line 888 "regression-compile-tmp/nrimp10s-77.imp"
L_0061:;
                                                                //    889           QMAX=Q %IF Q>QMAX
#line 889 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) <= (QMAX))) goto L_0062;
#line 889 "regression-compile-tmp/nrimp10s-77.imp"
QMAX = Q;
#line 889 "regression-compile-tmp/nrimp10s-77.imp"
L_0062:;
                                                                //    890           Q=RQ;                          ! RESET LINE AND A.R. POINTERS
#line 890 "regression-compile-tmp/nrimp10s-77.imp"
Q = RQ;
                                                                //    891           R=RR+1;                        ! AVOID GOING VIA UPR:
#line 891 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(RR)) + (1));
                                                                //    892           STRLINK=SSL
#line 892 "regression-compile-tmp/nrimp10s-77.imp"
STRLINK = SSL;
                                                                //    893           ALT=ALT+1;                     ! MOVE TO NEXT ALT OF PHRASE
#line 893 "regression-compile-tmp/nrimp10s-77.imp"
ALT = (((int)(ALT)) + (1));
                                                                //    894           RS=RA
#line 894 "regression-compile-tmp/nrimp10s-77.imp"
RS = RA;
                                                                //    895           RA=SYMBOL(RA)
#line 895 "regression-compile-tmp/nrimp10s-77.imp"
RA = (SYMBOL-1300)[RA];
                                                                //    896  !     %FINISH %ELSE %START
                                                                //    897  !        *LB_RA
                                                                //    898  !        *CPB_RP
                                                                //    899  !        *JCC_8,<TFAIL>
                                                                //    900  !        *LSS_Q
                                                                //    901  !        *ICP_QMAX
                                                                //    902  !        *JCC_12,<CPL1>
                                                                //    903  !        *ST_QMAX
                                                                //    904  !CPL1:    *LSD_RQ
                                                                //    905  !        *IAD_1
                                                                //    906  !        *ST_Q
                                                                //    907  !        *L_SSL
                                                                //    908  !        *STUH_STRLINK
                                                                //    909  !        *IAD_1
                                                                //    910  !        *ST_ALT
                                                                //    911  !        *STB_RS
                                                                //    912  !        *L_(ASYM0+%B)
                                                                //    913  !        *ST_RA
                                                                //    914  !     %FINISH
                                                                //    915        ->SUCC
#line 915 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    916  TFAIL:
#line 916 "regression-compile-tmp/nrimp10s-77.imp"
U_100a:;
                                                                //    917        LEVEL=RL
#line 917 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = RL;
                                                                //    918  !     %IF USE IMP=YES %THEN %START
                                                                //    919           %RESULT=0
#line 919 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //    920  !     %FINISH %ELSE %START
                                                                //    921  !        *LSS_0; *J_%TOS
                                                                //    922  !     %FINISH
                                                                //    923  BIP(999):                               ! REPEATED PHRASE
#line 923 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_999:;
                                                                //    924        A(RR)=ALT; P=PP
#line 924 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = ALT;
#line 924 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
                                                                //    925        ->COMM
#line 925 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1004;
                                                                //    926  BIP(1000):FINI:                         ! NULL ALWAYS LAST & OK
#line 926 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1000:;
#line 926 "regression-compile-tmp/nrimp10s-77.imp"
U_1007:;
                                                                //    927        A(RR)=ALT
#line 927 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = ALT;
                                                                //    928  !     %IF USE IMP=YES %THEN %START
                                                                //    929           %RESULT=1
#line 929 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //    930  !     %FINISH %ELSE %START
                                                                //    931  !        *LSS_1; *J_%TOS
                                                                //    932  !     %FINISH
                                                                //    933  BIP(1001):                              ! PHRASE NAME
#line 933 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1001:;
                                                                //    934  BIP(1004):                              ! PHRASE OLDNAME
#line 934 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1004:;
                                                                //    935        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 935 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    936        ->FAIL %UNLESS TRTAB(I)=2
#line 936 "regression-compile-tmp/nrimp10s-77.imp"
if (((TRTAB[I]) == (2))) goto L_0063;
#line 936 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 936 "regression-compile-tmp/nrimp10s-77.imp"
L_0063:;
                                                                //    937        PNAME(ITEM-1004)
#line 937 "regression-compile-tmp/nrimp10s-77.imp"
PNAME((((int)(ITEM)) - (1004)));
                                                                //    938        ->SUCC %IF HIT=1;  ->FAIL
#line 938 "regression-compile-tmp/nrimp10s-77.imp"
if (((HIT) != (1))) goto L_0064;
#line 938 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 938 "regression-compile-tmp/nrimp10s-77.imp"
L_0064:;
#line 938 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //    939  BIP(1002):                              ! PHRASE INTEGER CONSTANT
#line 939 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1002:;
                                                                //    940  BIP(1003):                              ! PHRASE CONST
#line 940 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1003:;
                                                                //    941        CONST(ITEM-1003)
#line 941 "regression-compile-tmp/nrimp10s-77.imp"
CONST((((int)(ITEM)) - (1003)));
                                                                //    942        ->FAIL %IF HIT=0
#line 942 "regression-compile-tmp/nrimp10s-77.imp"
if (((HIT) != (0))) goto L_0065;
#line 942 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 942 "regression-compile-tmp/nrimp10s-77.imp"
L_0065:;
                                                                //    943        ->SUCC
#line 943 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    944  BIP(1005):                              ! PHRASE N 
#line 944 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1005:;
                                                                //    945        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 945 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    946        ->FAIL %UNLESS '0'<=I<='9'
#line 946 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0066;
#line 946 "regression-compile-tmp/nrimp10s-77.imp"
L_005f:;
#line 946 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 946 "regression-compile-tmp/nrimp10s-77.imp"
L_0066:;
                                                                //    947        S=0
#line 947 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
                                                                //    948        %WHILE '0'<=I<='9' %CYCLE
#line 948 "regression-compile-tmp/nrimp10s-77.imp"
L_0067:;
#line 948 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_0068;
                                                                //    949           S=10*S+I&15
#line 949 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((((int)(10)) * (S)))) + (((I) & (15))));
                                                                //    950           Q=Q+1; I=CC(Q)
#line 950 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 950 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    951        %REPEAT
#line 951 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0067;
#line 951 "regression-compile-tmp/nrimp10s-77.imp"
L_0068:;
                                                                //    952        TOAR2(R,S)
#line 952 "regression-compile-tmp/nrimp10s-77.imp"
TOAR2(R, S);
                                                                //    953        R=R+2; ->SUCC
#line 953 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
#line 953 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    954  BIP(1006):                              ! PHRASE S=SEPARATOR
#line 954 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1006:;
                                                                //    955        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 955 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    956        ->SUCC %IF I=NL
#line 956 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (10))) goto L_006a;
#line 956 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 956 "regression-compile-tmp/nrimp10s-77.imp"
L_006a:;
                                                                //    957        ->FAIL %UNLESS I=';'
#line 957 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (59))) goto L_006b;
#line 957 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 957 "regression-compile-tmp/nrimp10s-77.imp"
L_006b:;
                                                                //    958        Q=Q+1; ->SUCC
#line 958 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 958 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    959  BIP(1007):
#line 959 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1007:;
                                                                //    960                                          ! PHRASE COMMENT TEXT
                                                                //    961        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 961 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    962        J=I
#line 962 "regression-compile-tmp/nrimp10s-77.imp"
J = I;
                                                                //    963        ->TX %IF I=';' %OR I=NL
#line 963 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (59))) goto L_0069;
#line 963 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (10))) goto L_006c;
#line 963 "regression-compile-tmp/nrimp10s-77.imp"
L_0069:;
#line 963 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100b;
#line 963 "regression-compile-tmp/nrimp10s-77.imp"
L_006c:;
                                                                //    964        ->FAIL %UNLESS I='!' %OR I='|' %OR (I='C'+128 %AND CC(Q+1)='O'+128 %AND CC(Q+2)=CC(Q+3)='M'+128 %AND CC(Q+4)='E'+128 %AND CC(Q+5)='N'+128 %AND CC(Q+6)='T'+128)
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (33))) goto L_006d;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (124))) goto L_006d;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (195))) goto L_006e;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (207))) goto L_006e;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if ((((CC[(((int)(Q)) + (2))]) != (CC[(((int)(Q)) + (3))]))) || (((CC[(((int)(Q)) + (3))]) != (205)))) goto L_006e;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (4))]) != (197))) goto L_006e;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (5))]) != (206))) goto L_006e;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (6))]) == (212))) goto L_006d;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
L_006e:;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 964 "regression-compile-tmp/nrimp10s-77.imp"
L_006d:;
                                                                //    965        Q=Q+1+6*(I>>7); J=CC(Q)
#line 965 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((((((int)(Q)) + (1)))) + (((6) * ((int)((int)((((unsigned int)(I)) >> (7))))))));
#line 965 "regression-compile-tmp/nrimp10s-77.imp"
J = CC[Q];
                                                                //    966        %CYCLE
#line 966 "regression-compile-tmp/nrimp10s-77.imp"
L_006f:;
                                                                //    967           %EXIT %IF J=NL %OR J=';'
#line 967 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (10))) goto L_0055;
#line 967 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (59))) goto L_0072;
#line 967 "regression-compile-tmp/nrimp10s-77.imp"
L_0055:;
#line 967 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0070;
#line 967 "regression-compile-tmp/nrimp10s-77.imp"
L_0072:;
                                                                //    968           Q=Q+1; J=CC(Q)
#line 968 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 968 "regression-compile-tmp/nrimp10s-77.imp"
J = CC[Q];
                                                                //    969        %REPEAT
#line 969 "regression-compile-tmp/nrimp10s-77.imp"
goto L_006f;
#line 969 "regression-compile-tmp/nrimp10s-77.imp"
L_0070:;
                                                                //    970  TX:   Q=Q+1 %IF J=';'
#line 970 "regression-compile-tmp/nrimp10s-77.imp"
U_100b:;
#line 970 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (59))) goto L_0073;
#line 970 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 970 "regression-compile-tmp/nrimp10s-77.imp"
L_0073:;
                                                                //    971        ->SUCC
#line 971 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    972  BIP(1008):                              ! PHRASE BIGHOLE
#line 972 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1008:;
                                                                //    973        TO AR4(R,0)
#line 973 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, 0);
                                                                //    974        R=R+4; ->SUCC
#line 974 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
#line 974 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    975  BIP(1009):                              ! PHRASE N255
#line 975 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1009:;
                                                                //    976        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 976 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    977        ->FAIL %UNLESS '0'<=I<='9'
#line 977 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0074;
#line 977 "regression-compile-tmp/nrimp10s-77.imp"
L_0071:;
#line 977 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 977 "regression-compile-tmp/nrimp10s-77.imp"
L_0074:;
                                                                //    978        S=0
#line 978 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
                                                                //    979        %WHILE '0'<=I<='9' %CYCLE
#line 979 "regression-compile-tmp/nrimp10s-77.imp"
L_0075:;
#line 979 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_0076;
                                                                //    980           S=10*S+I&15
#line 980 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((((int)(10)) * (S)))) + (((I) & (15))));
                                                                //    981           Q=Q+1; I=CC(Q)
#line 981 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 981 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    982        %REPEAT
#line 982 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0075;
#line 982 "regression-compile-tmp/nrimp10s-77.imp"
L_0076:;
                                                                //    983        ->FAIL %UNLESS 0<=S<=255
#line 983 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (S))) || (((S) <= (255)))) goto L_0078;
#line 983 "regression-compile-tmp/nrimp10s-77.imp"
L_0077:;
#line 983 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 983 "regression-compile-tmp/nrimp10s-77.imp"
L_0078:;
                                                                //    984        A(R)=S; ->UPR
#line 984 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = S;
#line 984 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //    985  BIP(1010):                              ! PHRASE HOLE
#line 985 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1010:;
                                                                //    986        MARKER=R;  R=R+2;  ->SUCC
#line 986 "regression-compile-tmp/nrimp10s-77.imp"
MARKER = R;
#line 986 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
#line 986 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    987  BIP(1011):                              ! PHRASE MARK
#line 987 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1011:;
                                                                //    988        I=R-MARKER
#line 988 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(R)) - (MARKER));
                                                                //    989        A(MARKER+1)<-I
#line 989 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(MARKER)) + (1))] = I;
                                                                //    990        A(MARKER)<-I>>8
#line 990 "regression-compile-tmp/nrimp10s-77.imp"
A[MARKER] = (int)((((unsigned int)(I)) >> (8)));
                                                                //    991        ->SUCC
#line 991 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //    992  BIP(1012):                              ! PHRASE READLINE?
#line 992 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1012:;
                                                                //    993        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 993 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    994        %WHILE I=NL %%CYCLE
#line 994 "regression-compile-tmp/nrimp10s-77.imp"
L_0079:;
#line 994 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (10))) goto L_007a;
                                                                //    995           READLINE(0,0)
#line 995 "regression-compile-tmp/nrimp10s-77.imp"
READLINE(0, 0);
                                                                //    996           RQ=1
#line 996 "regression-compile-tmp/nrimp10s-77.imp"
RQ = 1;
                                                                //    997           I=CC(Q)
#line 997 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //    998        %REPEAT
#line 998 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0079;
#line 998 "regression-compile-tmp/nrimp10s-77.imp"
L_007a:;
                                                                //    999        FAULT(102,0) %IF R>ARSIZE
#line 999 "regression-compile-tmp/nrimp10s-77.imp"
if (((R) <= (ARSIZE))) goto L_007c;
#line 999 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(102, 0);
#line 999 "regression-compile-tmp/nrimp10s-77.imp"
L_007c:;
                                                                //   1000        ->SUCC
#line 1000 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1001  BIP(1013):                              ! PHRASE CHECKIMPS
#line 1001 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1013:;
                                                                //   1002        ->FAIL %UNLESS IMPS=1;  ->SUCC
#line 1002 "regression-compile-tmp/nrimp10s-77.imp"
if (((IMPS) == (1))) goto L_007d;
#line 1002 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1002 "regression-compile-tmp/nrimp10s-77.imp"
L_007d:;
#line 1002 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1003  BIP(1014):                              ! PHRASE DUMMY APP
#line 1003 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1014:;
                                                                //   1004        A(R)=2; A(R+1)=2
#line 1004 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 2;
#line 1004 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(R)) + (1))] = 2;
                                                                //   1005        R=R+2; ->SUCC
#line 1005 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
#line 1005 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1006  BIP(1015):                              ! PHRASE DOWN=NEW TEXT LEVEL
#line 1006 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1015:;
                                                                //   1007        LEVEL=LEVEL+1
#line 1007 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = (((int)(LEVEL)) + (1));
                                                                //   1008        TO AR4(R,0)
#line 1008 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, 0);
                                                                //   1009        DISPLAY(LEVEL)=R
#line 1009 "regression-compile-tmp/nrimp10s-77.imp"
DISPLAY[LEVEL] = R;
                                                                //   1010        SFS(LEVEL)=0
#line 1010 "regression-compile-tmp/nrimp10s-77.imp"
SFS[LEVEL] = 0;
                                                                //   1011        R=R+4
#line 1011 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
                                                                //   1012        ->SUCC
#line 1012 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1013  BIP(1016):                              ! PHRASE UP 1 TEXTUAL LEVEL
#line 1013 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1016:;
                                                                //   1014        DISPLAY(LEVEL)=0
#line 1014 "regression-compile-tmp/nrimp10s-77.imp"
DISPLAY[LEVEL] = 0;
                                                                //   1015        %WHILE SFS(LEVEL)#0 %CYCLE
#line 1015 "regression-compile-tmp/nrimp10s-77.imp"
L_007e:;
#line 1015 "regression-compile-tmp/nrimp10s-77.imp"
if (((SFS[LEVEL]) == (0))) goto L_007f;
                                                                //   1016           POP(SFS(LEVEL),I,J,K)
#line 1016 "regression-compile-tmp/nrimp10s-77.imp"
POP(&SFS[LEVEL], &I, &J, &K);
                                                                //   1017           %IF I=1 %THEN FAULT2(53,K,0);  ! FINISH MISSING
#line 1017 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_0081;
#line 1017 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(53, K, 0);
#line 1017 "regression-compile-tmp/nrimp10s-77.imp"
L_0081:;
                                                                //   1018           %IF I=2 %THEN FAULT2(13,K,0);  ! %REPEAT MISSING
#line 1018 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (2))) goto L_0082;
#line 1018 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(13, K, 0);
#line 1018 "regression-compile-tmp/nrimp10s-77.imp"
L_0082:;
                                                                //   1019        %REPEAT
#line 1019 "regression-compile-tmp/nrimp10s-77.imp"
goto L_007e;
#line 1019 "regression-compile-tmp/nrimp10s-77.imp"
L_007f:;
                                                                //   1020        LEVEL=LEVEL-1
#line 1020 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //   1021        ->SUCC
#line 1021 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1022  BIP(1017):                              ! PHRASE LISTON
#line 1022 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1017:;
                                                                //   1023        LIST=1;  ->SUCC
#line 1023 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 1;
#line 1023 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1024  BIP(1018):                              ! PHRASE LISTOFF
#line 1024 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1018:;
                                                                //   1025        LIST=0;  ->SUCC
#line 1025 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 0;
#line 1025 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1026  BIP(1019):                              ! PHRASE COLON FOR LABEL
#line 1026 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1019:;
                                                                //   1027        ->FAIL %UNLESS CC(Q-1)=':'
#line 1027 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) - (1))]) == (58))) goto L_0083;
#line 1027 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1027 "regression-compile-tmp/nrimp10s-77.imp"
L_0083:;
                                                                //   1028        ->SUCC
#line 1028 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1029  BIP(1020):                              ! PHRASE NOTE CONST
#line 1029 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1020:;
                                                                //   1030        %IF CTYPE=5 %THEN TOAR4(S-4,STRLINK) %AND STRLINK=S-4
#line 1030 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (5))) goto L_0084;
#line 1030 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4((((int)(S)) - (4)), STRLINK);
#line 1030 "regression-compile-tmp/nrimp10s-77.imp"
STRLINK = (((int)(S)) - (4));
#line 1030 "regression-compile-tmp/nrimp10s-77.imp"
L_0084:;
                                                                //   1031        ->SUCC
#line 1031 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1032  BIP(1021):                              ! TRACE FOR ON CONDITIONS
#line 1032 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1021:;
                                                                //   1033        PARMTRACE=1; ->SUCC
#line 1033 "regression-compile-tmp/nrimp10s-77.imp"
PARMTRACE = 1;
#line 1033 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1034  BIP(1022):                              ! SET MNEMONIC
#line 1034 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1022:;
                                                                //   1035        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1035 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1036        S=M'    '
#line 1036 "regression-compile-tmp/nrimp10s-77.imp"
S = 538976288;
                                                                //   1037        %WHILE 'A'<=I<='Z' %CYCLE
#line 1037 "regression-compile-tmp/nrimp10s-77.imp"
L_0085:;
#line 1037 "regression-compile-tmp/nrimp10s-77.imp"
if ((((65) > (I))) || (((I) > (90)))) goto L_0086;
                                                                //   1038           S=S<<8!I; Q=Q+1; I=CC(Q)
#line 1038 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((S) << (8))) | (I));
#line 1038 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1038 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1039        %REPEAT
#line 1039 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0085;
#line 1039 "regression-compile-tmp/nrimp10s-77.imp"
L_0086:;
                                                                //   1040        ->FAIL %UNLESS I='_' %AND S#M'    '
#line 1040 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (95))) goto L_0087;
#line 1040 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) != (538976288))) goto L_0088;
#line 1040 "regression-compile-tmp/nrimp10s-77.imp"
L_0087:;
#line 1040 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1040 "regression-compile-tmp/nrimp10s-77.imp"
L_0088:;
                                                                //   1041        Q=Q+1; ->SUCC
#line 1041 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1041 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1042  BIP(1023):                              ! PRIMARY FORMAT MNEMOINC
#line 1042 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1023:;
                                                                //   1043        %CYCLE I=7,1,126
#line 1043 "regression-compile-tmp/nrimp10s-77.imp"
I = 6;
if ((((126)-(7)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 7, 1, 126");
L_0089:;
if (I == 126) goto L_008a;
I += 1;
                                                                //   1044           ->PFND %IF OPC(I)=S
#line 1044 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPC[I]) != (S))) goto L_008c;
#line 1044 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
#line 1044 "regression-compile-tmp/nrimp10s-77.imp"
L_008c:;
                                                                //   1045        %REPEAT
#line 1045 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0089;
#line 1045 "regression-compile-tmp/nrimp10s-77.imp"
L_008a:;
                                                                //   1046        ->FAIL
#line 1046 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1047  PFND:
#line 1047 "regression-compile-tmp/nrimp10s-77.imp"
U_100c:;
                                                                //   1048        ->FAIL %IF 8<=I>>3<=11 %AND I&7<=3
#line 1048 "regression-compile-tmp/nrimp10s-77.imp"
if ((((8) > ((int)((((unsigned int)(I)) >> (3)))))) || ((((int)((((unsigned int)(I)) >> (3)))) > (11)))) goto L_008d;
#line 1048 "regression-compile-tmp/nrimp10s-77.imp"
if (((((I) & (7))) > (3))) goto L_008d;
#line 1048 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1048 "regression-compile-tmp/nrimp10s-77.imp"
L_008d:;
                                                                //   1049        A(R)=2*I; ->UPR
#line 1049 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = (((int)(2)) * (I));
#line 1049 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1050  BIP(1024):                              ! SECONDARY FORMAT MNEMONIC
#line 1050 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1024:;
                                                                //   1051        %CYCLE I=64,8,88
#line 1051 "regression-compile-tmp/nrimp10s-77.imp"
I = 56;
if ((((88)-(64)) % (8)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 64, 8, 88");
L_008e:;
if (I == 88) goto L_008f;
I += 8;
                                                                //   1052           %CYCLE J=0,1,3
#line 1052 "regression-compile-tmp/nrimp10s-77.imp"
J = (-1);
if ((((3)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 3");
L_0091:;
if (J == 3) goto L_0092;
J += 1;
                                                                //   1053              ->SFND %IF OPC(I+J)=S
#line 1053 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPC[(((int)(I)) + (J))]) != (S))) goto L_0094;
#line 1053 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100d;
#line 1053 "regression-compile-tmp/nrimp10s-77.imp"
L_0094:;
                                                                //   1054           %REPEAT
#line 1054 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0091;
#line 1054 "regression-compile-tmp/nrimp10s-77.imp"
L_0092:;
                                                                //   1055        %REPEAT
#line 1055 "regression-compile-tmp/nrimp10s-77.imp"
goto L_008e;
#line 1055 "regression-compile-tmp/nrimp10s-77.imp"
L_008f:;
                                                                //   1056        ->FAIL
#line 1056 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1057  SFND: A(R)=2*(I+J); ->UPR
#line 1057 "regression-compile-tmp/nrimp10s-77.imp"
U_100d:;
#line 1057 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = ((2) * ((int)((((int)(I)) + (J)))));
#line 1057 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1058  BIP(1025):                             ! TERTIARY FORMAT MNEMONIC
#line 1058 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1025:;
                                                                //   1059        %CYCLE I=3,-1,1
#line 1059 "regression-compile-tmp/nrimp10s-77.imp"
I = 4;
if ((((1)-(3)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 3, (-1), 1");
L_0095:;
if (I == 1) goto L_0096;
I += (-1);
                                                                //   1060           %IF OPC(I)=S %THEN A(R)=2*I %AND ->UPR
#line 1060 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPC[I]) != (S))) goto L_0098;
#line 1060 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = (((int)(2)) * (I));
#line 1060 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1060 "regression-compile-tmp/nrimp10s-77.imp"
L_0098:;
                                                                //   1061        %REPEAT; ->FAIL
#line 1061 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0095;
#line 1061 "regression-compile-tmp/nrimp10s-77.imp"
L_0096:;
#line 1061 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1062  BIP(1026):                              ! P(OP)=+,-,&,****,**,*,!!,!,
#line 1062 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1026:;
                                                                //   1063                                          ! //,/,>>,<<,.,\\,\;
                                                                //   1064        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1064 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1065        ->FAIL %UNLESS 32<I<127 %AND 16_80000000>>((I-32)&31)&16_4237000A#0
#line 1065 "regression-compile-tmp/nrimp10s-77.imp"
if ((((32) >= (I))) || (((I) >= (127)))) goto L_0097;
#line 1065 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)((-2147483648))) >> ((((((int)(I)) - (32))) & (31)))))) & (1110900746))) != (0))) goto L_0099;
#line 1065 "regression-compile-tmp/nrimp10s-77.imp"
L_0097:;
#line 1065 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1065 "regression-compile-tmp/nrimp10s-77.imp"
L_0099:;
                                                                //   1066        Q=Q+1
#line 1066 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1067        %IF I='+' %THEN A(R)=1 %AND ->UPR
#line 1067 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (43))) goto L_009a;
#line 1067 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 1;
#line 1067 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1067 "regression-compile-tmp/nrimp10s-77.imp"
L_009a:;
                                                                //   1068        %IF I='-' %THEN A(R)=2 %AND ->UPR
#line 1068 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_009b;
#line 1068 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 2;
#line 1068 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1068 "regression-compile-tmp/nrimp10s-77.imp"
L_009b:;
                                                                //   1069        %IF I='&' %THEN A(R)=3 %AND ->UPR
#line 1069 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (38))) goto L_009c;
#line 1069 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 3;
#line 1069 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1069 "regression-compile-tmp/nrimp10s-77.imp"
L_009c:;
                                                                //   1070        J=CC(Q)
#line 1070 "regression-compile-tmp/nrimp10s-77.imp"
J = CC[Q];
                                                                //   1071        %IF I='*' %THEN %START
#line 1071 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (42))) goto L_009d;
                                                                //   1072           %IF J#I %THEN A(R)=6 %AND ->UPR
#line 1072 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (I))) goto L_009e;
#line 1072 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 6;
#line 1072 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1072 "regression-compile-tmp/nrimp10s-77.imp"
L_009e:;
                                                                //   1073           %IF CC(Q+1)=I=CC(Q+2) %THEN A(R)=4 %AND Q=Q+3 %AND ->UPR
#line 1073 "regression-compile-tmp/nrimp10s-77.imp"
if ((((CC[(((int)(Q)) + (1))]) != (I))) || (((I) != (CC[(((int)(Q)) + (2))])))) goto L_009f;
#line 1073 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 4;
#line 1073 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (3));
#line 1073 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1073 "regression-compile-tmp/nrimp10s-77.imp"
L_009f:;
                                                                //   1074           A(R)=5; Q=Q+1; ->UPR
#line 1074 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 5;
#line 1074 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1074 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1075        %FINISH
#line 1075 "regression-compile-tmp/nrimp10s-77.imp"
L_009d:;
                                                                //   1076        %IF I='/' %THEN %START
#line 1076 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (47))) goto L_00a0;
                                                                //   1077           %IF J#I %THEN A(R)=10 %AND ->UPR
#line 1077 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (I))) goto L_00a1;
#line 1077 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 10;
#line 1077 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1077 "regression-compile-tmp/nrimp10s-77.imp"
L_00a1:;
                                                                //   1078           A(R)=9; Q=Q+1; ->UPR
#line 1078 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 9;
#line 1078 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1078 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1079        %FINISH
#line 1079 "regression-compile-tmp/nrimp10s-77.imp"
L_00a0:;
                                                                //   1080        %IF I='!' %THEN %START
#line 1080 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (33))) goto L_00a2;
                                                                //   1081           %IF J#I %THEN A(R)=8 %AND ->UPR
#line 1081 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (I))) goto L_00a3;
#line 1081 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 8;
#line 1081 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1081 "regression-compile-tmp/nrimp10s-77.imp"
L_00a3:;
                                                                //   1082           A(R)=7; Q=Q+1; ->UPR
#line 1082 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 7;
#line 1082 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1082 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1083        %FINISH
#line 1083 "regression-compile-tmp/nrimp10s-77.imp"
L_00a2:;
                                                                //   1084        %IF I='.' %THEN A(R)=13 %AND ->UPR
#line 1084 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (46))) goto L_00a4;
#line 1084 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 13;
#line 1084 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1084 "regression-compile-tmp/nrimp10s-77.imp"
L_00a4:;
                                                                //   1085        %IF I=J='<' %THEN A(R)=12 %AND Q=Q+1 %AND ->UPR
#line 1085 "regression-compile-tmp/nrimp10s-77.imp"
if ((((I) != (J))) || (((J) != (60)))) goto L_00a5;
#line 1085 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 12;
#line 1085 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1085 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1085 "regression-compile-tmp/nrimp10s-77.imp"
L_00a5:;
                                                                //   1086        %IF I=J='>' %THEN A(R)=11 %AND Q=Q+1 %AND ->UPR
#line 1086 "regression-compile-tmp/nrimp10s-77.imp"
if ((((I) != (J))) || (((J) != (62)))) goto L_00a6;
#line 1086 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 11;
#line 1086 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1086 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1086 "regression-compile-tmp/nrimp10s-77.imp"
L_00a6:;
                                                                //   1087        %IF I='\' %THEN %START
#line 1087 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (92))) goto L_00a7;
                                                                //   1088           %IF J#I %THEN A(R)=15 %AND ->UPR
#line 1088 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (I))) goto L_00a8;
#line 1088 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 15;
#line 1088 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1088 "regression-compile-tmp/nrimp10s-77.imp"
L_00a8:;
                                                                //   1089           Q=Q+1; A(R)=14; ->UPR
#line 1089 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1089 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 14;
#line 1089 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1090        %FINISH
#line 1090 "regression-compile-tmp/nrimp10s-77.imp"
L_00a7:;
                                                                //   1091        ->FAIL
#line 1091 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1092  BIP(1027):                              ! PHRASE CHECK UI
#line 1092 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1027:;
                                                                //   1093        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1093 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1094        ->SUCC %IF TRTAB(I)=2 %OR I='-'
#line 1094 "regression-compile-tmp/nrimp10s-77.imp"
if (((TRTAB[I]) == (2))) goto L_00a9;
#line 1094 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_00aa;
#line 1094 "regression-compile-tmp/nrimp10s-77.imp"
L_00a9:;
#line 1094 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 1094 "regression-compile-tmp/nrimp10s-77.imp"
L_00aa:;
                                                                //   1095        ->SUCC %IF 16_80000000>>(I&31)&16_14043000#0
#line 1095 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (335818752))) == (0))) goto L_00ab;
#line 1095 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 1095 "regression-compile-tmp/nrimp10s-77.imp"
L_00ab:;
                                                                //   1096        ->FAIL
#line 1096 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1097  BIP(1028):                              ! P(+')=+,-,\,0
#line 1097 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1028:;
                                                                //   1098        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1098 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1099        %IF I='\' %OR I=16_7E %THEN A(R)=3 %AND Q=Q+1 %AND ->UPR
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (92))) goto L_00ac;
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (126))) goto L_00ad;
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
L_00ac:;
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 3;
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1099 "regression-compile-tmp/nrimp10s-77.imp"
L_00ad:;
                                                                //   1100        %IF I='-' %THEN A(R)=2 %AND Q=Q+1 %AND ->UPR
#line 1100 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_00ae;
#line 1100 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 2;
#line 1100 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1100 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1100 "regression-compile-tmp/nrimp10s-77.imp"
L_00ae:;
                                                                //   1101        %IF I='+' %THEN A(R)=1 %AND Q=Q+1 %AND ->UPR
#line 1101 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (43))) goto L_00af;
#line 1101 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 1;
#line 1101 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1101 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1101 "regression-compile-tmp/nrimp10s-77.imp"
L_00af:;
                                                                //   1102        A(R)=4; ->UPR
#line 1102 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 4;
#line 1102 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1103  BIP(1029):                              ! PHRASE NOTE CYCLE
#line 1103 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1029:;
                                                                //   1104        TOAR4(R,0)
#line 1104 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, 0);
                                                                //   1105        PUSH(SFS(LEVEL),2,R,LINE)
#line 1105 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&SFS[LEVEL], 2, R, LINE);
                                                                //   1106        R=R+4
#line 1106 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
                                                                //   1107        ->SUCC
#line 1107 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1108  BIP(1030):                              ! P(,')=',',0
#line 1108 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1030:;
                                                                //   1109  !
                                                                //   1110  ! THIS IS VERY AWKWARD AS IT MEANS IT IS VERY TO HARD TO FIND
                                                                //   1111  ! THE END OF A PARAMETER LIST WITHOUT CHURNING. BY MAKING THIS A BIP
                                                                //   1112  ! WE CAN PEEP AHEAD FOR ')' AND FAIL HERE.
                                                                //   1113  !
                                                                //   1114        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1114 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1115        %IF I=')' %THEN ->FAIL
#line 1115 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (41))) goto L_00b0;
#line 1115 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1115 "regression-compile-tmp/nrimp10s-77.imp"
L_00b0:;
                                                                //   1116        %IF I=',' %THEN Q=Q+1
#line 1116 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (44))) goto L_00b1;
#line 1116 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1116 "regression-compile-tmp/nrimp10s-77.imp"
L_00b1:;
                                                                //   1117        ->SUCC
#line 1117 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1118  BIP(1031):                              ! PHRASE CHECKTYPE IE ENSURE
#line 1118 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1031:;
                                                                //   1119                                          ! FIRST LETTER IS(B,H,I,L,R,S) &
                                                                //   1120                                          ! 3RD LETTER IS (A,L,N,R,T)
                                                                //   1121        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1121 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1122        ->FAIL %UNLESS I>128 %AND 16_80000000>>(I&31)&16_20C83000#0 %AND 16_80000000>>(CC(Q+2)&31)&16_400A2800#0
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) <= (128))) goto L_00b2;
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (549990400))) == (0))) goto L_00b2;
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)((-2147483648))) >> (((CC[(((int)(Q)) + (2))]) & (31)))))) & (1074407424))) != (0))) goto L_00b3;
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
L_00b2:;
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1122 "regression-compile-tmp/nrimp10s-77.imp"
L_00b3:;
                                                                //   1123        ->SUCC
#line 1123 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1124  BIP(1032):                              ! PHRASE COMP1
#line 1124 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1032:;
                                                                //   1125  BIP(1037):                              ! PHRASE COMP2(IS 2ND HALF OF DSIDED)
#line 1125 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1037:;
                                                                //   1126        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1126 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1127        ->FAIL %UNLESS 32<I<=92 %AND 16_80000000>>(I&31)&16_1004000E#0
#line 1127 "regression-compile-tmp/nrimp10s-77.imp"
if ((((32) >= (I))) || (((I) > (92)))) goto L_00b4;
#line 1127 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (268697614))) != (0))) goto L_00b5;
#line 1127 "regression-compile-tmp/nrimp10s-77.imp"
L_00b4:;
#line 1127 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1127 "regression-compile-tmp/nrimp10s-77.imp"
L_00b5:;
                                                                //   1128                                          ! '='=1,'>='=2,'>'=3
                                                                //   1129                                          ! '#' OR '\='=4,'<='=5,'<'=6
                                                                //   1130                                          ! 7UNUSED,'->'=8,'=='=9
                                                                //   1131                                          ! '##' OR '\==' =10
                                                                //   1132        %IF I='=' %THEN %START
#line 1132 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (61))) goto L_00b6;
                                                                //   1133           %IF CC(Q+1)=I %THEN J=9 %AND ->JOIN1
#line 1133 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (I))) goto L_00b7;
#line 1133 "regression-compile-tmp/nrimp10s-77.imp"
J = 9;
#line 1133 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1133 "regression-compile-tmp/nrimp10s-77.imp"
L_00b7:;
                                                                //   1134           J=1; ->JOIN
#line 1134 "regression-compile-tmp/nrimp10s-77.imp"
J = 1;
#line 1134 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100f;
                                                                //   1135        %FINISH
#line 1135 "regression-compile-tmp/nrimp10s-77.imp"
L_00b6:;
                                                                //   1136        %IF I='#' %THEN %START
#line 1136 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (35))) goto L_00b8;
                                                                //   1137           %IF CC(Q+1)=I %THEN J=10 %AND ->JOIN1
#line 1137 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (I))) goto L_00b9;
#line 1137 "regression-compile-tmp/nrimp10s-77.imp"
J = 10;
#line 1137 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1137 "regression-compile-tmp/nrimp10s-77.imp"
L_00b9:;
                                                                //   1138           J=4; ->JOIN
#line 1138 "regression-compile-tmp/nrimp10s-77.imp"
J = 4;
#line 1138 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100f;
                                                                //   1139        %FINISH
#line 1139 "regression-compile-tmp/nrimp10s-77.imp"
L_00b8:;
                                                                //   1140        %IF I='\' %AND CC(Q+1)='=' %THEN %START
#line 1140 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (92))) goto L_00ba;
#line 1140 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00ba;
                                                                //   1141           Q=Q+1
#line 1141 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1142           %IF CC(Q+1)='=' %THEN J=10 %AND ->JOIN1
#line 1142 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bb;
#line 1142 "regression-compile-tmp/nrimp10s-77.imp"
J = 10;
#line 1142 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1142 "regression-compile-tmp/nrimp10s-77.imp"
L_00bb:;
                                                                //   1143           J=4; ->JOIN
#line 1143 "regression-compile-tmp/nrimp10s-77.imp"
J = 4;
#line 1143 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100f;
                                                                //   1144        %FINISH
#line 1144 "regression-compile-tmp/nrimp10s-77.imp"
L_00ba:;
                                                                //   1145        %IF I='>' %THEN %START
#line 1145 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (62))) goto L_00bc;
                                                                //   1146           %IF CC(Q+1)='=' %THEN J=2 %AND ->JOIN1
#line 1146 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bd;
#line 1146 "regression-compile-tmp/nrimp10s-77.imp"
J = 2;
#line 1146 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1146 "regression-compile-tmp/nrimp10s-77.imp"
L_00bd:;
                                                                //   1147           J=3; ->JOIN
#line 1147 "regression-compile-tmp/nrimp10s-77.imp"
J = 3;
#line 1147 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100f;
                                                                //   1148        %FINISH
#line 1148 "regression-compile-tmp/nrimp10s-77.imp"
L_00bc:;
                                                                //   1149        %IF I='<' %THEN %START
#line 1149 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (60))) goto L_00be;
                                                                //   1150           %IF CC(Q+1)='=' %THEN J=5 %AND ->JOIN1
#line 1150 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bf;
#line 1150 "regression-compile-tmp/nrimp10s-77.imp"
J = 5;
#line 1150 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1150 "regression-compile-tmp/nrimp10s-77.imp"
L_00bf:;
                                                                //   1151           J=6; ->JOIN
#line 1151 "regression-compile-tmp/nrimp10s-77.imp"
J = 6;
#line 1151 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100f;
                                                                //   1152        %FINISH
#line 1152 "regression-compile-tmp/nrimp10s-77.imp"
L_00be:;
                                                                //   1153        %IF I='-' %AND CC(Q+1)='>' %THEN J=8 %AND ->JOIN1
#line 1153 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_00c0;
#line 1153 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (62))) goto L_00c0;
#line 1153 "regression-compile-tmp/nrimp10s-77.imp"
J = 8;
#line 1153 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100e;
#line 1153 "regression-compile-tmp/nrimp10s-77.imp"
L_00c0:;
                                                                //   1154        ->FAIL
#line 1154 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1155  JOIN1:Q=Q+1
#line 1155 "regression-compile-tmp/nrimp10s-77.imp"
U_100e:;
#line 1155 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1156  JOIN: Q=Q+1
#line 1156 "regression-compile-tmp/nrimp10s-77.imp"
U_100f:;
#line 1156 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1157        A(R)=J
#line 1157 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = J;
                                                                //   1158        %IF ITEM=1032 %THEN SAVECOMP=J %AND ->UPR
#line 1158 "regression-compile-tmp/nrimp10s-77.imp"
if (((ITEM) != (1032))) goto L_00c1;
#line 1158 "regression-compile-tmp/nrimp10s-77.imp"
SAVECOMP = J;
#line 1158 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1158 "regression-compile-tmp/nrimp10s-77.imp"
L_00c1:;
                                                                //   1159                                          ! SAVE J TO CHECK DSIDED
                                                                //   1160        %IF SAVECOMP>6 %OR J>6 %THEN Q=Q-1 %AND ->FAIL;! ILLEGAL DSIDED
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
if (((SAVECOMP) > (6))) goto L_00c2;
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) <= (6))) goto L_00c3;
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
L_00c2:;
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) - (1));
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1160 "regression-compile-tmp/nrimp10s-77.imp"
L_00c3:;
                                                                //   1161        ->UPR;                            ! NB OWNS WONT WORK IF
#line 1161 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1162                                          ! COND EXPRS ALLOWED AS THE
                                                                //   1163                                          ! CAN BE NESTED!
                                                                //   1164  BIP(1033):                              ! P(ASSOP)- ==,=,<-,->
#line 1164 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1033:;
                                                                //   1165        I=CC(Q);                          ! OBTAIN CURRENT CHARACTER
#line 1165 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1166        %IF I='=' %THEN %START
#line 1166 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (61))) goto L_00c4;
                                                                //   1167           %IF CC(Q+1)='=' %THEN A(R)=1 %AND Q=Q+2 %AND ->UPR
#line 1167 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00c5;
#line 1167 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 1;
#line 1167 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (2));
#line 1167 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1167 "regression-compile-tmp/nrimp10s-77.imp"
L_00c5:;
                                                                //   1168           A(R)=2; Q=Q+1; ->UPR
#line 1168 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 2;
#line 1168 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1168 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
                                                                //   1169        %FINISH
#line 1169 "regression-compile-tmp/nrimp10s-77.imp"
L_00c4:;
                                                                //   1170        %IF I='<' %AND CC(Q+1)='-' %THEN A(R)=3 %AND Q=Q+2 %AND ->UPR
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (60))) goto L_00c6;
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (45))) goto L_00c6;
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 3;
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (2));
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1170 "regression-compile-tmp/nrimp10s-77.imp"
L_00c6:;
                                                                //   1171        %IF I='-' %AND CC(Q+1)='>' %THEN A(R)=4 %AND Q=Q+2 %AND ->UPR
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_00c7;
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (62))) goto L_00c7;
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = 4;
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (2));
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1171 "regression-compile-tmp/nrimp10s-77.imp"
L_00c7:;
                                                                //   1172        ->FAIL
#line 1172 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
                                                                //   1173  BIP(1034):                              ! NOTE START
#line 1173 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1034:;
                                                                //   1174        TOAR4(R,0);                       ! HOLE FOR FORWARD PTR
#line 1174 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, 0);
                                                                //   1175        PUSH(SFS(LEVEL),1,R,LINE)
#line 1175 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&SFS[LEVEL], 1, R, LINE);
                                                                //   1176        R=R+4
#line 1176 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
                                                                //   1177        ->SUCC
#line 1177 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1178  BIP(1035):                              ! NOTE FINISH
#line 1178 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1035:;
                                                                //   1179        %IF SFS(LEVEL)=0 %THEN FAULT2(51,0,0) %AND ->SUCC
#line 1179 "regression-compile-tmp/nrimp10s-77.imp"
if (((SFS[LEVEL]) != (0))) goto L_00c8;
#line 1179 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(51, 0, 0);
#line 1179 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 1179 "regression-compile-tmp/nrimp10s-77.imp"
L_00c8:;
                                                                //   1180        POP(SFS(LEVEL),I,J,K)
#line 1180 "regression-compile-tmp/nrimp10s-77.imp"
POP(&SFS[LEVEL], &I, &J, &K);
                                                                //   1181        %IF I=2 %THEN FAULT2(59,K,0)
#line 1181 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (2))) goto L_00c9;
#line 1181 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(59, K, 0);
#line 1181 "regression-compile-tmp/nrimp10s-77.imp"
L_00c9:;
                                                                //   1182        TOAR4(J,STARSTART)
#line 1182 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(J, STARSTART);
                                                                //   1183        ->SUCC
#line 1183 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1184  BIP(1036):                              ! NOTE REPEAT
#line 1184 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1036:;
                                                                //   1185        %IF SFS(LEVEL)=0 %THEN FAULT2(1,0,0) %AND ->SUCC
#line 1185 "regression-compile-tmp/nrimp10s-77.imp"
if (((SFS[LEVEL]) != (0))) goto L_00ca;
#line 1185 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(1, 0, 0);
#line 1185 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 1185 "regression-compile-tmp/nrimp10s-77.imp"
L_00ca:;
                                                                //   1186        POP(SFS(LEVEL),I,J,K)
#line 1186 "regression-compile-tmp/nrimp10s-77.imp"
POP(&SFS[LEVEL], &I, &J, &K);
                                                                //   1187        %IF I=1 %THEN FAULT2(52,K,0);     ! START INSTEAD OF CYCLE
#line 1187 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_00cb;
#line 1187 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(52, K, 0);
#line 1187 "regression-compile-tmp/nrimp10s-77.imp"
L_00cb:;
                                                                //   1188        TOAR4(J,STARSTART)
#line 1188 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(J, STARSTART);
                                                                //   1189        ->SUCC
#line 1189 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1190  BIP(1038):                              ! INCLUDE "FILE"
#line 1190 "regression-compile-tmp/nrimp10s-77.imp"
sw1_BIP_1038:;
                                                                //   1191        ->FAIL %IF VMEB=YES
#line 1191 "regression-compile-tmp/nrimp10s-77.imp"
if (((0) != (1))) goto L_00cc;
#line 1191 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1191 "regression-compile-tmp/nrimp10s-77.imp"
L_00cc:;
                                                                //   1192        I=CC(Q)
#line 1192 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1193        ->FAIL %UNLESS I=NL %OR I=';'
#line 1193 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (10))) goto L_00cd;
#line 1193 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (59))) goto L_00cd;
#line 1193 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1193 "regression-compile-tmp/nrimp10s-77.imp"
L_00cd:;
                                                                //   1194        Q=Q+1 %IF I=';'
#line 1194 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (59))) goto L_00ce;
#line 1194 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1194 "regression-compile-tmp/nrimp10s-77.imp"
L_00ce:;
                                                                //   1195        ->FAIL %UNLESS CTYPE=5
#line 1195 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) == (5))) goto L_00cf;
#line 1195 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1195 "regression-compile-tmp/nrimp10s-77.imp"
L_00cf:;
                                                                //   1196        PUSH(IHEAD,FILEADDR,FILEPTR,FILEEND)
#line 1196 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&IHEAD, FILEADDR, FILEPTR, FILEEND);
                                                                //   1197        CONSOURCE(STRING(ADDR(A(S))),FILEADDR);! DEPARTS IF FAILS
#line 1197 "regression-compile-tmp/nrimp10s-77.imp"
consource(*_imp_STRING(_imp_ADDR(&A[S])), &FILEADDR);
                                                                //   1198        FILEPTR=FILEADDR+INTEGER(FILEADDR+4)
#line 1198 "regression-compile-tmp/nrimp10s-77.imp"
FILEPTR = (((int)(FILEADDR)) + (*_imp_INTEGER((((int)(FILEADDR)) + (4)))));
                                                                //   1199        FILEEND=FILEADDR+INTEGER(FILEADDR)
#line 1199 "regression-compile-tmp/nrimp10s-77.imp"
FILEEND = (((int)(FILEADDR)) + (*_imp_INTEGER(FILEADDR)));
                                                                //   1200        ->SUCC
#line 1200 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
                                                                //   1201  %END;                                   !OF ROUTINE 'COMPARE'
#line 1201 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block COMPARE at level 4
                                                                //   1202  %ROUTINE PNAME(%INTEGER MODE)
#line 1202 "regression-compile-tmp/nrimp10s-77.imp"
void PNAME( int MODE )
#line 1202 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1203  !***********************************************************************
                                                                //   1204  !*       MODE=0 FOR OLD NAME(ALREADY IN DICT), MODE=1 FOR NEW NAME     *
                                                                //   1205  !***********************************************************************
                                                                //   1206  %CONSTINTEGERARRAY HASH(0:7)=71,47,97,79,29,37,53,59;
#line 1206 "regression-compile-tmp/nrimp10s-77.imp"
const int HASH[8] = { 71, 47, 97, 79, 29, 37, 53, 59,  };
                                                                //   1207  %INTEGER JJ, KK, LL, FQ, FS, T, S, I
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int LL;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int FQ;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int FS;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int T;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int S;
#line 1207 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   1208  %LONGINTEGER DRDES,ACCDES
#line 1208 "regression-compile-tmp/nrimp10s-77.imp"
long long int DRDES;
#line 1208 "regression-compile-tmp/nrimp10s-77.imp"
long long int ACCDES;
                                                                //   1209        HIT=0;  FQ=Q;  FS=CC(Q)
#line 1209 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 0;
#line 1209 "regression-compile-tmp/nrimp10s-77.imp"
FQ = Q;
#line 1209 "regression-compile-tmp/nrimp10s-77.imp"
FS = CC[Q];
                                                                //   1210        %RETURN %UNLESS TRTAB(FS)=2 %AND M'"'#CC(Q+1)#M''''
#line 1210 "regression-compile-tmp/nrimp10s-77.imp"
if (((TRTAB[FS]) != (2))) goto L_00d0;
#line 1210 "regression-compile-tmp/nrimp10s-77.imp"
if ((((34) == (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) != (39)))) goto L_00d1;
#line 1210 "regression-compile-tmp/nrimp10s-77.imp"
L_00d0:;
#line 1210 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1210 "regression-compile-tmp/nrimp10s-77.imp"
L_00d1:;
                                                                //   1211                                          ! 1ST CHAR MUST BE LETTER
                                                                //   1212        T=1
#line 1212 "regression-compile-tmp/nrimp10s-77.imp"
T = 1;
                                                                //   1213        LETT(NEXT+1)=FS; JJ=71*FS
#line 1213 "regression-compile-tmp/nrimp10s-77.imp"
LETT[(((int)(NEXT)) + (1))] = FS;
#line 1213 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)(71)) * (FS));
                                                                //   1214  !     %IF USE IMP=YES %THEN %START
                                                                //   1215           %CYCLE
#line 1215 "regression-compile-tmp/nrimp10s-77.imp"
L_00d2:;
                                                                //   1216              Q=Q+1
#line 1216 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1217              I=CC(Q)
#line 1217 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1218              %EXIT %IF TRTAB(I)=0
#line 1218 "regression-compile-tmp/nrimp10s-77.imp"
if (((TRTAB[I]) != (0))) goto L_00d5;
#line 1218 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00d3;
#line 1218 "regression-compile-tmp/nrimp10s-77.imp"
L_00d5:;
                                                                //   1219              JJ=JJ+HASH(T) %IF T<=7
#line 1219 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) > (7))) goto L_00d6;
#line 1219 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)(JJ)) + (HASH[T]));
#line 1219 "regression-compile-tmp/nrimp10s-77.imp"
L_00d6:;
                                                                //   1220              T=T+1
#line 1220 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1221              LETT(NEXT+T)=I
#line 1221 "regression-compile-tmp/nrimp10s-77.imp"
LETT[(((int)(NEXT)) + (T))] = I;
                                                                //   1222           %REPEAT
#line 1222 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00d2;
#line 1222 "regression-compile-tmp/nrimp10s-77.imp"
L_00d3:;
                                                                //   1223  !     %FINISH %ELSE %START
                                                                //   1224  !CYC:
                                                                //   1225  !        *LB_Q
                                                                //   1226  !        *ADB_1
                                                                //   1227  !        *STB_Q
                                                                //   1228  !        *LB_(CC+%B)
                                                                //   1229  !        *LSS_(TRTAB+%B)
                                                                //   1230  !        *JAT_4,<EXIT>
                                                                //   1231  !        *STB_I
                                                                //   1232  !        *LSS_%B;                          ! I TO ACC
                                                                //   1233  !        *LB_T
                                                                //   1234  !        *CPB_7
                                                                //   1235  !        *JCC_2,<SKIP>
                                                                //   1236  !        *IMY_(HASH+%B)
                                                                //   1237  !        *IAD_JJ
                                                                //   1238  !        *ST_JJ
                                                                //   1239  !SKIP:
                                                                //   1240  !        *ADB_1
                                                                //   1241  !        *STB_T
                                                                //   1242  !        *LSS_I
                                                                //   1243  !        *ADB_NEXT
                                                                //   1244  !        *ST_(LETT+%B)
                                                                //   1245  !        *J_<CYC>
                                                                //   1246  !EXIT:
                                                                //   1247  !     %FINISH
                                                                //   1248        LETT(NEXT)=T;                     ! INSERT LENGTH
#line 1248 "regression-compile-tmp/nrimp10s-77.imp"
LETT[NEXT] = T;
                                                                //   1249        S=T+1
#line 1249 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(T)) + (1));
                                                                //   1250        FAULT(103,0) %IF NEXT+S>DSIZE;!DICTIONARY OVERFLOW
#line 1250 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)(NEXT)) + (S))) <= (DSIZE))) goto L_00d7;
#line 1250 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(103, 0);
#line 1250 "regression-compile-tmp/nrimp10s-77.imp"
L_00d7:;
                                                                //   1251        JJ=(JJ+113*T)&NNAMES
#line 1251 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((((JJ) + ((int)((((int)(113)) * (T)))))) & (NNAMES));
                                                                //   1252  !     %IF USE IMP=YES %THEN %START
                                                                //   1253           %CYCLE KK=JJ, 1, NNAMES
#line 1253 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = JJ; _increment = 1; _final = NNAMES; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = JJ, 1, NNAMES");
KK -= _increment; _control -= _increment;
L_00d8:;
if (KK == _final) goto L_00d9;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   1254              LL=WORD(KK)
#line 1254 "regression-compile-tmp/nrimp10s-77.imp"
LL = WORD[KK];
                                                                //   1255              ->HOLE %IF LL=0;               ! NAME NOT KNOWN
#line 1255 "regression-compile-tmp/nrimp10s-77.imp"
if (((LL) != (0))) goto L_00db;
#line 1255 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1010;
#line 1255 "regression-compile-tmp/nrimp10s-77.imp"
L_00db:;
                                                                //   1256              ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL)))
#line 1256 "regression-compile-tmp/nrimp10s-77.imp"
if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&LETT[NEXT])), *_imp_STRING(_imp_ADDR(&LETT[LL]))) != 0)) goto L_00dc;
#line 1256 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1011;
#line 1256 "regression-compile-tmp/nrimp10s-77.imp"
L_00dc:;
                                                                //   1257           %REPEAT
#line 1257 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00d8;
#line 1257 "regression-compile-tmp/nrimp10s-77.imp"
L_00d9:;
                                                                //   1258           %CYCLE KK=0,1,JJ
#line 1258 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = JJ; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 0, 1, JJ");
KK -= _increment; _control -= _increment;
L_00dd:;
if (KK == _final) goto L_00de;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   1259              LL=WORD(KK)
#line 1259 "regression-compile-tmp/nrimp10s-77.imp"
LL = WORD[KK];
                                                                //   1260              ->HOLE %IF LL=0;               ! NAME NOT KNOWN
#line 1260 "regression-compile-tmp/nrimp10s-77.imp"
if (((LL) != (0))) goto L_00e0;
#line 1260 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1010;
#line 1260 "regression-compile-tmp/nrimp10s-77.imp"
L_00e0:;
                                                                //   1261              ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL)))
#line 1261 "regression-compile-tmp/nrimp10s-77.imp"
if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&LETT[NEXT])), *_imp_STRING(_imp_ADDR(&LETT[LL]))) != 0)) goto L_00e1;
#line 1261 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1011;
#line 1261 "regression-compile-tmp/nrimp10s-77.imp"
L_00e1:;
                                                                //   1262           %REPEAT
#line 1262 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00dd;
#line 1262 "regression-compile-tmp/nrimp10s-77.imp"
L_00de:;
                                                                //   1263  !     %FINISH %ELSE %START
                                                                //   1264  !        *LDTB_16_18000000
                                                                //   1265  !        *LDB_S
                                                                //   1266  !        *LDA_LETT+4
                                                                //   1267  !        *STD_DRDES
                                                                //   1268  !        *INCA_NEXT
                                                                //   1269  !        *STD_ACCDES
                                                                //   1270  !        *LB_JJ
                                                                //   1271  !CYC1:
                                                                //   1272  !        *STB_KK
                                                                //   1273  !        *LB_(WORD+%B)
                                                                //   1274  !        *JAT_12,<HOLE>
                                                                //   1275  !        *LSD_ACCDES
                                                                //   1276  !        *LD_DRDES
                                                                //   1277  !        *INCA_%B
                                                                //   1278  !        *CPS_%L=%DR
                                                                //   1279  !        *JCC_8,<FND>
                                                                //   1280  !        *LB_KK
                                                                //   1281  !        *CPIB_NNAMES
                                                                //   1282  !        *JCC_7,<CYC1>
                                                                //   1283  !        *LB_0
                                                                //   1284  !CYC2:
                                                                //   1285  !        *STB_KK
                                                                //   1286  !        *LB_(WORD+%B)
                                                                //   1287  !        *JAT_12,<HOLE>
                                                                //   1288  !        *LSD_ACCDES
                                                                //   1289  !        *LD_DRDES
                                                                //   1290  !        *INCA_%B
                                                                //   1291  !        *CPS_%L=%DR
                                                                //   1292  !        *JCC_8,<FND>
                                                                //   1293  !        *LB_KK
                                                                //   1294  !        *CPIB_JJ
                                                                //   1295  !        *JCC_7,<CYC2>
                                                                //   1296  !     %FINISH
                                                                //   1297        FAULT(104, 0);                    ! TOO MANY NAMES
#line 1297 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(104, 0);
                                                                //   1298  HOLE: %IF MODE=0 %THEN Q=FQ %AND %RETURN
#line 1298 "regression-compile-tmp/nrimp10s-77.imp"
U_1010:;
#line 1298 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_00e2;
#line 1298 "regression-compile-tmp/nrimp10s-77.imp"
Q = FQ;
#line 1298 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1298 "regression-compile-tmp/nrimp10s-77.imp"
L_00e2:;
                                                                //   1299        WORD(KK)=NEXT;  NEXT=NEXT+S
#line 1299 "regression-compile-tmp/nrimp10s-77.imp"
WORD[KK] = NEXT;
#line 1299 "regression-compile-tmp/nrimp10s-77.imp"
NEXT = (((int)(NEXT)) + (S));
                                                                //   1300  FND:  LASTAT=FQ;  HIT=1;  LASTNAME=KK
#line 1300 "regression-compile-tmp/nrimp10s-77.imp"
U_1011:;
#line 1300 "regression-compile-tmp/nrimp10s-77.imp"
LASTAT = FQ;
#line 1300 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 1;
#line 1300 "regression-compile-tmp/nrimp10s-77.imp"
LASTNAME = KK;
                                                                //   1301        A(R+1)<-LASTNAME
#line 1301 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(R)) + (1))] = LASTNAME;
                                                                //   1302        A(R)=LASTNAME>>8; R=R+2
#line 1302 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = (int)((((unsigned int)(LASTNAME)) >> (8)));
#line 1302 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
                                                                //   1303        LASTEND=Q
#line 1303 "regression-compile-tmp/nrimp10s-77.imp"
LASTEND = Q;
                                                                //   1304  %END
#line 1304 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PNAME at level 4
                                                                //   1305  
                                                                //   1306  
                                                                //   1307  %ROUTINE CONST(%INTEGER MODE)
#line 1307 "regression-compile-tmp/nrimp10s-77.imp"
void CONST( int MODE )
#line 1307 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1308  !***********************************************************************
                                                                //   1309  !*       SYNTAX CHECK AND EVALUATE ALL THE FORMS OF IMP CONSTANT       *
                                                                //   1310  !*       MODE=0 FOR INTEGER CONSTANTS #0 FOR ANY SORT OF CONSTANT      *
                                                                //   1311  !***********************************************************************
                                                                //   1312  %INTEGER Z, DOTSEEN, EBCDIC, FS, CPREC, RR, S, T, SS
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int Z;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int DOTSEEN;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int EBCDIC;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int FS;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int CPREC;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int RR;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int S;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int T;
#line 1312 "regression-compile-tmp/nrimp10s-77.imp"
int SS;
                                                                //   1313  {%LONG}%LONGREAL X,CVALUE,DUMMY
#line 1313 "regression-compile-tmp/nrimp10s-77.imp"
double X;
#line 1313 "regression-compile-tmp/nrimp10s-77.imp"
double CVALUE;
#line 1313 "regression-compile-tmp/nrimp10s-77.imp"
double DUMMY;
                                                                //   1314  %CONST{%LONG}%LONGREAL TEN=10.0 {R'41A00000000000000000000000000000'
#line 1314 "regression-compile-tmp/nrimp10s-77.imp"
const double TEN = 10.0;
                                                                //   1315        CPREC=5;  RR=R;  R=R+1
#line 1315 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 5;
#line 1315 "regression-compile-tmp/nrimp10s-77.imp"
RR = R;
#line 1315 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (1));
                                                                //   1316        DOTSEEN=0;  HIT=0
#line 1316 "regression-compile-tmp/nrimp10s-77.imp"
DOTSEEN = 0;
#line 1316 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 0;
                                                                //   1317        CVALUE=0;  DUMMY=0;  FS=CC(Q)
#line 1317 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = 0;
#line 1317 "regression-compile-tmp/nrimp10s-77.imp"
DUMMY = 0;
#line 1317 "regression-compile-tmp/nrimp10s-77.imp"
FS = CC[Q];
                                                                //   1318        S=0;  ->N %IF M'0'<=FS<=M'9'
#line 1318 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
#line 1318 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (FS))) || (((FS) > (57)))) goto L_00e3;
#line 1318 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1012;
#line 1318 "regression-compile-tmp/nrimp10s-77.imp"
L_00e3:;
                                                                //   1319        ->DOT %IF FS='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9'
#line 1319 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (46))) goto L_00e4;
#line 1319 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_00e4;
#line 1319 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) > (57)))) goto L_00e4;
#line 1319 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1013;
#line 1319 "regression-compile-tmp/nrimp10s-77.imp"
L_00e4:;
                                                                //   1320                                          ! 1 DIDT MIN
                                                                //   1321        CTYPE=1;  EBCDIC=0
#line 1321 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 1;
#line 1321 "regression-compile-tmp/nrimp10s-77.imp"
EBCDIC = 0;
                                                                //   1322        ->QUOTE %IF FS=M''''
#line 1322 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (39))) goto L_00e5;
#line 1322 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1004;
#line 1322 "regression-compile-tmp/nrimp10s-77.imp"
L_00e5:;
                                                                //   1323        ->STR2 %IF FS=34
#line 1323 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (34))) goto L_00e6;
#line 1323 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1005;
#line 1323 "regression-compile-tmp/nrimp10s-77.imp"
L_00e6:;
                                                                //   1324        ->NOTQUOTE %UNLESS CC(Q+1)=M'''';  Q=Q+2
#line 1324 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_00e7;
#line 1324 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1006;
#line 1324 "regression-compile-tmp/nrimp10s-77.imp"
L_00e7:;
#line 1324 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (2));
                                                                //   1325        ->HEX %IF FS='X'
#line 1325 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (88))) goto L_00e8;
#line 1325 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1007;
#line 1325 "regression-compile-tmp/nrimp10s-77.imp"
L_00e8:;
                                                                //   1326        ->MULT %IF FS='M'
#line 1326 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (77))) goto L_00e9;
#line 1326 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1008;
#line 1326 "regression-compile-tmp/nrimp10s-77.imp"
L_00e9:;
                                                                //   1327        ->BIN %IF FS=M'B'
#line 1327 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (66))) goto L_00ea;
#line 1327 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1009;
#line 1327 "regression-compile-tmp/nrimp10s-77.imp"
L_00ea:;
                                                                //   1328        ->RHEX %IF FS='R' %AND MODE=0
#line 1328 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (82))) goto L_00eb;
#line 1328 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_00eb;
#line 1328 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100a;
#line 1328 "regression-compile-tmp/nrimp10s-77.imp"
L_00eb:;
                                                                //   1329        ->OCT %IF FS='K'
#line 1329 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (75))) goto L_00ec;
#line 1329 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100b;
#line 1329 "regression-compile-tmp/nrimp10s-77.imp"
L_00ec:;
                                                                //   1330        %IF FS='C' %THEN EBCDIC=1 %AND ->MULT
#line 1330 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (67))) goto L_00ed;
#line 1330 "regression-compile-tmp/nrimp10s-77.imp"
EBCDIC = 1;
#line 1330 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1008;
#line 1330 "regression-compile-tmp/nrimp10s-77.imp"
L_00ed:;
                                                                //   1331        %IF FS='D' %AND MODE=0 %THEN %START
#line 1331 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (68))) goto L_00ee;
#line 1331 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_00ee;
                                                                //   1332           CPREC=7
#line 1332 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 7;
                                                                //   1333           %IF M'0'<=CC(Q)<=M'9' %THEN ->N
#line 1333 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (CC[Q]))) || (((CC[Q]) > (57)))) goto L_00ef;
#line 1333 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1012;
#line 1333 "regression-compile-tmp/nrimp10s-77.imp"
L_00ef:;
                                                                //   1334           %IF CC(Q)='.' %THEN ->DOT
#line 1334 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) != (46))) goto L_00f0;
#line 1334 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1013;
#line 1334 "regression-compile-tmp/nrimp10s-77.imp"
L_00f0:;
                                                                //   1335        %FINISH
#line 1335 "regression-compile-tmp/nrimp10s-77.imp"
L_00ee:;
                                                                //   1336        Q=Q-2;  %RETURN
#line 1336 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) - (2));
#line 1336 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1337  QUOTE:                                  ! SINGLE CH BETWEEN QUOTES
#line 1337 "regression-compile-tmp/nrimp10s-77.imp"
U_1004:;
                                                                //   1338        %IF CC(Q+2)=M'''' %THEN %START
#line 1338 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (2))]) != (39))) goto L_00f1;
                                                                //   1339           S=CC(Q+1)
#line 1339 "regression-compile-tmp/nrimp10s-77.imp"
S = CC[(((int)(Q)) + (1))];
                                                                //   1340           Q=Q+3
#line 1340 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (3));
                                                                //   1341           %IF S#M'''' %THEN ->IEND
#line 1341 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) == (39))) goto L_00f2;
#line 1341 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
#line 1341 "regression-compile-tmp/nrimp10s-77.imp"
L_00f2:;
                                                                //   1342           %IF CC(Q)=M'''' %THEN Q=Q+1 %AND ->IEND
#line 1342 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) != (39))) goto L_00f3;
#line 1342 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1342 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
#line 1342 "regression-compile-tmp/nrimp10s-77.imp"
L_00f3:;
                                                                //   1343        %FINISH
#line 1343 "regression-compile-tmp/nrimp10s-77.imp"
L_00f1:;
                                                                //   1344        %RETURN;                          ! NOT VALID
#line 1344 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1345  NOTQUOTE:                               ! CHECK FOR E"...."
#line 1345 "regression-compile-tmp/nrimp10s-77.imp"
U_1006:;
                                                                //   1346        %RETURN %UNLESS FS='E' %AND CC(Q+1)=M'"'
#line 1346 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (69))) goto L_00df;
#line 1346 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[(((int)(Q)) + (1))]) == (34))) goto L_00f4;
#line 1346 "regression-compile-tmp/nrimp10s-77.imp"
L_00df:;
#line 1346 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1346 "regression-compile-tmp/nrimp10s-77.imp"
L_00f4:;
                                                                //   1347        EBCDIC=1; Q=Q+1
#line 1347 "regression-compile-tmp/nrimp10s-77.imp"
EBCDIC = 1;
#line 1347 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1348  STR2:                                   ! DOUBLE QUOTED STRING
#line 1348 "regression-compile-tmp/nrimp10s-77.imp"
U_1005:;
                                                                //   1349        A(RR)=16_35;  TEXTTEXT(EBCDIC)
#line 1349 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = 53;
#line 1349 "regression-compile-tmp/nrimp10s-77.imp"
TEXTTEXT(EBCDIC);
                                                                //   1350        CTYPE=5;  %RETURN
#line 1350 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 5;
#line 1350 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1351  HEX:  T=0;                              ! HEX CONSTANTS
#line 1351 "regression-compile-tmp/nrimp10s-77.imp"
U_1007:;
#line 1351 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //   1352        %CYCLE
#line 1352 "regression-compile-tmp/nrimp10s-77.imp"
L_00f5:;
                                                                //   1353           I=CC(Q);  Q=Q+1
#line 1353 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
#line 1353 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1354           %EXIT %IF I=M''''
#line 1354 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_00f8;
#line 1354 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00f6;
#line 1354 "regression-compile-tmp/nrimp10s-77.imp"
L_00f8:;
                                                                //   1355           T=T+1
#line 1355 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1356           %RETURN %UNLESS ('0'<=I<='9' %OR 'A'<=I<='F') %AND T<17
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_00fa;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
L_00f9:;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
if ((((65) > (I))) || (((I) > (70)))) goto L_0093;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
L_00fa:;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) < (17))) goto L_00fb;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
L_0093:;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1356 "regression-compile-tmp/nrimp10s-77.imp"
L_00fb:;
                                                                //   1357           %IF T=9 %THEN SS=S %AND S=0
#line 1357 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) != (9))) goto L_00fc;
#line 1357 "regression-compile-tmp/nrimp10s-77.imp"
SS = S;
#line 1357 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
#line 1357 "regression-compile-tmp/nrimp10s-77.imp"
L_00fc:;
                                                                //   1358           S=S<<4+I&15+9*I>>6
#line 1358 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((((((S) << (4)))) + (((I) & (15)))))) + (((9) * ((int)((int)((((unsigned int)(I)) >> (6))))))));
                                                                //   1359        %REPEAT
#line 1359 "regression-compile-tmp/nrimp10s-77.imp"
goto L_00f5;
#line 1359 "regression-compile-tmp/nrimp10s-77.imp"
L_00f6:;
                                                                //   1360        %IF T>8 %START
#line 1360 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) <= (8))) goto L_00fd;
                                                                //   1361           Z=4*(T-8)
#line 1361 "regression-compile-tmp/nrimp10s-77.imp"
Z = ((4) * ((int)((((int)(T)) - (8)))));
                                                                //   1362           S=S!(SS<<Z)
#line 1362 "regression-compile-tmp/nrimp10s-77.imp"
S = ((S) | (((SS) << (Z))));
                                                                //   1363           SS=SS>>(32-Z);  CPREC=6
#line 1363 "regression-compile-tmp/nrimp10s-77.imp"
SS = (int)((((unsigned int)(SS)) >> ((((int)(32)) - (Z)))));
#line 1363 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 6;
                                                                //   1364        %FINISH
#line 1364 "regression-compile-tmp/nrimp10s-77.imp"
L_00fd:;
                                                                //   1365  IEND: %IF CPREC=6 %THEN TOAR4(R,SS) %AND R=R+4
#line 1365 "regression-compile-tmp/nrimp10s-77.imp"
U_100c:;
#line 1365 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (6))) goto L_00fe;
#line 1365 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, SS);
#line 1365 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
#line 1365 "regression-compile-tmp/nrimp10s-77.imp"
L_00fe:;
                                                                //   1366        %IF CPREC=5 %AND 0<=S<=16_7FFF %START
#line 1366 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (5))) goto L_00ff;
#line 1366 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (S))) || (((S) > (32767)))) goto L_00ff;
                                                                //   1367           CPREC=4; TOAR2(R,S); R=R+2
#line 1367 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 4;
#line 1367 "regression-compile-tmp/nrimp10s-77.imp"
TOAR2(R, S);
#line 1367 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (2));
                                                                //   1368        %FINISH %ELSE TOAR4(R,S) %AND R=R+4
#line 1368 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0100;
#line 1368 "regression-compile-tmp/nrimp10s-77.imp"
L_00ff:;
#line 1368 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, S);
#line 1368 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
#line 1368 "regression-compile-tmp/nrimp10s-77.imp"
L_0100:;
                                                                //   1369        HIT=1 %UNLESS MODE#0 %AND CPREC=6
#line 1369 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (0))) goto L_00f7;
#line 1369 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) == (6))) goto L_0101;
#line 1369 "regression-compile-tmp/nrimp10s-77.imp"
L_00f7:;
#line 1369 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 1;
#line 1369 "regression-compile-tmp/nrimp10s-77.imp"
L_0101:;
                                                                //   1370        A(RR)=CPREC<<4!CTYPE
#line 1370 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = ((((CPREC) << (4))) | (CTYPE));
                                                                //   1371        %RETURN
#line 1371 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1372  RHEX:                                   ! REAL HEX CONSTANTS
#line 1372 "regression-compile-tmp/nrimp10s-77.imp"
U_100a:;
                                                                //   1373        T=0
#line 1373 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //   1374        %CYCLE
#line 1374 "regression-compile-tmp/nrimp10s-77.imp"
L_0102:;
                                                                //   1375           I=CC(Q);  Q=Q+1
#line 1375 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
#line 1375 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1376           %IF T&7=0 %AND T#0 %START
#line 1376 "regression-compile-tmp/nrimp10s-77.imp"
if (((((T) & (7))) != (0))) goto L_0105;
#line 1376 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) == (0))) goto L_0105;
                                                                //   1377              TOAR4(R,S);  R=R+4;  S=0
#line 1377 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(R, S);
#line 1377 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (4));
#line 1377 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
                                                                //   1378           %FINISH
#line 1378 "regression-compile-tmp/nrimp10s-77.imp"
L_0105:;
                                                                //   1379           %EXIT %IF I=M'''';  T=T+1
#line 1379 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_0106;
#line 1379 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0103;
#line 1379 "regression-compile-tmp/nrimp10s-77.imp"
L_0106:;
#line 1379 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1380           %RETURN %UNLESS '0'<=I<='9' %OR 'A'<=I<='F'
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0108;
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
L_0107:;
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
if ((((65) > (I))) || (((I) <= (70)))) goto L_0108;
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
L_0109:;
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1380 "regression-compile-tmp/nrimp10s-77.imp"
L_0108:;
                                                                //   1381           S=S<<4+I&15+9*I>>6
#line 1381 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((((((S) << (4)))) + (((I) & (15)))))) + (((9) * ((int)((int)((((unsigned int)(I)) >> (6))))))));
                                                                //   1382        %REPEAT
#line 1382 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0102;
#line 1382 "regression-compile-tmp/nrimp10s-77.imp"
L_0103:;
                                                                //   1383        %RETURN %UNLESS T=8 %OR T=16 %OR T=32
#line 1383 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) == (8))) goto L_010a;
#line 1383 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) == (16))) goto L_010a;
#line 1383 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) == (32))) goto L_010a;
#line 1383 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1383 "regression-compile-tmp/nrimp10s-77.imp"
L_010a:;
                                                                //   1384        %IF T=32 %THEN CPREC=7 %ELSE CPREC=4+T//8
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) != (32))) goto L_010b;
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 7;
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
goto L_010c;
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
L_010b:;
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = ((4) + (((long)((long)((int)(T)) / (long)((int)(8))))));
#line 1384 "regression-compile-tmp/nrimp10s-77.imp"
L_010c:;
                                                                //   1385        A(RR)=CPREC<<4!2
#line 1385 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = ((((CPREC) << (4))) | (2));
                                                                //   1386        HIT=1;  %RETURN
#line 1386 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 1;
#line 1386 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1387  OCT:                                    ! OCTAL CONSTANTS
#line 1387 "regression-compile-tmp/nrimp10s-77.imp"
U_100b:;
                                                                //   1388        T=0
#line 1388 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //   1389        %CYCLE
#line 1389 "regression-compile-tmp/nrimp10s-77.imp"
L_010d:;
                                                                //   1390           I=CC(Q);  Q=Q+1;  T=T+1
#line 1390 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
#line 1390 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1390 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1391           %EXIT %IF I=M''''
#line 1391 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_0110;
#line 1391 "regression-compile-tmp/nrimp10s-77.imp"
goto L_010e;
#line 1391 "regression-compile-tmp/nrimp10s-77.imp"
L_0110:;
                                                                //   1392           %RETURN %UNLESS '0'<=I<='7' %AND T<12
#line 1392 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) > (55)))) goto L_0111;
#line 1392 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) < (12))) goto L_0112;
#line 1392 "regression-compile-tmp/nrimp10s-77.imp"
L_0111:;
#line 1392 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1392 "regression-compile-tmp/nrimp10s-77.imp"
L_0112:;
                                                                //   1393           S=S<<3!(I&7)
#line 1393 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((S) << (3))) | (((I) & (7))));
                                                                //   1394        %REPEAT
#line 1394 "regression-compile-tmp/nrimp10s-77.imp"
goto L_010d;
#line 1394 "regression-compile-tmp/nrimp10s-77.imp"
L_010e:;
                                                                //   1395        ->IEND
#line 1395 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
                                                                //   1396  MULT: T=0;                              ! MULTIPLE CONSTANTS
#line 1396 "regression-compile-tmp/nrimp10s-77.imp"
U_1008:;
#line 1396 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //   1397        %CYCLE
#line 1397 "regression-compile-tmp/nrimp10s-77.imp"
L_0113:;
                                                                //   1398           I=CC(Q);  Q=Q+1;  T=T+1
#line 1398 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
#line 1398 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1398 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1399           %IF I=M'''' %THEN %START
#line 1399 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_0116;
                                                                //   1400              %IF CC(Q)#M'''' %THEN %EXIT %ELSE Q=Q+1
#line 1400 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) == (39))) goto L_0117;
#line 1400 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0114;
#line 1400 "regression-compile-tmp/nrimp10s-77.imp"
L_0117:;
#line 1400 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1401           %FINISH
#line 1401 "regression-compile-tmp/nrimp10s-77.imp"
L_0116:;
                                                                //   1402           %RETURN %IF T>=5
#line 1402 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) < (5))) goto L_0118;
#line 1402 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1402 "regression-compile-tmp/nrimp10s-77.imp"
L_0118:;
                                                                //   1403           %IF EBCDIC#0 %THEN I=ITOETAB(I)
#line 1403 "regression-compile-tmp/nrimp10s-77.imp"
if (((EBCDIC) == (0))) goto L_0119;
#line 1403 "regression-compile-tmp/nrimp10s-77.imp"
I = ITOETAB[I];
#line 1403 "regression-compile-tmp/nrimp10s-77.imp"
L_0119:;
                                                                //   1404           S=S<<8!I
#line 1404 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((S) << (8))) | (I));
                                                                //   1405        %REPEAT
#line 1405 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0113;
#line 1405 "regression-compile-tmp/nrimp10s-77.imp"
L_0114:;
                                                                //   1406        ->IEND
#line 1406 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
                                                                //   1407  BIN:  T=0;                              ! BINARY CONST
#line 1407 "regression-compile-tmp/nrimp10s-77.imp"
U_1009:;
#line 1407 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //   1408        %CYCLE
#line 1408 "regression-compile-tmp/nrimp10s-77.imp"
L_011a:;
                                                                //   1409           I=CC(Q);  Q=Q+1;  T=T+1
#line 1409 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
#line 1409 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1409 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //   1410           %EXIT %IF I=M''''
#line 1410 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_011d;
#line 1410 "regression-compile-tmp/nrimp10s-77.imp"
goto L_011b;
#line 1410 "regression-compile-tmp/nrimp10s-77.imp"
L_011d:;
                                                                //   1411           %RETURN %UNLESS '0'<=I<='1' %AND T<33
#line 1411 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) > (49)))) goto L_011e;
#line 1411 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) < (33))) goto L_011f;
#line 1411 "regression-compile-tmp/nrimp10s-77.imp"
L_011e:;
#line 1411 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1411 "regression-compile-tmp/nrimp10s-77.imp"
L_011f:;
                                                                //   1412           S=S<<1!I&1
#line 1412 "regression-compile-tmp/nrimp10s-77.imp"
S = ((((S) << (1))) | (((I) & (1))));
                                                                //   1413        %REPEAT
#line 1413 "regression-compile-tmp/nrimp10s-77.imp"
goto L_011a;
#line 1413 "regression-compile-tmp/nrimp10s-77.imp"
L_011b:;
                                                                //   1414        ->IEND
#line 1414 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
                                                                //   1415  N:                                      ! CONSTANT STARTS WITH DIGIT
#line 1415 "regression-compile-tmp/nrimp10s-77.imp"
U_1012:;
                                                                //   1416        I=CC(Q)
#line 1416 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1417        {%UNTIL I<M'0' %OR I>M'9'} %CYCLE
#line 1417 "regression-compile-tmp/nrimp10s-77.imp"
L_0120:;
/*Warning: potential loss of precision converting from integer AST_BINOP (((I) & (15)) - 0 bytes) to real AST_BINOP ((((double)(TEN)) * (CVALUE)) - 0 bytes) detected at ast.c line 108 */
                                                                //   1418           CVALUE=TEN*CVALUE+(I&15)
#line 1418 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = (((((double)(TEN)) * (CVALUE))) + ((((I) & (15)))));
                                                                //   1419           Q=Q+1;  I=CC(Q);               ! ONTO NEXT CHAR
#line 1419 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1419 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1420        %REPEAT %UNTIL I<M'0' %OR I>M'9'
#line 1420 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) < (48))) goto L_0121;
#line 1420 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) > (57))) goto L_0121;
#line 1420 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0120;
#line 1420 "regression-compile-tmp/nrimp10s-77.imp"
L_0121:;
                                                                //   1421        ->ALPHA %UNLESS MODE=0 %AND I='.'
#line 1421 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0122;
#line 1421 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (46))) goto L_0123;
#line 1421 "regression-compile-tmp/nrimp10s-77.imp"
L_0122:;
#line 1421 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100d;
#line 1421 "regression-compile-tmp/nrimp10s-77.imp"
L_0123:;
                                                                //   1422  DOT:  Q=Q+1;  X=TEN;  I=CC(Q)
#line 1422 "regression-compile-tmp/nrimp10s-77.imp"
U_1013:;
#line 1422 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1422 "regression-compile-tmp/nrimp10s-77.imp"
X = TEN;
#line 1422 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1423        DOTSEEN=1;                        ! CONSTANT HAS DECIMAL POINT
#line 1423 "regression-compile-tmp/nrimp10s-77.imp"
DOTSEEN = 1;
                                                                //   1424        %WHILE M'0'<=I<=M'9' %CYCLE
#line 1424 "regression-compile-tmp/nrimp10s-77.imp"
L_0124:;
#line 1424 "regression-compile-tmp/nrimp10s-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_0125;
                                                                //   1425           CVALUE=CVALUE+(I&15)/X
#line 1425 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = ((CVALUE) + (((double)((double)((((I) & (15)))) / (double)((double)(X))))));
                                                                //   1426           X=TEN*X;  Q=Q+1;  I=CC(Q)
#line 1426 "regression-compile-tmp/nrimp10s-77.imp"
X = (((double)(TEN)) * (X));
#line 1426 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1426 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1427        %REPEAT
#line 1427 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0124;
#line 1427 "regression-compile-tmp/nrimp10s-77.imp"
L_0125:;
                                                                //   1428  ALPHA:                                  ! TEST FOR EXPONENT
#line 1428 "regression-compile-tmp/nrimp10s-77.imp"
U_100d:;
                                                                //   1429        %IF MODE=0 %AND CC(Q)='@' %THEN %START
#line 1429 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0127;
#line 1429 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) != (64))) goto L_0127;
                                                                //   1430           Q=Q+1;  X=CVALUE
#line 1430 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1430 "regression-compile-tmp/nrimp10s-77.imp"
X = CVALUE;
                                                                //   1431           Z=1;  I=CC(Q)
#line 1431 "regression-compile-tmp/nrimp10s-77.imp"
Z = 1;
#line 1431 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1432           %IF I='-' %THEN Z=-1
#line 1432 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_0128;
#line 1432 "regression-compile-tmp/nrimp10s-77.imp"
Z = (-1);
#line 1432 "regression-compile-tmp/nrimp10s-77.imp"
L_0128:;
                                                                //   1433           %IF I='+' %OR I='-' %THEN Q=Q+1
#line 1433 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (43))) goto L_0129;
#line 1433 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (45))) goto L_012a;
#line 1433 "regression-compile-tmp/nrimp10s-77.imp"
L_0129:;
#line 1433 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1433 "regression-compile-tmp/nrimp10s-77.imp"
L_012a:;
                                                                //   1434           CONST(2)
#line 1434 "regression-compile-tmp/nrimp10s-77.imp"
CONST(2);
                                                                //   1435           %IF HIT=0 %THEN %RETURN
#line 1435 "regression-compile-tmp/nrimp10s-77.imp"
if (((HIT) != (0))) goto L_012b;
#line 1435 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1435 "regression-compile-tmp/nrimp10s-77.imp"
L_012b:;
                                                                //   1436           HIT=0
#line 1436 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 0;
                                                                //   1437           R=RR+1
#line 1437 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(RR)) + (1));
                                                                //   1438           %IF A(R)>>4#4 %THEN %RETURN;   ! EXPONENT  MUST BE HALFINTEGER
#line 1438 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(A[R])) >> (4)))) == (4))) goto L_012c;
#line 1438 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1438 "regression-compile-tmp/nrimp10s-77.imp"
L_012c:;
                                                                //   1439           S=FROM AR2(R+1)*Z
#line 1439 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(FROMAR2((((int)(R)) + (1))))) * (Z));
                                                                //   1440           %IF S=-99 %THEN CVALUE=0 %ELSE %START
#line 1440 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) != ((-99)))) goto L_012d;
#line 1440 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = 0;
#line 1440 "regression-compile-tmp/nrimp10s-77.imp"
goto L_012e;
#line 1440 "regression-compile-tmp/nrimp10s-77.imp"
L_012d:;
                                                                //   1441  !           %IF USE IMP=NO %THEN %START
                                                                //   1442  !               *MPSR_16_8080;          ! MASK OUT REAL OVERFLOW
                                                                //   1443  !           %FINISH
                                                                //   1444              %WHILE S>0 %CYCLE
#line 1444 "regression-compile-tmp/nrimp10s-77.imp"
L_012f:;
#line 1444 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) <= (0))) goto L_0130;
                                                                //   1445                 S=S-1
#line 1445 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(S)) - (1));
                                                                //   1446                 CVALUE=CVALUE*TEN
#line 1446 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = (((double)(CVALUE)) * (TEN));
                                                                //   1447  !              %IF USE IMP=NO %THEN %START
                                                                //   1448  !                 *JAT_15,<FAIL>
                                                                //   1449  !              %FINISH
                                                                //   1450              %REPEAT
#line 1450 "regression-compile-tmp/nrimp10s-77.imp"
goto L_012f;
#line 1450 "regression-compile-tmp/nrimp10s-77.imp"
L_0130:;
                                                                //   1451              %WHILE S<0 %AND CVALUE#0 %CYCLE
#line 1451 "regression-compile-tmp/nrimp10s-77.imp"
L_0132:;
#line 1451 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) >= (0))) goto L_0133;
#line 1451 "regression-compile-tmp/nrimp10s-77.imp"
if (((CVALUE) == (0))) goto L_0133;
                                                                //   1452                 S=S+1
#line 1452 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(S)) + (1));
                                                                //   1453                 CVALUE=CVALUE/TEN
#line 1453 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = (double)((double)((double)(CVALUE)) / (double)((double)(TEN)));
                                                                //   1454              %REPEAT
#line 1454 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0132;
#line 1454 "regression-compile-tmp/nrimp10s-77.imp"
L_0133:;
                                                                //   1455           %FINISH
#line 1455 "regression-compile-tmp/nrimp10s-77.imp"
L_012e:;
                                                                //   1456        %FINISH
#line 1456 "regression-compile-tmp/nrimp10s-77.imp"
L_0127:;
                                                                //   1457                                          ! SEE IF IT IS INTEGER
                                                                //   1458        %IF FS='D' %THEN %START
#line 1458 "regression-compile-tmp/nrimp10s-77.imp"
if (((FS) != (68))) goto L_0135;
                                                                //   1459           I=CC(Q)
#line 1459 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1460           %IF I='''' %THEN Q=Q+1 %ELSE %RETURN
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (39))) goto L_0136;
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0137;
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
L_0136:;
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1460 "regression-compile-tmp/nrimp10s-77.imp"
L_0137:;
                                                                //   1461           DOTSEEN=1;                     ! ENSURE NOT TAKEN AS INTEGER
#line 1461 "regression-compile-tmp/nrimp10s-77.imp"
DOTSEEN = 1;
                                                                //   1462        %FINISH
#line 1462 "regression-compile-tmp/nrimp10s-77.imp"
L_0135:;
                                                                //   1463        %IF DOTSEEN=1 %OR CVALUE>IMAX %OR FRACPT(CVALUE)#0 %THEN CTYPE=2 %ELSE CTYPE=1 %AND S=INT(CVALUE)
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
if (((DOTSEEN) == (1))) goto L_0126;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
if (((CVALUE) > (IMAX))) goto L_0126;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
if (((_imp_FRACPT(CVALUE)) == (0))) goto L_0138;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
L_0126:;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 2;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0139;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
L_0138:;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 1;
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
S = _imp_INT(CVALUE);
#line 1463 "regression-compile-tmp/nrimp10s-77.imp"
L_0139:;
                                                                //   1464        %IF CTYPE=1 %THEN ->IEND
#line 1464 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (1))) goto L_013a;
#line 1464 "regression-compile-tmp/nrimp10s-77.imp"
goto U_100c;
#line 1464 "regression-compile-tmp/nrimp10s-77.imp"
L_013a:;
                                                                //   1465        %IF CPREC=5 %THEN CPREC=6;        ! NO 32 BIT REAL CONSTS
#line 1465 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (5))) goto L_013b;
#line 1465 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 6;
#line 1465 "regression-compile-tmp/nrimp10s-77.imp"
L_013b:;
                                                                //   1466        %IF CPREC=6 %THEN %START
#line 1466 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (6))) goto L_013c;
                                                                //   1467  !        %IF USE IMP=NO %THEN %START;   ! SOFTWARE ROUND IN MC CODE ONLY
                                                                //   1468  !           *LSD_CVALUE
                                                                //   1469  !           *AND_16_FF00000000000000
                                                                //   1470  !           *SLSD_CVALUE+8
                                                                //   1471  !           *AND_16_0080000000000000
                                                                //   1472  !           *LUH_%TOS
                                                                //   1473  !           *RAD_CVALUE
                                                                //   1474  !           *ST_CVALUE
                                                                //   1475  !        %FINISH
                                                                //   1476        %FINISH
#line 1476 "regression-compile-tmp/nrimp10s-77.imp"
L_013c:;
                                                                //   1477        TOAR8(R,CVALUE);  R=R+8
#line 1477 "regression-compile-tmp/nrimp10s-77.imp"
TOAR8(R, CVALUE);
#line 1477 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (8));
                                                                //   1478        %IF CPREC=7 %THEN TOAR8(R,LONGREAL(ADDR(CVALUE)+8)) %AND R=R+8
#line 1478 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (7))) goto L_013d;
#line 1478 "regression-compile-tmp/nrimp10s-77.imp"
TOAR8(R, *_imp_LONGREAL((((int)(_imp_ADDR(&CVALUE))) + (8))));
#line 1478 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (8));
#line 1478 "regression-compile-tmp/nrimp10s-77.imp"
L_013d:;
                                                                //   1479        A(RR)=CPREC<<4+CTYPE
#line 1479 "regression-compile-tmp/nrimp10s-77.imp"
A[RR] = (((int)(((CPREC) << (4)))) + (CTYPE));
                                                                //   1480        HIT=1
#line 1480 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 1;
                                                                //   1481  FAIL: %END
#line 1481 "regression-compile-tmp/nrimp10s-77.imp"
U_100e:;
#line 1481 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONST at level 4
                                                                //   1482  %ROUTINE TEXTTEXT(%INTEGER EBCDIC)
#line 1482 "regression-compile-tmp/nrimp10s-77.imp"
void TEXTTEXT( int EBCDIC )
#line 1482 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1483  !***********************************************************************
                                                                //   1484  !*    PROCESSES TEXT BETWEEN DOUBLE QUOTES AND STORES IN ISO OR EBCDIC *  
                                                                //   1485  !***********************************************************************
                                                                //   1486  %INTEGER J, II
#line 1486 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 1486 "regression-compile-tmp/nrimp10s-77.imp"
int II;
                                                                //   1487  %CONSTINTEGER QU='"'
                                                                //   1488           I=CC(Q)
#line 1488 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1489           S=R+4;  R=R+5; HIT=0
#line 1489 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(R)) + (4));
#line 1489 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (5));
#line 1489 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 0;
                                                                //   1490           %RETURN %UNLESS I=QU;          ! FAIL UNLESS  INITIAL QUOTE
#line 1490 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (34))) goto L_013e;
#line 1490 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1490 "regression-compile-tmp/nrimp10s-77.imp"
L_013e:;
                                                                //   1491           Q=Q+1
#line 1491 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1492           %CYCLE
#line 1492 "regression-compile-tmp/nrimp10s-77.imp"
L_013f:;
                                                                //   1493              I=CC(Q)
#line 1493 "regression-compile-tmp/nrimp10s-77.imp"
I = CC[Q];
                                                                //   1494              %IF EBCDIC#0 %THEN II=ITOETAB(I) %ELSE II=I
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
if (((EBCDIC) == (0))) goto L_0142;
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
II = ITOETAB[I];
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0143;
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
L_0142:;
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
II = I;
#line 1494 "regression-compile-tmp/nrimp10s-77.imp"
L_0143:;
                                                                //   1495              A(R)=II;  R=R+1
#line 1495 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = II;
#line 1495 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (1));
                                                                //   1496              %IF I=QU %THEN %START
#line 1496 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (34))) goto L_0144;
                                                                //   1497                 Q=Q+1
#line 1497 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   1498                 %IF CC(Q)#QU %THEN %EXIT
#line 1498 "regression-compile-tmp/nrimp10s-77.imp"
if (((CC[Q]) == (34))) goto L_0145;
#line 1498 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0140;
#line 1498 "regression-compile-tmp/nrimp10s-77.imp"
L_0145:;
                                                                //   1499              %FINISH
#line 1499 "regression-compile-tmp/nrimp10s-77.imp"
L_0144:;
                                                                //   1500              %IF I=10 %THEN READLINE(1,QU) %ELSE Q=Q+1
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (10))) goto L_0146;
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
READLINE(1, 34);
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0147;
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
L_0146:;
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
#line 1500 "regression-compile-tmp/nrimp10s-77.imp"
L_0147:;
                                                                //   1501              FAULT(106,0) %IF R-S>256
#line 1501 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)(R)) - (S))) <= (256))) goto L_0148;
#line 1501 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(106, 0);
#line 1501 "regression-compile-tmp/nrimp10s-77.imp"
L_0148:;
                                                                //   1502           %REPEAT
#line 1502 "regression-compile-tmp/nrimp10s-77.imp"
goto L_013f;
#line 1502 "regression-compile-tmp/nrimp10s-77.imp"
L_0140:;
                                                                //   1503           R=R-1;  J=R-S-1
#line 1503 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) - (1));
#line 1503 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)((((int)(R)) - (S)))) - (1));
                                                                //   1504           A(S)=J;   HIT=1
#line 1504 "regression-compile-tmp/nrimp10s-77.imp"
A[S] = J;
#line 1504 "regression-compile-tmp/nrimp10s-77.imp"
HIT = 1;
                                                                //   1505  %END
#line 1505 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TEXTTEXT at level 4
                                                                //   1506  BEND:%END;                              ! OF BLOCK CONTAINING PASS 1
#line 1506 "regression-compile-tmp/nrimp10s-77.imp"
U_1000:;
#line 1506 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_2_LEVEL_2_ at level 3
_BLOCK_2_LEVEL_2_();
                                                                //   1507           %IF LEVEL>1 %THEN FAULT(15, 0)
#line 1507 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) <= (1))) goto L_0149;
#line 1507 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(15, 0);
#line 1507 "regression-compile-tmp/nrimp10s-77.imp"
L_0149:;
                                                                //   1508           I=0
#line 1508 "regression-compile-tmp/nrimp10s-77.imp"
I = 0;
                                                                //   1509           NEWLINE
#line 1509 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //   1510           %IF FAULTY=0 %THEN %START
#line 1510 "regression-compile-tmp/nrimp10s-77.imp"
if (((FAULTY) != (0))) goto L_014a;
                                                                //   1511              WRITE(LINE, 5)
#line 1511 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(LINE, 5);
                                                                //   1512              PRINT STRING(" LINES ANALYSED IN")
#line 1512 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" LINES ANALYSED IN"));
/*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(cputime())) - (CTIME)) - 0 bytes) detected at ast.c line 108 */
                                                                //   1513              WRITE(INT(1000*(CPUTIME-CTIME)),5)
#line 1513 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(_imp_INT((((1000)) * ((((double)(cputime())) - (CTIME))))), 5);
                                                                //   1514              PRINT STRING(" MSECS  -  SIZE=")
#line 1514 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" MSECS  -  SIZE="));
                                                                //   1515              WRITE(P1SIZE, 5)
#line 1515 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(P1SIZE, 5);
                                                                //   1516              %IF LINE>90 %AND LIST#0 %THEN NEWPAGE %ELSE NEWLINE
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
if (((LINE) <= (90))) goto L_014b;
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
if (((LIST) == (0))) goto L_014b;
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWPAGE();
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
goto L_014c;
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
L_014b:;
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 1516 "regression-compile-tmp/nrimp10s-77.imp"
L_014c:;
                                                                //   1517           %FINISH %ELSE %START
#line 1517 "regression-compile-tmp/nrimp10s-77.imp"
goto L_014d;
#line 1517 "regression-compile-tmp/nrimp10s-77.imp"
L_014a:;
                                                                //   1518              PRINTSTRING("CODE GENERATION NOT ATTEMPTED
#line 1518 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("CODE GENERATION NOT ATTEMPTED\n"));
                                                                //   1519  ")
                                                                //   1520              COMREG(24)=8
#line 1520 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(24) = 8;
                                                                //   1521              COMREG(47)=FAULTY
#line 1521 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(47) = FAULTY;
                                                                //   1522              %STOP
#line 1522 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
                                                                //   1523           %FINISH
#line 1523 "regression-compile-tmp/nrimp10s-77.imp"
L_014d:;
                                                                //   1524  %BEGIN
#line 1524 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_3_LEVEL_2_(void) {
                                                                //   1525  !***********************************************************************
                                                                //   1526  !*    SECOND OR CODE GENERATING PASS                                   *
                                                                //   1527  !***********************************************************************
                                                                //   1528  %INTEGERARRAY REGISTER, GRUSE, GRAT, GRINF1, GRINF2, OLINK(0:7)
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int REGISTER[8];
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int GRUSE[8];
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int GRAT[8];
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int GRINF1[8];
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int GRINF2[8];
#line 1528 "regression-compile-tmp/nrimp10s-77.imp"
int OLINK[8];
                                                                //   1529  %BYTEINTEGERARRAY CODE, GLABUF(0:268)
#line 1529 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char CODE[269];
#line 1529 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char GLABUF[269];
                                                                //   1530  %INTEGERARRAY PLABS, DESADS, PLINK(0:31)
#line 1530 "regression-compile-tmp/nrimp10s-77.imp"
int PLABS[32];
#line 1530 "regression-compile-tmp/nrimp10s-77.imp"
int DESADS[32];
#line 1530 "regression-compile-tmp/nrimp10s-77.imp"
int PLINK[32];
                                                                //   1531  %INTEGERARRAY SET, STACKBASE, RAL, FLAG, L, M, NMDECS, ONWORD, ONINF,{%C
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int SET[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int STACKBASE[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int RAL[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int FLAG[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int L[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int M[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int NMDECS[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int ONWORD[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int ONINF[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int JUMP[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int LABEL[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int JROUND[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int DIAGINF[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int DISPLAY[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int AUXSBASE[32];
#line 1531 "regression-compile-tmp/nrimp10s-77.imp"
int NAMES[32];
                                                                //   1532           JUMP, LABEL, JROUND, DIAGINF, DISPLAY, {%C
                                                                //   1533           AUXSBASE, NAMES (0:MAXLEVELS)
                                                                //   1534  %INTEGERARRAY AVL WSP(0:4,0:MAXLEVELS)
#line 1534 "regression-compile-tmp/nrimp10s-77.imp"
int AVLWSP[5][32];
                                                                //   1535  %recordformat rcf(%integerarray val(0:12* 2047 {NNAMES}))  { unfortunately we can't have a dynamically-sized array in a record. Largest possible is 2047.
#line 1535 "regression-compile-tmp/nrimp10s-77.imp"
typedef struct RCF RCF;
struct RCF {
  int VAL[24565];
};
                                                                //   1536  %record (rcf) %name CTABLE
#line 1536 "regression-compile-tmp/nrimp10s-77.imp"
 RCF /*name*/*CTABLE;
                                                                //   1537  {%INTEGERARRAYFORMAT CF(0:12*NNAMES)   -  Imp77 doesn't support ARRAY() mapping.
                                                                //   1538  {%INTEGERARRAY(1)%NAME CTABLE
                                                                //   1539  %ROUTINESPEC CNOP(%INTEGER I, J)
#line 1539 "regression-compile-tmp/nrimp10s-77.imp"
auto void CNOP( int I, int J );
                                                                //   1540  %ROUTINESPEC PCLOD(%INTEGER FROM, TO)
#line 1540 "regression-compile-tmp/nrimp10s-77.imp"
auto void PCLOD( int FROM, int TO );
                                                                //   1541  %ROUTINESPEC PCONST(%INTEGER X)
#line 1541 "regression-compile-tmp/nrimp10s-77.imp"
auto void PCONST( int X );
                                                                //   1542  %ROUTINESPEC PSF1(%INTEGER OPCODE,K,N)
#line 1542 "regression-compile-tmp/nrimp10s-77.imp"
auto void PSF1( int OPCODE, int K, int N );
                                                                //   1543  %ROUTINESPEC PF1(%INTEGER OPCODE,KP,KPP,N)
#line 1543 "regression-compile-tmp/nrimp10s-77.imp"
auto void PF1( int OPCODE, int KP, int KPP, int N );
                                                                //   1544  %ROUTINESPEC PSORLF1(%INTEGER OPCODE,KP,KPP,N)
#line 1544 "regression-compile-tmp/nrimp10s-77.imp"
auto void PSORLF1( int OPCODE, int KP, int KPP, int N );
                                                                //   1545  %ROUTINESPEC PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER)
#line 1545 "regression-compile-tmp/nrimp10s-77.imp"
auto void PF2( int OPCODE, int H, int Q, int N, int MASK, int FILLER );
                                                                //   1546  %ROUTINESPEC PF3(%INTEGER OPCODE,MASK,KPPP,N)
#line 1546 "regression-compile-tmp/nrimp10s-77.imp"
auto void PF3( int OPCODE, int MASK, int KPPP, int N );
                                                                //   1547  %ROUTINESPEC NOTE CREF(%INTEGER CA,VAL)
#line 1547 "regression-compile-tmp/nrimp10s-77.imp"
auto void NOTECREF( int CA, int VAL );
                                                                //   1548  %INTEGERFNSPEC PARAM DES(%INTEGER PREC)
#line 1548 "regression-compile-tmp/nrimp10s-77.imp"
auto int PARAMDES( int PREC );
                                                                //   1549  %INTEGERFNSPEC MAPDES(%INTEGER PREC)
#line 1549 "regression-compile-tmp/nrimp10s-77.imp"
auto int MAPDES( int PREC );
                                                                //   1550  %INTEGERFNSPEC SPECIAL CONSTS(%INTEGER WHICH)
#line 1550 "regression-compile-tmp/nrimp10s-77.imp"
auto int SPECIALCONSTS( int WHICH );
                                                                //   1551  %ROUTINESPEC STORE CONST(%INTEGERNAME D,%INTEGER L,AD)
#line 1551 "regression-compile-tmp/nrimp10s-77.imp"
auto void STORECONST( int /*name*/*D, int L, int AD );
                                                                //   1552  %ROUTINESPEC DUMP CONSTS
#line 1552 "regression-compile-tmp/nrimp10s-77.imp"
auto void DUMPCONSTS( void );
                                                                //   1553  %ROUTINESPEC PLANT(%INTEGER VALUE)
#line 1553 "regression-compile-tmp/nrimp10s-77.imp"
auto void PLANT( int VALUE );
                                                                //   1554  %ROUTINESPEC PLUG(%INTEGER I, J, K, BYTES)
#line 1554 "regression-compile-tmp/nrimp10s-77.imp"
auto void PLUG( int I, int J, int K, int BYTES );
                                                                //   1555  %ROUTINESPEC CODEOUT
#line 1555 "regression-compile-tmp/nrimp10s-77.imp"
auto void CODEOUT( void );
                                                                //   1556  %ROUTINESPEC PROLOGUE
#line 1556 "regression-compile-tmp/nrimp10s-77.imp"
auto void PROLOGUE( void );
                                                                //   1557  %ROUTINESPEC EPILOGUE
#line 1557 "regression-compile-tmp/nrimp10s-77.imp"
auto void EPILOGUE( void );
                                                                //   1558  %ROUTINESPEC COMPILE A STMNT
#line 1558 "regression-compile-tmp/nrimp10s-77.imp"
auto void COMPILEASTMNT( void );
                                                                //   1559  %ROUTINESPEC CSS(%INTEGER P)
#line 1559 "regression-compile-tmp/nrimp10s-77.imp"
auto void CSS( int P );
                                                                //   1560  %ROUTINESPEC LOAD DATA
#line 1560 "regression-compile-tmp/nrimp10s-77.imp"
auto void LOADDATA( void );
                                                                //   1561  %ROUTINESPEC ABORT
#line 1561 "regression-compile-tmp/nrimp10s-77.imp"
auto void ABORT( void );
                                                                //   1562  !*DELSTART
                                                                //   1563  %ROUTINESPEC PRINT USE
#line 1563 "regression-compile-tmp/nrimp10s-77.imp"
auto void PRINTUSE( void );
                                                                //   1564  !*DELEND
                                                                //   1565           %CYCLE I=0,1,7
#line 1565 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_014e:;
if (I == 7) goto L_014f;
I += 1;
                                                                //   1566              REGISTER(I)=0; GRUSE(I)=0; GRINF1(I)=0; GRAT(I)=0
#line 1566 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[I] = 0;
#line 1566 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = 0;
#line 1566 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[I] = 0;
#line 1566 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[I] = 0;
                                                                //   1567              GRINF2(I)=0
#line 1567 "regression-compile-tmp/nrimp10s-77.imp"
GRINF2[I] = 0;
                                                                //   1568           %REPEAT
#line 1568 "regression-compile-tmp/nrimp10s-77.imp"
goto L_014e;
#line 1568 "regression-compile-tmp/nrimp10s-77.imp"
L_014f:;
                                                                //   1569           %CYCLE I=0, 1, MAXLEVELS
#line 1569 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31");
L_0151:;
if (I == 31) goto L_0152;
I += 1;
                                                                //   1570              SET(I)=0;  STACKBASE(I)=0;  RAL(I)=0
#line 1570 "regression-compile-tmp/nrimp10s-77.imp"
SET[I] = 0;
#line 1570 "regression-compile-tmp/nrimp10s-77.imp"
STACKBASE[I] = 0;
#line 1570 "regression-compile-tmp/nrimp10s-77.imp"
RAL[I] = 0;
                                                                //   1571              JUMP(I)=0;  JROUND(I)=0
#line 1571 "regression-compile-tmp/nrimp10s-77.imp"
JUMP[I] = 0;
#line 1571 "regression-compile-tmp/nrimp10s-77.imp"
JROUND[I] = 0;
                                                                //   1572              LABEL(I)=0;  FLAG(I)=0
#line 1572 "regression-compile-tmp/nrimp10s-77.imp"
LABEL[I] = 0;
#line 1572 "regression-compile-tmp/nrimp10s-77.imp"
FLAG[I] = 0;
                                                                //   1573              L(I)=0; M(I)=0; DIAGINF(I)=0
#line 1573 "regression-compile-tmp/nrimp10s-77.imp"
L[I] = 0;
#line 1573 "regression-compile-tmp/nrimp10s-77.imp"
M[I] = 0;
#line 1573 "regression-compile-tmp/nrimp10s-77.imp"
DIAGINF[I] = 0;
                                                                //   1574              DISPLAY(I)=0; ONWORD(I)=0; ONINF(I)=0
#line 1574 "regression-compile-tmp/nrimp10s-77.imp"
DISPLAY[I] = 0;
#line 1574 "regression-compile-tmp/nrimp10s-77.imp"
ONWORD[I] = 0;
#line 1574 "regression-compile-tmp/nrimp10s-77.imp"
ONINF[I] = 0;
                                                                //   1575              NAMES(I)=-1
#line 1575 "regression-compile-tmp/nrimp10s-77.imp"
NAMES[I] = (-1);
                                                                //   1576              %CYCLE J=0,1,4
#line 1576 "regression-compile-tmp/nrimp10s-77.imp"
J = (-1);
if ((((4)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 4");
L_0154:;
if (J == 4) goto L_0155;
J += 1;
                                                                //   1577                AVL WSP(J,I)=0
#line 1577 "regression-compile-tmp/nrimp10s-77.imp"
AVLWSP[J][I] = 0;
                                                                //   1578              %REPEAT
#line 1578 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0154;
#line 1578 "regression-compile-tmp/nrimp10s-77.imp"
L_0155:;
                                                                //   1579           %REPEAT
#line 1579 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0151;
#line 1579 "regression-compile-tmp/nrimp10s-77.imp"
L_0152:;
                                                                //   1580           {CTABLE==ARRAY(ADDR(ASLIST(1)),CF)
                                                                //   1581           CTABLE==RECORD(ADDR(ASLIST(1)))
#line 1581 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE =  (RCF *) _imp_RECORD(_imp_ADDR(&ASLIST[1]));
                                                                //   1582           CONST HOLE=0
#line 1582 "regression-compile-tmp/nrimp10s-77.imp"
CONSTHOLE = 0;
                                                                //   1583           PROLOGUE
#line 1583 "regression-compile-tmp/nrimp10s-77.imp"
PROLOGUE();
                                                                //   1584           LINE=0
#line 1584 "regression-compile-tmp/nrimp10s-77.imp"
LINE = 0;
                                                                //   1585           NEXTP=1; LEVEL=1; STMTS=0
#line 1585 "regression-compile-tmp/nrimp10s-77.imp"
NEXTP = 1;
#line 1585 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = 1;
#line 1585 "regression-compile-tmp/nrimp10s-77.imp"
STMTS = 0;
                                                                //   1586           RLEVEL=0; RBASE=0
#line 1586 "regression-compile-tmp/nrimp10s-77.imp"
RLEVEL = 0;
#line 1586 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = 0;
                                                                //   1587           %WHILE A(NEXTP+3)!A(NEXTP+4)#0 %CYCLE
#line 1587 "regression-compile-tmp/nrimp10s-77.imp"
L_0157:;
#line 1587 "regression-compile-tmp/nrimp10s-77.imp"
if (((((A[(((int)(NEXTP)) + (3))]) | (A[(((int)(NEXTP)) + (4))]))) == (0))) goto L_0158;
                                                                //   1588           COMPILE A STMNT
#line 1588 "regression-compile-tmp/nrimp10s-77.imp"
COMPILEASTMNT();
                                                                //   1589           %REPEAT
#line 1589 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0157;
#line 1589 "regression-compile-tmp/nrimp10s-77.imp"
L_0158:;
                                                                //   1590           LINE=99999
#line 1590 "regression-compile-tmp/nrimp10s-77.imp"
LINE = 99999;
                                                                //   1591           EPILOGUE
#line 1591 "regression-compile-tmp/nrimp10s-77.imp"
EPILOGUE();
                                                                //   1592           LOAD DATA
#line 1592 "regression-compile-tmp/nrimp10s-77.imp"
LOADDATA();
                                                                //   1593           %STOP
#line 1593 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
                                                                //   1594  %ROUTINE COMPILE A STMNT
#line 1594 "regression-compile-tmp/nrimp10s-77.imp"
void COMPILEASTMNT( void )
#line 1594 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1595  %INTEGER I
#line 1595 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   1596  !*DELSTART
                                                                //   1597        %IF DCOMP#0 %AND CA>CABUF %THEN CODEOUT %AND PRINTUSE
#line 1597 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) == (0))) goto L_015a;
#line 1597 "regression-compile-tmp/nrimp10s-77.imp"
if (((CA) <= (CABUF))) goto L_015a;
#line 1597 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1597 "regression-compile-tmp/nrimp10s-77.imp"
PRINTUSE();
#line 1597 "regression-compile-tmp/nrimp10s-77.imp"
L_015a:;
                                                                //   1598  !*DELEND
                                                                //   1599        I=NEXTP
#line 1599 "regression-compile-tmp/nrimp10s-77.imp"
I = NEXTP;
                                                                //   1600        NEXTP=NEXTP+A(NEXTP)<<16+A(NEXTP+1)<<8+A(NEXTP+2)
#line 1600 "regression-compile-tmp/nrimp10s-77.imp"
NEXTP = (((unsigned char)((((((NEXTP) + ((int)(((A[NEXTP]) << (16))))))) + (((A[(((int)(NEXTP)) + (1))]) << (8)))))) + (A[(((int)(NEXTP)) + (2))]));
                                                                //   1601        LINE=A(I+3)<<8+A(I+4)
#line 1601 "regression-compile-tmp/nrimp10s-77.imp"
LINE = (((unsigned char)(((A[(((int)(I)) + (3))]) << (8)))) + (A[(((int)(I)) + (4))]));
                                                                //   1602        STMTS=STMTS+1
#line 1602 "regression-compile-tmp/nrimp10s-77.imp"
STMTS = (((int)(STMTS)) + (1));
                                                                //   1603        CSS(I+5)
#line 1603 "regression-compile-tmp/nrimp10s-77.imp"
CSS((((int)(I)) + (5)));
                                                                //   1604  !      CHECK ASL %IF LINE&7=0
                                                                //   1605  %END
#line 1605 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COMPILEASTMNT at level 4
                                                                //   1606  %ROUTINE LOAD DATA
#line 1606 "regression-compile-tmp/nrimp10s-77.imp"
void LOADDATA( void )
#line 1606 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1607  !***********************************************************************
                                                                //   1608  !*       PASS INFORMATION TO LPUT TO ENABLE IT TO GENERATE THE         *
                                                                //   1609  !*       LOADER DATA AND COMPLETE THE PROGRAM FILE.                    *
                                                                //   1610  !***********************************************************************
                                                                //   1611  %INTEGER LANGFLAG,PARMS
#line 1611 "regression-compile-tmp/nrimp10s-77.imp"
int LANGFLAG;
#line 1611 "regression-compile-tmp/nrimp10s-77.imp"
int PARMS;
                                                                //   1612           GLACA=(GLACA+7)&(-8)
#line 1612 "regression-compile-tmp/nrimp10s-77.imp"
GLACA = (((((int)(GLACA)) + (7))) & ((-8)));
                                                                //   1613           USTPTR=(USTPTR+7)&(-8)
#line 1613 "regression-compile-tmp/nrimp10s-77.imp"
USTPTR = (((((int)(USTPTR)) + (7))) & ((-8)));
                                                                //   1614           CODE OUT
#line 1614 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
                                                                //   1615           CNOP(0, 8)
#line 1615 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(0, 8);
                                                                //   1616           DUMP CONSTS
#line 1616 "regression-compile-tmp/nrimp10s-77.imp"
DUMPCONSTS();
                                                                //   1617           %IF PARMTRACE=0 %THEN LANGFLAG=6 %ELSE LANGFLAG=1
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) != (0))) goto L_015b;
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
LANGFLAG = 6;
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
goto L_015c;
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
L_015b:;
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
LANGFLAG = 1;
#line 1617 "regression-compile-tmp/nrimp10s-77.imp"
L_015c:;
                                                                //   1618           LANGFLAG=LANGFLAG<<24
#line 1618 "regression-compile-tmp/nrimp10s-77.imp"
LANGFLAG = ((LANGFLAG) << (24));
                                                                //   1619           PARMS=(PARMDIAG<<1!PARMLINE)<<1!PARMTRACE
#line 1619 "regression-compile-tmp/nrimp10s-77.imp"
PARMS = ((((((((PARMDIAG) << (1))) | (PARMLINE))) << (1))) | (PARMTRACE));
                                                                //   1620           FIXED GLA(4)=LANGFLAG!1<<16!(CPRMODE&1)<<8!PARMS;! LANG RLSE & MAINPROG
#line 1620 "regression-compile-tmp/nrimp10s-77.imp"
FIXEDGLA[4] = ((((((LANGFLAG) | (((1) << (16))))) | (((((CPRMODE) & (1))) << (8))))) | (PARMS));
                                                                //   1621           I=GLACA-GLACABUF
#line 1621 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(GLACA)) - (GLACABUF));
                                                                //   1622           %IF INHCODE=0 %THEN %START
#line 1622 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_015d;
                                                                //   1623              LPUT(2, I, GLACABUF, ADDR(GLABUF(0))) %UNLESS I=0
#line 1623 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (0))) goto L_015e;
#line 1623 "regression-compile-tmp/nrimp10s-77.imp"
lput(2, I, GLACABUF, _imp_ADDR(&GLABUF[0]));
#line 1623 "regression-compile-tmp/nrimp10s-77.imp"
L_015e:;
                                                                //   1624                                          ! BACK OF GLAP
                                                                //   1625              LPUT(2, FIXEDGLALEN, 0, ADDR(FIXED GLA(0)));! FRONT OF GLAP
#line 1625 "regression-compile-tmp/nrimp10s-77.imp"
lput(2, 48, 0, _imp_ADDR(&FIXEDGLA[0]));
                                                                //   1626              LPUT(19,2,8,5);             ! RELOCATE GLA ST ADDRESS
#line 1626 "regression-compile-tmp/nrimp10s-77.imp"
lput(19, 2, 8, 5);
                                                                //   1627              LPUT(19,2,12,4);            ! RELOCATE CODE ST ADDRESS
#line 1627 "regression-compile-tmp/nrimp10s-77.imp"
lput(19, 2, 12, 4);
                                                                //   1628              I=16_E2E2E2E2
#line 1628 "regression-compile-tmp/nrimp10s-77.imp"
I = (-488447262);
                                                                //   1629              LPUT(4, 4, SSTL, ADDR(I))
#line 1629 "regression-compile-tmp/nrimp10s-77.imp"
lput(4, 4, SSTL, _imp_ADDR(&I));
                                                                //   1630  !
                                                                //   1631           %FINISH
#line 1631 "regression-compile-tmp/nrimp10s-77.imp"
L_015d:;
                                                                //   1632           SSTL=(SSTL+11)&(-8)
#line 1632 "regression-compile-tmp/nrimp10s-77.imp"
SSTL = (((((int)(SSTL)) + (11))) & ((-8)));
                                                                //   1633           PRINTSTRING("
#line 1633 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nCODE"));
                                                                //   1634  CODE")
                                                                //   1635           WRITE(CA, 6);  PRINTSTRING(" BYTES      GLAP")
#line 1635 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(CA, 6);
#line 1635 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES      GLAP"));
                                                                //   1636           WRITE(GLACA, 3);  PRINTSTRING("+")
#line 1636 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(GLACA, 3);
#line 1636 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("+"));
                                                                //   1637           WRITE(USTPTR, 1);  PRINTSTRING(" BYTES      DIAG TABLES")
#line 1637 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(USTPTR, 1);
#line 1637 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES      DIAG TABLES"));
                                                                //   1638           WRITE(SSTL, 3);  PRINTSTRING(" BYTES
#line 1638 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(SSTL, 3);
#line 1638 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES\nTOTAL"));
                                                                //   1639  TOTAL")
                                                                //   1640           REGISTER(0)=CA;  REGISTER(1)=GLACA
#line 1640 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = CA;
#line 1640 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[1] = GLACA;
                                                                //   1641           REGISTER(2)=0
#line 1641 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[2] = 0;
                                                                //   1642           REGISTER(3)=SSTL
#line 1642 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[3] = SSTL;
                                                                //   1643           REGISTER(4)=USTPTR
#line 1643 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[4] = USTPTR;
                                                                //   1644           K=CA+GLACA+SSTL+USTPTR;  REGISTER(5)=K
#line 1644 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)((((int)((((int)(CA)) + (GLACA)))) + (SSTL)))) + (USTPTR));
#line 1644 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[5] = K;
                                                                //   1645           WRITE(K, 5);  PRINTSTRING(" BYTES")
#line 1645 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(K, 5);
#line 1645 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES"));
                                                                //   1646           NEWLINE;  PRINT CH(13);        ! MARKER FOR COMP TO PRINT 
#line 1646 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 1646 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTCH(13);
                                                                //   1647                                          !SUMMARY
                                                                //   1648           %IF FAULTY=0 %THEN %START
#line 1648 "regression-compile-tmp/nrimp10s-77.imp"
if (((FAULTY) != (0))) goto L_015f;
                                                                //   1649              WRITE(STMTS, 7);  PRINTSTRING(" STATEMENTS COMPILED IN")
#line 1649 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(STMTS, 7);
#line 1649 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED IN"));
/*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(cputime())) - (CTIME)) - 0 bytes) detected at ast.c line 108 */
                                                                //   1650              WRITE(INT(1000*(CPUTIME-CTIME)),5)
#line 1650 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(_imp_INT((((1000)) * ((((double)(cputime())) - (CTIME))))), 5);
                                                                //   1651              PRINTSTRING(" MSECS")
#line 1651 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" MSECS"));
                                                                //   1652              COMREG(47)=STMTS;           ! NO OF STMTS FOR COMPER
#line 1652 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(47) = STMTS;
                                                                //   1653           %FINISH %ELSE %START
#line 1653 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0160;
#line 1653 "regression-compile-tmp/nrimp10s-77.imp"
L_015f:;
                                                                //   1654              PRINTSTRING("PROGRAM CONTAINS");  WRITE(FAULTY, 2)
#line 1654 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("PROGRAM CONTAINS"));
#line 1654 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(FAULTY, 2);
                                                                //   1655              PRINTSTRING(" FAULT"); PRINTSYMBOL('S') %IF FAULTY>1
#line 1655 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" FAULT"));
#line 1655 "regression-compile-tmp/nrimp10s-77.imp"
if (((FAULTY) <= (1))) goto L_0161;
#line 1655 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(83);
#line 1655 "regression-compile-tmp/nrimp10s-77.imp"
L_0161:;
                                                                //   1656              COMREG(47)=FAULTY;          ! NO OF FAULTS FOR COMPER
#line 1656 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(47) = FAULTY;
                                                                //   1657           %FINISH
#line 1657 "regression-compile-tmp/nrimp10s-77.imp"
L_0160:;
                                                                //   1658           NEWLINES(2)
#line 1658 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINES(2);
                                                                //   1659           NEWLINE
#line 1659 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //   1660           I=0;  I=8 %IF FAULTY#0
#line 1660 "regression-compile-tmp/nrimp10s-77.imp"
I = 0;
#line 1660 "regression-compile-tmp/nrimp10s-77.imp"
if (((FAULTY) == (0))) goto L_0162;
#line 1660 "regression-compile-tmp/nrimp10s-77.imp"
I = 8;
#line 1660 "regression-compile-tmp/nrimp10s-77.imp"
L_0162:;
                                                                //   1661           COMREG(24)=I
#line 1661 "regression-compile-tmp/nrimp10s-77.imp"
*comreg(24) = I;
                                                                //   1662           %IF INHCODE=0 %THEN LPUT(7, 24, 0, ADDR(REGISTER(0)))
#line 1662 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_0163;
#line 1662 "regression-compile-tmp/nrimp10s-77.imp"
lput(7, 24, 0, _imp_ADDR(&REGISTER[0]));
#line 1662 "regression-compile-tmp/nrimp10s-77.imp"
L_0163:;
                                                                //   1663                                          ! SUMMARY INFO..REGISTER AS BUF
                                                                //   1664  !        PPROFILE
                                                                //   1665           %STOP
#line 1665 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
                                                                //   1666  %END
#line 1666 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block LOADDATA at level 4
                                                                //   1667  !
                                                                //   1668  !***********************************************************************
                                                                //   1669  !*       IMP CODE PLANTING ROUTINES                                    *
                                                                //   1670  !*       CODE AND GLAP ARE PUT INTO THE BUFFERS 'CODE,GLABUF(0:268)'   *
                                                                //   1671  !*       BY A NUMBER OF TRIVIAL ROUTINES.LPUT IS CALLED TO ADD THE     *
                                                                //   1672  !*       BUFFER TO THE OUTPUT FILE. THE BUFFERS ARE BASICALLY 0:255    *
                                                                //   1673  !*       WITH A 12-BYTE MARGIN TO MINIMISE THE NUMBER OF TESTS FOR     *
                                                                //   1674  !*       THE BUFFER FULL CONDITION                                     *
                                                                //   1675  !*                                                                     *
                                                                //   1676  !*       PPCURR(GLACURR) IS THE BUFFER POINTER                         *
                                                                //   1677  !*       CA(GLACA)  IS THE RELATIVE ADDRESS OF THE NEXT BYTE           *
                                                                //   1678  !*       CABUF(GLACABUF) IS CA(GLACA) FOR START OF BUFFER              *
                                                                //   1679  !***********************************************************************
                                                                //   1680  !*DELSTART
                                                                //   1681  %ROUTINE RECODE(%INTEGER S,F,AD)
#line 1681 "regression-compile-tmp/nrimp10s-77.imp"
void RECODE( int S, int F, int AD )
#line 1681 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1682           %IF S#F %START
#line 1682 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) == (F))) goto L_0164;
                                                                //   1683              PRINTSTRING("
#line 1683 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nCODE FOR LINE"));
                                                                //   1684  CODE FOR LINE"); WRITE(LINE,5)
#line 1684 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(LINE, 5);
                                                                //   1685              NCODE(S,F,AD)
#line 1685 "regression-compile-tmp/nrimp10s-77.imp"
ncode(S, F, AD);
                                                                //   1686           %FINISH
#line 1686 "regression-compile-tmp/nrimp10s-77.imp"
L_0164:;
                                                                //   1687  %END
#line 1687 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RECODE at level 4
                                                                //   1688  !*DELEND
                                                                //   1689  %ROUTINE CODEOUT
#line 1689 "regression-compile-tmp/nrimp10s-77.imp"
void CODEOUT( void )
#line 1689 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1690           %IF PPCURR>0 %THEN %START
#line 1690 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) <= (0))) goto L_0165;
                                                                //   1691  !*DELSTART
                                                                //   1692              RECODE(ADDR(CODE(0)), ADDR(CODE(PPCURR)), CABUF) %IF DCOMP#0
#line 1692 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) == (0))) goto L_0166;
#line 1692 "regression-compile-tmp/nrimp10s-77.imp"
RECODE(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF);
#line 1692 "regression-compile-tmp/nrimp10s-77.imp"
L_0166:;
                                                                //   1693  !*DELEND
                                                                //   1694              LPUT(1, PPCURR, CABUF, ADDR(CODE(0))) %IF INHCODE=0
#line 1694 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_0167;
#line 1694 "regression-compile-tmp/nrimp10s-77.imp"
lput(1, PPCURR, CABUF, _imp_ADDR(&CODE[0]));
#line 1694 "regression-compile-tmp/nrimp10s-77.imp"
L_0167:;
                                                                //   1695              PPCURR=0;  CABUF=CA
#line 1695 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = 0;
#line 1695 "regression-compile-tmp/nrimp10s-77.imp"
CABUF = CA;
                                                                //   1696           %FINISH
#line 1696 "regression-compile-tmp/nrimp10s-77.imp"
L_0165:;
                                                                //   1697  %END
#line 1697 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODEOUT at level 4
                                                                //   1698  %ROUTINE PLANT(%INTEGER HALFWORD)
#line 1698 "regression-compile-tmp/nrimp10s-77.imp"
void PLANT( int HALFWORD )
#line 1698 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1699  !***********************************************************************
                                                                //   1700  !*       ADD A HALF WORD OF BINARY TO THE BUFFER                       *
                                                                //   1701  !***********************************************************************
                                                                //   1702  !     %IF USE IMP=YES %THEN %START
                                                                //   1703           CODE(PPCURR)<-HALFWORD>>8
#line 1703 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = (int)((((unsigned int)(HALFWORD)) >> (8)));
                                                                //   1704           CODE(PPCURR+1)<-HALFWORD
#line 1704 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = HALFWORD;
                                                                //   1705           PPCURR=PPCURR+2
#line 1705 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (2));
                                                                //   1706  !     %FINISH %ELSE %START
                                                                //   1707  !        *LDA_CODE+4
                                                                //   1708  !        *LDTB_16_58000002
                                                                //   1709  !        *LB_PPCURR
                                                                //   1710  !        *LSS_HALFWORD
                                                                //   1711  !        *ST_(%DR+%B)
                                                                //   1712  !        *ADB_2
                                                                //   1713  !        *STB_PPCURR
                                                                //   1714  !     %FINISH
                                                                //   1715        CA=CA+2
#line 1715 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (2));
                                                                //   1716        CODEOUT %IF PPCURR>=256
#line 1716 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_0168;
#line 1716 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1716 "regression-compile-tmp/nrimp10s-77.imp"
L_0168:;
                                                                //   1717  %END
#line 1717 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANT at level 4
                                                                //   1718  %ROUTINE PCONST(%INTEGER WORD)
#line 1718 "regression-compile-tmp/nrimp10s-77.imp"
void PCONST( int WORD )
#line 1718 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1719  !***********************************************************************
                                                                //   1720  !*       ADD A WORD OF BINARY TO THE BUFFER                            *
                                                                //   1721  !***********************************************************************
                                                                //   1722  %INTEGER I
#line 1722 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   1723  !     %IF USE IMP=YES %THEN %START
                                                                //   1724           %CYCLE I=24,-8,0
#line 1724 "regression-compile-tmp/nrimp10s-77.imp"
I = 32;
if ((((0)-(24)) % ((-8))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 24, (-8), 0");
L_0169:;
if (I == 0) goto L_016a;
I += (-8);
                                                                //   1725              CODE(PPCURR)=WORD>>I&255
#line 1725 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = (((int)((((unsigned int)(WORD)) >> (I)))) & (255));
                                                                //   1726              PPCURR=PPCURR+1
#line 1726 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (1));
                                                                //   1727           %REPEAT
#line 1727 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0169;
#line 1727 "regression-compile-tmp/nrimp10s-77.imp"
L_016a:;
                                                                //   1728  !     %FINISH %ELSE %START
                                                                //   1729  !        *LDA_CODE+4
                                                                //   1730  !        *LDTB_16_58000004
                                                                //   1731  !        *LSS_WORD
                                                                //   1732  !        *LB_PPCURR
                                                                //   1733  !        *ST_(%DR+%B)
                                                                //   1734  !        *ADB_4
                                                                //   1735  !        *STB_PPCURR
                                                                //   1736  !     %FINISH
                                                                //   1737        CA=CA+4
#line 1737 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (4));
                                                                //   1738        CODE OUT %IF PPCURR>=256
#line 1738 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_016c;
#line 1738 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1738 "regression-compile-tmp/nrimp10s-77.imp"
L_016c:;
                                                                //   1739  %END
#line 1739 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PCONST at level 4
                                                                //   1740  %ROUTINE PSF1(%INTEGER OPCODE,K,N)
#line 1740 "regression-compile-tmp/nrimp10s-77.imp"
void PSF1( int OPCODE, int K, int N )
#line 1740 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1741  !***********************************************************************
                                                                //   1742  !*       PLANT THE HALFWORD FORMS OF PRIMARY FORMAT NR INSTRNS         *
                                                                //   1743  !*       IF N IS TOO LARGE FOR THE SHORT FORM PF1 IS CALLED TO PLANT   *
                                                                //   1744  !*       THE CORRESPONDING LONG FORM                                   *
                                                                //   1745  !***********************************************************************
                                                                //   1746  %INTEGER KPP
#line 1746 "regression-compile-tmp/nrimp10s-77.imp"
int KPP;
                                                                //   1747  !      ABORT %UNLESS 0<=K<=2 %AND OPCODE&1=0
                                                                //   1748        %IF (K=0 %AND -64<=N<=63) %OR (K#0 %AND 0<=N<=511) %START
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) != (0))) goto L_016d;
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-64)) > (N))) || (((N) <= (63)))) goto L_016b;
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
L_016d:;
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_016e;
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (N))) || (((N) > (511)))) goto L_016e;
#line 1748 "regression-compile-tmp/nrimp10s-77.imp"
L_016b:;
                                                                //   1749           %IF K#0 %THEN N=N//4
#line 1749 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_016f;
#line 1749 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)((int)(N)) / (long)((int)(4)));
#line 1749 "regression-compile-tmp/nrimp10s-77.imp"
L_016f:;
                                                                //   1750  !        %IF USE IMP=YES %THEN %START
                                                                //   1751              CODE(PPCURR)=OPCODE!K>>1
#line 1751 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = ((OPCODE) | ((int)((((unsigned int)(K)) >> (1)))));
                                                                //   1752              CODE(PPCURR+1)=(K&1)<<7!N&127
#line 1752 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((((((K) & (1))) << (7))) | (((N) & (127))));
                                                                //   1753              PPCURR=PPCURR+2
#line 1753 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (2));
                                                                //   1754  !        %FINISH %ELSE %START
                                                                //   1755  !           *LSS_OPCODE
                                                                //   1756  !           *USH_1
                                                                //   1757  !           *OR_K
                                                                //   1758  !           *USH_7
                                                                //   1759  !           *SLSS_N
                                                                //   1760  !           *AND_127
                                                                //   1761  !           *LB_PPCURR
                                                                //   1762  !           *OR_%TOS
                                                                //   1763  !           *LDA_CODE+4
                                                                //   1764  !           *LDTB_16_58000002
                                                                //   1765  !           *ST_(%DR+%B)
                                                                //   1766  !           *ADB_2
                                                                //   1767  !           *STB_PPCURR
                                                                //   1768  !        %FINISH
                                                                //   1769           CA=CA+2
#line 1769 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (2));
                                                                //   1770           CODEOUT %IF PPCURR>=256
#line 1770 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_0170;
#line 1770 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1770 "regression-compile-tmp/nrimp10s-77.imp"
L_0170:;
                                                                //   1771        %FINISH %ELSE %START
#line 1771 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0171;
#line 1771 "regression-compile-tmp/nrimp10s-77.imp"
L_016e:;
                                                                //   1772           %IF K=0 %THEN KPP=0 %ELSE KPP=2
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) != (0))) goto L_0172;
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
KPP = 0;
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0173;
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
L_0172:;
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
KPP = 2;
#line 1772 "regression-compile-tmp/nrimp10s-77.imp"
L_0173:;
                                                                //   1773           PF1(OPCODE,K>>1<<1,KPP,N)
#line 1773 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OPCODE, (((int)((((unsigned int)(K)) >> (1)))) << (1)), KPP, N);
                                                                //   1774        %FINISH
#line 1774 "regression-compile-tmp/nrimp10s-77.imp"
L_0171:;
                                                                //   1775  %END
#line 1775 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PSF1 at level 4
                                                                //   1776  %ROUTINE PF1(%INTEGER OPCODE,KP,KPP,N)
#line 1776 "regression-compile-tmp/nrimp10s-77.imp"
void PF1( int OPCODE, int KP, int KPP, int N )
#line 1776 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1777  !***********************************************************************
                                                                //   1778  !*       PLANT THE NORMAL FORMS OF PRIMARY FORMAT INSTRNS(IE THOSE     *
                                                                //   1779  !*       WHICH DO NOT DEPEND ON THE SIZE OF N)                         *
                                                                //   1780  !***********************************************************************
                                                                //   1781  %INTEGER INC
#line 1781 "regression-compile-tmp/nrimp10s-77.imp"
int INC;
                                                                //   1782  !      ABORT %UNLESS 0<=KP<=3 %AND 0<=KPP<=7 %AND OPCODE&1=0
                                                                //   1783        INC=2
#line 1783 "regression-compile-tmp/nrimp10s-77.imp"
INC = 2;
                                                                //   1784        %IF KPP=PC %THEN %START
#line 1784 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) != (4))) goto L_0174;
                                                                //   1785           %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N)
#line 1785 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) >= (0))) goto L_0175;
#line 1785 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) & (2147483647));
#line 1785 "regression-compile-tmp/nrimp10s-77.imp"
NOTECREF(CA, N);
#line 1785 "regression-compile-tmp/nrimp10s-77.imp"
L_0175:;
                                                                //   1786           N=(N-CA)//2
#line 1786 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2)));
                                                                //   1787        %FINISH
#line 1787 "regression-compile-tmp/nrimp10s-77.imp"
L_0174:;
                                                                //   1788        %IF (1<<KPP)&B'101100'#0 %THEN N=N//4
#line 1788 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((1) << (KPP))) & (44))) == (0))) goto L_0176;
#line 1788 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)((int)(N)) / (long)((int)(4)));
#line 1788 "regression-compile-tmp/nrimp10s-77.imp"
L_0176:;
                                                                //   1789  !     %IF USE IMP=YES %THEN %START
                                                                //   1790           CODE(PPCURR)=OPCODE!1
#line 1790 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = ((OPCODE) | (1));
                                                                //   1791           CODE(PPCURR+1)=16_80!KP<<5!KPP<<2!(N>>16&3)
#line 1791 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((((((128) | (((KP) << (5))))) | (((KPP) << (2))))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3))));
                                                                //   1792           CODE(PPCURR+2)=N>>8&255
#line 1792 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (2))] = (((int)((((unsigned int)(N)) >> (8)))) & (255));
                                                                //   1793           CODE(PPCURR+3)=N&255
#line 1793 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (3))] = ((N) & (255));
                                                                //   1794  !     %FINISH %ELSE %START
                                                                //   1795  !        *LSS_OPCODE
                                                                //   1796  !        *USH_1
                                                                //   1797  !        *OR_3
                                                                //   1798  !        *USH_2
                                                                //   1799  !        *OR_KP
                                                                //   1800  !        *USH_3
                                                                //   1801  !        *OR_KPP
                                                                //   1802  !        *USH_18
                                                                //   1803  !        *SLSS_N
                                                                //   1804  !        *AND_16_3FFFF
                                                                //   1805  !        *OR_%TOS
                                                                //   1806  !        *LDTB_16_58000004
                                                                //   1807  !        *LDA_CODE+4
                                                                //   1808  !        *LB_PPCURR
                                                                //   1809  !        *ST_(%DR+%B)
                                                                //   1810  !     %FINISH
                                                                //   1811        %IF KPP<=5 %THEN INC=4
#line 1811 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) > (5))) goto L_0177;
#line 1811 "regression-compile-tmp/nrimp10s-77.imp"
INC = 4;
#line 1811 "regression-compile-tmp/nrimp10s-77.imp"
L_0177:;
                                                                //   1812        PPCURR=PPCURR+INC
#line 1812 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (INC));
                                                                //   1813        CA=CA+INC
#line 1813 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (INC));
                                                                //   1814        CODEOUT %IF PPCURR>=256
#line 1814 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_0178;
#line 1814 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1814 "regression-compile-tmp/nrimp10s-77.imp"
L_0178:;
                                                                //   1815  %END
#line 1815 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PF1 at level 4
                                                                //   1816  %ROUTINE PSORLF1(%INTEGER OPCODE,KP,KPP,N)
#line 1816 "regression-compile-tmp/nrimp10s-77.imp"
void PSORLF1( int OPCODE, int KP, int KPP, int N )
#line 1816 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1817  !***********************************************************************
                                                                //   1818  !*       AS PF1 BUT CUT VALID FORMS TO SHORT FORM                      *
                                                                //   1819  !***********************************************************************
                                                                //   1820  %INTEGER INC
#line 1820 "regression-compile-tmp/nrimp10s-77.imp"
int INC;
                                                                //   1821        INC=2
#line 1821 "regression-compile-tmp/nrimp10s-77.imp"
INC = 2;
                                                                //   1822        %IF (KPP=0=KP %AND -64<=N<=63) %OR (KPP=LNB %AND KP&1=0 %AND 0<=N<=511) %START
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
if ((((KPP) != (0))) || (((0) != (KP)))) goto L_0179;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-64)) > (N))) || (((N) <= (63)))) goto L_017a;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
L_0179:;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) != (2))) goto L_017b;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
if (((((KP) & (1))) != (0))) goto L_017b;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (N))) || (((N) > (511)))) goto L_017b;
#line 1822 "regression-compile-tmp/nrimp10s-77.imp"
L_017a:;
                                                                //   1823           %IF KPP=LNB %THEN KP=1+KP>>1
#line 1823 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) != (2))) goto L_017c;
#line 1823 "regression-compile-tmp/nrimp10s-77.imp"
KP = ((1) + ((int)((int)((((unsigned int)(KP)) >> (1))))));
#line 1823 "regression-compile-tmp/nrimp10s-77.imp"
L_017c:;
                                                                //   1824           %IF KP#0 %THEN N=N//4
#line 1824 "regression-compile-tmp/nrimp10s-77.imp"
if (((KP) == (0))) goto L_017d;
#line 1824 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)((int)(N)) / (long)((int)(4)));
#line 1824 "regression-compile-tmp/nrimp10s-77.imp"
L_017d:;
                                                                //   1825  !        %IF USE IMP=YES %THEN %START
                                                                //   1826              CODE(PPCURR)=OPCODE!KP>>1
#line 1826 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = ((OPCODE) | ((int)((((unsigned int)(KP)) >> (1)))));
                                                                //   1827              CODE(PPCURR+1)=(KP&1)<<7!(N&127)
#line 1827 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((((((KP) & (1))) << (7))) | (((N) & (127))));
                                                                //   1828  !        %FINISH %ELSE %START
                                                                //   1829  !           *LSS_OPCODE
                                                                //   1830  !           *USH_1
                                                                //   1831  !           *OR_KP
                                                                //   1832  !           *USH_7
                                                                //   1833  !           *SLSS_N
                                                                //   1834  !           *AND_127
                                                                //   1835  !           *LB_PPCURR
                                                                //   1836  !           *OR_%TOS
                                                                //   1837  !           *LDA_CODE+4
                                                                //   1838  !           *LDTB_16_58000002
                                                                //   1839  !           *ST_(%DR+%B)
                                                                //   1840  !        %FINISH
                                                                //   1841        %FINISH %ELSE %START
#line 1841 "regression-compile-tmp/nrimp10s-77.imp"
goto L_017e;
#line 1841 "regression-compile-tmp/nrimp10s-77.imp"
L_017b:;
                                                                //   1842           %IF KPP=PC %THEN %START
#line 1842 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) != (4))) goto L_017f;
                                                                //   1843              %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N)
#line 1843 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) >= (0))) goto L_0180;
#line 1843 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) & (2147483647));
#line 1843 "regression-compile-tmp/nrimp10s-77.imp"
NOTECREF(CA, N);
#line 1843 "regression-compile-tmp/nrimp10s-77.imp"
L_0180:;
                                                                //   1844              N=(N-CA)//2
#line 1844 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2)));
                                                                //   1845           %FINISH
#line 1845 "regression-compile-tmp/nrimp10s-77.imp"
L_017f:;
                                                                //   1846           %IF (1<<KPP)&B'101100'#0 %THEN N=N//4
#line 1846 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((1) << (KPP))) & (44))) == (0))) goto L_0181;
#line 1846 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)((int)(N)) / (long)((int)(4)));
#line 1846 "regression-compile-tmp/nrimp10s-77.imp"
L_0181:;
                                                                //   1847  !        %IF USE IMP=YES %THEN %START
                                                                //   1848              CODE(PPCURR)=OPCODE!1
#line 1848 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = ((OPCODE) | (1));
                                                                //   1849              CODE(PPCURR+1)=((4!KP)<<3!KPP)<<2!(N>>16&3)
#line 1849 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((((((((((4) | (KP))) << (3))) | (KPP))) << (2))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3))));
                                                                //   1850              CODE(PPCURR+2)=N>>8&255
#line 1850 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (2))] = (((int)((((unsigned int)(N)) >> (8)))) & (255));
                                                                //   1851              CODE(PPCURR+3)=N&255
#line 1851 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (3))] = ((N) & (255));
                                                                //   1852  !        %FINISH %ELSE %START
                                                                //   1853  !           *LSS_OPCODE
                                                                //   1854  !           *USH_1
                                                                //   1855  !           *OR_3
                                                                //   1856  !           *USH_2
                                                                //   1857  !           *OR_KP
                                                                //   1858  !           *USH_3
                                                                //   1859  !           *OR_KPP
                                                                //   1860  !           *USH_18
                                                                //   1861  !           *SLSS_N
                                                                //   1862  !           *AND_16_3FFFF
                                                                //   1863  !           *OR_%TOS
                                                                //   1864  !           *LDTB_16_58000004
                                                                //   1865  !           *LDA_CODE+4
                                                                //   1866  !           *LB_PPCURR
                                                                //   1867  !           *ST_(%DR+%B)
                                                                //   1868  !        %FINISH
                                                                //   1869           %IF KPP<=5 %THEN INC=4
#line 1869 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPP) > (5))) goto L_0182;
#line 1869 "regression-compile-tmp/nrimp10s-77.imp"
INC = 4;
#line 1869 "regression-compile-tmp/nrimp10s-77.imp"
L_0182:;
                                                                //   1870        %FINISH
#line 1870 "regression-compile-tmp/nrimp10s-77.imp"
L_017e:;
                                                                //   1871        CA=CA+INC; PPCURR=PPCURR+INC
#line 1871 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (INC));
#line 1871 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (INC));
                                                                //   1872        CODEOUT %IF PPCURR>=256
#line 1872 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_0183;
#line 1872 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1872 "regression-compile-tmp/nrimp10s-77.imp"
L_0183:;
                                                                //   1873  %END
#line 1873 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PSORLF1 at level 4
                                                                //   1874  %ROUTINE PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER)
#line 1874 "regression-compile-tmp/nrimp10s-77.imp"
void PF2( int OPCODE, int H, int Q, int N, int MASK, int FILLER )
#line 1874 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1875  !***********************************************************************
                                                                //   1876  !*       PLANT SECONDARY(STORE TO STORE) FORMAT INSTRNS                *
                                                                //   1877  !*       THESE MAY BE 16 OR 32 BIT DEPENDING ON Q                      *
                                                                //   1878  !***********************************************************************
                                                                //   1879  !         ABORT %UNLESS 0<=H<=1 %AND 0<=Q<=1 %AND 0<=N<=127 %AND OPCODE&1=0
                                                                //   1880           PLANT(OPCODE<<8!H<<8!Q<<7!N)
#line 1880 "regression-compile-tmp/nrimp10s-77.imp"
PLANT(((((((((OPCODE) << (8))) | (((H) << (8))))) | (((Q) << (7))))) | (N)));
                                                                //   1881           %IF Q#0 %THEN PLANT(MASK<<8!FILLER)
#line 1881 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) == (0))) goto L_0184;
#line 1881 "regression-compile-tmp/nrimp10s-77.imp"
PLANT(((((MASK) << (8))) | (FILLER)));
#line 1881 "regression-compile-tmp/nrimp10s-77.imp"
L_0184:;
                                                                //   1882  %END
#line 1882 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PF2 at level 4
                                                                //   1883  %ROUTINE PF3(%INTEGER OPCODE,MASK,KPPP,N)
#line 1883 "regression-compile-tmp/nrimp10s-77.imp"
void PF3( int OPCODE, int MASK, int KPPP, int N )
#line 1883 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1884  !***********************************************************************
                                                                //   1885  !*       PLANT THE TERTIARY(JUMP) FORMAT INSTRUCTIONS                  *
                                                                //   1886  !***********************************************************************
                                                                //   1887  !         ABORT %UNLESS 0<=MASK<=15 %AND 0<=KPPP<=7 %AND OPCODE&1=0
                                                                //   1888           %IF KPPP=PC %THEN %START
#line 1888 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPPP) != (4))) goto L_0185;
                                                                //   1889              %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N)
#line 1889 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) >= (0))) goto L_0186;
#line 1889 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) & (2147483647));
#line 1889 "regression-compile-tmp/nrimp10s-77.imp"
NOTECREF(CA, N);
#line 1889 "regression-compile-tmp/nrimp10s-77.imp"
L_0186:;
                                                                //   1890              N=(N-CA)//2
#line 1890 "regression-compile-tmp/nrimp10s-77.imp"
N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2)));
                                                                //   1891           %FINISH
#line 1891 "regression-compile-tmp/nrimp10s-77.imp"
L_0185:;
                                                                //   1892           CODE(PPCURR)=OPCODE!MASK>>3&1
#line 1892 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = ((OPCODE) | ((((int)((((unsigned int)(MASK)) >> (3)))) & (1))));
                                                                //   1893           CODE(PPCURR+1)=(MASK&7)<<5!KPPP<<2!(N>>16&3)
#line 1893 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((((((((MASK) & (7))) << (5))) | (((KPPP) << (2))))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3))));
                                                                //   1894           PPCURR=PPCURR+2
#line 1894 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (2));
                                                                //   1895           CA=CA+2
#line 1895 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (2));
                                                                //   1896           %IF KPPP<=5 %THEN %START
#line 1896 "regression-compile-tmp/nrimp10s-77.imp"
if (((KPPP) > (5))) goto L_0187;
                                                                //   1897              CODE(PPCURR)=N>>8&255
#line 1897 "regression-compile-tmp/nrimp10s-77.imp"
CODE[PPCURR] = (((int)((((unsigned int)(N)) >> (8)))) & (255));
                                                                //   1898              CODE(PPCURR+1)=N&255
#line 1898 "regression-compile-tmp/nrimp10s-77.imp"
CODE[(((int)(PPCURR)) + (1))] = ((N) & (255));
                                                                //   1899              PPCURR=PPCURR+2; CA=CA+2
#line 1899 "regression-compile-tmp/nrimp10s-77.imp"
PPCURR = (((int)(PPCURR)) + (2));
#line 1899 "regression-compile-tmp/nrimp10s-77.imp"
CA = (((int)(CA)) + (2));
                                                                //   1900           %FINISH
#line 1900 "regression-compile-tmp/nrimp10s-77.imp"
L_0187:;
                                                                //   1901           CODEOUT %IF PPCURR>=256
#line 1901 "regression-compile-tmp/nrimp10s-77.imp"
if (((PPCURR) < (256))) goto L_0188;
#line 1901 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1901 "regression-compile-tmp/nrimp10s-77.imp"
L_0188:;
                                                                //   1902  %END
#line 1902 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PF3 at level 4
                                                                //   1903  %ROUTINE NOTE CREF(%INTEGER CA,N)
#line 1903 "regression-compile-tmp/nrimp10s-77.imp"
void NOTECREF( int CA, int N )
#line 1903 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1904  !***********************************************************************
                                                                //   1905  !*    NOTE THAT A (PC+N) INSTRUCTION HAS N RELATIVE TO CONST TABLE     *
                                                                //   1906  !*    NOT REATIVE TO CODE. REMEMBER THE ADDRESS OF THE INSTRUCTION     *
                                                                //   1907  !*    SO THAT AN LPUT(18) CORRECTION CAN BE MADE AT END OF COMPILATION *
                                                                //   1908  !***********************************************************************
                                                                //   1909  %RECORD(LISTF)%NAME CELL {(LISTF)
#line 1909 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*CELL;
                                                                //   1910        CELL==ASLIST(CREFHEAD)
#line 1910 "regression-compile-tmp/nrimp10s-77.imp"
CELL = &ASLIST[CREFHEAD];
                                                                //   1911        %IF CREFHEAD=0 %OR CELL_S3#0 %THEN PUSH(CREFHEAD,CA,0,0) %AND %RETURN
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
if (((CREFHEAD) == (0))) goto L_0189;
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL->S3) == (0))) goto L_018a;
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
L_0189:;
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&CREFHEAD, CA, 0, 0);
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1911 "regression-compile-tmp/nrimp10s-77.imp"
L_018a:;
                                                                //   1912        %IF CELL_S2=0 %THEN CELL_S2=CA %ELSE CELL_S3=CA
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL->S2) != (0))) goto L_018b;
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
CELL->S2 = CA;
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
goto L_018c;
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
L_018b:;
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
CELL->S3 = CA;
#line 1912 "regression-compile-tmp/nrimp10s-77.imp"
L_018c:;
                                                                //   1913  %END
#line 1913 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NOTECREF at level 4
                                                                //   1914  %ROUTINE PCLOD(%INTEGER FROM, TO)
#line 1914 "regression-compile-tmp/nrimp10s-77.imp"
void PCLOD( int FROM, int TO )
#line 1914 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1915  !***********************************************************************
                                                                //   1916  !*       PLANT A SERIES OF INTRUNS FROM ARRAY FIXED CODE               *
                                                                //   1917  !***********************************************************************
                                                                //   1918  %INTEGER I
#line 1918 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   1919  !%CONSTINTEGERARRAY FIXED CODE(0:127)
                                                                //   1920  !         %CYCLE I=FROM, 1, TO
                                                                //   1921  !            PCONST(FIXED CODE(I))
                                                                //   1922  !         %REPEAT
                                                                //   1923  %END
#line 1923 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PCLOD at level 4
                                                                //   1924  %ROUTINE CNOP(%INTEGER I, J)
#line 1924 "regression-compile-tmp/nrimp10s-77.imp"
void CNOP( int I, int J )
#line 1924 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1925           PSF1(JUNC,0,1) %WHILE CA&(J-1)#I
#line 1925 "regression-compile-tmp/nrimp10s-77.imp"
L_018d:;
#line 1925 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CA) & ((((int)(J)) - (1))))) == (I))) goto L_018e;
#line 1925 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(26, 0, 1);
#line 1925 "regression-compile-tmp/nrimp10s-77.imp"
goto L_018d;
#line 1925 "regression-compile-tmp/nrimp10s-77.imp"
L_018e:;
                                                                //   1926  %END
#line 1926 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CNOP at level 4
                                                                //   1927  %ROUTINE PGLA(%INTEGER BDRY, L, INF ADR)
#line 1927 "regression-compile-tmp/nrimp10s-77.imp"
void PGLA( int BDRY, int L, int INFADR )
#line 1927 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1928  %INTEGER I, J
#line 1928 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 1928 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   1929           J=GLACA;  GLACA=(J+BDRY-1)&(-BDRY)
#line 1929 "regression-compile-tmp/nrimp10s-77.imp"
J = GLACA;
#line 1929 "regression-compile-tmp/nrimp10s-77.imp"
GLACA = (((((int)((((int)(J)) + (BDRY)))) - (1))) & ((-(BDRY))));
                                                                //   1930           GLACURR=GLACURR+GLACA-J;       ! COMPLETE THE ROUNDING
#line 1930 "regression-compile-tmp/nrimp10s-77.imp"
GLACURR = (((int)((((int)(GLACURR)) + (GLACA)))) - (J));
                                                                //   1931           %IF L+GLACURR>256 %THEN %START
#line 1931 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)(L)) + (GLACURR))) <= (256))) goto L_0190;
                                                                //   1932              %IF INHCODE=0 %THEN LPUT(2, GLACURR, GLACABUF, ADDR(GLABUF(0)))
#line 1932 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_0191;
#line 1932 "regression-compile-tmp/nrimp10s-77.imp"
lput(2, GLACURR, GLACABUF, _imp_ADDR(&GLABUF[0]));
#line 1932 "regression-compile-tmp/nrimp10s-77.imp"
L_0191:;
                                                                //   1933              GLACURR=0;  GLACABUF=GLACA
#line 1933 "regression-compile-tmp/nrimp10s-77.imp"
GLACURR = 0;
#line 1933 "regression-compile-tmp/nrimp10s-77.imp"
GLACABUF = GLACA;
                                                                //   1934           %FINISH
#line 1934 "regression-compile-tmp/nrimp10s-77.imp"
L_0190:;
                                                                //   1935           %CYCLE I=0,1,L-1
#line 1935 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(L)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(L)) - (1))");
I -= _increment; _control -= _increment;
L_0192:;
if (I == _final) goto L_0193;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   1936              GLABUF(GLACURR+I)=BYTE INTEGER(I+INF ADR)
#line 1936 "regression-compile-tmp/nrimp10s-77.imp"
GLABUF[(((int)(GLACURR)) + (I))] = *_imp_BYTEINTEGER((((int)(I)) + (INFADR)));
                                                                //   1937           %REPEAT
#line 1937 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0192;
#line 1937 "regression-compile-tmp/nrimp10s-77.imp"
L_0193:;
                                                                //   1938           GLACA=GLACA+L;  GLACURR=GLACURR+L
#line 1938 "regression-compile-tmp/nrimp10s-77.imp"
GLACA = (((int)(GLACA)) + (L));
#line 1938 "regression-compile-tmp/nrimp10s-77.imp"
GLACURR = (((int)(GLACURR)) + (L));
                                                                //   1939  %END
#line 1939 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PGLA at level 4
                                                                //   1940  %ROUTINE PLUG(%INTEGER AREA, AT, VALUE, BYTES)
#line 1940 "regression-compile-tmp/nrimp10s-77.imp"
void PLUG( int AREA, int AT, int VALUE, int BYTES )
#line 1940 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1941  !***********************************************************************
                                                                //   1942  !*       WRITE UP TO ONE WORD INTO OBJECT FILE OUT OF SEQUENCE         *
                                                                //   1943  !***********************************************************************
                                                                //   1944  %INTEGERNAME WCABUF
#line 1944 "regression-compile-tmp/nrimp10s-77.imp"
int /*name*/*WCABUF;
                                                                //   1945  %INTEGER I, RELAD, BUFAD
#line 1945 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 1945 "regression-compile-tmp/nrimp10s-77.imp"
int RELAD;
#line 1945 "regression-compile-tmp/nrimp10s-77.imp"
int BUFAD;
                                                                //   1946           WCABUF==CABUF;  BUFAD=ADDR(CODE(0))
#line 1946 "regression-compile-tmp/nrimp10s-77.imp"
WCABUF = &CABUF;
#line 1946 "regression-compile-tmp/nrimp10s-77.imp"
BUFAD = _imp_ADDR(&CODE[0]);
                                                                //   1947           %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0))
#line 1947 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (2))) goto L_0195;
#line 1947 "regression-compile-tmp/nrimp10s-77.imp"
WCABUF = &GLACABUF;
#line 1947 "regression-compile-tmp/nrimp10s-77.imp"
BUFAD = _imp_ADDR(&GLABUF[0]);
#line 1947 "regression-compile-tmp/nrimp10s-77.imp"
L_0195:;
                                                                //   1948           RELAD=AT-WCABUF
#line 1948 "regression-compile-tmp/nrimp10s-77.imp"
RELAD = (((int)(AT)) - (*WCABUF));
                                                                //   1949           %IF 0<=RELAD<=256 %AND AREA<=3 %THEN %START
#line 1949 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (RELAD))) || (((RELAD) > (256)))) goto L_0196;
#line 1949 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) > (3))) goto L_0196;
                                                                //   1950              %CYCLE I=0,1,BYTES-1
#line 1950 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(BYTES)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(BYTES)) - (1))");
I -= _increment; _control -= _increment;
L_0197:;
if (I == _final) goto L_0198;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   1951                BYTEINTEGER(RELAD+BUFAD+I)<-VALUE>>((BYTES-1-I)<<3)
#line 1951 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)((((int)(RELAD)) + (BUFAD)))) + (I))) = (int)((((unsigned int)(VALUE)) >> ((((((int)((((int)(BYTES)) - (1)))) - (I))) << (3)))));
                                                                //   1952              %REPEAT
#line 1952 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0197;
#line 1952 "regression-compile-tmp/nrimp10s-77.imp"
L_0198:;
                                                                //   1953           %FINISH %ELSE %START
#line 1953 "regression-compile-tmp/nrimp10s-77.imp"
goto L_019a;
#line 1953 "regression-compile-tmp/nrimp10s-77.imp"
L_0196:;
                                                                //   1954              %IF RELAD=-2 %THEN CODEOUT
#line 1954 "regression-compile-tmp/nrimp10s-77.imp"
if (((RELAD) != ((-2)))) goto L_019b;
#line 1954 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
#line 1954 "regression-compile-tmp/nrimp10s-77.imp"
L_019b:;
                                                                //   1955              %IF INHCODE=0 %THEN LPUT(AREA,BYTES,AT,ADDR(VALUE)+4-BYTES)
#line 1955 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_019c;
#line 1955 "regression-compile-tmp/nrimp10s-77.imp"
lput(AREA, BYTES, AT, (((int)((((int)(_imp_ADDR(&VALUE))) + (4)))) - (BYTES)));
#line 1955 "regression-compile-tmp/nrimp10s-77.imp"
L_019c:;
                                                                //   1956  !*DELSTART
                                                                //   1957              NCODE(ADDR(VALUE)+4-BYTES,ADDR(VALUE)+4,AT) %IF DCOMP=1=AREA
#line 1957 "regression-compile-tmp/nrimp10s-77.imp"
if ((((DCOMP) != (1))) || (((1) != (AREA)))) goto L_019d;
#line 1957 "regression-compile-tmp/nrimp10s-77.imp"
ncode((((int)((((int)(_imp_ADDR(&VALUE))) + (4)))) - (BYTES)), (((int)(_imp_ADDR(&VALUE))) + (4)), AT);
#line 1957 "regression-compile-tmp/nrimp10s-77.imp"
L_019d:;
                                                                //   1958  !*DELEND
                                                                //   1959           %FINISH
#line 1959 "regression-compile-tmp/nrimp10s-77.imp"
L_019a:;
                                                                //   1960  %END
#line 1960 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLUG at level 4
                                                                //   1961  
                                                                //   1962  %INTEGERFN PARAM DES(%INTEGER PREC)
#line 1962 "regression-compile-tmp/nrimp10s-77.imp"
int PARAMDES( int PREC )
#line 1962 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1963  !***********************************************************************
                                                                //   1964  !*    SET UP BNDED L=1 DESRIPTOR FOR PASSING VARIABLE BY REFERENCE     *
                                                                //   1965  !*    ONLY THE TOP HALF IS SET UP                                      *
                                                                //   1966  !***********************************************************************
                                                                //   1967  %INTEGER K,DES
#line 1967 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 1967 "regression-compile-tmp/nrimp10s-77.imp"
int DES;
                                                                //   1968        K=DESADS(PREC)
#line 1968 "regression-compile-tmp/nrimp10s-77.imp"
K = DESADS[PREC];
                                                                //   1969        %RESULT=K %UNLESS K=0
#line 1969 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_019e;
#line 1969 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
#line 1969 "regression-compile-tmp/nrimp10s-77.imp"
L_019e:;
                                                                //   1970        %IF PREC=4 %THEN DES=16_58000002 %ELSE DES=PREC<<27!1
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_019f;
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
DES = 1476395010;
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01a0;
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
L_019f:;
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
DES = ((((PREC) << (27))) | (1));
#line 1970 "regression-compile-tmp/nrimp10s-77.imp"
L_01a0:;
                                                                //   1971        STORE CONST (K,4,ADDR(DES))
#line 1971 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&K, 4, _imp_ADDR(&DES));
                                                                //   1972        DESADS(PREC)=K
#line 1972 "regression-compile-tmp/nrimp10s-77.imp"
DESADS[PREC] = K;
                                                                //   1973        %RESULT=K
#line 1973 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
                                                                //   1974  %END
#line 1974 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block PARAMDES at level 4
                                                                //   1975  %INTEGERFN MAPDES(%INTEGER PREC)
#line 1975 "regression-compile-tmp/nrimp10s-77.imp"
int MAPDES( int PREC )
#line 1975 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1976  !***********************************************************************
                                                                //   1977  !*    SET UP 8BIT ZERO ADDRESS UNSCALED BCI DESCRTR FOR MAPPING        *
                                                                //   1978  !***********************************************************************
                                                                //   1979  %INTEGER K,DES0,DES1
#line 1979 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 1979 "regression-compile-tmp/nrimp10s-77.imp"
int DES0;
#line 1979 "regression-compile-tmp/nrimp10s-77.imp"
int DES1;
                                                                //   1980        K=DESADS(PREC+8)
#line 1980 "regression-compile-tmp/nrimp10s-77.imp"
K = DESADS[(((int)(PREC)) + (8))];
                                                                //   1981        %RESULT=K %UNLESS K=0
#line 1981 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_01a1;
#line 1981 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
#line 1981 "regression-compile-tmp/nrimp10s-77.imp"
L_01a1:;
                                                                //   1982        %IF PREC=4 %THEN DES0=16_58000002 %ELSE DES0=16_03000000!PREC<<27
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_01a2;
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
DES0 = 1476395010;
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01a3;
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
L_01a2:;
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
DES0 = ((50331648) | (((PREC) << (27))));
#line 1982 "regression-compile-tmp/nrimp10s-77.imp"
L_01a3:;
                                                                //   1983        DES1=0; STORE CONST(K,8,ADDR(DES0))
#line 1983 "regression-compile-tmp/nrimp10s-77.imp"
DES1 = 0;
#line 1983 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&K, 8, _imp_ADDR(&DES0));
                                                                //   1984        DESADS(PREC+8)=K
#line 1984 "regression-compile-tmp/nrimp10s-77.imp"
DESADS[(((int)(PREC)) + (8))] = K;
                                                                //   1985        %RESULT=K
#line 1985 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
                                                                //   1986  %END
#line 1986 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block MAPDES at level 4
                                                                //   1987  %INTEGERFN SPECIAL CONSTS(%INTEGER WHICH)
#line 1987 "regression-compile-tmp/nrimp10s-77.imp"
int SPECIALCONSTS( int WHICH )
#line 1987 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   1988  !***********************************************************************
                                                                //   1989  !*    PUTS CERTAIN SPECIAL CONSTANTS INTO THE CONSTANT TABLE ON        *
                                                                //   1990  !*    DEMAND AND REMEMBERS THEIR POSN TO AVOID SEARCHONG               *
                                                                //   1991  !***********************************************************************
                                                                //   1992  {%CONST}%ownINTEGERARRAY SCS(0:5) =           16_40800000,0,
#line 1992 "regression-compile-tmp/nrimp10s-77.imp"
static int SCS[6] = { 1082130432, 0, 1091567616, 0, 1, 0,  };
                                                                //   1993                                          16_41100000,0,
                                                                //   1994                                          1,0;
                                                                //   1995  %INTEGER K
#line 1995 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //   1996        K=DESADS(WHICH+16)
#line 1996 "regression-compile-tmp/nrimp10s-77.imp"
K = DESADS[(((int)(WHICH)) + (16))];
                                                                //   1997        %RESULT=K %UNLESS K=0
#line 1997 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_01a4;
#line 1997 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
#line 1997 "regression-compile-tmp/nrimp10s-77.imp"
L_01a4:;
                                                                //   1998        STORE CONST(K,8,ADDR(SCS(2*WHICH)))
#line 1998 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&K, 8, _imp_ADDR(&SCS[(((int)(2)) * (WHICH))]));
                                                                //   1999        DESADS(WHICH+16)=K
#line 1999 "regression-compile-tmp/nrimp10s-77.imp"
DESADS[(((int)(WHICH)) + (16))] = K;
                                                                //   2000        %RESULT=K
#line 2000 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
                                                                //   2001  %END
#line 2001 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block SPECIALCONSTS at level 4
                                                                //   2002  %ROUTINE STORE CONST(%INTEGERNAME D, %INTEGER L, AD)
#line 2002 "regression-compile-tmp/nrimp10s-77.imp"
void STORECONST( int /*name*/*D, int L, int AD )
#line 2002 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2003  !***********************************************************************
                                                                //   2004  !*       PUT THE CONSTANT VAL OF LENGTH 'L' INTO THE CONSTANT TABLE    *
                                                                //   2005  !*       A CHECK IS MADE TO SEE IF THE CONSTANT HAS ALREADY            *
                                                                //   2006  !*       BEEN INSERTED IN WHICH CASE THE OLD COPY IS REUSED            *
                                                                //   2007  !***********************************************************************
                                                                //   2008  %INTEGER I, J, K, C1, C2, C3, C4, LP
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int C1;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int C2;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int C3;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int C4;
#line 2008 "regression-compile-tmp/nrimp10s-77.imp"
int LP;
                                                                //   2009        LP=L//4;  C2=0;  C3=0;  C4=0
#line 2009 "regression-compile-tmp/nrimp10s-77.imp"
LP = (long)((long)((int)(L)) / (long)((int)(4)));
#line 2009 "regression-compile-tmp/nrimp10s-77.imp"
C2 = 0;
#line 2009 "regression-compile-tmp/nrimp10s-77.imp"
C3 = 0;
#line 2009 "regression-compile-tmp/nrimp10s-77.imp"
C4 = 0;
                                                                //   2010        %CYCLE I=0,1,L-1
#line 2010 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(L)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(L)) - (1))");
I -= _increment; _control -= _increment;
L_01a5:;
if (I == _final) goto L_01a6;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   2011           BYTEINTEGER(ADDR(C1)+I)=BYTEINTEGER(AD+I)
#line 2011 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(_imp_ADDR(&C1))) + (I))) = *_imp_BYTEINTEGER((((int)(AD)) + (I)));
                                                                //   2012        %REPEAT
#line 2012 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01a5;
#line 2012 "regression-compile-tmp/nrimp10s-77.imp"
L_01a6:;
                                                                //   2013        %IF PARMOPT#0 %THEN ->SKIP
#line 2013 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01a8;
#line 2013 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1014;
#line 2013 "regression-compile-tmp/nrimp10s-77.imp"
L_01a8:;
                                                                //   2014        K=CONST BTM;                      ! AFTER STRINGS IN CTABLE
#line 2014 "regression-compile-tmp/nrimp10s-77.imp"
K = CONSTBTM;
                                                                //   2015        %IF L=4 %THEN %START
#line 2015 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) != (4))) goto L_01a9;
                                                                //   2016  !        %IF USE IMP=YES %THEN %START
                                                                //   2017              %WHILE K<CONST PTR %CYCLE
#line 2017 "regression-compile-tmp/nrimp10s-77.imp"
L_01aa:;
#line 2017 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) >= (CONSTPTR))) goto L_01ab;
                                                                //   2018                 %IF CTABLE_val(K)=C1 %AND CONSTHOLE#K %THEN D=4*K!16_80000000 %AND %RETURN
#line 2018 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTABLE->VAL[K]) != (C1))) goto L_01ad;
#line 2018 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTHOLE) == (K))) goto L_01ad;
#line 2018 "regression-compile-tmp/nrimp10s-77.imp"
*D = (((((int)(4)) * (K))) | ((-2147483648)));
#line 2018 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2018 "regression-compile-tmp/nrimp10s-77.imp"
L_01ad:;
                                                                //   2019                 K=K+1
#line 2019 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) + (1));
                                                                //   2020              %REPEAT
#line 2020 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01aa;
#line 2020 "regression-compile-tmp/nrimp10s-77.imp"
L_01ab:;
                                                                //   2021  !        %FINISH %ELSE %START
                                                                //   2022  !           *LD_CTABLE
                                                                //   2023  !           *LB_K
                                                                //   2024  !           *SBB_1
                                                                //   2025  !           *LSS_C1
                                                                //   2026  !AGN1:
                                                                //   2027  !           *ADB_1
                                                                //   2028  !           *CPB_CONSTPTR
                                                                //   2029  !           *JCC_10,<SKIP>
                                                                //   2030  !           *ICP_(%DR+%B)
                                                                //   2031  !           *JCC_7,<AGN1>
                                                                //   2032  !           *CPB_CONSTHOLE
                                                                //   2033  !           *JCC_8,<AGN1>
                                                                //   2034  !           *LSS_%B
                                                                //   2035  !           *IMY_4
                                                                //   2036  !           *OR_16_80000000
                                                                //   2037  !           *ST_(D)
                                                                //   2038  !           *EXIT_-64
                                                                //   2039  !        %FINISH
                                                                //   2040        %FINISH %ELSE %START
#line 2040 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01ae;
#line 2040 "regression-compile-tmp/nrimp10s-77.imp"
L_01a9:;
                                                                //   2041           J=CONSTPTR-LP
#line 2041 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(CONSTPTR)) - (LP));
                                                                //   2042           %WHILE K<=J %CYCLE
#line 2042 "regression-compile-tmp/nrimp10s-77.imp"
L_01af:;
#line 2042 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) > (J))) goto L_01b0;
                                                                //   2043              %IF CTABLE_val(K)=C1 %AND CTABLE_val(K+1)=C2 %AND (CONSTHOLE<K %OR CONSTHOLE>=K+LP) %START
#line 2043 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTABLE->VAL[K]) != (C1))) goto L_01b2;
#line 2043 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTABLE->VAL[(((int)(K)) + (1))]) != (C2))) goto L_01b2;
#line 2043 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTHOLE) < (K))) goto L_0134;
#line 2043 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTHOLE) < ((((int)(K)) + (LP))))) goto L_01b2;
#line 2043 "regression-compile-tmp/nrimp10s-77.imp"
L_0134:;
                                                                //   2044                 %IF L=8 %OR (CTABLE_val(K+2)=C3 %AND CTABLE_val(K+3)=C4) %THEN D=4*K!16_80000000 %AND %RETURN
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) == (8))) goto L_01b3;
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTABLE->VAL[(((int)(K)) + (2))]) != (C3))) goto L_01b4;
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTABLE->VAL[(((int)(K)) + (3))]) != (C4))) goto L_01b4;
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
L_01b3:;
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
*D = (((((int)(4)) * (K))) | ((-2147483648)));
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2044 "regression-compile-tmp/nrimp10s-77.imp"
L_01b4:;
                                                                //   2045              %FINISH
#line 2045 "regression-compile-tmp/nrimp10s-77.imp"
L_01b2:;
                                                                //   2046              K=K+2
#line 2046 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) + (2));
                                                                //   2047           %REPEAT
#line 2047 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01af;
#line 2047 "regression-compile-tmp/nrimp10s-77.imp"
L_01b0:;
                                                                //   2048        %FINISH
#line 2048 "regression-compile-tmp/nrimp10s-77.imp"
L_01ae:;
                                                                //   2049  SKIP:
#line 2049 "regression-compile-tmp/nrimp10s-77.imp"
U_1014:;
                                                                //   2050        %IF L=4 %AND CONSTHOLE#0 %START
#line 2050 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) != (4))) goto L_01b5;
#line 2050 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTHOLE) == (0))) goto L_01b5;
                                                                //   2051           CTABLE_val(CONSTHOLE)=C1
#line 2051 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[CONSTHOLE] = C1;
                                                                //   2052           D=4*CONSTHOLE!16_80000000
#line 2052 "regression-compile-tmp/nrimp10s-77.imp"
*D = (((((int)(4)) * (CONSTHOLE))) | ((-2147483648)));
                                                                //   2053           CONSTHOLE=0
#line 2053 "regression-compile-tmp/nrimp10s-77.imp"
CONSTHOLE = 0;
                                                                //   2054           %RETURN
#line 2054 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2055        %FINISH
#line 2055 "regression-compile-tmp/nrimp10s-77.imp"
L_01b5:;
                                                                //   2056        %IF L>4 %AND CONST PTR&1#0 %THEN CONSTHOLE=CONST PTR %AND CONSTPTR=CONST PTR+1
#line 2056 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) <= (4))) goto L_01b6;
#line 2056 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CONSTPTR) & (1))) == (0))) goto L_01b6;
#line 2056 "regression-compile-tmp/nrimp10s-77.imp"
CONSTHOLE = CONSTPTR;
#line 2056 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (1));
#line 2056 "regression-compile-tmp/nrimp10s-77.imp"
L_01b6:;
                                                                //   2057        D=4*CONST PTR!16_80000000
#line 2057 "regression-compile-tmp/nrimp10s-77.imp"
*D = (((((int)(4)) * (CONSTPTR))) | ((-2147483648)));
                                                                //   2058        CTABLE_val(CONSTPTR)=C1
#line 2058 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[CONSTPTR] = C1;
                                                                //   2059        CTABLE_val(CONSTPTR+1)=C2
#line 2059 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[(((int)(CONSTPTR)) + (1))] = C2;
                                                                //   2060        %IF L=16 %THEN CTABLE_val(CONSTPTR+2)=C3 %AND CTABLE_val(CONSTPTR+3)=C4
#line 2060 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) != (16))) goto L_01b7;
#line 2060 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[(((int)(CONSTPTR)) + (2))] = C3;
#line 2060 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[(((int)(CONSTPTR)) + (3))] = C4;
#line 2060 "regression-compile-tmp/nrimp10s-77.imp"
L_01b7:;
                                                                //   2061        CONST PTR=CONST PTR+LP
#line 2061 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (LP));
                                                                //   2062        %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0)
#line 2062 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTPTR) <= (CONSTLIMIT))) goto L_01b8;
#line 2062 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(107, 0);
#line 2062 "regression-compile-tmp/nrimp10s-77.imp"
L_01b8:;
                                                                //   2063  %END
#line 2063 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STORECONST at level 4
                                                                //   2064  %ROUTINE GET ENV(%INTEGERNAME HEAD)
#line 2064 "regression-compile-tmp/nrimp10s-77.imp"
void GETENV( int /*name*/*HEAD )
#line 2064 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2065  !***********************************************************************
                                                                //   2066  !*       SAVE A COPY OF THE REGISTER STATE FOR FUTURE REFERENCE        *
                                                                //   2067  !***********************************************************************
                                                                //   2068  %INTEGER I, USE
#line 2068 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 2068 "regression-compile-tmp/nrimp10s-77.imp"
int USE;
                                                                //   2069           %CYCLE I=0, 1, 7
#line 2069 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_01b9:;
if (I == 7) goto L_01ba;
I += 1;
                                                                //   2070              USE=GRUSE(I)&16_FF;         ! MAIN USE ONLY
#line 2070 "regression-compile-tmp/nrimp10s-77.imp"
USE = ((GRUSE[I]) & (255));
                                                                //   2071              PUSH(HEAD, GRINF1(I), GRAT(I), I<<8!USE) %IF USE#0
#line 2071 "regression-compile-tmp/nrimp10s-77.imp"
if (((USE) == (0))) goto L_01bc;
#line 2071 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(HEAD, GRINF1[I], GRAT[I], ((((I) << (8))) | (USE)));
#line 2071 "regression-compile-tmp/nrimp10s-77.imp"
L_01bc:;
                                                                //   2072           %REPEAT
#line 2072 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01b9;
#line 2072 "regression-compile-tmp/nrimp10s-77.imp"
L_01ba:;
                                                                //   2073  %END
#line 2073 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETENV at level 4
                                                                //   2074  %ROUTINE RESTORE(%INTEGER HEAD)
#line 2074 "regression-compile-tmp/nrimp10s-77.imp"
void RESTORE( int HEAD )
#line 2074 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2075  !***********************************************************************
                                                                //   2076  !*       RESET THE REGISTERS TO ENVIRONMENT IN LIST HEADED BY 'HEAD'   *
                                                                //   2077  !***********************************************************************
                                                                //   2078  %INTEGER I, R, USE, INF, AT
#line 2078 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 2078 "regression-compile-tmp/nrimp10s-77.imp"
int R;
#line 2078 "regression-compile-tmp/nrimp10s-77.imp"
int USE;
#line 2078 "regression-compile-tmp/nrimp10s-77.imp"
int INF;
#line 2078 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
                                                                //   2079           %CYCLE I=0, 1, 7
#line 2079 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_01bd:;
if (I == 7) goto L_01be;
I += 1;
                                                                //   2080              %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF1(I)=0
#line 2080 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[I]) < (0))) goto L_01c0;
#line 2080 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = 0;
#line 2080 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[I] = 0;
#line 2080 "regression-compile-tmp/nrimp10s-77.imp"
L_01c0:;
                                                                //   2081           %REPEAT
#line 2081 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01bd;
#line 2081 "regression-compile-tmp/nrimp10s-77.imp"
L_01be:;
                                                                //   2082           %WHILE HEAD#0 %CYCLE
#line 2082 "regression-compile-tmp/nrimp10s-77.imp"
L_01c1:;
#line 2082 "regression-compile-tmp/nrimp10s-77.imp"
if (((HEAD) == (0))) goto L_01c2;
                                                                //   2083              POP(HEAD, INF, AT, I)
#line 2083 "regression-compile-tmp/nrimp10s-77.imp"
POP(&HEAD, &INF, &AT, &I);
                                                                //   2084              R=I>>8;  USE=I&255
#line 2084 "regression-compile-tmp/nrimp10s-77.imp"
R = (int)((((unsigned int)(I)) >> (8)));
#line 2084 "regression-compile-tmp/nrimp10s-77.imp"
USE = ((I) & (255));
                                                                //   2085              %IF REGISTER(R)>=0 %THEN GRUSE(R)=USE %AND GRINF1(R)=INF
#line 2085 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[R]) < (0))) goto L_01c4;
#line 2085 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[R] = USE;
#line 2085 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[R] = INF;
#line 2085 "regression-compile-tmp/nrimp10s-77.imp"
L_01c4:;
                                                                //   2086              GRAT(R)=AT
#line 2086 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[R] = AT;
                                                                //   2087           %REPEAT
#line 2087 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01c1;
#line 2087 "regression-compile-tmp/nrimp10s-77.imp"
L_01c2:;
                                                                //   2088  %END
#line 2088 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RESTORE at level 4
                                                                //   2089           %ROUTINE RELOCATE(%INTEGER GLARAD,VALUE,AREA)
#line 2089 "regression-compile-tmp/nrimp10s-77.imp"
void RELOCATE( int GLARAD, int VALUE, int AREA )
#line 2089 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2090  !***********************************************************************
                                                                //   2091  !*      PLANTS A WORD IN THE GLA (IF GLARAD<0) AND ARRANGES TO         *
                                                                //   2092  !*       RELOCATE IT RELATIVE TO AN AREA(CODE=1,GLA=2,CST=4,GST=5      *
                                                                //   2093  !*       IF THE RELOCATION IS RELATIVE TO SYMBOL TABLES THE WORD       *
                                                                //   2094  !*       CAN NOT BE RELOCATED TILL SIZE OF THE CODE(OR GLA) IS KNOWN   *
                                                                //   2095  !***********************************************************************
                                                                //   2096           %IF GLARAD<0 %THEN PGLA(4,4,ADDR(VALUE)) %AND GLARAD=GLACA-4
#line 2096 "regression-compile-tmp/nrimp10s-77.imp"
if (((GLARAD) >= (0))) goto L_01c5;
#line 2096 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 4, _imp_ADDR(&VALUE));
#line 2096 "regression-compile-tmp/nrimp10s-77.imp"
GLARAD = (((int)(GLACA)) - (4));
#line 2096 "regression-compile-tmp/nrimp10s-77.imp"
L_01c5:;
                                                                //   2097           LPUT(19,2,GLARAD,AREA)
#line 2097 "regression-compile-tmp/nrimp10s-77.imp"
lput(19, 2, GLARAD, AREA);
                                                                //   2098           %END
#line 2098 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RELOCATE at level 4
                                                                //   2099           %ROUTINE GXREF(%STRING(31) NAME,%INTEGER MODE,XTRA,AT)
#line 2099 "regression-compile-tmp/nrimp10s-77.imp"
void GXREF( _imp_string /*%string(31)*/ NAME, int MODE, int XTRA, int AT )
#line 2099 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2100  !***********************************************************************
                                                                //   2101  !*       ASK LPUT TO ARRANGE FOR A DOUBLE WORD AT 'AT' IN THE GLA      *
                                                                //   2102  !*       TO CONTAIN A DESCRIPTOR FOR NAME 'NAME'.                      *
                                                                //   2103  !*       MODE=0 STATIC CODE XREF                                       *
                                                                //   2104  !*       MODE=1 DYNAMIC CODE XREF                                      *
                                                                //   2105  !*       MODE=2 DATA XREF XTRA=MINIMIUM LENGTH                         *
                                                                //   2106  !***********************************************************************
                                                                //   2107  %INTEGER LPUTNO
#line 2107 "regression-compile-tmp/nrimp10s-77.imp"
int LPUTNO;
                                                                //   2108           %IF MODE=2 %THEN LPUTNO=15 %ELSE LPUTNO=MODE+12
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (2))) goto L_01c6;
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
LPUTNO = 15;
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01c7;
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
L_01c6:;
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
LPUTNO = (((int)(MODE)) + (12));
#line 2108 "regression-compile-tmp/nrimp10s-77.imp"
L_01c7:;
                                                                //   2109           LPUT(LPUTNO,XTRA,AT,ADDR(NAME))
#line 2109 "regression-compile-tmp/nrimp10s-77.imp"
lput(LPUTNO, XTRA, AT, _imp_ADDR(&NAME));
                                                                //   2110           %END
#line 2110 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GXREF at level 4
                                                                //   2111  %ROUTINE CXREF(%STRING(255) NAME,%INTEGER MODE,XTRA,%INTEGERNAME AT)
#line 2111 "regression-compile-tmp/nrimp10s-77.imp"
void CXREF( _imp_string /*%string(255)*/ NAME, int MODE, int XTRA, int /*name*/*AT )
#line 2111 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2112  !***********************************************************************
                                                                //   2113  !*       CREATE A ZEROED AREA IN THE GLA AND CALL GXREF TO GET         *
                                                                //   2114  !*       IT FILLED AT LOAD TIME WITH INFORMATION ON AN EXTERNAL OBJECT *
                                                                //   2115  !*       PARAMETERS ARE AS FOR GXREF.                                  *
                                                                //   2116  !***********************************************************************
                                                                //   2117  %INTEGER Z1,Z2
#line 2117 "regression-compile-tmp/nrimp10s-77.imp"
int Z1;
#line 2117 "regression-compile-tmp/nrimp10s-77.imp"
int Z2;
                                                                //   2118           Z1=0; Z2=0
#line 2118 "regression-compile-tmp/nrimp10s-77.imp"
Z1 = 0;
#line 2118 "regression-compile-tmp/nrimp10s-77.imp"
Z2 = 0;
                                                                //   2119           PGLA(8,8,ADDR(Z1));       ! 2 ZERO WORDS
#line 2119 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&Z1));
                                                                //   2120           AT=GLACA-8
#line 2120 "regression-compile-tmp/nrimp10s-77.imp"
*AT = (((int)(GLACA)) - (8));
                                                                //   2121           GXREF(NAME,MODE,XTRA,AT)
#line 2121 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(NAME, MODE, XTRA, *AT);
                                                                //   2122           %END
#line 2122 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CXREF at level 4
                                                                //   2123  %ROUTINE CODEDES(%INTEGERNAME AT)
#line 2123 "regression-compile-tmp/nrimp10s-77.imp"
void CODEDES( int /*name*/*AT )
#line 2123 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2124  !***********************************************************************
                                                                //   2125  !*       PUT A CODE DESCRIPTOR INTO THE PLT FOR USE BY DEFINE EP       *
                                                                //   2126  !***********************************************************************
                                                                //   2127  %INTEGER DESC1,DESC2
#line 2127 "regression-compile-tmp/nrimp10s-77.imp"
int DESC1;
#line 2127 "regression-compile-tmp/nrimp10s-77.imp"
int DESC2;
                                                                //   2128           DESC1=16_E1000000; DESC2=0
#line 2128 "regression-compile-tmp/nrimp10s-77.imp"
DESC1 = (-520093696);
#line 2128 "regression-compile-tmp/nrimp10s-77.imp"
DESC2 = 0;
                                                                //   2129           %IF CDCOUNT=0 %THEN FIXED GLA(0)=DESC1 %AND AT=0 %ELSE PGLA(8,8,ADDR(DESC1)) %AND AT=GLACA-8
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
if (((CDCOUNT) != (0))) goto L_01c8;
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
FIXEDGLA[0] = DESC1;
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
*AT = 0;
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01c9;
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
L_01c8:;
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&DESC1));
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
*AT = (((int)(GLACA)) - (8));
#line 2129 "regression-compile-tmp/nrimp10s-77.imp"
L_01c9:;
                                                                //   2130           CDCOUNT=CDCOUNT+1
#line 2130 "regression-compile-tmp/nrimp10s-77.imp"
CDCOUNT = (((int)(CDCOUNT)) + (1));
                                                                //   2131  %END
#line 2131 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODEDES at level 4
                                                                //   2132  %ROUTINE DEFINE EP(%STRING(255)NAME, %INTEGER ADR,AT,MAIN)
#line 2132 "regression-compile-tmp/nrimp10s-77.imp"
void DEFINEEP( _imp_string /*%string(255)*/ NAME, int ADR, int AT, int MAIN )
#line 2132 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2133  !***********************************************************************
                                                                //   2134  !*       AN EP CONSISTS OF A CODE DESCRIPTOR IN THE GLA(PLT) OF        *
                                                                //   2135  !*       FILE CONTAINING THE EP. LPUT IS TOLD ABOUT THIS AND THE LOADER*
                                                                //   2136  !*       ARRANGES TO PUT A DESCRIPTOR-DESCRIPTOR TO THE CODE-DESC      *
                                                                //   2137  !*        IN THE GLA OF ANY FILE REFERENCES THIS EP. THIS FIRST WORD   *
                                                                //   2138  !*       OF ICLS PLT IS THE MAIN EP AND WE MIMIC THIS AS FAR AS POSS   *
                                                                //   2139  !***********************************************************************
                                                                //   2140           %IF AT=0 %THEN FIXED GLA(1)=ADR %ELSE PLUG(2,AT+4,ADR,4)
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
if (((AT) != (0))) goto L_01ca;
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
FIXEDGLA[1] = ADR;
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01cb;
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
L_01ca:;
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(2, (((int)(AT)) + (4)), ADR, 4);
#line 2140 "regression-compile-tmp/nrimp10s-77.imp"
L_01cb:;
                                                                //   2141           RELOCATE(AT+4,ADR,1)
#line 2141 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(AT)) + (4)), ADR, 1);
                                                                //   2142           LPUT(11,MAIN<<31!2,AT,ADDR(NAME)) %IF NAME#""
#line 2142 "regression-compile-tmp/nrimp10s-77.imp"
if ((_imp_strcmp(NAME, _imp_str_literal("")) == 0)) goto L_01cc;
#line 2142 "regression-compile-tmp/nrimp10s-77.imp"
lput(11, ((((MAIN) << (31))) | (2)), AT, _imp_ADDR(&NAME));
#line 2142 "regression-compile-tmp/nrimp10s-77.imp"
L_01cc:;
                                                                //   2143  %END
#line 2143 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFINEEP at level 4
                                                                //   2144  %ROUTINE PROLOGUE
#line 2144 "regression-compile-tmp/nrimp10s-77.imp"
void PROLOGUE( void )
#line 2144 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2145  !***********************************************************************
                                                                //   2146  !*       GENERATES THE SUBROUTINE THAT ALWAYS  ARE REQUIRED ONTO THE   *
                                                                //   2147  !*       FRONT OF THE OBJECT PROGRAM WHERE THEY ARE DIRECTLY ADDRESABLE*
                                                                //   2148  !***********************************************************************
                                                                //   2149  %INTEGERFNSPEC STRINGIN(%INTEGER POS)
#line 2149 "regression-compile-tmp/nrimp10s-77.imp"
auto int STRINGIN( int POS );
                                                                //   2150  %ROUTINESPEC ERR EXIT(%INTEGER A, B, C)
#line 2150 "regression-compile-tmp/nrimp10s-77.imp"
auto void ERREXIT( int A, int B, int C );
                                                                //   2151  %INTEGER I, K, L, STCA
#line 2151 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 2151 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 2151 "regression-compile-tmp/nrimp10s-77.imp"
int L;
#line 2151 "regression-compile-tmp/nrimp10s-77.imp"
int STCA;
                                                                //   2152           I=16_C2C2C2C2
#line 2152 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1027423550);
                                                                //   2153           LPUT(4,4,0,ADDR(I))
#line 2153 "regression-compile-tmp/nrimp10s-77.imp"
lput(4, 4, 0, _imp_ADDR(&I));
                                                                //   2154           SSTL=4
#line 2154 "regression-compile-tmp/nrimp10s-77.imp"
SSTL = 4;
                                                                //   2155           %CYCLE I=0, 1, 31
#line 2155 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31");
L_01cd:;
if (I == 31) goto L_01ce;
I += 1;
                                                                //   2156              PLABS(I)=0; PLINK(I)=0
#line 2156 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[I] = 0;
#line 2156 "regression-compile-tmp/nrimp10s-77.imp"
PLINK[I] = 0;
                                                                //   2157              DESADS(I)=0
#line 2157 "regression-compile-tmp/nrimp10s-77.imp"
DESADS[I] = 0;
                                                                //   2158           %REPEAT
#line 2158 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01cd;
#line 2158 "regression-compile-tmp/nrimp10s-77.imp"
L_01ce:;
                                                                //   2159  !
                                                                //   2160  ! GENERATE THE FIXED-FLOAT CONSTANTS THAT MAY BE NEEDED
                                                                //   2161  !
                                                                //   2162           PLABS(1)=CA
#line 2162 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[1] = CA;
                                                                //   2163           %CYCLE I=0, 1, 1
#line 2163 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((1)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 1");
L_01d0:;
if (I == 1) goto L_01d1;
I += 1;
                                                                //   2164              PCONST(UNASSPAT)
#line 2164 "regression-compile-tmp/nrimp10s-77.imp"
PCONST((-2122219135));
                                                                //   2165           %REPEAT
#line 2165 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01d0;
#line 2165 "regression-compile-tmp/nrimp10s-77.imp"
L_01d1:;
                                                                //   2166  !
                                                                //   2167  ! GENERATE THE RUN TIME ERROR ROUTINE :-
                                                                //   2168  ! MDIAGS FOR NR IS %ROUTINE MDIAGS(%INT PC,LNB,ERROR,XTRA)
                                                                //   2169  ! PC IS A DUMMY (SEG FIELD ONLY USED) EXCEPT AFTER CONTINGENCY
                                                                //   2170  ! ON ENTRY TO THIS SUBROUTINE ERROR & XTRA ARE IN ACC AS 64 BIT INTEGER
                                                                //   2171  ! ENTRY HAS BEEN BY JLK SO RETURN ADDRESS STACKED
                                                                //   2172  !
                                                                //   2173  !RTF      PRCL   4                 TO PLANT PARAMS
                                                                //   2174  !         JLK    +1                 STACK DUMMY PC
                                                                //   2175  !         STLN   TOS               LNB AS SECOND PARAMETER
                                                                //   2176  !         ST     TOS               ERROR NO AS THIRD PARAM
                                                                //   2177  !         LXN    (LNB+4)           POINTER TO GLA
                                                                //   2178  !         RALN   9                 TO STORED LNB
                                                                //   2179  !         CALL   ((XNB+10))        VIA XREF=DESCRIPTOR-DESCRIPTOR
                                                                //   2180  !         J      TOS               BACK AFTER A MONITOR
                                                                //   2181  !
                                                                //   2182           PLABS(2)=CA
#line 2182 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[2] = CA;
                                                                //   2183           PSF1(PRCL,0,4)
#line 2183 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   2184           PSF1(JLK,0,1)
#line 2184 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(28, 0, 1);
                                                                //   2185           PF1(STLN,0,TOS,0)
#line 2185 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   2186           PF1(ST,0,TOS,0)
#line 2186 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   2187           PSF1(LXN,1,16)
#line 2187 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   2188           PSF1(RALN,0,9)
#line 2188 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 9);
                                                                //   2189           PF1(CALL,2,XNB,40)
#line 2189 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, 40);
                                                                //   2190           PF1(JUNC,0,TOS,0)
#line 2190 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   2191  !
                                                                //   2192  ! SUBROUTINE TO CALL DEBUG ROUTINE(S#IMPMON) LINE NO IN ACC
                                                                //   2193  !
                                                                //   2194  !        PRCL  4
                                                                //   2195  !        ST    TOS
                                                                //   2196  !        LXN   (LNB+4)
                                                                //   2197  !        RALN  6
                                                                //   2198  !        CALL  ((XNB+IMPMONEPDISP))
                                                                //   2199  !        JUNC  TOS
                                                                //   2200  !
                                                                //   2201           %IF PARMDBUG#0 %THEN %START
#line 2201 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMDBUG) == (0))) goto L_01d3;
                                                                //   2202              PLABS(3)=CA
#line 2202 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[3] = CA;
                                                                //   2203              CXREF("S#IMPMON",PARMDYNAMIC,2,K)
#line 2203 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(_imp_str_literal("S#IMPMON"), PARMDYNAMIC, 2, &K);
                                                                //   2204              PSF1(PRCL,0,4)
#line 2204 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   2205              PF1(ST,0,TOS,0)
#line 2205 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   2206              PSF1(LXN,1,16)
#line 2206 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   2207              PSF1(RALN,0,6)
#line 2207 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 6);
                                                                //   2208              PF1(CALL,2,XNB,K)
#line 2208 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, K);
                                                                //   2209              PF1(JUNC,0,TOS,0)
#line 2209 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   2210           %FINISH
#line 2210 "regression-compile-tmp/nrimp10s-77.imp"
L_01d3:;
                                                                //   2211  !
                                                                //   2212  ! SUBROUTINE TO ADVANCE STACK FRONT BY B WORDS AND FILL WITH UNASSIGNED
                                                                //   2213  !
                                                                //   2214  !        JAT   12,*+13                   B IS ZERO
                                                                //   2215  !        LSS   TOS
                                                                //   2216  !        STSF  TOS
                                                                //   2217  !        LDTB  STRING DECRIPTOR         SET UP DESCRIPTOR FOR MVL
                                                                //   2218  !        LDA   TOS
                                                                //   2219  !        ASF   B                        ADVANCE BY B WORDS
                                                                //   2220  !        MYB   4                        CHANGE B TO BYTES
                                                                //   2221  !        LDB   B                        AND MOVE TO BOUND FIELD
                                                                //   2222  !        MVL   L=DR                     AND FILL WITH X80S
                                                                //   2223  !        ST    TOS
                                                                //   2224  !        J     TOS                      RETURN
                                                                //   2225  !
                                                                //   2226           %IF PARMCHK=1 %THEN %START;      ! ONLY REQUIRED WITH CHKING
#line 2226 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (1))) goto L_01d4;
                                                                //   2227              CNOP(0,4); K=CA
#line 2227 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(0, 4);
#line 2227 "regression-compile-tmp/nrimp10s-77.imp"
K = CA;
                                                                //   2228              PCONST(16_58000000)
#line 2228 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(1476395008);
                                                                //   2229              PLABS(4)=CA
#line 2229 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[4] = CA;
                                                                //   2230              PF3(JAT,12,0,13)
#line 2230 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 12, 0, 13);
                                                                //   2231              PF1(LSS,0,TOS,0)
#line 2231 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
                                                                //   2232              PF1(STSF,0,TOS,0)
#line 2232 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 6, 0);
                                                                //   2233              PF1(LDTB,0,PC,K)
#line 2233 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, K);
                                                                //   2234              PF1(LDA,0,TOS,0)
#line 2234 "regression-compile-tmp/nrimp10s-77.imp"
PF1(114, 0, 6, 0);
                                                                //   2235              PF1(ASF,0,BREG,0)
#line 2235 "regression-compile-tmp/nrimp10s-77.imp"
PF1(110, 0, 7, 0);
                                                                //   2236              PSF1(MYB,0,4)
#line 2236 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, 4);
                                                                //   2237              PF1(LDB,0,BREG,0)
#line 2237 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   2238              PF2(MVL,1,1,0,0,UNASSPAT&255)
#line 2238 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   2239              PF1(ST,0,TOS,0)
#line 2239 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   2240              PF1(JUNC,0,TOS,0)
#line 2240 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   2241           %FINISH
#line 2241 "regression-compile-tmp/nrimp10s-77.imp"
L_01d4:;
                                                                //   2242  !
                                                                //   2243  ! SOME ERROR ROUTINES
                                                                //   2244  !
                                                                //   2245           ERR EXIT(5, 16_801, 0) %IF PARMOPT#0; ! UNASSIGNED VARIABLE
#line 2245 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01d5;
#line 2245 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(5, 2049, 0);
#line 2245 "regression-compile-tmp/nrimp10s-77.imp"
L_01d5:;
                                                                //   2246           ERR EXIT(6,  16_504, 0);              ! SWITCH LABEL UNSET
#line 2246 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(6, 1284, 0);
                                                                //   2247           ERR EXIT(7, 16_505, 1);               ! ILLEGEAL EXPONENTIATION
#line 2247 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(7, 1285, 1);
                                                                //   2248           ERR EXIT(8,16_201, 0) %IF PARMOPT#0;  ! EXCESS BLOCKS
#line 2248 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01d6;
#line 2248 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(8, 513, 0);
#line 2248 "regression-compile-tmp/nrimp10s-77.imp"
L_01d6:;
                                                                //   2249           ERR EXIT(9, 16_601, 0);               ! CAPACITY EXCEEDED
#line 2249 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(9, 1537, 0);
                                                                //   2250           ERR EXIT(10,21, 0) ;                  ! NO RESULT
#line 2250 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(10, 21, 0);
                                                                //   2251           ERR EXIT(11,16_501, 0) %IF PARMOPT#0; ! CYCLE NOT VALID
#line 2251 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01d7;
#line 2251 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(11, 1281, 0);
#line 2251 "regression-compile-tmp/nrimp10s-77.imp"
L_01d7:;
                                                                //   2252           ERR EXIT(12,16_701,0);                ! RES FAILS
#line 2252 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(12, 1793, 0);
                                                                //   2253           ERR EXIT(13,36,0) %IF PARMOPT#0;      ! WRONG NO OF PARAMS
#line 2253 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01d8;
#line 2253 "regression-compile-tmp/nrimp10s-77.imp"
ERREXIT(13, 36, 0);
#line 2253 "regression-compile-tmp/nrimp10s-77.imp"
L_01d8:;
                                                                //   2254  !
                                                                //   2255  ! PUT THE STRINGS ONTO THE FRONT OF CONSTANT AREA
                                                                //   2256  !
                                                                //   2257           CTABLE_val(0)=16_18000001
#line 2257 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[0] = 402653185;
                                                                //   2258           CTABLE_val(1)=4
#line 2258 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[1] = 4;
                                                                //   2259           STCA=8; L=ADDR(CTABLE_val(0))
#line 2259 "regression-compile-tmp/nrimp10s-77.imp"
STCA = 8;
#line 2259 "regression-compile-tmp/nrimp10s-77.imp"
L = _imp_ADDR(&CTABLE->VAL[0]);
                                                                //   2260           CONST PTR=2;                   ! IN CASE NO STRINGS
#line 2260 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = 2;
                                                                //   2261           %WHILE STRLINK#0 %CYCLE
#line 2261 "regression-compile-tmp/nrimp10s-77.imp"
L_01d9:;
#line 2261 "regression-compile-tmp/nrimp10s-77.imp"
if (((STRLINK) == (0))) goto L_01da;
                                                                //   2262              I=STRLINK; STRLINK=FROM AR4(I)
#line 2262 "regression-compile-tmp/nrimp10s-77.imp"
I = STRLINK;
#line 2262 "regression-compile-tmp/nrimp10s-77.imp"
STRLINK = FROMAR4(I);
                                                                //   2263              TO AR4(I,STRINGIN(I+4));          ! CHANGE LINK TO STRING ADDR
#line 2263 "regression-compile-tmp/nrimp10s-77.imp"
TOAR4(I, STRINGIN((((int)(I)) + (4))));
                                                                //   2264           %REPEAT
#line 2264 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01d9;
#line 2264 "regression-compile-tmp/nrimp10s-77.imp"
L_01da:;
                                                                //   2265           STRLINK=16_80000000
#line 2265 "regression-compile-tmp/nrimp10s-77.imp"
STRLINK = (-2147483648);
                                                                //   2266           CONST BTM=CONST PTR
#line 2266 "regression-compile-tmp/nrimp10s-77.imp"
CONSTBTM = CONSTPTR;
                                                                //   2267           %IF PARMOPT#0 %THEN CTABLE_val(CONST PTR)=M'IDIA' %AND CONST PTR=CONST PTR+1
#line 2267 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_01dc;
#line 2267 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[CONSTPTR] = 1229211969;
#line 2267 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (1));
#line 2267 "regression-compile-tmp/nrimp10s-77.imp"
L_01dc:;
                                                                //   2268           GXREF(MDEP,PARMDYNAMIC,2,40)
#line 2268 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(MDEP, PARMDYNAMIC, 2, 40);
                                                                //   2269           %IF PARMPROF#0 %THEN %START;   ! ALLOCATE PROFILE COUNT AREA
#line 2269 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMPROF) == (0))) goto L_01dd;
                                                                //   2270              I=16_38000001+LINE
#line 2270 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(939524097)) + (LINE));
                                                                //   2271              K=8
#line 2271 "regression-compile-tmp/nrimp10s-77.imp"
K = 8;
                                                                //   2272              PARMPROF=GLACA
#line 2272 "regression-compile-tmp/nrimp10s-77.imp"
PARMPROF = GLACA;
                                                                //   2273              PGLA(4,8,ADDR(I))
#line 2273 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 8, _imp_ADDR(&I));
                                                                //   2274              K=0
#line 2274 "regression-compile-tmp/nrimp10s-77.imp"
K = 0;
                                                                //   2275              %CYCLE I=0,1,LINE
#line 2275 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = LINE; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, LINE");
I -= _increment; _control -= _increment;
L_01de:;
if (I == _final) goto L_01df;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   2276                 PGLA(4,4,ADDR(K))
#line 2276 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 4, _imp_ADDR(&K));
                                                                //   2277              %REPEAT
#line 2277 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01de;
#line 2277 "regression-compile-tmp/nrimp10s-77.imp"
L_01df:;
                                                                //   2278              LINE=0
#line 2278 "regression-compile-tmp/nrimp10s-77.imp"
LINE = 0;
                                                                //   2279           %FINISH
#line 2279 "regression-compile-tmp/nrimp10s-77.imp"
L_01dd:;
                                                                //   2280           LEVEL=1
#line 2280 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = 1;
                                                                //   2281           %CYCLE I=0,1,31
#line 2281 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31");
L_01e1:;
if (I == 31) goto L_01e2;
I += 1;
                                                                //   2282              %IF PLINK(I)#0 %THEN CLEAR LIST(PLINK(I))
#line 2282 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[I]) == (0))) goto L_01e4;
#line 2282 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&PLINK[I]);
#line 2282 "regression-compile-tmp/nrimp10s-77.imp"
L_01e4:;
                                                                //   2283           %REPEAT
#line 2283 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01e1;
#line 2283 "regression-compile-tmp/nrimp10s-77.imp"
L_01e2:;
                                                                //   2284           %RETURN
#line 2284 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2285  %INTEGERFN STRINGIN(%INTEGER POS)
#line 2285 "regression-compile-tmp/nrimp10s-77.imp"
int STRINGIN( int POS )
#line 2285 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2286  !***********************************************************************
                                                                //   2287  !*    PUT A STRING INTO THE CONSTANT AREA CHECKING FOR DUPLICATES      *
                                                                //   2288  !***********************************************************************
                                                                //   2289  %INTEGER J,K,IND,HD
#line 2289 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 2289 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 2289 "regression-compile-tmp/nrimp10s-77.imp"
int IND;
#line 2289 "regression-compile-tmp/nrimp10s-77.imp"
int HD;
                                                                //   2290  %RECORD(LISTF)%NAME CELL{(LISTF)
#line 2290 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*CELL;
                                                                //   2291        K=A(POS)
#line 2291 "regression-compile-tmp/nrimp10s-77.imp"
K = A[POS];
                                                                //   2292        %IF K=0 %THEN %RESULT=0
#line 2292 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) != (0))) goto L_01e5;
#line 2292 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 2292 "regression-compile-tmp/nrimp10s-77.imp"
L_01e5:;
                                                                //   2293        IND=K&31; HD=PLINK(IND)
#line 2293 "regression-compile-tmp/nrimp10s-77.imp"
IND = ((K) & (31));
#line 2293 "regression-compile-tmp/nrimp10s-77.imp"
HD = PLINK[IND];
                                                                //   2294        %WHILE HD#0 %CYCLE
#line 2294 "regression-compile-tmp/nrimp10s-77.imp"
L_01e6:;
#line 2294 "regression-compile-tmp/nrimp10s-77.imp"
if (((HD) == (0))) goto L_01e7;
                                                                //   2295           CELL==ASLIST(HD)
#line 2295 "regression-compile-tmp/nrimp10s-77.imp"
CELL = &ASLIST[HD];
                                                                //   2296           %IF CELL_S1=K %AND STRING(L+CELL_S2)=STRING(ADDR(A(POS))) %THEN %RESULT=CELL_S2-4
#line 2296 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL->S1) != (K))) goto L_01e9;
#line 2296 "regression-compile-tmp/nrimp10s-77.imp"
if ((_imp_strcmp(*_imp_STRING((((int)(L)) + (CELL->S2))), *_imp_STRING(_imp_ADDR(&A[POS]))) != 0)) goto L_01e9;
#line 2296 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (((int)(CELL->S2)) - (4));
#line 2296 "regression-compile-tmp/nrimp10s-77.imp"
L_01e9:;
                                                                //   2297           HD=CELL_LINK
#line 2297 "regression-compile-tmp/nrimp10s-77.imp"
HD = CELL->LINK;
                                                                //   2298        %REPEAT
#line 2298 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01e6;
#line 2298 "regression-compile-tmp/nrimp10s-77.imp"
L_01e7:;
                                                                //   2299        HD=STCA
#line 2299 "regression-compile-tmp/nrimp10s-77.imp"
HD = STCA;
                                                                //   2300        BYTEINTEGER(L+STCA)=K; STCA=STCA+1
#line 2300 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(L)) + (STCA))) = K;
#line 2300 "regression-compile-tmp/nrimp10s-77.imp"
STCA = (((int)(STCA)) + (1));
                                                                //   2301        %CYCLE J=POS+1,1,POS+K
#line 2301 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(POS)) + (1)); _increment = 1; _final = (((int)(POS)) + (K)); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(POS)) + (1)), 1, (((int)(POS)) + (K))");
J -= _increment; _control -= _increment;
L_01ea:;
if (J == _final) goto L_01eb;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //   2302           BYTE INTEGER(L+STCA)=A(J)
#line 2302 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(L)) + (STCA))) = A[J];
                                                                //   2303           STCA=STCA+1
#line 2303 "regression-compile-tmp/nrimp10s-77.imp"
STCA = (((int)(STCA)) + (1));
                                                                //   2304        %REPEAT
#line 2304 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01ea;
#line 2304 "regression-compile-tmp/nrimp10s-77.imp"
L_01eb:;
                                                                //   2305        CONST PTR=((STCA+7)&(-8))>>2
#line 2305 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((((((((int)(STCA)) + (7))) & ((-8))))) >> (2)));
                                                                //   2306        PUSH(PLINK(IND),K,HD,0)
#line 2306 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&PLINK[IND], K, HD, 0);
                                                                //   2307        %RESULT=HD-4
#line 2307 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (((int)(HD)) - (4));
                                                                //   2308  %END
#line 2308 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block STRINGIN at level 5
                                                                //   2309  %ROUTINE ERR EXIT(%INTEGER LAB, ERRNO, MODE)
#line 2309 "regression-compile-tmp/nrimp10s-77.imp"
void ERREXIT( int LAB, int ERRNO, int MODE )
#line 2309 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2310  !***********************************************************************
                                                                //   2311  !*       MODE=0 FOR DUMMY(ZERO) XTRA - MODE=1 XTRA IN BREG             *
                                                                //   2312  !***********************************************************************
                                                                //   2313           PLABS(LAB)=CA
#line 2313 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[LAB] = CA;
                                                                //   2314           %IF MODE=0 %THEN PSF1(LSS,0,0) %ELSE PF1(LSS,0,BREG,0)
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_01ed;
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 0);
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01ee;
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
L_01ed:;
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 7, 0);
#line 2314 "regression-compile-tmp/nrimp10s-77.imp"
L_01ee:;
                                                                //   2315           PSF1(LUH,0,ERRNO)
#line 2315 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(106, 0, ERRNO);
                                                                //   2316           PSF1(JLK,0,(PLABS(2)-CA)//2)
#line 2316 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(28, 0, ((long)((long)(((((int)(PLABS[2])) - (CA)))) / (long)((int)(2)))));
                                                                //   2317  %END
#line 2317 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ERREXIT at level 5
                                                                //   2318  %END
#line 2318 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PROLOGUE at level 4
                                                                //   2319  %ROUTINE CSS(%INTEGER P)
#line 2319 "regression-compile-tmp/nrimp10s-77.imp"
void CSS( int P )
#line 2319 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   2320  %ROUTINESPEC MERGE INFO
#line 2320 "regression-compile-tmp/nrimp10s-77.imp"
auto void MERGEINFO( void );
                                                                //   2321  %ROUTINESPEC REDUCE ENV(%INTEGERNAME HEAD)
#line 2321 "regression-compile-tmp/nrimp10s-77.imp"
auto void REDUCEENV( int /*name*/*HEAD );
                                                                //   2322  %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG)
#line 2322 "regression-compile-tmp/nrimp10s-77.imp"
auto void ENTERJUMP( int MASK, int STAD, int FLAG );
                                                                //   2323  %INTEGERFNSPEC ENTER LAB(%INTEGER M,FLAG)
#line 2323 "regression-compile-tmp/nrimp10s-77.imp"
auto int ENTERLAB( int M, int FLAG );
                                                                //   2324  %ROUTINESPEC REMOVE LAB(%INTEGER LAB)
#line 2324 "regression-compile-tmp/nrimp10s-77.imp"
auto void REMOVELAB( int LAB );
                                                                //   2325  %ROUTINESPEC CEND(%INTEGER KKK)
#line 2325 "regression-compile-tmp/nrimp10s-77.imp"
auto void CEND( int KKK );
                                                                //   2326  %INTEGERFNSPEC CCOND(%INTEGER CTO,A,B)
#line 2326 "regression-compile-tmp/nrimp10s-77.imp"
auto int CCOND( int CTO, int A, int B );
                                                                //   2327  %ROUTINESPEC CHECK STOF
#line 2327 "regression-compile-tmp/nrimp10s-77.imp"
auto void CHECKSTOF( void );
                                                                //   2328  %INTEGERFNSPEC REVERSE(%INTEGER MASK)
#line 2328 "regression-compile-tmp/nrimp10s-77.imp"
auto int REVERSE( int MASK );
                                                                //   2329  %ROUTINESPEC SET LINE
#line 2329 "regression-compile-tmp/nrimp10s-77.imp"
auto void SETLINE( void );
                                                                //   2330  %INTEGERFNSPEC SET XORYNB(%INTEGER WHICH,RLEVEL)
#line 2330 "regression-compile-tmp/nrimp10s-77.imp"
auto int SETXORYNB( int WHICH, int RLEVEL );
                                                                //   2331  %INTEGERFNSPEC XORYNB(%INTEGER USE,INF)
#line 2331 "regression-compile-tmp/nrimp10s-77.imp"
auto int XORYNB( int USE, int INF );
                                                                //   2332  %ROUTINESPEC GET IN ACC(%INTEGER ACC,SIZE,AC,AREA,DISP)
#line 2332 "regression-compile-tmp/nrimp10s-77.imp"
auto void GETINACC( int ACC, int SIZE, int AC, int AREA, int DISP );
                                                                //   2333  %INTEGERFNSPEC AREA CODE
#line 2333 "regression-compile-tmp/nrimp10s-77.imp"
auto int AREACODE( void );
                                                                //   2334  %INTEGERFNSPEC AREA CODE2(%INTEGER BS)
#line 2334 "regression-compile-tmp/nrimp10s-77.imp"
auto int AREACODE2( int BS );
                                                                //   2335  %ROUTINESPEC CUI(%INTEGER CODE)
#line 2335 "regression-compile-tmp/nrimp10s-77.imp"
auto void CUI( int CODE );
                                                                //   2336  %ROUTINESPEC ASSIGN(%INTEGER A,B)
#line 2336 "regression-compile-tmp/nrimp10s-77.imp"
auto void ASSIGN( int A, int B );
                                                                //   2337  %ROUTINESPEC CSTART(%INTEGER CCRES,MODE)
#line 2337 "regression-compile-tmp/nrimp10s-77.imp"
auto void CSTART( int CCRES, int MODE );
                                                                //   2338  %ROUTINESPEC CCYCBODY(%INTEGER UA,ELAB,CLAB)
#line 2338 "regression-compile-tmp/nrimp10s-77.imp"
auto void CCYCBODY( int UA, int ELAB, int CLAB );
                                                                //   2339  %ROUTINESPEC CLOOP(%INTEGER ALT,MARKC,MARKUI)
#line 2339 "regression-compile-tmp/nrimp10s-77.imp"
auto void CLOOP( int ALT, int MARKC, int MARKUI );
                                                                //   2340  %ROUTINESPEC CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP)
#line 2340 "regression-compile-tmp/nrimp10s-77.imp"
auto void CIFTHEN( int MARKIU, int MARKC, int MARKUI, int MARKE, int MARKR, int SKIP );
                                                                //   2341  %ROUTINESPEC CREATE AH(%INTEGER MODE)
#line 2341 "regression-compile-tmp/nrimp10s-77.imp"
auto void CREATEAH( int MODE );
                                                                //   2342  %ROUTINESPEC TORP(%INTEGERNAME HEAD,BOT,NOPS)
#line 2342 "regression-compile-tmp/nrimp10s-77.imp"
auto void TORP( int /*name*/*HEAD, int /*name*/*BOT, int /*name*/*NOPS );
                                                                //   2343  %INTEGERFNSPEC INTEXP(%INTEGERNAME VALUE)
#line 2343 "regression-compile-tmp/nrimp10s-77.imp"
auto int INTEXP( int /*name*/*VALUE );
                                                                //   2344  %INTEGERFNSPEC CONSTEXP(%INTEGER PRECTYPE)
#line 2344 "regression-compile-tmp/nrimp10s-77.imp"
auto int CONSTEXP( int PRECTYPE );
                                                                //   2345  %ROUTINESPEC CSEXP(%INTEGER REG,MODE)
#line 2345 "regression-compile-tmp/nrimp10s-77.imp"
auto void CSEXP( int REG, int MODE );
                                                                //   2346  %ROUTINESPEC CSTREXP(%INTEGER A,B)
#line 2346 "regression-compile-tmp/nrimp10s-77.imp"
auto void CSTREXP( int A, int B );
                                                                //   2347  %ROUTINESPEC CRES(%INTEGER LAB)
#line 2347 "regression-compile-tmp/nrimp10s-77.imp"
auto void CRES( int LAB );
                                                                //   2348  %ROUTINESPEC EXPOP(%INTEGER A,B,C,D)
#line 2348 "regression-compile-tmp/nrimp10s-77.imp"
auto void EXPOP( int A, int B, int C, int D );
                                                                //   2349  %ROUTINESPEC  TEST APP(%INTEGERNAME NUM)
#line 2349 "regression-compile-tmp/nrimp10s-77.imp"
auto void TESTAPP( int /*name*/*NUM );
                                                                //   2350  %ROUTINESPEC SKIP EXP
#line 2350 "regression-compile-tmp/nrimp10s-77.imp"
auto void SKIPEXP( void );
                                                                //   2351  %ROUTINESPEC SKIP APP
#line 2351 "regression-compile-tmp/nrimp10s-77.imp"
auto void SKIPAPP( void );
                                                                //   2352  %ROUTINESPEC NO APP
#line 2352 "regression-compile-tmp/nrimp10s-77.imp"
auto void NOAPP( void );
                                                                //   2353  %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,MODE,ID,%INTEGERNAME C,D)
#line 2353 "regression-compile-tmp/nrimp10s-77.imp"
auto int DOPEVECTOR( int A, int B, int MODE, int ID, int /*name*/*C, int /*name*/*D );
                                                                //   2354  %ROUTINESPEC DECLARE ARRAYS(%INTEGER A,B)
#line 2354 "regression-compile-tmp/nrimp10s-77.imp"
auto void DECLAREARRAYS( int A, int B );
                                                                //   2355  %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B)
#line 2355 "regression-compile-tmp/nrimp10s-77.imp"
auto void DECLARESCALARS( int A, int B );
                                                                //   2356  %ROUTINESPEC MAKE DECS(%INTEGER Q)
#line 2356 "regression-compile-tmp/nrimp10s-77.imp"
auto void MAKEDECS( int Q );
                                                                //   2357  %ROUTINESPEC SAVE AUX STACK
#line 2357 "regression-compile-tmp/nrimp10s-77.imp"
auto void SAVEAUXSTACK( void );
                                                                //   2358  %ROUTINESPEC RESET AUX STACK
#line 2358 "regression-compile-tmp/nrimp10s-77.imp"
auto void RESETAUXSTACK( void );
                                                                //   2359  %ROUTINESPEC CRSPEC(%INTEGER M)
#line 2359 "regression-compile-tmp/nrimp10s-77.imp"
auto void CRSPEC( int M );
                                                                //   2360  %ROUTINESPEC CFPLIST(%INTEGERNAME A,B)
#line 2360 "regression-compile-tmp/nrimp10s-77.imp"
auto void CFPLIST( int /*name*/*A, int /*name*/*B );
                                                                //   2361  %ROUTINESPEC CFPDEL
#line 2361 "regression-compile-tmp/nrimp10s-77.imp"
auto void CFPDEL( void );
                                                                //   2362  %ROUTINESPEC CLT
#line 2362 "regression-compile-tmp/nrimp10s-77.imp"
auto void CLT( void );
                                                                //   2363  %ROUTINESPEC CQN(%INTEGER P)
#line 2363 "regression-compile-tmp/nrimp10s-77.imp"
auto void CQN( int P );
                                                                //   2364  %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE)
#line 2364 "regression-compile-tmp/nrimp10s-77.imp"
auto void GETWSP( int /*name*/*PLACE, int SIZE );
                                                                //   2365  %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE)
#line 2365 "regression-compile-tmp/nrimp10s-77.imp"
auto void RETURNWSP( int PLACE, int SIZE );
                                                                //   2366  %INTEGERFNSPEC TSEXP(%INTEGERNAME VALUE)
#line 2366 "regression-compile-tmp/nrimp10s-77.imp"
auto int TSEXP( int /*name*/*VALUE );
                                                                //   2367  %ROUTINESPEC CRCALL(%INTEGER RTNAME)
#line 2367 "regression-compile-tmp/nrimp10s-77.imp"
auto void CRCALL( int RTNAME );
                                                                //   2368  %ROUTINESPEC NAMEOP(%INTEGER Z,REG,SIZE,NAMEP)
#line 2368 "regression-compile-tmp/nrimp10s-77.imp"
auto void NAMEOP( int Z, int REG, int SIZE, int NAMEP );
                                                                //   2369  %ROUTINESPEC CNAME(%INTEGER Z,REG)
#line 2369 "regression-compile-tmp/nrimp10s-77.imp"
auto void CNAME( int Z, int REG );
                                                                //   2370  %ROUTINESPEC CANAME(%INTEGER Z,BS,DP)
#line 2370 "regression-compile-tmp/nrimp10s-77.imp"
auto void CANAME( int Z, int BS, int DP );
                                                                //   2371  %ROUTINESPEC CSNAME(%INTEGER Z,REG)
#line 2371 "regression-compile-tmp/nrimp10s-77.imp"
auto void CSNAME( int Z, int REG );
                                                                //   2372  %ROUTINESPEC TEST ASS(%INTEGER REG,TYPE,SIZE)
#line 2372 "regression-compile-tmp/nrimp10s-77.imp"
auto void TESTASS( int REG, int TYPE, int SIZE );
                                                                //   2373  %ROUTINESPEC COPY TAG(%INTEGER KK)
#line 2373 "regression-compile-tmp/nrimp10s-77.imp"
auto void COPYTAG( int KK );
                                                                //   2374  %ROUTINESPEC REDUCE TAG
#line 2374 "regression-compile-tmp/nrimp10s-77.imp"
auto void REDUCETAG( void );
                                                                //   2375  %ROUTINESPEC REPLACE TAG (%INTEGER KK)
#line 2375 "regression-compile-tmp/nrimp10s-77.imp"
auto void REPLACETAG( int KK );
                                                                //   2376  %ROUTINESPEC RT JUMP(%INTEGER CODE,%INTEGERNAME L)
#line 2376 "regression-compile-tmp/nrimp10s-77.imp"
auto void RTJUMP( int CODE, int /*name*/*L );
                                                                //   2377  %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK)
#line 2377 "regression-compile-tmp/nrimp10s-77.imp"
auto void STORETAG( int KK, int SLINK );
                                                                //   2378  %ROUTINESPEC UNPACK
#line 2378 "regression-compile-tmp/nrimp10s-77.imp"
auto void UNPACK( void );
                                                                //   2379  %ROUTINESPEC PACK(%INTEGERNAME PTYPE)
#line 2379 "regression-compile-tmp/nrimp10s-77.imp"
auto void PACK( int /*name*/*PTYPE );
                                                                //   2380  %ROUTINESPEC DIAG POINTER(%INTEGER LEVEL)
#line 2380 "regression-compile-tmp/nrimp10s-77.imp"
auto void DIAGPOINTER( int LEVEL );
                                                                //   2381  %ROUTINESPEC RDISPLAY(%INTEGER KK)
#line 2381 "regression-compile-tmp/nrimp10s-77.imp"
auto void RDISPLAY( int KK );
                                                                //   2382  %ROUTINESPEC RHEAD(%INTEGER KK)
#line 2382 "regression-compile-tmp/nrimp10s-77.imp"
auto void RHEAD( int KK );
                                                                //   2383  %ROUTINESPEC ODD ALIGN
#line 2383 "regression-compile-tmp/nrimp10s-77.imp"
auto void ODDALIGN( void );
                                                                //   2384  %INTEGERFNSPEC PTR OFFSET(%INTEGER RLEV)
#line 2384 "regression-compile-tmp/nrimp10s-77.imp"
auto int PTROFFSET( int RLEV );
                                                                //   2385  %ROUTINESPEC PPJ(%INTEGER MASK,N)
#line 2385 "regression-compile-tmp/nrimp10s-77.imp"
auto void PPJ( int MASK, int N );
                                                                //   2386  %ROUTINESPEC CRFORMAT(%INTEGERNAME OPHEAD)
#line 2386 "regression-compile-tmp/nrimp10s-77.imp"
auto void CRFORMAT( int /*name*/*OPHEAD );
                                                                //   2387  %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK)
#line 2387 "regression-compile-tmp/nrimp10s-77.imp"
auto int DISPLACEMENT( int LINK );
                                                                //   2388  %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS)
#line 2388 "regression-compile-tmp/nrimp10s-77.imp"
auto int COPYRECORDTAG( int /*name*/*SUBS );
                                                                //   2389  %ROUTINESPEC SAVE IRS
#line 2389 "regression-compile-tmp/nrimp10s-77.imp"
auto void SAVEIRS( void );
                                                                //   2390  %ROUTINESPEC COPY DR
#line 2390 "regression-compile-tmp/nrimp10s-77.imp"
auto void COPYDR( void );
                                                                //   2391  %ROUTINESPEC BOOT OUT(%INTEGER REG)
#line 2391 "regression-compile-tmp/nrimp10s-77.imp"
auto void BOOTOUT( int REG );
                                                                //   2392  %ROUTINESPEC CHANGE RD(%INTEGER REG)
#line 2392 "regression-compile-tmp/nrimp10s-77.imp"
auto void CHANGERD( int REG );
                                                                //   2393  %ROUTINESPEC FORGET(%INTEGER REG)
#line 2393 "regression-compile-tmp/nrimp10s-77.imp"
auto void FORGET( int REG );
                                                                //   2394  %ROUTINESPEC REMEMBER
#line 2394 "regression-compile-tmp/nrimp10s-77.imp"
auto void REMEMBER( void );
                                                                //   2395  %ROUTINESPEC NOTE ASSMENT(%INTEGER REG,ASSOP,VAR)
#line 2395 "regression-compile-tmp/nrimp10s-77.imp"
auto void NOTEASSMENT( int REG, int ASSOP, int VAR );
                                                                //   2396  %SWITCH SW(1:24)
#line 2396 "regression-compile-tmp/nrimp10s-77.imp"
static int sw2_SW_idx;
static const void * /*SWITCH*/ sw2_SW[24] = { &&sw2_SW_1, &&sw2_SW_2, &&sw2_SW_3, &&sw2_SW_4, &&sw2_SW_5, &&sw2_SW_6, &&sw2_SW_7, &&sw2_SW_8, &&sw2_SW_9, &&sw2_SW_10, &&sw2_SW_11, &&sw2_SW_12, &&sw2_SW_13, &&sw2_SW_14, &&sw2_SW_15, &&sw2_SW_16, &&sw2_SW_17, &&sw2_SW_18, &&sw2_SW_19, &&sw2_SW_20, &&sw2_SW_21, &&sw2_SW_22, &&sw2_SW_23, &&sw2_SW_24,  };
                                                                //   2397  %RECORDFORMAT RD(%BYTEINTEGER UPTYPE,PTYPE,XB,FLAG,{%C
#line 2397 "regression-compile-tmp/nrimp10s-77.imp"
typedef struct RD RD;
struct RD {
  unsigned char UPTYPE;
  unsigned char PTYPE;
  unsigned char XB;
  unsigned char FLAG;
  int D;
  int XTRA;
};
                                                                //   2398     %INTEGER D,XTRA)
                                                                //   2399  %INTEGER SNDISP,ACC,K,KFORM,STNAME,MIDCELL
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int SNDISP;
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int ACC;
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int KFORM;
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int STNAME;
#line 2399 "regression-compile-tmp/nrimp10s-77.imp"
int MIDCELL;
                                                                //   2400  %INTEGER TCELL,NUMMOD,JJ,JJJ,KK,QQ,MARKER,REPORTUI,XDISP,MASK, {%C
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int TCELL;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int NUMMOD;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKER;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int REPORTUI;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int XDISP;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MASK;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int BASE;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int AREA;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int ACCESS;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int DISP;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int EXTRN;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int CURRINST;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int VALUE;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int STRINGL;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPE;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int OLDI;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int USEBITS;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int TWSPHEAD;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int KKK;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int STRFNRES;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKIU;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKUI;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKC;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKE;
#line 2400 "regression-compile-tmp/nrimp10s-77.imp"
int MARKR;
                                                                //   2401        BASE,AREA,ACCESS,DISP,EXTRN, CURR INST,VALUE,STRINGL, {%C
                                                                //   2402        PTYPE,I,J,OLDI,USEBITS,TWSPHEAD,KKK,STRFNRES, {%C
                                                                //   2403        MARKIU,MARKUI,MARKC,MARKE,MARKR
                                                                //   2404  %INTEGER LITL,ROUT,NAM,ARR,PREC,TYPE
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int LITL;
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int ROUT;
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int NAM;
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int ARR;
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int PREC;
#line 2404 "regression-compile-tmp/nrimp10s-77.imp"
int TYPE;
                                                                //   2405  %RECORD (RD) EXPOPND{(RD);                    ! RESULT RECORD FOR EXPOP
#line 2405 "regression-compile-tmp/nrimp10s-77.imp"
 RD EXPOPND;
                                                                //   2406           CURR INST=0
#line 2406 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 0;
                                                                //   2407           TWSPHEAD=0
#line 2407 "regression-compile-tmp/nrimp10s-77.imp"
TWSPHEAD = 0;
                                                                //   2408           %INTEGERARRAY SGRUSE,SGRINF(0:7)
#line 2408 "regression-compile-tmp/nrimp10s-77.imp"
int SGRUSE[8];
#line 2408 "regression-compile-tmp/nrimp10s-77.imp"
int SGRINF[8];
                                                                //   2409           ->SW(A(P))
#line 2409 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_idx = A[P]; if ((1 <= sw2_SW_idx) && (sw2_SW_idx <= 24)) goto *(sw2_SW-1)[sw2_SW_idx];  /* Bounds=1:24 */ else {
   /*_imp_signal(8, 2, sw2_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:24 at %s:%d\n",
           sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2410  SW(23):                                 ! INCLUDE SOMETHING
#line 2410 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_23:;
                                                                //   2411  SW(24):                                 ! REDUNDANT SEP
#line 2411 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_24:;
                                                                //   2412  SW(2):                                  ! <CMARK> <COMMENT TEXT>
#line 2412 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_2:;
                                                                //   2413  CSSEXIT:  LAST INST=CURR INST
#line 2413 "regression-compile-tmp/nrimp10s-77.imp"
U_1015:;
#line 2413 "regression-compile-tmp/nrimp10s-77.imp"
LASTINST = CURRINST;
                                                                //   2414           %WHILE TWSPHEAD#0 %CYCLE
#line 2414 "regression-compile-tmp/nrimp10s-77.imp"
L_01ef:;
#line 2414 "regression-compile-tmp/nrimp10s-77.imp"
if (((TWSPHEAD) == (0))) goto L_01f0;
                                                                //   2415              POP(TWSPHEAD,JJ,KK,QQ)
#line 2415 "regression-compile-tmp/nrimp10s-77.imp"
POP(&TWSPHEAD, &JJ, &KK, &QQ);
                                                                //   2416              RETURN WSP(JJ,KK)
#line 2416 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(JJ, KK);
                                                                //   2417           %REPEAT
#line 2417 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01ef;
#line 2417 "regression-compile-tmp/nrimp10s-77.imp"
L_01f0:;
                                                                //   2418           %RETURN
#line 2418 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2419  SW(1):                                !(UI)(S)
#line 2419 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_1:;
                                                                //   2420           FAULT(57,0) %UNLESS LEVEL>=2
#line 2420 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_01f2;
#line 2420 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2420 "regression-compile-tmp/nrimp10s-77.imp"
L_01f2:;
                                                                //   2421           MARKER=P+1+A(P+1)<<8+A(P+2)
#line 2421 "regression-compile-tmp/nrimp10s-77.imp"
MARKER = (((unsigned char)(((((((int)(P)) + (1)))) + (((A[(((int)(P)) + (1))]) << (8)))))) + (A[(((int)(P)) + (2))]));
                                                                //   2422           P=P+3
#line 2422 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2423           ->LABFND %IF A(MARKER)=1
#line 2423 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKER]) != (1))) goto L_01f3;
#line 2423 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1016;
#line 2423 "regression-compile-tmp/nrimp10s-77.imp"
L_01f3:;
                                                                //   2424           %IF A(MARKER)=2 %THEN SET LINE %AND CUI(0) %AND ->CSSEXIT
#line 2424 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKER]) != (2))) goto L_01f4;
#line 2424 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 2424 "regression-compile-tmp/nrimp10s-77.imp"
CUI(0);
#line 2424 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
#line 2424 "regression-compile-tmp/nrimp10s-77.imp"
L_01f4:;
                                                                //   2425           MARKE=0; MARKR=0
#line 2425 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = 0;
#line 2425 "regression-compile-tmp/nrimp10s-77.imp"
MARKR = 0;
                                                                //   2426           MARKUI=P; MARKIU=MARKER+1
#line 2426 "regression-compile-tmp/nrimp10s-77.imp"
MARKUI = P;
#line 2426 "regression-compile-tmp/nrimp10s-77.imp"
MARKIU = (((int)(MARKER)) + (1));
                                                                //   2427           MARKC=MARKIU+1
#line 2427 "regression-compile-tmp/nrimp10s-77.imp"
MARKC = (((int)(MARKIU)) + (1));
                                                                //   2428           %IF A(MARKER)=3 %THEN CIFTHEN(MARKIU,MARKC,MARKUI,0,0,NO) %AND ->CSSEXIT
#line 2428 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKER]) != (3))) goto L_01f5;
#line 2428 "regression-compile-tmp/nrimp10s-77.imp"
CIFTHEN(MARKIU, MARKC, MARKUI, 0, 0, 0);
#line 2428 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
#line 2428 "regression-compile-tmp/nrimp10s-77.imp"
L_01f5:;
                                                                //   2429           CLOOP(A(MARKIU),MARKC+2,MARKUI)
#line 2429 "regression-compile-tmp/nrimp10s-77.imp"
CLOOP(A[MARKIU], (((int)(MARKC)) + (2)), MARKUI);
                                                                //   2430           ->CSSEXIT
#line 2430 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2431  LABFND:  ->SWITCH %UNLESS A(P)=1 %AND A(P+5)=2;  ! 1ST OF UI AND NO APP
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
U_1016:;
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_01f1;
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) == (2))) goto L_01f6;
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
L_01f1:;
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1017;
#line 2431 "regression-compile-tmp/nrimp10s-77.imp"
L_01f6:;
                                                                //   2432           ->SWITCH %UNLESS A(P+6)=2 %AND A(P+7)=2;! NO ENAMSE OR ASSNMNT
#line 2432 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (6))]) != (2))) goto L_01f7;
#line 2432 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (7))]) == (2))) goto L_01f8;
#line 2432 "regression-compile-tmp/nrimp10s-77.imp"
L_01f7:;
#line 2432 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1017;
#line 2432 "regression-compile-tmp/nrimp10s-77.imp"
L_01f8:;
                                                                //   2433           JJ=ENTER LAB(FROM AR2(P+3),0); ->CSSEXIT
#line 2433 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ENTERLAB(FROMAR2((((int)(P)) + (3))), 0);
#line 2433 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2434  SW(5):                                 ! %CYCLE
#line 2434 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_5:;
                                                                //   2435           FAULT(57,0) %UNLESS LEVEL>=2
#line 2435 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_01f9;
#line 2435 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2435 "regression-compile-tmp/nrimp10s-77.imp"
L_01f9:;
                                                                //   2436           %IF A(P+5)=2 %THEN %START;     ! OPEN CYCLE
#line 2436 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) != (2))) goto L_01fa;
                                                                //   2437              CLOOP(0,P+1,0)
#line 2437 "regression-compile-tmp/nrimp10s-77.imp"
CLOOP(0, (((int)(P)) + (1)), 0);
                                                                //   2438           %FINISH %ELSE %START
#line 2438 "regression-compile-tmp/nrimp10s-77.imp"
goto L_01fb;
#line 2438 "regression-compile-tmp/nrimp10s-77.imp"
L_01fa:;
                                                                //   2439              CLOOP(6,P+6,P+1)
#line 2439 "regression-compile-tmp/nrimp10s-77.imp"
CLOOP(6, (((int)(P)) + (6)), (((int)(P)) + (1)));
                                                                //   2440        %FINISH
#line 2440 "regression-compile-tmp/nrimp10s-77.imp"
L_01fb:;
                                                                //   2441           ->CSSEXIT
#line 2441 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2442  !
                                                                //   2443  SW(6):                                 ! REPEAT
#line 2443 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_6:;
                                                                //   2444           ->CSSEXIT
#line 2444 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2445  SW(22):                                ! '%CONTROL' (CONST)
#line 2445 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_22:;
                                                                //   2446           J=FROM AR4(P+2)
#line 2446 "regression-compile-tmp/nrimp10s-77.imp"
J = FROMAR4((((int)(P)) + (2)));
                                                                //   2447           CODEOUT
#line 2447 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
                                                                //   2448           DCOMP=J>>28; ->CSSEXIT
#line 2448 "regression-compile-tmp/nrimp10s-77.imp"
DCOMP = (int)((((unsigned int)(J)) >> (28)));
#line 2448 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2449  !
                                                                //   2450  SW(3):                                 ! (%IU)(COND)%THEN(UI)(ELSE')
#line 2450 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_3:;
                                                                //   2451           MARKIU=P+1; MARKC=MARKIU+3
#line 2451 "regression-compile-tmp/nrimp10s-77.imp"
MARKIU = (((int)(P)) + (1));
#line 2451 "regression-compile-tmp/nrimp10s-77.imp"
MARKC = (((int)(MARKIU)) + (3));
                                                                //   2452           MARKR=P+2+A(P+2)<<8+A(P+3); ! ! FROMAR2(P+2)
#line 2452 "regression-compile-tmp/nrimp10s-77.imp"
MARKR = (((unsigned char)(((((((int)(P)) + (2)))) + (((A[(((int)(P)) + (2))]) << (8)))))) + (A[(((int)(P)) + (3))]));
                                                                //   2453           MARKE=0
#line 2453 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = 0;
                                                                //   2454           %IF A(MARKR)=3 %THEN %START
#line 2454 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKR]) != (3))) goto L_01fc;
                                                                //   2455              MARKE=MARKR+1+FROMAR2(MARKR+1)
#line 2455 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = (((int)((((int)(MARKR)) + (1)))) + (FROMAR2((((int)(MARKR)) + (1)))));
                                                                //   2456              MARKUI=MARKR+3
#line 2456 "regression-compile-tmp/nrimp10s-77.imp"
MARKUI = (((int)(MARKR)) + (3));
                                                                //   2457           %FINISH
#line 2457 "regression-compile-tmp/nrimp10s-77.imp"
L_01fc:;
                                                                //   2458           CIFTHEN(MARKIU,MARKC,MARKUI,MARKE,MARKR,NO)
#line 2458 "regression-compile-tmp/nrimp10s-77.imp"
CIFTHEN(MARKIU, MARKC, MARKUI, MARKE, MARKR, 0);
                                                                //   2459           ->CSSEXIT
#line 2459 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2460  SW(4):
#line 2460 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_4:;
                                                                //   2461                                          ! '%FINISH(ELSE')(S)
                                                                //   2462        ->CSSEXIT
#line 2462 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2463  SWITCH:  %BEGIN;                       ! SWITCH LABEL
#line 2463 "regression-compile-tmp/nrimp10s-77.imp"
U_1017:;
#line 2463 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_4_LEVEL_4_(void) {
                                                                //   2464  %INTEGER HEAD,BASEPT,NAPS,FNAME
#line 2464 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD;
#line 2464 "regression-compile-tmp/nrimp10s-77.imp"
int BASEPT;
#line 2464 "regression-compile-tmp/nrimp10s-77.imp"
int NAPS;
#line 2464 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
                                                                //   2465  %INTEGERARRAY BITS(0:2)
#line 2465 "regression-compile-tmp/nrimp10s-77.imp"
int BITS[3];
                                                                //   2466           FORGET(-1)
#line 2466 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   2467           FNAME=FROM AR2(P+3)
#line 2467 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2((((int)(P)) + (3)));
                                                                //   2468        %UNLESS A(P)=1 %AND A(P+5)=1 %THEN FAULT2(5,0,FNAME) %AND ->BEND
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_01fd;
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) == (1))) goto L_01fe;
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
L_01fd:;
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(5, 0, FNAME);
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
#line 2468 "regression-compile-tmp/nrimp10s-77.imp"
L_01fe:;
                                                                //   2469                                          ! 1ST OF UI + APP
                                                                //   2470           P=P+3; TEST APP(NAPS)
#line 2470 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 2470 "regression-compile-tmp/nrimp10s-77.imp"
TESTAPP(&NAPS);
                                                                //   2471           P=P+6
#line 2471 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (6));
                                                                //   2472           %UNLESS INTEXP(JJ)=0 %THEN FAULT2(41,0,0) %AND ->BEND
#line 2472 "regression-compile-tmp/nrimp10s-77.imp"
if (((INTEXP(&JJ)) == (0))) goto L_01ff;
#line 2472 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(41, 0, 0);
#line 2472 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
#line 2472 "regression-compile-tmp/nrimp10s-77.imp"
L_01ff:;
                                                                //   2473                                          ! UNLESS EXPRESSION EVALUATES AND
                                                                //   2474           %UNLESS NAPS=1 %THEN FAULT2(21,NAPS-1,FNAME) %AND ->BEND
#line 2474 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAPS) == (1))) goto L_0200;
#line 2474 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(21, (((int)(NAPS)) - (1)), FNAME);
#line 2474 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
#line 2474 "regression-compile-tmp/nrimp10s-77.imp"
L_0200:;
                                                                //   2475                                          ! NO REST OF APP
                                                                //   2476           %UNLESS A(P+1)=2=A(P+2) %THEN FAULT2(5,0,FNAME) %AND ->BEND
#line 2476 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(P)) + (1))]) != (2))) || (((2) == (A[(((int)(P)) + (2))])))) goto L_0202;
#line 2476 "regression-compile-tmp/nrimp10s-77.imp"
L_0201:;
#line 2476 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(5, 0, FNAME);
#line 2476 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
#line 2476 "regression-compile-tmp/nrimp10s-77.imp"
L_0202:;
                                                                //   2477                                          ! NO ENAME OR REST OF ASSIGMENT
                                                                //   2478           COPY TAG(FNAME)
#line 2478 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAME);
                                                                //   2479           HEAD=K
#line 2479 "regression-compile-tmp/nrimp10s-77.imp"
HEAD = K;
                                                                //   2480           %IF OLDI#LEVEL %OR TYPE#6 %THEN FAULT(4,FNAME) %AND ->BEND
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) != (LEVEL))) goto L_0203;
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (6))) goto L_0204;
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
L_0203:;
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(4, FNAME);
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
#line 2480 "regression-compile-tmp/nrimp10s-77.imp"
L_0204:;
                                                                //   2481           FROM123(HEAD,BASEPT,KKK,KK);      ! EXTRACT TABLE ADDR,LB & UB
#line 2481 "regression-compile-tmp/nrimp10s-77.imp"
FROM123(HEAD, &BASEPT, &KKK, &KK);
                                                                //   2482           MLINK(HEAD);                      ! K POINTS TO BIT LIST
#line 2482 "regression-compile-tmp/nrimp10s-77.imp"
MLINK(&HEAD);
                                                                //   2483           ->INBD %IF KKK<=JJ<=KK
#line 2483 "regression-compile-tmp/nrimp10s-77.imp"
if ((((KKK) > (JJ))) || (((JJ) > (KK)))) goto L_0205;
#line 2483 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1019;
#line 2483 "regression-compile-tmp/nrimp10s-77.imp"
L_0205:;
                                                                //   2484           FAULT2(50,JJ,FNAME); ->BEND
#line 2484 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(50, JJ, FNAME);
#line 2484 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
                                                                //   2485  INBD:    Q=JJ-KKK
#line 2485 "regression-compile-tmp/nrimp10s-77.imp"
U_1019:;
#line 2485 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(JJ)) - (KKK));
                                                                //   2486           %WHILE Q>=96 %%CYCLE
#line 2486 "regression-compile-tmp/nrimp10s-77.imp"
L_0206:;
#line 2486 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) < (96))) goto L_0207;
                                                                //   2487              MLINK(HEAD)
#line 2487 "regression-compile-tmp/nrimp10s-77.imp"
MLINK(&HEAD);
                                                                //   2488              Q=Q-96
#line 2488 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) - (96));
                                                                //   2489           %REPEAT
#line 2489 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0206;
#line 2489 "regression-compile-tmp/nrimp10s-77.imp"
L_0207:;
                                                                //   2490  !
                                                                //   2491  ! ASLIST(HEAD) IS THE START OF 96 BIT ENTRY IN THE BIT LIST
                                                                //   2492  ! CHECK BIT NO Q TO SEE IF LABEL ALREADY SET AND THEN SET BIT Q
                                                                //   2493  !
                                                                //   2494           FROM123(HEAD,BITS(0),BITS(1),BITS(2))
#line 2494 "regression-compile-tmp/nrimp10s-77.imp"
FROM123(HEAD, &BITS[0], &BITS[1], &BITS[2]);
                                                                //   2495           QQ=Q>>5;                      ! RIGHT WORD
#line 2495 "regression-compile-tmp/nrimp10s-77.imp"
QQ = (int)((((unsigned int)(Q)) >> (5)));
                                                                //   2496           Q=Q&31; JJJ=1<<Q;             ! BIT IN WORD
#line 2496 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((Q) & (31));
#line 2496 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = ((1) << (Q));
                                                                //   2497           FAULT2(6,JJ,FNAME) %UNLESS BITS(QQ)&JJJ=0
#line 2497 "regression-compile-tmp/nrimp10s-77.imp"
if (((((BITS[QQ]) & (JJJ))) == (0))) goto L_0209;
#line 2497 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(6, JJ, FNAME);
#line 2497 "regression-compile-tmp/nrimp10s-77.imp"
L_0209:;
                                                                //   2498           BITS(QQ)=BITS(QQ)!JJJ
#line 2498 "regression-compile-tmp/nrimp10s-77.imp"
BITS[QQ] = ((BITS[QQ]) | (JJJ));
                                                                //   2499           REPLACE123(HEAD,BITS(0),BITS(1),BITS(2))
#line 2499 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE123(HEAD, BITS[0], BITS[1], BITS[2]);
                                                                //   2500  !
                                                                //   2501  ! OPTIMISED (ARR=2) SWITCHES BASEPT POINTS TO THE
                                                                //   2502  ! ZEROETH NOT THE FIRST ELEMENT
                                                                //   2503  !
                                                                //   2504           %IF ARR=2 %THEN KKK=0;         ! RESET LB IF DESC TO ELEMNT 0
#line 2504 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (2))) goto L_020a;
#line 2504 "regression-compile-tmp/nrimp10s-77.imp"
KKK = 0;
#line 2504 "regression-compile-tmp/nrimp10s-77.imp"
L_020a:;
                                                                //   2505           QQ=BASEPT+(JJ-KKK)*4;          ! REL POSITION OF LABEL
#line 2505 "regression-compile-tmp/nrimp10s-77.imp"
QQ = ((BASEPT) + ((int)((((int)((((int)(JJ)) - (KKK)))) * (4)))));
                                                                //   2506           PLUG(2,QQ,CA,4);               ! OVERWRITE THE WORD IN TABLE
#line 2506 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(2, QQ, CA, 4);
                                                                //   2507                                          ! RELOCATION(BY HD OF CODE) INTACT
                                                                //   2508  BEND:    %END;   ->CSSEXIT
#line 2508 "regression-compile-tmp/nrimp10s-77.imp"
U_1018:;
#line 2508 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_4_LEVEL_4_ at level 5
_BLOCK_4_LEVEL_4_();
#line 2508 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2509  SW(7):                                 ! (%WU)(SC)(COND)(RESTOFWU)
#line 2509 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_7:;
                                                                //   2510           FAULT(57,0) %UNLESS LEVEL>=2
#line 2510 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_020b;
#line 2510 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2510 "regression-compile-tmp/nrimp10s-77.imp"
L_020b:;
                                                                //   2511           MARKIU=P+1;                   ! TO WHILE/UNTIL
#line 2511 "regression-compile-tmp/nrimp10s-77.imp"
MARKIU = (((int)(P)) + (1));
                                                                //   2512           MARKC=MARKIU+3;               ! TO (SC)(COND)
#line 2512 "regression-compile-tmp/nrimp10s-77.imp"
MARKC = (((int)(MARKIU)) + (3));
                                                                //   2513           CLOOP(A(MARKIU)+3,MARKC,MARKIU+1+FROMAR2(MARKIU+1))
#line 2513 "regression-compile-tmp/nrimp10s-77.imp"
CLOOP((((int)(A[MARKIU])) + (3)), MARKC, (((int)((((int)(MARKIU)) + (1)))) + (FROMAR2((((int)(MARKIU)) + (1))))));
                                                                //   2514           ->CSSEXIT
#line 2514 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2515  !
                                                                //   2516  SW(8):                                 ! SIMPLE DECLN
#line 2516 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_8:;
                                                                //   2517           FAULT(57,0) %UNLESS LEVEL>=2
#line 2517 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_020c;
#line 2517 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2517 "regression-compile-tmp/nrimp10s-77.imp"
L_020c:;
                                                                //   2518           FAULT(40,0) %IF NMDECS(LEVEL)&1#0
#line 2518 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_020d;
#line 2518 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(40, 0);
#line 2518 "regression-compile-tmp/nrimp10s-77.imp"
L_020d:;
                                                                //   2519           QQ=P; P=P+5;CLT;ROUT=0; LITL=0
#line 2519 "regression-compile-tmp/nrimp10s-77.imp"
QQ = P;
#line 2519 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
#line 2519 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
#line 2519 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 2519 "regression-compile-tmp/nrimp10s-77.imp"
LITL = 0;
                                                                //   2520           %IF A(P)#1 %THEN %START;      ! ARRAY DECLARATIONS
#line 2520 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (1))) goto L_020e;
                                                                //   2521              FAULT(70,0) %IF TYPE=5 %AND ACC=0
#line 2521 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_020f;
#line 2521 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACC) != (0))) goto L_020f;
#line 2521 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(70, 0);
#line 2521 "regression-compile-tmp/nrimp10s-77.imp"
L_020f:;
                                                                //   2522              NAM=0
#line 2522 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
                                                                //   2523              SET LINE
#line 2523 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
                                                                //   2524              QQ=2-A(P+1); P=P+2;        ! QQ=1 FOR ARRAYFORMATS
#line 2524 "regression-compile-tmp/nrimp10s-77.imp"
QQ = ((2) - ((int)(A[(((int)(P)) + (1))])));
#line 2524 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   2525              DECLARE ARRAYS(QQ,0)
#line 2525 "regression-compile-tmp/nrimp10s-77.imp"
DECLAREARRAYS(QQ, 0);
                                                                //   2526           %FINISH %ELSE %START
#line 2526 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0210;
#line 2526 "regression-compile-tmp/nrimp10s-77.imp"
L_020e:;
                                                                //   2527              %IF A(QQ+1)=128 %THEN %START;! NOT LINKED&SHUFFLED
#line 2527 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(QQ)) + (1))]) != (128))) goto L_0211;
                                                                //   2528                 CQN(P+1); P=P+2
#line 2528 "regression-compile-tmp/nrimp10s-77.imp"
CQN((((int)(P)) + (1)));
#line 2528 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   2529                 DECLARE SCALARS(1,0)
#line 2529 "regression-compile-tmp/nrimp10s-77.imp"
DECLARESCALARS(1, 0);
                                                                //   2530              %FINISH
#line 2530 "regression-compile-tmp/nrimp10s-77.imp"
L_0211:;
                                                                //   2531           %FINISH
#line 2531 "regression-compile-tmp/nrimp10s-77.imp"
L_0210:;
                                                                //   2532           ->CSSEXIT
#line 2532 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2533  !
                                                                //   2534  SW(9):                                 ! %END
#line 2534 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_9:;
                                                                //   2535           %BEGIN
#line 2535 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_5_LEVEL_4_(void) {
                                                                //   2536           %SWITCH S(1:5)
#line 2536 "regression-compile-tmp/nrimp10s-77.imp"
static int sw3_S_idx;
static const void * /*SWITCH*/ sw3_S[5] = { &&sw3_S_1, &&sw3_S_2, &&sw3_S_3, &&sw3_S_4, &&sw3_S_5,  };
                                                                //   2537           -> S(A(P+1))
#line 2537 "regression-compile-tmp/nrimp10s-77.imp"
sw3_S_idx = A[(((int)(P)) + (1))]; if ((1 <= sw3_S_idx) && (sw3_S_idx <= 5)) goto *(sw3_S-1)[sw3_S_idx];  /* Bounds=1:5 */ else {
   /*_imp_signal(8, 2, sw3_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 1:5 at %s:%d\n",
           sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2538  S(1):                                  ! ENDOFPROGRAM
#line 2538 "regression-compile-tmp/nrimp10s-77.imp"
sw3_S_1:;
                                                                //   2539  S(2):                                  ! ENDOFFILE
#line 2539 "regression-compile-tmp/nrimp10s-77.imp"
sw3_S_2:;
                                                                //   2540           %IF CPRMODE=0 %THEN CPRMODE=2
#line 2540 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (0))) goto L_0212;
#line 2540 "regression-compile-tmp/nrimp10s-77.imp"
CPRMODE = 2;
#line 2540 "regression-compile-tmp/nrimp10s-77.imp"
L_0212:;
                                                                //   2541           FAULT(15,0) %UNLESS LEVEL+CPRMODE=3
#line 2541 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)(LEVEL)) + (CPRMODE))) == (3))) goto L_0213;
#line 2541 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(15, 0);
#line 2541 "regression-compile-tmp/nrimp10s-77.imp"
L_0213:;
                                                                //   2542           FAULT(56,0) %UNLESS A(P+1)=CPRMODE
#line 2542 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (CPRMODE))) goto L_0214;
#line 2542 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(56, 0);
#line 2542 "regression-compile-tmp/nrimp10s-77.imp"
L_0214:;
                                                                //   2543           CEND(CPRMODE)
#line 2543 "regression-compile-tmp/nrimp10s-77.imp"
CEND(CPRMODE);
                                                                //   2544           ->BEND
#line 2544 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101a;
                                                                //   2545  S(3):                                  ! ENDOFLIST
#line 2545 "regression-compile-tmp/nrimp10s-77.imp"
sw3_S_3:;
                                                                //   2546           LIST=0;
#line 2546 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 0;
                                                                //   2547           ->BEND
#line 2547 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101a;
                                                                //   2548  S(4):                                  ! END
#line 2548 "regression-compile-tmp/nrimp10s-77.imp"
sw3_S_4:;
                                                                //   2549           CEND(FLAG(LEVEL))
#line 2549 "regression-compile-tmp/nrimp10s-77.imp"
CEND(FLAG[LEVEL]);
                                                                //   2550  BEND:    %END
#line 2550 "regression-compile-tmp/nrimp10s-77.imp"
U_101a:;
#line 2550 "regression-compile-tmp/nrimp10s-77.imp"
return;
sw3_S_5:;
/*_imp_signal(6,3,sw3_S_idx,"SWITCH LABEL NOT SET - sw3_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_S(%d): at line %s:%d", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block _BLOCK_5_LEVEL_4_ at level 5
_BLOCK_5_LEVEL_4_();
                                                                //   2551           ->CSSEXIT
#line 2551 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2552  !
                                                                //   2553  SW(11):
#line 2553 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_11:;
                                                                //   2554           %BEGIN
#line 2554 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_6_LEVEL_4_(void) {
                                                                //   2555           %INTEGER MARKER1,KK,KKK
#line 2555 "regression-compile-tmp/nrimp10s-77.imp"
int MARKER1;
#line 2555 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 2555 "regression-compile-tmp/nrimp10s-77.imp"
int KKK;
                                                                //   2556           %STRING(34)XNAME
#line 2556 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(34)*/ XNAME;
                                                                //   2557           P=P+1; MARKER1=FROM AR2(P)+P; ! (SEX)(RT)(SPEC')(NAME)(FPP)
#line 2557 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 2557 "regression-compile-tmp/nrimp10s-77.imp"
MARKER1 = (((int)(FROMAR2(P))) + (P));
                                                                //   2558  AGN:     Q=P; KK=FROM AR2(MARKER1+5);  ! KK ON NAME
#line 2558 "regression-compile-tmp/nrimp10s-77.imp"
U_101b:;
#line 2558 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
#line 2558 "regression-compile-tmp/nrimp10s-77.imp"
KK = FROMAR2((((int)(MARKER1)) + (5)));
                                                                //   2559           EXTRN=A(P+2)
#line 2559 "regression-compile-tmp/nrimp10s-77.imp"
EXTRN = A[(((int)(P)) + (2))];
                                                                //   2560           LITL=EXTRN&3
#line 2560 "regression-compile-tmp/nrimp10s-77.imp"
LITL = ((EXTRN) & (3));
                                                                //   2561           %IF A(MARKER1)=1 %THEN %START;! P<%SPEC'>='%SPEC'
#line 2561 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKER1]) != (1))) goto L_0215;
                                                                //   2562              P=P+3;  CRSPEC(1-EXTRN>>2);! 0 FOR ROUTINESPEC
#line 2562 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 2562 "regression-compile-tmp/nrimp10s-77.imp"
CRSPEC(((1) - ((int)((int)((((unsigned int)(EXTRN)) >> (2)))))));
                                                                //   2563                                         ! 1 FOR EXTERNAL (ETC) SPEC
                                                                //   2564              ->BEND
#line 2564 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
                                                                //   2565           %FINISH
#line 2565 "regression-compile-tmp/nrimp10s-77.imp"
L_0215:;
                                                                //   2566           COPY TAG(KK)
#line 2566 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(KK);
                                                                //   2567           %IF OLDI=LEVEL %THEN %START
#line 2567 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) != (LEVEL))) goto L_0216;
                                                                //   2568              %IF CPRMODE=0 %THEN CPRMODE=2;! FLAG AS FILE OF ROUTINES
#line 2568 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (0))) goto L_0217;
#line 2568 "regression-compile-tmp/nrimp10s-77.imp"
CPRMODE = 2;
#line 2568 "regression-compile-tmp/nrimp10s-77.imp"
L_0217:;
                                                                //   2569  !
                                                                //   2570              %IF (CPRMODE=2 %AND LEVEL=1) %START
#line 2570 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (2))) goto L_0218;
#line 2570 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (1))) goto L_0218;
                                                                //   2571                 %IF EXTRN=3 %THEN EXTRN=2
#line 2571 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0219;
#line 2571 "regression-compile-tmp/nrimp10s-77.imp"
EXTRN = 2;
#line 2571 "regression-compile-tmp/nrimp10s-77.imp"
L_0219:;
                                                                //   2572                 XNAME<-STRING(DICTBASE+WORD(KK))
#line 2572 "regression-compile-tmp/nrimp10s-77.imp"
XNAME = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK])));
                                                                //   2573                 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME
#line 2573 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (1))) goto L_021a;
#line 2573 "regression-compile-tmp/nrimp10s-77.imp"
XNAME = _imp_join((_imp_string)_imp_str_literal("S#"),(_imp_string)XNAME);
#line 2573 "regression-compile-tmp/nrimp10s-77.imp"
L_021a:;
                                                                //   2574                 %IF EXTRN=4 %THEN XNAME=""
#line 2574 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (4))) goto L_021b;
#line 2574 "regression-compile-tmp/nrimp10s-77.imp"
XNAME = _imp_str_literal("");
#line 2574 "regression-compile-tmp/nrimp10s-77.imp"
L_021b:;
                                                                //   2575                 JJ=MIDCELL;              ! CODE DESCRIPTOR REL ADDR
#line 2575 "regression-compile-tmp/nrimp10s-77.imp"
JJ = MIDCELL;
                                                                //   2576                 %IF EXTRN#4 %THEN USEBITS=2
#line 2576 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (4))) goto L_021c;
#line 2576 "regression-compile-tmp/nrimp10s-77.imp"
USEBITS = 2;
#line 2576 "regression-compile-tmp/nrimp10s-77.imp"
L_021c:;
                                                                //   2577                 DEFINE EP(XNAME,CA,JJ,0)
#line 2577 "regression-compile-tmp/nrimp10s-77.imp"
DEFINEEP(XNAME, CA, JJ, 0);
                                                                //   2578                 %IF JJ#0 %THEN PSF1(INCA,0,-JJ)
#line 2578 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_021d;
#line 2578 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (-(JJ)));
#line 2578 "regression-compile-tmp/nrimp10s-77.imp"
L_021d:;
                                                                //   2579              %FINISH %ELSE %START;    ! EXTERNALS IN PRGM OR WRNG LEVEL
#line 2579 "regression-compile-tmp/nrimp10s-77.imp"
goto L_021e;
#line 2579 "regression-compile-tmp/nrimp10s-77.imp"
L_0218:;
                                                                //   2580                 FAULT(55,KK) %UNLESS EXTRN=4; EXTRN=4
#line 2580 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (4))) goto L_021f;
#line 2580 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(55, KK);
#line 2580 "regression-compile-tmp/nrimp10s-77.imp"
L_021f:;
#line 2580 "regression-compile-tmp/nrimp10s-77.imp"
EXTRN = 4;
                                                                //   2581              %FINISH
#line 2581 "regression-compile-tmp/nrimp10s-77.imp"
L_021e:;
                                                                //   2582              %IF A(P+3)=1 %THEN KKK=LITL<<14!16_1000 %ELSE %START
#line 2582 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (1))) goto L_0220;
#line 2582 "regression-compile-tmp/nrimp10s-77.imp"
KKK = ((((LITL) << (14))) | (4096));
#line 2582 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0221;
#line 2582 "regression-compile-tmp/nrimp10s-77.imp"
L_0220:;
                                                                //   2583                 ROUT=1; P=P+4;           ! FIGURE OUT PTYPE FOR FNS&MAPS
#line 2583 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 1;
#line 2583 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   2584                 CLT; ARR=0; NAM=0
#line 2584 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
#line 2584 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
#line 2584 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
                                                                //   2585                 %IF A(P)=2 %THEN NAM=2;  ! SET NAME ARRAY BIT FOR MAPS
#line 2585 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0222;
#line 2585 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 2;
#line 2585 "regression-compile-tmp/nrimp10s-77.imp"
L_0222:;
                                                                //   2586                 PACK(KKK);               ! AND STORE PTYPE IN KKK
#line 2586 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&KKK);
                                                                //   2587              %FINISH
#line 2587 "regression-compile-tmp/nrimp10s-77.imp"
L_0221:;
                                                                //   2588           %FINISH
#line 2588 "regression-compile-tmp/nrimp10s-77.imp"
L_0216:;
                                                                //   2589           %UNLESS OLDI=LEVEL %AND J=15 %AND PTYPE=KKK %START
#line 2589 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) != (LEVEL))) goto L_0208;
#line 2589 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (15))) goto L_0208;
#line 2589 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) == (KKK))) goto L_0223;
#line 2589 "regression-compile-tmp/nrimp10s-77.imp"
L_0208:;
                                                                //   2590              P=Q+3; CRSPEC(0); P=Q; ->AGN
#line 2590 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(Q)) + (3));
#line 2590 "regression-compile-tmp/nrimp10s-77.imp"
CRSPEC(0);
#line 2590 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
#line 2590 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101b;
                                                                //   2591           %FINISH
#line 2591 "regression-compile-tmp/nrimp10s-77.imp"
L_0223:;
                                                                //   2592           PTYPE=PTYPE!(EXTRN&3)<<14;     ! DEAL WITH %ROUTINESPEC FOLLOWED
#line 2592 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((PTYPE) | (((((EXTRN) & (3))) << (14))));
                                                                //   2593                                          ! BY %EXTERNALROUTINE
                                                                //   2594  %BEGIN
#line 2594 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_7_LEVEL_5_(void) {
                                                                //   2595  %INTEGER PTR,PTYPEP,CNT,PP
#line 2595 "regression-compile-tmp/nrimp10s-77.imp"
int PTR;
#line 2595 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPEP;
#line 2595 "regression-compile-tmp/nrimp10s-77.imp"
int CNT;
#line 2595 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
                                                                //   2596           J=0; REPLACE TAG(KK);!  BODY GIVEN SO UPDATE TAGS INFO
#line 2596 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
#line 2596 "regression-compile-tmp/nrimp10s-77.imp"
REPLACETAG(KK);
                                                                //   2597           JJ=K; PLABEL=PLABEL-1
#line 2597 "regression-compile-tmp/nrimp10s-77.imp"
JJ = K;
#line 2597 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
                                                                //   2598           %UNLESS COMPILER=1 %OR (CPRMODE=2 %AND LEVEL=1) %START
#line 2598 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPILER) == (1))) goto L_0224;
#line 2598 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (2))) goto L_0225;
#line 2598 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) == (1))) goto L_0224;
#line 2598 "regression-compile-tmp/nrimp10s-77.imp"
L_0225:;
                                                                //   2599              %IF JROUND(LEVEL+1)=0 %START;    ! NOT JUMP OUTSTANDING
#line 2599 "regression-compile-tmp/nrimp10s-77.imp"
if (((JROUND[(((int)(LEVEL)) + (1))]) != (0))) goto L_0226;
                                                                //   2600                 JROUND(LEVEL+1)=PLABEL
#line 2600 "regression-compile-tmp/nrimp10s-77.imp"
JROUND[(((int)(LEVEL)) + (1))] = PLABEL;
                                                                //   2601                 ENTER JUMP(15,PLABEL,0)
#line 2601 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, PLABEL, 0);
                                                                //   2602              %FINISH
#line 2602 "regression-compile-tmp/nrimp10s-77.imp"
L_0226:;
                                                                //   2603           %FINISH
#line 2603 "regression-compile-tmp/nrimp10s-77.imp"
L_0224:;
                                                                //   2604           PTYPEP=PTYPE
#line 2604 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEP = PTYPE;
                                                                //   2605           P=MARKER1+7
#line 2605 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(MARKER1)) + (7));
                                                                //   2606           RHEAD(KK)
#line 2606 "regression-compile-tmp/nrimp10s-77.imp"
RHEAD(KK);
                                                                //   2607           N=20; CNT=1
#line 2607 "regression-compile-tmp/nrimp10s-77.imp"
N = 20;
#line 2607 "regression-compile-tmp/nrimp10s-77.imp"
CNT = 1;
                                                                //   2608           %WHILE A(P)=1 %CYCLE;          ! WHILE SOME (MORE) FP PART
#line 2608 "regression-compile-tmp/nrimp10s-77.imp"
L_0227:;
#line 2608 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0228;
                                                                //   2609              PP=P+1+FROMAR2(P+1)
#line 2609 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))));
                                                                //   2610              P=P+3
#line 2610 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2611              CFPDEL
#line 2611 "regression-compile-tmp/nrimp10s-77.imp"
CFPDEL();
                                                                //   2612              PTR=P
#line 2612 "regression-compile-tmp/nrimp10s-77.imp"
PTR = P;
                                                                //   2613              {%UNTIL A(PTR-1)=2} %CYCLE;   ! CYCLE DOWN NAMELIST
#line 2613 "regression-compile-tmp/nrimp10s-77.imp"
L_022a:;
                                                                //   2614                 %IF JJ#0 %THEN %START
#line 2614 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_022d;
                                                                //   2615                    FROM12(JJ,J,JJJ);     ! EXTRACT PTYPE XTRA INFO
#line 2615 "regression-compile-tmp/nrimp10s-77.imp"
FROM12(JJ, &J, &JJJ);
                                                                //   2616                    %UNLESS J>>16=PTYPE %AND(PTYPE#5 %OR JJJ>>16=ACC) %THEN FAULT2(9,CNT,KK)
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(J)) >> (16)))) != (PTYPE))) goto L_022e;
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (5))) goto L_022f;
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(JJJ)) >> (16)))) == (ACC))) goto L_022f;
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
L_022e:;
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(9, CNT, KK);
#line 2616 "regression-compile-tmp/nrimp10s-77.imp"
L_022f:;
                                                                //   2617                 %FINISH %ELSE FAULT2(8,0,KK);! MORE FPS THAN IN SPEC
#line 2617 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0230;
#line 2617 "regression-compile-tmp/nrimp10s-77.imp"
L_022d:;
#line 2617 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(8, 0, KK);
#line 2617 "regression-compile-tmp/nrimp10s-77.imp"
L_0230:;
                                                                //   2618                 PTR=PTR+3
#line 2618 "regression-compile-tmp/nrimp10s-77.imp"
PTR = (((int)(PTR)) + (3));
                                                                //   2619                 CNT=CNT+1
#line 2619 "regression-compile-tmp/nrimp10s-77.imp"
CNT = (((int)(CNT)) + (1));
                                                                //   2620                 MLINK(JJ)
#line 2620 "regression-compile-tmp/nrimp10s-77.imp"
MLINK(&JJ);
                                                                //   2621              %REPEAT %UNTIL A(PTR-1)=2
#line 2621 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PTR)) - (1))]) == (2))) goto L_022b;
#line 2621 "regression-compile-tmp/nrimp10s-77.imp"
goto L_022a;
#line 2621 "regression-compile-tmp/nrimp10s-77.imp"
L_022b:;
                                                                //   2622              DECLARE SCALARS(0,0)
#line 2622 "regression-compile-tmp/nrimp10s-77.imp"
DECLARESCALARS(0, 0);
                                                                //   2623              P=PP
#line 2623 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
                                                                //   2624           %REPEAT;                       ! UNTIL NO MORE FP-PART
#line 2624 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0227;
#line 2624 "regression-compile-tmp/nrimp10s-77.imp"
L_0228:;
                                                                //   2625           N=(N+3)&(-4);                  ! TO WORD BOUNDARY AFTER ALL SYSTEM
#line 2625 "regression-compile-tmp/nrimp10s-77.imp"
N = (((((int)(N)) + (3))) & ((-4)));
                                                                //   2626                                          ! STANDARD PARAMETERS HAVE BEEN DECLARED
                                                                //   2627           FAULT2(10,0,KK) %UNLESS JJ=0
#line 2627 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_0231;
#line 2627 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(10, 0, KK);
#line 2627 "regression-compile-tmp/nrimp10s-77.imp"
L_0231:;
                                                                //   2628           PTYPE=PTYPEP
#line 2628 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = PTYPEP;
                                                                //   2629           %IF PTYPE&16_F0F=5 %THEN N=N+8;! STR FNS RESULT PARAM IS STACKED
#line 2629 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (3855))) != (5))) goto L_0232;
#line 2629 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (8));
#line 2629 "regression-compile-tmp/nrimp10s-77.imp"
L_0232:;
                                                                //   2630                                          ! AS XTRA PARM JUST BEFORE DISPLAY
                                                                //   2631           RDISPLAY(KK)
#line 2631 "regression-compile-tmp/nrimp10s-77.imp"
RDISPLAY(KK);
                                                                //   2632           MAKE DECS(MARKER1+1)
#line 2632 "regression-compile-tmp/nrimp10s-77.imp"
MAKEDECS((((int)(MARKER1)) + (1)));
                                                                //   2633           %END
#line 2633 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_7_LEVEL_5_ at level 6
_BLOCK_7_LEVEL_5_();
                                                                //   2634  BEND:    %END; ->CSSEXIT
#line 2634 "regression-compile-tmp/nrimp10s-77.imp"
U_1018:;
#line 2634 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_6_LEVEL_4_ at level 5
_BLOCK_6_LEVEL_4_();
#line 2634 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2635  !
                                                                //   2636  SW(13):                                !REALS(LN)
#line 2636 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_13:;
                                                                //   2637           FAULT(58,0) %UNLESS  CPRMODE=0
#line 2637 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) == (0))) goto L_0233;
#line 2637 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(58, 0);
#line 2637 "regression-compile-tmp/nrimp10s-77.imp"
L_0233:;
                                                                //   2638           ALL LONG=A(P+1)&1;->CSSEXIT
#line 2638 "regression-compile-tmp/nrimp10s-77.imp"
ALLLONG = ((A[(((int)(P)) + (1))]) & (1));
#line 2638 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2639  !
                                                                //   2640  SW(14):                                !%BEGIN
#line 2640 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_14:;
                                                                //   2641  %BEGIN
#line 2641 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_8_LEVEL_4_(void) {
                                                                //   2642           PTYPE=0
#line 2642 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 0;
                                                                //   2643           %IF LEVEL=1 %AND RLEVEL=0 %AND CPRMODE=0 %START
#line 2643 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (1))) goto L_0234;
#line 2643 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEVEL) != (0))) goto L_0234;
#line 2643 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (0))) goto L_0234;
                                                                //   2644              CODE DES(JJ)
#line 2644 "regression-compile-tmp/nrimp10s-77.imp"
CODEDES(&JJ);
                                                                //   2645              DEFINE EP(MAINEP, CA, JJ, 1)
#line 2645 "regression-compile-tmp/nrimp10s-77.imp"
DEFINEEP(MAINEP, CA, JJ, 1);
                                                                //   2646              RLEVEL=1; RBASE=1
#line 2646 "regression-compile-tmp/nrimp10s-77.imp"
RLEVEL = 1;
#line 2646 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = 1;
                                                                //   2647              L(1)=0; M(1)=0; DIAGINF(1)=0; AUXSBASE(1)=0
#line 2647 "regression-compile-tmp/nrimp10s-77.imp"
L[1] = 0;
#line 2647 "regression-compile-tmp/nrimp10s-77.imp"
M[1] = 0;
#line 2647 "regression-compile-tmp/nrimp10s-77.imp"
DIAGINF[1] = 0;
#line 2647 "regression-compile-tmp/nrimp10s-77.imp"
AUXSBASE[1] = 0;
                                                                //   2648              CPRMODE=1
#line 2648 "regression-compile-tmp/nrimp10s-77.imp"
CPRMODE = 1;
                                                                //   2649              N=24;  NMAX=N
#line 2649 "regression-compile-tmp/nrimp10s-77.imp"
N = 24;
#line 2649 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = N;
                                                                //   2650              FORGET(-1)
#line 2650 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   2651              DIAG POINTER(LEVEL+1)
#line 2651 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER((((int)(LEVEL)) + (1)));
                                                                //   2652  !
                                                                //   2653  ! THE CODE PLANTED IS AS FOLLOWS:-
                                                                //   2654  !         STD   (LNB+3)              SAVE DESCRIPTOG TO GLA(PLT)
                                                                //   2655  !         LXN   (LNB+4)               TO GLA(PLT)
                                                                //   2656  !         STLN  (XNB+5)               SAVE LNB FOR STOP SEQUENCE
                                                                //   2657  !         ASF   1                    FOR REPORT WORD
                                                                //   2658  !
                                                                //   2659              PSF1(STD,1,12)
#line 2659 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   2660              PSF1(LXN,1,16)
#line 2660 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   2661              PF1(STLN,0,XNB,20)
#line 2661 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 3, 20);
                                                                //   2662  !            PSF1(ASF,0,1)
                                                                //   2663  !
                                                                //   2664  ! THE NEXT 8 INSTRUCTIONS ARE REQUIRED TO SET SF 6 WORDS IN FRONT OF LNB
                                                                //   2665  ! AN ASF 1 WORKS AS WELL EXCEPT FOR K-STAND ALONE WHEN THERE MAY BE
                                                                //   2666  ! A USELESS REDUNDANT DESCRIPTOR ON THE STACK
                                                                //   2667  !
                                                                //   2668              PF1(STLN,0,TOS,0)
#line 2668 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   2669              PF1(LSS,0,TOS,0)
#line 2669 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
                                                                //   2670              PSF1(IAD,0,24)
#line 2670 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 0, 24);
                                                                //   2671              PF1(STSF,0,TOS,0)
#line 2671 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 6, 0);
                                                                //   2672              PF1(ISB,0,TOS,0)
#line 2672 "regression-compile-tmp/nrimp10s-77.imp"
PF1(226, 0, 6, 0);
                                                                //   2673              PSF1(ISH,0,-2)
#line 2673 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(232, 0, (-2));
                                                                //   2674              PF1(ST,0,BREG,0)
#line 2674 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   2675              PF1(ASF,0,BREG,0)
#line 2675 "regression-compile-tmp/nrimp10s-77.imp"
PF1(110, 0, 7, 0);
                                                                //   2676  !
                                                                //   2677  !
                                                                //   2678  ! SET THE PROGRAM MASK TO MASK OUT UNDERFLOW AND ALLOW ALL OTHER INTS
                                                                //   2679  !
                                                                //   2680  !         MPSR  16_40C0
                                                                //   2681  !
                                                                //   2682              PF1(MPSR,0,0,16_40C0)
#line 2682 "regression-compile-tmp/nrimp10s-77.imp"
PF1(50, 0, 0, 16576);
                                                                //   2683              PTYPE=1
#line 2683 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 1;
                                                                //   2684           %FINISH %ELSE SET LINE;       ! SO 'ENTERED FROM LINE' IS OK
#line 2684 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0235;
#line 2684 "regression-compile-tmp/nrimp10s-77.imp"
L_0234:;
#line 2684 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 2684 "regression-compile-tmp/nrimp10s-77.imp"
L_0235:;
                                                                //   2685           RHEAD(-1)
#line 2685 "regression-compile-tmp/nrimp10s-77.imp"
RHEAD((-1));
                                                                //   2686           RDISPLAY(-1)
#line 2686 "regression-compile-tmp/nrimp10s-77.imp"
RDISPLAY((-1));
                                                                //   2687           MAKE DECS(P+1)
#line 2687 "regression-compile-tmp/nrimp10s-77.imp"
MAKEDECS((((int)(P)) + (1)));
                                                                //   2688  %END
#line 2688 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_8_LEVEL_4_ at level 5
_BLOCK_8_LEVEL_4_();
                                                                //   2689           ->CSSEXIT
#line 2689 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2690  !
                                                                //   2691  SW(15):
#line 2691 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_15:;
                                                                //   2692                                          ! '%ON'(EVENT')(N)(NLIST)'%START'
                                                                //   2693        FAULT(57,0) %UNLESS LEVEL>=2
#line 2693 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_0236;
#line 2693 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2693 "regression-compile-tmp/nrimp10s-77.imp"
L_0236:;
                                                                //   2694        FAULT(40,0) %IF NMDECS(LEVEL)&1#0
#line 2694 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_0237;
#line 2694 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(40, 0);
#line 2694 "regression-compile-tmp/nrimp10s-77.imp"
L_0237:;
                                                                //   2695        NMDECS(LEVEL)=NMDECS(LEVEL)!16_11;! NO MORE DECS AND IN ONCOND
#line 2695 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (17));
                                                                //   2696        %IF STACK=0 %THEN %START
#line 2696 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) != (0))) goto L_0238;
                                                                //   2697           SAVE AUX STACK
#line 2697 "regression-compile-tmp/nrimp10s-77.imp"
SAVEAUXSTACK();
                                                                //   2698           DISP=AUXSBASE(LEVEL)
#line 2698 "regression-compile-tmp/nrimp10s-77.imp"
DISP = AUXSBASE[LEVEL];
                                                                //   2699           PSF1(LSS,2,DISP);              ! SAVE TOP OF AUX STACK
#line 2699 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 2, DISP);
                                                                //   2700           PSF1(ST,1,DISP+12)
#line 2700 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(DISP)) + (12)));
                                                                //   2701        %FINISH
#line 2701 "regression-compile-tmp/nrimp10s-77.imp"
L_0238:;
                                                                //   2702        GRUSE(ACCR)=0
#line 2702 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   2703        PSF1(CPSR,1,N+8)
#line 2703 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(52, 1, (((int)(N)) + (8)));
                                                                //   2704        PLABEL=PLABEL-1
#line 2704 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
                                                                //   2705        JJJ=PLABEL
#line 2705 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = PLABEL;
                                                                //   2706        ENTER JUMP(15,JJJ,B'10');         ! JUMP ROUND ON BODY
#line 2706 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, JJJ, 2);
                                                                //   2707  !
                                                                //   2708        P=P+2; JJ=0;                      ! SET UP A BITMASK IN JJ
#line 2708 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 2708 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 0;
                                                                //   2709        {%UNTIL A(P-1)=2} %CYCLE;           ! UNTIL NO MORE NLIST
#line 2709 "regression-compile-tmp/nrimp10s-77.imp"
L_0239:;
                                                                //   2710           KK=A(P)
#line 2710 "regression-compile-tmp/nrimp10s-77.imp"
KK = A[P];
                                                                //   2711           FAULT2(26,KK,0) %UNLESS 1<=KK<=14
#line 2711 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (KK))) || (((KK) <= (14)))) goto L_023c;
#line 2711 "regression-compile-tmp/nrimp10s-77.imp"
L_022c:;
#line 2711 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(26, KK, 0);
#line 2711 "regression-compile-tmp/nrimp10s-77.imp"
L_023c:;
                                                                //   2712           JJ=JJ!1<<(KK-1)
#line 2712 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((JJ) | (((1) << ((((int)(KK)) - (1))))));
                                                                //   2713           P=P+2
#line 2713 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   2714        %REPEAT %UNTIL A(P-1)=2
#line 2714 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_023a;
#line 2714 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0239;
#line 2714 "regression-compile-tmp/nrimp10s-77.imp"
L_023a:;
                                                                //   2715        KK=CA; PGLA(4,4,ADDR(CA))
#line 2715 "regression-compile-tmp/nrimp10s-77.imp"
KK = CA;
#line 2715 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 4, _imp_ADDR(&CA));
                                                                //   2716        RELOCATE(GLACA-4,KK,1);           ! ENTRY ADDRESS IN PLT
#line 2716 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(GLACA)) - (4)), KK, 1);
                                                                //   2717        ONWORD(LEVEL)=JJ<<18!(GLACA-4)
#line 2717 "regression-compile-tmp/nrimp10s-77.imp"
ONWORD[LEVEL] = ((((JJ) << (18))) | ((((int)(GLACA)) - (4))));
                                                                //   2718        FORGET(-1)
#line 2718 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   2719        PSF1(ST,1,N);                     ! STORE EVENT,SUBEVENT&LINE
#line 2719 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, N);
                                                                //   2720        PSF1(MPSR,1,N+8)
#line 2720 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(50, 1, (((int)(N)) + (8)));
                                                                //   2721        ONINF(LEVEL)=N; N=N+12
#line 2721 "regression-compile-tmp/nrimp10s-77.imp"
ONINF[LEVEL] = N;
#line 2721 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (12));
                                                                //   2722        %IF STACK=0 %THEN %START
#line 2722 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) != (0))) goto L_023d;
                                                                //   2723           PSF1(LSS,1,DISP+12);           ! RESET AUX STACK TOP
#line 2723 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, (((int)(DISP)) + (12)));
                                                                //   2724           PSF1(ST,2,DISP)
#line 2724 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 2, DISP);
                                                                //   2725        %FINISH
#line 2725 "regression-compile-tmp/nrimp10s-77.imp"
L_023d:;
                                                                //   2726        CSTART(0,3)
#line 2726 "regression-compile-tmp/nrimp10s-77.imp"
CSTART(0, 3);
                                                                //   2727        NMDECS(LEVEL)=NMDECS(LEVEL)!!16_10;! NOT IN ONCOND
#line 2727 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) ^ (16));
                                                                //   2728        JJ=ENTER LAB(JJJ,B'111');         ! REPLACE ENVIRONMENT
#line 2728 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ENTERLAB(JJJ, 7);
                                                                //   2729        ->CSSEXIT
#line 2729 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2730  SW(16):  
#line 2730 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_16:;
                                                                //   2731           FAULT(57,0) %UNLESS LEVEL>=2
#line 2731 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_023e;
#line 2731 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 2731 "regression-compile-tmp/nrimp10s-77.imp"
L_023e:;
                                                                //   2732           %BEGIN;                       ! %SWITCH (SWITCH LIST)
#line 2732 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_9_LEVEL_4_(void) {
                                                                //   2733           %INTEGER Q,RANGE,KKK,KK,LB,PP,D0,D1,OPHEAD,V,ARRP,R
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int RANGE;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int KKK;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int LB;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int D0;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int D1;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int OPHEAD;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int V;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int ARRP;
#line 2733 "regression-compile-tmp/nrimp10s-77.imp"
int R;
                                                                //   2734           Q=P
#line 2734 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
                                                                //   2735           ARRP=1
#line 2735 "regression-compile-tmp/nrimp10s-77.imp"
ARRP = 1;
                                                                //   2736           %IF PARMOPT=0 %THEN ARRP=2
#line 2736 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) != (0))) goto L_023f;
#line 2736 "regression-compile-tmp/nrimp10s-77.imp"
ARRP = 2;
#line 2736 "regression-compile-tmp/nrimp10s-77.imp"
L_023f:;
                                                                //   2737           {%UNTIL A(Q)=2} %CYCLE;         ! UNTIL NO'REST OF SW LIST'
#line 2737 "regression-compile-tmp/nrimp10s-77.imp"
L_0240:;
                                                                //   2738              P=P+3
#line 2738 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2739              P=P+3 %WHILE A(P)=1
#line 2739 "regression-compile-tmp/nrimp10s-77.imp"
L_0243:;
#line 2739 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0244;
#line 2739 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 2739 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0243;
#line 2739 "regression-compile-tmp/nrimp10s-77.imp"
L_0244:;
                                                                //   2740              P=P+4;                      ! TO P(+')
#line 2740 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   2741              KKK=INTEXP(LB);             ! EXTRACT LOWER BOUND
#line 2741 "regression-compile-tmp/nrimp10s-77.imp"
KKK = INTEXP(&LB);
                                                                //   2742              P=P+3
#line 2742 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2743              KKK=KKK!INTEXP(KK);         ! EXTRACT UPPER BOUND
#line 2743 "regression-compile-tmp/nrimp10s-77.imp"
KKK = ((KKK) | (INTEXP(&KK)));
                                                                //   2744              RANGE=(KK-LB+1)
#line 2744 "regression-compile-tmp/nrimp10s-77.imp"
RANGE = (((int)((((int)(KK)) - (LB)))) + (1));
                                                                //   2745              %IF RANGE<=0 %OR KKK#0 %START
#line 2745 "regression-compile-tmp/nrimp10s-77.imp"
if (((RANGE) <= (0))) goto L_0245;
#line 2745 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) == (0))) goto L_0246;
#line 2745 "regression-compile-tmp/nrimp10s-77.imp"
L_0245:;
                                                                //   2746                 FAULT2(38,1-RANGE,FROMAR2(Q+1))
#line 2746 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(38, (((int)(1)) - (RANGE)), FROMAR2((((int)(Q)) + (1))));
                                                                //   2747                 LB=0; KK=10; RANGE=11
#line 2747 "regression-compile-tmp/nrimp10s-77.imp"
LB = 0;
#line 2747 "regression-compile-tmp/nrimp10s-77.imp"
KK = 10;
#line 2747 "regression-compile-tmp/nrimp10s-77.imp"
RANGE = 11;
                                                                //   2748              %FINISH
#line 2748 "regression-compile-tmp/nrimp10s-77.imp"
L_0246:;
                                                                //   2749              %IF GLACA+8-4*LB<0 %THEN ARRP=1;! ZEROETH ELEMENT OFF FRONT
#line 2749 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((((int)(GLACA)) + (8)))) - ((((int)(4)) * (LB))))) >= (0))) goto L_0247;
#line 2749 "regression-compile-tmp/nrimp10s-77.imp"
ARRP = 1;
#line 2749 "regression-compile-tmp/nrimp10s-77.imp"
L_0247:;
                                                                //   2750              PTYPE=16_56+ARRP<<8;         ! WORD LABEL ARRAY
#line 2750 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((86) + ((int)(((ARRP) << (8)))));
                                                                //   2751              PP=P; P=Q+1
#line 2751 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 2751 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(Q)) + (1));
                                                                //   2752              {%UNTIL A(P-1)=2} %CYCLE;    !  DOWN NAMELIST
#line 2752 "regression-compile-tmp/nrimp10s-77.imp"
L_0248:;
                                                                //   2753                 K=FROM AR2(P)
#line 2753 "regression-compile-tmp/nrimp10s-77.imp"
K = FROMAR2(P);
                                                                //   2754                 P=P+3
#line 2754 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2755                 OPHEAD=0; R=LB
#line 2755 "regression-compile-tmp/nrimp10s-77.imp"
OPHEAD = 0;
#line 2755 "regression-compile-tmp/nrimp10s-77.imp"
R = LB;
                                                                //   2756  !
                                                                //   2757  ! SET UP A BIT LIST (96 BITS PER CELL) TO CHECK FOR SWITCH LABELS
                                                                //   2758  ! SET TWICE
                                                                //   2759  !
                                                                //   2760                 {%UNTIL R>KK} %CYCLE
#line 2760 "regression-compile-tmp/nrimp10s-77.imp"
L_024b:;
                                                                //   2761                    PUSH(OPHEAD,0,0,0)
#line 2761 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&OPHEAD, 0, 0, 0);
                                                                //   2762                    R=R+96
#line 2762 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (96));
                                                                //   2763                 %REPEAT %UNTIL R>KK
#line 2763 "regression-compile-tmp/nrimp10s-77.imp"
if (((R) > (KK))) goto L_024c;
#line 2763 "regression-compile-tmp/nrimp10s-77.imp"
goto L_024b;
#line 2763 "regression-compile-tmp/nrimp10s-77.imp"
L_024c:;
                                                                //   2764  !
                                                                //   2765  ! FOR CHECKING MODE USE A BOUNDED WORD DESCRIPTOR AND WORD SIZE
                                                                //   2766  ! ENTRIES PRESET TO "SW LABEL NOT SET". OPTIMISING USE BCI WORD
                                                                //   2767  ! ARRAYS WITH BASE SET TO ZEROETH ELEMENT
                                                                //   2768  
                                                                //   2769                 D1=(GLACA+15)&(-8);      ! FIRST TABLE ENTRY
#line 2769 "regression-compile-tmp/nrimp10s-77.imp"
D1 = (((((int)(GLACA)) + (15))) & ((-8)));
                                                                //   2770                 D0=16_28000000!RANGE;    ! SCALED WORD DES
#line 2770 "regression-compile-tmp/nrimp10s-77.imp"
D0 = ((671088640) | (RANGE));
                                                                //   2771                 %IF ARRP=2 %THEN %START
#line 2771 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARRP) != (2))) goto L_024e;
                                                                //   2772                    D0=D0!16_01000000 %UNLESS LB=0;! SET BCI BIT
#line 2772 "regression-compile-tmp/nrimp10s-77.imp"
if (((LB) == (0))) goto L_024f;
#line 2772 "regression-compile-tmp/nrimp10s-77.imp"
D0 = ((D0) | (16777216));
#line 2772 "regression-compile-tmp/nrimp10s-77.imp"
L_024f:;
                                                                //   2773                    D1=D1-4*LB
#line 2773 "regression-compile-tmp/nrimp10s-77.imp"
D1 = ((D1) - ((int)((((int)(4)) * (LB)))));
                                                                //   2774                 %FINISH
#line 2774 "regression-compile-tmp/nrimp10s-77.imp"
L_024e:;
                                                                //   2775                 PGLA(8,8,ADDR(D0))
#line 2775 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&D0));
                                                                //   2776                 SNDISP=GLACA>>2-2;       ! WORD PLT DISP
#line 2776 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (((int)((int)((((unsigned int)(GLACA)) >> (2))))) - (2));
                                                                //   2777                 RELOCATE(GLACA-4,D1,2);  ! RELOCATE RELATIVE TO GLA
#line 2777 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(GLACA)) - (4)), D1, 2);
                                                                //   2778                 PUSH(OPHEAD,D1,LB,KK)
#line 2778 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&OPHEAD, D1, LB, KK);
                                                                //   2779                 KFORM=0; ACC=4
#line 2779 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = 0;
#line 2779 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 4;
                                                                //   2780                 J=1; STORE TAG(K,OPHEAD)
#line 2780 "regression-compile-tmp/nrimp10s-77.imp"
J = 1;
#line 2780 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(K, OPHEAD);
                                                                //   2781  !
                                                                //   2782  !THE TABLE WILL CONSIST OF RELATIVE DISPLACEMENTS FROM THE TABLE HEAD
                                                                //   2783  ! TO THE LABEL POSN. SET ALL TO GO TO PLAB(6) INITIALLY
                                                                //   2784  !
                                                                //   2785                 V=PLABS(6)
#line 2785 "regression-compile-tmp/nrimp10s-77.imp"
V = PLABS[6];
                                                                //   2786                 %CYCLE KKK=LB,1,KK
#line 2786 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = LB; _increment = 1; _final = KK; KKK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KKK = LB, 1, KK");
KKK -= _increment; _control -= _increment;
L_0250:;
if (KKK == _final) goto L_0251;
KKK += _increment; _control += _increment;
if (KKK != _control) _imp_signal(4,2,0,"Corrupt control variable KKK"); /* FOR loop control variable corrupted */
}
                                                                //   2787                    RELOCATE(-1,V,1);     ! PLABS(6) RELOCATED BY HD OF CODE
#line 2787 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((-1), V, 1);
                                                                //   2788                 %REPEAT
#line 2788 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0250;
#line 2788 "regression-compile-tmp/nrimp10s-77.imp"
L_0251:;
                                                                //   2789              %REPEAT %UNTIL A(P-1)=2;                   ! FOR ANY MORE NAMES IN NAMELIST
#line 2789 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_0249;
#line 2789 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0248;
#line 2789 "regression-compile-tmp/nrimp10s-77.imp"
L_0249:;
                                                                //   2790              Q=PP; P=Q
#line 2790 "regression-compile-tmp/nrimp10s-77.imp"
Q = PP;
#line 2790 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
                                                                //   2791           %REPEAT %UNTIL A(Q)=2;                      ! UNTIL A(Q)=2
#line 2791 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[Q]) == (2))) goto L_0241;
#line 2791 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0240;
#line 2791 "regression-compile-tmp/nrimp10s-77.imp"
L_0241:;
                                                                //   2792           %END;->CSSEXIT
#line 2792 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_9_LEVEL_4_ at level 5
_BLOCK_9_LEVEL_4_();
#line 2792 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2793  !
                                                                //   2794  SW(17):       LIST=1; ->CSSEXIT
#line 2794 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_17:;
#line 2794 "regression-compile-tmp/nrimp10s-77.imp"
LIST = 1;
#line 2794 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   2795  !
                                                                //   2796  SW(12):                                ! '%OWN' (TYPE)(OWNDEC)
#line 2796 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_12:;
                                                                //   2797           %BEGIN
#line 2797 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_10_LEVEL_4_(void) {
                                                                //   2798  !***********************************************************************
                                                                //   2799  !*       INITIALISED DECLARATION GO INTO THE GLA OR GLA SYMBOL TABLES  *
                                                                //   2800  !*       EXCEPT FOR CONST ARRAYS WHICH GO INTO THE CODE SYMBOL TABLES  *
                                                                //   2801  !*       STRINGS AND ARRAYS HAVE A HEADER IN THE GLA. LPUT ARRANGES    *
                                                                //   2802  !*       FOR THE LOADER TO RELOCATE THE HEADERS.                       *
                                                                //   2803  !*      EXTERNALS ARE IDENTICAL WITH OWN BUT ALSO HAVE A DATA EP DEFN  *
                                                                //   2804  !*       IN THE LOAD DATA SO THEY CAN BE FOUND AT LOAD TIME            *
                                                                //   2805  !*      EXTRINSICS HAVE A DATA REFERENCE AND A DUMMY HEADER IN THE GLA *
                                                                //   2806  !*      THE LOADER USES THE FORMER TO RELOCATE THE LATTER.             *
                                                                //   2807  !***********************************************************************
                                                                //   2808  %ROUTINESPEC CLEAR(%INTEGER L)
#line 2808 "regression-compile-tmp/nrimp10s-77.imp"
auto void CLEAR( int L );
                                                                //   2809  %ROUTINESPEC STAG(%INTEGER J,DATALEN)
#line 2809 "regression-compile-tmp/nrimp10s-77.imp"
auto void STAG( int J, int DATALEN );
                                                                //   2810  %ROUTINESPEC XTRACT CONST(%INTEGER CONTYPE,CONPREC)
#line 2810 "regression-compile-tmp/nrimp10s-77.imp"
auto void XTRACTCONST( int CONTYPE, int CONPREC );
                                                                //   2811  %ROUTINESPEC INIT SPACE(%INTEGER A,B)
#line 2811 "regression-compile-tmp/nrimp10s-77.imp"
auto void INITSPACE( int A, int B );
                                                                //   2812  %INTEGER LENGTH,BP,PP,SIGN,CBASE,MODE,UICONST,ICONST,TAGDISP,EPTYPE, {%C
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int LENGTH;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int BP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int SIGN;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int CBASE;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int MODE;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int UICONST;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int ICONST;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int TAGDISP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int EPTYPE;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int EPDISP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int AH1;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int AH2;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int AH3;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int AH4;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int AD;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int FNAM;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int FINF;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int SPOINT;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTSFOUND;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int CPREC;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int EXTRN;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int NNAMES;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int MARK;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int LPUTP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int MARKER1;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int LB;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int CTYPE;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTP;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int FORMAT;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int PTSIZE;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int DIMEN;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int SACC;
#line 2812 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
                                                                //   2813           EPDISP,AH1,AH2,AH3,AH4,AD,FNAM,FINF,SPOINT,CONSTSFOUND,CPREC,{%C
                                                                //   2814           EXTRN,NNAMES,MARK,LPUTP,MARKER1,LB,CTYPE,CONSTP,FORMAT, {%C
                                                                //   2815           PTSIZE,DIMEN,SACC,TYPEP
                                                                //   2816  %LONGREAL RCONST,LRCONST
#line 2816 "regression-compile-tmp/nrimp10s-77.imp"
double RCONST;
#line 2816 "regression-compile-tmp/nrimp10s-77.imp"
double LRCONST;
                                                                //   2817  %OWNLONGREAL ZERO=0
#line 2817 "regression-compile-tmp/nrimp10s-77.imp"
static double ZERO = 0;
                                                                //   2818  %STRING(255) SCONST,NAMTXT
#line 2818 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ SCONST;
#line 2818 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ NAMTXT;
                                                                //   2819  %INTEGERNAME STPTR
#line 2819 "regression-compile-tmp/nrimp10s-77.imp"
int /*name*/*STPTR;
                                                                //   2820           LPUTP=5; STPTR==USTPTR;     ! NORMAL CASE GLA SYMBOLTABLES
#line 2820 "regression-compile-tmp/nrimp10s-77.imp"
LPUTP = 5;
#line 2820 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = &USTPTR;
                                                                //   2821  !         FAULT(40,0) %IF NMDECS&1#0
                                                                //   2822           EXTRN=A(P+1)
#line 2822 "regression-compile-tmp/nrimp10s-77.imp"
EXTRN = A[(((int)(P)) + (1))];
                                                                //   2823           %IF EXTRN>=4 %THEN EXTRN=0;    ! CONST & CONSTANT->0
#line 2823 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) < (4))) goto L_0253;
#line 2823 "regression-compile-tmp/nrimp10s-77.imp"
EXTRN = 0;
#line 2823 "regression-compile-tmp/nrimp10s-77.imp"
L_0253:;
                                                                //   2824           LITL=EXTRN
#line 2824 "regression-compile-tmp/nrimp10s-77.imp"
LITL = EXTRN;
                                                                //   2825           %IF LITL<=1 %THEN LITL=LITL!!1
#line 2825 "regression-compile-tmp/nrimp10s-77.imp"
if (((LITL) > (1))) goto L_0254;
#line 2825 "regression-compile-tmp/nrimp10s-77.imp"
LITL = ((LITL) ^ (1));
#line 2825 "regression-compile-tmp/nrimp10s-77.imp"
L_0254:;
                                                                //   2826           KFORM=0; SNDISP=0
#line 2826 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = 0;
#line 2826 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
                                                                //   2827           CONSTS FOUND=0
#line 2827 "regression-compile-tmp/nrimp10s-77.imp"
CONSTSFOUND = 0;
                                                                //   2828           %IF EXTRN=0 %THEN LPUTP=4 %AND STPTR==SSTL
#line 2828 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (0))) goto L_0255;
#line 2828 "regression-compile-tmp/nrimp10s-77.imp"
LPUTP = 4;
#line 2828 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = &SSTL;
#line 2828 "regression-compile-tmp/nrimp10s-77.imp"
L_0255:;
                                                                //   2829           P=P+3; CBASE=0
#line 2829 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 2829 "regression-compile-tmp/nrimp10s-77.imp"
CBASE = 0;
                                                                //   2830           MODE=A(P-1);                ! MODE =1 FOR NORMAL OWNS
#line 2830 "regression-compile-tmp/nrimp10s-77.imp"
MODE = A[(((int)(P)) - (1))];
                                                                //   2831           ->RECORD %IF MODE>1;        ! MODE =2 FOR OWN RECORDS
#line 2831 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) <= (1))) goto L_0256;
#line 2831 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101c;
#line 2831 "regression-compile-tmp/nrimp10s-77.imp"
L_0256:;
                                                                //   2832           CLT;                        ! MODE =3 FOR OWN RECORD ARRAYS
#line 2832 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
                                                                //   2833           %IF A(P)=1 %THEN CQN(P+1) %ELSE ARR=1 %AND NAM=0
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0257;
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
CQN((((int)(P)) + (1)));
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0258;
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
L_0257:;
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 1;
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
#line 2833 "regression-compile-tmp/nrimp10s-77.imp"
L_0258:;
                                                                //   2834           %IF TYPE=5 %AND ACC=0=NAM %THEN FAULT(70,0) %AND ACC=2
#line 2834 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_0259;
#line 2834 "regression-compile-tmp/nrimp10s-77.imp"
if ((((ACC) != (0))) || (((0) != (NAM)))) goto L_0259;
#line 2834 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(70, 0);
#line 2834 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 2;
#line 2834 "regression-compile-tmp/nrimp10s-77.imp"
L_0259:;
                                                                //   2835           ROUT=0; PACK(PTYPE)
#line 2835 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 2835 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
                                                                //   2836           -> NON SCALAR %IF ARR#0 %AND NAM=0
#line 2836 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_025a;
#line 2836 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_025a;
#line 2836 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101d;
#line 2836 "regression-compile-tmp/nrimp10s-77.imp"
L_025a:;
                                                                //   2837           P=P+1
#line 2837 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   2838           {%UNTIL A(MARK)=2} %CYCLE;    ! UNTIL <RESTOFOWNDEC> NULL
#line 2838 "regression-compile-tmp/nrimp10s-77.imp"
L_025b:;
                                                                //   2839              MARK= P+1+FROM AR2(P+1)
#line 2839 "regression-compile-tmp/nrimp10s-77.imp"
MARK = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))));
                                                                //   2840              NNAMES=1
#line 2840 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 1;
                                                                //   2841              PP=P+3; P=PP+2;             ! PP ON FIRST NAME'
#line 2841 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(P)) + (3));
#line 2841 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(PP)) + (2));
                                                                //   2842              %WHILE A(P)=1 %%CYCLE
#line 2842 "regression-compile-tmp/nrimp10s-77.imp"
L_025e:;
#line 2842 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_025f;
                                                                //   2843                 NNAMES=NNAMES+1
#line 2843 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = (((int)(NNAMES)) + (1));
                                                                //   2844                 P=P+3
#line 2844 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   2845              %REPEAT
#line 2845 "regression-compile-tmp/nrimp10s-77.imp"
goto L_025e;
#line 2845 "regression-compile-tmp/nrimp10s-77.imp"
L_025f:;
                                                                //   2846              P=P+1;                         ! P ON CONST'
#line 2846 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   2847     !
                                                                //   2848     ! OBTAIN THE INITIAL CONSTANT,ITS TYPE(CTYPE) AND SIGN(SIGN)
                                                                //   2849     !
                                                                //   2850              ICONST=0; UICONST=0
#line 2850 "regression-compile-tmp/nrimp10s-77.imp"
ICONST = 0;
#line 2850 "regression-compile-tmp/nrimp10s-77.imp"
UICONST = 0;
                                                                //   2851              RCONST=0; LRCONST=0; SCONST=""
#line 2851 "regression-compile-tmp/nrimp10s-77.imp"
RCONST = 0;
#line 2851 "regression-compile-tmp/nrimp10s-77.imp"
LRCONST = 0;
#line 2851 "regression-compile-tmp/nrimp10s-77.imp"
SCONST = _imp_str_literal("");
                                                                //   2852              SIGN=3; CTYPE=TYPE; CONSTSFOUND=0; CPREC=PREC
#line 2852 "regression-compile-tmp/nrimp10s-77.imp"
SIGN = 3;
#line 2852 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = TYPE;
#line 2852 "regression-compile-tmp/nrimp10s-77.imp"
CONSTSFOUND = 0;
#line 2852 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = PREC;
                                                                //   2853              %IF NAM#0 %THEN CTYPE=1 %AND CPREC=5
#line 2853 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_0261;
#line 2853 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 1;
#line 2853 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = 5;
#line 2853 "regression-compile-tmp/nrimp10s-77.imp"
L_0261:;
                                                                //   2854     !
                                                                //   2855              %IF A(P)=1 %THEN %START;     ! CONSTANT GIVEN
#line 2855 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0262;
                                                                //   2856                 P=P+1
#line 2856 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   2857                 XTRACT CONST(CTYPE,CPREC)
#line 2857 "regression-compile-tmp/nrimp10s-77.imp"
XTRACTCONST(CTYPE, CPREC);
                                                                //   2858              %FINISH
#line 2858 "regression-compile-tmp/nrimp10s-77.imp"
L_0262:;
                                                                //   2859     !
                                                                //   2860              {%UNTIL NNAMES=0} %CYCLE;         ! DOWN <NAMELIST>
#line 2860 "regression-compile-tmp/nrimp10s-77.imp"
L_0263:;
                                                                //   2861                 J=0; K=FROM AR2(PP)
#line 2861 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
#line 2861 "regression-compile-tmp/nrimp10s-77.imp"
K = FROMAR2(PP);
                                                                //   2862                 NAMTXT=STRING(DICTBASE+WORD(K))
#line 2862 "regression-compile-tmp/nrimp10s-77.imp"
NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K])));
                                                                //   2863                 %IF NAM#0 %THEN %START;     ! OWNNAMES AND ARRAYNAMES
#line 2863 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_0266;
                                                                //   2864                    %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES
#line 2864 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0267;
#line 2864 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(46, 0, K);
#line 2864 "regression-compile-tmp/nrimp10s-77.imp"
L_0267:;
                                                                //   2865                    UICONST=16_FFFF!PREC<<27
#line 2865 "regression-compile-tmp/nrimp10s-77.imp"
UICONST = ((65535) | (((PREC) << (27))));
                                                                //   2866                    PGLA(8,ACC,ADDR(UICONST))
#line 2866 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, ACC, _imp_ADDR(&UICONST));
                                                                //   2867                    TAGDISP=GLACA-ACC; EPDISP=TAGDISP
#line 2867 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (ACC));
#line 2867 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = TAGDISP;
                                                                //   2868                 %FINISH %ELSE %START
#line 2868 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0268;
#line 2868 "regression-compile-tmp/nrimp10s-77.imp"
L_0266:;
                                                                //   2869                 %IF TYPE=5 %THEN %START;         ! STRING
#line 2869 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_0269;
                                                                //   2870                    QQ=STPTR; AD=ADDR(SCONST)
#line 2870 "regression-compile-tmp/nrimp10s-77.imp"
QQ = *STPTR;
#line 2870 "regression-compile-tmp/nrimp10s-77.imp"
AD = _imp_ADDR(&SCONST);
                                                                //   2871                    %IF EXTRN=3 %THEN %START;     ! EXTRINSIC STRINGS
#line 2871 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_026a;
                                                                //   2872                       AH3=0; AH2=PREC<<27!ACC;   ! DUMMY STRING HEADER
#line 2872 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = 0;
#line 2872 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = ((((PREC) << (27))) | (ACC));
                                                                //   2873                    %FINISH %ELSE %START
#line 2873 "regression-compile-tmp/nrimp10s-77.imp"
goto L_026b;
#line 2873 "regression-compile-tmp/nrimp10s-77.imp"
L_026a:;
                                                                //   2874                       LPUT(LPUTP,ACC,QQ,AD) %IF INHCODE=0;! O/P STRING
#line 2874 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_026c;
#line 2874 "regression-compile-tmp/nrimp10s-77.imp"
lput(LPUTP, ACC, QQ, AD);
#line 2874 "regression-compile-tmp/nrimp10s-77.imp"
L_026c:;
                                                                //   2875                       STPTR=(STPTR+ACC+3)&(-4)
#line 2875 "regression-compile-tmp/nrimp10s-77.imp"
*STPTR = (((((int)(((*(int *)(STPTR)) + (ACC)))) + (3))) & ((-4)));
                                                                //   2876                       AH3=QQ; AH2=3<<27!ACC
#line 2876 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = QQ;
#line 2876 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = ((((3) << (27))) | (ACC));
                                                                //   2877                    %FINISH
#line 2877 "regression-compile-tmp/nrimp10s-77.imp"
L_026b:;
                                                                //   2878                    PGLA(8,8,ADDR(AH2))
#line 2878 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&AH2));
                                                                //   2879                    TAGDISP=GLACA-8
#line 2879 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (8));
                                                                //   2880                    %IF EXTRN=3 %THEN GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) %ELSE RELOCATE(TAGDISP+4,AH3,LPUTP)
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_026d;
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(NAMTXT, 2, ((((2) << (24))) | (ACC)), (((int)(TAGDISP)) + (4)));
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
goto L_026e;
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
L_026d:;
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(TAGDISP)) + (4)), AH3, LPUTP);
#line 2880 "regression-compile-tmp/nrimp10s-77.imp"
L_026e:;
                                                                //   2881                    EPTYPE=5; EPDISP=QQ;        ! DATA IN GLA SYMBOL TABLES
#line 2881 "regression-compile-tmp/nrimp10s-77.imp"
EPTYPE = 5;
#line 2881 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = QQ;
                                                                //   2882                 %FINISH %ELSE %START;           ! INTEGER & REAL
#line 2882 "regression-compile-tmp/nrimp10s-77.imp"
goto L_026f;
#line 2882 "regression-compile-tmp/nrimp10s-77.imp"
L_0269:;
                                                                //   2883                    %IF EXTRN=3 %THEN %START;    ! EXTRINSICS
#line 2883 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0270;
                                                                //   2884                       PTYPE=PTYPE!1<<10;        ! EXTRINSICS VIA PTR
#line 2884 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((PTYPE) | (((1) << (10))));
                                                                //   2885                       AH2=PREC<<27; AH3=0
#line 2885 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = ((PREC) << (27));
#line 2885 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = 0;
                                                                //   2886                       PGLA(8,8,ADDR(AH2))
#line 2886 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&AH2));
                                                                //   2887                       TAGDISP=GLACA-8
#line 2887 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (8));
                                                                //   2888                       GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4)
#line 2888 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(NAMTXT, 2, ((((2) << (24))) | (ACC)), (((int)(TAGDISP)) + (4)));
                                                                //   2889                    %FINISH %ELSE %START;        ! OWN,EXTERNAL&CONST
#line 2889 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0271;
#line 2889 "regression-compile-tmp/nrimp10s-77.imp"
L_0270:;
                                                                //   2890                       %IF TYPE=2 %THEN %START
#line 2890 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_0272;
                                                                //   2891                          AD=ADDR(RCONST)
#line 2891 "regression-compile-tmp/nrimp10s-77.imp"
AD = _imp_ADDR(&RCONST);
                                                                //   2892                       %FINISH %ELSE %START;     ! INTEGER VARIABLES
#line 2892 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0273;
#line 2892 "regression-compile-tmp/nrimp10s-77.imp"
L_0272:;
                                                                //   2893                          AD=ADDR(ICONST)+4-ACC
#line 2893 "regression-compile-tmp/nrimp10s-77.imp"
AD = (((int)((((int)(_imp_ADDR(&ICONST))) + (4)))) - (ACC));
                                                                //   2894                       %FINISH
#line 2894 "regression-compile-tmp/nrimp10s-77.imp"
L_0273:;
                                                                //   2895                       %IF EXTRN#0 %THEN PGLA(ACC,ACC,AD);      ! PUT CONSTANT INTO GLA
#line 2895 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (0))) goto L_0274;
#line 2895 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(ACC, ACC, AD);
#line 2895 "regression-compile-tmp/nrimp10s-77.imp"
L_0274:;
                                                                //   2896                       TAGDISP=GLACA-ACC;        ! OFFSET OF VAR FOR TAGS
#line 2896 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (ACC));
                                                                //   2897                       EPDISP=TAGDISP;           ! AND FOR ENTRY DEFN
#line 2897 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = TAGDISP;
                                                                //   2898                       EPTYPE=2;                ! DATA IN ADRESSABLE GLA
#line 2898 "regression-compile-tmp/nrimp10s-77.imp"
EPTYPE = 2;
                                                                //   2899                    %FINISH
#line 2899 "regression-compile-tmp/nrimp10s-77.imp"
L_0271:;
                                                                //   2900                 %FINISH
#line 2900 "regression-compile-tmp/nrimp10s-77.imp"
L_026f:;
                                                                //   2901                 %FINISH
#line 2901 "regression-compile-tmp/nrimp10s-77.imp"
L_0268:;
                                                                //   2902                 STAG(TAGDISP,ACC)
#line 2902 "regression-compile-tmp/nrimp10s-77.imp"
STAG(TAGDISP, ACC);
                                                                //   2903                 %IF EXTRN=0=NAM %START;         ! CONST = LITERAL
#line 2903 "regression-compile-tmp/nrimp10s-77.imp"
if ((((EXTRN) != (0))) || (((0) != (NAM)))) goto L_0275;
                                                                //   2904                    REPLACE2(TAGS(K),INTEGER(AD&(-4)));! BYTES!
#line 2904 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE2(TAGS[K], *_imp_INTEGER(((AD) & ((-4)))));
                                                                //   2905                    %IF PREC=6 %THEN REPLACE3(TAGS(K),INTEGER(AD+4))
#line 2905 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (6))) goto L_0276;
#line 2905 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE3(TAGS[K], *_imp_INTEGER((((int)(AD)) + (4))));
#line 2905 "regression-compile-tmp/nrimp10s-77.imp"
L_0276:;
                                                                //   2906                    %IF PREC=7 %THEN REPLACE3(TAGS(K),CONSTP)
#line 2906 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (7))) goto L_0277;
#line 2906 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE3(TAGS[K], CONSTP);
#line 2906 "regression-compile-tmp/nrimp10s-77.imp"
L_0277:;
                                                                //   2907                 %FINISH
#line 2907 "regression-compile-tmp/nrimp10s-77.imp"
L_0275:;
                                                                //   2908                 PP=PP+3
#line 2908 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(PP)) + (3));
                                                                //   2909                 NNAMES=NNAMES-1
#line 2909 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = (((int)(NNAMES)) - (1));
                                                                //   2910              %REPEAT %UNTIL NNAMES=0;           ! DOWN <NAMELIST>
#line 2910 "regression-compile-tmp/nrimp10s-77.imp"
if (((NNAMES) == (0))) goto L_0264;
#line 2910 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0263;
#line 2910 "regression-compile-tmp/nrimp10s-77.imp"
L_0264:;
                                                                //   2911              P=MARK
#line 2911 "regression-compile-tmp/nrimp10s-77.imp"
P = MARK;
                                                                //   2912           %REPEAT %UNTIL A(MARK)=2;     ! UNTIL <RESTOFOWNDEC> NULL
#line 2912 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARK]) == (2))) goto L_025c;
#line 2912 "regression-compile-tmp/nrimp10s-77.imp"
goto L_025b;
#line 2912 "regression-compile-tmp/nrimp10s-77.imp"
L_025c:;
                                                                //   2913           ->BEND
#line 2913 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101e;
                                                                //   2914  RECORD:                                ! <XOWN>'%RECORD'<NAMELIST>
#line 2914 "regression-compile-tmp/nrimp10s-77.imp"
U_101c:;
                                                                //   2915  !***********************************************************************
                                                                //   2916  !*       NO INITIALISATION OF OWN RECORDS ALLOWED SO THEY ARE ALL      *
                                                                //   2917  !*       CLEARED TO ZERO.                                              *
                                                                //   2918  !***********************************************************************
                                                                //   2919           MARKER1=P+1+FROM AR2(P+1);        ! TO FORMAT NAME
#line 2919 "regression-compile-tmp/nrimp10s-77.imp"
MARKER1 = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))));
                                                                //   2920           FNAM=FROM AR2(MARKER1)
#line 2920 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = FROMAR2(MARKER1);
                                                                //   2921           COPYTAG(FNAM)
#line 2921 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAM);
                                                                //   2922           FINF=TCELL
#line 2922 "regression-compile-tmp/nrimp10s-77.imp"
FINF = TCELL;
                                                                //   2923           %IF PTYPE#4 %THEN FAULT(62,FNAM) %AND ->BEND
#line 2923 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) == (4))) goto L_0278;
#line 2923 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(62, FNAM);
#line 2923 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101e;
#line 2923 "regression-compile-tmp/nrimp10s-77.imp"
L_0278:;
                                                                //   2924           PTYPE=16_133!LITL<<14
#line 2924 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((307) | (((LITL) << (14))));
                                                                //   2925           KFORM=FINF; UNPACK
#line 2925 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = FINF;
#line 2925 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   2926           %IF MODE=3 %THEN FORMAT=2-A(P) %AND P=P+2 %AND ->RECIN
#line 2926 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (3))) goto L_0279;
#line 2926 "regression-compile-tmp/nrimp10s-77.imp"
FORMAT = ((2) - ((int)(A[P])));
#line 2926 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 2926 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101f;
#line 2926 "regression-compile-tmp/nrimp10s-77.imp"
L_0279:;
                                                                //   2927           P=P+1; BP=ACC;                 ! SIZE OF RECORD FROM FORMAT
#line 2927 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 2927 "regression-compile-tmp/nrimp10s-77.imp"
BP = ACC;
                                                                //   2928           PTYPE=16_33; J=0
#line 2928 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 51;
#line 2928 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
                                                                //   2929           %IF A(P-1)#3 %THEN CQN(P-1) %AND PACK(PTYPE)
#line 2929 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (3))) goto L_027a;
#line 2929 "regression-compile-tmp/nrimp10s-77.imp"
CQN((((int)(P)) - (1)));
#line 2929 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
#line 2929 "regression-compile-tmp/nrimp10s-77.imp"
L_027a:;
                                                                //   2930           P=P+1; PTSIZE=ACC;           ! SIZE OF HOLE FOR POINTER
#line 2930 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 2930 "regression-compile-tmp/nrimp10s-77.imp"
PTSIZE = ACC;
                                                                //   2931           {%UNTIL A(P)=2} %CYCLE
#line 2931 "regression-compile-tmp/nrimp10s-77.imp"
L_027b:;
                                                                //   2932              P=P+1; K=FROM AR2(P)
#line 2932 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 2932 "regression-compile-tmp/nrimp10s-77.imp"
K = FROMAR2(P);
                                                                //   2933              NAMTXT=STRING(DICTBASE+WORD(K))
#line 2933 "regression-compile-tmp/nrimp10s-77.imp"
NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K])));
                                                                //   2934              %IF NAM#0 %THEN %START;     ! OWNNAMES AND ARRAYNAMES
#line 2934 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_027e;
                                                                //   2935                 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES
#line 2935 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_027f;
#line 2935 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(46, 0, K);
#line 2935 "regression-compile-tmp/nrimp10s-77.imp"
L_027f:;
                                                                //   2936                 UICONST=16_FFFF!PREC<<27
#line 2936 "regression-compile-tmp/nrimp10s-77.imp"
UICONST = ((65535) | (((PREC) << (27))));
                                                                //   2937                 PGLA(8,PTSIZE,ADDR(UICONST))
#line 2937 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, PTSIZE, _imp_ADDR(&UICONST));
                                                                //   2938                 EPTYPE=2
#line 2938 "regression-compile-tmp/nrimp10s-77.imp"
EPTYPE = 2;
                                                                //   2939                 TAGDISP=GLACA-PTSIZE; EPDISP=TAGDISP
#line 2939 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (PTSIZE));
#line 2939 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = TAGDISP;
                                                                //   2940              %FINISH %ELSE %START
#line 2940 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0280;
#line 2940 "regression-compile-tmp/nrimp10s-77.imp"
L_027e:;
                                                                //   2941                 %IF EXTRN=3 %THEN %START;     ! EXTRINISIC
#line 2941 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0281;
                                                                //   2942                    PTYPE=PTYPE!16_400;      ! FORCE NAM=1 (IE VIA POINTER)
#line 2942 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((PTYPE) | (1024));
                                                                //   2943                    AH2=16_18000000+BP
#line 2943 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = (((int)(402653184)) + (BP));
                                                                //   2944                    AH3=0
#line 2944 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = 0;
                                                                //   2945                    PGLA(8,8,ADDR(AH2))
#line 2945 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&AH2));
                                                                //   2946                    TAGDISP=GLACA-8
#line 2946 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (8));
                                                                //   2947                    GXREF(NAMTXT,2,2<<24!BP,TAGDISP+4); ! RELOCATE BY EXTERNAL
#line 2947 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(NAMTXT, 2, ((((2) << (24))) | (BP)), (((int)(TAGDISP)) + (4)));
                                                                //   2948                 %FINISH %ELSE %START
#line 2948 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0282;
#line 2948 "regression-compile-tmp/nrimp10s-77.imp"
L_0281:;
                                                                //   2949                    EPDISP=(GLACA+15)&(-8)
#line 2949 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = (((((int)(GLACA)) + (15))) & ((-8)));
                                                                //   2950                    AH3=EPDISP
#line 2950 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = EPDISP;
                                                                //   2951                    AH2=16_18000000+BP;      ! TOP WORD OFDESRCIPTOR
#line 2951 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = (((int)(402653184)) + (BP));
                                                                //   2952                    PGLA(8,4,ADDR(AH2));     ! ADDED 18MAR76 TO FIX BUG
#line 2952 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 4, _imp_ADDR(&AH2));
                                                                //   2953                    RELOCATE(-1,AH3,2);      ! PUT DISP INTO GLA
#line 2953 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((-1), AH3, 2);
                                                                //   2954                    TAGDISP=EPDISP;          ! AND RELOCATE REL APPROPIATE AREA
#line 2954 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = EPDISP;
                                                                //   2955                    EPTYPE=2;                ! DATA IN GLA TABLES
#line 2955 "regression-compile-tmp/nrimp10s-77.imp"
EPTYPE = 2;
                                                                //   2956                    I=0; ICONST=0
#line 2956 "regression-compile-tmp/nrimp10s-77.imp"
I = 0;
#line 2956 "regression-compile-tmp/nrimp10s-77.imp"
ICONST = 0;
                                                                //   2957                    %WHILE I<BP %CYCLE
#line 2957 "regression-compile-tmp/nrimp10s-77.imp"
L_0283:;
#line 2957 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) >= (BP))) goto L_0284;
                                                                //   2958                       PGLA(4,4,ADDR(ICONST))
#line 2958 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 4, _imp_ADDR(&ICONST));
                                                                //   2959                       I=I+4
#line 2959 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(I)) + (4));
                                                                //   2960                    %REPEAT
#line 2960 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0283;
#line 2960 "regression-compile-tmp/nrimp10s-77.imp"
L_0284:;
                                                                //   2961                 %FINISH
#line 2961 "regression-compile-tmp/nrimp10s-77.imp"
L_0282:;
                                                                //   2962              %FINISH
#line 2962 "regression-compile-tmp/nrimp10s-77.imp"
L_0280:;
                                                                //   2963              ACC=BP;                     ! ACC TO SIZE OF RECORD
#line 2963 "regression-compile-tmp/nrimp10s-77.imp"
ACC = BP;
                                                                //   2964              STAG(TAGDISP,BP)
#line 2964 "regression-compile-tmp/nrimp10s-77.imp"
STAG(TAGDISP, BP);
                                                                //   2965              P=P+2
#line 2965 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   2966           %REPEAT %UNTIL A(P)=2
#line 2966 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_027c;
#line 2966 "regression-compile-tmp/nrimp10s-77.imp"
goto L_027b;
#line 2966 "regression-compile-tmp/nrimp10s-77.imp"
L_027c:;
                                                                //   2967           ->BEND
#line 2967 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101e;
                                                                //   2968  NONSCALAR:                             ! OWN AND OWNRECORD ARRAYS
#line 2968 "regression-compile-tmp/nrimp10s-77.imp"
U_101d:;
                                                                //   2969  !***********************************************************************
                                                                //   2970  !*       OWN ARRAYS CAN BE INITIALISED BUT ONLY ONE ARRAY CAN BE       *
                                                                //   2971  !*       DECLARED IN A STATEMENT.(THANK HEAVENS!)                      *
                                                                //   2972  !*       OWN RECORD ARRAYS ARE CLEARED TO ZERO                         *
                                                                //   2973  !***********************************************************************
                                                                //   2974           P=P+1
#line 2974 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   2975           FORMAT=2-A(P)
#line 2975 "regression-compile-tmp/nrimp10s-77.imp"
FORMAT = ((2) - ((int)(A[P])));
                                                                //   2976  RECIN:   PP=P+1; P=P+3; NNAMES=1
#line 2976 "regression-compile-tmp/nrimp10s-77.imp"
U_101f:;
#line 2976 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(P)) + (1));
#line 2976 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 2976 "regression-compile-tmp/nrimp10s-77.imp"
NNAMES = 1;
                                                                //   2977           K=FROM AR2(PP)
#line 2977 "regression-compile-tmp/nrimp10s-77.imp"
K = FROMAR2(PP);
                                                                //   2978           NAMTXT=STRING(DICTBASE+WORD(K))
#line 2978 "regression-compile-tmp/nrimp10s-77.imp"
NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K])));
                                                                //   2979           %IF TYPE>=3 %THEN BP=ACC %ELSE BP=BYTES(PREC)
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) < (3))) goto L_0286;
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
BP = ACC;
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0287;
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
L_0286:;
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
BP = BYTES[PREC];
#line 2979 "regression-compile-tmp/nrimp10s-77.imp"
L_0287:;
                                                                //   2980           SACC=ACC; TYPEP=PTYPE
#line 2980 "regression-compile-tmp/nrimp10s-77.imp"
SACC = ACC;
#line 2980 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = PTYPE;
                                                                //   2981           AH4=12+DOPE VECTOR(TYPE,BP,0,K,QQ,LB)
#line 2981 "regression-compile-tmp/nrimp10s-77.imp"
AH4 = (((int)(12)) + (DOPEVECTOR(TYPE, BP, 0, K, &QQ, &LB)));
                                                                //   2982           SNDISP=AH4-12;                 ! DV DISP (+TOP BIT FLAG)
#line 2982 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (((int)(AH4)) - (12));
                                                                //   2983           %IF SNDISP=-1 %THEN SNDISP=0;  ! BUM DOPE VECTOR
#line 2983 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNDISP) != ((-1)))) goto L_0288;
#line 2983 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
#line 2983 "regression-compile-tmp/nrimp10s-77.imp"
L_0288:;
                                                                //   2984           SNDISP=(SNDISP&16_3FFFF)>>2;   ! AS WORD DISPLACEMENT
#line 2984 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = ((((((SNDISP) & (262143)))) >> (2)));
                                                                //   2985           DIMEN=J;                       ! SAVE NO OF DIMENESIONS
#line 2985 "regression-compile-tmp/nrimp10s-77.imp"
DIMEN = J;
                                                                //   2986           ACC=SACC; PTYPE=TYPEP; UNPACK
#line 2986 "regression-compile-tmp/nrimp10s-77.imp"
ACC = SACC;
#line 2986 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TYPEP;
#line 2986 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   2987           %IF LB=0 %AND J=1 %AND TYPE<=3 %THEN ARR=2 %AND PACK (PTYPE)
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
if (((LB) != (0))) goto L_0289;
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (1))) goto L_0289;
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (3))) goto L_0289;
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 2;
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
#line 2987 "regression-compile-tmp/nrimp10s-77.imp"
L_0289:;
                                                                //   2988           LENGTH=QQ//BP;                 ! NO OF ELEMENTS
#line 2988 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (long)((long)((int)(QQ)) / (long)((int)(_Z(BP))));
                                                                //   2989           SPOINT=STPTR
#line 2989 "regression-compile-tmp/nrimp10s-77.imp"
SPOINT = *STPTR;
                                                                //   2990           %IF MODE#3 %AND FORMAT=0 %THEN %START;   ! NOT A RECORD ARRAY
#line 2990 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (3))) goto L_028a;
#line 2990 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) != (0))) goto L_028a;
                                                                //   2991              %IF A(P)=1 %THEN P=P+1 %AND INIT SPACE(QQ,LENGTH)
#line 2991 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_028b;
#line 2991 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 2991 "regression-compile-tmp/nrimp10s-77.imp"
INITSPACE(QQ, LENGTH);
#line 2991 "regression-compile-tmp/nrimp10s-77.imp"
L_028b:;
                                                                //   2992           %FINISH
#line 2992 "regression-compile-tmp/nrimp10s-77.imp"
L_028a:;
                                                                //   2993           %IF CONSTS FOUND=0 %THEN %START;! NO CONSTANTS GIVEN
#line 2993 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTSFOUND) != (0))) goto L_028c;
                                                                //   2994                                           ! SO CLEAR AN AREA TO ZERO
                                                                //   2995              CONSTS FOUND=LENGTH
#line 2995 "regression-compile-tmp/nrimp10s-77.imp"
CONSTSFOUND = LENGTH;
                                                                //   2996              CLEAR(QQ) %UNLESS LENGTH<1 %OR EXTRN=3 %OR FORMAT#0
#line 2996 "regression-compile-tmp/nrimp10s-77.imp"
if (((LENGTH) < (1))) goto L_028d;
#line 2996 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (3))) goto L_028d;
#line 2996 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) != (0))) goto L_028d;
#line 2996 "regression-compile-tmp/nrimp10s-77.imp"
CLEAR(QQ);
#line 2996 "regression-compile-tmp/nrimp10s-77.imp"
L_028d:;
                                                                //   2997           %FINISH %ELSE %START
#line 2997 "regression-compile-tmp/nrimp10s-77.imp"
goto L_028e;
#line 2997 "regression-compile-tmp/nrimp10s-77.imp"
L_028c:;
                                                                //   2998              FAULT2(49,0,K) %IF EXTRN=3 %OR FORMAT#0
#line 2998 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (3))) goto L_0265;
#line 2998 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) == (0))) goto L_028f;
#line 2998 "regression-compile-tmp/nrimp10s-77.imp"
L_0265:;
#line 2998 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(49, 0, K);
#line 2998 "regression-compile-tmp/nrimp10s-77.imp"
L_028f:;
                                                                //   2999           %FINISH
#line 2999 "regression-compile-tmp/nrimp10s-77.imp"
L_028e:;
                                                                //   3000           %IF EXTRN=3 %THEN EPDISP=0 %ELSE EPDISP=SPOINT
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0290;
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = 0;
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0291;
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
L_0290:;
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
EPDISP = SPOINT;
#line 3000 "regression-compile-tmp/nrimp10s-77.imp"
L_0291:;
                                                                //   3001  !
                                                                //   3002  ! OUTPUT AN ARRAYHEAD INTO THE GLA RELATIVE TO THE START OF THE SYMBOL-
                                                                //   3003  ! TABLES IN WHICH THE ARRAY RESIDES.
                                                                //   3004  !
                                                                //   3005           J=DIMEN;                       ! RESET DIMENSIONS AFTER INITTING
#line 3005 "regression-compile-tmp/nrimp10s-77.imp"
J = DIMEN;
                                                                //   3006           %IF TYPE<=2 %THEN AH1=PREC<<27!LENGTH %ELSE AH1=3<<27!1<<25!QQ
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0292;
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
AH1 = ((((PREC) << (27))) | (LENGTH));
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0293;
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
L_0292:;
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
AH1 = ((((((3) << (27))) | (((1) << (25))))) | (QQ));
#line 3006 "regression-compile-tmp/nrimp10s-77.imp"
L_0293:;
                                                                //   3007           AH1=AH1!(1-PARMARR)<<24;       ! SET BCI IF BASE TO BE SHIFTED
#line 3007 "regression-compile-tmp/nrimp10s-77.imp"
AH1 = ((AH1) | ((((((int)(1)) - (PARMARR))) << (24))));
                                                                //   3008           %IF PREC=4 %THEN AH1=16_58000002
#line 3008 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_0294;
#line 3008 "regression-compile-tmp/nrimp10s-77.imp"
AH1 = 1476395010;
#line 3008 "regression-compile-tmp/nrimp10s-77.imp"
L_0294:;
                                                                //   3009           AH2=EPDISP
#line 3009 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = EPDISP;
                                                                //   3010           AH3=5<<27!3*J;                 ! DV DESPTR = WORD CHKD
#line 3010 "regression-compile-tmp/nrimp10s-77.imp"
AH3 = ((((5) << (27))) | ((((int)(3)) * (J))));
                                                                //   3011           %IF TYPE<=3 %AND PARMARR=0=FORMAT %AND PARMCHK=0 %AND J=1 %THEN AH2=AH2-BP*LB
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (3))) goto L_0295;
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (FORMAT)))) goto L_0295;
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0295;
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (1))) goto L_0295;
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
AH2 = ((AH2) - ((int)((((int)(BP)) * (LB)))));
#line 3011 "regression-compile-tmp/nrimp10s-77.imp"
L_0295:;
                                                                //   3012           PGLA(8,16,ADDR(AH1))
#line 3012 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 16, _imp_ADDR(&AH1));
                                                                //   3013           TAGDISP=GLACA-16
#line 3013 "regression-compile-tmp/nrimp10s-77.imp"
TAGDISP = (((int)(GLACA)) - (16));
                                                                //   3014           %IF EXTRN=3 %THEN %START;     ! EXTRINSIC ARRAYS
#line 3014 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (3))) goto L_0296;
                                                                //   3015              GXREF(NAMTXT,2,2<<24!QQ,TAGDISP+4);   ! RELOCATE ADDR(A(FIRST))
#line 3015 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(NAMTXT, 2, ((((2) << (24))) | (QQ)), (((int)(TAGDISP)) + (4)));
                                                                //   3016           %FINISH %ELSE %START
#line 3016 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0297;
#line 3016 "regression-compile-tmp/nrimp10s-77.imp"
L_0296:;
                                                                //   3017              RELOCATE(TAGDISP+4,AH2,LPUTP);! RELOCATE ADDR(A(FIRST))
#line 3017 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(TAGDISP)) + (4)), AH2, LPUTP);
                                                                //   3018           %FINISH
#line 3018 "regression-compile-tmp/nrimp10s-77.imp"
L_0297:;
                                                                //   3019           RELOCATE(TAGDISP+12,AH4,1);   ! RELOCATE DV POINTER
#line 3019 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(TAGDISP)) + (12)), AH4, 1);
                                                                //   3020           AH4=(AH4<<1>>3)!16_80000000
#line 3020 "regression-compile-tmp/nrimp10s-77.imp"
AH4 = ((((((((AH4) << (1)))) >> (3)))) | ((-2147483648)));
                                                                //   3021           NOTE CREF(AH4!(TAGDISP+12)>>2<<16,(AH4&16_FFFF)<<2)
#line 3021 "regression-compile-tmp/nrimp10s-77.imp"
NOTECREF(((AH4) | ((((((((((int)(TAGDISP)) + (12)))) >> (2)))) << (16)))), ((((AH4) & (65535))) << (2)));
                                                                //   3022           EPTYPE=5;                    ! DATA IN GLA SYMBOL TABLES
#line 3022 "regression-compile-tmp/nrimp10s-77.imp"
EPTYPE = 5;
                                                                //   3023           STAG(TAGDISP,QQ)
#line 3023 "regression-compile-tmp/nrimp10s-77.imp"
STAG(TAGDISP, QQ);
                                                                //   3024           -> BEND
#line 3024 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101e;
                                                                //   3025  %ROUTINE INIT SPACE(%INTEGER SIZE,NELS)
#line 3025 "regression-compile-tmp/nrimp10s-77.imp"
void INITSPACE( int SIZE, int NELS )
#line 3025 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3026  !***********************************************************************
                                                                //   3027  !*       P IS TO FIRST ENTRY FOR CONSTLIST                             *
                                                                //   3028  !*    MAP SPACE ONTO WORKFILE END TO GIVE SANE ERROR MESSAGE IF        *
                                                                //   3029  !*    THERE WAS NOT ENOUGH SPACE                                       *
                                                                //   3030  !***********************************************************************
                                                                //   3031  %INTEGER RF,I,K,ELSIZE,AD,SPP,LENGTH,SAVER,WSIZE,WRIT
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int RF;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int ELSIZE;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int AD;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int SPP;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int LENGTH;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int SAVER;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int WSIZE;
#line 3031 "regression-compile-tmp/nrimp10s-77.imp"
int WRIT;
                                                                //   3032  {%BYTEINTEGERARRAYNAME SP
                                                                //   3033  
                                                                //   3034        %IF SIZE>4096 %THEN WSIZE=4096 %ELSE WSIZE=SIZE
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (4096))) goto L_0298;
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
WSIZE = 4096;
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0299;
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
L_0298:;
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
WSIZE = SIZE;
#line 3034 "regression-compile-tmp/nrimp10s-77.imp"
L_0299:;
                                                                //   3035  {%BYTEINTEGERARRAYFORMAT SPF(0:WSIZE+256)
                                                                //   3036        SAVER=R; R=R+WSIZE+256
#line 3036 "regression-compile-tmp/nrimp10s-77.imp"
SAVER = R;
#line 3036 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)((((int)(R)) + (WSIZE)))) + (256));
                                                                //   3037        %IF R>ARSIZE %THEN FAULT(102,0)
#line 3037 "regression-compile-tmp/nrimp10s-77.imp"
if (((R) <= (ARSIZE))) goto L_029a;
#line 3037 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(102, 0);
#line 3037 "regression-compile-tmp/nrimp10s-77.imp"
L_029a:;
                                                                //   3038  %byteintegerarray SP(0:WSIZE+256)
#line 3038 "regression-compile-tmp/nrimp10s-77.imp"
unsigned char SP[(((unsigned char)((((int)(WSIZE)) + (256)))) + (1))];
                                                                //   3039        {SP==ARRAY(ADDR(A(SAVER)),SPF)
                                                                //   3040        %IF TYPE=1 %THEN AD=ADDR(ICONST)+4-ACC
#line 3040 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_029b;
#line 3040 "regression-compile-tmp/nrimp10s-77.imp"
AD = (((int)((((int)(_imp_ADDR(&ICONST))) + (4)))) - (ACC));
#line 3040 "regression-compile-tmp/nrimp10s-77.imp"
L_029b:;
                                                                //   3041        %IF TYPE=2 %THEN AD=ADDR(RCONST)
#line 3041 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_029c;
#line 3041 "regression-compile-tmp/nrimp10s-77.imp"
AD = _imp_ADDR(&RCONST);
#line 3041 "regression-compile-tmp/nrimp10s-77.imp"
L_029c:;
                                                                //   3042        %IF TYPE=5 %THEN AD=ADDR(SCONST)
#line 3042 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_029d;
#line 3042 "regression-compile-tmp/nrimp10s-77.imp"
AD = _imp_ADDR(&SCONST);
#line 3042 "regression-compile-tmp/nrimp10s-77.imp"
L_029d:;
                                                                //   3043        SPP=0; WRIT=0
#line 3043 "regression-compile-tmp/nrimp10s-77.imp"
SPP = 0;
#line 3043 "regression-compile-tmp/nrimp10s-77.imp"
WRIT = 0;
                                                                //   3044        ELSIZE=SIZE//NELS
#line 3044 "regression-compile-tmp/nrimp10s-77.imp"
ELSIZE = (long)((long)((int)(SIZE)) / (long)((int)(_Z(NELS))));
                                                                //   3045        {%UNTIL A(P-1)=2} %CYCLE
#line 3045 "regression-compile-tmp/nrimp10s-77.imp"
L_029e:;
                                                                //   3046           XTRACT CONST(TYPE,PREC)
#line 3046 "regression-compile-tmp/nrimp10s-77.imp"
XTRACTCONST(TYPE, PREC);
                                                                //   3047           %IF A(P)=1 %START;             ! REPITITION FACTOR
#line 3047 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_02a1;
                                                                //   3048              P=P+1
#line 3048 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3049              %IF INTEXP(RF)#0 %THEN FAULT(44,CONSTS FOUND) %AND RF=1
#line 3049 "regression-compile-tmp/nrimp10s-77.imp"
if (((INTEXP(&RF)) == (0))) goto L_02a2;
#line 3049 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(44, CONSTSFOUND);
#line 3049 "regression-compile-tmp/nrimp10s-77.imp"
RF = 1;
#line 3049 "regression-compile-tmp/nrimp10s-77.imp"
L_02a2:;
                                                                //   3050              P=P+1
#line 3050 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3051           %FINISH %ELSE RF=1 %AND P=P+2
#line 3051 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02a3;
#line 3051 "regression-compile-tmp/nrimp10s-77.imp"
L_02a1:;
#line 3051 "regression-compile-tmp/nrimp10s-77.imp"
RF = 1;
#line 3051 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3051 "regression-compile-tmp/nrimp10s-77.imp"
L_02a3:;
                                                                //   3052           FAULT(44,CONSTS FOUND) %IF RF<=0
#line 3052 "regression-compile-tmp/nrimp10s-77.imp"
if (((RF) > (0))) goto L_02a4;
#line 3052 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(44, CONSTSFOUND);
#line 3052 "regression-compile-tmp/nrimp10s-77.imp"
L_02a4:;
                                                                //   3053           %CYCLE I=RF,-1,1
#line 3053 "regression-compile-tmp/nrimp10s-77.imp"
I = ((RF) + ((int)(1)));
if ((((1)-(RF)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = RF, (-1), 1");
L_02a5:;
if (I == 1) goto L_02a6;
I += (-1);
                                                                //   3054              %CYCLE K=0,1,ELSIZE-1
#line 3054 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(ELSIZE)) - (1)); K = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 0, 1, (((int)(ELSIZE)) - (1))");
K -= _increment; _control -= _increment;
L_02a8:;
if (K == _final) goto L_02a9;
K += _increment; _control += _increment;
if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */
}
                                                                //   3055                 %IF CONSTS FOUND<=NELS %THEN SP(SPP)=BYTE INTEGER(AD+K) %AND SPP=SPP+1
#line 3055 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTSFOUND) > (NELS))) goto L_02ab;
#line 3055 "regression-compile-tmp/nrimp10s-77.imp"
SP[SPP] = *_imp_BYTEINTEGER((((int)(AD)) + (K)));
#line 3055 "regression-compile-tmp/nrimp10s-77.imp"
SPP = (((int)(SPP)) + (1));
#line 3055 "regression-compile-tmp/nrimp10s-77.imp"
L_02ab:;
                                                                //   3056              %REPEAT
#line 3056 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02a8;
#line 3056 "regression-compile-tmp/nrimp10s-77.imp"
L_02a9:;
                                                                //   3057              CONSTS FOUND=CONSTS FOUND+1
#line 3057 "regression-compile-tmp/nrimp10s-77.imp"
CONSTSFOUND = (((int)(CONSTSFOUND)) + (1));
                                                                //   3058              %IF SPP>=4096 %START;       ! EMPTY BUFFER
#line 3058 "regression-compile-tmp/nrimp10s-77.imp"
if (((SPP) < (4096))) goto L_02ac;
                                                                //   3059                 LPUT(LPUTP,SPP,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0
#line 3059 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_02ad;
#line 3059 "regression-compile-tmp/nrimp10s-77.imp"
lput(LPUTP, SPP, ((*(int *)(STPTR)) + (WRIT)), _imp_ADDR(&SP[0]));
#line 3059 "regression-compile-tmp/nrimp10s-77.imp"
L_02ad:;
                                                                //   3060                 WRIT=WRIT+SPP
#line 3060 "regression-compile-tmp/nrimp10s-77.imp"
WRIT = (((int)(WRIT)) + (SPP));
                                                                //   3061                 SPP=0
#line 3061 "regression-compile-tmp/nrimp10s-77.imp"
SPP = 0;
                                                                //   3062              %FINISH
#line 3062 "regression-compile-tmp/nrimp10s-77.imp"
L_02ac:;
                                                                //   3063           %REPEAT
#line 3063 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02a5;
#line 3063 "regression-compile-tmp/nrimp10s-77.imp"
L_02a6:;
                                                                //   3064        %REPEAT %UNTIL A(P-1)=2;                          ! UNTIL P<ROCL>=%NULL
#line 3064 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_029f;
#line 3064 "regression-compile-tmp/nrimp10s-77.imp"
goto L_029e;
#line 3064 "regression-compile-tmp/nrimp10s-77.imp"
L_029f:;
                                                                //   3065        %IF CONSTS FOUND#NELS %THEN FAULT(45,CONSTS FOUND)
#line 3065 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTSFOUND) == (NELS))) goto L_02ae;
#line 3065 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(45, CONSTSFOUND);
#line 3065 "regression-compile-tmp/nrimp10s-77.imp"
L_02ae:;
                                                                //   3066        STPTR=(STPTR+3)&(-4)
#line 3066 "regression-compile-tmp/nrimp10s-77.imp"
*STPTR = ((((*(int *)(STPTR)) + (3))) & ((-4)));
                                                                //   3067        LENGTH=(SIZE+3)&(-4)
#line 3067 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (((((int)(SIZE)) + (3))) & ((-4)));
                                                                //   3068        LPUT(LPUTP,LENGTH-WRIT,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0
#line 3068 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_02af;
#line 3068 "regression-compile-tmp/nrimp10s-77.imp"
lput(LPUTP, (((int)(LENGTH)) - (WRIT)), ((*(int *)(STPTR)) + (WRIT)), _imp_ADDR(&SP[0]));
#line 3068 "regression-compile-tmp/nrimp10s-77.imp"
L_02af:;
                                                                //   3069        STPTR=STPTR+LENGTH
#line 3069 "regression-compile-tmp/nrimp10s-77.imp"
*STPTR = ((*(int *)(STPTR)) + (LENGTH));
                                                                //   3070        R=SAVER
#line 3070 "regression-compile-tmp/nrimp10s-77.imp"
R = SAVER;
                                                                //   3071  %END
#line 3071 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block INITSPACE at level 6
                                                                //   3072           %ROUTINE CLEAR(%INTEGER LENGTH)
#line 3072 "regression-compile-tmp/nrimp10s-77.imp"
void CLEAR( int LENGTH )
#line 3072 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3073           STPTR=(STPTR+3)&(-4)
#line 3073 "regression-compile-tmp/nrimp10s-77.imp"
*STPTR = ((((*(int *)(STPTR)) + (3))) & ((-4)));
                                                                //   3074           LENGTH=(LENGTH+3)&(-4)
#line 3074 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = (((((int)(LENGTH)) + (3))) & ((-4)));
                                                                //   3075           LPUT(LPUTP,LENGTH,STPTR,0)%IF INHCODE=0
#line 3075 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHCODE) != (0))) goto L_02b0;
#line 3075 "regression-compile-tmp/nrimp10s-77.imp"
lput(LPUTP, LENGTH, *STPTR, 0);
#line 3075 "regression-compile-tmp/nrimp10s-77.imp"
L_02b0:;
                                                                //   3076           STPTR=STPTR+LENGTH
#line 3076 "regression-compile-tmp/nrimp10s-77.imp"
*STPTR = ((*(int *)(STPTR)) + (LENGTH));
                                                                //   3077           %END
#line 3077 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLEAR at level 6
                                                                //   3078           %ROUTINE STAG(%INTEGER J,DATALEN)
#line 3078 "regression-compile-tmp/nrimp10s-77.imp"
void STAG( int J, int DATALEN )
#line 3078 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3079           %IF EXTRN=2 %THEN LPUT(14,EPTYPE<<24!DATALEN,EPDISP,ADDR(NAMTXT))
#line 3079 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (2))) goto L_02b1;
#line 3079 "regression-compile-tmp/nrimp10s-77.imp"
lput(14, ((((EPTYPE) << (24))) | (DATALEN)), EPDISP, _imp_ADDR(&NAMTXT));
#line 3079 "regression-compile-tmp/nrimp10s-77.imp"
L_02b1:;
                                                                //   3080           RBASE=CBASE
#line 3080 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = CBASE;
                                                                //   3081           STORE TAG(K,J)
#line 3081 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(K, J);
                                                                //   3082           RBASE=RLEVEL
#line 3082 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = RLEVEL;
                                                                //   3083           %END
#line 3083 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STAG at level 6
                                                                //   3084  %ROUTINE XTRACT CONST(%INTEGER CONTYPE,CONPREC)
#line 3084 "regression-compile-tmp/nrimp10s-77.imp"
void XTRACTCONST( int CONTYPE, int CONPREC )
#line 3084 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3085  !***********************************************************************
                                                                //   3086  !*       P POINTS TO P<+'> OF <+'><OPERNAD><RESTOFEXPR>  AND IS UPDATED*
                                                                //   3087  !*       THE CONST IS CONVERTED TO REQUIRED FORM AND IF INTEGER        *
                                                                //   3088  !*       IS LEFT IN ICONST, IF REAL IN RCONST AND IF STRING IN SCONST  *
                                                                //   3089  !***********************************************************************
                                                                //   3090  %INTEGER LENGTH,STYPE,SPREC,SACC,CPREC,MODE,I
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int LENGTH;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int STYPE;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int SPREC;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int SACC;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int CPREC;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int MODE;
#line 3090 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   3091        STYPE=PTYPE; SACC=ACC;! MAY BE CHANGED IF CONST IS EXPR
#line 3091 "regression-compile-tmp/nrimp10s-77.imp"
STYPE = PTYPE;
#line 3091 "regression-compile-tmp/nrimp10s-77.imp"
SACC = ACC;
                                                                //   3092        %IF CONTYPE=5 %THEN %START
#line 3092 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONTYPE) != (5))) goto L_02b2;
                                                                //   3093           CTYPE=5
#line 3093 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = 5;
                                                                //   3094           %IF A(P)=4 %AND A(P+1)=2 %AND A(P+2)=16_35 %AND A(P+A(P+7)+8)=2 %START
#line 3094 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (4))) goto L_02b3;
#line 3094 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) != (2))) goto L_02b3;
#line 3094 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (53))) goto L_02b3;
#line 3094 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(((P) + ((int)(A[(((int)(P)) + (7))]))))) + (8))]) != (2))) goto L_02b3;
                                                                //   3095              SCONST=STRING(ADDR(A(P+7)))
#line 3095 "regression-compile-tmp/nrimp10s-77.imp"
SCONST = *_imp_STRING(_imp_ADDR(&A[(((int)(P)) + (7))]));
                                                                //   3096              LENGTH=A(P+7)
#line 3096 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = A[(((int)(P)) + (7))];
                                                                //   3097           P=P+A(P+7)+9
#line 3097 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(((P) + ((int)(A[(((int)(P)) + (7))]))))) + (9));
                                                                //   3098           %FINISH %ELSE %START
#line 3098 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02b4;
#line 3098 "regression-compile-tmp/nrimp10s-77.imp"
L_02b3:;
                                                                //   3099              FAULT(44,CONSTS FOUND); SCONST=""
#line 3099 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(44, CONSTSFOUND);
#line 3099 "regression-compile-tmp/nrimp10s-77.imp"
SCONST = _imp_str_literal("");
                                                                //   3100              LENGTH=0; P=P-3; SKIP EXP
#line 3100 "regression-compile-tmp/nrimp10s-77.imp"
LENGTH = 0;
#line 3100 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (3));
#line 3100 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   3101           %FINISH
#line 3101 "regression-compile-tmp/nrimp10s-77.imp"
L_02b4:;
                                                                //   3102        %FINISH %ELSE %START
#line 3102 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02b5;
#line 3102 "regression-compile-tmp/nrimp10s-77.imp"
L_02b2:;
                                                                //   3103           MODE=CONPREC<<4!CONTYPE
#line 3103 "regression-compile-tmp/nrimp10s-77.imp"
MODE = ((((CONPREC) << (4))) | (CONTYPE));
                                                                //   3104           %IF CONPREC<5 %THEN MODE=CONTYPE!16_50
#line 3104 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONPREC) >= (5))) goto L_02b6;
#line 3104 "regression-compile-tmp/nrimp10s-77.imp"
MODE = ((CONTYPE) | (80));
#line 3104 "regression-compile-tmp/nrimp10s-77.imp"
L_02b6:;
                                                                //   3105           CONSTP=CONSTEXP(MODE)
#line 3105 "regression-compile-tmp/nrimp10s-77.imp"
CONSTP = CONSTEXP(MODE);
                                                                //   3106           %IF CONSTP=0 %THEN FAULT(41,0) %AND CONSTP=ADDR(ZERO);! CANT EVALUATE EXPT
#line 3106 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTP) != (0))) goto L_02b7;
#line 3106 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(41, 0);
#line 3106 "regression-compile-tmp/nrimp10s-77.imp"
CONSTP = _imp_ADDR(&ZERO);
#line 3106 "regression-compile-tmp/nrimp10s-77.imp"
L_02b7:;
                                                                //   3107           CTYPE=TYPE; CPREC=PREC
#line 3107 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = TYPE;
#line 3107 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = PREC;
                                                                //   3108           %IF CTYPE=1 %THEN %START
#line 3108 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (1))) goto L_02b8;
                                                                //   3109              ICONST=INTEGER(CONSTP)
#line 3109 "regression-compile-tmp/nrimp10s-77.imp"
ICONST = *_imp_INTEGER(CONSTP);
                                                                //   3110              %IF CONPREC=6 %THEN UICONST=ICONST %AND ICONST=INTEGER(CONSTP+4)
#line 3110 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONPREC) != (6))) goto L_02b9;
#line 3110 "regression-compile-tmp/nrimp10s-77.imp"
UICONST = ICONST;
#line 3110 "regression-compile-tmp/nrimp10s-77.imp"
ICONST = *_imp_INTEGER((((int)(CONSTP)) + (4)));
#line 3110 "regression-compile-tmp/nrimp10s-77.imp"
L_02b9:;
                                                                //   3111           %FINISH %ELSE %START
#line 3111 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02ba;
#line 3111 "regression-compile-tmp/nrimp10s-77.imp"
L_02b8:;
                                                                //   3112              RCONST=LONGREAL(CONSTP)
#line 3112 "regression-compile-tmp/nrimp10s-77.imp"
RCONST = *_imp_LONGREAL(CONSTP);
                                                                //   3113              %IF CONPREC=7 %THEN %START;! LONGLONGS UNALIGNED IN AR
#line 3113 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONPREC) != (7))) goto L_02bb;
                                                                //   3114                 %CYCLE I=0,1,15
#line 3114 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((15)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 15");
L_02bc:;
if (I == 15) goto L_02bd;
I += 1;
                                                                //   3115                    BYTEINTEGER(ADDR(RCONST)+I)=BYTEINTEGER(CONSTP+I)
#line 3115 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(_imp_ADDR(&RCONST))) + (I))) = *_imp_BYTEINTEGER((((int)(CONSTP)) + (I)));
                                                                //   3116                 %REPEAT
#line 3116 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02bc;
#line 3116 "regression-compile-tmp/nrimp10s-77.imp"
L_02bd:;
                                                                //   3117              %FINISH
#line 3117 "regression-compile-tmp/nrimp10s-77.imp"
L_02bb:;
                                                                //   3118           %FINISH
#line 3118 "regression-compile-tmp/nrimp10s-77.imp"
L_02ba:;
                                                                //   3119        %FINISH
#line 3119 "regression-compile-tmp/nrimp10s-77.imp"
L_02b5:;
                                                                //   3120        PTYPE=STYPE; UNPACK; ACC=SACC
#line 3120 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = STYPE;
#line 3120 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
#line 3120 "regression-compile-tmp/nrimp10s-77.imp"
ACC = SACC;
                                                                //   3121  !
                                                                //   3122  ! FAULT ANY OBVIOUS ERRORS IE:-
                                                                //   3123  ! CONSTANT FOR EXTRINSIC OR INCOMPATIBLE TYPE OR STRING TOO LONG
                                                                //   3124  !
                                                                //   3125           %IF EXTRN=3 %OR (CTYPE=5 %AND LENGTH>=ACC) %OR (CONTYPE=1 %AND ((CONPREC=3 %AND ICONST>255) %OR (CONPREC=4 %AND ICONST>16_FFFF))) %THEN FAULT(44,CONSTS FOUND)
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) == (3))) goto L_02a0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (5))) goto L_02bf;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((LENGTH) >= (ACC))) goto L_02a0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
L_02bf:;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONTYPE) != (1))) goto L_02c0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONPREC) != (3))) goto L_02c1;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((ICONST) > (255))) goto L_02a0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
L_02c1:;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONPREC) != (4))) goto L_02c0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
if (((ICONST) <= (65535))) goto L_02c0;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
L_02a0:;
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(44, CONSTSFOUND);
#line 3125 "regression-compile-tmp/nrimp10s-77.imp"
L_02c0:;
                                                                //   3126       %END
#line 3126 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block XTRACTCONST at level 6
                                                                //   3127  BEND:    %END; ->CSSEXIT
#line 3127 "regression-compile-tmp/nrimp10s-77.imp"
U_101e:;
#line 3127 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_10_LEVEL_4_ at level 5
_BLOCK_10_LEVEL_4_();
#line 3127 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   3128  SW(18):
#line 3128 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_18:;
                                                                //   3129           ABORT
#line 3129 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   3130  SW(10):
#line 3130 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_10:;
                                                                //   3131           %BEGIN;                       ! %RECORD (RDECLN)
#line 3131 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_11_LEVEL_4_(void) {
                                                                //   3132  !***********************************************************************
                                                                //   3133  !*       RECORDS ARE ALLOCATED AT COMPILE TIME WHEN POSSIBLE           *
                                                                //   3134  !*       SEE CRFORMAT FOR ACTION ON RECORD FORMAT DECLARATIONS         *
                                                                //   3135  !***********************************************************************
                                                                //   3136  %INTEGER MODE,RECL,ALLOC,FNAM,FINF,NAME,OPHEAD
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int MODE;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int RECL;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int ALLOC;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int FNAM;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int FINF;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int NAME;
#line 3136 "regression-compile-tmp/nrimp10s-77.imp"
int OPHEAD;
                                                                //   3137           P=P+1; MODE=A(P); SNDISP=0
#line 3137 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3137 "regression-compile-tmp/nrimp10s-77.imp"
MODE = A[P];
#line 3137 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
                                                                //   3138           %IF MODE=1 %THEN %START;      ! DEAL WITH FORMAT
#line 3138 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (1))) goto L_02c2;
                                                                //   3139              NAME=FROM AR2(P+1); P=P+3
#line 3139 "regression-compile-tmp/nrimp10s-77.imp"
NAME = FROMAR2((((int)(P)) + (1)));
#line 3139 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   3140              CRFORMAT(OPHEAD); K=NAME
#line 3140 "regression-compile-tmp/nrimp10s-77.imp"
CRFORMAT(&OPHEAD);
#line 3140 "regression-compile-tmp/nrimp10s-77.imp"
K = NAME;
                                                                //   3141              PTYPE=4; J=0
#line 3141 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 4;
#line 3141 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
                                                                //   3142              KFORM=OPHEAD
#line 3142 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = OPHEAD;
                                                                //   3143              STORE TAG(K,OPHEAD)
#line 3143 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(K, OPHEAD);
                                                                //   3144              ->BEND
#line 3144 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1020;
                                                                //   3145           %FINISH
#line 3145 "regression-compile-tmp/nrimp10s-77.imp"
L_02c2:;
                                                                //   3146           P=P+1; MARKER=P+FROM AR2(P)
#line 3146 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3146 "regression-compile-tmp/nrimp10s-77.imp"
MARKER = (((int)(P)) + (FROMAR2(P)));
                                                                //   3147           FNAM=FROM AR2(MARKER);       ! FORMAT NAME
#line 3147 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = FROMAR2(MARKER);
                                                                //   3148           COPY TAG(FNAM)
#line 3148 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAM);
                                                                //   3149           FINF=TCELL
#line 3149 "regression-compile-tmp/nrimp10s-77.imp"
FINF = TCELL;
                                                                //   3150           %IF TYPE#4 %THEN %START
#line 3150 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (4))) goto L_02c3;
                                                                //   3151              FINF=DUMMY FORMAT
#line 3151 "regression-compile-tmp/nrimp10s-77.imp"
FINF = DUMMYFORMAT;
                                                                //   3152              ACC=4; FAULT(62,FNAM)
#line 3152 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 4;
#line 3152 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(62, FNAM);
                                                                //   3153           %FINISH
#line 3153 "regression-compile-tmp/nrimp10s-77.imp"
L_02c3:;
                                                                //   3154           RECL=ACC
#line 3154 "regression-compile-tmp/nrimp10s-77.imp"
RECL = ACC;
                                                                //   3155           %IF MODE=2%THEN %START;       ! '%RECORDSPEC'
#line 3155 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (2))) goto L_02c4;
                                                                //   3156              COPY TAG(FROM AR2(P+2))
#line 3156 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FROMAR2((((int)(P)) + (2))));
                                                                //   3157              %IF A(P+4)=1 %AND TYPE=4 %START;! SPEC FOR FORMAT ELEMENT
#line 3157 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (1))) goto L_02c5;
#line 3157 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (4))) goto L_02c5;
                                                                //   3158                 P=P+5
#line 3158 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   3159                 Q=DISPLACEMENT(TCELL)
#line 3159 "regression-compile-tmp/nrimp10s-77.imp"
Q = DISPLACEMENT(TCELL);
                                                                //   3160                 UNPACK
#line 3160 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   3161              %FINISH
#line 3161 "regression-compile-tmp/nrimp10s-77.imp"
L_02c5:;
                                                                //   3162              %IF TYPE=3 %AND NAM=1 %AND FROM3(TCELL)&16_FFFF=0 %START
#line 3162 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_02c6;
#line 3162 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_02c6;
#line 3162 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FROM3(TCELL)) & (65535))) != (0))) goto L_02c6;
                                                                //   3163                 REPLACE3(TCELL,FINF!K<<16)
#line 3163 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE3(TCELL, ((FINF) | (((K) << (16)))));
                                                                //   3164                 REPLACE2(TCELL,SNDISP<<16!RECL)
#line 3164 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE2(TCELL, ((((SNDISP) << (16))) | (RECL)));
                                                                //   3165              %FINISH %ELSE FAULT(63,0)
#line 3165 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02c7;
#line 3165 "regression-compile-tmp/nrimp10s-77.imp"
L_02c6:;
#line 3165 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(63, 0);
#line 3165 "regression-compile-tmp/nrimp10s-77.imp"
L_02c7:;
                                                                //   3166           %FINISH %ELSE %START;         ! RECORD DECLARATION
#line 3166 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02c8;
#line 3166 "regression-compile-tmp/nrimp10s-77.imp"
L_02c4:;
                                                                //   3167              FAULT(57,0) %UNLESS LEVEL>=2
#line 3167 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_02c9;
#line 3167 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 3167 "regression-compile-tmp/nrimp10s-77.imp"
L_02c9:;
                                                                //   3168              FAULT(40,0) %IF NMDECS(LEVEL)&1#0
#line 3168 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_02ca;
#line 3168 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(40, 0);
#line 3168 "regression-compile-tmp/nrimp10s-77.imp"
L_02ca:;
                                                                //   3169              TYPE=3; PREC=3; ROUT=0
#line 3169 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 3;
#line 3169 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 3;
#line 3169 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
                                                                //   3170             %IF A(P+2)=1 %THEN %START;  ! SIMPLE RECORD AND RECORDNAMES
#line 3170 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (1))) goto L_02cb;
                                                                //   3171                 ALLOC=ACC; CQN(P+3)
#line 3171 "regression-compile-tmp/nrimp10s-77.imp"
ALLOC = ACC;
#line 3171 "regression-compile-tmp/nrimp10s-77.imp"
CQN((((int)(P)) + (3)));
                                                                //   3172                 ACC=ALLOC; P=P+4
#line 3172 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ALLOC;
#line 3172 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   3173                 DECLARE SCALARS(1,FINF)
#line 3173 "regression-compile-tmp/nrimp10s-77.imp"
DECLARESCALARS(1, FINF);
                                                                //   3174              %FINISH %ELSE %START;      ! ARRAYS OF RECORDS
#line 3174 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02cc;
#line 3174 "regression-compile-tmp/nrimp10s-77.imp"
L_02cb:;
                                                                //   3175                 NAM=0
#line 3175 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
                                                                //   3176                 Q=2-A(P+3); P=P+4;      ! Q=1 FOR ARRAY FORMAT
#line 3176 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((2) - ((int)(A[(((int)(P)) + (3))])));
#line 3176 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   3177                 SET LINE
#line 3177 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
                                                                //   3178                 DECLARE ARRAYS(Q,FINF)
#line 3178 "regression-compile-tmp/nrimp10s-77.imp"
DECLAREARRAYS(Q, FINF);
                                                                //   3179              %FINISH
#line 3179 "regression-compile-tmp/nrimp10s-77.imp"
L_02cc:;
                                                                //   3180           %FINISH
#line 3180 "regression-compile-tmp/nrimp10s-77.imp"
L_02c8:;
                                                                //   3181  BEND:    %END;->CSSEXIT
#line 3181 "regression-compile-tmp/nrimp10s-77.imp"
U_1020:;
#line 3181 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_11_LEVEL_4_ at level 5
_BLOCK_11_LEVEL_4_();
#line 3181 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   3182  !
                                                                //   3183  SW(19):
#line 3183 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_19:;
                                                                //   3184                                          ! '*' (UCI) (S)
                                                                //   3185           FAULT(57,0) %UNLESS LEVEL>=2
#line 3185 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_02cd;
#line 3185 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 3185 "regression-compile-tmp/nrimp10s-77.imp"
L_02cd:;
                                                                //   3186           %BEGIN
#line 3186 "regression-compile-tmp/nrimp10s-77.imp"
void _BLOCK_12_LEVEL_4_(void) {
                                                                //   3187           %ROUTINESPEC CIND
#line 3187 "regression-compile-tmp/nrimp10s-77.imp"
auto void CIND( void );
                                                                //   3188           %INTEGER FNAME,ALT,OPCODE,FORM,H,Q,MASK,FILLER
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int OPCODE;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int FORM;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int H;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int MASK;
#line 3188 "regression-compile-tmp/nrimp10s-77.imp"
int FILLER;
                                                                //   3189           %SWITCH SW(1:5),F(1:3),POP(1:6),TOP(1:4)
#line 3189 "regression-compile-tmp/nrimp10s-77.imp"
static int sw4_SW_idx;
static const void * /*SWITCH*/ sw4_SW[5] = { &&sw4_SW_1, &&sw4_SW_2, &&sw4_SW_3, &&sw4_SW_4, &&sw4_SW_5,  };
#line 3189 "regression-compile-tmp/nrimp10s-77.imp"
static int sw5_F_idx;
static const void * /*SWITCH*/ sw5_F[3] = { &&sw5_F_1, &&sw5_F_2, &&sw5_F_3,  };
#line 3189 "regression-compile-tmp/nrimp10s-77.imp"
static int sw6_POP_idx;
static const void * /*SWITCH*/ sw6_POP[6] = { &&sw6_POP_1, &&sw6_POP_2, &&sw6_POP_3, &&sw6_POP_4, &&sw6_POP_5, &&sw6_POP_6,  };
#line 3189 "regression-compile-tmp/nrimp10s-77.imp"
static int sw7_TOP_idx;
static const void * /*SWITCH*/ sw7_TOP[4] = { &&sw7_TOP_1, &&sw7_TOP_2, &&sw7_TOP_3, &&sw7_TOP_4,  };
                                                                //   3190           ALT=A(P+1); P=P+2
#line 3190 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[(((int)(P)) + (1))];
#line 3190 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3191           OPCODE=CALL
#line 3191 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 30;
                                                                //   3192           ->SW(ALT)
#line 3192 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_idx = ALT; if ((1 <= sw4_SW_idx) && (sw4_SW_idx <= 5)) goto *(sw4_SW-1)[sw4_SW_idx];  /* Bounds=1:5 */ else {
   /*_imp_signal(8, 2, sw4_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:5 at %s:%d\n",
           sw4_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3193  SW(1):SW(2):
#line 3193 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_1:;
#line 3193 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_2:;
                                                                //   3194           FNAME=FROM AR2(P)
#line 3194 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2(P);
                                                                //   3195           COPY TAG(FNAME)
#line 3195 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAME);
                                                                //   3196           FAULT(33,FNAME) %UNLESS ROUT=NAM=0 %AND ARR=0 %AND PREC>4 %AND I=RBASE %AND TYPE#7
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
if ((((ROUT) != (NAM))) || (((NAM) != (0)))) goto L_02ce;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (0))) goto L_02ce;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) <= (4))) goto L_02ce;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (RBASE))) goto L_02ce;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (7))) goto L_02cf;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
L_02ce:;
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(33, FNAME);
#line 3196 "regression-compile-tmp/nrimp10s-77.imp"
L_02cf:;
                                                                //   3197           %IF ALT=1 %THEN PSF1(ST,1,K) %ELSE GET IN ACC(ACCR,BYTES(PREC)>>2,0,LNB,K)
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (1))) goto L_02d0;
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, K);
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02d1;
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
L_02d0:;
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), 0, 2, K);
#line 3197 "regression-compile-tmp/nrimp10s-77.imp"
L_02d1:;
                                                                //   3198           ->EXIT
#line 3198 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3199  SW(3):                                  ! PUT (HEX HALFWORD)
#line 3199 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_3:;
                                                                //   3200           TYPE=A(P)
#line 3200 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = A[P];
                                                                //   3201           PREC=TYPE>>4; TYPE=TYPE&7
#line 3201 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (int)((((unsigned int)(TYPE)) >> (4)));
#line 3201 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((TYPE) & (7));
                                                                //   3202           FAULT(32,0) %UNLESS TYPE=1 %AND PREC<6
#line 3202 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_02d2;
#line 3202 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) < (6))) goto L_02d3;
#line 3202 "regression-compile-tmp/nrimp10s-77.imp"
L_02d2:;
#line 3202 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3202 "regression-compile-tmp/nrimp10s-77.imp"
L_02d3:;
                                                                //   3203           %IF PREC=5 %THEN P=P+2
#line 3203 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (5))) goto L_02d4;
#line 3203 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3203 "regression-compile-tmp/nrimp10s-77.imp"
L_02d4:;
                                                                //   3204           PLANT(FROM AR2(P+1))
#line 3204 "regression-compile-tmp/nrimp10s-77.imp"
PLANT(FROMAR2((((int)(P)) + (1))));
                                                                //   3205           ->EXIT
#line 3205 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3206  SW(5):                                  ! CNOP
#line 3206 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_5:;
                                                                //   3207           CNOP(A(P),A(P+1))
#line 3207 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(A[P], A[(((int)(P)) + (1))]);
                                                                //   3208           ->EXIT
#line 3208 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3209  SW(4):                                  ! ASSEMBLER
#line 3209 "regression-compile-tmp/nrimp10s-77.imp"
sw4_SW_4:;
                                                                //   3210           FORM=A(P);                     ! FORM=PRIMARY,SECONDARY OR 3RY
#line 3210 "regression-compile-tmp/nrimp10s-77.imp"
FORM = A[P];
                                                                //   3211           OPCODE=A(P+1)
#line 3211 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = A[(((int)(P)) + (1))];
                                                                //   3212           P=P+2; ->F(FORM)
#line 3212 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3212 "regression-compile-tmp/nrimp10s-77.imp"
sw5_F_idx = FORM; if ((1 <= sw5_F_idx) && (sw5_F_idx <= 3)) goto *(sw5_F-1)[sw5_F_idx];  /* Bounds=1:3 */ else {
   /*_imp_signal(8, 2, sw5_F_idx);*/
   fprintf(stderr, "%%SWITCH index F(%d) not in range 1:3 at %s:%d\n",
           sw5_F_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3213  F(1):                                   ! ALL PRIMARY FORMAT INSTRUCTIONS
#line 3213 "regression-compile-tmp/nrimp10s-77.imp"
sw5_F_1:;
                                                                //   3214           ALT=A(P); P=P+1
#line 3214 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
#line 3214 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3215           ->POP(ALT)
#line 3215 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_idx = ALT; if ((1 <= sw6_POP_idx) && (sw6_POP_idx <= 6)) goto *(sw6_POP-1)[sw6_POP_idx];  /* Bounds=1:6 */ else {
   /*_imp_signal(8, 2, sw6_POP_idx);*/
   fprintf(stderr, "%%SWITCH index POP(%d) not in range 1:6 at %s:%d\n",
           sw6_POP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3216  POP(1):                                 ! LABELNAME
#line 3216 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_1:;
                                                                //   3217           FNAME=FROM AR2(P); P=P+2
#line 3217 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2(P);
#line 3217 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3218           ENTER JUMP(OPCODE<<24!3<<23,FNAME,0)
#line 3218 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(((((OPCODE) << (24))) | (((3) << (23)))), FNAME, 0);
                                                                //   3219           ->EXIT
#line 3219 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3220  POP(2):                                 ! DIRECT SYMBOLIC
#line 3220 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_2:;
                                                                //   3221           CIND
#line 3221 "regression-compile-tmp/nrimp10s-77.imp"
CIND();
                                                                //   3222  POPI:    PSORLF1(OPCODE,ACCESS,AREA,DISP)
#line 3222 "regression-compile-tmp/nrimp10s-77.imp"
U_1022:;
#line 3222 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(OPCODE, ACCESS, AREA, DISP);
                                                                //   3223           ->EXIT
#line 3223 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3224  POP(3):                                ! INDIRECT SYMBOLIC
#line 3224 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_3:;
                                                                //   3225           CIND
#line 3225 "regression-compile-tmp/nrimp10s-77.imp"
CIND();
                                                                //   3226           ACCESS=4-A(P); P=P+1
#line 3226 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((4) - ((int)(A[P])));
#line 3226 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3227           ->POPI
#line 3227 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
                                                                //   3228  POP(4):                                 ! DR SYMBOLICALLY MODIFIED
#line 3228 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_4:;
                                                                //   3229           CIND; ACCESS=1; ->POPI
#line 3229 "regression-compile-tmp/nrimp10s-77.imp"
CIND();
#line 3229 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 3229 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
                                                                //   3230  POP(5):                                 ! (DR) & (DR+B)
#line 3230 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_5:;
                                                                //   3231           ACCESS=4-A(P); AREA=7
#line 3231 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((4) - ((int)(A[P])));
#line 3231 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
                                                                //   3232           DISP=0; P=P+1
#line 3232 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 3232 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3233           ->POPI
#line 3233 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
                                                                //   3234  POP(6):                                 ! B
#line 3234 "regression-compile-tmp/nrimp10s-77.imp"
sw6_POP_6:;
                                                                //   3235           ACCESS=0
#line 3235 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   3236           AREA=7; DISP=0; ->POPI
#line 3236 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 3236 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 3236 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
                                                                //   3237  F(2):                                   ! SECONDARY (STORE-TO STORE)FORMAT
#line 3237 "regression-compile-tmp/nrimp10s-77.imp"
sw5_F_2:;
                                                                //   3238           MASK=0; FILLER=0; Q=0; FNAME=0
#line 3238 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 0;
#line 3238 "regression-compile-tmp/nrimp10s-77.imp"
FILLER = 0;
#line 3238 "regression-compile-tmp/nrimp10s-77.imp"
Q = 0;
#line 3238 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = 0;
                                                                //   3239           H=2-A(P)
#line 3239 "regression-compile-tmp/nrimp10s-77.imp"
H = ((2) - ((int)(A[P])));
                                                                //   3240           %IF H=0 %THEN FNAME=FROM AR2(P+1)-1 %AND P=P+2
#line 3240 "regression-compile-tmp/nrimp10s-77.imp"
if (((H) != (0))) goto L_02d5;
#line 3240 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = (((int)(FROMAR2((((int)(P)) + (1))))) - (1));
#line 3240 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3240 "regression-compile-tmp/nrimp10s-77.imp"
L_02d5:;
                                                                //   3241           FAULT(32,0) %UNLESS 0<=FNAME<=127
#line 3241 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (FNAME))) || (((FNAME) <= (127)))) goto L_02d7;
#line 3241 "regression-compile-tmp/nrimp10s-77.imp"
L_02d6:;
#line 3241 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3241 "regression-compile-tmp/nrimp10s-77.imp"
L_02d7:;
                                                                //   3242           ALT=A(P+1); P=P+2
#line 3242 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[(((int)(P)) + (1))];
#line 3242 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3243           %IF ALT=1 %THEN %START
#line 3243 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (1))) goto L_02d8;
                                                                //   3244              Q=1
#line 3244 "regression-compile-tmp/nrimp10s-77.imp"
Q = 1;
                                                                //   3245              MASK=FROM AR2(P)
#line 3245 "regression-compile-tmp/nrimp10s-77.imp"
MASK = FROMAR2(P);
                                                                //   3246              FILLER=FROM AR2(P+2)
#line 3246 "regression-compile-tmp/nrimp10s-77.imp"
FILLER = FROMAR2((((int)(P)) + (2)));
                                                                //   3247              P=P+4
#line 3247 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   3248              FAULT(32,0) %UNLESS 0<=MASK!FILLER<=255
#line 3248 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (((MASK) | (FILLER))))) || (((((MASK) | (FILLER))) <= (255)))) goto L_02d9;
#line 3248 "regression-compile-tmp/nrimp10s-77.imp"
L_02a7:;
#line 3248 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3248 "regression-compile-tmp/nrimp10s-77.imp"
L_02d9:;
                                                                //   3249           %FINISH
#line 3249 "regression-compile-tmp/nrimp10s-77.imp"
L_02d8:;
                                                                //   3250           PF2(OPCODE,H,Q,FNAME,MASK,FILLER)
#line 3250 "regression-compile-tmp/nrimp10s-77.imp"
PF2(OPCODE, H, Q, FNAME, MASK, FILLER);
                                                                //   3251           ->EXIT
#line 3251 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3252  F(3):                                   ! TERTIARY FORMAT
#line 3252 "regression-compile-tmp/nrimp10s-77.imp"
sw5_F_3:;
                                                                //   3253           MASK=FROM AR2(P)
#line 3253 "regression-compile-tmp/nrimp10s-77.imp"
MASK = FROMAR2(P);
                                                                //   3254           ALT=A(P+2)
#line 3254 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[(((int)(P)) + (2))];
                                                                //   3255           FAULT(32,0) %UNLESS 0<=MASK<=15
#line 3255 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (MASK))) || (((MASK) <= (15)))) goto L_02db;
#line 3255 "regression-compile-tmp/nrimp10s-77.imp"
L_02da:;
#line 3255 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3255 "regression-compile-tmp/nrimp10s-77.imp"
L_02db:;
                                                                //   3256           P=P+3; ->TOP(ALT)
#line 3256 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3256 "regression-compile-tmp/nrimp10s-77.imp"
sw7_TOP_idx = ALT; if ((1 <= sw7_TOP_idx) && (sw7_TOP_idx <= 4)) goto *(sw7_TOP-1)[sw7_TOP_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw7_TOP_idx);*/
   fprintf(stderr, "%%SWITCH index TOP(%d) not in range 1:4 at %s:%d\n",
           sw7_TOP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3257  TOP(1):                                 ! LABEL
#line 3257 "regression-compile-tmp/nrimp10s-77.imp"
sw7_TOP_1:;
                                                                //   3258           FNAME=FROM AR2(P); P=P+2
#line 3258 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2(P);
#line 3258 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3259           ENTER JUMP(OPCODE<<24!MASK<<21,FNAME,0)
#line 3259 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(((((OPCODE) << (24))) | (((MASK) << (21)))), FNAME, 0);
                                                                //   3260           ->EXIT
#line 3260 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3261  TOP(2):                                 ! SYMBOLIC OPERAND
#line 3261 "regression-compile-tmp/nrimp10s-77.imp"
sw7_TOP_2:;
                                                                //   3262           CIND
#line 3262 "regression-compile-tmp/nrimp10s-77.imp"
CIND();
                                                                //   3263           FAULT(32,0) %IF AREA>=6
#line 3263 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) < (6))) goto L_02dc;
#line 3263 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3263 "regression-compile-tmp/nrimp10s-77.imp"
L_02dc:;
                                                                //   3264           %IF AREA=LNB %OR AREA=XNB %OR AREA=CTB %THEN DISP=DISP//4
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (2))) goto L_02dd;
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (3))) goto L_02dd;
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (5))) goto L_02de;
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
L_02dd:;
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (long)((long)((int)(DISP)) / (long)((int)(4)));
#line 3264 "regression-compile-tmp/nrimp10s-77.imp"
L_02de:;
                                                                //   3265  TOPI:    PF3(OPCODE,MASK,AREA,DISP)
#line 3265 "regression-compile-tmp/nrimp10s-77.imp"
U_1023:;
#line 3265 "regression-compile-tmp/nrimp10s-77.imp"
PF3(OPCODE, MASK, AREA, DISP);
                                                                //   3266           ->EXIT
#line 3266 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
                                                                //   3267  TOP(3):                                 ! (DR) & (DR+B)
#line 3267 "regression-compile-tmp/nrimp10s-77.imp"
sw7_TOP_3:;
                                                                //   3268           DISP=0; AREA=8-A(P)
#line 3268 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 3268 "regression-compile-tmp/nrimp10s-77.imp"
AREA = ((8) - ((int)(A[P])));
                                                                //   3269           P=P+1; ->TOPI
#line 3269 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3269 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1023;
                                                                //   3270  TOP(4):                                 ! (DR+N)
#line 3270 "regression-compile-tmp/nrimp10s-77.imp"
sw7_TOP_4:;
                                                                //   3271           DISP=FROM AR2(P); P=P+2
#line 3271 "regression-compile-tmp/nrimp10s-77.imp"
DISP = FROMAR2(P);
#line 3271 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3272           AREA=1; ->TOPI
#line 3272 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 1;
#line 3272 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1023;
                                                                //   3273           %ROUTINE CIND          
#line 3273 "regression-compile-tmp/nrimp10s-77.imp"
void CIND( void )
#line 3273 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3274  !***********************************************************************
                                                                //   3275  !*       COMPILE A SYMBOLIC OPERAND BY SETTING ACCESS,AREA &DISP       *
                                                                //   3276  !***********************************************************************
                                                                //   3277  %INTEGER ALT,AFN,FN0,FN1,FN2,FN3,JJ,D,CTYPE,CPREC
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int AFN;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int FN0;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int FN1;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int FN2;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int FN3;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int CTYPE;
#line 3277 "regression-compile-tmp/nrimp10s-77.imp"
int CPREC;
                                                                //   3278  %SWITCH SW(1:4)
#line 3278 "regression-compile-tmp/nrimp10s-77.imp"
static int sw8_SW_idx;
static const void * /*SWITCH*/ sw8_SW[4] = { &&sw8_SW_1, &&sw8_SW_2, &&sw8_SW_3, &&sw8_SW_4,  };
                                                                //   3279        AFN=ADDR(FN0)
#line 3279 "regression-compile-tmp/nrimp10s-77.imp"
AFN = _imp_ADDR(&FN0);
                                                                //   3280           ALT=A(P); ACCESS=0
#line 3280 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
#line 3280 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   3281           P=P+1; ->SW(ALT)
#line 3281 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3281 "regression-compile-tmp/nrimp10s-77.imp"
sw8_SW_idx = ALT; if ((1 <= sw8_SW_idx) && (sw8_SW_idx <= 4)) goto *(sw8_SW-1)[sw8_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw8_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw8_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3282  SW(1):                                  ! (=')(PLUS')(ICONST)
#line 3282 "regression-compile-tmp/nrimp10s-77.imp"
sw8_SW_1:;
                                                                //   3283           P=P+1;                         ! PAST (=')
#line 3283 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3284           D=A(P); CTYPE=A(P+1)
#line 3284 "regression-compile-tmp/nrimp10s-77.imp"
D = A[P];
#line 3284 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = A[(((int)(P)) + (1))];
                                                                //   3285           CPREC=CTYPE>>4; CTYPE=CTYPE&7
#line 3285 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = (int)((((unsigned int)(CTYPE)) >> (4)));
#line 3285 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = ((CTYPE) & (7));
                                                                //   3286           %IF CPREC=4 %THEN FN0=FROM AR2(P+2) %ELSE %START
#line 3286 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (4))) goto L_02df;
#line 3286 "regression-compile-tmp/nrimp10s-77.imp"
FN0 = FROMAR2((((int)(P)) + (2)));
#line 3286 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02e0;
#line 3286 "regression-compile-tmp/nrimp10s-77.imp"
L_02df:;
                                                                //   3287              %CYCLE JJ=0,1,BYTES(CPREC)-1
#line 3287 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(BYTES[CPREC])) - (1)); JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, (((int)(BYTES[CPREC])) - (1))");
JJ -= _increment; _control -= _increment;
L_02e1:;
if (JJ == _final) goto L_02e2;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //   3288                 BYTEINTEGER(AFN+JJ)=A(P+JJ+2)
#line 3288 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(AFN)) + (JJ))) = A[(((int)((((int)(P)) + (JJ)))) + (2))];
                                                                //   3289              %REPEAT
#line 3289 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02e1;
#line 3289 "regression-compile-tmp/nrimp10s-77.imp"
L_02e2:;
                                                                //   3290           %FINISH
#line 3290 "regression-compile-tmp/nrimp10s-77.imp"
L_02e0:;
                                                                //   3291           P=P+2+BYTES(CPREC)
#line 3291 "regression-compile-tmp/nrimp10s-77.imp"
P = (((unsigned char)((((int)(P)) + (2)))) + (BYTES[CPREC]));
                                                                //   3292           %IF D=2 %THEN %START
#line 3292 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (2))) goto L_02e4;
                                                                //   3293              %IF CTYPE=2 %THEN FN0=FN0!!16_80000000 %ELSE %START
#line 3293 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (2))) goto L_02e5;
#line 3293 "regression-compile-tmp/nrimp10s-77.imp"
FN0 = ((FN0) ^ ((-2147483648)));
#line 3293 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02e6;
#line 3293 "regression-compile-tmp/nrimp10s-77.imp"
L_02e5:;
                                                                //   3294                 %IF CPREC=6 %THEN LONGINTEGER(AFN)=-LONGINTEGER(AFN) %ELSE FN0=-FN0
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (6))) goto L_02e7;
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_LONGINTEGER(AFN) = (-(*_imp_LONGINTEGER(AFN)));
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02e8;
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
L_02e7:;
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
FN0 = (-(FN0));
#line 3294 "regression-compile-tmp/nrimp10s-77.imp"
L_02e8:;
                                                                //   3295              %FINISH
#line 3295 "regression-compile-tmp/nrimp10s-77.imp"
L_02e6:;
                                                                //   3296           %FINISH
#line 3296 "regression-compile-tmp/nrimp10s-77.imp"
L_02e4:;
                                                                //   3297  CNST:    ->LIT %UNLESS CTYPE=1 %AND CPREC<=5 %AND 16_FFFE0000<=FN0<=16_1FFFF
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
U_1024:;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (1))) goto L_02e9;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) > (5))) goto L_02e9;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-131072)) > (FN0))) || (((FN0) <= (131071)))) goto L_02ea;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
L_02e9:;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1025;
#line 3297 "regression-compile-tmp/nrimp10s-77.imp"
L_02ea:;
                                                                //   3298           AREA=0; DISP=FN0
#line 3298 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
#line 3298 "regression-compile-tmp/nrimp10s-77.imp"
DISP = FN0;
                                                                //   3299           %RETURN
#line 3299 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3300  LIT:     FAULT(32,0) %UNLESS 1<=CTYPE<=2 %AND 5<=CPREC<=7
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
U_1025:;
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (CTYPE))) || (((CTYPE) > (2)))) goto L_02eb;
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
if ((((5) > (CPREC))) || (((CPREC) <= (7)))) goto L_02ec;
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
L_02eb:;
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3300 "regression-compile-tmp/nrimp10s-77.imp"
L_02ec:;
                                                                //   3301           STORE CONST(DISP,BYTES(CPREC),AFN)
#line 3301 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&DISP, BYTES[CPREC], AFN);
                                                                //   3302           AREA=PC; ACCESS=0
#line 3302 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
#line 3302 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   3303           %RETURN
#line 3303 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3304  SW(2):                                  ! (NAME)(OPTINC)
#line 3304 "regression-compile-tmp/nrimp10s-77.imp"
sw8_SW_2:;
                                                                //   3305           FN0=FROM AR2(P); P=P+2
#line 3305 "regression-compile-tmp/nrimp10s-77.imp"
FN0 = FROMAR2(P);
#line 3305 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3306           COPY TAG(FN0)
#line 3306 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FN0);
                                                                //   3307           %IF (LITL=1 %AND ARR=0) %START
#line 3307 "regression-compile-tmp/nrimp10s-77.imp"
if (((LITL) != (1))) goto L_02ed;
#line 3307 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (0))) goto L_02ed;
                                                                //   3308              CTYPE=TYPE; CPREC=PREC
#line 3308 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = TYPE;
#line 3308 "regression-compile-tmp/nrimp10s-77.imp"
CPREC = PREC;
                                                                //   3309              ALT=TAGS(FN0)
#line 3309 "regression-compile-tmp/nrimp10s-77.imp"
ALT = TAGS[FN0];
                                                                //   3310              FROM123(ALT,D,FN0,FN1)
#line 3310 "regression-compile-tmp/nrimp10s-77.imp"
FROM123(ALT, &D, &FN0, &FN1);
                                                                //   3311              %IF CPREC=7 %THEN AFN=FN1
#line 3311 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPREC) != (7))) goto L_02ee;
#line 3311 "regression-compile-tmp/nrimp10s-77.imp"
AFN = FN1;
#line 3311 "regression-compile-tmp/nrimp10s-77.imp"
L_02ee:;
                                                                //   3312              ->CNST
#line 3312 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   3313           %FINISH
#line 3313 "regression-compile-tmp/nrimp10s-77.imp"
L_02ed:;
                                                                //   3314           %IF TYPE>=6 %OR TYPE=4 %OR (ROUT=1 %AND NAM=0) %THEN FAULT(33,FN0) %AND %RETURN
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) >= (6))) goto L_02ef;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (4))) goto L_02ef;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_02f0;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_02f0;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
L_02ef:;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(33, FN0);
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 3314 "regression-compile-tmp/nrimp10s-77.imp"
L_02f0:;
                                                                //   3315           %IF ROUT=1 %THEN K=FROM1(K)
#line 3315 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_02f1;
#line 3315 "regression-compile-tmp/nrimp10s-77.imp"
K = FROM1(K);
#line 3315 "regression-compile-tmp/nrimp10s-77.imp"
L_02f1:;
                                                                //   3316           AREA=LNB
#line 3316 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
                                                                //   3317           %IF I#RBASE %THEN AREA=SET XORYNB(XNB,I)
#line 3317 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (RBASE))) goto L_02f2;
#line 3317 "regression-compile-tmp/nrimp10s-77.imp"
AREA = SETXORYNB(3, I);
#line 3317 "regression-compile-tmp/nrimp10s-77.imp"
L_02f2:;
                                                                //   3318           ALT=A(P); D=FROM AR2(P+1)
#line 3318 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
#line 3318 "regression-compile-tmp/nrimp10s-77.imp"
D = FROMAR2((((int)(P)) + (1)));
                                                                //   3319           %IF ALT=1 %THEN K=K+D
#line 3319 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (1))) goto L_02f3;
#line 3319 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) + (D));
#line 3319 "regression-compile-tmp/nrimp10s-77.imp"
L_02f3:;
                                                                //   3320           %IF ALT=2 %THEN K=K-D
#line 3320 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (2))) goto L_02f4;
#line 3320 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) - (D));
#line 3320 "regression-compile-tmp/nrimp10s-77.imp"
L_02f4:;
                                                                //   3321           P=P+1; P=P+2 %IF ALT<=2
#line 3321 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3321 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) > (2))) goto L_02f5;
#line 3321 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3321 "regression-compile-tmp/nrimp10s-77.imp"
L_02f5:;
                                                                //   3322           DISP=K; %RETURN
#line 3322 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
#line 3322 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3323  SW(3):                                  ! '('(REG)(OPTINC)')'
#line 3323 "regression-compile-tmp/nrimp10s-77.imp"
sw8_SW_3:;
                                                                //   3324           AREA=A(P)+1; ALT=A(P+1); P=P+2
#line 3324 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (((int)(A[P])) + (1));
#line 3324 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[(((int)(P)) + (1))];
#line 3324 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3325           DISP=0
#line 3325 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   3326           D=FROM AR2(P)
#line 3326 "regression-compile-tmp/nrimp10s-77.imp"
D = FROMAR2(P);
                                                                //   3327           %IF ALT=1 %THEN DISP=D
#line 3327 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (1))) goto L_02f6;
#line 3327 "regression-compile-tmp/nrimp10s-77.imp"
DISP = D;
#line 3327 "regression-compile-tmp/nrimp10s-77.imp"
L_02f6:;
                                                                //   3328           %IF ALT=2 %THEN FAULT(32,0)
#line 3328 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (2))) goto L_02f7;
#line 3328 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(32, 0);
#line 3328 "regression-compile-tmp/nrimp10s-77.imp"
L_02f7:;
                                                                //   3329           %IF AREA=PC %THEN DISP=CA+2*DISP %ELSE DISP=4*DISP
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (4))) goto L_02f8;
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
DISP = ((CA) + ((int)((((int)(2)) * (DISP)))));
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
goto L_02f9;
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
L_02f8:;
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(4)) * (DISP));
#line 3329 "regression-compile-tmp/nrimp10s-77.imp"
L_02f9:;
                                                                //   3330           P=P+2 %UNLESS ALT=3
#line 3330 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) == (3))) goto L_02fa;
#line 3330 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3330 "regression-compile-tmp/nrimp10s-77.imp"
L_02fa:;
                                                                //   3331           %RETURN
#line 3331 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3332  SW(4):                                  ! '%TOS'
#line 3332 "regression-compile-tmp/nrimp10s-77.imp"
sw8_SW_4:;
                                                                //   3333           AREA=6; DISP=0
#line 3333 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 6;
#line 3333 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   3334  %END
#line 3334 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CIND at level 6
                                                                //   3335  EXIT:    GRUSE(ACCR)=0
#line 3335 "regression-compile-tmp/nrimp10s-77.imp"
U_1021:;
#line 3335 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   3336           GRUSE(DR)=0
#line 3336 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   3337           GRUSE(BREG)=0
#line 3337 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   3338           GRUSE(XNB)=0 %IF OPCODE=CALL %OR OPCODE=LXN %OR OPCODE=JLK %OR OPCODE=OUT
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (30))) goto L_02fb;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (126))) goto L_02fb;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (28))) goto L_02fb;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) != (60))) goto L_02fc;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
L_02fb:;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[3] = 0;
#line 3338 "regression-compile-tmp/nrimp10s-77.imp"
L_02fc:;
                                                                //   3339           GRUSE(CTB)=0 %IF OPCODE=CALL %OR OPCODE=LCT %OR OPCODE=JLK %OR OPCODE=OUT
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (30))) goto L_02fd;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (48))) goto L_02fd;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) == (28))) goto L_02fd;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPCODE) != (60))) goto L_02fe;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
L_02fd:;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[5] = 0;
#line 3339 "regression-compile-tmp/nrimp10s-77.imp"
L_02fe:;
                                                                //   3340  %END
#line 3340 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_12_LEVEL_4_ at level 5
_BLOCK_12_LEVEL_4_();
                                                                //   3341           ->CSSEXIT
#line 3341 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   3342  SW(20):
#line 3342 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_20:;
                                                                //   3343                                          ! '%TRUSTEDPROGRAM'
                                                                //   3344           COMPILER=1 %IF PARMARR=0 %AND PARMCHK=0; ->CSSEXIT
#line 3344 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) != (0))) goto L_02ff;
#line 3344 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_02ff;
#line 3344 "regression-compile-tmp/nrimp10s-77.imp"
COMPILER = 1;
#line 3344 "regression-compile-tmp/nrimp10s-77.imp"
L_02ff:;
#line 3344 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   3345  SW(21):                                 ! '%MAINEP'(NAME)
#line 3345 "regression-compile-tmp/nrimp10s-77.imp"
sw2_SW_21:;
                                                                //   3346           KK=FROM AR2(P+1)
#line 3346 "regression-compile-tmp/nrimp10s-77.imp"
KK = FROMAR2((((int)(P)) + (1)));
                                                                //   3347           FAULT(58,0) %UNLESS CPRMODE=0
#line 3347 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) == (0))) goto L_0300;
#line 3347 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(58, 0);
#line 3347 "regression-compile-tmp/nrimp10s-77.imp"
L_0300:;
                                                                //   3348           MAINEP<-STRING(DICTBASE+WORD(KK))
#line 3348 "regression-compile-tmp/nrimp10s-77.imp"
MAINEP = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK])));
                                                                //   3349           ->CSSEXIT
#line 3349 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1015;
                                                                //   3350           %ROUTINE CRFORMAT(%INTEGERNAME OPHEAD)
#line 3350 "regression-compile-tmp/nrimp10s-77.imp"
void CRFORMAT( int /*name*/*OPHEAD )
#line 3350 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3351  !***********************************************************************
                                                                //   3352  !*       CONVERTS A RECORDFORMAT STATEMENT TO A LIST HEADED BY OPHEAD  *
                                                                //   3353  !*       FORMAT OF AN ENTRY.                                           *
                                                                //   3354  !*       S1=SUBNAME<<20!PTYPE<<4!J                                     *
                                                                //   3355  !*       S2,S3=4  16 BIT DISPLACEMENTS  D2,ACC,D1,KFORM                *
                                                                //   3356  !*       NORMALLY D1=RECORD RELATIVE DISPLACEMENT AND ACC=LMAX(STRINGS)*
                                                                //   3357  !*       FOR ARRAYS D2=FIRST ELEMENT DISPLACEMENT AND D1=DISPLACEMENT  *
                                                                //   3358  !*       OF RECORD RELATIVE ARRAYHEAD IN THE GLA                       *
                                                                //   3359  !*       KFORM IS ONLY USED FOR RECORDS AND POINTS TO THE FORMAT       *
                                                                //   3360  !*       ON EXIT ACC HAS THE RECORD SIZE ROUNDED UP TO THE BOUNDARY    *
                                                                //   3361  !*       REQUIRED BY ITS LARGEST COMPONENT                             *
                                                                //   3362  !***********************************************************************
                                                                //   3363  %INTEGER D1,D2,NLIST,FORM,RL,MRL,UNSCAL,SC,DESC,FN,INC,Q,R,A0,A1,A2,DV,RFD,LB,OB,TYPEP,SACC
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int D1;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int D2;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int NLIST;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int FORM;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int RL;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int MRL;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int UNSCAL;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int SC;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int DESC;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int FN;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int INC;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int R;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int A0;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int A1;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int A2;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int DV;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int RFD;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int LB;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int OB;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 3363 "regression-compile-tmp/nrimp10s-77.imp"
int SACC;
                                                                //   3364  %SWITCH RFEL(1:5)
#line 3364 "regression-compile-tmp/nrimp10s-77.imp"
static int sw9_RFEL_idx;
static const void * /*SWITCH*/ sw9_RFEL[5] = { &&sw9_RFEL_1, &&sw9_RFEL_2, &&sw9_RFEL_3, &&sw9_RFEL_4, &&sw9_RFEL_5,  };
                                                                //   3365  %ROUTINESPEC SN(%INTEGER Q)
#line 3365 "regression-compile-tmp/nrimp10s-77.imp"
auto void SN( int Q );
                                                                //   3366  %ROUTINESPEC ROUND
#line 3366 "regression-compile-tmp/nrimp10s-77.imp"
auto void ROUND( void );
                                                                //   3367           NLIST=0; OPHEAD=0; FORM=0; ACC=0; OB=0
#line 3367 "regression-compile-tmp/nrimp10s-77.imp"
NLIST = 0;
#line 3367 "regression-compile-tmp/nrimp10s-77.imp"
*OPHEAD = 0;
#line 3367 "regression-compile-tmp/nrimp10s-77.imp"
FORM = 0;
#line 3367 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 0;
#line 3367 "regression-compile-tmp/nrimp10s-77.imp"
OB = 0;
                                                                //   3368           MRL=0; INC=0;                 ! INC COUNTS DOWN RECORD
#line 3368 "regression-compile-tmp/nrimp10s-77.imp"
MRL = 0;
#line 3368 "regression-compile-tmp/nrimp10s-77.imp"
INC = 0;
                                                                //   3369  NEXT:    ROUT=0; LITL=0; NAM=0; RFD=A(P)
#line 3369 "regression-compile-tmp/nrimp10s-77.imp"
U_1026:;
#line 3369 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 3369 "regression-compile-tmp/nrimp10s-77.imp"
LITL = 0;
#line 3369 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
#line 3369 "regression-compile-tmp/nrimp10s-77.imp"
RFD = A[P];
                                                                //   3370           %IF RFD<=2 %THEN P=P+1 %AND CLT
#line 3370 "regression-compile-tmp/nrimp10s-77.imp"
if (((RFD) > (2))) goto L_0301;
#line 3370 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3370 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
#line 3370 "regression-compile-tmp/nrimp10s-77.imp"
L_0301:;
                                                                //   3371           ->RFEL(RFD)
#line 3371 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_idx = RFD; if ((1 <= sw9_RFEL_idx) && (sw9_RFEL_idx <= 5)) goto *(sw9_RFEL-1)[sw9_RFEL_idx];  /* Bounds=1:5 */ else {
   /*_imp_signal(8, 2, sw9_RFEL_idx);*/
   fprintf(stderr, "%%SWITCH index RFEL(%d) not in range 1:5 at %s:%d\n",
           sw9_RFEL_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3372  RFEL(1):                               ! (TYPE) (QNAME')(NAMELIST)
#line 3372 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_1:;
                                                                //   3373           CQN(P); P=P+1
#line 3373 "regression-compile-tmp/nrimp10s-77.imp"
CQN(P);
#line 3373 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3374           PACK(PTYPE); D2=0
#line 3374 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
#line 3374 "regression-compile-tmp/nrimp10s-77.imp"
D2 = 0;
                                                                //   3375           RL=3
#line 3375 "regression-compile-tmp/nrimp10s-77.imp"
RL = 3;
                                                                //   3376           %IF NAM=0 %AND 3<=PREC<=4 %THEN RL=PREC-3
#line 3376 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_0302;
#line 3376 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (PREC))) || (((PREC) > (4)))) goto L_0302;
#line 3376 "regression-compile-tmp/nrimp10s-77.imp"
RL = (((int)(PREC)) - (3));
#line 3376 "regression-compile-tmp/nrimp10s-77.imp"
L_0302:;
                                                                //   3377  AGN:     ROUND ; J=0
#line 3377 "regression-compile-tmp/nrimp10s-77.imp"
U_1024:;
#line 3377 "regression-compile-tmp/nrimp10s-77.imp"
ROUND();
#line 3377 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
                                                                //   3378           {%UNTIL A(P-1)=2} %CYCLE
#line 3378 "regression-compile-tmp/nrimp10s-77.imp"
L_0303:;
                                                                //   3379              D1=INC; SN(P)
#line 3379 "regression-compile-tmp/nrimp10s-77.imp"
D1 = INC;
#line 3379 "regression-compile-tmp/nrimp10s-77.imp"
SN(P);
                                                                //   3380              P=P+3; INC=INC+ACC
#line 3380 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3380 "regression-compile-tmp/nrimp10s-77.imp"
INC = (((int)(INC)) + (ACC));
                                                                //   3381           %REPEAT %UNTIL A(P-1)=2
#line 3381 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_0304;
#line 3381 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0303;
#line 3381 "regression-compile-tmp/nrimp10s-77.imp"
L_0304:;
                                                                //   3382           P=P+RFD>>2<<1;                ! EXTRA  2 FOR RECORDS TO SKIP FORMAT
#line 3382 "regression-compile-tmp/nrimp10s-77.imp"
P = ((P) + ((int)((((int)((((unsigned int)(RFD)) >> (2)))) << (1)))));
                                                                //   3383  TRY END: -> END %IF A(P)=2
#line 3383 "regression-compile-tmp/nrimp10s-77.imp"
U_1025:;
#line 3383 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0306;
#line 3383 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
#line 3383 "regression-compile-tmp/nrimp10s-77.imp"
L_0306:;
                                                                //   3384           P=P+1; -> NEXT
#line 3384 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3384 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1026;
                                                                //   3385  RFEL(2):RFEL2:                         ! (TYPE)%ARRAY(NAMELIST)(BPAIR)
#line 3385 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_2:;
#line 3385 "regression-compile-tmp/nrimp10s-77.imp"
U_1028:;
                                                                //   3386           Q=P; ARR=1; PACK(PTYPE)
#line 3386 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
#line 3386 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 1;
#line 3386 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
                                                                //   3387           %IF TYPE<=2 %THEN UNSCAL=0 %AND SC=PREC %ELSE UNSCAL=1 %AND SC=3
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0307;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 0;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
SC = PREC;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0308;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
L_0307:;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 1;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
SC = 3;
#line 3387 "regression-compile-tmp/nrimp10s-77.imp"
L_0308:;
                                                                //   3388           %IF PREC=4 %THEN DESC=16_58000002 %ELSE DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_0309;
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
DESC = 1476395010;
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
goto L_030a;
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
L_0309:;
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
DESC = ((((((SC) << (27))) | (((UNSCAL) << (25))))) | ((((((int)(1)) - (PARMARR))) << (24))));
#line 3388 "regression-compile-tmp/nrimp10s-77.imp"
L_030a:;
                                                                //   3389           {%UNTIL A(P-1)=2} %CYCLE;       ! UNTIL <RESTOFARRAYLIST> NULL
#line 3389 "regression-compile-tmp/nrimp10s-77.imp"
L_030b:;
                                                                //   3390              P=P+3 %UNTIL A(P-1)=2
#line 3390 "regression-compile-tmp/nrimp10s-77.imp"
L_030e:;
#line 3390 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3390 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_030f;
#line 3390 "regression-compile-tmp/nrimp10s-77.imp"
goto L_030e;
#line 3390 "regression-compile-tmp/nrimp10s-77.imp"
L_030f:;
                                                                //   3391  
                                                                //   3392              TYPEP=PTYPE; SACC=ACC
#line 3392 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = PTYPE;
#line 3392 "regression-compile-tmp/nrimp10s-77.imp"
SACC = ACC;
                                                                //   3393              DV=DOPE VECTOR(TYPE,ACC,0,FROMAR2(Q),R,LB)+12
#line 3393 "regression-compile-tmp/nrimp10s-77.imp"
DV = (((int)(DOPEVECTOR(TYPE, ACC, 0, FROMAR2(Q), &R, &LB))) + (12));
                                                                //   3394                                          ! DOPE VECTOR INTO SHAREABLE S.T.
                                                                //   3395              ACC=SACC; PTYPE=TYPEP; UNPACK
#line 3395 "regression-compile-tmp/nrimp10s-77.imp"
ACC = SACC;
#line 3395 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TYPEP;
#line 3395 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   3396              %IF TYPE=5 %OR (TYPE=1 %AND PREC=3) %THEN RL=0 %ELSE RL=3
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_0310;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_0311;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (3))) goto L_0311;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
L_0310:;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
RL = 0;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0312;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
L_0311:;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
RL = 3;
#line 3396 "regression-compile-tmp/nrimp10s-77.imp"
L_0312:;
                                                                //   3397              ROUND
#line 3397 "regression-compile-tmp/nrimp10s-77.imp"
ROUND();
                                                                //   3398              {%UNTIL A(Q-1)=2} %CYCLE;       ! HEAD  INTO GLA FOR EACH ARRAY
#line 3398 "regression-compile-tmp/nrimp10s-77.imp"
L_0313:;
                                                                //   3399                 A0=R; %IF UNSCAL=0 %THEN A0=A0//ACC
#line 3399 "regression-compile-tmp/nrimp10s-77.imp"
A0 = R;
#line 3399 "regression-compile-tmp/nrimp10s-77.imp"
if (((UNSCAL) != (0))) goto L_0316;
#line 3399 "regression-compile-tmp/nrimp10s-77.imp"
A0 = (long)((long)((int)(A0)) / (long)((int)(_Z(ACC))));
#line 3399 "regression-compile-tmp/nrimp10s-77.imp"
L_0316:;
                                                                //   3400                 %IF PREC=4 %THEN A0=0;   ! STRING DESCRIPTORS !
#line 3400 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_0317;
#line 3400 "regression-compile-tmp/nrimp10s-77.imp"
A0 = 0;
#line 3400 "regression-compile-tmp/nrimp10s-77.imp"
L_0317:;
                                                                //   3401                 A0=A0!DESC; A1=INC
#line 3401 "regression-compile-tmp/nrimp10s-77.imp"
A0 = ((A0) | (DESC));
#line 3401 "regression-compile-tmp/nrimp10s-77.imp"
A1 = INC;
                                                                //   3402                 %IF TYPE<=3  %AND PARMARR=0=PARMCHK %AND J=1 %THEN A1=A1-LB*ACC
#line 3402 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (3))) goto L_0318;
#line 3402 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_0318;
#line 3402 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (1))) goto L_0318;
#line 3402 "regression-compile-tmp/nrimp10s-77.imp"
A1 = ((A1) - ((int)((((int)(LB)) * (ACC)))));
#line 3402 "regression-compile-tmp/nrimp10s-77.imp"
L_0318:;
                                                                //   3403                 A2=5<<27!3*J
#line 3403 "regression-compile-tmp/nrimp10s-77.imp"
A2 = ((((5) << (27))) | ((((int)(3)) * (J))));
                                                                //   3404                 PGLA(4,16,ADDR(A0))
#line 3404 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(4, 16, _imp_ADDR(&A0));
                                                                //   3405                 D1=GLACA-16
#line 3405 "regression-compile-tmp/nrimp10s-77.imp"
D1 = (((int)(GLACA)) - (16));
                                                                //   3406                 RELOCATE(D1+12,DV,1);    ! RELOCATE DV POINTER
#line 3406 "regression-compile-tmp/nrimp10s-77.imp"
RELOCATE((((int)(D1)) + (12)), DV, 1);
                                                                //   3407                 NOTE CREF(16_80000000!(DV<<1>>3)!(D1+12)>>2<<16, (DV&16_FFFF)<<2)
#line 3407 "regression-compile-tmp/nrimp10s-77.imp"
NOTECREF((((((-2147483648)) | (((((((DV) << (1)))) >> (3)))))) | ((((((((((int)(D1)) + (12)))) >> (2)))) << (16)))), ((((DV) & (65535))) << (2)));
                                                                //   3408                 D2=INC
#line 3408 "regression-compile-tmp/nrimp10s-77.imp"
D2 = INC;
                                                                //   3409                 SN(Q); INC=INC+R
#line 3409 "regression-compile-tmp/nrimp10s-77.imp"
SN(Q);
#line 3409 "regression-compile-tmp/nrimp10s-77.imp"
INC = (((int)(INC)) + (R));
                                                                //   3410                 Q=Q+3
#line 3410 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (3));
                                                                //   3411              %REPEAT %UNTIL A(Q-1)=2;       ! HEAD  INTO GLA FOR EACH ARRAY
#line 3411 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(Q)) - (1))]) == (2))) goto L_0314;
#line 3411 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0313;
#line 3411 "regression-compile-tmp/nrimp10s-77.imp"
L_0314:;
                                                                //   3412              P=P+1; Q=P
#line 3412 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3412 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
                                                                //   3413           %REPEAT %UNTIL A(P-1)=2
#line 3413 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_030c;
#line 3413 "regression-compile-tmp/nrimp10s-77.imp"
goto L_030b;
#line 3413 "regression-compile-tmp/nrimp10s-77.imp"
L_030c:;
                                                                //   3414           P=P+2 %IF RFD=5
#line 3414 "regression-compile-tmp/nrimp10s-77.imp"
if (((RFD) != (5))) goto L_0319;
#line 3414 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3414 "regression-compile-tmp/nrimp10s-77.imp"
L_0319:;
                                                                //   3415           -> TRY END
#line 3415 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1025;
                                                                //   3416  RFEL(3):                               ! %RECORD (%ARRAY) %NAME
#line 3416 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_3:;
                                                                //   3417           TYPE=3; PREC=3; NAM=1
#line 3417 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 3;
#line 3417 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 3;
#line 3417 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
                                                                //   3418           ARR=2-A(P+1); P=P+2
#line 3418 "regression-compile-tmp/nrimp10s-77.imp"
ARR = ((2) - ((int)(A[(((int)(P)) + (1))])));
#line 3418 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3419           PACK(PTYPE); D2=0
#line 3419 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
#line 3419 "regression-compile-tmp/nrimp10s-77.imp"
D2 = 0;
                                                                //   3420           RL=3; ACC=8+8*ARR
#line 3420 "regression-compile-tmp/nrimp10s-77.imp"
RL = 3;
#line 3420 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((8) + ((int)((((int)(8)) * (ARR)))));
                                                                //   3421           FORM=0
#line 3421 "regression-compile-tmp/nrimp10s-77.imp"
FORM = 0;
                                                                //   3422           ->AGN
#line 3422 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   3423  RFEL(4):                               ! RECORDS IN RECORDS
#line 3423 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_4:;
                                                                //   3424  RFEL(5):                                ! RECORDARRAYS IN RECORDS
#line 3424 "regression-compile-tmp/nrimp10s-77.imp"
sw9_RFEL_5:;
                                                                //   3425           Q=P+FROM AR2(P+1)+1
#line 3425 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)((((int)(P)) + (FROMAR2((((int)(P)) + (1))))))) + (1));
                                                                //   3426           FN=FROM AR2(Q)
#line 3426 "regression-compile-tmp/nrimp10s-77.imp"
FN = FROMAR2(Q);
                                                                //   3427           COPY TAG(FN);               ! COPY FORMAT TAG & SET ACC
#line 3427 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FN);
                                                                //   3428           FAULT(62,FN) %UNLESS PTYPE=4
#line 3428 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) == (4))) goto L_031a;
#line 3428 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(62, FN);
#line 3428 "regression-compile-tmp/nrimp10s-77.imp"
L_031a:;
                                                                //   3429           TYPE=3; PREC=3; FORM=TCELL
#line 3429 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 3;
#line 3429 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 3;
#line 3429 "regression-compile-tmp/nrimp10s-77.imp"
FORM = TCELL;
                                                                //   3430           %IF RFD=4 %THEN %START
#line 3430 "regression-compile-tmp/nrimp10s-77.imp"
if (((RFD) != (4))) goto L_031b;
                                                                //   3431              PTYPE=16_33; P=P+3; D2=0
#line 3431 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 51;
#line 3431 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3431 "regression-compile-tmp/nrimp10s-77.imp"
D2 = 0;
                                                                //   3432              RL=3; ->AGN
#line 3432 "regression-compile-tmp/nrimp10s-77.imp"
RL = 3;
#line 3432 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   3433           %FINISH
#line 3433 "regression-compile-tmp/nrimp10s-77.imp"
L_031b:;
                                                                //   3434           P=P+3; ->RFEL2
#line 3434 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3434 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
                                                                //   3435  END:                                   ! FINISH OFF
#line 3435 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
                                                                //   3436           RL=MRL; ROUND
#line 3436 "regression-compile-tmp/nrimp10s-77.imp"
RL = MRL;
#line 3436 "regression-compile-tmp/nrimp10s-77.imp"
ROUND();
                                                                //   3437           ACC=INC;                      ! SIZE ROUNDED APPROPRIATELY
#line 3437 "regression-compile-tmp/nrimp10s-77.imp"
ACC = INC;
                                                                //   3438           FAULT(98,0) %UNLESS INC<=16_7FFF
#line 3438 "regression-compile-tmp/nrimp10s-77.imp"
if (((INC) <= (32767))) goto L_031c;
#line 3438 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(98, 0);
#line 3438 "regression-compile-tmp/nrimp10s-77.imp"
L_031c:;
                                                                //   3439           CLEAR LIST(NLIST)
#line 3439 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&NLIST);
                                                                //   3440           %RETURN
#line 3440 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3441           %ROUTINE SN(%INTEGER Q)
#line 3441 "regression-compile-tmp/nrimp10s-77.imp"
void SN( int Q )
#line 3441 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3442  !***********************************************************************
                                                                //   3443  !*       CHECK THE SUBNAME HAS NOT BEEN USED BEFORE IN THIS FORMAT     *
                                                                //   3444  !*       AND ENTER IT WITH ITS DESCRIPTORS INTO THE LIST.              *
                                                                //   3445  !***********************************************************************
                                                                //   3446           FNAME=FROM AR2(Q)
#line 3446 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2(Q);
                                                                //   3447           FAULT2(61,0,FNAME) %UNLESS FIND(FNAME,NLIST)=-1
#line 3447 "regression-compile-tmp/nrimp10s-77.imp"
if (((FIND(FNAME, NLIST)) == ((-1)))) goto L_031d;
#line 3447 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(61, 0, FNAME);
#line 3447 "regression-compile-tmp/nrimp10s-77.imp"
L_031d:;
                                                                //   3448           BINSERT(OPHEAD,OB,FNAME<<20!PTYPE<<4!J,D2<<16!ACC,D1<<16!FORM)
#line 3448 "regression-compile-tmp/nrimp10s-77.imp"
BINSERT(OPHEAD, &OB, ((((((FNAME) << (20))) | (((PTYPE) << (4))))) | (J)), ((((D2) << (16))) | (ACC)), ((((D1) << (16))) | (FORM)));
                                                                //   3449           PUSH(NLIST,0,FNAME,0)
#line 3449 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&NLIST, 0, FNAME, 0);
                                                                //   3450           %END
#line 3450 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SN at level 6
                                                                //   3451           %ROUTINE ROUND
#line 3451 "regression-compile-tmp/nrimp10s-77.imp"
void ROUND( void )
#line 3451 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3452           MRL=RL %IF RL>MRL
#line 3452 "regression-compile-tmp/nrimp10s-77.imp"
if (((RL) <= (MRL))) goto L_031e;
#line 3452 "regression-compile-tmp/nrimp10s-77.imp"
MRL = RL;
#line 3452 "regression-compile-tmp/nrimp10s-77.imp"
L_031e:;
                                                                //   3453           INC=INC+1 %WHILE INC&RL#0
#line 3453 "regression-compile-tmp/nrimp10s-77.imp"
L_031f:;
#line 3453 "regression-compile-tmp/nrimp10s-77.imp"
if (((((INC) & (RL))) == (0))) goto L_0320;
#line 3453 "regression-compile-tmp/nrimp10s-77.imp"
INC = (((int)(INC)) + (1));
#line 3453 "regression-compile-tmp/nrimp10s-77.imp"
goto L_031f;
#line 3453 "regression-compile-tmp/nrimp10s-77.imp"
L_0320:;
                                                                //   3454           %END
#line 3454 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ROUND at level 6
                                                                //   3455           %END;                         ! OF ROUTINE CRFORMAT
#line 3455 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRFORMAT at level 5
                                                                //   3456           %INTEGERFN DISPLACEMENT(%INTEGER LINK)
#line 3456 "regression-compile-tmp/nrimp10s-77.imp"
int DISPLACEMENT( int LINK )
#line 3456 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3457  !***********************************************************************
                                                                //   3458  !*         SEARCH A FORMAT LIST FOR A SUBNAME                          *
                                                                //   3459  !*      A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP   *
                                                                //   3460  !*      FROM START OF RECORD                                           *
                                                                //   3461  !***********************************************************************
                                                                //   3462  %RECORD(LISTF)%NAME FCELL,PCELL,LCELL{(LISTF)
#line 3462 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*FCELL;
#line 3462 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*PCELL;
#line 3462 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   3463  %INTEGER RR,II,ENAME,CELL
#line 3463 "regression-compile-tmp/nrimp10s-77.imp"
int RR;
#line 3463 "regression-compile-tmp/nrimp10s-77.imp"
int II;
#line 3463 "regression-compile-tmp/nrimp10s-77.imp"
int ENAME;
#line 3463 "regression-compile-tmp/nrimp10s-77.imp"
int CELL;
                                                                //   3464           ENAME=A(P)<<8+A(P+1); CELL=0
#line 3464 "regression-compile-tmp/nrimp10s-77.imp"
ENAME = (((unsigned char)(((A[P]) << (8)))) + (A[(((int)(P)) + (1))]));
#line 3464 "regression-compile-tmp/nrimp10s-77.imp"
CELL = 0;
                                                                //   3465           %IF LINK#0 %THEN %START;    ! CHK RECORDSPEC NOT OMITTED
#line 3465 "regression-compile-tmp/nrimp10s-77.imp"
if (((LINK) == (0))) goto L_0322;
                                                                //   3466              FCELL==ASLIST(LINK);        ! ONTO FORMAT TAG CELL
#line 3466 "regression-compile-tmp/nrimp10s-77.imp"
FCELL = &ASLIST[LINK];
                                                                //   3467              LINK=FCELL_S3&16_7FFF;      ! LINK TO SIDE CHAIN
#line 3467 "regression-compile-tmp/nrimp10s-77.imp"
LINK = ((FCELL->S3) & (32767));
                                                                //   3468              CELL=LINK; II=-1; ACC=-1
#line 3468 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LINK;
#line 3468 "regression-compile-tmp/nrimp10s-77.imp"
II = (-1);
#line 3468 "regression-compile-tmp/nrimp10s-77.imp"
ACC = (-1);
                                                                //   3469              %WHILE LINK>0 %CYCLE
#line 3469 "regression-compile-tmp/nrimp10s-77.imp"
L_0323:;
#line 3469 "regression-compile-tmp/nrimp10s-77.imp"
if (((LINK) <= (0))) goto L_0324;
                                                                //   3470                 LCELL==ASLIST(LINK)
#line 3470 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[LINK];
                                                                //   3471                 %IF LCELL_S1>>20=ENAME %START;      ! RIGHT SUBNAME LOCATED
#line 3471 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(LCELL->S1)) >> (20)))) != (ENAME))) goto L_0326;
                                                                //   3472                    TCELL=LINK
#line 3472 "regression-compile-tmp/nrimp10s-77.imp"
TCELL = LINK;
                                                                //   3473                    RR=LCELL_S1
#line 3473 "regression-compile-tmp/nrimp10s-77.imp"
RR = LCELL->S1;
                                                                //   3474                    SNDISP=LCELL_S2
#line 3474 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = LCELL->S2;
                                                                //   3475                    K=LCELL_S3
#line 3475 "regression-compile-tmp/nrimp10s-77.imp"
K = LCELL->S3;
                                                                //   3476                    J=RR&15; PTYPE=RR>>4&16_FFFF
#line 3476 "regression-compile-tmp/nrimp10s-77.imp"
J = ((RR) & (15));
#line 3476 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (((int)((((unsigned int)(RR)) >> (4)))) & (65535));
                                                                //   3477                   ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000
#line 3477 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((SNDISP) & (65535));
#line 3477 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (long)((long)((((SNDISP) & ((-65536))))) / (long)((int)(65536)));
                                                                //   3478                    KFORM=K&16_FFFF; K=K>>16
#line 3478 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = ((K) & (65535));
#line 3478 "regression-compile-tmp/nrimp10s-77.imp"
K = (int)((((unsigned int)(K)) >> (16)));
                                                                //   3479                    %IF LINK#CELL %START; ! NOT TOP CELL OF FORMAT
#line 3479 "regression-compile-tmp/nrimp10s-77.imp"
if (((LINK) == (CELL))) goto L_0327;
                                                                //   3480                       PCELL_LINK=LCELL_LINK
#line 3480 "regression-compile-tmp/nrimp10s-77.imp"
PCELL->LINK = LCELL->LINK;
                                                                //   3481                       LCELL_LINK=CELL
#line 3481 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = CELL;
                                                                //   3482                       FCELL_S3=FCELL_S3&16_FFFF0000!LINK
#line 3482 "regression-compile-tmp/nrimp10s-77.imp"
FCELL->S3 = ((((FCELL->S3) & ((-65536)))) | (LINK));
                                                                //   3483                    %FINISH;              ! ARRANGING LIST WITH THIS SUBNAME
#line 3483 "regression-compile-tmp/nrimp10s-77.imp"
L_0327:;
                                                                //   3484                                          ! AT THE TOP
                                                                //   3485                    %RESULT=K
#line 3485 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return K;
                                                                //   3486                 %FINISH
#line 3486 "regression-compile-tmp/nrimp10s-77.imp"
L_0326:;
                                                                //   3487                 PCELL==LCELL
#line 3487 "regression-compile-tmp/nrimp10s-77.imp"
PCELL = LCELL;
                                                                //   3488                 LINK=LCELL_LINK
#line 3488 "regression-compile-tmp/nrimp10s-77.imp"
LINK = LCELL->LINK;
                                                                //   3489              %REPEAT
#line 3489 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0323;
#line 3489 "regression-compile-tmp/nrimp10s-77.imp"
L_0324:;
                                                                //   3490           %FINISH
#line 3490 "regression-compile-tmp/nrimp10s-77.imp"
L_0322:;
                                                                //   3491           FAULT(65,ENAME)
#line 3491 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(65, ENAME);
                                                                //   3492           %IF CELL>0 %THEN PUSH(ASLIST(CELL)_LINK,ENAME<<20!7<<4,0,0)
#line 3492 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) <= (0))) goto L_0328;
#line 3492 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&ASLIST[CELL].LINK, ((((ENAME) << (20))) | (((7) << (4)))), 0, 0);
#line 3492 "regression-compile-tmp/nrimp10s-77.imp"
L_0328:;
                                                                //   3493           PTYPE=7; TCELL=0
#line 3493 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 7;
#line 3493 "regression-compile-tmp/nrimp10s-77.imp"
TCELL = 0;
                                                                //   3494           %RESULT=-1
#line 3494 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (-1);
                                                                //   3495           %END
#line 3495 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block DISPLACEMENT at level 5
                                                                //   3496           %INTEGERFN COPY RECORD TAG(%INTEGERNAME SUBS)
#line 3496 "regression-compile-tmp/nrimp10s-77.imp"
int COPYRECORDTAG( int /*name*/*SUBS )
#line 3496 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3497  !***********************************************************************
                                                                //   3498  !*       PRODUCE PTYPE ETC FOR A COMPOUND NAME BY CHAINING DOWN ONE    *
                                                                //   3499  !*       ONE OR MORE RECORD FORMAT LISTS. ON EXIT RESULT =0 IF NO      *
                                                                //   3500  !*       SUBNAME FOUND OR SUBNAME IS OF TYPE RECORD WITH NO FURTHER    *
                                                                //   3501  !*       SUBNAME ATTACHED. RESULT#0 IF BONE-FIDE SUBNAME LOCATED       *
                                                                //   3502  !*       ON ENTRY KFORM HAS POINTER TO THE (FIRST ) FORMAT LIST AND    *
                                                                //   3503  !*       P POINTS TO THE A.R. ENTRY FOR (FIRST) ENAME                  *
                                                                //   3504  !***********************************************************************
                                                                //   3505  %INTEGER Q,FNAME
#line 3505 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 3505 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
                                                                //   3506           SUBS=0
#line 3506 "regression-compile-tmp/nrimp10s-77.imp"
*SUBS = 0;
                                                                //   3507           {%UNTIL TYPE#3} %CYCLE
#line 3507 "regression-compile-tmp/nrimp10s-77.imp"
L_0329:;
                                                                //   3508              FNAME=KFORM
#line 3508 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = KFORM;
                                                                //   3509              P=P+2; SKIP APP
#line 3509 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3509 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   3510              %RESULT=0 %IF A(P)=2 %OR FNAME<=0;! NO (FURTHER) ENAME
#line 3510 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_0325;
#line 3510 "regression-compile-tmp/nrimp10s-77.imp"
if (((FNAME) > (0))) goto L_032c;
#line 3510 "regression-compile-tmp/nrimp10s-77.imp"
L_0325:;
#line 3510 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 3510 "regression-compile-tmp/nrimp10s-77.imp"
L_032c:;
                                                                //   3511              SUBS=SUBS+1
#line 3511 "regression-compile-tmp/nrimp10s-77.imp"
*SUBS = ((*(int *)(SUBS)) + (1));
                                                                //   3512              P=P+1; Q=DISPLACEMENT (FNAME)
#line 3512 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3512 "regression-compile-tmp/nrimp10s-77.imp"
Q = DISPLACEMENT(FNAME);
                                                                //   3513              UNPACK
#line 3513 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   3514           %REPEAT %UNTIL TYPE#3
#line 3514 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_032a;
#line 3514 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0329;
#line 3514 "regression-compile-tmp/nrimp10s-77.imp"
L_032a:;
                                                                //   3515           %RESULT=Q+1;       ! GIVES 0 IF SUBNAME NOT KNOWN
#line 3515 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (((int)(Q)) + (1));
                                                                //   3516           %END
#line 3516 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block COPYRECORDTAG at level 5
                                                                //   3517  %ROUTINE CRNAME(%INTEGER Z,REG,MODE,BS,AR,DP,%INTEGERNAME NAMEP)
#line 3517 "regression-compile-tmp/nrimp10s-77.imp"
void CRNAME( int Z, int REG, int MODE, int BS, int AR, int DP, int /*name*/*NAMEP )
#line 3517 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3518  !***********************************************************************
                                                                //   3519  !*       DEAL WITH RECORD ELEMENT NAMES.Z AS FOR CNAME.CLINK=TAGS(RN)  *
                                                                //   3520  !*       MODE=ACCESS FOR RECORD(NOT THE ELEMENT!)                      *
                                                                //   3521  !*       ON EXIT BASE,AREA & DISP POINT TO REQUIRED ELEMENT            *
                                                                //   3522  !*       RECURSIVE CALL IS NEEDED TO DEAL WITH RECORDS IN RECORDS      *
                                                                //   3523  !*       DEPTH SHEWS  RECURSIVE LEVELS- NEEDED TO AVOID MIS SETTING    *
                                                                //   3524  !*       REGISTER IN USE IF RECORDNAME IN RECORD HAS THE SAME NAME AS  *
                                                                //   3525  !*       A GENUINE RECORD NAME.                                        *
                                                                //   3526  !***********************************************************************
                                                                //   3527  %INTEGER DEPTH,FNAME
#line 3527 "regression-compile-tmp/nrimp10s-77.imp"
int DEPTH;
#line 3527 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
                                                                //   3528  %ROUTINESPEC CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD)
#line 3528 "regression-compile-tmp/nrimp10s-77.imp"
auto void CENAME( int MODE, int FNAME, int BS, int AR, int DP, int XD );
                                                                //   3529           DEPTH=0
#line 3529 "regression-compile-tmp/nrimp10s-77.imp"
DEPTH = 0;
                                                                //   3530           FNAME=KFORM;                  ! POINTER TO FORMAT
#line 3530 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = KFORM;
                                                                //   3531           %IF ARR=0 %OR (Z=6 %AND A(P+2)=2) %START;! SIMPLE RECORD
#line 3531 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_032b;
#line 3531 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_032d;
#line 3531 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_032d;
#line 3531 "regression-compile-tmp/nrimp10s-77.imp"
L_032b:;
                                                                //   3532              %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_032e;
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
goto L_032f;
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
L_032e:;
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 3532 "regression-compile-tmp/nrimp10s-77.imp"
L_032f:;
                                                                //   3533              CENAME(MODE,FNAME,BS,AR,DP,0)
#line 3533 "regression-compile-tmp/nrimp10s-77.imp"
CENAME(MODE, FNAME, BS, AR, DP, 0);
                                                                //   3534           %FINISH %ELSE %START
#line 3534 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0330;
#line 3534 "regression-compile-tmp/nrimp10s-77.imp"
L_032d:;
                                                                //   3535              CANAME(ARR,BS,DP)
#line 3535 "regression-compile-tmp/nrimp10s-77.imp"
CANAME(ARR, BS, DP);
                                                                //   3536              CENAME(ACCESS,FNAME,BASE,AREA,DISP,0)
#line 3536 "regression-compile-tmp/nrimp10s-77.imp"
CENAME(ACCESS, FNAME, BASE, AREA, DISP, 0);
                                                                //   3537           %FINISH; %RETURN
#line 3537 "regression-compile-tmp/nrimp10s-77.imp"
L_0330:;
#line 3537 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3538  !
                                                                //   3539  %ROUTINE CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD)
#line 3539 "regression-compile-tmp/nrimp10s-77.imp"
void CENAME( int MODE, int FNAME, int BS, int AR, int DP, int XD )
#line 3539 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3540  !***********************************************************************
                                                                //   3541  !*       FINDS OUT ABOUT SUBNAME AND ACTS ACCORDINGLY.MOSTLY ACTION    *
                                                                //   3542  !*       CONSISTS OF UPPING XD BY OFFSET OF THE SUBNAME BUT IS VERY    *
                                                                //   3543  !*       HAIRY FOR RECORDS IN RECORDS ETC                              *
                                                                //   3544  !*       MODE IS ACCESS FOR THE RECORD                                  *
                                                                //   3545  !***********************************************************************
                                                                //   3546  %ROUTINESPEC FETCH RAD
#line 3546 "regression-compile-tmp/nrimp10s-77.imp"
auto void FETCHRAD( void );
                                                                //   3547  %ROUTINESPEC LOCALISE(%INTEGER SIZE)
#line 3547 "regression-compile-tmp/nrimp10s-77.imp"
auto void LOCALISE( int SIZE );
                                                                //   3548  %INTEGER Q,QQ,D,C,W
#line 3548 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 3548 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 3548 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 3548 "regression-compile-tmp/nrimp10s-77.imp"
int C;
#line 3548 "regression-compile-tmp/nrimp10s-77.imp"
int W;
                                                                //   3549        DEPTH=DEPTH+1
#line 3549 "regression-compile-tmp/nrimp10s-77.imp"
DEPTH = (((int)(DEPTH)) + (1));
                                                                //   3550        %IF A(P)=2 %THEN %START;          ! ENAME MISSING
#line 3550 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0331;
                                                                //   3551           ACCESS=MODE; AREA=AR; XDISP=XD
#line 3551 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = MODE;
#line 3551 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AR;
#line 3551 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = XD;
                                                                //   3552           BASE=BS; DISP=DP;              ! FOR POINTER
#line 3552 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
#line 3552 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
                                                                //   3553           %IF Z<14 %THEN %START;         ! NOT A RECORD OPERATION
#line 3553 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) >= (14))) goto L_0332;
                                                                //   3554              %UNLESS 3<=Z<=4 %OR Z=6 %START;   ! ADDR(RECORD)
#line 3554 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (Z))) || (((Z) <= (4)))) goto L_0333;
#line 3554 "regression-compile-tmp/nrimp10s-77.imp"
L_02aa:;
#line 3554 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (6))) goto L_0333;
                                                                //   3555                 FAULT(64,0); BASE=RBASE; AREA=-1
#line 3555 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(64, 0);
#line 3555 "regression-compile-tmp/nrimp10s-77.imp"
BASE = RBASE;
#line 3555 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   3556                 DISP=0; ACCESS=0; PTYPE=1; UNPACK
#line 3556 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 3556 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 3556 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 1;
#line 3556 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   3557              %FINISH
#line 3557 "regression-compile-tmp/nrimp10s-77.imp"
L_0333:;
                                                                //   3558           %FINISH
#line 3558 "regression-compile-tmp/nrimp10s-77.imp"
L_0332:;
                                                                //   3559           %RETURN
#line 3559 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3560        %FINISH
#line 3560 "regression-compile-tmp/nrimp10s-77.imp"
L_0331:;
                                                                //   3561        P=P+1;                            ! FIND OUT ABOUT SUBNAME
#line 3561 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3562        Q=DISPLACEMENT(FNAME);            ! TCELL POINTS TO CELL HOLDING
#line 3562 "regression-compile-tmp/nrimp10s-77.imp"
Q = DISPLACEMENT(FNAME);
                                                                //   3563        UNPACK;                           ! INFO ABOUT THE SUBNAME
#line 3563 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   3564        %IF Q=-1=ACC %OR PTYPE=7 %START;  ! WRONG SUBNAME(HAS BEEN FAULTED)
#line 3564 "regression-compile-tmp/nrimp10s-77.imp"
if ((((Q) != ((-1)))) || ((((-1)) == (ACC)))) goto L_0335;
#line 3564 "regression-compile-tmp/nrimp10s-77.imp"
L_0334:;
#line 3564 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (7))) goto L_0336;
#line 3564 "regression-compile-tmp/nrimp10s-77.imp"
L_0335:;
                                                                //   3565           P=P+2; SKIP APP; P=P-3
#line 3565 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3565 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 3565 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (3));
                                                                //   3566           ACCESS=0; BASE=RBASE; DISP=0; AREA=-1
#line 3566 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 3566 "regression-compile-tmp/nrimp10s-77.imp"
BASE = RBASE;
#line 3566 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 3566 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   3567           %RETURN
#line 3567 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3568        %FINISH
#line 3568 "regression-compile-tmp/nrimp10s-77.imp"
L_0336:;
                                                                //   3569        NAMEP=(A(P)<<8!A(P+1))<<16!NAMEP; ! NAMEP=-1 UNALTERED !
#line 3569 "regression-compile-tmp/nrimp10s-77.imp"
*NAMEP = ((((((((A[P]) << (8))) | (A[(((int)(P)) + (1))]))) << (16))) | (*NAMEP));
                                                                //   3570        ->AE %IF ARR=1;                   ! ARRAYS INCLUDING RECORDARRAYS
#line 3570 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (1))) goto L_0337;
#line 3570 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1029;
#line 3570 "regression-compile-tmp/nrimp10s-77.imp"
L_0337:;
                                                                //   3571        %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_0338;
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0339;
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
L_0338:;
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 3571 "regression-compile-tmp/nrimp10s-77.imp"
L_0339:;
                                                                //   3572        %IF TYPE<=2 %OR TYPE=5 %OR (TYPE=3 %AND A(P)=2 %AND (3<=Z<=4 %OR Z=6)) %START
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) <= (2))) goto L_033a;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_033a;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_033b;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_033b;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (Z))) || (((Z) <= (4)))) goto L_033a;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
L_033c:;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_033b;
#line 3572 "regression-compile-tmp/nrimp10s-77.imp"
L_033a:;
                                                                //   3573           ACCESS=MODE+4+4*NAM; BASE=BS;
#line 3573 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((((((int)(MODE)) + (4)))) + ((((int)(4)) * (NAM))));
#line 3573 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
                                                                //   3574           AREA=AR; DISP=DP; XDISP=XD+Q
#line 3574 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AR;
#line 3574 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
#line 3574 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = (((int)(XD)) + (Q));
                                                                //   3575           %RETURN
#line 3575 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3576        %FINISH
#line 3576 "regression-compile-tmp/nrimp10s-77.imp"
L_033b:;
                                                                //   3577  !
                                                                //   3578  ! NOW CODING BECOMES HAIRY:- STILL LEFT ARE
                                                                //   3579  ! A) RECORDS IN RECORDS   Q POINTS TO SECONDARY RECORD
                                                                //   3580  ! B) RECORDNAMES IN RECORDS   Q HAS OFF-SET OF A POINTER
                                                                //   3581  ! C) RECORDARRAYNAMES IN RECORDS   Q HAS OFF-SET A HEADER IN RECORD
                                                                //   3582  ! D) RECORDARRAYS IN RECORDS   NOT YET ALLOWED
                                                                //   3583  !    Q WOULD HAVE OFF-SET OF A RECORD RELATIVE HEADER IN THE GLA
                                                                //   3584  !
                                                                //   3585        XD=XD+Q
#line 3585 "regression-compile-tmp/nrimp10s-77.imp"
XD = (((int)(XD)) + (Q));
                                                                //   3586        NAMEP=-1
#line 3586 "regression-compile-tmp/nrimp10s-77.imp"
*NAMEP = (-1);
                                                                //   3587        %IF NAM=1 %THEN %START
#line 3587 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_033d;
                                                                //   3588           %IF MODE=0 %START
#line 3588 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_033e;
                                                                //   3589              DP=DP+XD; XD=0; MODE=2
#line 3589 "regression-compile-tmp/nrimp10s-77.imp"
DP = (((int)(DP)) + (XD));
#line 3589 "regression-compile-tmp/nrimp10s-77.imp"
XD = 0;
#line 3589 "regression-compile-tmp/nrimp10s-77.imp"
MODE = 2;
                                                                //   3590           %FINISH %ELSE %START
#line 3590 "regression-compile-tmp/nrimp10s-77.imp"
goto L_033f;
#line 3590 "regression-compile-tmp/nrimp10s-77.imp"
L_033e:;
                                                                //   3591              LOCALISE(8);                ! PICK UP RECNAME DESCR &STCK
#line 3591 "regression-compile-tmp/nrimp10s-77.imp"
LOCALISE(8);
                                                                //   3592              AR=AREA; DP=DISP; BS=BASE
#line 3592 "regression-compile-tmp/nrimp10s-77.imp"
AR = AREA;
#line 3592 "regression-compile-tmp/nrimp10s-77.imp"
DP = DISP;
#line 3592 "regression-compile-tmp/nrimp10s-77.imp"
BS = BASE;
                                                                //   3593           %FINISH
#line 3593 "regression-compile-tmp/nrimp10s-77.imp"
L_033f:;
                                                                //   3594        %FINISH
#line 3594 "regression-compile-tmp/nrimp10s-77.imp"
L_033d:;
                                                                //   3595        CENAME(MODE,KFORM,BS,AR,DP,XD)
#line 3595 "regression-compile-tmp/nrimp10s-77.imp"
CENAME(MODE, KFORM, BS, AR, DP, XD);
                                                                //   3596        %RETURN
#line 3596 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3597  AE:                                     ! ARRAYS AND ARRAYNAMES AS ELEMEN
#line 3597 "regression-compile-tmp/nrimp10s-77.imp"
U_1029:;
                                                                //   3598        FROM123(TCELL,Q,SNDISP,K)
#line 3598 "regression-compile-tmp/nrimp10s-77.imp"
FROM123(TCELL, &Q, &SNDISP, &K);
                                                                //   3599        ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000
#line 3599 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((SNDISP) & (65535));
#line 3599 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (long)((long)((((SNDISP) & ((-65536))))) / (long)((int)(65536)));
                                                                //   3600        KFORM=K&16_FFFF; K=K>>16
#line 3600 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = ((K) & (65535));
#line 3600 "regression-compile-tmp/nrimp10s-77.imp"
K = (int)((((unsigned int)(K)) >> (16)));
                                                                //   3601        C=ACC; D=SNDISP; Q=K; QQ=KFORM
#line 3601 "regression-compile-tmp/nrimp10s-77.imp"
C = ACC;
#line 3601 "regression-compile-tmp/nrimp10s-77.imp"
D = SNDISP;
#line 3601 "regression-compile-tmp/nrimp10s-77.imp"
Q = K;
#line 3601 "regression-compile-tmp/nrimp10s-77.imp"
QQ = KFORM;
                                                                //   3602        %IF (Z=6 %OR Z=12) %AND A(P+2)=2 %START;! 'GET ARRAYHEAD' CALL
#line 3602 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (6))) goto L_0340;
#line 3602 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (12))) goto L_0341;
#line 3602 "regression-compile-tmp/nrimp10s-77.imp"
L_0340:;
#line 3602 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_0341;
                                                                //   3603              P=P+3
#line 3603 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   3604           %IF NAM=1 %THEN %START
#line 3604 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_0342;
                                                                //   3605              ACCESS=MODE+8; BASE=BS
#line 3605 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(MODE)) + (8));
#line 3605 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
                                                                //   3606              AREA=AR; DISP=DP; XDISP=XD+Q
#line 3606 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AR;
#line 3606 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
#line 3606 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = (((int)(XD)) + (Q));
                                                                //   3607              %RETURN
#line 3607 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3608           %FINISH
#line 3608 "regression-compile-tmp/nrimp10s-77.imp"
L_0342:;
                                                                //   3609  !
                                                                //   3610  ! PASSING AN ARRAY IN A RECORD BY NAME MUST CONSTRUCT PROPER ARRAYHEAD
                                                                //   3611  ! FROM THE RECORD RELATIVE ONE AT Q(GLA)
                                                                //   3612  !
                                                                //   3613           NAMEP=-1
#line 3613 "regression-compile-tmp/nrimp10s-77.imp"
*NAMEP = (-1);
                                                                //   3614           FETCH RAD
#line 3614 "regression-compile-tmp/nrimp10s-77.imp"
FETCHRAD();
                                                                //   3615           AREA=-1; DISP=Q
#line 3615 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 3615 "regression-compile-tmp/nrimp10s-77.imp"
DISP = Q;
                                                                //   3616           BASE=0; ACCESS=0;
#line 3616 "regression-compile-tmp/nrimp10s-77.imp"
BASE = 0;
#line 3616 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   3617           CREATE AH(1)
#line 3617 "regression-compile-tmp/nrimp10s-77.imp"
CREATEAH(1);
                                                                //   3618        %FINISH %ELSE %START;             ! ARRAY ELEMENTS IN RECORDS
#line 3618 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0343;
#line 3618 "regression-compile-tmp/nrimp10s-77.imp"
L_0341:;
                                                                //   3619           NAMEP=-1
#line 3619 "regression-compile-tmp/nrimp10s-77.imp"
*NAMEP = (-1);
                                                                //   3620           %IF NAM=1 %THEN %START;        ! ARRAYNAMES-FULLHEAD IN RECORD
#line 3620 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_0344;
                                                                //   3621              XD=XD+Q
#line 3621 "regression-compile-tmp/nrimp10s-77.imp"
XD = (((int)(XD)) + (Q));
                                                                //   3622              LOCALISE(16);               ! MOVE HEAD UNDER LNB
#line 3622 "regression-compile-tmp/nrimp10s-77.imp"
LOCALISE(16);
                                                                //   3623              CANAME(3,BASE,DISP);        ! ARRAY MODE SETS DISP,AREA&BASE
#line 3623 "regression-compile-tmp/nrimp10s-77.imp"
CANAME(3, BASE, DISP);
                                                                //   3624           %FINISH %ELSE %START;          ! ARRAY RELATIVE HEAD IN GLA
#line 3624 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0345;
#line 3624 "regression-compile-tmp/nrimp10s-77.imp"
L_0344:;
                                                                //   3625              %IF MODE=0 %OR MODE=2 %%START
#line 3625 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (0))) goto L_0346;
#line 3625 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (2))) goto L_0347;
#line 3625 "regression-compile-tmp/nrimp10s-77.imp"
L_0346:;
                                                                //   3626                 %IF MODE=0 %THEN W=DP-4 %ELSE  W=DP+4
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0348;
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
W = (((int)(DP)) - (4));
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0349;
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
L_0348:;
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
W = (((int)(DP)) + (4));
#line 3626 "regression-compile-tmp/nrimp10s-77.imp"
L_0349:;
                                                                //   3627              %FINISH %ELSE %START
#line 3627 "regression-compile-tmp/nrimp10s-77.imp"
goto L_034a;
#line 3627 "regression-compile-tmp/nrimp10s-77.imp"
L_0347:;
                                                                //   3628                 FETCH RAD;               ! RECORD ADDR TO ACC
#line 3628 "regression-compile-tmp/nrimp10s-77.imp"
FETCHRAD();
                                                                //   3629                 GET WSP(W,1)
#line 3629 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&W, 1);
                                                                //   3630                 PSF1(ST,1,W); XD=0
#line 3630 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, W);
#line 3630 "regression-compile-tmp/nrimp10s-77.imp"
XD = 0;
                                                                //   3631                 BS=RBASE
#line 3631 "regression-compile-tmp/nrimp10s-77.imp"
BS = RBASE;
                                                                //   3632              %FINISH
#line 3632 "regression-compile-tmp/nrimp10s-77.imp"
L_034a:;
                                                                //   3633              CANAME(3,0,Q);              ! RECORD REL ARRAY ACCESS
#line 3633 "regression-compile-tmp/nrimp10s-77.imp"
CANAME(3, 0, Q);
                                                                //   3634                                          ! CAN RETURN ACCESS=1 OR 3 ONLY
                                                                //   3635              %IF PARMARR=0=PARMCHK %AND ACCESS=3 %AND (PREC=3 %OR TYPE>=3) %START
#line 3635 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_034b;
#line 3635 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (3))) goto L_034b;
#line 3635 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (3))) goto L_034c;
#line 3635 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) < (3))) goto L_034b;
#line 3635 "regression-compile-tmp/nrimp10s-77.imp"
L_034c:;
                                                                //   3636                 PSORLF1(ADB,0,AREA CODE2(BS),W)
#line 3636 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(32, 0, AREACODE2(BS), W);
                                                                //   3637                 PSF1(ADB,0,XD) %UNLESS XD=0
#line 3637 "regression-compile-tmp/nrimp10s-77.imp"
if (((XD) == (0))) goto L_034d;
#line 3637 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 0, XD);
#line 3637 "regression-compile-tmp/nrimp10s-77.imp"
L_034d:;
                                                                //   3638                 GRUSE(BREG)=0
#line 3638 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   3639              %FINISH %ELSE %START
#line 3639 "regression-compile-tmp/nrimp10s-77.imp"
goto L_034e;
#line 3639 "regression-compile-tmp/nrimp10s-77.imp"
L_034b:;
                                                                //   3640                 GET IN ACC(DR,2,0,AREA CODE,Q)
#line 3640 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), Q);
                                                                //   3641                 PSORLF1(INCA,0,AREA CODE2(BS),W)
#line 3641 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(20, 0, AREACODE2(BS), W);
                                                                //   3642                 %IF ACCESS=1 %THEN ACCESS=2 %AND AREA=7 %AND XD=XD+NUMMOD*BYTES(PREC)
#line 3642 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (1))) goto L_034f;
#line 3642 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 3642 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 3642 "regression-compile-tmp/nrimp10s-77.imp"
XD = ((XD) + ((int)(((NUMMOD) * ((int)(BYTES[PREC]))))));
#line 3642 "regression-compile-tmp/nrimp10s-77.imp"
L_034f:;
                                                                //   3643                 PSF1(INCA,0,XD) %UNLESS XD=0
#line 3643 "regression-compile-tmp/nrimp10s-77.imp"
if (((XD) == (0))) goto L_0350;
#line 3643 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, XD);
#line 3643 "regression-compile-tmp/nrimp10s-77.imp"
L_0350:;
                                                                //   3644                 FORGET (DR)
#line 3644 "regression-compile-tmp/nrimp10s-77.imp"
FORGET(1);
                                                                //   3645                 AREA=7; DISP=0;          ! AND ACCESS = 2 OR 3 ONLY
#line 3645 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 3645 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   3646                 %IF TYPE=3 %AND A(P)=1 %START; ! WILL BE A FURTHER CALL
#line 3646 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0351;
#line 3646 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0351;
                                                                //   3647                                            ! ON ROUTINE CENAME
                                                                //   3648                    GET WSP(DISP,2)
#line 3648 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&DISP, 2);
                                                                //   3649                    PSF1(STD,1,DISP)
#line 3649 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, DISP);
                                                                //   3650                    AREA=LNB; BASE=RBASE
#line 3650 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
#line 3650 "regression-compile-tmp/nrimp10s-77.imp"
BASE = RBASE;
                                                                //   3651                 %FINISH
#line 3651 "regression-compile-tmp/nrimp10s-77.imp"
L_0351:;
                                                                //   3652              %FINISH
#line 3652 "regression-compile-tmp/nrimp10s-77.imp"
L_034e:;
                                                                //   3653           %FINISH
#line 3653 "regression-compile-tmp/nrimp10s-77.imp"
L_0345:;
                                                                //   3654           %IF TYPE=3 %THEN CENAME(ACCESS,QQ,BASE,AREA,DISP,0)
#line 3654 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0352;
#line 3654 "regression-compile-tmp/nrimp10s-77.imp"
CENAME(ACCESS, QQ, BASE, AREA, DISP, 0);
#line 3654 "regression-compile-tmp/nrimp10s-77.imp"
L_0352:;
                                                                //   3655        %FINISH
#line 3655 "regression-compile-tmp/nrimp10s-77.imp"
L_0343:;
                                                                //   3656        %RETURN
#line 3656 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3657  %ROUTINE FETCH RAD
#line 3657 "regression-compile-tmp/nrimp10s-77.imp"
void FETCHRAD( void )
#line 3657 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3658  !***********************************************************************
                                                                //   3659  !*       SET ACC TO 32 BIT ADDRESS OF RECORD.                          *
                                                                //   3660  !***********************************************************************
                                                                //   3661           ACCESS=MODE+4
#line 3661 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(MODE)) + (4));
                                                                //   3662           AREA=AR; BASE=BS
#line 3662 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AR;
#line 3662 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
                                                                //   3663           DISP=DP; XDISP=XD
#line 3663 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
#line 3663 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = XD;
                                                                //   3664           NAMEOP(4,ACCR,4,-1)
#line 3664 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(4, 0, 4, (-1));
                                                                //   3665           %END
#line 3665 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FETCHRAD at level 7
                                                                //   3666  %ROUTINE LOCALISE(%INTEGER SIZE)
#line 3666 "regression-compile-tmp/nrimp10s-77.imp"
void LOCALISE( int SIZE )
#line 3666 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3667  !***********************************************************************
                                                                //   3668  !*       REMOVES A DESCRIPTOR OR ARRAYHEAD FROM A RECORD AND STORES    *
                                                                //   3669  !*       IT IN A TEMPORARY UNDER LNB.                                  *
                                                                //   3670  !***********************************************************************
                                                                //   3671  %INTEGER HOLE
#line 3671 "regression-compile-tmp/nrimp10s-77.imp"
int HOLE;
                                                                //   3672           ACCESS=MODE+4
#line 3672 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(MODE)) + (4));
                                                                //   3673           AREA=AR; BASE=BS; DISP=DP
#line 3673 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AR;
#line 3673 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
#line 3673 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
                                                                //   3674           XDISP=XD
#line 3674 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = XD;
                                                                //   3675           NAMEOP(2,ACCR,SIZE,-1)
#line 3675 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(2, 0, SIZE, (-1));
                                                                //   3676           GET WSP(HOLE,SIZE>>2)
#line 3676 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&HOLE, (int)((((unsigned int)(SIZE)) >> (2))));
                                                                //   3677           PSF1(ST,1,HOLE)
#line 3677 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, HOLE);
                                                                //   3678           MODE=2; AREA=LNB
#line 3678 "regression-compile-tmp/nrimp10s-77.imp"
MODE = 2;
#line 3678 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
                                                                //   3679           BASE=RBASE; DISP=HOLE; XD=0
#line 3679 "regression-compile-tmp/nrimp10s-77.imp"
BASE = RBASE;
#line 3679 "regression-compile-tmp/nrimp10s-77.imp"
DISP = HOLE;
#line 3679 "regression-compile-tmp/nrimp10s-77.imp"
XD = 0;
                                                                //   3680           %END;                         ! OF ROUTINE LOCALISE
#line 3680 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOCALISE at level 7
                                                                //   3681           %END;                         ! OF ROUTINE CENAME
#line 3681 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CENAME at level 6
                                                                //   3682           %END;                         ! OF ROUTINE CRNAME
#line 3682 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRNAME at level 5
                                                                //   3683           %ROUTINE CSTREXP(%INTEGER MODE,REG)
#line 3683 "regression-compile-tmp/nrimp10s-77.imp"
void CSTREXP( int MODE, int REG )
#line 3683 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3684  !***********************************************************************
                                                                //   3685  !*       PLANT IN-LINE CODE FOR CONCATENATION. A WORK AREA UNDER       *
                                                                //   3686  !*       BASE REGISTER COVER IS USUALLY REQUIRED. THE CURRENT LENGTH   *
                                                                //   3687  !*       OF STRING IN THE WORK AREA IS KEPT IN A REGISTER (BREG)       *
                                                                //   3688  !*       WHICH IS PROTECTED THROUGH THE NORMAL INTERMEDIATE-RESULT     *
                                                                //   3689  !*       MECHANISMS.                                                   *
                                                                //   3690  !*       ON ENTRY:-                                                    *
                                                                //   3691  !*       MODE=0    NORMAL. WK AREA NOT USED FOR ONE OPERAND EXPSSNS    *
                                                                //   3692  !*       MODE=1     STRING MUST GO TO WORK AREA                        *
                                                                //   3693  !*       (AND TO COME)                                                 *
                                                                //   3694  !*       MODE=3    CONCATENATE INTO LHS OF =ASSNMNT (E.G. A=B.C)       *
                                                                //   3695  !*       MODE=4    OPTIMISE  S=S.T   BY NOT COPYING S                  *
                                                                //   3696  !*       2**4 BIT OF MODE IS SET IF WK-AREA NOT TO BE FREED ON EXIT    *
                                                                //   3697  !*       ON EXIT:-                                                     *
                                                                //   3698  !*       BASE,DISP & INDEX DEFINE RESULT                               *
                                                                //   3699  !*       VALUE#0 %IF RESULT IN A WORK AREA(CCOND MUST KNOW)            *
                                                                //   3700  !*       STRINGL SET IF STRING LENGTH KNOWN. STRFNRES DEFINES LENREG   *
                                                                //   3701  !***********************************************************************
                                                                //   3702  %INTEGER PP,WKAREA,DOTS,REXP,ERR,CLEN,KEEPWA,FNAM
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int WKAREA;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int DOTS;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int REXP;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int ERR;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int CLEN;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int KEEPWA;
#line 3702 "regression-compile-tmp/nrimp10s-77.imp"
int FNAM;
                                                                //   3703  %INTEGERFNSPEC STROP(%INTEGER REG)
#line 3703 "regression-compile-tmp/nrimp10s-77.imp"
auto int STROP( int REG );
                                                                //   3704           KEEPWA=MODE&16; MODE=MODE&15
#line 3704 "regression-compile-tmp/nrimp10s-77.imp"
KEEPWA = ((MODE) & (16));
#line 3704 "regression-compile-tmp/nrimp10s-77.imp"
MODE = ((MODE) & (15));
                                                                //   3705           PP=P; STRINGL=0; FNAM=0; WKAREA=0
#line 3705 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 3705 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = 0;
#line 3705 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = 0;
#line 3705 "regression-compile-tmp/nrimp10s-77.imp"
WKAREA = 0;
                                                                //   3706           REXP=2-A(P+1+FROM AR2(P+1));         ! =0 %IF ONE OPERAND EXP
#line 3706 "regression-compile-tmp/nrimp10s-77.imp"
REXP = ((2) - ((int)(A[(((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))))])));
                                                                //   3707           -> NORMAL %UNLESS A(P+3)=4 %AND REXP=0 %AND MODE=0
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (4))) goto L_0353;
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
if (((REXP) != (0))) goto L_0353;
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (0))) goto L_0354;
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
L_0353:;
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102a;
#line 3707 "regression-compile-tmp/nrimp10s-77.imp"
L_0354:;
                                                                //   3708           -> SIMPLE %IF A(P+4)=2
#line 3708 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (2))) goto L_0355;
#line 3708 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1021;
#line 3708 "regression-compile-tmp/nrimp10s-77.imp"
L_0355:;
                                                                //   3709           -> NORMAL %UNLESS A(P+4)=1
#line 3709 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) == (1))) goto L_0356;
#line 3709 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102a;
#line 3709 "regression-compile-tmp/nrimp10s-77.imp"
L_0356:;
                                                                //   3710  !         COPY TAG(FROM AR2(P+5))
                                                                //   3711  !         %IF PTYPE=SNPT %THEN PTYPE=TSNAME(K)
                                                                //   3712  !         -> NORMAL %UNLESS ROUT=0 ; ! BEWARE OF MAP=FN
                                                                //   3713  !         -> NORMAL %IF PARMARR=1 %AND(ARR#0 %OR A(P+7)=1)
                                                                //   3714  SIMPLE:  P=P+4
#line 3714 "regression-compile-tmp/nrimp10s-77.imp"
U_1021:;
#line 3714 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   3715           ERR=STROP(REG)
#line 3715 "regression-compile-tmp/nrimp10s-77.imp"
ERR = STROP(REG);
                                                                //   3716           -> ERROR %UNLESS ERR=0
#line 3716 "regression-compile-tmp/nrimp10s-77.imp"
if (((ERR) == (0))) goto L_0357;
#line 3716 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
#line 3716 "regression-compile-tmp/nrimp10s-77.imp"
L_0357:;
                                                                //   3717           VALUE=WKAREA
#line 3717 "regression-compile-tmp/nrimp10s-77.imp"
VALUE = WKAREA;
                                                                //   3718           P=P+1; STRFNRES=0
#line 3718 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3718 "regression-compile-tmp/nrimp10s-77.imp"
STRFNRES = 0;
                                                                //   3719           %RETURN
#line 3719 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3720  ERROR:   FAULT2(ERR,0,FNAM)
#line 3720 "regression-compile-tmp/nrimp10s-77.imp"
U_1022:;
#line 3720 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(ERR, 0, FNAM);
                                                                //   3721           BASE=RBASE; DISP=0
#line 3721 "regression-compile-tmp/nrimp10s-77.imp"
BASE = RBASE;
#line 3721 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   3722           VALUE=0; ACCESS=0
#line 3722 "regression-compile-tmp/nrimp10s-77.imp"
VALUE = 0;
#line 3722 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   3723           P=PP; SKIP EXP
#line 3723 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
#line 3723 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   3724           %RETURN
#line 3724 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3725  NORMAL:  CLEN=0; P=P+3;                ! LENGTH OF CONSTANT PART
#line 3725 "regression-compile-tmp/nrimp10s-77.imp"
U_102a:;
#line 3725 "regression-compile-tmp/nrimp10s-77.imp"
CLEN = 0;
#line 3725 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   3726           ERR=72; ->ERROR %UNLESS A(P)=4
#line 3726 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 72;
#line 3726 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (4))) goto L_0358;
#line 3726 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
#line 3726 "regression-compile-tmp/nrimp10s-77.imp"
L_0358:;
                                                                //   3727           P=P+1
#line 3727 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3728           GET WSP(WKAREA,268);          ! GET NEXT OPERAND
#line 3728 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&WKAREA, 268);
                                                                //   3729           DOTS=0;                        ! NO OPERATORS YET
#line 3729 "regression-compile-tmp/nrimp10s-77.imp"
DOTS = 0;
                                                                //   3730  NEXT:    STRINGL=0
#line 3730 "regression-compile-tmp/nrimp10s-77.imp"
U_1023:;
#line 3730 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = 0;
                                                                //   3731           ERR=STROP(DR);                ! GET NEXT OPERAND
#line 3731 "regression-compile-tmp/nrimp10s-77.imp"
ERR = STROP(1);
                                                                //   3732           -> ERROR %UNLESS ERR=0
#line 3732 "regression-compile-tmp/nrimp10s-77.imp"
if (((ERR) == (0))) goto L_0359;
#line 3732 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
#line 3732 "regression-compile-tmp/nrimp10s-77.imp"
L_0359:;
                                                                //   3733           %IF REGISTER(ACCR)#0 %THEN BOOT OUT(ACCR)
#line 3733 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) == (0))) goto L_035a;
#line 3733 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(0);
#line 3733 "regression-compile-tmp/nrimp10s-77.imp"
L_035a:;
                                                                //   3734           PSF1(LB,0,WKAREA);             ! BYTE DISP FROM LNB
#line 3734 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, WKAREA);
                                                                //   3735           PPJ(0,19+DOTS);                ! TO SUBROUTINE 19 OR 20
#line 3735 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, (((int)(19)) + (DOTS)));
                                                                //   3736           %IF A(P)=2 %THEN -> TIDY;     ! NO MORE OPERATIONS
#line 3736 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_035b;
#line 3736 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102b;
#line 3736 "regression-compile-tmp/nrimp10s-77.imp"
L_035b:;
                                                                //   3737           ERR=72; -> ERROR %UNLESS A(P+1)=CONCOP; ! CONCATENATE
#line 3737 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 72;
#line 3737 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (13))) goto L_035c;
#line 3737 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1022;
#line 3737 "regression-compile-tmp/nrimp10s-77.imp"
L_035c:;
                                                                //   3738           DOTS=DOTS!1
#line 3738 "regression-compile-tmp/nrimp10s-77.imp"
DOTS = ((DOTS) | (1));
                                                                //   3739           P=P+2; -> NEXT
#line 3739 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 3739 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1023;
                                                                //   3740  TIDY:                                  ! FINISH OFF
#line 3740 "regression-compile-tmp/nrimp10s-77.imp"
U_102b:;
                                                                //   3741           VALUE=WKAREA
#line 3741 "regression-compile-tmp/nrimp10s-77.imp"
VALUE = WKAREA;
                                                                //   3742           P=P+1;                        ! PAST REST OF EXPRN
#line 3742 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3743           RETURN WSP(WKAREA,268) %IF KEEPWA=0
#line 3743 "regression-compile-tmp/nrimp10s-77.imp"
if (((KEEPWA) != (0))) goto L_035d;
#line 3743 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(WKAREA, 268);
#line 3743 "regression-compile-tmp/nrimp10s-77.imp"
L_035d:;
                                                                //   3744           STRINGL=0
#line 3744 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = 0;
                                                                //   3745           %RETURN
#line 3745 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3746  %INTEGERFN STROP(%INTEGER REG)
#line 3746 "regression-compile-tmp/nrimp10s-77.imp"
int STROP( int REG )
#line 3746 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3747  !***********************************************************************
                                                                //   3748  !*       DEALS WITH OPERAND FOR CONCATENATION. RETURN RESULT=0 FOR     *
                                                                //   3749  !*       VALID OPERAND OTHERWISE AN ERROR NUMBER.                      *
                                                                //   3750  !***********************************************************************
                                                                //   3751  %INTEGER CTYPE,VAL,MODE
#line 3751 "regression-compile-tmp/nrimp10s-77.imp"
int CTYPE;
#line 3751 "regression-compile-tmp/nrimp10s-77.imp"
int VAL;
#line 3751 "regression-compile-tmp/nrimp10s-77.imp"
int MODE;
                                                                //   3752           MODE=A(P);                    ! ALTERNATIVE OF OPERAND
#line 3752 "regression-compile-tmp/nrimp10s-77.imp"
MODE = A[P];
                                                                //   3753           %RESULT=75 %IF MODE>2
#line 3753 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) <= (2))) goto L_035e;
#line 3753 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 75;
#line 3753 "regression-compile-tmp/nrimp10s-77.imp"
L_035e:;
                                                                //   3754           %IF MODE#1 %THEN %START
#line 3754 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (1))) goto L_035f;
                                                                //   3755              CTYPE=A(P+1);             ! GET CONST TYPE & LOSE AMCK FLAGS
#line 3755 "regression-compile-tmp/nrimp10s-77.imp"
CTYPE = A[(((int)(P)) + (1))];
                                                                //   3756              %IF CTYPE=16_35 %THEN %START
#line 3756 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTYPE) != (53))) goto L_0360;
                                                                //   3757                 STRINGL=A(P+6)
#line 3757 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = A[(((int)(P)) + (6))];
                                                                //   3758                 DISP=FROM AR4(P+2)
#line 3758 "regression-compile-tmp/nrimp10s-77.imp"
DISP = FROMAR4((((int)(P)) + (2)));
                                                                //   3759                 P=P+STRINGL+7
#line 3759 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)((((int)(P)) + (STRINGL)))) + (7));
                                                                //   3760              %FINISH %ELSE %RESULT=71
#line 3760 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0361;
#line 3760 "regression-compile-tmp/nrimp10s-77.imp"
L_0360:;
#line 3760 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 71;
#line 3760 "regression-compile-tmp/nrimp10s-77.imp"
L_0361:;
                                                                //   3761              PF1(LDRL,0,PC,STRLINK)
#line 3761 "regression-compile-tmp/nrimp10s-77.imp"
PF1(112, 0, 4, STRLINK);
                                                                //   3762              PSF1(INCA,0,DISP) %IF DISP#0
#line 3762 "regression-compile-tmp/nrimp10s-77.imp"
if (((DISP) == (0))) goto L_0362;
#line 3762 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, DISP);
#line 3762 "regression-compile-tmp/nrimp10s-77.imp"
L_0362:;
                                                                //   3763              %IF STRINGL#1 %THEN %START
#line 3763 "regression-compile-tmp/nrimp10s-77.imp"
if (((STRINGL) == (1))) goto L_0363;
                                                                //   3764                 %IF STRINGL<=63 %THEN PSF1(LDB,0,STRINGL) %ELSE PF1(LDB,2,7,0);! ((DR))
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
if (((STRINGL) > (63))) goto L_0364;
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, STRINGL);
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0365;
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
L_0364:;
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 2, 7, 0);
#line 3764 "regression-compile-tmp/nrimp10s-77.imp"
L_0365:;
                                                                //   3765              %FINISH
#line 3765 "regression-compile-tmp/nrimp10s-77.imp"
L_0363:;
                                                                //   3766              GRUSE(DR)=0
#line 3766 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   3767              %IF REG=ACCR %THEN COPY DR
#line 3767 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_0366;
#line 3767 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 3767 "regression-compile-tmp/nrimp10s-77.imp"
L_0366:;
                                                                //   3768           %FINISH %ELSE %START
#line 3768 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0367;
#line 3768 "regression-compile-tmp/nrimp10s-77.imp"
L_035f:;
                                                                //   3769              P=P+1;                      ! MUST CHECK FIRST
#line 3769 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3770              REDUCE TAG;                 ! SINCE CNAME ONLY LOADS STRINGS
#line 3770 "regression-compile-tmp/nrimp10s-77.imp"
REDUCETAG();
                                                                //   3771                                          ! AND LONGINTS TO DR!
                                                                //   3772              %IF 5#TYPE#7 %THEN FNAM=FROMAR2(P) %AND %RESULT=71
#line 3772 "regression-compile-tmp/nrimp10s-77.imp"
if ((((5) == (TYPE))) || (((TYPE) == (7)))) goto L_0368;
#line 3772 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = FROMAR2(P);
#line 3772 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 71;
#line 3772 "regression-compile-tmp/nrimp10s-77.imp"
L_0368:;
                                                                //   3773              CNAME(2,REG)
#line 3773 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(2, REG);
                                                                //   3774              STRINGL=0
#line 3774 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = 0;
                                                                //   3775              %IF ROUT#0 %AND NAM<=1 %START;! WAS FUNCTION NOT MAP
#line 3775 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) == (0))) goto L_0369;
#line 3775 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) > (1))) goto L_0369;
                                                                //   3776                 %IF WKAREA=0 %AND KEEPWA#0 %THEN WKAREA=STRFNRES %ELSE RETURN WSP(STRFNRES,268)
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
if (((WKAREA) != (0))) goto L_036a;
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
if (((KEEPWA) == (0))) goto L_036a;
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
WKAREA = STRFNRES;
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
goto L_036b;
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
L_036a:;
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(STRFNRES, 268);
#line 3776 "regression-compile-tmp/nrimp10s-77.imp"
L_036b:;
                                                                //   3777              %FINISH
#line 3777 "regression-compile-tmp/nrimp10s-77.imp"
L_0369:;
                                                                //   3778           %FINISH
#line 3778 "regression-compile-tmp/nrimp10s-77.imp"
L_0367:;
                                                                //   3779           %RESULT=0
#line 3779 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   3780           %END;                         ! OF INTEGERFN STROP
#line 3780 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block STROP at level 6
                                                                //   3781           %END;                         ! OF ROUTINE CSTREXP
#line 3781 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSTREXP at level 5
                                                                //   3782  %ROUTINE CRES (%INTEGER LAB)
#line 3782 "regression-compile-tmp/nrimp10s-77.imp"
void CRES( int LAB )
#line 3782 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3783  !**********************************************************************
                                                                //   3784  !*       COMPILES A RESOLUTION E.G A->B.(C).D.(E).F AND JUMPS TO LAB   *
                                                                //   3785  !*       ON FAILURE. (LAB=0 FOR UNCONDITIONAL RESOLUTION TO PERM ON    *
                                                                //   3786  !*       FAILURE ).                                                    *
                                                                //   3787  !*       THE  METHOD IS TO CALL A SUBROUTINE PASSING 3 PARAMS:-        *
                                                                //   3788  !*       P1  POINTS TO LHS(A)                                          *
                                                                //   3789  !*       P2    STRING TO CONTAIN FRAGMENT (PASSED BY NAME)             *
                                                                //   3790  !*       P3 THE EXPRESSION PASSED AS DESCRIPTOR                        *
                                                                //   3791  !*       SUBROUTINE TRIES TO PERFORM THE RESOLUTION AND SETS THE       *
                                                                //   3792  !*       CONDITION CODE =8 IF IT SUCCEEDS.                             *
                                                                //   3793  !*                                                                     *
                                                                //   3794  !*       ON ENTRY LHS IS DEFINED BY DESCRIPTOR REG.                    *
                                                                //   3795  !*       P POINTS TO P(+') OF RHS DEFINED AS (+')(OPERAND)(RESTOFEXP)  *
                                                                //   3796  !*                                                                     *
                                                                //   3797  !$       THE ROUTINE IS COMPACT BUT DIFFICULT TO FOLLOW (OR ALTER)     *
                                                                //   3798  !*       THE TIME IN PERM IS LARGE SO IT IS NOT WORTHWHILE TO PERSUE   *
                                                                //   3799  !*       CODE EFFICIENCY TOO INDUSTRIOUSLY .                           *
                                                                //   3800  !**********************************************************************
                                                                //   3801  %INTEGER P1,P2,SEXPRN,W,LAST,ERR,FNAM
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int P1;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int P2;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int SEXPRN;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int W;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int LAST;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int ERR;
#line 3801 "regression-compile-tmp/nrimp10s-77.imp"
int FNAM;
                                                                //   3802  %RECORD (RD) R{(RD)
#line 3802 "regression-compile-tmp/nrimp10s-77.imp"
 RD R;
                                                                //   3803           LAST=0; FNAM=0;                ! =1 WHEN END OF EXPRNSN FOUND
#line 3803 "regression-compile-tmp/nrimp10s-77.imp"
LAST = 0;
#line 3803 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = 0;
                                                                //   3804           SEXPRN=0;                      ! RESOLUTION(BRKTD) EXPRESSNS
#line 3804 "regression-compile-tmp/nrimp10s-77.imp"
SEXPRN = 0;
                                                                //   3805           ERR=74;                        ! NORMAL CRES FAULT
#line 3805 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 74;
                                                                //   3806           PSF1(INCA,0,1);                ! TO FIRST CHAR
#line 3806 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, 1);
                                                                //   3807           P1=P; P=P+3
#line 3807 "regression-compile-tmp/nrimp10s-77.imp"
P1 = P;
#line 3807 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   3808           ->RES %IF A(P)=4;              ! LHS MUST BE A STRING
#line 3808 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (4))) goto L_036c;
#line 3808 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102c;
#line 3808 "regression-compile-tmp/nrimp10s-77.imp"
L_036c:;
                                                                //   3809                                          ! BUT THIS CHECKED BEFORE CALL
                                                                //   3810           ERR=72
#line 3810 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 72;
                                                                //   3811  ERROR:   FAULT2(ERR,0,FNAM)
#line 3811 "regression-compile-tmp/nrimp10s-77.imp"
U_102d:;
#line 3811 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(ERR, 0, FNAM);
                                                                //   3812           P=P1; SKIP EXP; %RETURN
#line 3812 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 3812 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
#line 3812 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   3813  RES:     P=P+1;                        ! TO P(OPERAND)
#line 3813 "regression-compile-tmp/nrimp10s-77.imp"
U_102c:;
#line 3813 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3814           PSF1(PRCL,0,4)
#line 3814 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   3815           %IF SEXPRN=0 %THEN W=STD %ELSE W=ST
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
if (((SEXPRN) != (0))) goto L_036d;
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
W = 88;
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
goto L_036e;
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
L_036d:;
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
W = 72;
#line 3815 "regression-compile-tmp/nrimp10s-77.imp"
L_036e:;
                                                                //   3816           PF1(W,0,TOS,0)
#line 3816 "regression-compile-tmp/nrimp10s-77.imp"
PF1(W, 0, 6, 0);
                                                                //   3817           %IF A(P)=3 %THEN PSF1(LSD,0,0) %AND GRUSE(ACCR)=0 %ELSE %START;! B OMITTED
#line 3817 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (3))) goto L_036f;
#line 3817 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(100, 0, 0);
#line 3817 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 3817 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0370;
#line 3817 "regression-compile-tmp/nrimp10s-77.imp"
L_036f:;
                                                                //   3818              ->ERROR %UNLESS A(P)=1;       ! P(OPERAND)=NAME
#line 3818 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (1))) goto L_0371;
#line 3818 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3818 "regression-compile-tmp/nrimp10s-77.imp"
L_0371:;
                                                                //   3819              P=P+1; P2=P
#line 3819 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 3819 "regression-compile-tmp/nrimp10s-77.imp"
P2 = P;
                                                                //   3820              CNAME(3,ACCR)
#line 3820 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, 0);
                                                                //   3821              %IF TYPE#5 %THEN ERR=71 %AND FNAM=FROMAR2(P2) %AND ->ERROR
#line 3821 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_0372;
#line 3821 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 71;
#line 3821 "regression-compile-tmp/nrimp10s-77.imp"
FNAM = FROMAR2(P2);
#line 3821 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3821 "regression-compile-tmp/nrimp10s-77.imp"
L_0372:;
                                                                //   3822              %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR
#line 3822 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (13))) goto L_0373;
#line 3822 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 72;
#line 3822 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3822 "regression-compile-tmp/nrimp10s-77.imp"
L_0373:;
                                                                //   3823              P=P+2
#line 3823 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   3824           %FINISH
#line 3824 "regression-compile-tmp/nrimp10s-77.imp"
L_0370:;
                                                                //   3825           PF1(ST,0,TOS,0);               ! B (OR DUMMY) TO P2
#line 3825 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   3826           ->ERROR %UNLESS A(P)=3;        ! P(OPERAND)='('(EXPR)')'
#line 3826 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (3))) goto L_0374;
#line 3826 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3826 "regression-compile-tmp/nrimp10s-77.imp"
L_0374:;
                                                                //   3827           SEXPRN=SEXPRN+1; P=P+1
#line 3827 "regression-compile-tmp/nrimp10s-77.imp"
SEXPRN = (((int)(SEXPRN)) + (1));
#line 3827 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3828           CSTREXP(0,DR);                 ! TO REGISTER DR
#line 3828 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(0, 1);
                                                                //   3829  !
                                                                //   3830           PF1(STD,0,TOS,0)
#line 3830 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   3831           PSF1(RALN,0,11)
#line 3831 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 11);
                                                                //   3832           PPJ(-1,16)
#line 3832 "regression-compile-tmp/nrimp10s-77.imp"
PPJ((-1), 16);
                                                                //   3833                                         ! DEAL WITH CC#8 IE RESLN FAILED
                                                                //   3834           %IF LAB#0 %THEN ENTER JUMP(7,LAB,B'11') %ELSE PPJ(7,12)
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) == (0))) goto L_0375;
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(7, LAB, 3);
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0376;
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
L_0375:;
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(7, 12);
#line 3834 "regression-compile-tmp/nrimp10s-77.imp"
L_0376:;
                                                                //   3835  !
                                                                //   3836           -> END %IF A(P)=2
#line 3836 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0377;
#line 3836 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102a;
#line 3836 "regression-compile-tmp/nrimp10s-77.imp"
L_0377:;
                                                                //   3837           %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR
#line 3837 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (13))) goto L_0378;
#line 3837 "regression-compile-tmp/nrimp10s-77.imp"
ERR = 72;
#line 3837 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3837 "regression-compile-tmp/nrimp10s-77.imp"
L_0378:;
                                                                //   3838           ->ERROR %UNLESS A(P+2)=1
#line 3838 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) == (1))) goto L_0379;
#line 3838 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 3838 "regression-compile-tmp/nrimp10s-77.imp"
L_0379:;
                                                                //   3839           P2=P+1; P=P2+1
#line 3839 "regression-compile-tmp/nrimp10s-77.imp"
P2 = (((int)(P)) + (1));
#line 3839 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (1));
                                                                //   3840           P=P+3 %AND SKIP APP %UNTIL A(P)=2
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
L_037a:;
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_037b;
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
goto L_037a;
#line 3840 "regression-compile-tmp/nrimp10s-77.imp"
L_037b:;
                                                                //   3841           %IF A(P+1)=1 %THEN P=P2 %AND ->RES
#line 3841 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) != (1))) goto L_037d;
#line 3841 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
#line 3841 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102c;
#line 3841 "regression-compile-tmp/nrimp10s-77.imp"
L_037d:;
                                                                //   3842           P1=P+1
#line 3842 "regression-compile-tmp/nrimp10s-77.imp"
P1 = (((int)(P)) + (1));
                                                                //   3843           REGISTER(ACCR)=1
#line 3843 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   3844           OLINK(ACCR)=ADDR(R)
#line 3844 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   3845           R_PTYPE=1; R_XB=ACCR
#line 3845 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 1;
#line 3845 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = 0;
                                                                //   3846           R_FLAG=9
#line 3846 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
                                                                //   3847           P=P2+2; CNAME(1,DR)
#line 3847 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (2));
#line 3847 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(1, 1);
                                                                //   3848           %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0)
#line 3848 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_037e;
#line 3848 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
#line 3848 "regression-compile-tmp/nrimp10s-77.imp"
L_037e:;
                                                                //   3849           REGISTER(ACCR)=0
#line 3849 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   3850           PF1(STUH,0,BREG,0)
#line 3850 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
                                                                //   3851           PF1(LUH,0,BREG,0)
#line 3851 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 7, 0);
                                                                //   3852           PF2(MVL,0,0,0,0,0)
#line 3852 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, 0, 0, 0, 0, 0);
                                                                //   3853           %IF ROUT#0 %OR NAM#0 %THEN PPJ(0,18);! ASSNMNT CHECK (Q.V)
#line 3853 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (0))) goto L_037c;
#line 3853 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_037f;
#line 3853 "regression-compile-tmp/nrimp10s-77.imp"
L_037c:;
#line 3853 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 18);
#line 3853 "regression-compile-tmp/nrimp10s-77.imp"
L_037f:;
                                                                //   3854           PF2(MV,1,1,0,0,UNASSPAT&255)
#line 3854 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   3855           GRUSE(ACCR)=0
#line 3855 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   3856           %IF PARMARR=1 %START
#line 3856 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) != (1))) goto L_0380;
                                                                //   3857              PSF1(USH,0,8)
#line 3857 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, 8);
                                                                //   3858              PSF1(USH,0,-40)
#line 3858 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-40));
                                                                //   3859              PPJ(36,9)
#line 3859 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(36, 9);
                                                                //   3860           %FINISH
#line 3860 "regression-compile-tmp/nrimp10s-77.imp"
L_0380:;
                                                                //   3861           P=P1
#line 3861 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
                                                                //   3862  END:
#line 3862 "regression-compile-tmp/nrimp10s-77.imp"
U_102a:;
                                                                //   3863           P=P+1
#line 3863 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   3864           %END
#line 3864 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRES at level 5
                                                                //   3865  %ROUTINE SAVE AUX STACK
#line 3865 "regression-compile-tmp/nrimp10s-77.imp"
void SAVEAUXSTACK( void )
#line 3865 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3866  !***********************************************************************
                                                                //   3867  !*       COPY AUX STACK DESCRPTR & POINTER INTO CURRENT STACK FRAME    *
                                                                //   3868  !*       FIVE WORDS ARE USED FOR THIS PURPOSE:-                         *
                                                                //   3869  !*       1&2 HOLD AUX STACK DESCRIPTOR                                 *
                                                                //   3870  !*       3 HOLDS VALUE AT BLK ENTRY FOR USE AT EXIT                    *
                                                                //   3871  !*       4 HOLDS STACKTOP VALUE AFTER ALL ARRAY DECLNS(FOR %ONS)       *
                                                                //   3872  !*       5 HOLD STACKLIMIT FOR CHECKING AT ARRAY DECLARATIONS          *
                                                                //   3873  !*       THE LATTER IS OMITTED INPARM=OPT                              *
                                                                //   3874  !***********************************************************************
                                                                //   3875  %INTEGER XYNB, DR0, DR1
#line 3875 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
#line 3875 "regression-compile-tmp/nrimp10s-77.imp"
int DR0;
#line 3875 "regression-compile-tmp/nrimp10s-77.imp"
int DR1;
                                                                //   3876        %IF AUXST=0 %THEN %START;         ! FIRST REF PUT REF IN PLT
#line 3876 "regression-compile-tmp/nrimp10s-77.imp"
if (((AUXST) != (0))) goto L_0381;
                                                                //   3877           DR0=16_30000001; DR1=0
#line 3877 "regression-compile-tmp/nrimp10s-77.imp"
DR0 = 805306369;
#line 3877 "regression-compile-tmp/nrimp10s-77.imp"
DR1 = 0;
                                                                //   3878           PGLA(8,8,ADDR(DR0))
#line 3878 "regression-compile-tmp/nrimp10s-77.imp"
PGLA(8, 8, _imp_ADDR(&DR0));
                                                                //   3879           AUXST=GLACA-8
#line 3879 "regression-compile-tmp/nrimp10s-77.imp"
AUXST = (((int)(GLACA)) - (8));
                                                                //   3880           GXREF(AUXSTEP,2,16_02000008,AUXST+4)
#line 3880 "regression-compile-tmp/nrimp10s-77.imp"
GXREF(AUXSTEP, 2, 33554440, (((int)(AUXST)) + (4)));
                                                                //   3881        %FINISH
#line 3881 "regression-compile-tmp/nrimp10s-77.imp"
L_0381:;
                                                                //   3882        %IF AUXSBASE(LEVEL)=0 %START
#line 3882 "regression-compile-tmp/nrimp10s-77.imp"
if (((AUXSBASE[LEVEL]) != (0))) goto L_0382;
                                                                //   3883           XYNB=SET XORYNB(-1,-1)
#line 3883 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = SETXORYNB((-1), (-1));
                                                                //   3884           PF1(LD,2,XYNB,AUXST)
#line 3884 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 2, XYNB, AUXST);
                                                                //   3885           %IF PARMOPT#0 %THEN %START
#line 3885 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0383;
                                                                //   3886              PF1(LSS,1,0,2);             ! PICK UP STACKTOP
#line 3886 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 1, 0, 2);
                                                                //   3887              PSF1(ST,1,N+16)
#line 3887 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(N)) + (16)));
                                                                //   3888           %FINISH
#line 3888 "regression-compile-tmp/nrimp10s-77.imp"
L_0383:;
                                                                //   3889           PF1(LSS,2,7,0)
#line 3889 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 2, 7, 0);
                                                                //   3890           PSF1(STD,1,N)
#line 3890 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, N);
                                                                //   3891           PSF1(ST,1,N+8)
#line 3891 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(N)) + (8)));
                                                                //   3892           AUXSBASE(LEVEL)=N; N=N+16
#line 3892 "regression-compile-tmp/nrimp10s-77.imp"
AUXSBASE[LEVEL] = N;
#line 3892 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (16));
                                                                //   3893           %IF PARMOPT#0 %THEN N=N+4
#line 3893 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0384;
#line 3893 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
#line 3893 "regression-compile-tmp/nrimp10s-77.imp"
L_0384:;
                                                                //   3894           GRUSE(DR)=0; GRUSE(ACCR)=11; GRINF1(ACCR)=0
#line 3894 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
#line 3894 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 11;
#line 3894 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   3895        %FINISH
#line 3895 "regression-compile-tmp/nrimp10s-77.imp"
L_0382:;
                                                                //   3896  %END
#line 3896 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SAVEAUXSTACK at level 5
                                                                //   3897  %ROUTINE RESET AUX STACK
#line 3897 "regression-compile-tmp/nrimp10s-77.imp"
void RESETAUXSTACK( void )
#line 3897 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3898  !***********************************************************************
                                                                //   3899  !*       IF ANY ARRAYS HAVE BEEN PUT ON THE AUXSTACK THEN UNDECLARE    *
                                                                //   3900  !***********************************************************************
                                                                //   3901           %IF AUXSBASE(LEVEL)#0 %START
#line 3901 "regression-compile-tmp/nrimp10s-77.imp"
if (((AUXSBASE[LEVEL]) == (0))) goto L_0385;
                                                                //   3902              PSF1(LB,1,AUXSBASE(LEVEL)+8)
#line 3902 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 1, (((int)(AUXSBASE[LEVEL])) + (8)));
                                                                //   3903              PSF1(STB,2,AUXSBASE(LEVEL))
#line 3903 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(90, 2, AUXSBASE[LEVEL]);
                                                                //   3904              GRUSE(BREG)=0
#line 3904 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   3905           %FINISH
#line 3905 "regression-compile-tmp/nrimp10s-77.imp"
L_0385:;
                                                                //   3906  %END
#line 3906 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RESETAUXSTACK at level 5
                                                                //   3907           %ROUTINE RT EXIT
#line 3907 "regression-compile-tmp/nrimp10s-77.imp"
void RTEXIT( void )
#line 3907 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3908  !***********************************************************************
                                                                //   3909  !*       THIS ROUTINE COMPILES CODE FOR ROUTINE EXIT(IE '%RETURN')     *
                                                                //   3910  !***********************************************************************
                                                                //   3911           RESET AUX STACK
#line 3911 "regression-compile-tmp/nrimp10s-77.imp"
RESETAUXSTACK();
                                                                //   3912           PSF1(EXIT,0,-16_40)
#line 3912 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(56, 0, (-64));
                                                                //   3913           %END
#line 3913 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RTEXIT at level 5
                                                                //   3914  %ROUTINE CLAIM ST FRAME(%INTEGER AT,VALUE)
#line 3914 "regression-compile-tmp/nrimp10s-77.imp"
void CLAIMSTFRAME( int AT, int VALUE )
#line 3914 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3915  !***********************************************************************
                                                                //   3916  !*       FILL ASF INSTN IN RT ENTRY SEQUENCE TO CLAIM THE STACKFRAME   *
                                                                //   3917  !***********************************************************************
                                                                //   3918  %INTEGER INSTR, WK
#line 3918 "regression-compile-tmp/nrimp10s-77.imp"
int INSTR;
#line 3918 "regression-compile-tmp/nrimp10s-77.imp"
int WK;
                                                                //   3919           WK=AT>>18;               ! BYTES CLAIMED BY ENTRY SEQ
#line 3919 "regression-compile-tmp/nrimp10s-77.imp"
WK = (int)((((unsigned int)(AT)) >> (18)));
                                                                //   3920           AT=AT&16_3FFFF;            ! ADRR OF ASF INSTRN
#line 3920 "regression-compile-tmp/nrimp10s-77.imp"
AT = ((AT) & (262143));
                                                                //   3921           INSTR=(ASF+12*PARMCHK)<<24!3<<23!(VALUE-WK+3)>>2
#line 3921 "regression-compile-tmp/nrimp10s-77.imp"
INSTR = ((((((((110) + ((int)((((int)(12)) * (PARMCHK)))))) << (24))) | (((3) << (23))))) | ((((((((int)((((int)(VALUE)) - (WK)))) + (3)))) >> (2)))));
                                                                //   3922           PLUG(1,AT,INSTR,4)
#line 3922 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(1, AT, INSTR, 4);
                                                                //   3923  %END
#line 3923 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLAIMSTFRAME at level 5
                                                                //   3924           %ROUTINE CEND (%INTEGER KKK)
#line 3924 "regression-compile-tmp/nrimp10s-77.imp"
void CEND( int KKK )
#line 3924 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   3925  !***********************************************************************
                                                                //   3926  !*       DEAL WITH ALL OCCURENCES OF '%END'                            *
                                                                //   3927  !*       KKK=PTYPE(>=16_1000) FOR ROUTINES,FNS AND MAPS                *
                                                                //   3928  !*       KKK=0 FOR ENDS OF '%BEGIN' BLOCKS                             *
                                                                //   3929  !*       KKK=1 FOR '%ENDOFPROGRAM'                                     *
                                                                //   3930  !*       %ENDOFPROGRAM IS REALLY TWO ENDS. THE FIRST IS THE USERS      *
                                                                //   3931  !*       AND THE SECOND IS PERMS. KKK=2 FOR A RECURSIVE CALL OF CEND   *
                                                                //   3932  !*       ON END OF PROGRAM TO DEAL WITH THE %END CORRESPONDING TO      *
                                                                //   3933  !*       THE %BEGIN COMPILED IN THE INITIALISATION SEQUENCE            *
                                                                //   3934  !***********************************************************************
                                                                //   3935           %INTEGER KP,JJ,BIT
#line 3935 "regression-compile-tmp/nrimp10s-77.imp"
int KP;
#line 3935 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 3935 "regression-compile-tmp/nrimp10s-77.imp"
int BIT;
                                                                //   3936           %ROUTINESPEC DTABLE(%INTEGER LEVEL)
#line 3936 "regression-compile-tmp/nrimp10s-77.imp"
auto void DTABLE( int LEVEL );
                                                                //   3937           SET LINE %UNLESS KKK=2
#line 3937 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) == (2))) goto L_0386;
#line 3937 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 3937 "regression-compile-tmp/nrimp10s-77.imp"
L_0386:;
                                                                //   3938           FORGET(-1)
#line 3938 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   3939           BIT=1<<LEVEL
#line 3939 "regression-compile-tmp/nrimp10s-77.imp"
BIT = ((1) << (LEVEL));
                                                                //   3940  !
                                                                //   3941  ! NOW PLANT AN ERROR EXIT FOR FNS AND MAPS - CONTROL SHOULD BE RETURNED
                                                                //   3942  ! VIA %RESULT= AN SHOULD NEVVER REACH THE %END INSTRUCTION
                                                                //   3943  !
                                                                //   3944           %IF KKK&16_3FFF>16_1000 %AND COMPILER=0 %AND LAST INST=0 %THEN PPJ(15,10);          ! RUN FAULT 11
#line 3944 "regression-compile-tmp/nrimp10s-77.imp"
if (((((KKK) & (16383))) <= (4096))) goto L_0387;
#line 3944 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPILER) != (0))) goto L_0387;
#line 3944 "regression-compile-tmp/nrimp10s-77.imp"
if (((LASTINST) != (0))) goto L_0387;
#line 3944 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(15, 10);
#line 3944 "regression-compile-tmp/nrimp10s-77.imp"
L_0387:;
                                                                //   3945           NMAX=N %IF N>NMAX;            ! WORK SPACE POINTER
#line 3945 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) <= (NMAX))) goto L_0388;
#line 3945 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = N;
#line 3945 "regression-compile-tmp/nrimp10s-77.imp"
L_0388:;
                                                                //   3946  !
                                                                //   3947  ! CLEAR OUT THE LABEL LIST FAULTING LABELS WITH JUMPS OUTSTANDING
                                                                //   3948  ! AS NOT SET AND COMMENTING ON LABELS NOT USED
                                                                //   3949  !
                                                                //   3950           %WHILE LABEL(LEVEL)#0 %CYCLE
#line 3950 "regression-compile-tmp/nrimp10s-77.imp"
L_0389:;
#line 3950 "regression-compile-tmp/nrimp10s-77.imp"
if (((LABEL[LEVEL]) == (0))) goto L_038a;
                                                                //   3951              POP(LABEL(LEVEL),I,J,KP)
#line 3951 "regression-compile-tmp/nrimp10s-77.imp"
POP(&LABEL[LEVEL], &I, &J, &KP);
                                                                //   3952              I=I>>24
#line 3952 "regression-compile-tmp/nrimp10s-77.imp"
I = (int)((((unsigned int)(I)) >> (24)));
                                                                //   3953              %IF J&16_FFFF#0 %THEN %START
#line 3953 "regression-compile-tmp/nrimp10s-77.imp"
if (((((J) & (65535))) == (0))) goto L_038c;
                                                                //   3954                 J=J&16_FFFF
#line 3954 "regression-compile-tmp/nrimp10s-77.imp"
J = ((J) & (65535));
                                                                //   3955                 %IF 0<KP<=MAX ULAB %THEN FAULT2(11,FROM3(J),KP)
#line 3955 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) >= (KP))) || (((KP) > (MAXULAB)))) goto L_038d;
#line 3955 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(11, FROM3(J), KP);
#line 3955 "regression-compile-tmp/nrimp10s-77.imp"
L_038d:;
                                                                //   3956                 CLEAR LIST(J)
#line 3956 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&J);
                                                                //   3957              %FINISH %ELSE %START
#line 3957 "regression-compile-tmp/nrimp10s-77.imp"
goto L_038e;
#line 3957 "regression-compile-tmp/nrimp10s-77.imp"
L_038c:;
                                                                //   3958                 %IF I=0 %AND KP<MAX ULAB %THEN WARN(3,KP)
#line 3958 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (0))) goto L_038f;
#line 3958 "regression-compile-tmp/nrimp10s-77.imp"
if (((KP) >= (MAXULAB))) goto L_038f;
#line 3958 "regression-compile-tmp/nrimp10s-77.imp"
WARN(3, KP);
#line 3958 "regression-compile-tmp/nrimp10s-77.imp"
L_038f:;
                                                                //   3959              %FINISH
#line 3959 "regression-compile-tmp/nrimp10s-77.imp"
L_038e:;
                                                                //   3960           %REPEAT
#line 3960 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0389;
#line 3960 "regression-compile-tmp/nrimp10s-77.imp"
L_038a:;
                                                                //   3961  !
                                                                //   3962           %CYCLE JJ=0,1,4
#line 3962 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (-1);
if ((((4)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, 4");
L_0390:;
if (JJ == 4) goto L_0391;
JJ += 1;
                                                                //   3963              CLEAR LIST(AVL WSP(JJ,LEVEL));! RELEASE TEMPORARY LOCATIONS
#line 3963 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&AVLWSP[JJ][LEVEL]);
                                                                //   3964           %REPEAT
#line 3964 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0390;
#line 3964 "regression-compile-tmp/nrimp10s-77.imp"
L_0391:;
                                                                //   3965  !
                                                                //   3966           DTABLE(LEVEL);                ! OUTPUT DIAGNOSTIC TABLES
#line 3966 "regression-compile-tmp/nrimp10s-77.imp"
DTABLE(LEVEL);
                                                                //   3967  !
                                                                //   3968  ! CLEAR DECLARATIONS - POP UP ANY GLOBAL NAMES THAT WERE REDECLARED
                                                                //   3969  ! DESTROY SIDE CHAINS FOR ROUTINES,FORMATS AND SWITCHES
                                                                //   3970  !
                                                                //   3971  !
                                                                //   3972  ! NOW CLAIM THE STACK FRAME BY FILING THE ASF IN THE BLOCK ENTRY CODING
                                                                //   3973  !
                                                                //   3974           NMAX=(NMAX+7)&(-8)
#line 3974 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = (((((int)(NMAX)) + (7))) & ((-8)));
                                                                //   3975           %IF KKK=2 %THEN %RETURN
#line 3975 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (2))) goto L_0393;
#line 3975 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 3975 "regression-compile-tmp/nrimp10s-77.imp"
L_0393:;
                                                                //   3976         %IF KKK>=16_1000 %OR KKK=1 %THEN CLAIM ST FRAME(SET(RLEVEL),NMAX)
#line 3976 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) >= (4096))) goto L_0392;
#line 3976 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (1))) goto L_0394;
#line 3976 "regression-compile-tmp/nrimp10s-77.imp"
L_0392:;
#line 3976 "regression-compile-tmp/nrimp10s-77.imp"
CLAIMSTFRAME(SET[RLEVEL], NMAX);
#line 3976 "regression-compile-tmp/nrimp10s-77.imp"
L_0394:;
                                                                //   3977  !
                                                                //   3978  ! NOW PLANT THE BLOCK EXIT SEQUENCE
                                                                //   3979  !
                                                                //   3980           %IF KKK&16_3FFF=16_1000 %AND LAST INST=0 %THEN RT EXIT
#line 3980 "regression-compile-tmp/nrimp10s-77.imp"
if (((((KKK) & (16383))) != (4096))) goto L_0395;
#line 3980 "regression-compile-tmp/nrimp10s-77.imp"
if (((LASTINST) != (0))) goto L_0395;
#line 3980 "regression-compile-tmp/nrimp10s-77.imp"
RTEXIT();
#line 3980 "regression-compile-tmp/nrimp10s-77.imp"
L_0395:;
                                                                //   3981           PPJ(15,21) %IF KKK=1 %AND LAST INST=0;! %STOP AT %ENDOFPROGRAM
#line 3981 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (1))) goto L_0396;
#line 3981 "regression-compile-tmp/nrimp10s-77.imp"
if (((LASTINST) != (0))) goto L_0396;
#line 3981 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(15, 21);
#line 3981 "regression-compile-tmp/nrimp10s-77.imp"
L_0396:;
                                                                //   3982           %IF KKK=0 %THEN %START;         ! BEGIN BLOCK EXIT
#line 3982 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (0))) goto L_0397;
                                                                //   3983              %IF PARMTRACE=1 %THEN %START;    ! RESTORE DIAGS POINTERS
#line 3983 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) != (1))) goto L_0398;
                                                                //   3984                 PSF1(LD,1,12)
#line 3984 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 12);
                                                                //   3985                 DIAG POINTER(LEVEL-1)
#line 3985 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER((((int)(LEVEL)) - (1)));
                                                                //   3986                 PSF1(STD,1,12)
#line 3986 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   3987              %FINISH
#line 3987 "regression-compile-tmp/nrimp10s-77.imp"
L_0398:;
                                                                //   3988              %IF STACK#0 %START
#line 3988 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) == (0))) goto L_0399;
                                                                //   3989                 JJ=NMDECS(LEVEL)>>14
#line 3989 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (int)((((unsigned int)(NMDECS[LEVEL])) >> (14)));
                                                                //   3990                 %IF JJ#0 %THEN %START;   ! ARRAYS TO BE UNDECLARED
#line 3990 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_039a;
                                                                //   3991                    PF1(STSF,0,TOS,0)
#line 3991 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 6, 0);
                                                                //   3992                    PF1(LSS,0,TOS,0)
#line 3992 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
                                                                //   3993                    PSF1(ISB,1,JJ)
#line 3993 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(226, 1, JJ);
                                                                //   3994                    PSF1(USH,0,-2)
#line 3994 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-2));
                                                                //   3995                    PF1(ST,0,TOS,0)
#line 3995 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   3996                    PF1(ASF,0,TOS,0)
#line 3996 "regression-compile-tmp/nrimp10s-77.imp"
PF1(110, 0, 6, 0);
                                                                //   3997                    GRUSE(ACCR)=0
#line 3997 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   3998                 %FINISH
#line 3998 "regression-compile-tmp/nrimp10s-77.imp"
L_039a:;
                                                                //   3999              %FINISH %ELSE RESET AUX STACK
#line 3999 "regression-compile-tmp/nrimp10s-77.imp"
goto L_039b;
#line 3999 "regression-compile-tmp/nrimp10s-77.imp"
L_0399:;
#line 3999 "regression-compile-tmp/nrimp10s-77.imp"
RESETAUXSTACK();
#line 3999 "regression-compile-tmp/nrimp10s-77.imp"
L_039b:;
                                                                //   4000           %FINISH
#line 4000 "regression-compile-tmp/nrimp10s-77.imp"
L_0397:;
                                                                //   4001  !
                                                                //   4002  ! RETURN TO PREVIOUS LEVEL PROVIDED THERE IS A VALID ONE !
                                                                //   4003  !
                                                                //   4004           %UNLESS LEVEL>2 %OR (LEVEL=2 %AND CPRMODE=2) %THEN %START
#line 4004 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) > (2))) goto L_039c;
#line 4004 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_039d;
#line 4004 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) == (2))) goto L_039c;
#line 4004 "regression-compile-tmp/nrimp10s-77.imp"
L_039d:;
                                                                //   4005              %IF KKK=1 %AND LEVEL=2 %THEN KKK=2 %ELSE FAULT(14,0) %AND %STOP
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (1))) goto L_039e;
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_039e;
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
KKK = 2;
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
goto L_039f;
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
L_039e:;
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(14, 0);
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
#line 4005 "regression-compile-tmp/nrimp10s-77.imp"
L_039f:;
                                                                //   4006           %FINISH
#line 4006 "regression-compile-tmp/nrimp10s-77.imp"
L_039c:;
                                                                //   4007           LEVEL=LEVEL-1
#line 4007 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //   4008           %IF KKK>=16_1000 %THEN %START
#line 4008 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) < (4096))) goto L_03a0;
                                                                //   4009              RLEVEL=RLEVEL-1
#line 4009 "regression-compile-tmp/nrimp10s-77.imp"
RLEVEL = (((int)(RLEVEL)) - (1));
                                                                //   4010              RBASE=RLEVEL
#line 4010 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = RLEVEL;
                                                                //   4011           %FINISH
#line 4011 "regression-compile-tmp/nrimp10s-77.imp"
L_03a0:;
                                                                //   4012  !
                                                                //   4013  ! RESTORE INFORMATION ABOUT THE (NEW) CURRENT LEVEL
                                                                //   4014  !
                                                                //   4015           POP(LEVELINF,KP,N,KP)
#line 4015 "regression-compile-tmp/nrimp10s-77.imp"
POP(&LEVELINF, &KP, &N, &KP);
                                                                //   4016           NMAX=N>>16 %IF KKK>=16_1000
#line 4016 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) < (4096))) goto L_03a1;
#line 4016 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = (int)((((unsigned int)(N)) >> (16)));
#line 4016 "regression-compile-tmp/nrimp10s-77.imp"
L_03a1:;
                                                                //   4017           N=N&16_7FFF
#line 4017 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) & (32767));
                                                                //   4018           %IF KKK=2 %THEN CEND(KKK);    ! ROUND AGAIN FOR 'ENDOFPROGRAM'
#line 4018 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) != (2))) goto L_03a2;
#line 4018 "regression-compile-tmp/nrimp10s-77.imp"
CEND(KKK);
#line 4018 "regression-compile-tmp/nrimp10s-77.imp"
L_03a2:;
                                                                //   4019  !
                                                                //   4020  ! COMPLETE THE JUMP AROUND ALL NON-EXTERNAL ROUTINES EXCEPT WHEN
                                                                //   4021  ! %TRUSTEDPROGRAM IS IN OPERATION.
                                                                //   4022  !
                                                                //   4023           %IF ASL WARN#0 %THEN ASL WARN=0 %AND EPILOGUE
#line 4023 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASLWARN) == (0))) goto L_03a3;
#line 4023 "regression-compile-tmp/nrimp10s-77.imp"
ASLWARN = 0;
#line 4023 "regression-compile-tmp/nrimp10s-77.imp"
EPILOGUE();
#line 4023 "regression-compile-tmp/nrimp10s-77.imp"
L_03a3:;
                                                                //   4024           %IF KKK>=16_1000 %AND COMPILER=0 %AND(RLEVEL>0 %OR CPRMODE#2) %THEN %START
#line 4024 "regression-compile-tmp/nrimp10s-77.imp"
if (((KKK) < (4096))) goto L_03a4;
#line 4024 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPILER) != (0))) goto L_03a4;
#line 4024 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEVEL) > (0))) goto L_03a5;
#line 4024 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) == (2))) goto L_03a4;
#line 4024 "regression-compile-tmp/nrimp10s-77.imp"
L_03a5:;
                                                                //   4025              JJ=NEXTP+6
#line 4025 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)(NEXTP)) + (6));
                                                                //   4026              %UNLESS A(NEXTP+5)=11 %AND A(JJ+FROMAR2(JJ))=2 %START
#line 4026 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(NEXTP)) + (5))]) != (11))) goto L_03a6;
#line 4026 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(JJ)) + (FROMAR2(JJ)))]) == (2))) goto L_03a7;
#line 4026 "regression-compile-tmp/nrimp10s-77.imp"
L_03a6:;
                                                                //   4027                 JJ=ENTER LAB(JROUND(LEVEL+1),0)
#line 4027 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ENTERLAB(JROUND[(((int)(LEVEL)) + (1))], 0);
                                                                //   4028                 JROUND(LEVEL+1)=0
#line 4028 "regression-compile-tmp/nrimp10s-77.imp"
JROUND[(((int)(LEVEL)) + (1))] = 0;
                                                                //   4029              %FINISH
#line 4029 "regression-compile-tmp/nrimp10s-77.imp"
L_03a7:;
                                                                //   4030           %FINISH
#line 4030 "regression-compile-tmp/nrimp10s-77.imp"
L_03a4:;
                                                                //   4031           %RETURN
#line 4031 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4032  !
                                                                //   4033  ! LAYOUT OF DIAGNOSIC TABLES
                                                                //   4034  ! ****** ** ********* ******
                                                                //   4035  !
                                                                //   4036  ! THE BOUND FIELD OF PLT DESCRIPTOR STORED AT (LNB+3 & LNB+4) IF
                                                                //   4037  ! USED TO CONTAIN A DISPLACEMENT RELATIVE TO THE START OF SST OF THE
                                                                //   4038  ! DIAGNOSTIC TABLES FOR THE BLOCK OR ROUTINE BEING EXECUTED.
                                                                //   4039  ! A ZERO BOUND MEANS NO DIAGNOSTIC REQUESTED.(NB THIS MAY MEAN A DUMMY
                                                                //   4040  ! FIRST WORD IN THE SST).
                                                                //   4041  ! THE ABSOLUTE ADDRESS OF THE SST FOR THE CURRENT CODE SEGMENT WILL
                                                                //   4042  ! ALWAYS BE FOUND IN THE STANDARD 10 WORDS OF THE GLA/PLT
                                                                //   4043  !
                                                                //   4044  ! FORM OF THE TABLES:-
                                                                //   4045  !
                                                                //   4046  ! WORD 0    =   LINE OF RT IN SOURCE PROG <<16 ! LINE NO POSN(FROM LNB)
                                                                //   4047  ! WORD 1    =   (12 LANG DEPENDENT BITS)<<18 ! ENVIRONMENT
                                                                //   4048  !                ( TOP 2 BITS OF LANG DEPENDENT HAS LITL FROM PTYPE)
                                                                //   4049  !                 ( BOTTOM 4 BITS HAVE TEXTUAL LEVEL)
                                                                //   4050  ! WORD 2    =   DISPLAY POSN (FROM LNB)<<16 ! RT TYPE INFO
                                                                //   4051  ! WORD 3    =   ZERO FOR BLKS OR STRING(<=11BYTES) BEING THE
                                                                //   4052  !               RT NAME. THIS WILL TAKE WORDS 4 AND 5 IF NEEDED
                                                                //   4053  ! WORD 6    =  LANGUAGE DEPENDENT INFO . IMP ON CONDITIONS ETC
                                                                //   4054  !
                                                                //   4055  ! THE REST IS MADE UP OF VARIABLE ENTRIES AND THE SECTION IS TERMINATED BY
                                                                //   4056  ! A WORD OF 16_FFFFFFFF
                                                                //   4057  !
                                                                //   4058  !  EACH VARIABLE ENTRY CONSISTS OF THE VARIABLE WORD FOLLOWED BY
                                                                //   4059  ! THE VARIABLE NAME AS A STRING. THE WORD CONSISTS OF
                                                                //   4060  ! BITS 2**31 TO 2**20 TYPE INFORMATION (MAY BE LANGUAGE DEPENDENT
                                                                //   4061  ! BIT  2**19  =0 UNDER LNB =1 IN GLA
                                                                //   4062  ! BITS 2**18 TO 2**0 DISPLACEMENT FROM LNB(GLA) IN BYTES
                                                                //   4063  !
                                                                //   4064  !
                                                                //   4065  ! THE ENVIRONMENT IS A POINTER (RELATIVE TO SST) OF THE NEXT OUTERMOST
                                                                //   4066  ! BLOCK OR A POINTER TO GLOBAL OWNS, EXTERNAL OR COMMON AREAS
                                                                //   4067  ! A ZERO MEANS NO ENCLOSING BLOCK. WORD1=WORD3=0 IS AN
                                                                //   4068  ! IMP MAIN PROGRAM AND WILL TERMINATE THE DIAGNOSTICS.
                                                                //   4069  !
                                                                //   4070           %ROUTINE DTABLE(%INTEGER LEVEL)
#line 4070 "regression-compile-tmp/nrimp10s-77.imp"
void DTABLE( int LEVEL )
#line 4070 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4071  !***********************************************************************
                                                                //   4072  !*      THIS ROUTINE LOOKS AT THE DECLARATIONS FOR THE CURRENT LEVEL & *
                                                                //   4073  !*      SETS UP THE SEGMENT OF SHARABLE SYMBOL TABLES TO DESCRIBE THEM.*
                                                                //   4074  !*      FOR MAIN PROGRAMS OR EXTERNAL ROUTINES THE 'GLOBAL' VARIABLES  *
                                                                //   4075  !*      (IF ANY) ARE ALSO INCLUDED.                                    *
                                                                //   4076  !***********************************************************************
                                                                //   4077  %STRING(31) RT NAME
#line 4077 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(31)*/ RTNAME;
                                                                //   4078  %STRING(11) LOCAL NAME
#line 4078 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(11)*/ LOCALNAME;
                                                                //   4079  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 4079 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   4080  %CONSTINTEGER LARRROUT=16_F300
                                                                //   4081  %INTEGER DPTR,LNUM,ML,KK,JJ,Q,DEND,BIT,S1,S2,S3,S4,LANGD,II
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int DPTR;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int LNUM;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int ML;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int DEND;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int BIT;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int S1;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int S2;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int S3;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int S4;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int LANGD;
#line 4081 "regression-compile-tmp/nrimp10s-77.imp"
int II;
                                                                //   4082  %INTEGERARRAY DD(0:500);       ! BUFFER FOR SEGMENT OF SST
#line 4082 "regression-compile-tmp/nrimp10s-77.imp"
int DD[501];
                                                                //   4083  !
                                                                //   4084  ! FILL ALL OUTSTANDING REFERENCES TO THIS DIAGS BLOCK
                                                                //   4085  !
                                                                //   4086           BIT=1<<LEVEL
#line 4086 "regression-compile-tmp/nrimp10s-77.imp"
BIT = ((1) << (LEVEL));
                                                                //   4087           LANGD=KKK>>14<<30!LEVEL<<18;  ! GET LITL FROM PTYPE
#line 4087 "regression-compile-tmp/nrimp10s-77.imp"
LANGD = (((((int)((((unsigned int)(KKK)) >> (14)))) << (30))) | (((LEVEL) << (18))));
                                                                //   4088           %WHILE RAL(LEVEL)#0 %CYCLE
#line 4088 "regression-compile-tmp/nrimp10s-77.imp"
L_03a8:;
#line 4088 "regression-compile-tmp/nrimp10s-77.imp"
if (((RAL[LEVEL]) == (0))) goto L_03a9;
                                                                //   4089              POP(RAL(LEVEL),Q,JJ,KK)
#line 4089 "regression-compile-tmp/nrimp10s-77.imp"
POP(&RAL[LEVEL], &Q, &JJ, &KK);
                                                                //   4090              PLUG(Q,JJ,KK!SSTL,4)
#line 4090 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(Q, JJ, ((KK) | (SSTL)), 4);
                                                                //   4091           %REPEAT
#line 4091 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03a8;
#line 4091 "regression-compile-tmp/nrimp10s-77.imp"
L_03a9:;
                                                                //   4092           PUSH(RAL(LEVEL-1),4,SSTL+4,LANGD) %IF PARMTRACE#0
#line 4092 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) == (0))) goto L_03ab;
#line 4092 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&RAL[(((int)(LEVEL)) - (1))], 4, (((int)(SSTL)) + (4)), LANGD);
#line 4092 "regression-compile-tmp/nrimp10s-77.imp"
L_03ab:;
                                                                //   4093           DD(0)=L(LEVEL)<<16!(DIAGINF(LEVEL))
#line 4093 "regression-compile-tmp/nrimp10s-77.imp"
DD[0] = ((((L[LEVEL]) << (16))) | (DIAGINF[LEVEL]));
                                                                //   4094           DD(1)=LANGD
#line 4094 "regression-compile-tmp/nrimp10s-77.imp"
DD[1] = LANGD;
                                                                //   4095           DD(2)=DISPLAY(RLEVEL)<<16!FLAG(LEVEL)&16_3FFF
#line 4095 "regression-compile-tmp/nrimp10s-77.imp"
DD[2] = ((((DISPLAY[RLEVEL]) << (16))) | (((FLAG[LEVEL]) & (16383))));
                                                                //   4096           ML=M(LEVEL);                   ! ROUTINE NAME(=0 FOR %BEGIN)
#line 4096 "regression-compile-tmp/nrimp10s-77.imp"
ML = M[LEVEL];
                                                                //   4097           LNUM=BYTEINTEGER(DICTBASE+ML); ! LENGTH OF THE NAME
#line 4097 "regression-compile-tmp/nrimp10s-77.imp"
LNUM = *_imp_BYTEINTEGER((((int)(DICTBASE)) + (ML)));
                                                                //   4098           DPTR=4; DEND=0
#line 4098 "regression-compile-tmp/nrimp10s-77.imp"
DPTR = 4;
#line 4098 "regression-compile-tmp/nrimp10s-77.imp"
DEND = 0;
                                                                //   4099           %IF LNUM=0 %THEN DD(3)=0 %ELSE %START
#line 4099 "regression-compile-tmp/nrimp10s-77.imp"
if (((LNUM) != (0))) goto L_03ac;
#line 4099 "regression-compile-tmp/nrimp10s-77.imp"
DD[3] = 0;
#line 4099 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03ad;
#line 4099 "regression-compile-tmp/nrimp10s-77.imp"
L_03ac:;
                                                                //   4100              Q=DICTBASE+ML
#line 4100 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(DICTBASE)) + (ML));
                                                                //   4101              RT NAME<-STRING(Q);         ! FOR RTS MOVE IN 1ST 32 CHARS
#line 4101 "regression-compile-tmp/nrimp10s-77.imp"
RTNAME = *_imp_STRING(Q);
                                                                //   4102              LNUM=BYTE INTEGER(ADDR(RT NAME))
#line 4102 "regression-compile-tmp/nrimp10s-77.imp"
LNUM = *_imp_BYTEINTEGER(_imp_ADDR(&RTNAME));
                                                                //   4103              STRING(ADDR(DD(3)))=RTNAME; ! AND UPDATE POINTER PAST
#line 4103 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_STRING(_imp_ADDR(&DD[3])) = RTNAME;
                                                                //   4104              DPTR=DPTR+LNUM>>2;          ! ACTUAL NO OF CHARS
#line 4104 "regression-compile-tmp/nrimp10s-77.imp"
DPTR = ((DPTR) + ((int)((int)((((unsigned int)(LNUM)) >> (2))))));
                                                                //   4105           %FINISH
#line 4105 "regression-compile-tmp/nrimp10s-77.imp"
L_03ad:;
                                                                //   4106           DD(DPTR)=ONWORD(LEVEL);        ! ON CONDITION WORD
#line 4106 "regression-compile-tmp/nrimp10s-77.imp"
DD[DPTR] = ONWORD[LEVEL];
                                                                //   4107           DPTR=DPTR+1
#line 4107 "regression-compile-tmp/nrimp10s-77.imp"
DPTR = (((int)(DPTR)) + (1));
                                                                //   4108           JJ=NAMES(LEVEL)
#line 4108 "regression-compile-tmp/nrimp10s-77.imp"
JJ = NAMES[LEVEL];
                                                                //   4109           %WHILE 0<=JJ<16_3FFF %CYCLE
#line 4109 "regression-compile-tmp/nrimp10s-77.imp"
L_03ae:;
#line 4109 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (JJ))) || (((JJ) >= (16383)))) goto L_03af;
                                                                //   4110              LCELL==ASLIST(TAGS(JJ))
#line 4110 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[TAGS[JJ]];
                                                                //   4111                                           ! OBTAIN NEXT NAME FORM DECLNS
                                                                //   4112              %IF LCELL_S1&16_F000=0 %THEN WARN(2,JJ)
#line 4112 "regression-compile-tmp/nrimp10s-77.imp"
if (((((LCELL->S1) & (61440))) != (0))) goto L_03b1;
#line 4112 "regression-compile-tmp/nrimp10s-77.imp"
WARN(2, JJ);
#line 4112 "regression-compile-tmp/nrimp10s-77.imp"
L_03b1:;
                                                                //   4113  !
                                                                //   4114  ! GET ONLY THE MINIMUM OF DETALS NECESSARY
                                                                //   4115  !
                                                                //   4116              S1=LCELL_S1; S2=LCELL_S2
#line 4116 "regression-compile-tmp/nrimp10s-77.imp"
S1 = LCELL->S1;
#line 4116 "regression-compile-tmp/nrimp10s-77.imp"
S2 = LCELL->S2;
                                                                //   4117              S3=LCELL_S3; S4=LCELL_LINK
#line 4117 "regression-compile-tmp/nrimp10s-77.imp"
S3 = LCELL->S3;
#line 4117 "regression-compile-tmp/nrimp10s-77.imp"
S4 = LCELL->LINK;
                                                                //   4118              LCELL_LINK=ASL; ASL=TAGS(JJ)
#line 4118 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = ASL;
#line 4118 "regression-compile-tmp/nrimp10s-77.imp"
ASL = TAGS[JJ];
                                                                //   4119              TAGS(JJ)=S4&16_3FFFF
#line 4119 "regression-compile-tmp/nrimp10s-77.imp"
TAGS[JJ] = ((S4) & (262143));
                                                                //   4120              PTYPE=S1>>16; TYPE=PTYPE&15
#line 4120 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (int)((((unsigned int)(S1)) >> (16)));
#line 4120 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (15));
                                                                //   4121              I=S1>>4&15
#line 4121 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)((((unsigned int)(S1)) >> (4)))) & (15));
                                                                //   4122              J=S1&15
#line 4122 "regression-compile-tmp/nrimp10s-77.imp"
J = ((S1) & (15));
                                                                //   4123              K=S3>>16
#line 4123 "regression-compile-tmp/nrimp10s-77.imp"
K = (int)((((unsigned int)(S3)) >> (16)));
                                                                //   4124  !
                                                                //   4125  ! ALLOW OWNS (LITL=0) AND EXTERNALS (=2) NOT CONSTS(=1) OR EXTRINSIC(=3)
                                                                //   4126  !
                                                                //   4127              %IF PARMDIAG#0 %AND PTYPE&16_7300<=16_200 %AND DPTR<497 %AND (TYPE=1 %OR TYPE=2 %OR TYPE=5) %START
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMDIAG) == (0))) goto L_03b2;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (29440))) > (512))) goto L_03b2;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((DPTR) >= (497))) goto L_03b2;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (1))) goto L_03b3;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (2))) goto L_03b3;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_03b2;
#line 4127 "regression-compile-tmp/nrimp10s-77.imp"
L_03b3:;
                                                                //   4128                 Q=DICTBASE+WORD(JJ);     ! ADDRESS OF NAME
#line 4128 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(DICTBASE)) + (WORD[JJ]));
                                                                //   4129                 %IF I=0 %THEN II=1 %ELSE II=0;   ! GLA OR LNB BIT
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (0))) goto L_03b4;
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
II = 1;
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03b5;
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
L_03b4:;
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
II = 0;
#line 4129 "regression-compile-tmp/nrimp10s-77.imp"
L_03b5:;
                                                                //   4130                 DD(DPTR)=PTYPE<<20!II<<18!K
#line 4130 "regression-compile-tmp/nrimp10s-77.imp"
DD[DPTR] = ((((((PTYPE) << (20))) | (((II) << (18))))) | (K));
                                                                //   4131                 LOCAL NAME<-STRING(Q);   ! TEXT OF NAME FROM DICTIONARY
#line 4131 "regression-compile-tmp/nrimp10s-77.imp"
LOCALNAME = *_imp_STRING(Q);
                                                                //   4132                 LNUM=BYTE INTEGER(ADDR(LOCAL NAME))
#line 4132 "regression-compile-tmp/nrimp10s-77.imp"
LNUM = *_imp_BYTEINTEGER(_imp_ADDR(&LOCALNAME));
                                                                //   4133                 STRING(ADDR(DD(DPTR))+4)=LOCAL NAME;! MOVE IN NAME 
#line 4133 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_STRING((((int)(_imp_ADDR(&DD[DPTR]))) + (4))) = LOCALNAME;
                                                                //   4134                 DPTR=DPTR+(LNUM+8)>>2
#line 4134 "regression-compile-tmp/nrimp10s-77.imp"
DPTR = ((DPTR) + ((int)((((((((int)(LNUM)) + (8)))) >> (2))))));
                                                                //   4135              %FINISH
#line 4135 "regression-compile-tmp/nrimp10s-77.imp"
L_03b2:;
                                                                //   4136              %IF J=15 %AND S2#0 %THEN FAULT2(28,0,JJ)
#line 4136 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (15))) goto L_03b6;
#line 4136 "regression-compile-tmp/nrimp10s-77.imp"
if (((S2) == (0))) goto L_03b6;
#line 4136 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(28, 0, JJ);
#line 4136 "regression-compile-tmp/nrimp10s-77.imp"
L_03b6:;
                                                                //   4137                                          ! SPEC&CALLED BUT NO BODY GIVEN
                                                                //   4138              %IF PTYPE&16_3000#0 %OR TYPE=4 %OR TYPE=6 %THEN CLEAR LIST(K) %ELSE %START
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (12288))) != (0))) goto L_03b7;
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (4))) goto L_03b7;
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (6))) goto L_03b8;
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
L_03b7:;
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&K);
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03b9;
#line 4138 "regression-compile-tmp/nrimp10s-77.imp"
L_03b8:;
                                                                //   4139                 %IF I#0 %AND K>511 %AND PTYPE&LARRROUT=0 %AND TYPE#7 %THEN WARN(5,JJ)
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (0))) goto L_03ba;
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) <= (511))) goto L_03ba;
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (62208))) != (0))) goto L_03ba;
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (7))) goto L_03ba;
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
WARN(5, JJ);
#line 4139 "regression-compile-tmp/nrimp10s-77.imp"
L_03ba:;
                                                                //   4140              %FINISH
#line 4140 "regression-compile-tmp/nrimp10s-77.imp"
L_03b9:;
                                                                //   4141              JJ=S4>>18
#line 4141 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (int)((((unsigned int)(S4)) >> (18)));
                                                                //   4142           %REPEAT
#line 4142 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03ae;
#line 4142 "regression-compile-tmp/nrimp10s-77.imp"
L_03af:;
                                                                //   4143           DD(DPTR)=-1;                   ! 'END OF SEGMENT' MARK
#line 4143 "regression-compile-tmp/nrimp10s-77.imp"
DD[DPTR] = (-1);
                                                                //   4144           DPTR=DPTR<<2+4
#line 4144 "regression-compile-tmp/nrimp10s-77.imp"
DPTR = (((int)(((DPTR) << (2)))) + (4));
                                                                //   4145           %IF PARMTRACE=1 %THEN %START
#line 4145 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) != (1))) goto L_03bb;
                                                                //   4146              LPUT(4,DPTR,SSTL,ADDR(DD(0)));! ADD TO SHARABLE SYM TABS
#line 4146 "regression-compile-tmp/nrimp10s-77.imp"
lput(4, DPTR, SSTL, _imp_ADDR(&DD[0]));
                                                                //   4147              SSTL=SSTL+DPTR
#line 4147 "regression-compile-tmp/nrimp10s-77.imp"
SSTL = (((int)(SSTL)) + (DPTR));
                                                                //   4148           %FINISH
#line 4148 "regression-compile-tmp/nrimp10s-77.imp"
L_03bb:;
                                                                //   4149           %END;                          ! OF ROUTINE DTABLE
#line 4149 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DTABLE at level 6
                                                                //   4150           %END
#line 4150 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CEND at level 5
                                                                //   4151  %ROUTINE MAKE DECS(%INTEGER Q)
#line 4151 "regression-compile-tmp/nrimp10s-77.imp"
void MAKEDECS( int Q )
#line 4151 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4152  !***********************************************************************
                                                                //   4153  !*    Q IS TO AR ENTRY FOR HEAD OF LINKED DECLARATIONS                 *
                                                                //   4154  !***********************************************************************
                                                                //   4155  %INTEGER QQ,HEAD,PRIO,COUNT,SL
#line 4155 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 4155 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD;
#line 4155 "regression-compile-tmp/nrimp10s-77.imp"
int PRIO;
#line 4155 "regression-compile-tmp/nrimp10s-77.imp"
int COUNT;
#line 4155 "regression-compile-tmp/nrimp10s-77.imp"
int SL;
                                                                //   4156  %INTEGERNAME THEAD
#line 4156 "regression-compile-tmp/nrimp10s-77.imp"
int /*name*/*THEAD;
                                                                //   4157  %RECORD(LISTF)%NAME CELL{(LISTF)
#line 4157 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*CELL;
                                                                //   4158        SL=LINE; QQ=FROM AR4(Q)
#line 4158 "regression-compile-tmp/nrimp10s-77.imp"
SL = LINE;
#line 4158 "regression-compile-tmp/nrimp10s-77.imp"
QQ = FROMAR4(Q);
                                                                //   4159        HEAD=0; COUNT=0
#line 4159 "regression-compile-tmp/nrimp10s-77.imp"
HEAD = 0;
#line 4159 "regression-compile-tmp/nrimp10s-77.imp"
COUNT = 0;
                                                                //   4160        %WHILE QQ#0 %CYCLE
#line 4160 "regression-compile-tmp/nrimp10s-77.imp"
L_03bc:;
#line 4160 "regression-compile-tmp/nrimp10s-77.imp"
if (((QQ) == (0))) goto L_03bd;
                                                                //   4161           COUNT=COUNT+1
#line 4161 "regression-compile-tmp/nrimp10s-77.imp"
COUNT = (((int)(COUNT)) + (1));
                                                                //   4162           ABORT %UNLESS A(QQ+5)=8;       ! LINE IS A DECLARATION
#line 4162 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(QQ)) + (5))]) == (8))) goto L_03bf;
#line 4162 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 4162 "regression-compile-tmp/nrimp10s-77.imp"
L_03bf:;
                                                                //   4163           P=QQ+10; CLT
#line 4163 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(QQ)) + (10));
#line 4163 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
                                                                //   4164           %IF PREC=3 %OR A(P)#1 %OR A(P+1)# 3 %START
#line 4164 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (3))) goto L_03c0;
#line 4164 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_03c0;
#line 4164 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (3))) goto L_03c1;
#line 4164 "regression-compile-tmp/nrimp10s-77.imp"
L_03c0:;
                                                                //   4165                 INSERT AT END(HEAD,16_FFFF,QQ,0) %IF A(P)=1
#line 4165 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_03c2;
#line 4165 "regression-compile-tmp/nrimp10s-77.imp"
INSERTATEND(&HEAD, 65535, QQ, 0);
#line 4165 "regression-compile-tmp/nrimp10s-77.imp"
L_03c2:;
                                                                //   4166              %FINISH %ELSE %START
#line 4166 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03c3;
#line 4166 "regression-compile-tmp/nrimp10s-77.imp"
L_03c1:;
                                                                //   4167              PRIO=PREC<<4!TYPE
#line 4167 "regression-compile-tmp/nrimp10s-77.imp"
PRIO = ((((PREC) << (4))) | (TYPE));
                                                                //   4168              THEAD==HEAD
#line 4168 "regression-compile-tmp/nrimp10s-77.imp"
THEAD = &HEAD;
                                                                //   4169              %CYCLE
#line 4169 "regression-compile-tmp/nrimp10s-77.imp"
L_03c4:;
                                                                //   4170                 CELL==ASLIST(THEAD)
#line 4170 "regression-compile-tmp/nrimp10s-77.imp"
CELL = &ASLIST[*THEAD];
                                                                //   4171                 %IF THEAD=0 %OR PRIO<CELL_S1 %THEN PUSH(THEAD,PRIO,QQ,0) %AND %EXIT
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
if (((*THEAD) == (0))) goto L_02be;
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRIO) >= (CELL->S1))) goto L_03c7;
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
L_02be:;
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(THEAD, PRIO, QQ, 0);
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03c5;
#line 4171 "regression-compile-tmp/nrimp10s-77.imp"
L_03c7:;
                                                                //   4172                 THEAD==CELL_LINK
#line 4172 "regression-compile-tmp/nrimp10s-77.imp"
THEAD = &CELL->LINK;
                                                                //   4173              %REPEAT
#line 4173 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03c4;
#line 4173 "regression-compile-tmp/nrimp10s-77.imp"
L_03c5:;
                                                                //   4174           %FINISH
#line 4174 "regression-compile-tmp/nrimp10s-77.imp"
L_03c3:;
                                                                //   4175           QQ=FROM AR4(QQ+6)
#line 4175 "regression-compile-tmp/nrimp10s-77.imp"
QQ = FROMAR4((((int)(QQ)) + (6)));
                                                                //   4176        %REPEAT
#line 4176 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03bc;
#line 4176 "regression-compile-tmp/nrimp10s-77.imp"
L_03bd:;
                                                                //   4177  !
                                                                //   4178  !     NOW MAKE THE ORDEREED DECLARATIONS
                                                                //   4179  ! FIRST GRAB TWO TEMPORARIES IF SPACE IS LIKELY TO BE TIGHT
                                                                //   4180  !
                                                                //   4181        %IF COUNT>=7 %START
#line 4181 "regression-compile-tmp/nrimp10s-77.imp"
if (((COUNT) < (7))) goto L_03c8;
                                                                //   4182           GET WSP(QQ,2);                 ! A DIUBLE WORD
#line 4182 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&QQ, 2);
                                                                //   4183           %IF AVL WSP(1,LEVEL)=0 %THEN GET WSP(QQ,1)
#line 4183 "regression-compile-tmp/nrimp10s-77.imp"
if (((AVLWSP[1][LEVEL]) != (0))) goto L_03c9;
#line 4183 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&QQ, 1);
#line 4183 "regression-compile-tmp/nrimp10s-77.imp"
L_03c9:;
                                                                //   4184        %FINISH
#line 4184 "regression-compile-tmp/nrimp10s-77.imp"
L_03c8:;
                                                                //   4185        %WHILE HEAD#0 %CYCLE
#line 4185 "regression-compile-tmp/nrimp10s-77.imp"
L_03ca:;
#line 4185 "regression-compile-tmp/nrimp10s-77.imp"
if (((HEAD) == (0))) goto L_03cb;
                                                                //   4186           POP(HEAD,PRIO,QQ,COUNT)
#line 4186 "regression-compile-tmp/nrimp10s-77.imp"
POP(&HEAD, &PRIO, &QQ, &COUNT);
                                                                //   4187           LINE=FROM AR2(QQ+3)
#line 4187 "regression-compile-tmp/nrimp10s-77.imp"
LINE = FROMAR2((((int)(QQ)) + (3)));
                                                                //   4188           P=QQ+10; CLT
#line 4188 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(QQ)) + (10));
#line 4188 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
                                                                //   4189           ROUT=0; LITL=0
#line 4189 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 4189 "regression-compile-tmp/nrimp10s-77.imp"
LITL = 0;
                                                                //   4190           CQN(P+1); P=P+2
#line 4190 "regression-compile-tmp/nrimp10s-77.imp"
CQN((((int)(P)) + (1)));
#line 4190 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4191           DECLARE SCALARS(1,0)
#line 4191 "regression-compile-tmp/nrimp10s-77.imp"
DECLARESCALARS(1, 0);
                                                                //   4192        %REPEAT
#line 4192 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03ca;
#line 4192 "regression-compile-tmp/nrimp10s-77.imp"
L_03cb:;
                                                                //   4193        LINE=SL
#line 4193 "regression-compile-tmp/nrimp10s-77.imp"
LINE = SL;
                                                                //   4194  %END
#line 4194 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MAKEDECS at level 5
                                                                //   4195  %ROUTINE DECLARE SCALARS(%INTEGER PERMIT,XTRA)
#line 4195 "regression-compile-tmp/nrimp10s-77.imp"
void DECLARESCALARS( int PERMIT, int XTRA )
#line 4195 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4196  !***********************************************************************
                                                                //   4197  !*       THIS ROUTINE DECLARES A LIST OF SCALARS FROM INFORMATION      *
                                                                //   4198  !*       IN THE GLOBAL VARIABLES ROUT,NAM,ARR,PREC,TYPE & ACC.IT WORKS *
                                                                //   4199  !*       OUT ROUNDING FACTORS FOR ITSELF.                              *
                                                                //   4200  !*       P POINTS TO THE NAMELIST ON ENTRY AND IS UPDATED.             *
                                                                //   4201  !***********************************************************************
                                                                //   4202  %INTEGER INC,Q,SCHAIN,DMADE,NPARMS,D0,SCAL NAME,TYPEP
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int INC;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int SCHAIN;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int DMADE;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int NPARMS;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int D0;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int SCALNAME;
#line 4202 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
                                                                //   4203        PACK(PTYPE); J=0
#line 4203 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
#line 4203 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
                                                                //   4204        INC=ACC; DMADE=0; SNDISP=0
#line 4204 "regression-compile-tmp/nrimp10s-77.imp"
INC = ACC;
#line 4204 "regression-compile-tmp/nrimp10s-77.imp"
DMADE = 0;
#line 4204 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
                                                                //   4205        %IF PTYPE=16_33 %THEN INC=(INC+3)&(-4)
#line 4205 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (51))) goto L_03cd;
#line 4205 "regression-compile-tmp/nrimp10s-77.imp"
INC = (((((int)(INC)) + (3))) & ((-4)));
#line 4205 "regression-compile-tmp/nrimp10s-77.imp"
L_03cd:;
                                                                //   4206        %IF NAM#0 %AND ROUT=0 %AND ARR=0 %THEN INC=8
#line 4206 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_03ce;
#line 4206 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (0))) goto L_03ce;
#line 4206 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (0))) goto L_03ce;
#line 4206 "regression-compile-tmp/nrimp10s-77.imp"
INC = 8;
#line 4206 "regression-compile-tmp/nrimp10s-77.imp"
L_03ce:;
                                                                //   4207        %IF NAM>0 %AND ARR>0 %THEN INC=16
#line 4207 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) <= (0))) goto L_03cf;
#line 4207 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) <= (0))) goto L_03cf;
#line 4207 "regression-compile-tmp/nrimp10s-77.imp"
INC = 16;
#line 4207 "regression-compile-tmp/nrimp10s-77.imp"
L_03cf:;
                                                                //   4208        %IF PTYPE=16_35 %AND ACC=0 %THEN FAULT(70,0)
#line 4208 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (53))) goto L_03d0;
#line 4208 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACC) != (0))) goto L_03d0;
#line 4208 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(70, 0);
#line 4208 "regression-compile-tmp/nrimp10s-77.imp"
L_03d0:;
                                                                //   4209        %IF PERMIT#0 %AND (INC=8 %OR INC=16) %THEN ODD ALIGN
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) == (0))) goto L_03d1;
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
if (((INC) == (8))) goto L_03cc;
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
if (((INC) != (16))) goto L_03d1;
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
L_03cc:;
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
ODDALIGN();
#line 4209 "regression-compile-tmp/nrimp10s-77.imp"
L_03d1:;
                                                                //   4210        %IF PTYPE=16_33 %OR (PTYPE=16_35 %AND PERMIT#0)%START
#line 4210 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) == (51))) goto L_03d2;
#line 4210 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (53))) goto L_03d3;
#line 4210 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) == (0))) goto L_03d3;
#line 4210 "regression-compile-tmp/nrimp10s-77.imp"
L_03d2:;
                                                                //   4211           D0=16_18000000+ACC
#line 4211 "regression-compile-tmp/nrimp10s-77.imp"
D0 = (((int)(402653184)) + (ACC));
                                                                //   4212           STORE CONST(Q,4,ADDR(D0))
#line 4212 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&Q, 4, _imp_ADDR(&D0));
                                                                //   4213           PF1(LDTB,0,PC,Q)
#line 4213 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, Q);
                                                                //   4214           GRUSE(DR)=0
#line 4214 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   4215        %FINISH
#line 4215 "regression-compile-tmp/nrimp10s-77.imp"
L_03d3:;
                                                                //   4216        %IF PTYPE=16_35 %START
#line 4216 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (53))) goto L_03d4;
                                                                //   4217           INC=8
#line 4217 "regression-compile-tmp/nrimp10s-77.imp"
INC = 8;
                                                                //   4218           %IF PERMIT#0 %START
#line 4218 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) == (0))) goto L_03d5;
                                                                //   4219              PF1(STSF,0,TOS,0)
#line 4219 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 6, 0);
                                                                //   4220              PF1(LDA,0,TOS,0)
#line 4220 "regression-compile-tmp/nrimp10s-77.imp"
PF1(114, 0, 6, 0);
                                                                //   4221           %FINISH
#line 4221 "regression-compile-tmp/nrimp10s-77.imp"
L_03d5:;
                                                                //   4222        %FINISH
#line 4222 "regression-compile-tmp/nrimp10s-77.imp"
L_03d4:;
                                                                //   4223        N=(N+3)&(-4)
#line 4223 "regression-compile-tmp/nrimp10s-77.imp"
N = (((((int)(N)) + (3))) & ((-4)));
                                                                //   4224        %IF PTYPE=16_33 %THEN %START
#line 4224 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (51))) goto L_03d6;
                                                                //   4225           PSF1(LDA,1,PTR OFFSET(RBASE))
#line 4225 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(114, 1, PTROFFSET(RBASE));
                                                                //   4226           PSF1(INCA,0,N+8)
#line 4226 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (((int)(N)) + (8)));
                                                                //   4227        %FINISH
#line 4227 "regression-compile-tmp/nrimp10s-77.imp"
L_03d6:;
                                                                //   4228        {%UNTIL A(P-1)=2} %CYCLE;      ! DOWN THE NAMELIST
#line 4228 "regression-compile-tmp/nrimp10s-77.imp"
L_03d7:;
                                                                //   4229           DMADE=DMADE+1
#line 4229 "regression-compile-tmp/nrimp10s-77.imp"
DMADE = (((int)(DMADE)) + (1));
                                                                //   4230           SCAL NAME=FROM AR2(P)
#line 4230 "regression-compile-tmp/nrimp10s-77.imp"
SCALNAME = FROMAR2(P);
                                                                //   4231           %IF PTYPE=16_31 %AND PERMIT=0 %THEN N=N+3;! BYTE PARAMS
#line 4231 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (49))) goto L_03da;
#line 4231 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) != (0))) goto L_03da;
#line 4231 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (3));
#line 4231 "regression-compile-tmp/nrimp10s-77.imp"
L_03da:;
                                                                //   4232           %IF PTYPE=16_41 %AND PERMIT=0 %THEN N=N+2
#line 4232 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (65))) goto L_03db;
#line 4232 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) != (0))) goto L_03db;
#line 4232 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (2));
#line 4232 "regression-compile-tmp/nrimp10s-77.imp"
L_03db:;
                                                                //   4233           SCHAIN=N
#line 4233 "regression-compile-tmp/nrimp10s-77.imp"
SCHAIN = N;
                                                                //   4234           KFORM=XTRA
#line 4234 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = XTRA;
                                                                //   4235           %IF ROUT=1 %THEN %START
#line 4235 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_03dc;
                                                                //   4236              TYPEP=PTYPE;                ! CHANGED BY CFPLIST!
#line 4236 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = PTYPE;
                                                                //   4237              Q=P
#line 4237 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
                                                                //   4238              P=P+3 %UNTIL A(P-1)=2;      ! TO FPP
#line 4238 "regression-compile-tmp/nrimp10s-77.imp"
L_03dd:;
#line 4238 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 4238 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_03de;
#line 4238 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03dd;
#line 4238 "regression-compile-tmp/nrimp10s-77.imp"
L_03de:;
                                                                //   4239              CFPLIST(SCHAIN,NPARMS)
#line 4239 "regression-compile-tmp/nrimp10s-77.imp"
CFPLIST(&SCHAIN, &NPARMS);
                                                                //   4240              P=Q
#line 4240 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
                                                                //   4241              J=13
#line 4241 "regression-compile-tmp/nrimp10s-77.imp"
J = 13;
                                                                //   4242              KFORM=NPARMS;               ! NO OF PARAMS OF FORMAL
#line 4242 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = NPARMS;
                                                                //   4243              ACC=N;                      ! DISPLACEMENT TO MIDCELL
#line 4243 "regression-compile-tmp/nrimp10s-77.imp"
ACC = N;
                                                                //   4244              PTYPE=TYPEP; UNPACK
#line 4244 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TYPEP;
#line 4244 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   4245           %FINISH
#line 4245 "regression-compile-tmp/nrimp10s-77.imp"
L_03dc:;
                                                                //   4246           P=P+3
#line 4246 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   4247           %IF PTYPE=16_33 %THEN %START
#line 4247 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (51))) goto L_03e0;
                                                                //   4248              PSF1(STD,1,N)
#line 4248 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, N);
                                                                //   4249              N=N+8; SCHAIN=N
#line 4249 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (8));
#line 4249 "regression-compile-tmp/nrimp10s-77.imp"
SCHAIN = N;
                                                                //   4250              %IF A(P-1)=1 %THEN PSF1(INCA,0,INC+8)
#line 4250 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) != (1))) goto L_03e1;
#line 4250 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (((int)(INC)) + (8)));
#line 4250 "regression-compile-tmp/nrimp10s-77.imp"
L_03e1:;
                                                                //   4251           %FINISH
#line 4251 "regression-compile-tmp/nrimp10s-77.imp"
L_03e0:;
                                                                //   4252           %IF PTYPE=16_35 %AND PERMIT#0 %START
#line 4252 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (53))) goto L_03e2;
#line 4252 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) == (0))) goto L_03e2;
                                                                //   4253              PSF1(STD,1,N)
#line 4253 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, N);
                                                                //   4254              %IF A(P-1)=1 %THEN PSF1(INCA,0,(ACC+3)&(-4)) %ELSE %START
#line 4254 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) != (1))) goto L_03e3;
#line 4254 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (((((int)(ACC)) + (3))) & ((-4))));
#line 4254 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03e4;
#line 4254 "regression-compile-tmp/nrimp10s-77.imp"
L_03e3:;
                                                                //   4255                 Q=((ACC+3)>>2)*DMADE
#line 4255 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)((((((((int)(ACC)) + (3)))) >> (2))))) * (DMADE));
                                                                //   4256                 PSF1(ASF+12*PARMCHK,0,Q)
#line 4256 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, Q);
                                                                //   4257                 %IF PARMCHK#0 %THEN PPJ(0,4)
#line 4257 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_03e5;
#line 4257 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 4);
#line 4257 "regression-compile-tmp/nrimp10s-77.imp"
L_03e5:;
                                                                //   4258              %FINISH
#line 4258 "regression-compile-tmp/nrimp10s-77.imp"
L_03e4:;
                                                                //   4259           %FINISH
#line 4259 "regression-compile-tmp/nrimp10s-77.imp"
L_03e2:;
                                                                //   4260           STORE TAG(SCAL NAME,SCHAIN)
#line 4260 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(SCALNAME, SCHAIN);
                                                                //   4261           N=N+INC
#line 4261 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (INC));
                                                                //   4262        %REPEAT %UNTIL A(P-1)=2
#line 4262 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_03d8;
#line 4262 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03d7;
#line 4262 "regression-compile-tmp/nrimp10s-77.imp"
L_03d8:;
                                                                //   4263        N=(N+3)&(-4) %IF PERMIT#0;! NO ROUNDING AMONG PARAMS
#line 4263 "regression-compile-tmp/nrimp10s-77.imp"
if (((PERMIT) == (0))) goto L_03e6;
#line 4263 "regression-compile-tmp/nrimp10s-77.imp"
N = (((((int)(N)) + (3))) & ((-4)));
#line 4263 "regression-compile-tmp/nrimp10s-77.imp"
L_03e6:;
                                                                //   4264     %END
#line 4264 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DECLARESCALARS at level 5
                                                                //   4265  %INTEGERFN DOPE VECTOR(%INTEGER TYPEP,ELSIZE,MODE,IDEN,%INTEGERNAME ASIZE,LB)
#line 4265 "regression-compile-tmp/nrimp10s-77.imp"
int DOPEVECTOR( int TYPEP, int ELSIZE, int MODE, int IDEN, int /*name*/*ASIZE, int /*name*/*LB )
#line 4265 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4266  !***********************************************************************
                                                                //   4267  !*        CONSTRUCTS THE DOPE-VECTOR FOR A CONSTANT ARRAY IN THE       *
                                                                //   4268  !*       SHAREABLE SYMBOL TABLES AND RETURNS ITS DISPLACEMENT AS RESULT*
                                                                //   4269  !*       EVENTUALLY ALL NON DYNAMIC DOPE VECTORS SHOULD GO VIA HERE    *
                                                                //   4270  !*       P IS TO ALT (MUST BE 1!) OF P<BPAIR>                          *
                                                                //   4271  !*       DOPE VECTOR CONSISTS OF :-                                    *
                                                                //   4272  !*       DESRIPTOR (SCALED WORD) POINTING AT FIRST TRIPLE BND=3*ND     *
                                                                //   4273  !*       SIZE (IN BYTES OF ENTIRE ARRAY) FOR STACK ADJUSTMENT          *
                                                                //   4274  !*       AND ND TRIPLES EACH CONSISTING OF:-                           *
                                                                //   4275  !*       LBI - THE LOWER BOUND OF THE ITH DIMENSION                    *
                                                                //   4276  !*       MI - THE STRIDE FOR THE ITH DIMENSION                         *
                                                                //   4277  !*       CBI THE UPPER CHECK =(UBI-LBI+1)*MI                           *
                                                                //   4278  !*       WHERE M1=1(SCALED ARRAYS) OR THE ELEMENT SIZE AND             *
                                                                //   4279  !*       MI = M(I-1)*RANGE(I-1)                                        *
                                                                //   4280  !*       MODE=0 DV MUST BE CONST, MODE#0 CAN BE DYNAMIC                *
                                                                //   4281  !*       P TO ALT (ALWAYS=1) OF P(BPAIR)                               *
                                                                //   4282  !***********************************************************************
                                                                //   4283  %INTEGER I, JJ, K, ND, D, UNSCAL, M0, HEAD, NOPS, TYPEPP, PIN, PTR
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int ND;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int UNSCAL;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int M0;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEPP;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int PIN;
#line 4283 "regression-compile-tmp/nrimp10s-77.imp"
int PTR;
                                                                //   4284  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 4284 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   4285  %INTEGERARRAY LBH,LBB,UBH,UBB(0:12)
#line 4285 "regression-compile-tmp/nrimp10s-77.imp"
int LBH[13];
#line 4285 "regression-compile-tmp/nrimp10s-77.imp"
int LBB[13];
#line 4285 "regression-compile-tmp/nrimp10s-77.imp"
int UBH[13];
#line 4285 "regression-compile-tmp/nrimp10s-77.imp"
int UBB[13];
                                                                //   4286  %INTEGERARRAY DV(0:39);                 ! ENOUGH FOR 12 DIMENSIONS
#line 4286 "regression-compile-tmp/nrimp10s-77.imp"
int DV[40];
                                                                //   4287           ND=0; NOPS=0; TYPEPP=0; PIN=P
#line 4287 "regression-compile-tmp/nrimp10s-77.imp"
ND = 0;
#line 4287 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
#line 4287 "regression-compile-tmp/nrimp10s-77.imp"
TYPEPP = 0;
#line 4287 "regression-compile-tmp/nrimp10s-77.imp"
PIN = P;
                                                                //   4288           %IF TYPEP>2 %OR (TYPEP=1 %AND PREC=4) %THEN UNSCAL=1 %AND M0=ELSIZE %ELSE UNSCAL=0 %AND M0=1
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) > (2))) goto L_03d9;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (1))) goto L_03e7;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_03e7;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
L_03d9:;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 1;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
M0 = ELSIZE;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03e8;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
L_03e7:;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 0;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
M0 = 1;
#line 4288 "regression-compile-tmp/nrimp10s-77.imp"
L_03e8:;
                                                                //   4289           {%UNTIL A(P)=2} %CYCLE
#line 4289 "regression-compile-tmp/nrimp10s-77.imp"
L_03e9:;
                                                                //   4290              ND=ND+1; P=P+4
#line 4290 "regression-compile-tmp/nrimp10s-77.imp"
ND = (((int)(ND)) + (1));
#line 4290 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   4291              LBH(ND)=0; LBB(ND)=0
#line 4291 "regression-compile-tmp/nrimp10s-77.imp"
LBH[ND] = 0;
#line 4291 "regression-compile-tmp/nrimp10s-77.imp"
LBB[ND] = 0;
                                                                //   4292              UBB(ND)=0; UBH(ND)=0
#line 4292 "regression-compile-tmp/nrimp10s-77.imp"
UBB[ND] = 0;
#line 4292 "regression-compile-tmp/nrimp10s-77.imp"
UBH[ND] = 0;
                                                                //   4293              TORP(LBH(ND),LBB(ND),NOPS)
#line 4293 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&LBH[ND], &LBB[ND], &NOPS);
                                                                //   4294              P=P+3
#line 4294 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   4295              TYPEPP=TYPEPP!TYPE
#line 4295 "regression-compile-tmp/nrimp10s-77.imp"
TYPEPP = ((TYPEPP) | (TYPE));
                                                                //   4296              TORP(UBH(ND),UBB(ND),NOPS)
#line 4296 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&UBH[ND], &UBB[ND], &NOPS);
                                                                //   4297              TYPEPP=TYPEPP!TYPE
#line 4297 "regression-compile-tmp/nrimp10s-77.imp"
TYPEPP = ((TYPEPP) | (TYPE));
                                                                //   4298           %REPEAT %UNTIL A(P)=2
#line 4298 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_03ea;
#line 4298 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03e9;
#line 4298 "regression-compile-tmp/nrimp10s-77.imp"
L_03ea:;
                                                                //   4299           P=P+1
#line 4299 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4300           ->NONCONST %UNLESS TYPEPP=1 %AND NOPS&16_40040000=0
#line 4300 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEPP) != (1))) goto L_03eb;
#line 4300 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NOPS) & (1074003968))) == (0))) goto L_03ec;
#line 4300 "regression-compile-tmp/nrimp10s-77.imp"
L_03eb:;
#line 4300 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
#line 4300 "regression-compile-tmp/nrimp10s-77.imp"
L_03ec:;
                                                                //   4301  !
                                                                //   4302  ! NOW ONE CAN WORK OUT AND FILL IN THE TRIPLES
                                                                //   4303  !
                                                                //   4304           PTR=1
#line 4304 "regression-compile-tmp/nrimp10s-77.imp"
PTR = 1;
                                                                //   4305           %CYCLE D=ND,-1,1
#line 4305 "regression-compile-tmp/nrimp10s-77.imp"
D = ((ND) + ((int)(1)));
if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle D = ND, (-1), 1");
L_03ed:;
if (D == 1) goto L_03ee;
D += (-1);
                                                                //   4306              K=3*D
#line 4306 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(3)) * (D));
                                                                //   4307              EXPOP(LBH(PTR),ACCR,NOPS,16_251)
#line 4307 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(LBH[PTR], 0, NOPS, 593);
                                                                //   4308              EXPOPND_D=0 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) > (1))) goto L_03f0;
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.PTYPE) == (81))) goto L_03f1;
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
L_03f0:;
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
EXPOPND.D = 0;
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(41, 0);
#line 4308 "regression-compile-tmp/nrimp10s-77.imp"
L_03f1:;
                                                                //   4309              DV(K)=EXPOPND_D
#line 4309 "regression-compile-tmp/nrimp10s-77.imp"
DV[K] = EXPOPND.D;
                                                                //   4310              DV(K+1)=M0
#line 4310 "regression-compile-tmp/nrimp10s-77.imp"
DV[(((int)(K)) + (1))] = M0;
                                                                //   4311              EXPOP(UBH(PTR),ACCR,NOPS,16_251)
#line 4311 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(UBH[PTR], 0, NOPS, 593);
                                                                //   4312              EXPOPND_D=10 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) > (1))) goto L_03f2;
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.PTYPE) == (81))) goto L_03f3;
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
L_03f2:;
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
EXPOPND.D = 10;
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(41, 0);
#line 4312 "regression-compile-tmp/nrimp10s-77.imp"
L_03f3:;
                                                                //   4313              JJ=EXPOPND_D
#line 4313 "regression-compile-tmp/nrimp10s-77.imp"
JJ = EXPOPND.D;
                                                                //   4314              M0=M0*(JJ-DV(K)+1)
#line 4314 "regression-compile-tmp/nrimp10s-77.imp"
M0 = ((M0) * ((int)((((int)((((int)(JJ)) - (DV[K])))) + (1)))));
                                                                //   4315              FAULT2(38,1-M0,IDEN) %UNLESS JJ>=DV(K)
#line 4315 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) >= (DV[K]))) goto L_03f4;
#line 4315 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(38, (((int)(1)) - (M0)), IDEN);
#line 4315 "regression-compile-tmp/nrimp10s-77.imp"
L_03f4:;
                                                                //   4316              DV(K+2)=M0
#line 4316 "regression-compile-tmp/nrimp10s-77.imp"
DV[(((int)(K)) + (2))] = M0;
                                                                //   4317              PTR=PTR+1
#line 4317 "regression-compile-tmp/nrimp10s-77.imp"
PTR = (((int)(PTR)) + (1));
                                                                //   4318           %REPEAT
#line 4318 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03ed;
#line 4318 "regression-compile-tmp/nrimp10s-77.imp"
L_03ee:;
                                                                //   4319  !
                                                                //   4320           %IF UNSCAL=0 %THEN M0=M0*ELSIZE
#line 4320 "regression-compile-tmp/nrimp10s-77.imp"
if (((UNSCAL) != (0))) goto L_03f5;
#line 4320 "regression-compile-tmp/nrimp10s-77.imp"
M0 = (((int)(M0)) * (ELSIZE));
#line 4320 "regression-compile-tmp/nrimp10s-77.imp"
L_03f5:;
                                                                //   4321           %IF ND=1 %THEN LB=DV(3)
#line 4321 "regression-compile-tmp/nrimp10s-77.imp"
if (((ND) != (1))) goto L_03f6;
#line 4321 "regression-compile-tmp/nrimp10s-77.imp"
*LB = DV[3];
#line 4321 "regression-compile-tmp/nrimp10s-77.imp"
L_03f6:;
                                                                //   4322           ASIZE=M0
#line 4322 "regression-compile-tmp/nrimp10s-77.imp"
*ASIZE = M0;
                                                                //   4323           DV(2)=ASIZE
#line 4323 "regression-compile-tmp/nrimp10s-77.imp"
DV[2] = *ASIZE;
                                                                //   4324           DV(1)=12
#line 4324 "regression-compile-tmp/nrimp10s-77.imp"
DV[1] = 12;
                                                                //   4325           DV(0)=5<<27!3*ND;           ! DESPTR FOR DV
#line 4325 "regression-compile-tmp/nrimp10s-77.imp"
DV[0] = ((((5) << (27))) | ((((int)(3)) * (ND))));
                                                                //   4326           K=3*ND+2
#line 4326 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)((((int)(3)) * (ND)))) + (2));
                                                                //   4327           J=ND;                       ! DIMENSIONALITY FOR DECLN
#line 4327 "regression-compile-tmp/nrimp10s-77.imp"
J = ND;
                                                                //   4328           HEAD=DVHEADS(ND)
#line 4328 "regression-compile-tmp/nrimp10s-77.imp"
HEAD = DVHEADS[ND];
                                                                //   4329           %WHILE HEAD#0 %CYCLE
#line 4329 "regression-compile-tmp/nrimp10s-77.imp"
L_03f7:;
#line 4329 "regression-compile-tmp/nrimp10s-77.imp"
if (((HEAD) == (0))) goto L_03f8;
                                                                //   4330              LCELL==ASLIST(HEAD)
#line 4330 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[HEAD];
                                                                //   4331              %IF LCELL_S2=ASIZE %AND LCELL_S3=DV(5) %START
#line 4331 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S2) != (*ASIZE))) goto L_03fa;
#line 4331 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S3) != (DV[5]))) goto L_03fa;
                                                                //   4332                 %CYCLE D=0,1,K
#line 4332 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = K; D = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle D = 0, 1, K");
D -= _increment; _control -= _increment;
L_03fb:;
if (D == _final) goto L_03fc;
D += _increment; _control += _increment;
if (D != _control) _imp_signal(4,2,0,"Corrupt control variable D"); /* FOR loop control variable corrupted */
}
                                                                //   4333                    ->ON %UNLESS DV(D)=CTABLE_val(D+LCELL_S1)
#line 4333 "regression-compile-tmp/nrimp10s-77.imp"
if (((DV[D]) == (CTABLE->VAL[(((int)(D)) + (LCELL->S1))]))) goto L_03fe;
#line 4333 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1025;
#line 4333 "regression-compile-tmp/nrimp10s-77.imp"
L_03fe:;
                                                                //   4334                 %REPEAT
#line 4334 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03fb;
#line 4334 "regression-compile-tmp/nrimp10s-77.imp"
L_03fc:;
                                                                //   4335                 %RESULT=16_80000000!4*LCELL_S1
#line 4335 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (((-2147483648)) | ((((int)(4)) * (LCELL->S1))));
                                                                //   4336              %FINISH
#line 4336 "regression-compile-tmp/nrimp10s-77.imp"
L_03fa:;
                                                                //   4337  ON:
#line 4337 "regression-compile-tmp/nrimp10s-77.imp"
U_1025:;
                                                                //   4338              HEAD=LCELL_LINK
#line 4338 "regression-compile-tmp/nrimp10s-77.imp"
HEAD = LCELL->LINK;
                                                                //   4339           %REPEAT
#line 4339 "regression-compile-tmp/nrimp10s-77.imp"
goto L_03f7;
#line 4339 "regression-compile-tmp/nrimp10s-77.imp"
L_03f8:;
                                                                //   4340           %IF CONST PTR&1#0 %THEN CONST HOLE=CONST PTR %AND CONST PTR=CONST PTR+1
#line 4340 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CONSTPTR) & (1))) == (0))) goto L_03ff;
#line 4340 "regression-compile-tmp/nrimp10s-77.imp"
CONSTHOLE = CONSTPTR;
#line 4340 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (1));
#line 4340 "regression-compile-tmp/nrimp10s-77.imp"
L_03ff:;
                                                                //   4341           I=4*CONST PTR!16_80000000
#line 4341 "regression-compile-tmp/nrimp10s-77.imp"
I = (((((int)(4)) * (CONSTPTR))) | ((-2147483648)));
                                                                //   4342           PUSH(DVHEADS(ND),CONSTPTR,ASIZE,DV(5))
#line 4342 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&DVHEADS[ND], CONSTPTR, *ASIZE, DV[5]);
                                                                //   4343           %CYCLE D=0,1,K
#line 4343 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = K; D = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle D = 0, 1, K");
D -= _increment; _control -= _increment;
L_0400:;
if (D == _final) goto L_0401;
D += _increment; _control += _increment;
if (D != _control) _imp_signal(4,2,0,"Corrupt control variable D"); /* FOR loop control variable corrupted */
}
                                                                //   4344              CTABLE_val(CONST PTR)=DV(D)
#line 4344 "regression-compile-tmp/nrimp10s-77.imp"
CTABLE->VAL[CONSTPTR] = DV[D];
                                                                //   4345              CONST PTR=CONST PTR+1
#line 4345 "regression-compile-tmp/nrimp10s-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (1));
                                                                //   4346           %REPEAT
#line 4346 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0400;
#line 4346 "regression-compile-tmp/nrimp10s-77.imp"
L_0401:;
                                                                //   4347           %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0)
#line 4347 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTPTR) <= (CONSTLIMIT))) goto L_0403;
#line 4347 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(107, 0);
#line 4347 "regression-compile-tmp/nrimp10s-77.imp"
L_0403:;
                                                                //   4348  WAYOUT:
#line 4348 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
                                                                //   4349           %CYCLE D=ND,-1,1
#line 4349 "regression-compile-tmp/nrimp10s-77.imp"
D = ((ND) + ((int)(1)));
if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle D = ND, (-1), 1");
L_0404:;
if (D == 1) goto L_0405;
D += (-1);
                                                                //   4350              ASLIST(LBB(D))_LINK=ASL
#line 4350 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[LBB[D]].LINK = ASL;
                                                                //   4351              ASL=LBH(D)
#line 4351 "regression-compile-tmp/nrimp10s-77.imp"
ASL = LBH[D];
                                                                //   4352              ASLIST(UBB(D))_LINK=ASL
#line 4352 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[UBB[D]].LINK = ASL;
                                                                //   4353              ASL=UBH(D)
#line 4353 "regression-compile-tmp/nrimp10s-77.imp"
ASL = UBH[D];
                                                                //   4354           %REPEAT
#line 4354 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0404;
#line 4354 "regression-compile-tmp/nrimp10s-77.imp"
L_0405:;
                                                                //   4355           %RESULT =I
#line 4355 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
                                                                //   4356  NONCONST:                               ! NOT A CONST DV
#line 4356 "regression-compile-tmp/nrimp10s-77.imp"
U_1024:;
                                                                //   4357           J=ND; I=-1
#line 4357 "regression-compile-tmp/nrimp10s-77.imp"
J = ND;
#line 4357 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
                                                                //   4358           LB=0; ASIZE=ELSIZE
#line 4358 "regression-compile-tmp/nrimp10s-77.imp"
*LB = 0;
#line 4358 "regression-compile-tmp/nrimp10s-77.imp"
*ASIZE = ELSIZE;
                                                                //   4359           %IF MODE=0 %THEN FAULT(41,0) %ELSE P=PIN
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0407;
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(41, 0);
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0408;
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
L_0407:;
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
P = PIN;
#line 4359 "regression-compile-tmp/nrimp10s-77.imp"
L_0408:;
                                                                //   4360           ->WAYOUT
#line 4360 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   4361  %END
#line 4361 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block DOPEVECTOR at level 5
                                                                //   4362  
                                                                //   4363  %ROUTINE DECLARE ARRAYS(%INTEGER FORMAT, FINF)
#line 4363 "regression-compile-tmp/nrimp10s-77.imp"
void DECLAREARRAYS( int FORMAT, int FINF )
#line 4363 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4364  !***********************************************************************
                                                                //   4365  !*       FORMAT=1 FOR 'ARRAYFORMAT'   =0 OTHERWISE                     *
                                                                //   4366  !*       FINF>0 FOR RECORD FORMAT INFORMATION =0 OTHERWISE             *
                                                                //   4367  !*       P IS AT P<ADECLN>   IN                                        *
                                                                //   4368  !*                                                                     *
                                                                //   4369  !*       P<ADECLN>=<NAMELIST> <BPAIR> <RESTOFDECLN>                    *
                                                                //   4370  !*       P<BPAIR> = '('<EXPR>':'<EXRR><RESTOFBP>*')'                   *
                                                                //   4371  !*                                                                     *
                                                                //   4372  !*       ARRAYS WITH CONSTANT BOUNDS HAVE THEIR D-V IN THE SST         *
                                                                //   4373  !*       ALL OTHER ARRAYS HAVE A DOPE VECTOR AMONG THE LOCALS AND GET  *
                                                                //   4374  !*       THEIR SPACE OFF THE STACK AT RUN TIME                         *
                                                                //   4375  !*       BOTH SORTS OF ARRAYS HAVE A FOUR WORD HEAD AND D-V TO EMAS    *
                                                                //   4376  !*       SYSTEM STANDARDS                                              *
                                                                //   4377  !***********************************************************************
                                                                //   4378  %ROUTINESPEC CLAIM AS
#line 4378 "regression-compile-tmp/nrimp10s-77.imp"
auto void CLAIMAS( void );
                                                                //   4379  %INTEGER DVDISP, PP, DVF, ELSIZE, TOTSIZE, D0, D1, PTYPEP,  {%C
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int DVDISP;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int DVF;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int ELSIZE;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int TOTSIZE;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int D0;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int D1;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPEP;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int ARRP;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int NN;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int ND;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int II;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int R;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int CDV;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int UNSCAL;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int DESC;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int SC;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int LWB;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPEPP;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int JJJJ;
#line 4379 "regression-compile-tmp/nrimp10s-77.imp"
int ADJ;
                                                                //   4380           ARRP, NN, ND, II, JJ, QQ, R, CDV, UNSCAL, DESC, SC,  {%C
                                                                //   4381           LWB, PTYPEPP, JJJ, JJJJ, ADJ
                                                                //   4382        %IF STACK#0 %AND FLAG(LEVEL)=0=NMDECS(LEVEL)>>14 %START
#line 4382 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) == (0))) goto L_0409;
#line 4382 "regression-compile-tmp/nrimp10s-77.imp"
if ((((FLAG[LEVEL]) != (0))) || (((0) != ((int)((((unsigned int)(NMDECS[LEVEL])) >> (14))))))) goto L_0409;
                                                                //   4383           PSF1(STSF,1,N)
#line 4383 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(94, 1, N);
                                                                //   4384           NMDECS(LEVEL)=NMDECS(LEVEL)!(N<<14)
#line 4384 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (((N) << (14))));
                                                                //   4385           N=N+4
#line 4385 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
                                                                //   4386        %FINISH
#line 4386 "regression-compile-tmp/nrimp10s-77.imp"
L_0409:;
                                                                //   4387        %IF STACK=0 %THEN SAVE AUX STACK
#line 4387 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) != (0))) goto L_040a;
#line 4387 "regression-compile-tmp/nrimp10s-77.imp"
SAVEAUXSTACK();
#line 4387 "regression-compile-tmp/nrimp10s-77.imp"
L_040a:;
                                                                //   4388        ARRP=2*FORMAT+1;  ARR=ARRP;  PACK(PTYPEP)
#line 4388 "regression-compile-tmp/nrimp10s-77.imp"
ARRP = (((int)((((int)(2)) * (FORMAT)))) + (1));
#line 4388 "regression-compile-tmp/nrimp10s-77.imp"
ARR = ARRP;
#line 4388 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPEP);
                                                                //   4389        ELSIZE=ACC
#line 4389 "regression-compile-tmp/nrimp10s-77.imp"
ELSIZE = ACC;
                                                                //   4390        %IF TYPE>2 %OR (TYPE=1 %AND PREC=4) %THEN UNSCAL=1 %AND SC=3 %ELSE UNSCAL=0 %AND SC=PREC
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0406;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_040b;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_040b;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
L_0406:;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 1;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
SC = 3;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
goto L_040c;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
L_040b:;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
UNSCAL = 0;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
SC = PREC;
#line 4390 "regression-compile-tmp/nrimp10s-77.imp"
L_040c:;
                                                                //   4391        DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24;! ARRAY DESCRIPTOR SKELETON
#line 4391 "regression-compile-tmp/nrimp10s-77.imp"
DESC = ((((((SC) << (27))) | (((UNSCAL) << (25))))) | ((((((int)(1)) - (PARMARR))) << (24))));
                                                                //   4392           %IF PREC=4 %THEN DESC=16_58000002
#line 4392 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (4))) goto L_040d;
#line 4392 "regression-compile-tmp/nrimp10s-77.imp"
DESC = 1476395010;
#line 4392 "regression-compile-tmp/nrimp10s-77.imp"
L_040d:;
                                                                //   4393  START:NN=1;  P=P+1;                     ! NO OF NAMES IN NAMELIST
#line 4393 "regression-compile-tmp/nrimp10s-77.imp"
U_1028:;
#line 4393 "regression-compile-tmp/nrimp10s-77.imp"
NN = 1;
#line 4393 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4394        PP=P;  CDV=0;  PTYPEPP=PTYPEP
#line 4394 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 4394 "regression-compile-tmp/nrimp10s-77.imp"
CDV = 0;
#line 4394 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEPP = PTYPEP;
                                                                //   4395        P=P+3 %AND NN=NN+1 %WHILE A(P+2)=1
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
L_040e:;
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (1))) goto L_040f;
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
NN = (((int)(NN)) + (1));
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
goto L_040e;
#line 4395 "regression-compile-tmp/nrimp10s-77.imp"
L_040f:;
                                                                //   4396        P=P+3
#line 4396 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   4397        DVDISP=DOPE VECTOR(TYPE,ELSIZE,1,FROMAR2(PP),TOTSIZE,LWB)
#line 4397 "regression-compile-tmp/nrimp10s-77.imp"
DVDISP = DOPEVECTOR(TYPE, ELSIZE, 1, FROMAR2(PP), &TOTSIZE, &LWB);
                                                                //   4398        ND=J
#line 4398 "regression-compile-tmp/nrimp10s-77.imp"
ND = J;
                                                                //   4399        ->CONSTDV %UNLESS DVDISP=-1
#line 4399 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVDISP) == ((-1)))) goto L_0411;
#line 4399 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
#line 4399 "regression-compile-tmp/nrimp10s-77.imp"
L_0411:;
                                                                //   4400  ! NORMAL CASE - PLANT CODE TO SET UP DOPE-VECTOR AT RUN TIME
                                                                //   4401  
                                                                //   4402        DVF=0;  TOTSIZE=16_FFFF
#line 4402 "regression-compile-tmp/nrimp10s-77.imp"
DVF = 0;
#line 4402 "regression-compile-tmp/nrimp10s-77.imp"
TOTSIZE = 65535;
                                                                //   4403         DVDISP=N;                        ! DVDISP IS D-V POSITION
#line 4403 "regression-compile-tmp/nrimp10s-77.imp"
DVDISP = N;
                                                                //   4404        N=N+12*ND+12;                     ! CLAIM SPACE FOR THE D-V
#line 4404 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(((N) + ((int)((((int)(12)) * (ND))))))) + (12));
                                                                //   4405        FAULT(37,0) %IF ND>12;            ! TOO MANY DIMENSIONS
#line 4405 "regression-compile-tmp/nrimp10s-77.imp"
if (((ND) <= (12))) goto L_0412;
#line 4405 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(37, 0);
#line 4405 "regression-compile-tmp/nrimp10s-77.imp"
L_0412:;
                                                                //   4406        D0=5<<27!3*ND;  D1=12;            ! DESCPTR FOR DV
#line 4406 "regression-compile-tmp/nrimp10s-77.imp"
D0 = ((((5) << (27))) | ((((int)(3)) * (ND))));
#line 4406 "regression-compile-tmp/nrimp10s-77.imp"
D1 = 12;
                                                                //   4407        STORE CONST(JJ,8,ADDR(D0))
#line 4407 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&JJ, 8, _imp_ADDR(&D0));
                                                                //   4408        PF1(LD,0,PC,JJ)
#line 4408 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 4, JJ);
                                                                //   4409        PSF1(STD,1,DVDISP)
#line 4409 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, DVDISP);
                                                                //   4410        GRUSE(DR)=0
#line 4410 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   4411  
                                                                //   4412        %IF UNSCAL=0 %THEN JJ=1 %ELSE JJ=ELSIZE
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
if (((UNSCAL) != (0))) goto L_0413;
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 1;
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0414;
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
L_0413:;
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ELSIZE;
#line 4412 "regression-compile-tmp/nrimp10s-77.imp"
L_0414:;
                                                                //   4413        PSF1(LSS,0,JJ);                   ! M1 THE FIRST MULTIPLIER
#line 4413 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, JJ);
                                                                //   4414        GRUSE(ACCR)=0
#line 4414 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   4415        %CYCLE II=ND,-1,1
#line 4415 "regression-compile-tmp/nrimp10s-77.imp"
II = ((ND) + ((int)(1)));
if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle II = ND, (-1), 1");
L_0415:;
if (II == 1) goto L_0416;
II += (-1);
                                                                //   4416           P=P+1
#line 4416 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4417           QQ=DVDISP+12*II;               ! TRIPLE FOR IITH DIMENSION
#line 4417 "regression-compile-tmp/nrimp10s-77.imp"
QQ = ((DVDISP) + ((int)((((int)(12)) * (II)))));
                                                                //   4418           PSF1(ST,1,QQ+4);               ! STORE MULTIPLIER
#line 4418 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(QQ)) + (4)));
                                                                //   4419           CSEXP(ACCR,16_51);             ! LOWER BOUND
#line 4419 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   4420           %IF ND=1 %AND PTYPEP&7<=3 %AND FORMAT=0 %AND GRUSE(ACCR)=5 %AND GRINF1(ACCR)=0 %THEN PTYPEPP=PTYPEPP+256
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
if (((ND) != (1))) goto L_0418;
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPEP) & (7))) > (3))) goto L_0418;
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) != (0))) goto L_0418;
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) != (5))) goto L_0418;
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[0]) != (0))) goto L_0418;
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEPP = (((int)(PTYPEPP)) + (256));
#line 4420 "regression-compile-tmp/nrimp10s-77.imp"
L_0418:;
                                                                //   4421           PSF1(ST,1,QQ);                 ! STORED IN DV
#line 4421 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, QQ);
                                                                //   4422           CSEXP(ACCR,16_51);             ! UPPER BOUND
#line 4422 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   4423           PSF1(ISB,1,QQ)
#line 4423 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(226, 1, QQ);
                                                                //   4424           GRUSE(ACCR)=0
#line 4424 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   4425           %IF COMPILER=0 %OR PARMARR#0 %START
#line 4425 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPILER) == (0))) goto L_0419;
#line 4425 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) == (0))) goto L_041a;
#line 4425 "regression-compile-tmp/nrimp10s-77.imp"
L_0419:;
                                                                //   4426              PF3(JAF,6,0,3);             ! JUMP UNLESS NEGATIVE
#line 4426 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 6, 0, 3);
                                                                //   4427              PSF1(LSS,0,-1);             ! SET UP -1 (ENSURES 0 ELEMENTS
#line 4427 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, (-1));
                                                                //   4428           %FINISH
#line 4428 "regression-compile-tmp/nrimp10s-77.imp"
L_041a:;
                                                                //   4429           PSF1(IAD,0,1);                 ! CONVERTED TO RANGE
#line 4429 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 0, 1);
                                                                //   4430           PSF1(IMY,1,QQ+4);              ! RANGE*MULTIPLIER
#line 4430 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(234, 1, (((int)(QQ)) + (4)));
                                                                //   4431           PSF1(ST,1,QQ+8);               ! AND STORED IN DV
#line 4431 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(QQ)) + (8)));
                                                                //   4432        %REPEAT
#line 4432 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0415;
#line 4432 "regression-compile-tmp/nrimp10s-77.imp"
L_0416:;
                                                                //   4433        P=P+1
#line 4433 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4434        %IF UNSCAL=0 %AND ELSIZE#1 %THEN PSF1(IMY,0,ELSIZE)
#line 4434 "regression-compile-tmp/nrimp10s-77.imp"
if (((UNSCAL) != (0))) goto L_041b;
#line 4434 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) == (1))) goto L_041b;
#line 4434 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(234, 0, ELSIZE);
#line 4434 "regression-compile-tmp/nrimp10s-77.imp"
L_041b:;
                                                                //   4435        PSF1(ST,1,DVDISP+8)
#line 4435 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(DVDISP)) + (8)));
                                                                //   4436        SNDISP=0;                         ! DV NOT AVAILABLE AT COMPILETIME
#line 4436 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
                                                                //   4437        ->DECL
#line 4437 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
                                                                //   4438  CONSTDV:                                ! ONE DIMENSION - CONSTANT BOUNDS
#line 4438 "regression-compile-tmp/nrimp10s-77.imp"
U_102e:;
                                                                //   4439        DVF=1;  CDV=1
#line 4439 "regression-compile-tmp/nrimp10s-77.imp"
DVF = 1;
#line 4439 "regression-compile-tmp/nrimp10s-77.imp"
CDV = 1;
                                                                //   4440        %IF ND=1 %AND LWB=0 %AND PTYPEP&15<=3 %AND FORMAT=0 %THEN PTYPEPP=PTYPEP+256
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
if (((ND) != (1))) goto L_041c;
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
if (((LWB) != (0))) goto L_041c;
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPEP) & (15))) > (3))) goto L_041c;
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) != (0))) goto L_041c;
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEPP = (((int)(PTYPEP)) + (256));
#line 4440 "regression-compile-tmp/nrimp10s-77.imp"
L_041c:;
                                                                //   4441                                          ! SET ARR=2 IF LWB=ZERO
                                                                //   4442        SNDISP=(DVDISP&16_FFFFFF)>>2
#line 4442 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = ((((((DVDISP) & (16777215)))) >> (2)));
                                                                //   4443  DECL:                                   ! MAKE DECLN - BOTH WAYS
#line 4443 "regression-compile-tmp/nrimp10s-77.imp"
U_102f:;
                                                                //   4444        J=ND
#line 4444 "regression-compile-tmp/nrimp10s-77.imp"
J = ND;
                                                                //   4445        ODD ALIGN
#line 4445 "regression-compile-tmp/nrimp10s-77.imp"
ODDALIGN();
                                                                //   4446        PTYPE=PTYPEPP;  UNPACK
#line 4446 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = PTYPEPP;
#line 4446 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   4447        %IF DVF#0 %THEN %START;           ! ARRAY IS STRING OF LOCALS
#line 4447 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVF) == (0))) goto L_041d;
                                                                //   4448           R=TOTSIZE
#line 4448 "regression-compile-tmp/nrimp10s-77.imp"
R = TOTSIZE;
                                                                //   4449           %IF UNSCAL=0 %THEN R=R//ELSIZE
#line 4449 "regression-compile-tmp/nrimp10s-77.imp"
if (((UNSCAL) != (0))) goto L_041e;
#line 4449 "regression-compile-tmp/nrimp10s-77.imp"
R = (long)((long)((int)(R)) / (long)((int)(_Z(ELSIZE))));
#line 4449 "regression-compile-tmp/nrimp10s-77.imp"
L_041e:;
                                                                //   4450           D0=DESC
#line 4450 "regression-compile-tmp/nrimp10s-77.imp"
D0 = DESC;
                                                                //   4451           D0=D0!R %UNLESS PREC=4
#line 4451 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (4))) goto L_041f;
#line 4451 "regression-compile-tmp/nrimp10s-77.imp"
D0 = ((D0) | (R));
#line 4451 "regression-compile-tmp/nrimp10s-77.imp"
L_041f:;
                                                                //   4452           STORE CONST(D1,4,ADDR(D0))
#line 4452 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&D1, 4, _imp_ADDR(&D0));
                                                                //   4453           PF1(LB,0,PC,D1)
#line 4453 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 0, 4, D1);
                                                                //   4454        %FINISH %ELSE %START
#line 4454 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0420;
#line 4454 "regression-compile-tmp/nrimp10s-77.imp"
L_041d:;
                                                                //   4455           STORE CONST(D1,4,ADDR(DESC))
#line 4455 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&D1, 4, _imp_ADDR(&DESC));
                                                                //   4456           PF1(LB,0,PC,D1)
#line 4456 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 0, 4, D1);
                                                                //   4457           PSF1(ADB,1,DVDISP+20) %UNLESS PREC=4
#line 4457 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (4))) goto L_0421;
#line 4457 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 1, (((int)(DVDISP)) + (20)));
#line 4457 "regression-compile-tmp/nrimp10s-77.imp"
L_0421:;
                                                                //   4458        %FINISH
#line 4458 "regression-compile-tmp/nrimp10s-77.imp"
L_0420:;
                                                                //   4459        %IF DVF#0 %THEN QQ=PC %ELSE QQ=LNB
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVF) == (0))) goto L_0422;
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
QQ = 4;
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0423;
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
L_0422:;
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
QQ = 2;
#line 4459 "regression-compile-tmp/nrimp10s-77.imp"
L_0423:;
                                                                //   4460        PSORLF1(LDRL,0,QQ,DVDISP)
#line 4460 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(112, 0, QQ, DVDISP);
                                                                //   4461        GRUSE(BREG)=0; GRUSE(DR)=0
#line 4461 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 4461 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   4462        %CYCLE JJJ=0,1,NN-1;              ! DOWN NAMELIST
#line 4462 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(NN)) - (1)); JJJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 0, 1, (((int)(NN)) - (1))");
JJJ -= _increment; _control -= _increment;
L_0424:;
if (JJJ == _final) goto L_0425;
JJJ += _increment; _control += _increment;
if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */
}
                                                                //   4463           PSF1(STB,1,N+16*JJJ);          ! ARRAY BOUND
#line 4463 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(90, 1, ((N) + ((int)((((int)(16)) * (JJJ))))));
                                                                //   4464           PSF1(STD,1,N+8+16*JJJ);        ! DV POINTER
#line 4464 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, ((((((int)(N)) + (8)))) + ((((int)(16)) * (JJJ)))));
                                                                //   4465        %REPEAT
#line 4465 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0424;
#line 4465 "regression-compile-tmp/nrimp10s-77.imp"
L_0425:;
                                                                //   4466        %IF PARMARR=0 %AND PARMCHK=0 %AND ND=1 %AND TYPE<=3 %AND PTYPEPP&16_F00#16_200 %THEN ADJ=1 %ELSE ADJ=0
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) != (0))) goto L_0427;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0427;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
if (((ND) != (1))) goto L_0427;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (3))) goto L_0427;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPEPP) & (3840))) == (512))) goto L_0427;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
ADJ = 1;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0428;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
L_0427:;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
ADJ = 0;
#line 4466 "regression-compile-tmp/nrimp10s-77.imp"
L_0428:;
                                                                //   4467        %CYCLE JJJ=0,1,NN-1;              ! DOWN NAMELIST
#line 4467 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(NN)) - (1)); JJJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 0, 1, (((int)(NN)) - (1))");
JJJ -= _increment; _control -= _increment;
L_0429:;
if (JJJ == _final) goto L_042a;
JJJ += _increment; _control += _increment;
if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */
}
                                                                //   4468           %IF ADJ#0 %START;              ! ADJUST DESC
#line 4468 "regression-compile-tmp/nrimp10s-77.imp"
if (((ADJ) == (0))) goto L_042c;
                                                                //   4469              %IF STACK#0 %START;         ! ARRAY ON AUTOMATIC STACK
#line 4469 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) == (0))) goto L_042d;
                                                                //   4470                 PF1(STSF,0,BREG,0);      ! CURRENT SF TO B
#line 4470 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 7, 0);
                                                                //   4471                 %IF DVF#0 %THEN PSF1(SBB,0,LWB*ELSIZE) %ELSE %START
#line 4471 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVF) == (0))) goto L_042e;
#line 4471 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 0, (((int)(LWB)) * (ELSIZE)));
#line 4471 "regression-compile-tmp/nrimp10s-77.imp"
goto L_042f;
#line 4471 "regression-compile-tmp/nrimp10s-77.imp"
L_042e:;
                                                                //   4472                    %IF ELSIZE=1 %THEN PSF1(SBB,1,DVDISP+12) %ELSESTART
#line 4472 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) != (1))) goto L_0430;
#line 4472 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 1, (((int)(DVDISP)) + (12)));
#line 4472 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0431;
#line 4472 "regression-compile-tmp/nrimp10s-77.imp"
L_0430:;
                                                                //   4473                       PSF1(SLB,1,DVDISP+12)
#line 4473 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(82, 1, (((int)(DVDISP)) + (12)));
                                                                //   4474                       PSF1(MYB,0,ELSIZE)
#line 4474 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, ELSIZE);
                                                                //   4475                       PF1(SLB,0,TOS,0)
#line 4475 "regression-compile-tmp/nrimp10s-77.imp"
PF1(82, 0, 6, 0);
                                                                //   4476                       PF1(SBB,0,TOS,0)
#line 4476 "regression-compile-tmp/nrimp10s-77.imp"
PF1(34, 0, 6, 0);
                                                                //   4477                    %FINISH
#line 4477 "regression-compile-tmp/nrimp10s-77.imp"
L_0431:;
                                                                //   4478                 %FINISH
#line 4478 "regression-compile-tmp/nrimp10s-77.imp"
L_042f:;
                                                                //   4479                 PSF1(STB,1,N+4)
#line 4479 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(90, 1, (((int)(N)) + (4)));
                                                                //   4480                 GRUSE(BREG)=0
#line 4480 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   4481              %FINISH %ELSE %START;      ! ARRAY ON AUX STACK
#line 4481 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0432;
#line 4481 "regression-compile-tmp/nrimp10s-77.imp"
L_042d:;
                                                                //   4482                 %IF DVF#0 %START;        ! CONST DOPE VECTOR
#line 4482 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVF) == (0))) goto L_0433;
                                                                //   4483                    %UNLESS GRUSE(ACCR)=11 %%START
#line 4483 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) == (11))) goto L_0434;
                                                                //   4484                       PSF1(LSS,2,AUXSBASE(LEVEL))
#line 4484 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 2, AUXSBASE[LEVEL]);
                                                                //   4485                       GRUSE(ACCR)=11; GRINF1(ACCR)=0
#line 4485 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 11;
#line 4485 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   4486                    %FINISH
#line 4486 "regression-compile-tmp/nrimp10s-77.imp"
L_0434:;
                                                                //   4487                    JJJJ=LWB*ELSIZE-GRINF1(ACCR)
#line 4487 "regression-compile-tmp/nrimp10s-77.imp"
JJJJ = (((int)((((int)(LWB)) * (ELSIZE)))) - (GRINF1[0]));
                                                                //   4488                    PSF1(ISB,0,JJJJ) %UNLESS JJJJ=0
#line 4488 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJJ) == (0))) goto L_0435;
#line 4488 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(226, 0, JJJJ);
#line 4488 "regression-compile-tmp/nrimp10s-77.imp"
L_0435:;
                                                                //   4489                    GRINF1(ACCR)=LWB*ELSIZE
#line 4489 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = (((int)(LWB)) * (ELSIZE));
                                                                //   4490                 %FINISH %ELSE %START;    ! DYNAMIC ARRAYS
#line 4490 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0436;
#line 4490 "regression-compile-tmp/nrimp10s-77.imp"
L_0433:;
                                                                //   4491                    %IF GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 %AND ELSIZE=1 %THEN PSF1(ISB,1,DVDISP+12) %ELSESTART
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) != (11))) goto L_0437;
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[0]) != (0))) goto L_0437;
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) != (1))) goto L_0437;
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(226, 1, (((int)(DVDISP)) + (12)));
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0438;
#line 4491 "regression-compile-tmp/nrimp10s-77.imp"
L_0437:;
                                                                //   4492                       PSF1(LSS,1,DVDISP+12)
#line 4492 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, (((int)(DVDISP)) + (12)));
                                                                //   4493                       PSF1(IMY,0,ELSIZE) %UNLESS ELSIZE=1
#line 4493 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) == (1))) goto L_0439;
#line 4493 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(234, 0, ELSIZE);
#line 4493 "regression-compile-tmp/nrimp10s-77.imp"
L_0439:;
                                                                //   4494                       PSF1(IRSB,2,AUXSBASE(LEVEL))
#line 4494 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(228, 2, AUXSBASE[LEVEL]);
                                                                //   4495                    %FINISH
#line 4495 "regression-compile-tmp/nrimp10s-77.imp"
L_0438:;
                                                                //   4496                    GRUSE(ACCR)=0
#line 4496 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   4497                 %FINISH
#line 4497 "regression-compile-tmp/nrimp10s-77.imp"
L_0436:;
                                                                //   4498                 PSF1(ST,1,N+4)
#line 4498 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(N)) + (4)));
                                                                //   4499              %FINISH
#line 4499 "regression-compile-tmp/nrimp10s-77.imp"
L_0432:;
                                                                //   4500           %FINISH %ELSE %START;          ! NO ADJUSTMENT OF DESCRPT
#line 4500 "regression-compile-tmp/nrimp10s-77.imp"
goto L_043a;
#line 4500 "regression-compile-tmp/nrimp10s-77.imp"
L_042c:;
                                                                //   4501              %IF STACK#0 %THEN PSF1(STSF,1,N+4) %ELSE %START
#line 4501 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) == (0))) goto L_043b;
#line 4501 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(94, 1, (((int)(N)) + (4)));
#line 4501 "regression-compile-tmp/nrimp10s-77.imp"
goto L_043c;
#line 4501 "regression-compile-tmp/nrimp10s-77.imp"
L_043b:;
                                                                //   4502                 PSF1(LSS,2,AUXSBASE(LEVEL)) %UNLESS GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0
#line 4502 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) != (11))) goto L_043d;
#line 4502 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[0]) == (0))) goto L_043e;
#line 4502 "regression-compile-tmp/nrimp10s-77.imp"
L_043d:;
#line 4502 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 2, AUXSBASE[LEVEL]);
#line 4502 "regression-compile-tmp/nrimp10s-77.imp"
L_043e:;
                                                                //   4503                 PSF1(ST,1,N+4)
#line 4503 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(N)) + (4)));
                                                                //   4504                 GRUSE(ACCR)=11; GRINF1(ACCR)=0
#line 4504 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 11;
#line 4504 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   4505              %FINISH
#line 4505 "regression-compile-tmp/nrimp10s-77.imp"
L_043c:;
                                                                //   4506           %FINISH
#line 4506 "regression-compile-tmp/nrimp10s-77.imp"
L_043a:;
                                                                //   4507  
                                                                //   4508           ACC=ELSIZE;                    ! RESET ACC AFTER DV CMPLD
#line 4508 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ELSIZE;
                                                                //   4509           KFORM=FINF;                    ! FORMAT INFORMATION
#line 4509 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = FINF;
                                                                //   4510           K=FROM AR2(PP+3*JJJ)
#line 4510 "regression-compile-tmp/nrimp10s-77.imp"
K = FROMAR2(((PP) + ((int)((((int)(3)) * (JJJ))))));
                                                                //   4511           STORE TAG(K,N)
#line 4511 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(K, N);
                                                                //   4512           CLAIM AS %IF FORMAT = 0
#line 4512 "regression-compile-tmp/nrimp10s-77.imp"
if (((FORMAT) != (0))) goto L_043f;
#line 4512 "regression-compile-tmp/nrimp10s-77.imp"
CLAIMAS();
#line 4512 "regression-compile-tmp/nrimp10s-77.imp"
L_043f:;
                                                                //   4513           N=N+16
#line 4513 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (16));
                                                                //   4514        %REPEAT
#line 4514 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0429;
#line 4514 "regression-compile-tmp/nrimp10s-77.imp"
L_042a:;
                                                                //   4515        P=P+1;                            ! PAST REST OF ARRAYLIST
#line 4515 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4516        %IF A(P-1)=1 %THEN ->START
#line 4516 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) != (1))) goto L_0440;
#line 4516 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 4516 "regression-compile-tmp/nrimp10s-77.imp"
L_0440:;
                                                                //   4517        %RETURN
#line 4517 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4518  %ROUTINE CLAIM AS
#line 4518 "regression-compile-tmp/nrimp10s-77.imp"
void CLAIMAS( void )
#line 4518 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4519  !***********************************************************************
                                                                //   4520  !*       CLAIM THE SPACE FOR AN ARRAY FROM STACK OR AUX STACK          *
                                                                //   4521  !***********************************************************************
                                                                //   4522  %INTEGER T, B, D,ADJMENT
#line 4522 "regression-compile-tmp/nrimp10s-77.imp"
int T;
#line 4522 "regression-compile-tmp/nrimp10s-77.imp"
int B;
#line 4522 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 4522 "regression-compile-tmp/nrimp10s-77.imp"
int ADJMENT;
                                                                //   4523        %IF STACK=1 %THEN %START;         ! FROM AUTOMATIC STACK
#line 4523 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) != (1))) goto L_0441;
                                                                //   4524           %IF CDV=1 %THEN %START;        ! CONSTANT BOUNDS
#line 4524 "regression-compile-tmp/nrimp10s-77.imp"
if (((CDV) != (1))) goto L_0442;
                                                                //   4525              T=(TOTSIZE+3)//4
#line 4525 "regression-compile-tmp/nrimp10s-77.imp"
T = (long)((long)(((((int)(TOTSIZE)) + (3)))) / (long)((int)(4)));
                                                                //   4526              PSF1(ASF+12*PARMCHK,0,T);   ! ASF OR LB
#line 4526 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, T);
                                                                //   4527              PPJ(0,4) %IF PARMCHK#0
#line 4527 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_0443;
#line 4527 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 4);
#line 4527 "regression-compile-tmp/nrimp10s-77.imp"
L_0443:;
                                                                //   4528           %FINISH %ELSE %START;          ! DYNAMIC BOUNDS
#line 4528 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0444;
#line 4528 "regression-compile-tmp/nrimp10s-77.imp"
L_0442:;
                                                                //   4529              %IF PARMCHK=0 %AND PTYPEP&7<=2 %AND (ELSIZE=4 %OR ELSIZE=8) %START
#line 4529 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0445;
#line 4529 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPEP) & (7))) > (2))) goto L_0445;
#line 4529 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) == (4))) goto L_03fd;
#line 4529 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) != (8))) goto L_0445;
#line 4529 "regression-compile-tmp/nrimp10s-77.imp"
L_03fd:;
                                                                //   4530                 PSF1(ASF,1,DVDISP+20);   ! SIZE IN ELEMENTS WORD
#line 4530 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(110, 1, (((int)(DVDISP)) + (20)));
                                                                //   4531                 PSF1(ASF,1,DVDISP+20) %IF ELSIZE=8
#line 4531 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSIZE) != (8))) goto L_0446;
#line 4531 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(110, 1, (((int)(DVDISP)) + (20)));
#line 4531 "regression-compile-tmp/nrimp10s-77.imp"
L_0446:;
                                                                //   4532              %FINISH %ELSE %START
#line 4532 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0447;
#line 4532 "regression-compile-tmp/nrimp10s-77.imp"
L_0445:;
                                                                //   4533                 PSF1(LSS,1,DVDISP+8);    ! ARRAY SIZE BYTES
#line 4533 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, (((int)(DVDISP)) + (8)));
                                                                //   4534                 PSF1(IAD,0,3) %IF ELSIZE&3#0
#line 4534 "regression-compile-tmp/nrimp10s-77.imp"
if (((((ELSIZE) & (3))) == (0))) goto L_0448;
#line 4534 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 0, 3);
#line 4534 "regression-compile-tmp/nrimp10s-77.imp"
L_0448:;
                                                                //   4535                 PSF1(USH,0,-2);          ! ARRAY SIZE WORDS
#line 4535 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-2));
                                                                //   4536                 PF1(ST,0,BREG,0)
#line 4536 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   4537                 FORGET(BREG)
#line 4537 "regression-compile-tmp/nrimp10s-77.imp"
FORGET(7);
                                                                //   4538                 %IF PARMCHK#0 %THEN PPJ(0,4) %ELSE PF1(ASF,0,BREG,0)
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_0449;
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 4);
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
goto L_044a;
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
L_0449:;
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
PF1(110, 0, 7, 0);
#line 4538 "regression-compile-tmp/nrimp10s-77.imp"
L_044a:;
                                                                //   4539              %FINISH
#line 4539 "regression-compile-tmp/nrimp10s-77.imp"
L_0447:;
                                                                //   4540           %FINISH
#line 4540 "regression-compile-tmp/nrimp10s-77.imp"
L_0444:;
                                                                //   4541           CHECK STOF
#line 4541 "regression-compile-tmp/nrimp10s-77.imp"
CHECKSTOF();
                                                                //   4542        %FINISH %ELSE %START
#line 4542 "regression-compile-tmp/nrimp10s-77.imp"
goto L_044b;
#line 4542 "regression-compile-tmp/nrimp10s-77.imp"
L_0441:;
                                                                //   4543           %UNLESS GRUSE(ACCR)=11 %AND (GRINF1(ACCR)=0 %OR CDV=1) %START
#line 4543 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) != (11))) goto L_044c;
#line 4543 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[0]) == (0))) goto L_044d;
#line 4543 "regression-compile-tmp/nrimp10s-77.imp"
if (((CDV) == (1))) goto L_044d;
#line 4543 "regression-compile-tmp/nrimp10s-77.imp"
L_044c:;
                                                                //   4544              PSF1(LSS,2,AUXSBASE(LEVEL))
#line 4544 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 2, AUXSBASE[LEVEL]);
                                                                //   4545              GRUSE(ACCR)=11; GRINF1(ACCR)=0
#line 4545 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 11;
#line 4545 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   4546           %FINISH
#line 4546 "regression-compile-tmp/nrimp10s-77.imp"
L_044d:;
                                                                //   4547           %IF CDV=1 %THEN %START
#line 4547 "regression-compile-tmp/nrimp10s-77.imp"
if (((CDV) != (1))) goto L_044e;
                                                                //   4548              ADJMENT=(TOTSIZE+7)&(-8)+GRINF1(ACCR)
#line 4548 "regression-compile-tmp/nrimp10s-77.imp"
ADJMENT = (((int)((((((int)(TOTSIZE)) + (7))) & ((-8))))) + (GRINF1[0]));
                                                                //   4549              %IF ADJMENT<16_1FFFF %THEN B=0 %AND D=ADJMENT %ELSE %START
#line 4549 "regression-compile-tmp/nrimp10s-77.imp"
if (((ADJMENT) >= (131071))) goto L_044f;
#line 4549 "regression-compile-tmp/nrimp10s-77.imp"
B = 0;
#line 4549 "regression-compile-tmp/nrimp10s-77.imp"
D = ADJMENT;
#line 4549 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0450;
#line 4549 "regression-compile-tmp/nrimp10s-77.imp"
L_044f:;
                                                                //   4550                 STORE CONST(D,4,ADDR(ADJMENT))
#line 4550 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&D, 4, _imp_ADDR(&ADJMENT));
                                                                //   4551                 B=PC
#line 4551 "regression-compile-tmp/nrimp10s-77.imp"
B = 4;
                                                                //   4552              %FINISH
#line 4552 "regression-compile-tmp/nrimp10s-77.imp"
L_0450:;
                                                                //   4553              %IF ADJ=1 %AND JJJ#NN-1 %AND PARMOPT=0 %THEN GRINF1(ACCR)=ADJMENT %ELSE %START
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
if (((ADJ) != (1))) goto L_0451;
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) == ((((int)(NN)) - (1))))) goto L_0451;
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) != (0))) goto L_0451;
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = ADJMENT;
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0452;
#line 4553 "regression-compile-tmp/nrimp10s-77.imp"
L_0451:;
                                                                //   4554                 GRINF1(ACCR)=0
#line 4554 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   4555                 PSORLF1(IAD,0,B,D) %UNLESS B=D=0
#line 4555 "regression-compile-tmp/nrimp10s-77.imp"
if ((((B) != (D))) || (((D) == (0)))) goto L_0454;
#line 4555 "regression-compile-tmp/nrimp10s-77.imp"
L_0453:;
#line 4555 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(224, 0, B, D);
#line 4555 "regression-compile-tmp/nrimp10s-77.imp"
L_0454:;
                                                                //   4556              %FINISH
#line 4556 "regression-compile-tmp/nrimp10s-77.imp"
L_0452:;
                                                                //   4557           %FINISH %ELSE %START
#line 4557 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0455;
#line 4557 "regression-compile-tmp/nrimp10s-77.imp"
L_044e:;
                                                                //   4558              B=LNB; D=DVDISP+8
#line 4558 "regression-compile-tmp/nrimp10s-77.imp"
B = 2;
#line 4558 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)(DVDISP)) + (8));
                                                                //   4559              PSF1(IAD,1,D)
#line 4559 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 1, D);
                                                                //   4560              %UNLESS ELSIZE&7=0 %START
#line 4560 "regression-compile-tmp/nrimp10s-77.imp"
if (((((ELSIZE) & (7))) == (0))) goto L_0456;
                                                                //   4561                 PSF1(IAD,0,7)
#line 4561 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 0, 7);
                                                                //   4562                 PSF1(AND,0,-8)
#line 4562 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(138, 0, (-8));
                                                                //   4563              %FINISH
#line 4563 "regression-compile-tmp/nrimp10s-77.imp"
L_0456:;
                                                                //   4564              GRINF1(ACCR)=0
#line 4564 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[0] = 0;
                                                                //   4565           %FINISH
#line 4565 "regression-compile-tmp/nrimp10s-77.imp"
L_0455:;
                                                                //   4566           PSF1(ST,2,AUXSBASE(LEVEL)) %IF JJJ=NN-1 %OR (ADJ=1 %AND CDV=0)
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) == ((((int)(NN)) - (1))))) goto L_0457;
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
if (((ADJ) != (1))) goto L_0458;
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
if (((CDV) != (0))) goto L_0458;
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
L_0457:;
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 2, AUXSBASE[LEVEL]);
#line 4566 "regression-compile-tmp/nrimp10s-77.imp"
L_0458:;
                                                                //   4567           %IF PARMOPT#0 %THEN %START
#line 4567 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0459;
                                                                //   4568              PSF1(ICP,1,AUXSBASE(LEVEL)+16)
#line 4568 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(230, 1, (((int)(AUXSBASE[LEVEL])) + (16)));
                                                                //   4569              PPJ(2,8)
#line 4569 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(2, 8);
                                                                //   4570           %FINISH
#line 4570 "regression-compile-tmp/nrimp10s-77.imp"
L_0459:;
                                                                //   4571           %IF PARMCHK#0 %START
#line 4571 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_045a;
                                                                //   4572              PF1(LDTB,0,PC,PARAM DES(3))
#line 4572 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, PARAMDES(3));
                                                                //   4573              PSORLF1(LDB,0,B,D)
#line 4573 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(118, 0, B, D);
                                                                //   4574              PSF1(LDA,1,N+4)
#line 4574 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(114, 1, (((int)(N)) + (4)));
                                                                //   4575              PF2(MVL,1,1,0,0,UNASSPAT&255)
#line 4575 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   4576              GRUSE(DR)=0
#line 4576 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   4577           %FINISH
#line 4577 "regression-compile-tmp/nrimp10s-77.imp"
L_045a:;
                                                                //   4578        %FINISH
#line 4578 "regression-compile-tmp/nrimp10s-77.imp"
L_044b:;
                                                                //   4579  %END
#line 4579 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLAIMAS at level 6
                                                                //   4580  %END
#line 4580 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DECLAREARRAYS at level 5
                                                                //   4581  !         %ROUTINE TEST NST
                                                                //   4582  !!***********************************************************************
                                                                //   4583  !!*       SEE IF NAME 'K' HAS BEEN DECLARED BEFORE AT THIS LEVEL        *
                                                                //   4584  !!***********************************************************************
                                                                //   4585  !         FNAME=K
                                                                //   4586  !         FAULT(7,FNAME) %IF FROM1(TAGS(FNAME))>>8&15=LEVEL
                                                                //   4587  !         %END
                                                                //   4588           %ROUTINE CLT
#line 4588 "regression-compile-tmp/nrimp10s-77.imp"
void CLT( void )
#line 4588 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4589  !***********************************************************************
                                                                //   4590  !*       DEAL WITH PHRASE TYPE AND SET PREC,TYPE & ACC                 *
                                                                //   4591  !*       ONLY PROBLEM IS STRING WHICH HAS OPTIONAL MAX LENGTH ALSO     *
                                                                //   4592  !*       P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT.           *
                                                                //   4593  !***********************************************************************
                                                                //   4594  %CONSTBYTEINTEGERARRAY TYPEFLAG(1:10)= {%C
#line 4594 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char TYPEFLAG[10] = { 81, 82, 0, 49, 53, 65, 0, 98, 97, 114,  };
                                                                //   4595                                          16_51,16_52,0,16_31,16_35,
                                                                //   4596                                          16_41,0,16_62,16_61,16_72;
                                                                //   4597  %INTEGER ALT
#line 4597 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
                                                                //   4598           ALT=A(P)
#line 4598 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
                                                                //   4599           TYPE=TYPEFLAG(ALT)
#line 4599 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = (TYPEFLAG-1)[ALT];
                                                                //   4600           %IF TYPE=0 %THEN P=P+1 %AND TYPE=TYPEFLAG(A(P)+7)
#line 4600 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (0))) goto L_045b;
#line 4600 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4600 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = (TYPEFLAG-1)[(((int)(A[P])) + (7))];
#line 4600 "regression-compile-tmp/nrimp10s-77.imp"
L_045b:;
                                                                //   4601           PREC=TYPE>>4
#line 4601 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (int)((((unsigned int)(TYPE)) >> (4)));
                                                                //   4602           TYPE=TYPE&7
#line 4602 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((TYPE) & (7));
                                                                //   4603           PREC=6 %IF TYPE=2 %AND ALL LONG#0 %AND PREC<=5;! DEAL WITH '%REALSLONG'
#line 4603 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_045c;
#line 4603 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALLLONG) == (0))) goto L_045c;
#line 4603 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (5))) goto L_045c;
#line 4603 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 6;
#line 4603 "regression-compile-tmp/nrimp10s-77.imp"
L_045c:;
                                                                //   4604           ACC=BYTES(PREC)
#line 4604 "regression-compile-tmp/nrimp10s-77.imp"
ACC = BYTES[PREC];
                                                                //   4605           %IF TYPE=5 %THEN %START;    ! P<TYPE>='%STRING'
#line 4605 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_045d;
                                                                //   4606              %IF A(P+1)=1 %THEN %START;! MAX LENGTH GIVEN
#line 4606 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) != (1))) goto L_045e;
                                                                //   4607                 P=P+2
#line 4607 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4608                 ACC=A(P)+1
#line 4608 "regression-compile-tmp/nrimp10s-77.imp"
ACC = (((int)(A[P])) + (1));
                                                                //   4609              %FINISH %ELSE ACC=0 %AND P=P+1
#line 4609 "regression-compile-tmp/nrimp10s-77.imp"
goto L_045f;
#line 4609 "regression-compile-tmp/nrimp10s-77.imp"
L_045e:;
#line 4609 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 0;
#line 4609 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4609 "regression-compile-tmp/nrimp10s-77.imp"
L_045f:;
                                                                //   4610           %FINISH
#line 4610 "regression-compile-tmp/nrimp10s-77.imp"
L_045d:;
                                                                //   4611           P=P+1
#line 4611 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4612           %END
#line 4612 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLT at level 5
                                                                //   4613           %ROUTINE CQN(%INTEGER P)
#line 4613 "regression-compile-tmp/nrimp10s-77.imp"
void CQN( int P )
#line 4613 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4614  !***********************************************************************
                                                                //   4615  !*       SET NAM,ARR & ACC FROM ALTERNATIVE OF PHRASE <QNAME'>         *
                                                                //   4616  !*       P<QNAME'>='%ARRAYNAME','%NAME',<%NULL>                        *
                                                                //   4617  !*       P POINTS TO THE ANALYSIS RECORD ENTRY AS IS NOT UPDATED       *
                                                                //   4618  !***********************************************************************
                                                                //   4619           %INTEGER I
#line 4619 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   4620           I=A(P);NAM=0;ARR=0
#line 4620 "regression-compile-tmp/nrimp10s-77.imp"
I = A[P];
#line 4620 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
#line 4620 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
                                                                //   4621           %IF I=1 %THEN ARR=1 %AND ACC=16;! ARRAYNAMES
#line 4621 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_0460;
#line 4621 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 1;
#line 4621 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 16;
#line 4621 "regression-compile-tmp/nrimp10s-77.imp"
L_0460:;
                                                                //   4622           %IF I<=2 %THEN NAM=1;           ! ARRAYNAMES & NAMES
#line 4622 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) > (2))) goto L_0461;
#line 4622 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
#line 4622 "regression-compile-tmp/nrimp10s-77.imp"
L_0461:;
                                                                //   4623           %IF I=2 %THEN ACC=8;            ! NAMES USE 8-BYTE DESCRIPTOR
#line 4623 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (2))) goto L_0462;
#line 4623 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 8;
#line 4623 "regression-compile-tmp/nrimp10s-77.imp"
L_0462:;
                                                                //   4624           %END
#line 4624 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CQN at level 5
                                                                //   4625  %ROUTINE CRSPEC (%INTEGER M)
#line 4625 "regression-compile-tmp/nrimp10s-77.imp"
void CRSPEC( int M )
#line 4625 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4626  !***********************************************************************
                                                                //   4627  !*    MODE=0  FOR NORMAL ROUTINE SPEC                                  *
                                                                //   4628  !*    MODE=1 FOR EXTERNAL(ETC) ROUTINE SPECS XREF NEEDED               *
                                                                //   4629  !*    P ON ENTRY TO P(RT) IN (RT)(MARK)(%SPEC')(NAME)(FPP)             *
                                                                //   4630  !***********************************************************************
                                                                //   4631  %INTEGER KK,JJ,TYPEP,OPHEAD,NPARMS
#line 4631 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 4631 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 4631 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 4631 "regression-compile-tmp/nrimp10s-77.imp"
int OPHEAD;
#line 4631 "regression-compile-tmp/nrimp10s-77.imp"
int NPARMS;
                                                                //   4632  %STRING(34) XNAME
#line 4632 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(34)*/ XNAME;
                                                                //   4633        LITL=EXTRN&3
#line 4633 "regression-compile-tmp/nrimp10s-77.imp"
LITL = ((EXTRN) & (3));
                                                                //   4634        %IF A(P)=1 %THEN %START;          ! P<RT>=%ROUTINE
#line 4634 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0463;
                                                                //   4635           TYPEP=LITL<<14!16_1000
#line 4635 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = ((((LITL) << (14))) | (4096));
                                                                //   4636           P=P+2;                         ! IGNORING ALT OF P(SPEC')
#line 4636 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4637        %FINISH %ELSE %START;             ! P<RT>=<TYPE><FNORMAP>
#line 4637 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0464;
#line 4637 "regression-compile-tmp/nrimp10s-77.imp"
L_0463:;
                                                                //   4638           ROUT=1; ARR=0; P=P+1
#line 4638 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 1;
#line 4638 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
#line 4638 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4639           CLT; NAM=0
#line 4639 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
#line 4639 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
                                                                //   4640           %IF A(P)=2 %THEN NAM=2;        ! 2 FOR MAP 0 FOR FN
#line 4640 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0465;
#line 4640 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 2;
#line 4640 "regression-compile-tmp/nrimp10s-77.imp"
L_0465:;
                                                                //   4641           PACK(TYPEP)
#line 4641 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&TYPEP);
                                                                //   4642           P=P+2;                         ! AGAIN IGNORING ALT OF P(SPEC')
#line 4642 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4643        %FINISH
#line 4643 "regression-compile-tmp/nrimp10s-77.imp"
L_0464:;
                                                                //   4644        P=P+4;                            ! PAST HOLE FOR DECLINKS 
#line 4644 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   4645        KK=FROM AR2(P)
#line 4645 "regression-compile-tmp/nrimp10s-77.imp"
KK = FROMAR2(P);
                                                                //   4646        JJ=0
#line 4646 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 0;
                                                                //   4647        P=P+2
#line 4647 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4648        CFPLIST(OPHEAD,NPARMS)
#line 4648 "regression-compile-tmp/nrimp10s-77.imp"
CFPLIST(&OPHEAD, &NPARMS);
                                                                //   4649        %IF M=1 %THEN %START
#line 4649 "regression-compile-tmp/nrimp10s-77.imp"
if (((M) != (1))) goto L_0466;
                                                                //   4650           XNAME<-STRING(DICTBASE+WORD(KK))
#line 4650 "regression-compile-tmp/nrimp10s-77.imp"
XNAME = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK])));
                                                                //   4651           %IF EXTRN=1 %THEN XNAME<-"S#".XNAME
#line 4651 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXTRN) != (1))) goto L_0467;
#line 4651 "regression-compile-tmp/nrimp10s-77.imp"
XNAME = _imp_join((_imp_string)_imp_str_literal("S#"),(_imp_string)XNAME);
#line 4651 "regression-compile-tmp/nrimp10s-77.imp"
L_0467:;
                                                                //   4652           CXREF(XNAME,PARMDYNAMIC!(EXTRN//3),2,JJ); ! %STSTEM & %EXTERNAL =STATIC
#line 4652 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(XNAME, ((PARMDYNAMIC) | (((long)((long)((int)(EXTRN)) / (long)((int)(3)))))), 2, &JJ);
                                                                //   4653                                          ! %DYNAMIC = DYNAMIC
                                                                //   4654        %FINISH
#line 4654 "regression-compile-tmp/nrimp10s-77.imp"
L_0466:;
                                                                //   4655        %IF M=0 %AND RLEVEL=0 %THEN CODE DES(JJ)
#line 4655 "regression-compile-tmp/nrimp10s-77.imp"
if (((M) != (0))) goto L_0468;
#line 4655 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEVEL) != (0))) goto L_0468;
#line 4655 "regression-compile-tmp/nrimp10s-77.imp"
CODEDES(&JJ);
#line 4655 "regression-compile-tmp/nrimp10s-77.imp"
L_0468:;
                                                                //   4656        J=15-M; PTYPE=TYPEP
#line 4656 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(15)) - (M));
#line 4656 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TYPEP;
                                                                //   4657        KFORM=NPARMS
#line 4657 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = NPARMS;
                                                                //   4658        SNDISP=JJ>>16
#line 4658 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (int)((((unsigned int)(JJ)) >> (16)));
                                                                //   4659        ACC=JJ&16_FFFF
#line 4659 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((JJ) & (65535));
                                                                //   4660        STORE TAG(KK,OPHEAD)
#line 4660 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(KK, OPHEAD);
                                                                //   4661  %END
#line 4661 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRSPEC at level 5
                                                                //   4662  %ROUTINE CFPLIST(%INTEGERNAME OPHEAD,NPARMS)
#line 4662 "regression-compile-tmp/nrimp10s-77.imp"
void CFPLIST( int /*name*/*OPHEAD, int /*name*/*NPARMS )
#line 4662 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4663  !***********************************************************************
                                                                //   4664  !*    COMPILE A FORMAL PARAMETER PART INTO A LIST OF PARAMETER TYPES   *
                                                                //   4665  !*    P(FPP)='('{(HOLE)(FPDEL)(NAMELIST)(MARK)}*')',0.                 *
                                                                //   4666  !*                                                                     *
                                                                //   4667  !*    THE LIST OF PARAMETER LOOKS LIKE:-                               *
                                                                //   4668  !*    S1 = PTYPE FOR PARAM<<16! DIMENSION    (DIMEN DEDUCED LATER)     *
                                                                //   4669  !*    S2 = ACC <<16 ! SPARE                                            *
                                                                //   4670  !*    S3 = 0                                 (RESERVED FOR FPP OF RTS) *
                                                                //   4671  !*                                                                     *
                                                                //   4672  !*    ON ENTRY P IS AT ALT OF FPP (WHICH MAY BE NULL)                  *
                                                                //   4673  !***********************************************************************
                                                                //   4674  %INTEGER OPBOT, PP
#line 4674 "regression-compile-tmp/nrimp10s-77.imp"
int OPBOT;
#line 4674 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
                                                                //   4675        OPHEAD=0; OPBOT=0
#line 4675 "regression-compile-tmp/nrimp10s-77.imp"
*OPHEAD = 0;
#line 4675 "regression-compile-tmp/nrimp10s-77.imp"
OPBOT = 0;
                                                                //   4676        NPARMS=0;                         ! ZERO PARAMETERS AS YET
#line 4676 "regression-compile-tmp/nrimp10s-77.imp"
*NPARMS = 0;
                                                                //   4677        %WHILE A(P)=1 %CYCLE;             ! WHILE SOME(MORE) FPS
#line 4677 "regression-compile-tmp/nrimp10s-77.imp"
L_0469:;
#line 4677 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_046a;
                                                                //   4678           PP=P+1+FROMAR2(P+1);           ! TO NEXT FPDEL
#line 4678 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))));
                                                                //   4679           P=P+3;                         ! TO ALT OF FPDEL
#line 4679 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   4680           CFPDEL;                        ! GET TYPE & ACC FOR NEXT GROUP
#line 4680 "regression-compile-tmp/nrimp10s-77.imp"
CFPDEL();
                                                                //   4681           {%UNTIL A(P-1)=2} %CYCLE;        ! DOWN <NAMELIST> FOR EACH DEL
#line 4681 "regression-compile-tmp/nrimp10s-77.imp"
L_046c:;
                                                                //   4682              BINSERT(OPHEAD,OPBOT,PTYPE<<16,ACC<<16,0)
#line 4682 "regression-compile-tmp/nrimp10s-77.imp"
BINSERT(OPHEAD, &OPBOT, ((PTYPE) << (16)), ((ACC) << (16)), 0);
                                                                //   4683              NPARMS=NPARMS+1
#line 4683 "regression-compile-tmp/nrimp10s-77.imp"
*NPARMS = ((*(int *)(NPARMS)) + (1));
                                                                //   4684              P=P+3
#line 4684 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   4685           %REPEAT %UNTIL A(P-1)=2;       ! DOWN <NAMELIST> FOR EACH DEL
#line 4685 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) == (2))) goto L_046d;
#line 4685 "regression-compile-tmp/nrimp10s-77.imp"
goto L_046c;
#line 4685 "regression-compile-tmp/nrimp10s-77.imp"
L_046d:;
                                                                //   4686           P=PP
#line 4686 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
                                                                //   4687        %REPEAT
#line 4687 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0469;
#line 4687 "regression-compile-tmp/nrimp10s-77.imp"
L_046a:;
                                                                //   4688        P=P+1
#line 4688 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4689  %END
#line 4689 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CFPLIST at level 5
                                                                //   4690  %ROUTINE CFPDEL
#line 4690 "regression-compile-tmp/nrimp10s-77.imp"
void CFPDEL( void )
#line 4690 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4691  !***********************************************************************
                                                                //   4692  !*    SET UP PTYPE & ACC FOR A FORMAL PARAMETER DEFINITION             *
                                                                //   4693  !*    P<FPDEL>=<TYPE><%QNAME'>,                                        *
                                                                //   4694  !*             '%RECORD'<%ARRAY'>'%NAME'.                              *
                                                                //   4695  !*             (RT)(%NAME')(NAMELIST)(FPP),                            *
                                                                //   4696  !*             '%NAME'.                                                *
                                                                //   4697  !***********************************************************************
                                                                //   4698  %SWITCH FP(1:4)
#line 4698 "regression-compile-tmp/nrimp10s-77.imp"
static int sw10_FP_idx;
static const void * /*SWITCH*/ sw10_FP[4] = { &&sw10_FP_1, &&sw10_FP_2, &&sw10_FP_3, &&sw10_FP_4,  };
                                                                //   4699  %INTEGER FPALT
#line 4699 "regression-compile-tmp/nrimp10s-77.imp"
int FPALT;
                                                                //   4700        FPALT=A(P); P=P+1
#line 4700 "regression-compile-tmp/nrimp10s-77.imp"
FPALT = A[P];
#line 4700 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4701        KFORM=0; LITL=0
#line 4701 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = 0;
#line 4701 "regression-compile-tmp/nrimp10s-77.imp"
LITL = 0;
                                                                //   4702        ->FP(FPALT)
#line 4702 "regression-compile-tmp/nrimp10s-77.imp"
sw10_FP_idx = FPALT; if ((1 <= sw10_FP_idx) && (sw10_FP_idx <= 4)) goto *(sw10_FP-1)[sw10_FP_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw10_FP_idx);*/
   fprintf(stderr, "%%SWITCH index FP(%d) not in range 1:4 at %s:%d\n",
           sw10_FP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   4703  FP(1):                                  ! (TYPE)(%QNAME')
#line 4703 "regression-compile-tmp/nrimp10s-77.imp"
sw10_FP_1:;
                                                                //   4704        ROUT=0; CLT
#line 4704 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 4704 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
                                                                //   4705        CQN(P)
#line 4705 "regression-compile-tmp/nrimp10s-77.imp"
CQN(P);
                                                                //   4706        FAULT(70,0) %IF TYPE=5 %AND ACC=0
#line 4706 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_046f;
#line 4706 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACC) != (0))) goto L_046f;
#line 4706 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(70, 0);
#line 4706 "regression-compile-tmp/nrimp10s-77.imp"
L_046f:;
                                                                //   4707        P=P+1
#line 4707 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4708        ->PK
#line 4708 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
                                                                //   4709  FP(2):                                  ! RECORD(%ARRAY')%NAME
#line 4709 "regression-compile-tmp/nrimp10s-77.imp"
sw10_FP_2:;
                                                                //   4710        ARR=2-A(P); ROUT=0
#line 4710 "regression-compile-tmp/nrimp10s-77.imp"
ARR = ((2) - ((int)(A[P])));
#line 4710 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
                                                                //   4711        ACC=8+8*ARR; TYPE=3; PREC=3
#line 4711 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((8) + ((int)((((int)(8)) * (ARR)))));
#line 4711 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 3;
#line 4711 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 3;
                                                                //   4712        NAM=1; P=P+1; ->PK
#line 4712 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
#line 4712 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4712 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
                                                                //   4713  FP(3):                                  ! (RT)(%NAME')(NAMELIST)(FPP)
#line 4713 "regression-compile-tmp/nrimp10s-77.imp"
sw10_FP_3:;
                                                                //   4714        ROUT=1; NAM=1
#line 4714 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 1;
#line 4714 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
                                                                //   4715        ARR=0
#line 4715 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
                                                                //   4716        %IF A(P)=1 %THEN %START;          ! RT=%ROUITNE
#line 4716 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0470;
                                                                //   4717           TYPE=0; PREC=0
#line 4717 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 0;
#line 4717 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 0;
                                                                //   4718           P=P+2
#line 4718 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4719        %FINISH %ELSE %START
#line 4719 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0471;
#line 4719 "regression-compile-tmp/nrimp10s-77.imp"
L_0470:;
                                                                //   4720           P=P+1; CLT;                    ! RT=(TYPE)(FM)
#line 4720 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4720 "regression-compile-tmp/nrimp10s-77.imp"
CLT();
                                                                //   4721           NAM=1
#line 4721 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
                                                                //   4722           %IF A(P)=2 %THEN NAM=3;        ! 1 FOR FN 3 FOR MAP
#line 4722 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0472;
#line 4722 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 3;
#line 4722 "regression-compile-tmp/nrimp10s-77.imp"
L_0472:;
                                                                //   4723           P=P+2;                         ! PAST (%NAME') WHICH IS IGNORED
#line 4723 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4724        %FINISH
#line 4724 "regression-compile-tmp/nrimp10s-77.imp"
L_0471:;
                                                                //   4725        ACC=16
#line 4725 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 16;
                                                                //   4726        ->PK
#line 4726 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1018;
                                                                //   4727  FP(4):                                  ! %NAME
#line 4727 "regression-compile-tmp/nrimp10s-77.imp"
sw10_FP_4:;
                                                                //   4728        ACC=8; NAM=1
#line 4728 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 8;
#line 4728 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 1;
                                                                //   4729        ROUT=0; TYPE=0
#line 4729 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 4729 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 0;
                                                                //   4730        ARR=0; PREC=0
#line 4730 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
#line 4730 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 0;
                                                                //   4731  PK:   PACK(PTYPE)
#line 4731 "regression-compile-tmp/nrimp10s-77.imp"
U_1018:;
#line 4731 "regression-compile-tmp/nrimp10s-77.imp"
PACK(&PTYPE);
                                                                //   4732  %END
#line 4732 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CFPDEL at level 5
                                                                //   4733  %ROUTINE DIAG POINTER(%INTEGER LEVEL)
#line 4733 "regression-compile-tmp/nrimp10s-77.imp"
void DIAGPOINTER( int LEVEL )
#line 4733 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4734           %IF PARMTRACE#0 %THEN %START
#line 4734 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) == (0))) goto L_0473;
                                                                //   4735              PUSH(RAL(LEVEL),1,CA,LDB<<24!3<<23)
#line 4735 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&RAL[LEVEL], 1, CA, ((((118) << (24))) | (((3) << (23)))));
                                                                //   4736              PF1(LDB,0,0,0)
#line 4736 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 0, 0);
                                                                //   4737              GRUSE(DR)=0
#line 4737 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   4738           %FINISH
#line 4738 "regression-compile-tmp/nrimp10s-77.imp"
L_0473:;
                                                                //   4739  %END
#line 4739 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DIAGPOINTER at level 5
                                                                //   4740  %ROUTINE RHEAD(%INTEGER KK)
#line 4740 "regression-compile-tmp/nrimp10s-77.imp"
void RHEAD( int KK )
#line 4740 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4741  !***********************************************************************
                                                                //   4742  !*       COMPILES CODE FOR BLOCK AND ROUTINE ENTRY                     *
                                                                //   4743  !*       KK IS THE RT/FN/MAP NAME (=-1 FOR %BEGIN BLOCKS)              *
                                                                //   4744  !***********************************************************************
                                                                //   4745  %INTEGER W1, W3, INSRN, AT
#line 4745 "regression-compile-tmp/nrimp10s-77.imp"
int W1;
#line 4745 "regression-compile-tmp/nrimp10s-77.imp"
int W3;
#line 4745 "regression-compile-tmp/nrimp10s-77.imp"
int INSRN;
#line 4745 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
                                                                //   4746           PUSH(LEVELINF, 0, NMAX<<16!N, 0)
#line 4746 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&LEVELINF, 0, ((((NMAX) << (16))) | (N)), 0);
                                                                //   4747           LEVEL=LEVEL+1
#line 4747 "regression-compile-tmp/nrimp10s-77.imp"
LEVEL = (((int)(LEVEL)) + (1));
                                                                //   4748           NMDECS(LEVEL)=0; AUXSBASE(LEVEL)=0
#line 4748 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = 0;
#line 4748 "regression-compile-tmp/nrimp10s-77.imp"
AUXSBASE[LEVEL] = 0;
                                                                //   4749           NAMES(LEVEL)=-1
#line 4749 "regression-compile-tmp/nrimp10s-77.imp"
NAMES[LEVEL] = (-1);
                                                                //   4750           ONINF(LEVEL)=0; ONWORD(LEVEL)=0
#line 4750 "regression-compile-tmp/nrimp10s-77.imp"
ONINF[LEVEL] = 0;
#line 4750 "regression-compile-tmp/nrimp10s-77.imp"
ONWORD[LEVEL] = 0;
                                                                //   4751           %IF KK>=0 %THEN %START
#line 4751 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) < (0))) goto L_0474;
                                                                //   4752              RLEVEL=RLEVEL+1;  RBASE=RLEVEL
#line 4752 "regression-compile-tmp/nrimp10s-77.imp"
RLEVEL = (((int)(RLEVEL)) + (1));
#line 4752 "regression-compile-tmp/nrimp10s-77.imp"
RBASE = RLEVEL;
                                                                //   4753           %FINISH
#line 4753 "regression-compile-tmp/nrimp10s-77.imp"
L_0474:;
                                                                //   4754           FAULT(34, 0) %IF LEVEL=MAX LEVELS
#line 4754 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (31))) goto L_0475;
#line 4754 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(34, 0);
#line 4754 "regression-compile-tmp/nrimp10s-77.imp"
L_0475:;
                                                                //   4755           FAULT(105, 0) %IF LEVEL>MAX LEVELS
#line 4755 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) <= (31))) goto L_0476;
#line 4755 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(105, 0);
#line 4755 "regression-compile-tmp/nrimp10s-77.imp"
L_0476:;
                                                                //   4756           %IF KK>=0 %AND RLEVEL>1 %START;! ROUTINE ENTRY
#line 4756 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) < (0))) goto L_0477;
#line 4756 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEVEL) <= (1))) goto L_0477;
                                                                //   4757              COPY TAG(KK); JJ=K;         ! LIST OF JUMPS
#line 4757 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(KK);
#line 4757 "regression-compile-tmp/nrimp10s-77.imp"
JJ = K;
                                                                //   4758              J=MIDCELL
#line 4758 "regression-compile-tmp/nrimp10s-77.imp"
J = MIDCELL;
                                                                //   4759              %IF J=0 %AND LEVEL>2 %START;! REPLACE 'NOT USED' BIT
#line 4759 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (0))) goto L_0478;
#line 4759 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) <= (2))) goto L_0478;
                                                                //   4760                 REPLACE1(TAGS(KK), FROM1(TAGS(KK))&16_FFFF3FFF)
#line 4760 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE1(TAGS[KK], ((FROM1(TAGS[KK])) & ((-49153))));
                                                                //   4761              %FINISH
#line 4761 "regression-compile-tmp/nrimp10s-77.imp"
L_0478:;
                                                                //   4762  !
                                                                //   4763  ! NOW FILL ANY JUMPS TO THIS ROUTINE PLANTED SINCE
                                                                //   4764  ! THE ROUTINESPEC WAS COMPILED. SEE ALSO 'RT JUMP'
                                                                //   4765  !
                                                                //   4766              %WHILE J#0 %CYCLE
#line 4766 "regression-compile-tmp/nrimp10s-77.imp"
L_0479:;
#line 4766 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (0))) goto L_047a;
                                                                //   4767                 POP(J, INSRN, AT, W1)
#line 4767 "regression-compile-tmp/nrimp10s-77.imp"
POP(&J, &INSRN, &AT, &W1);
                                                                //   4768                 W3=CA-AT
#line 4768 "regression-compile-tmp/nrimp10s-77.imp"
W3 = (((int)(CA)) - (AT));
                                                                //   4769                 W3=W3//2 %IF INSRN>>25=CALL>>1
#line 4769 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(INSRN)) >> (25)))) != ((int)((((unsigned int)(30)) >> (1)))))) goto L_047c;
#line 4769 "regression-compile-tmp/nrimp10s-77.imp"
W3 = (long)((long)((int)(W3)) / (long)((int)(2)));
#line 4769 "regression-compile-tmp/nrimp10s-77.imp"
L_047c:;
                                                                //   4770                 INSRN=INSRN+W3
#line 4770 "regression-compile-tmp/nrimp10s-77.imp"
INSRN = (((int)(INSRN)) + (W3));
                                                                //   4771                 PLUG(1, AT, INSRN,4)
#line 4771 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(1, AT, INSRN, 4);
                                                                //   4772              %REPEAT
#line 4772 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0479;
#line 4772 "regression-compile-tmp/nrimp10s-77.imp"
L_047a:;
                                                                //   4773              REPLACE2(TAGS(KK), CA);     ! NOTE ADDR FOR FUTURE CALLS
#line 4773 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE2(TAGS[KK], CA);
                                                                //   4774           %FINISH
#line 4774 "regression-compile-tmp/nrimp10s-77.imp"
L_0477:;
                                                                //   4775           %IF KK>=0 %AND RLEVEL=1 %THEN DIAG POINTER(LEVEL) %AND PSF1(STD,1,12)
#line 4775 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) < (0))) goto L_047d;
#line 4775 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEVEL) != (1))) goto L_047d;
#line 4775 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER(LEVEL);
#line 4775 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
#line 4775 "regression-compile-tmp/nrimp10s-77.imp"
L_047d:;
                                                                //   4776           %IF KK<0 %THEN W3=0 %ELSE W3=WORD(KK)
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) >= (0))) goto L_047e;
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
W3 = 0;
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
goto L_047f;
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
L_047e:;
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
W3 = WORD[KK];
#line 4776 "regression-compile-tmp/nrimp10s-77.imp"
L_047f:;
                                                                //   4777           L(LEVEL)=LINE;  M(LEVEL)=W3
#line 4777 "regression-compile-tmp/nrimp10s-77.imp"
L[LEVEL] = LINE;
#line 4777 "regression-compile-tmp/nrimp10s-77.imp"
M[LEVEL] = W3;
                                                                //   4778           FLAG(LEVEL)=PTYPE;             ! CURRENT BLOCK TYPE MARKER
#line 4778 "regression-compile-tmp/nrimp10s-77.imp"
FLAG[LEVEL] = PTYPE;
                                                                //   4779  %END
#line 4779 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RHEAD at level 5
                                                                //   4780  %ROUTINE RDISPLAY(%INTEGER KK)
#line 4780 "regression-compile-tmp/nrimp10s-77.imp"
void RDISPLAY( int KK )
#line 4780 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4781  !***********************************************************************
                                                                //   4782  !*       SET UP OR COPY THE DISPLAY (A WORD ARRAY CONTAINING COPIES OF *
                                                                //   4783  !*       LNB FOR THE GLOBAL LEVELS. THE HIGHEST LEVEL ENTRY IS TO THE  *
                                                                //   4784  !*       GLA(PLT) FOR OWNS AND IS ALSO KEPT IN(LNB+4) IN CASE WE WISH  * 
                                                                //   4785  !*       TO MOVE TO READ-ONLY PLTS. ON INTERNAL CALLS THE LNB FOR THE  *
                                                                //   4786  !*       NEXT MOST GLOBAL LEVEL IS STACKED AS AN EXTRA PARAMETER       *
                                                                //   4787  !***********************************************************************
                                                                //   4788  %INTEGER W1,W2,STACK,OP,INC
#line 4788 "regression-compile-tmp/nrimp10s-77.imp"
int W1;
#line 4788 "regression-compile-tmp/nrimp10s-77.imp"
int W2;
#line 4788 "regression-compile-tmp/nrimp10s-77.imp"
int STACK;
#line 4788 "regression-compile-tmp/nrimp10s-77.imp"
int OP;
#line 4788 "regression-compile-tmp/nrimp10s-77.imp"
int INC;
                                                                //   4789           %IF KK>=0 %OR LEVEL=2 %START;    ! DISPLAY NEEDED
#line 4789 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) >= (0))) goto L_046b;
#line 4789 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_0480;
#line 4789 "regression-compile-tmp/nrimp10s-77.imp"
L_046b:;
                                                                //   4790              STACK=0; DISPLAY(RLEVEL)=N
#line 4790 "regression-compile-tmp/nrimp10s-77.imp"
STACK = 0;
#line 4790 "regression-compile-tmp/nrimp10s-77.imp"
DISPLAY[RLEVEL] = N;
                                                                //   4791              GRUSE(XNB)=0
#line 4791 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[3] = 0;
                                                                //   4792                 GRUSE(CTB)=0; GRUSE(BREG)=0
#line 4792 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[5] = 0;
#line 4792 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   4793              %IF LEVEL#2 %THEN %START
#line 4793 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) == (2))) goto L_0481;
                                                                //   4794  !               PF1(LXN,0,TOS,0)
                                                                //   4795                 GRUSE(XNB)=4; GRINF1(XNB)=RLEVEL-1; GRAT(XNB)=CA
#line 4795 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[3] = 4;
#line 4795 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[3] = (((int)(RLEVEL)) - (1));
#line 4795 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[3] = CA;
                                                                //   4796                 PF1(LD,0,XNB,12);         ! COPY PLT DESCRIPTOR
#line 4796 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 3, 12);
                                                                //   4797                 DIAG POINTER(LEVEL)
#line 4797 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER(LEVEL);
                                                                //   4798                 PSF1(STD,1,12)
#line 4798 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   4799                 W1=RLEVEL-1; W2=DISPLAY(W1)
#line 4799 "regression-compile-tmp/nrimp10s-77.imp"
W1 = (((int)(RLEVEL)) - (1));
#line 4799 "regression-compile-tmp/nrimp10s-77.imp"
W2 = DISPLAY[W1];
                                                                //   4800                 %IF W1=1 %THEN PF1(STXN,0,TOS,0) %AND N=N+4 %ELSE %START
#line 4800 "regression-compile-tmp/nrimp10s-77.imp"
if (((W1) != (1))) goto L_0482;
#line 4800 "regression-compile-tmp/nrimp10s-77.imp"
PF1(76, 0, 6, 0);
#line 4800 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
#line 4800 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0483;
#line 4800 "regression-compile-tmp/nrimp10s-77.imp"
L_0482:;
                                                                //   4801                    %WHILE W1>0 %CYCLE
#line 4801 "regression-compile-tmp/nrimp10s-77.imp"
L_0484:;
#line 4801 "regression-compile-tmp/nrimp10s-77.imp"
if (((W1) <= (0))) goto L_0485;
                                                                //   4802                       OP=LSS; INC=1
#line 4802 "regression-compile-tmp/nrimp10s-77.imp"
OP = 98;
#line 4802 "regression-compile-tmp/nrimp10s-77.imp"
INC = 1;
                                                                //   4803                       %IF W1>=2 %THEN OP=LSD %AND INC=2
#line 4803 "regression-compile-tmp/nrimp10s-77.imp"
if (((W1) < (2))) goto L_0487;
#line 4803 "regression-compile-tmp/nrimp10s-77.imp"
OP = 100;
#line 4803 "regression-compile-tmp/nrimp10s-77.imp"
INC = 2;
#line 4803 "regression-compile-tmp/nrimp10s-77.imp"
L_0487:;
                                                                //   4804                       %IF W1>=4 %THEN OP=LSQ %AND INC=4
#line 4804 "regression-compile-tmp/nrimp10s-77.imp"
if (((W1) < (4))) goto L_0488;
#line 4804 "regression-compile-tmp/nrimp10s-77.imp"
OP = 102;
#line 4804 "regression-compile-tmp/nrimp10s-77.imp"
INC = 4;
#line 4804 "regression-compile-tmp/nrimp10s-77.imp"
L_0488:;
                                                                //   4805                       PF1(OP+STACK,0,XNB,W2)
#line 4805 "regression-compile-tmp/nrimp10s-77.imp"
PF1((((int)(OP)) + (STACK)), 0, 3, W2);
                                                                //   4806                       STACK=-32; N=N+4*INC
#line 4806 "regression-compile-tmp/nrimp10s-77.imp"
STACK = (-32);
#line 4806 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) + ((int)((((int)(4)) * (INC)))));
                                                                //   4807                       W2=W2+4*INC; W1=W1-INC
#line 4807 "regression-compile-tmp/nrimp10s-77.imp"
W2 = ((W2) + ((int)((((int)(4)) * (INC)))));
#line 4807 "regression-compile-tmp/nrimp10s-77.imp"
W1 = (((int)(W1)) - (INC));
                                                                //   4808                    %REPEAT
#line 4808 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0484;
#line 4808 "regression-compile-tmp/nrimp10s-77.imp"
L_0485:;
                                                                //   4809                 %FINISH
#line 4809 "regression-compile-tmp/nrimp10s-77.imp"
L_0483:;
                                                                //   4810              %FINISH
#line 4810 "regression-compile-tmp/nrimp10s-77.imp"
L_0481:;
                                                                //   4811              %IF STACK#0 %THEN PF1(ST,0,TOS,0);    ! ST TOS
#line 4811 "regression-compile-tmp/nrimp10s-77.imp"
if (((STACK) == (0))) goto L_0489;
#line 4811 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 4811 "regression-compile-tmp/nrimp10s-77.imp"
L_0489:;
                                                                //   4812              PF1(STLN,0,TOS,0)
#line 4812 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   4813              N=N+4
#line 4813 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
                                                                //   4814           %FINISH
#line 4814 "regression-compile-tmp/nrimp10s-77.imp"
L_0480:;
                                                                //   4815  !
                                                                //   4816  ! IF IN DIAGNOSTIC MODE PLANT CODE TO SAVE THE LINE & ROUTINE NO OF
                                                                //   4817  ! THE CALLING ROUTINE AND SET UP THE NEW BLOCK/ROUTINE IDENT NO.
                                                                //   4818  !
                                                                //   4819           %IF PARMTRACE#0 %START
#line 4819 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMTRACE) == (0))) goto L_048a;
                                                                //   4820              PF1(LSS,0,PC,4*CONST BTM!16_80000000) %IF PARMOPT#0;! M'IDIA'
#line 4820 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_048b;
#line 4820 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 4, (((((int)(4)) * (CONSTBTM))) | ((-2147483648))));
#line 4820 "regression-compile-tmp/nrimp10s-77.imp"
L_048b:;
                                                                //   4821              %IF KK>=0 %OR LEVEL=2 %START
#line 4821 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) >= (0))) goto L_047b;
#line 4821 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_048c;
#line 4821 "regression-compile-tmp/nrimp10s-77.imp"
L_047b:;
                                                                //   4822                 %IF PARMOPT#0 %THEN %START
#line 4822 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_048d;
                                                                //   4823                    PSF1(SLSS,0,LINE)
#line 4823 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(66, 0, LINE);
                                                                //   4824                    N=N+4
#line 4824 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
                                                                //   4825                 %FINISH %ELSE PSF1(LSS,0,LINE)
#line 4825 "regression-compile-tmp/nrimp10s-77.imp"
goto L_048e;
#line 4825 "regression-compile-tmp/nrimp10s-77.imp"
L_048d:;
#line 4825 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, LINE);
#line 4825 "regression-compile-tmp/nrimp10s-77.imp"
L_048e:;
                                                                //   4826                 PF1(ST,0,TOS,0)
#line 4826 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   4827              %FINISH %ELSE %START
#line 4827 "regression-compile-tmp/nrimp10s-77.imp"
goto L_048f;
#line 4827 "regression-compile-tmp/nrimp10s-77.imp"
L_048c:;
                                                                //   4828                 %IF PARMOPT#0 %THEN %START
#line 4828 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0490;
                                                                //   4829                    PSF1(ST,1,N)
#line 4829 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, N);
                                                                //   4830                    N=N+4
#line 4830 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
                                                                //   4831                 %FINISH
#line 4831 "regression-compile-tmp/nrimp10s-77.imp"
L_0490:;
                                                                //   4832                 PSF1(LSS,0,LINE)
#line 4832 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, LINE);
                                                                //   4833                 PSF1(ST,1,N)
#line 4833 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, N);
                                                                //   4834                 PSF1(LD,1,12);           ! UPDATE BND FIELD
#line 4834 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 12);
                                                                //   4835                 DIAG POINTER(LEVEL)
#line 4835 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER(LEVEL);
                                                                //   4836                 PSF1(STD,1,12)
#line 4836 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   4837              %FINISH
#line 4837 "regression-compile-tmp/nrimp10s-77.imp"
L_048f:;
                                                                //   4838              DIAGINF(LEVEL)=N
#line 4838 "regression-compile-tmp/nrimp10s-77.imp"
DIAGINF[LEVEL] = N;
                                                                //   4839              N=N+4
#line 4839 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
                                                                //   4840              GRUSE(ACCR)=0;               ! NEEDED FOR %BEGIN BLOCKS
#line 4840 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   4841           %FINISH
#line 4841 "regression-compile-tmp/nrimp10s-77.imp"
L_048a:;
                                                                //   4842           %IF PARMOPT#0 %AND KK>=0 %AND LEVEL=2 %START
#line 4842 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0491;
#line 4842 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) < (0))) goto L_0491;
#line 4842 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_0491;
                                                                //   4843              PF1(STSF,0,BREG,0)
#line 4843 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 7, 0);
                                                                //   4844              PF1(STLN,0,TOS,0)
#line 4844 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   4845              PF1(SBB,0,TOS,0)
#line 4845 "regression-compile-tmp/nrimp10s-77.imp"
PF1(34, 0, 6, 0);
                                                                //   4846              PSF1(CPB,0,N)
#line 4846 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(38, 0, N);
                                                                //   4847              PPJ(7,13)
#line 4847 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(7, 13);
                                                                //   4848           %FINISH
#line 4848 "regression-compile-tmp/nrimp10s-77.imp"
L_0491:;
                                                                //   4849  !
                                                                //   4850  ! CLAIM (THE REST OF) THE STACK FRAME
                                                                //   4851  !
                                                                //   4852           %IF KK>=0 %OR LEVEL=2 %START
#line 4852 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) >= (0))) goto L_0492;
#line 4852 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) != (2))) goto L_0493;
#line 4852 "regression-compile-tmp/nrimp10s-77.imp"
L_0492:;
                                                                //   4853              SET(RLEVEL)=N<<18!CA
#line 4853 "regression-compile-tmp/nrimp10s-77.imp"
SET[RLEVEL] = ((((N) << (18))) | (CA));
                                                                //   4854              NMAX=N
#line 4854 "regression-compile-tmp/nrimp10s-77.imp"
NMAX = N;
                                                                //   4855              PF1(ASF+12*PARMCHK,0,0,0);   ! ASF OR LB
#line 4855 "regression-compile-tmp/nrimp10s-77.imp"
PF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, 0, 0);
                                                                //   4856              PPJ(0,4) %IF PARMCHK#0
#line 4856 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_0494;
#line 4856 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 4);
#line 4856 "regression-compile-tmp/nrimp10s-77.imp"
L_0494:;
                                                                //   4857           %FINISH
#line 4857 "regression-compile-tmp/nrimp10s-77.imp"
L_0493:;
                                                                //   4858  !
                                                                //   4859           %IF KK>=0 %AND PARMCHK#0 %START
#line 4859 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) < (0))) goto L_0495;
#line 4859 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_0495;
                                                                //   4860              CHECK STOF;                   ! CHECK FOR STACK O'FLOW
#line 4860 "regression-compile-tmp/nrimp10s-77.imp"
CHECKSTOF();
                                                                //   4861           %FINISH
#line 4861 "regression-compile-tmp/nrimp10s-77.imp"
L_0495:;
                                                                //   4862           %IF PARMDBUG#0 %THEN SET LINE; ! TO CALL DBUG PACKAGE
#line 4862 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMDBUG) == (0))) goto L_0496;
#line 4862 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 4862 "regression-compile-tmp/nrimp10s-77.imp"
L_0496:;
                                                                //   4863  %END
#line 4863 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RDISPLAY at level 5
                                                                //   4864  %ROUTINE CHECK STOF
#line 4864 "regression-compile-tmp/nrimp10s-77.imp"
void CHECKSTOF( void )
#line 4864 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4865  !***********************************************************************
                                                                //   4866  !*       CHECK THE STACK FOR OVERFLOW (LEAVING 4K MARGIN FOR MDIAG     *
                                                                //   4867  !***********************************************************************
                                                                //   4868           %IF PARMOPT#0 %THEN %START
#line 4868 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0497;
                                                                //   4869  !
                                                                //   4870  !         STSF  TOS                    GET STACK POINTER
                                                                //   4871  !         LSS   TOS
                                                                //   4872  !         USH   +14
                                                                //   4873  !         USH   -15                    LOSE SEGMENT NO
                                                                //   4874  !         ICP   16_1F800               CHECK WITHIN SEG ADDRESS
                                                                //   4875  !                                      SHIFTED DOWN 1 PLACE
                                                                //   4876  !         JCC   2,EXCESS BLKS
                                                                //   4877  !
                                                                //   4878              PF1(STSF,0,TOS,0)
#line 4878 "regression-compile-tmp/nrimp10s-77.imp"
PF1(94, 0, 6, 0);
                                                                //   4879              PF1(LSS,0,TOS,0)
#line 4879 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
                                                                //   4880              PSF1(USH,0,14)
#line 4880 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, 14);
                                                                //   4881              PSF1(USH,0,-15)
#line 4881 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-15));
                                                                //   4882              PF1(ICP,0,0,ST LIMIT>>1)
#line 4882 "regression-compile-tmp/nrimp10s-77.imp"
PF1(230, 0, 0, (int)((((unsigned int)(STLIMIT)) >> (1))));
                                                                //   4883              PPJ(2,8)
#line 4883 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(2, 8);
                                                                //   4884            %FINISH
#line 4884 "regression-compile-tmp/nrimp10s-77.imp"
L_0497:;
                                                                //   4885  %END;                                   ! OF ROUTINE RHEAD
#line 4885 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHECKSTOF at level 5
                                                                //   4886  %ROUTINE CIOCP(%INTEGER N,REG)
#line 4886 "regression-compile-tmp/nrimp10s-77.imp"
void CIOCP( int N, int REG )
#line 4886 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4887  !***********************************************************************
                                                                //   4888  !*       COMPILES A CALL ON IOCP ENTRY POINT NO 'N'                    *
                                                                //   4889  !*       2ND PARAMETER IS ALREAD IN THE ACC WHICH IS 32 BITS           *
                                                                //   4890  !***********************************************************************
                                                                //   4891  %INTEGER XYNB,OP1,OP2
#line 4891 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
#line 4891 "regression-compile-tmp/nrimp10s-77.imp"
int OP1;
#line 4891 "regression-compile-tmp/nrimp10s-77.imp"
int OP2;
                                                                //   4892           %IF IOCPDISP=0 %THEN CXREF(IOCPEP,PARMDYNAMIC,2,IOCPDISP)
#line 4892 "regression-compile-tmp/nrimp10s-77.imp"
if (((IOCPDISP) != (0))) goto L_0498;
#line 4892 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(IOCPEP, PARMDYNAMIC, 2, &IOCPDISP);
#line 4892 "regression-compile-tmp/nrimp10s-77.imp"
L_0498:;
                                                                //   4893           %IF REGISTER(BREG)#0 %THEN BOOT OUT(BREG)
#line 4893 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) == (0))) goto L_0499;
#line 4893 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 4893 "regression-compile-tmp/nrimp10s-77.imp"
L_0499:;
                                                                //   4894           %IF REG=ACCR %THEN OP1=LUH %AND OP2=ST %ELSE OP1=LDTB %AND OP2=STD
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_049a;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 106;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
OP2 = 72;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
goto L_049b;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
L_049a:;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 116;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
OP2 = 88;
#line 4894 "regression-compile-tmp/nrimp10s-77.imp"
L_049b:;
                                                                //   4895           PSF1(OP1,0,N)
#line 4895 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OP1, 0, N);
                                                                //   4896           PSF1(PRCL,0,4)
#line 4896 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   4897           PF1(OP2,0,TOS,0)
#line 4897 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OP2, 0, 6, 0);
                                                                //   4898           XYNB=SET XORYNB(-1,-1);        ! TO PLT
#line 4898 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = SETXORYNB((-1), (-1));
                                                                //   4899           PSF1(RALN,0,7)
#line 4899 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 7);
                                                                //   4900           PF1(CALL,2,XYNB,IOCPDISP)
#line 4900 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, XYNB, IOCPDISP);
                                                                //   4901           FORGET(-1)
#line 4901 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   4902  %END
#line 4902 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CIOCP at level 5
                                                                //   4903  %ROUTINE CUI(%INTEGER CODE)
#line 4903 "regression-compile-tmp/nrimp10s-77.imp"
void CUI( int CODE )
#line 4903 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   4904  !***********************************************************************
                                                                //   4905  !*       COMPILE AN UNCONDITIONAL INSTRN WHEREEVER IT OCCURS           *
                                                                //   4906  !*       CODE=0 UNCONDITIOALLY,=1 AFTER %THEN, =2 AFTER %ELSE          *
                                                                //   4907  !***********************************************************************
                                                                //   4908  %INTEGER MARKER,J,LNAME,TYPEP,PRECP,GWRDD,LWB,XYNB,ARRP,ALT
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int MARKER;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int LNAME;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int GWRDD;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int LWB;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int ARRP;
#line 4908 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
                                                                //   4909  %SWITCH SW(1:9)
#line 4909 "regression-compile-tmp/nrimp10s-77.imp"
static int sw11_SW_idx;
static const void * /*SWITCH*/ sw11_SW[9] = { &&sw11_SW_1, &&sw11_SW_2, &&sw11_SW_3, &&sw11_SW_4, &&sw11_SW_5, &&sw11_SW_6, &&sw11_SW_7, &&sw11_SW_8, &&sw11_SW_9,  };
                                                                //   4910           REPORTUI=0
#line 4910 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 0;
                                                                //   4911           ALT=A(P)
#line 4911 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
                                                                //   4912           ->SW(ALT)
#line 4912 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_idx = ALT; if ((1 <= sw11_SW_idx) && (sw11_SW_idx <= 9)) goto *(sw11_SW-1)[sw11_SW_idx];  /* Bounds=1:9 */ else {
   /*_imp_signal(8, 2, sw11_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:9 at %s:%d\n",
           sw11_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   4913  SW(1):                                ! (NAME)(APP)(ASSMNT?)
#line 4913 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_1:;
                                                                //   4914           P=P+1; MARKER=P+FROMAR2(P)
#line 4914 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4914 "regression-compile-tmp/nrimp10s-77.imp"
MARKER = (((int)(P)) + (FROMAR2(P)));
                                                                //   4915           %IF A(MARKER)=1 %THEN %START
#line 4915 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKER]) != (1))) goto L_049c;
                                                                //   4916              J=P+2; P=MARKER+2
#line 4916 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(P)) + (2));
#line 4916 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(MARKER)) + (2));
                                                                //   4917              ASSIGN(A(MARKER+1),J)
#line 4917 "regression-compile-tmp/nrimp10s-77.imp"
ASSIGN(A[(((int)(MARKER)) + (1))], J);
                                                                //   4918           %FINISH %ELSE %START
#line 4918 "regression-compile-tmp/nrimp10s-77.imp"
goto L_049d;
#line 4918 "regression-compile-tmp/nrimp10s-77.imp"
L_049c:;
                                                                //   4919              P=P+2
#line 4919 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4920              CNAME(0,0)
#line 4920 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(0, 0);
                                                                //   4921              P=P+1
#line 4921 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4922           %FINISH
#line 4922 "regression-compile-tmp/nrimp10s-77.imp"
L_049d:;
                                                                //   4923  AUI:     J=A(P); P=P+1
#line 4923 "regression-compile-tmp/nrimp10s-77.imp"
U_102b:;
#line 4923 "regression-compile-tmp/nrimp10s-77.imp"
J = A[P];
#line 4923 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4924           %IF J=1 %THEN CUI(CODE)
#line 4924 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (1))) goto L_049e;
#line 4924 "regression-compile-tmp/nrimp10s-77.imp"
CUI(CODE);
#line 4924 "regression-compile-tmp/nrimp10s-77.imp"
L_049e:;
                                                                //   4925           %RETURN
#line 4925 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4926  SW(2):                                  ! -> (NAME)(APP)
#line 4926 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_2:;
                                                                //   4927           NMDECS(LEVEL)=NMDECS(LEVEL)!1
#line 4927 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (1));
                                                                //   4928           CURR INST=1 %IF CODE=0
#line 4928 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_049f;
#line 4928 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 1;
#line 4928 "regression-compile-tmp/nrimp10s-77.imp"
L_049f:;
                                                                //   4929           LNAME=FROM AR2(P+1)
#line 4929 "regression-compile-tmp/nrimp10s-77.imp"
LNAME = FROMAR2((((int)(P)) + (1)));
                                                                //   4930           J=A(P+3); P=P+4
#line 4930 "regression-compile-tmp/nrimp10s-77.imp"
J = A[(((int)(P)) + (3))];
#line 4930 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
                                                                //   4931           %IF J=2 %THEN %START;           ! SIMPLE LABEL
#line 4931 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (2))) goto L_04a0;
                                                                //   4932              ENTER JUMP(15,LNAME,0)
#line 4932 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, LNAME, 0);
                                                                //   4933              REPORTUI=1
#line 4933 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
                                                                //   4934           %FINISH %ELSE %START;          ! SWITCH LABELS
#line 4934 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04a1;
#line 4934 "regression-compile-tmp/nrimp10s-77.imp"
L_04a0:;
                                                                //   4935              COPY TAG(LNAME)
#line 4935 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(LNAME);
                                                                //   4936              ARRP=ARR
#line 4936 "regression-compile-tmp/nrimp10s-77.imp"
ARRP = ARR;
                                                                //   4937              GWRDD=SNDISP<<2;            ! BYTE DISP OF DESCRIPTOR IN PLT
#line 4937 "regression-compile-tmp/nrimp10s-77.imp"
GWRDD = ((SNDISP) << (2));
                                                                //   4938              %UNLESS OLDI=LEVEL %AND TYPE=6 %START
#line 4938 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) != (LEVEL))) goto L_04a2;
#line 4938 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (6))) goto L_04a3;
#line 4938 "regression-compile-tmp/nrimp10s-77.imp"
L_04a2:;
                                                                //   4939                 FAULT(4,LNAME); P=P-1; SKIP APP
#line 4939 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(4, LNAME);
#line 4939 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (1));
#line 4939 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   4940                 %RETURN
#line 4940 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4941              %FINISH
#line 4941 "regression-compile-tmp/nrimp10s-77.imp"
L_04a3:;
                                                                //   4942              LWB=FROM2(K);                ! GET LOWER BOUND
#line 4942 "regression-compile-tmp/nrimp10s-77.imp"
LWB = FROM2(K);
                                                                //   4943              CSEXP(BREG,16_51)
#line 4943 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(7, 81);
                                                                //   4944              %IF ARRP=1 %THEN PSF1(SBB,0,LWB)
#line 4944 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARRP) != (1))) goto L_04a4;
#line 4944 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 0, LWB);
#line 4944 "regression-compile-tmp/nrimp10s-77.imp"
L_04a4:;
                                                                //   4945              XYNB=SET XORYNB(-1,-1);     ! TO PLT
#line 4945 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = SETXORYNB((-1), (-1));
                                                                //   4946              PF1(JUNC,3,XYNB,GWRDD);     ! JUMP INDIRECT VIA WORD ARRAY
#line 4946 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 3, XYNB, GWRDD);
                                                                //   4947                                          ! OF 32 BIT RELOCATED ADDRESSES
                                                                //   4948              REPORTUI=1; FORGET(-1)
#line 4948 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
#line 4948 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   4949           %FINISH
#line 4949 "regression-compile-tmp/nrimp10s-77.imp"
L_04a1:;
                                                                //   4950           %RETURN
#line 4950 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4951  SW(3):                                  ! RETURN
#line 4951 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_3:;
                                                                //   4952           FAULT(30,0) %UNLESS FLAG(LEVEL)&16_3FFF=16_1000
#line 4952 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG[LEVEL]) & (16383))) == (4096))) goto L_04a5;
#line 4952 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(30, 0);
#line 4952 "regression-compile-tmp/nrimp10s-77.imp"
L_04a5:;
                                                                //   4953           P=P+1
#line 4953 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4954  RET:     RT EXIT
#line 4954 "regression-compile-tmp/nrimp10s-77.imp"
U_1030:;
#line 4954 "regression-compile-tmp/nrimp10s-77.imp"
RTEXIT();
                                                                //   4955           REPORT UI=1
#line 4955 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
                                                                //   4956           CURR INST=1 %IF CODE=0
#line 4956 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_04a6;
#line 4956 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 1;
#line 4956 "regression-compile-tmp/nrimp10s-77.imp"
L_04a6:;
                                                                //   4957           %RETURN
#line 4957 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4958  SW(4):                                 ! %RESULT(ASSOP)(EXPR)
#line 4958 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_4:;
                                                                //   4959           PTYPE=FLAG(LEVEL)&16_3FFF; UNPACK
#line 4959 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((FLAG[LEVEL]) & (16383));
#line 4959 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   4960           %IF PTYPE>16_1000 %AND A(P+1)#3 %THEN %START;! ASSOP #'->'
#line 4960 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) <= (4096))) goto L_04a7;
#line 4960 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (3))) goto L_04a7;
                                                                //   4961              %IF A(P+1)=1 %AND NAM#0 %AND A(P+5)=4 %AND A(P+6)=1 %START
#line 4961 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) != (1))) goto L_04a8;
#line 4961 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_04a8;
#line 4961 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) != (4))) goto L_04a8;
#line 4961 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (6))]) != (1))) goto L_04a8;
                                                                //   4962                 P=P+7; TYPEP=TYPE; PRECP=PREC
#line 4962 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (7));
#line 4962 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 4962 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
                                                                //   4963                 CNAME(4,ACCR)
#line 4963 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, 0);
                                                                //   4964                 FAULT(81,0) %UNLESS A(P)=2; P=P+1
#line 4964 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_04a9;
#line 4964 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(81, 0);
#line 4964 "regression-compile-tmp/nrimp10s-77.imp"
L_04a9:;
#line 4964 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4965                 FAULT(83,0) %UNLESS TYPEP=TYPE %AND PRECP=PREC
#line 4965 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (TYPE))) goto L_04aa;
#line 4965 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) == (PREC))) goto L_04ab;
#line 4965 "regression-compile-tmp/nrimp10s-77.imp"
L_04aa:;
#line 4965 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(83, 0);
#line 4965 "regression-compile-tmp/nrimp10s-77.imp"
L_04ab:;
                                                                //   4966                 ->RET
#line 4966 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1030;
                                                                //   4967              %FINISH
#line 4967 "regression-compile-tmp/nrimp10s-77.imp"
L_04a8:;
                                                                //   4968              %IF A(P+1)=2 %THEN %START;    ! ASSOP='='
#line 4968 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) != (2))) goto L_04ac;
                                                                //   4969                 P=P+2
#line 4969 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   4970                 %IF NAM#0 %THEN TYPE=1;    ! MAPS HAVE INTEGER RESULTS
#line 4970 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (0))) goto L_04ad;
#line 4970 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
#line 4970 "regression-compile-tmp/nrimp10s-77.imp"
L_04ad:;
                                                                //   4971                 %IF TYPE=5 %THEN %START
#line 4971 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_04ae;
                                                                //   4972                    CSTREXP(0,ACCR)
#line 4972 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(0, 0);
                                                                //   4973                    PSF1(LD,1,DISPLAY(RBASE)-8); ! RESULT DESCRPT
#line 4973 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, (((int)(DISPLAY[RBASE])) - (8)));
                                                                //   4974                    PF1(IAD,0,PC,SPECIAL CONSTS(2))
#line 4974 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, 4, SPECIALCONSTS(2));
                                                                //   4975                    PF2(MV,1,1,0,0,UNASSPAT&255)
#line 4975 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   4976                    PSF1(LDB,2,DISPLAY(RBASE)-8)
#line 4976 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 2, (((int)(DISPLAY[RBASE])) - (8)));
                                                                //   4977                    COPY DR
#line 4977 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
                                                                //   4978                 %FINISH %ELSE %START
#line 4978 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04af;
#line 4978 "regression-compile-tmp/nrimp10s-77.imp"
L_04ae:;
                                                                //   4979                    %IF PREC<5 %THEN PREC=5
#line 4979 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) >= (5))) goto L_04b0;
#line 4979 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 5;
#line 4979 "regression-compile-tmp/nrimp10s-77.imp"
L_04b0:;
                                                                //   4980                    %IF NAM=0 %THEN KK=PREC<<4!TYPE %ELSE KK=16_51
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_04b1;
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
KK = ((((PREC) << (4))) | (TYPE));
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04b2;
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
L_04b1:;
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
KK = 81;
#line 4980 "regression-compile-tmp/nrimp10s-77.imp"
L_04b2:;
                                                                //   4981                    CSEXP(ACCR,KK)
#line 4981 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, KK);
                                                                //   4982                 %FINISH; ->RET
#line 4982 "regression-compile-tmp/nrimp10s-77.imp"
L_04af:;
#line 4982 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1030;
                                                                //   4983              %FINISH
#line 4983 "regression-compile-tmp/nrimp10s-77.imp"
L_04ac:;
                                                                //   4984           %FINISH
#line 4984 "regression-compile-tmp/nrimp10s-77.imp"
L_04a7:;
                                                                //   4985           FAULT(31,0)
#line 4985 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(31, 0);
                                                                //   4986           P=P+2; SKIP EXP;                 ! IGNORE SPURIOUS RESULT
#line 4986 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 4986 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   4987           %RETURN
#line 4987 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4988  SW(5):                                  ! %MONITOR (AUI)
#line 4988 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_5:;
                                                                //   4989           PSF1(LSD,0,0);                 ! ERR=0 & EXTRA =0
#line 4989 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(100, 0, 0);
                                                                //   4990           PPJ(0,2);                      ! TO ERROR ROUTINE
#line 4990 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 2);
                                                                //   4991           P=P+1; ->AUI
#line 4991 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 4991 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102b;
                                                                //   4992  SW(6):                                 ! %STOP
#line 4992 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_6:;
                                                                //   4993           PPJ(0,21)
#line 4993 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 21);
                                                                //   4994           P=P+1
#line 4994 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   4995           CURR INST=1 %IF CODE=0
#line 4995 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_04b3;
#line 4995 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 1;
#line 4995 "regression-compile-tmp/nrimp10s-77.imp"
L_04b3:;
                                                                //   4996           REPORTUI=1
#line 4996 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
                                                                //   4997           %RETURN
#line 4997 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4998  SW(7):                                  !'%SIGNAL'(EVENT')(N)(OPEXPR)
#line 4998 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_7:;
                                                                //   4999           PSF1(PRCL,0,4)
#line 4999 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   5000           PSF1(JLK,0,1);                 ! STACK DUMMY PC
#line 5000 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(28, 0, 1);
                                                                //   5001           %IF NMDECS(LEVEL)&16 #0 %START;! IN AN 'ON' GROUP
#line 5001 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NMDECS[LEVEL]) & (16))) == (0))) goto L_04b4;
                                                                //   5002              %IF FLAG(LEVEL)<=2 %START;  ! IN A BEGIN BLOCK
#line 5002 "regression-compile-tmp/nrimp10s-77.imp"
if (((FLAG[LEVEL]) > (2))) goto L_04b5;
                                                                //   5003                 PSF1(LD,1,12);           ! SO RESET DIAG POINTER
#line 5003 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 12);
                                                                //   5004                 DIAGPOINTER(LEVEL-1);    ! TO NEXT OUTER BLOCK
#line 5004 "regression-compile-tmp/nrimp10s-77.imp"
DIAGPOINTER((((int)(LEVEL)) - (1)));
                                                                //   5005                 PSF1(STD,1,12)
#line 5005 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   5006                 PF1(STLN,0,TOS,0)
#line 5006 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   5007              %FINISH %ELSE %START;       ! 'ON IN A RT/FN/MAP
#line 5007 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04b6;
#line 5007 "regression-compile-tmp/nrimp10s-77.imp"
L_04b5:;
                                                                //   5008                 PSF1(LSS,1,0);           ! GET PREVIOUS LNB
#line 5008 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, 0);
                                                                //   5009                 PF1(ST,0,TOS,0);         ! AND STACK THAT
#line 5009 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   5010              %FINISH
#line 5010 "regression-compile-tmp/nrimp10s-77.imp"
L_04b6:;
                                                                //   5011           %FINISH %ELSE PF1(STLN,0,TOS,0)
#line 5011 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04b7;
#line 5011 "regression-compile-tmp/nrimp10s-77.imp"
L_04b4:;
#line 5011 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
#line 5011 "regression-compile-tmp/nrimp10s-77.imp"
L_04b7:;
                                                                //   5012           GRUSE(ACCR)=0
#line 5012 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5013           J=A(P+2);                      ! EVENT NO
#line 5013 "regression-compile-tmp/nrimp10s-77.imp"
J = A[(((int)(P)) + (2))];
                                                                //   5014           FAULT2(26,J,0) %UNLESS 1<=J<=15
#line 5014 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (J))) || (((J) <= (15)))) goto L_04b9;
#line 5014 "regression-compile-tmp/nrimp10s-77.imp"
L_04b8:;
#line 5014 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(26, J, 0);
#line 5014 "regression-compile-tmp/nrimp10s-77.imp"
L_04b9:;
                                                                //   5015           %IF A(P+3)=1 %START;           ! SUBEVENT SPECIFIED
#line 5015 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (1))) goto L_04ba;
                                                                //   5016              P=P+4; CSEXP(ACCR,16_51)
#line 5016 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (4));
#line 5016 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   5017              PF1(AND,0,0,255)
#line 5017 "regression-compile-tmp/nrimp10s-77.imp"
PF1(138, 0, 0, 255);
                                                                //   5018              PF1(OR,0,0,256*J)
#line 5018 "regression-compile-tmp/nrimp10s-77.imp"
PF1(140, 0, 0, (((int)(256)) * (J)));
                                                                //   5019           %FINISH %ELSE PF1(LSS,0,0,256*J)
#line 5019 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04bb;
#line 5019 "regression-compile-tmp/nrimp10s-77.imp"
L_04ba:;
#line 5019 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 0, (((int)(256)) * (J)));
#line 5019 "regression-compile-tmp/nrimp10s-77.imp"
L_04bb:;
                                                                //   5020           PSF1(SLSS,0,0)
#line 5020 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(66, 0, 0);
                                                                //   5021           PF1(ST,0,TOS,0)
#line 5021 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   5022           XYNB=SET XORYNB(-1,-1);        ! TO PLT
#line 5022 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = SETXORYNB((-1), (-1));
                                                                //   5023           PSF1(RALN,0,9)
#line 5023 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 9);
                                                                //   5024           PF1(CALL,2,XYNB,40)
#line 5024 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, XYNB, 40);
                                                                //   5025           CURR INST=1 %IF CODE=0
#line 5025 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_04bc;
#line 5025 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 1;
#line 5025 "regression-compile-tmp/nrimp10s-77.imp"
L_04bc:;
                                                                //   5026           REPORTUI=1; %RETURN
#line 5026 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
#line 5026 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5027  SW(8):                                  ! %EXIT
#line 5027 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_8:;
                                                                //   5028  SW(9):                                  ! %CONTINUE
#line 5028 "regression-compile-tmp/nrimp10s-77.imp"
sw11_SW_9:;
                                                                //   5029           ALT=ALT&7;                     ! 0 FOR EXIT 1 FOR CONTINUE
#line 5029 "regression-compile-tmp/nrimp10s-77.imp"
ALT = ((ALT) & (7));
                                                                //   5030           %IF EXITLAB=0 %THEN FAULT2(54+ALT,0,0) %AND %RETURN
#line 5030 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXITLAB) != (0))) goto L_04bd;
#line 5030 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2((((int)(54)) + (ALT)), 0, 0);
#line 5030 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 5030 "regression-compile-tmp/nrimp10s-77.imp"
L_04bd:;
                                                                //   5031           KK=INTEGER(ADDR(EXITLAB)+4*ALT)
#line 5031 "regression-compile-tmp/nrimp10s-77.imp"
KK = *_imp_INTEGER(((_imp_ADDR(&EXITLAB)) + ((int)((((int)(4)) * (ALT))))));
                                                                //   5032           ENTER JUMP(15,KK,B'10')
#line 5032 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, KK, 2);
                                                                //   5033           REPORTUI=1
#line 5033 "regression-compile-tmp/nrimp10s-77.imp"
REPORTUI = 1;
                                                                //   5034           CURR INST=1 %IF CODE=0
#line 5034 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_04be;
#line 5034 "regression-compile-tmp/nrimp10s-77.imp"
CURRINST = 1;
#line 5034 "regression-compile-tmp/nrimp10s-77.imp"
L_04be:;
                                                                //   5035  %END
#line 5035 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CUI at level 5
                                                                //   5036  %ROUTINE CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP)
#line 5036 "regression-compile-tmp/nrimp10s-77.imp"
void CIFTHEN( int MARKIU, int MARKC, int MARKUI, int MARKE, int MARKR, int SKIP )
#line 5036 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5037  !***********************************************************************
                                                                //   5038  !*    THIS ROUTINE COMPILES CONDITIONAL EXPRESSIONS.IT REQUIRES THE    *
                                                                //   5039  !*    FOLLOWING PARAMETERS TO BE SET TO THEIR A .R. ENTRY.             *
                                                                //   5040  !*    MARKIU TO THE ENTRY FOR P(%IU)                                   *
                                                                //   5041  !*    MARKC  TO THE ENTRY FOR P(COND)                                  *
                                                                //   5042  !*    MARKUI TO THE ENTRY FOR (FIRST OCCURRENCE OF)  P(UI)             *
                                                                //   5043  !*    MARKE  TO THE ENTRY FOR P(ELSE')  - =0 FOR BACKWARDS CONDITION   *
                                                                //   5044  !*    MARKR  TO ENTRY FOR P(RESTOFIU)   - =0 FOR BACKWARDS CONDITION   *
                                                                //   5045  !***********************************************************************
                                                                //   5046  %INTEGER ALTUI,CCRES,ELRES,THENLAB,ELSELAB,USERLAB,REPORT,START,ELSEALT,K
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int ALTUI;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int CCRES;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int ELRES;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int THENLAB;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int ELSELAB;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int USERLAB;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int REPORT;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int START;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int ELSEALT;
#line 5046 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //   5047  %CONSTINTEGER NULL ELSE=4
                                                                //   5048  %SWITCH ESW(1:NULL ELSE)
#line 5048 "regression-compile-tmp/nrimp10s-77.imp"
static int sw12_ESW_idx;
static const void * /*SWITCH*/ sw12_ESW[4] = { &&sw12_ESW_1, &&sw12_ESW_2, &&sw12_ESW_3, &&sw12_ESW_4,  };
                                                                //   5049        SET LINE %UNLESS SKIP=YES
#line 5049 "regression-compile-tmp/nrimp10s-77.imp"
if (((SKIP) == (1))) goto L_04bf;
#line 5049 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 5049 "regression-compile-tmp/nrimp10s-77.imp"
L_04bf:;
                                                                //   5050        MARKIU=A(MARKIU);                 ! ALT OF IU 1=%IF,2=%UNLESS
#line 5050 "regression-compile-tmp/nrimp10s-77.imp"
MARKIU = A[MARKIU];
                                                                //   5051        PLABEL=PLABEL-1
#line 5051 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
                                                                //   5052        THENLAB=PLABEL
#line 5052 "regression-compile-tmp/nrimp10s-77.imp"
THENLAB = PLABEL;
                                                                //   5053        START=0;                          ! NO START IN CONDITION YET
#line 5053 "regression-compile-tmp/nrimp10s-77.imp"
START = 0;
                                                                //   5054        ELSELAB=0;                        ! MEANS NO ELSE CLAUSE
#line 5054 "regression-compile-tmp/nrimp10s-77.imp"
ELSELAB = 0;
                                                                //   5055        P=MARKC
#line 5055 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKC;
                                                                //   5056        %IF MARKR>0 %AND A(MARKR)<=2 %THEN START=1;! '%START' OR '%THENSTART'
#line 5056 "regression-compile-tmp/nrimp10s-77.imp"
if (((MARKR) <= (0))) goto L_04c0;
#line 5056 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKR]) > (2))) goto L_04c0;
#line 5056 "regression-compile-tmp/nrimp10s-77.imp"
START = 1;
#line 5056 "regression-compile-tmp/nrimp10s-77.imp"
L_04c0:;
                                                                //   5057        %IF MARKE#0 %AND LEVEL<2 %AND START=0 %THEN FAULT(57,0)
#line 5057 "regression-compile-tmp/nrimp10s-77.imp"
if (((MARKE) == (0))) goto L_04c1;
#line 5057 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_04c1;
#line 5057 "regression-compile-tmp/nrimp10s-77.imp"
if (((START) != (0))) goto L_04c1;
#line 5057 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 5057 "regression-compile-tmp/nrimp10s-77.imp"
L_04c1:;
                                                                //   5058        USERLAB=-1
#line 5058 "regression-compile-tmp/nrimp10s-77.imp"
USERLAB = (-1);
                                                                //   5059        %IF START#0 %THEN ALTUI=0 %ELSE ALTUI=A(MARKUI)
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
if (((START) == (0))) goto L_04c2;
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
ALTUI = 0;
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04c3;
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
L_04c2:;
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
ALTUI = A[MARKUI];
#line 5059 "regression-compile-tmp/nrimp10s-77.imp"
L_04c3:;
                                                                //   5060        %IF ALTUI=2 %AND A(MARKUI+3)=2 %THEN USERLAB=FROM AR2(MARKUI+1);    ! UI = SIMPLE LABEL
#line 5060 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALTUI) != (2))) goto L_04c4;
#line 5060 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(MARKUI)) + (3))]) != (2))) goto L_04c4;
#line 5060 "regression-compile-tmp/nrimp10s-77.imp"
USERLAB = FROMAR2((((int)(MARKUI)) + (1)));
#line 5060 "regression-compile-tmp/nrimp10s-77.imp"
L_04c4:;
                                                                //   5061        %IF 8<=ALTUI<=9 %AND EXITLAB#0 %START; ! VALID EXIT
#line 5061 "regression-compile-tmp/nrimp10s-77.imp"
if ((((8) > (ALTUI))) || (((ALTUI) > (9)))) goto L_04c5;
#line 5061 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXITLAB) == (0))) goto L_04c5;
                                                                //   5062           %IF ALTUI=8 %THEN USERLAB=EXITLAB %ELSE USERLAB=CONTLAB
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALTUI) != (8))) goto L_04c6;
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
USERLAB = EXITLAB;
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04c7;
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
L_04c6:;
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
USERLAB = CONTLAB;
#line 5062 "regression-compile-tmp/nrimp10s-77.imp"
L_04c7:;
                                                                //   5063        %FINISH
#line 5063 "regression-compile-tmp/nrimp10s-77.imp"
L_04c5:;
                                                                //   5064  !
                                                                //   5065        %IF SKIP=YES %THEN %START;        ! NO CODE NEEDED
#line 5065 "regression-compile-tmp/nrimp10s-77.imp"
if (((SKIP) != (1))) goto L_04c8;
                                                                //   5066           %IF START#0 %START
#line 5066 "regression-compile-tmp/nrimp10s-77.imp"
if (((START) == (0))) goto L_04c9;
                                                                //   5067              P=MARKR+1
#line 5067 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(MARKR)) + (1));
                                                                //   5068              CSTART(2,1);                ! NO CODE
#line 5068 "regression-compile-tmp/nrimp10s-77.imp"
CSTART(2, 1);
                                                                //   5069              MARKE=P
#line 5069 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = P;
                                                                //   5070           %FINISH
#line 5070 "regression-compile-tmp/nrimp10s-77.imp"
L_04c9:;
                                                                //   5071           CCRES=1;                       ! NO CODE FOR ELSE
#line 5071 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = 1;
                                                                //   5072           ->ELSE
#line 5072 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1031;
                                                                //   5073        %FINISH
#line 5073 "regression-compile-tmp/nrimp10s-77.imp"
L_04c8:;
                                                                //   5074  !
                                                                //   5075        %IF USERLAB>=0 %THEN %START;      ! FIRST UI IS'->'<LABEL>
#line 5075 "regression-compile-tmp/nrimp10s-77.imp"
if (((USERLAB) < (0))) goto L_04ca;
                                                                //   5076           NMDECS(LEVEL)=NMDECS(LEVEL)!1
#line 5076 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (1));
                                                                //   5077           CCRES=CCOND(0,3-MARKIU,USERLAB)
#line 5077 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, (((int)(3)) - (MARKIU)), USERLAB);
                                                                //   5078           %IF CCRES#0 %THEN CCRES=CCRES!!3;! CONDITION BACKWARDS!
#line 5078 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) == (0))) goto L_04cb;
#line 5078 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = ((CCRES) ^ (3));
#line 5078 "regression-compile-tmp/nrimp10s-77.imp"
L_04cb:;
                                                                //   5079           THENLAB=0;                     ! NO THENLAB IN THIS CASE
#line 5079 "regression-compile-tmp/nrimp10s-77.imp"
THENLAB = 0;
                                                                //   5080           REPORT=1;                      ! UI TRANSFERED CONTROL
#line 5080 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = 1;
                                                                //   5081        %FINISH %ELSE %START
#line 5081 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04cc;
#line 5081 "regression-compile-tmp/nrimp10s-77.imp"
L_04ca:;
                                                                //   5082           CCRES=CCOND(1,MARKIU,THENLAB)
#line 5082 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(1, MARKIU, THENLAB);
                                                                //   5083           %IF START#0 %THEN %START;      ! %THEN %START
#line 5083 "regression-compile-tmp/nrimp10s-77.imp"
if (((START) == (0))) goto L_04cd;
                                                                //   5084              %IF CCRES=0 %START;         ! CONDITIONAL
#line 5084 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) != (0))) goto L_04ce;
                                                                //   5085                 FAULT(57,0) %IF LEVEL<2
#line 5085 "regression-compile-tmp/nrimp10s-77.imp"
if (((LEVEL) >= (2))) goto L_04cf;
#line 5085 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(57, 0);
#line 5085 "regression-compile-tmp/nrimp10s-77.imp"
L_04cf:;
                                                                //   5086                 NMDECS(LEVEL)=NMDECS(LEVEL)!1
#line 5086 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (1));
                                                                //   5087              %FINISH
#line 5087 "regression-compile-tmp/nrimp10s-77.imp"
L_04ce:;
                                                                //   5088              P=MARKR+1
#line 5088 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(MARKR)) + (1));
                                                                //   5089              CSTART(CCRES,1)
#line 5089 "regression-compile-tmp/nrimp10s-77.imp"
CSTART(CCRES, 1);
                                                                //   5090              %IF A(P)<=2 %THEN PLABEL=PLABEL-1 %AND ELSELAB=PLABEL
#line 5090 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) > (2))) goto L_04d0;
#line 5090 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 5090 "regression-compile-tmp/nrimp10s-77.imp"
ELSELAB = PLABEL;
#line 5090 "regression-compile-tmp/nrimp10s-77.imp"
L_04d0:;
                                                                //   5091              MARKE=P
#line 5091 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = P;
                                                                //   5092              REPORT=LAST INST
#line 5092 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = LASTINST;
                                                                //   5093           %FINISH %ELSE %START
#line 5093 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04d1;
#line 5093 "regression-compile-tmp/nrimp10s-77.imp"
L_04cd:;
                                                                //   5094              %IF CCRES#2 %START
#line 5094 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) == (2))) goto L_04d2;
                                                                //   5095                 P=MARKUI; CUI(1)
#line 5095 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKUI;
#line 5095 "regression-compile-tmp/nrimp10s-77.imp"
CUI(1);
                                                                //   5096                 REPORT=REPORTUI
#line 5096 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = REPORTUI;
                                                                //   5097              %FINISH %ELSE %START;       ! FIRST UI NEVER EXECUTED
#line 5097 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04d3;
#line 5097 "regression-compile-tmp/nrimp10s-77.imp"
L_04d2:;
                                                                //   5098                 REPORT=1
#line 5098 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = 1;
                                                                //   5099              %FINISH
#line 5099 "regression-compile-tmp/nrimp10s-77.imp"
L_04d3:;
                                                                //   5100           %FINISH
#line 5100 "regression-compile-tmp/nrimp10s-77.imp"
L_04d1:;
                                                                //   5101        %FINISH
#line 5101 "regression-compile-tmp/nrimp10s-77.imp"
L_04cc:;
                                                                //   5102  ELSE:                                   ! ELSE PART
#line 5102 "regression-compile-tmp/nrimp10s-77.imp"
U_1031:;
                                                                //   5103        %IF MARKE=0 %THEN ELSEALT=NULL ELSE %ELSE ELSEALT=A(MARKE)
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
if (((MARKE) != (0))) goto L_04d4;
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
ELSEALT = 4;
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04d5;
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
L_04d4:;
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
ELSEALT = A[MARKE];
#line 5103 "regression-compile-tmp/nrimp10s-77.imp"
L_04d5:;
                                                                //   5104        %IF ELSEALT<NULL ELSE %THEN PLABEL=PLABEL-1 %AND ELSELAB=PLABEL
#line 5104 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSEALT) >= (4))) goto L_04d6;
#line 5104 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 5104 "regression-compile-tmp/nrimp10s-77.imp"
ELSELAB = PLABEL;
#line 5104 "regression-compile-tmp/nrimp10s-77.imp"
L_04d6:;
                                                                //   5105        P=MARKE+1
#line 5105 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(MARKE)) + (1));
                                                                //   5106        %IF REPORT=0=CCRES %AND ELSEALT<NULL ELSE %THEN REPORT=1 %AND ENTER JUMP(15,ELSELAB,B'10');! LONG JUMP BUT SAVE ENV
#line 5106 "regression-compile-tmp/nrimp10s-77.imp"
if ((((REPORT) != (0))) || (((0) != (CCRES)))) goto L_04d7;
#line 5106 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSEALT) >= (4))) goto L_04d7;
#line 5106 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = 1;
#line 5106 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, ELSELAB, 2);
#line 5106 "regression-compile-tmp/nrimp10s-77.imp"
L_04d7:;
                                                                //   5107        %IF THENLAB>0 %THEN ELRES=ENTER LAB(THENLAB,B'11'!REPORT<<2)
#line 5107 "regression-compile-tmp/nrimp10s-77.imp"
if (((THENLAB) <= (0))) goto L_04d8;
#line 5107 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(THENLAB, ((3) | (((REPORT) << (2)))));
#line 5107 "regression-compile-tmp/nrimp10s-77.imp"
L_04d8:;
                                                                //   5108                                          ! CONDITIONAL&MERGE OR REPLACE
                                                                //   5109        ->ESW(ELSEALT)
#line 5109 "regression-compile-tmp/nrimp10s-77.imp"
sw12_ESW_idx = ELSEALT; if ((1 <= sw12_ESW_idx) && (sw12_ESW_idx <= 4)) goto *(sw12_ESW-1)[sw12_ESW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw12_ESW_idx);*/
   fprintf(stderr, "%%SWITCH index ESW(%d) not in range 1:4 at %s:%d\n",
           sw12_ESW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   5110  ESW(1):                                 ! '%ELSESTART'
#line 5110 "regression-compile-tmp/nrimp10s-77.imp"
sw12_ESW_1:;
                                                                //   5111        %IF CCRES=0 %THEN NMDECS(LEVEL)=NMDECS(LEVEL)!1
#line 5111 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) != (0))) goto L_04d9;
#line 5111 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (1));
#line 5111 "regression-compile-tmp/nrimp10s-77.imp"
L_04d9:;
                                                                //   5112        CSTART(CCRES,2)
#line 5112 "regression-compile-tmp/nrimp10s-77.imp"
CSTART(CCRES, 2);
                                                                //   5113        REPORT=LAST INST
#line 5113 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = LASTINST;
                                                                //   5114        ->ENTER ELSELAB
#line 5114 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   5115  ESW(2):                                 ! '%ELSE' (%IU) ETC
#line 5115 "regression-compile-tmp/nrimp10s-77.imp"
sw12_ESW_2:;
                                                                //   5116        MARKE=0; MARKUI=0
#line 5116 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = 0;
#line 5116 "regression-compile-tmp/nrimp10s-77.imp"
MARKUI = 0;
                                                                //   5117        MARKR=P+1+FROMAR2(P+1)
#line 5117 "regression-compile-tmp/nrimp10s-77.imp"
MARKR = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))));
                                                                //   5118        %IF A(MARKR)=3 %THEN %START
#line 5118 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[MARKR]) != (3))) goto L_04da;
                                                                //   5119           MARKE=MARKR+1+FROM AR2(MARKR+1)
#line 5119 "regression-compile-tmp/nrimp10s-77.imp"
MARKE = (((int)((((int)(MARKR)) + (1)))) + (FROMAR2((((int)(MARKR)) + (1)))));
                                                                //   5120           MARKUI=MARKR+3
#line 5120 "regression-compile-tmp/nrimp10s-77.imp"
MARKUI = (((int)(MARKR)) + (3));
                                                                //   5121        %FINISH
#line 5121 "regression-compile-tmp/nrimp10s-77.imp"
L_04da:;
                                                                //   5122        %IF CCRES=1 %OR SKIP=YES %THEN K=YES %ELSE K=NO
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) == (1))) goto L_04db;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
if (((SKIP) != (1))) goto L_04dc;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
L_04db:;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
K = 1;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04dd;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
L_04dc:;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
K = 0;
#line 5122 "regression-compile-tmp/nrimp10s-77.imp"
L_04dd:;
                                                                //   5123        CIFTHEN(P,P+3,MARKUI,MARKE,MARKR,K)
#line 5123 "regression-compile-tmp/nrimp10s-77.imp"
CIFTHEN(P, (((int)(P)) + (3)), MARKUI, MARKE, MARKR, K);
                                                                //   5124        ->ENTER ELSELAB
#line 5124 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   5125  ESW(3):                                 ! '%ELSE'<UI>
#line 5125 "regression-compile-tmp/nrimp10s-77.imp"
sw12_ESW_3:;
                                                                //   5126        %IF CCRES#1 %THEN %START
#line 5126 "regression-compile-tmp/nrimp10s-77.imp"
if (((CCRES) == (1))) goto L_04de;
                                                                //   5127           %IF START#0 %THEN SET LINE;    ! FOR CORRECT LINE IF FAILS IN UI
#line 5127 "regression-compile-tmp/nrimp10s-77.imp"
if (((START) == (0))) goto L_04df;
#line 5127 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 5127 "regression-compile-tmp/nrimp10s-77.imp"
L_04df:;
                                                                //   5128           %IF THENLAB=0 %THEN K=0 %ELSE K=2
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
if (((THENLAB) != (0))) goto L_04e0;
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
K = 0;
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04e1;
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
L_04e0:;
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
K = 2;
#line 5128 "regression-compile-tmp/nrimp10s-77.imp"
L_04e1:;
                                                                //   5129           CUI(K)
#line 5129 "regression-compile-tmp/nrimp10s-77.imp"
CUI(K);
                                                                //   5130           REPORT=REPORTUI
#line 5130 "regression-compile-tmp/nrimp10s-77.imp"
REPORT = REPORTUI;
                                                                //   5131        %FINISH
#line 5131 "regression-compile-tmp/nrimp10s-77.imp"
L_04de:;
                                                                //   5132  ENTER ELSELAB:
#line 5132 "regression-compile-tmp/nrimp10s-77.imp"
U_1032:;
                                                                //   5133        %IF ELSELAB>0 %THEN ELRES=ENTER LAB(ELSELAB,B'11'!REPORT<<2)
#line 5133 "regression-compile-tmp/nrimp10s-77.imp"
if (((ELSELAB) <= (0))) goto L_04e2;
#line 5133 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(ELSELAB, ((3) | (((REPORT) << (2)))));
#line 5133 "regression-compile-tmp/nrimp10s-77.imp"
L_04e2:;
                                                                //   5134                                          ! CONDITIONAL MERGE
                                                                //   5135  ESW(NULL ELSE):                         ! NULL ELSE CLAUSE
#line 5135 "regression-compile-tmp/nrimp10s-77.imp"
sw12_ESW_4:;
                                                                //   5136  %END
#line 5136 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CIFTHEN at level 5
                                                                //   5137  %ROUTINE CSTART(%INTEGER CCRES,CODE)
#line 5137 "regression-compile-tmp/nrimp10s-77.imp"
void CSTART( int CCRES, int CODE )
#line 5137 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5138  !***********************************************************************
                                                                //   5139  !*    COMPILE A COMPLETE START-FINISH BLOCK BY RECURSION               *
                                                                //   5140  !*    IF START NEVER EXECUTED SKIP TO CORRESPONDING FINISH             *
                                                                //   5141  !*    CODE=0 WAS UNCONDITIONAL NOW SHOULD BE UNUSED                    *
                                                                //   5142  !*    CODE=1 AFTER THEN                                                *
                                                                //   5143  !*    CODE=2 AFTER ELSE                                                *
                                                                //   5144  !*    CODE=3 AFTER ONEVENT                                             *
                                                                //   5145  !*    P ON ENTRY TO FORWARD POINTER TO THE RIGHT FINISH                *
                                                                //   5146  !*    P ON EXIT TO THE ELSE CLAUSE AFTER THE RIGHT FINISH              *
                                                                //   5147  !***********************************************************************
                                                                //   5148  %INTEGER SKIPCODE,FINISHAR,OLDNEXTP,OLDLINE
#line 5148 "regression-compile-tmp/nrimp10s-77.imp"
int SKIPCODE;
#line 5148 "regression-compile-tmp/nrimp10s-77.imp"
int FINISHAR;
#line 5148 "regression-compile-tmp/nrimp10s-77.imp"
int OLDNEXTP;
#line 5148 "regression-compile-tmp/nrimp10s-77.imp"
int OLDLINE;
                                                                //   5149        SKIPCODE=NO
#line 5149 "regression-compile-tmp/nrimp10s-77.imp"
SKIPCODE = 0;
                                                                //   5150        %IF 1<=CODE<=2 %AND CCRES!CODE=3 %THEN SKIPCODE=YES;! NEVER EXECUTED
#line 5150 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (CODE))) || (((CODE) > (2)))) goto L_04e3;
#line 5150 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CCRES) | (CODE))) != (3))) goto L_04e3;
#line 5150 "regression-compile-tmp/nrimp10s-77.imp"
SKIPCODE = 1;
#line 5150 "regression-compile-tmp/nrimp10s-77.imp"
L_04e3:;
                                                                //   5151        FINISHAR=FROMAR4(P);              ! TO START OF AR FOR FINISH
#line 5151 "regression-compile-tmp/nrimp10s-77.imp"
FINISHAR = FROMAR4(P);
                                                                //   5152        %IF FINISHAR<=P %THEN ABORT;      ! FOR TESTING
#line 5152 "regression-compile-tmp/nrimp10s-77.imp"
if (((FINISHAR) > (P))) goto L_04e4;
#line 5152 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 5152 "regression-compile-tmp/nrimp10s-77.imp"
L_04e4:;
                                                                //   5153        OLDLINE=LINE;                     ! FOR ERROR MESSAGES
#line 5153 "regression-compile-tmp/nrimp10s-77.imp"
OLDLINE = LINE;
                                                                //   5154        %CYCLE;                           ! THROUGH INTERVENING STATMNTS {I didn't change this one. Looks like both forms of until were accepted.}
#line 5154 "regression-compile-tmp/nrimp10s-77.imp"
L_04e5:;
                                                                //   5155           OLDNEXTP=NEXTP
#line 5155 "regression-compile-tmp/nrimp10s-77.imp"
OLDNEXTP = NEXTP;
                                                                //   5156           %IF SKIP CODE=NO %THEN COMPILE A STMNT %ELSE %START
#line 5156 "regression-compile-tmp/nrimp10s-77.imp"
if (((SKIPCODE) != (0))) goto L_04e8;
#line 5156 "regression-compile-tmp/nrimp10s-77.imp"
COMPILEASTMNT();
#line 5156 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04e9;
#line 5156 "regression-compile-tmp/nrimp10s-77.imp"
L_04e8:;
                                                                //   5157              LINE=A(NEXTP+3)<<8!A(NEXTP+4)
#line 5157 "regression-compile-tmp/nrimp10s-77.imp"
LINE = ((((A[(((int)(NEXTP)) + (3))]) << (8))) | (A[(((int)(NEXTP)) + (4))]));
                                                                //   5158              NEXTP=NEXTP+A(NEXTP)<<16+A(NEXTP+1)<<8+A(NEXTP+2)
#line 5158 "regression-compile-tmp/nrimp10s-77.imp"
NEXTP = (((unsigned char)((((((NEXTP) + ((int)(((A[NEXTP]) << (16))))))) + (((A[(((int)(NEXTP)) + (1))]) << (8)))))) + (A[(((int)(NEXTP)) + (2))]));
                                                                //   5159           %FINISH
#line 5159 "regression-compile-tmp/nrimp10s-77.imp"
L_04e9:;
                                                                //   5160        %REPEAT %UNTIL OLDNEXTP>=FINISHAR;! HAVING COMPILED FINISH
#line 5160 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDNEXTP) >= (FINISHAR))) goto L_04e6;
#line 5160 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04e5;
#line 5160 "regression-compile-tmp/nrimp10s-77.imp"
L_04e6:;
                                                                //   5161        P=FINISHAR+6;                     ! TO ELSE CLAUSE
#line 5161 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(FINISHAR)) + (6));
                                                                //   5162  !
                                                                //   5163        %IF A(P)<=2 %AND CODE#1 %THEN FAULT2(45+CODE,OLDLINE,0)
#line 5163 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) > (2))) goto L_04ea;
#line 5163 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) == (1))) goto L_04ea;
#line 5163 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2((((int)(45)) + (CODE)), OLDLINE, 0);
#line 5163 "regression-compile-tmp/nrimp10s-77.imp"
L_04ea:;
                                                                //   5164        %IF SKIPCODE=YES %THEN LAST INST=1
#line 5164 "regression-compile-tmp/nrimp10s-77.imp"
if (((SKIPCODE) != (1))) goto L_04eb;
#line 5164 "regression-compile-tmp/nrimp10s-77.imp"
LASTINST = 1;
#line 5164 "regression-compile-tmp/nrimp10s-77.imp"
L_04eb:;
                                                                //   5165  %END
#line 5165 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSTART at level 5
                                                                //   5166  %ROUTINE CCYCBODY(%INTEGER UA,ELAB,CLAB)
#line 5166 "regression-compile-tmp/nrimp10s-77.imp"
void CCYCBODY( int UA, int ELAB, int CLAB )
#line 5166 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5167  !***********************************************************************
                                                                //   5168  !*    COMPILES A CYCLE REPEAT BODY BY RECURSION                        *
                                                                //   5169  !*    ON ENTRY P IS TO FORWARD POINTER. ON EXIT TO ALT OF UNTIL        *
                                                                //   5170  !*    UA = O IF UNTIL NOT ALLOWED                                      *
                                                                //   5171  !*    ELAB&CLAB ARE LABELS FOR ELSE & CONTINUE                         *
                                                                //   5172  !***********************************************************************
                                                                //   5173  %INTEGER FINISHAR,OLDLINE,SAVEE,SAVEC
#line 5173 "regression-compile-tmp/nrimp10s-77.imp"
int FINISHAR;
#line 5173 "regression-compile-tmp/nrimp10s-77.imp"
int OLDLINE;
#line 5173 "regression-compile-tmp/nrimp10s-77.imp"
int SAVEE;
#line 5173 "regression-compile-tmp/nrimp10s-77.imp"
int SAVEC;
                                                                //   5174        FINISHAR=FROMAR4(P)
#line 5174 "regression-compile-tmp/nrimp10s-77.imp"
FINISHAR = FROMAR4(P);
                                                                //   5175        %IF FINISHAR<=P %THEN ABORT
#line 5175 "regression-compile-tmp/nrimp10s-77.imp"
if (((FINISHAR) > (P))) goto L_04ec;
#line 5175 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 5175 "regression-compile-tmp/nrimp10s-77.imp"
L_04ec:;
                                                                //   5176        OLDLINE=LINE; SAVEE=EXIT LAB; SAVEC=CONTLAB
#line 5176 "regression-compile-tmp/nrimp10s-77.imp"
OLDLINE = LINE;
#line 5176 "regression-compile-tmp/nrimp10s-77.imp"
SAVEE = EXITLAB;
#line 5176 "regression-compile-tmp/nrimp10s-77.imp"
SAVEC = CONTLAB;
                                                                //   5177        EXITLAB=ELAB; CONTLAB=CLAB
#line 5177 "regression-compile-tmp/nrimp10s-77.imp"
EXITLAB = ELAB;
#line 5177 "regression-compile-tmp/nrimp10s-77.imp"
CONTLAB = CLAB;
                                                                //   5178        %WHILE NEXTP<=FINISHAR %CYCLE
#line 5178 "regression-compile-tmp/nrimp10s-77.imp"
L_04ed:;
#line 5178 "regression-compile-tmp/nrimp10s-77.imp"
if (((NEXTP) > (FINISHAR))) goto L_04ee;
                                                                //   5179           COMPILE A STMNT
#line 5179 "regression-compile-tmp/nrimp10s-77.imp"
COMPILEASTMNT();
                                                                //   5180        %REPEAT
#line 5180 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04ed;
#line 5180 "regression-compile-tmp/nrimp10s-77.imp"
L_04ee:;
                                                                //   5181        EXIT LAB=SAVEE; CONTLAB=SAVEC
#line 5181 "regression-compile-tmp/nrimp10s-77.imp"
EXITLAB = SAVEE;
#line 5181 "regression-compile-tmp/nrimp10s-77.imp"
CONTLAB = SAVEC;
                                                                //   5182        P=FINISHAR+6
#line 5182 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(FINISHAR)) + (6));
                                                                //   5183        %IF A(P)=1 %AND UA=0 %THEN FAULT2(12,OLDLINE,0)
#line 5183 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_04f0;
#line 5183 "regression-compile-tmp/nrimp10s-77.imp"
if (((UA) != (0))) goto L_04f0;
#line 5183 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(12, OLDLINE, 0);
#line 5183 "regression-compile-tmp/nrimp10s-77.imp"
L_04f0:;
                                                                //   5184  %END
#line 5184 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CCYCBODY at level 5
                                                                //   5185  
                                                                //   5186  %ROUTINE CLOOP(%INTEGER ALT, MARKC, MARKUI)
#line 5186 "regression-compile-tmp/nrimp10s-77.imp"
void CLOOP( int ALT, int MARKC, int MARKUI )
#line 5186 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5187  !***********************************************************************
                                                                //   5188  !*    ALT=1 FOR %WHILE, =2 FOR %UNTIL, =3 FOR %FOR                     *
                                                                //   5189  !*    MARKC IS TO THE CONDITION OR CONTROL CLAUSE                      *
                                                                //   5190  !*    MARKUI IS TO THE UI, SPECIAL FOR %CYCLE                          *
                                                                //   5191  !***********************************************************************
                                                                //   5192  %INTEGER L1,L2,L3,CCRES,ELRES
#line 5192 "regression-compile-tmp/nrimp10s-77.imp"
int L1;
#line 5192 "regression-compile-tmp/nrimp10s-77.imp"
int L2;
#line 5192 "regression-compile-tmp/nrimp10s-77.imp"
int L3;
#line 5192 "regression-compile-tmp/nrimp10s-77.imp"
int CCRES;
#line 5192 "regression-compile-tmp/nrimp10s-77.imp"
int ELRES;
                                                                //   5193  %INTEGER FORNAME,INITTYPE,INITVAL,STEPTYPE,STEPVAL,FINALTYPE,FINALVAL,FACC,FDISP,FBASE,INITP,REPMASK,USEDEBJ,DEBTO
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FORNAME;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int INITTYPE;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int INITVAL;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int STEPTYPE;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int STEPVAL;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FINALTYPE;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FINALVAL;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FACC;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FDISP;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int FBASE;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int INITP;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int REPMASK;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int USEDEBJ;
#line 5193 "regression-compile-tmp/nrimp10s-77.imp"
int DEBTO;
                                                                //   5194  %ROUTINESPEC FOREXP(%INTEGERNAME ETYPE,EVALUE,%INTEGER TT,REG)
#line 5194 "regression-compile-tmp/nrimp10s-77.imp"
auto void FOREXP( int /*name*/*ETYPE, int /*name*/*EVALUE, int TT, int REG );
                                                                //   5195  %ROUTINESPEC VALIDATE FOR
#line 5195 "regression-compile-tmp/nrimp10s-77.imp"
auto void VALIDATEFOR( void );
                                                                //   5196  %SWITCH SW(0:6)
#line 5196 "regression-compile-tmp/nrimp10s-77.imp"
static int sw13_SW_idx;
static const void * /*SWITCH*/ sw13_SW[7] = { &&sw13_SW_0, &&sw13_SW_1, &&sw13_SW_2, &&sw13_SW_3, &&sw13_SW_4, &&sw13_SW_5, &&sw13_SW_6,  };
                                                                //   5197        P=MARKC
#line 5197 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKC;
                                                                //   5198        SFLABEL=SFLABEL-2
#line 5198 "regression-compile-tmp/nrimp10s-77.imp"
SFLABEL = (((int)(SFLABEL)) - (2));
                                                                //   5199        L1=SFLABEL; L2=L1+1
#line 5199 "regression-compile-tmp/nrimp10s-77.imp"
L1 = SFLABEL;
#line 5199 "regression-compile-tmp/nrimp10s-77.imp"
L2 = (((int)(L1)) + (1));
                                                                //   5200  !
                                                                //   5201  ! SET L3 FOR ALTS 0,5&6 ONLY
                                                                //   5202  !
                                                                //   5203        L3=0
#line 5203 "regression-compile-tmp/nrimp10s-77.imp"
L3 = 0;
                                                                //   5204        %IF B'1100001'&1<<ALT#0 %THEN L3=SFLABEL-1 %AND SFLABEL=L3
#line 5204 "regression-compile-tmp/nrimp10s-77.imp"
if (((((97) & (((1) << (ALT))))) == (0))) goto L_04f1;
#line 5204 "regression-compile-tmp/nrimp10s-77.imp"
L3 = (((int)(SFLABEL)) - (1));
#line 5204 "regression-compile-tmp/nrimp10s-77.imp"
SFLABEL = L3;
#line 5204 "regression-compile-tmp/nrimp10s-77.imp"
L_04f1:;
                                                                //   5205  !
                                                                //   5206  ! UPDATE THE LINE NUMBER FOR ALTS 1 TO 3 ONLY
                                                                //   5207  !
                                                                //   5208        %IF 1<=ALT<=3 %THEN SET LINE
#line 5208 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (ALT))) || (((ALT) > (3)))) goto L_04f2;
#line 5208 "regression-compile-tmp/nrimp10s-77.imp"
SETLINE();
#line 5208 "regression-compile-tmp/nrimp10s-77.imp"
L_04f2:;
                                                                //   5209  !
                                                                //   5210  ! ENTER THE FIRST LABEL(L1) FOR ALL ALTS EXCEPT 3 & 6
                                                                //   5211  !
                                                                //   5212        %IF B'0110111'&1<<ALT#0 %THEN ELRES=ENTER LAB(L1,0)
#line 5212 "regression-compile-tmp/nrimp10s-77.imp"
if (((((55) & (((1) << (ALT))))) == (0))) goto L_04f3;
#line 5212 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L1, 0);
#line 5212 "regression-compile-tmp/nrimp10s-77.imp"
L_04f3:;
                                                                //   5213        ->SW(ALT)
#line 5213 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_idx = ALT; if ((0 <= sw13_SW_idx) && (sw13_SW_idx <= 6)) goto *sw13_SW[sw13_SW_idx]; else {
   /*_imp_signal(8, 2, sw13_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:6 at %s:%d\n",
           sw13_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   5214  SW(0):                                  ! %CYCLE
#line 5214 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_0:;
                                                                //   5215        C CYC BODY(1,L2,L3)
#line 5215 "regression-compile-tmp/nrimp10s-77.imp"
CCYCBODY(1, L2, L3);
                                                                //   5216        ELRES=ENTER LAB(L3,B'011')
#line 5216 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L3, 3);
                                                                //   5217        %IF A(P)=1 %START;                ! %REPEAT %UNTIL <COND>
#line 5217 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_04f4;
                                                                //   5218           P=P+1; CCRES=CCOND(0,1,L1)
#line 5218 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 5218 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, 1, L1);
                                                                //   5219        %FINISH %ELSE ENTER JUMP(15,L1,0)
#line 5219 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04f5;
#line 5219 "regression-compile-tmp/nrimp10s-77.imp"
L_04f4:;
#line 5219 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, L1, 0);
#line 5219 "regression-compile-tmp/nrimp10s-77.imp"
L_04f5:;
                                                                //   5220        ELRES=ENTER LAB(L2,B'011')
#line 5220 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L2, 3);
                                                                //   5221  WAYOUT:                                 ! REMOVE LABELS NOT REQUIRED
#line 5221 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
                                                                //   5222        REMOVE LAB(L1)
#line 5222 "regression-compile-tmp/nrimp10s-77.imp"
REMOVELAB(L1);
                                                                //   5223        REMOVE LAB(L2)
#line 5223 "regression-compile-tmp/nrimp10s-77.imp"
REMOVELAB(L2);
                                                                //   5224        REMOVE LAB(L3) %IF L3>0
#line 5224 "regression-compile-tmp/nrimp10s-77.imp"
if (((L3) <= (0))) goto L_04f6;
#line 5224 "regression-compile-tmp/nrimp10s-77.imp"
REMOVELAB(L3);
#line 5224 "regression-compile-tmp/nrimp10s-77.imp"
L_04f6:;
                                                                //   5225        %RETURN
#line 5225 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5226  SW(1):                                  ! UI WHILE COND
#line 5226 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_1:;
                                                                //   5227        CCRES=CCOND(0,1,L2)
#line 5227 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, 1, L2);
                                                                //   5228        P=MARKUI
#line 5228 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKUI;
                                                                //   5229        CUI(1)
#line 5229 "regression-compile-tmp/nrimp10s-77.imp"
CUI(1);
                                                                //   5230        ENTERJUMP(15,L1,0);               ! UNCONDITIONALLY BACK TO WHILE
#line 5230 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, L1, 0);
                                                                //   5231        ELRES =ENTER LAB(L2,B'111');      ! CONDITIONAL(?) & REPLACE ENV
#line 5231 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L2, 7);
                                                                //   5232        ->WAYOUT
#line 5232 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   5233  SW(2):                                  ! UI %UNTIL COND
#line 5233 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_2:;
                                                                //   5234        P=MARKUI
#line 5234 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKUI;
                                                                //   5235        CUI(1)
#line 5235 "regression-compile-tmp/nrimp10s-77.imp"
CUI(1);
                                                                //   5236        P=MARKC
#line 5236 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKC;
                                                                //   5237        CCRES=CCOND(0,1,L1)
#line 5237 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, 1, L1);
                                                                //   5238        ->WAYOUT
#line 5238 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   5239  SW(3):                                  ! UI %FOR ....
#line 5239 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_3:;
                                                                //   5240  SW(6):                                  ! %FOR ... %CYCLE
#line 5240 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_6:;
                                                                //   5241  
                                                                //   5242        FORNAME=FROMAR2(P)
#line 5242 "regression-compile-tmp/nrimp10s-77.imp"
FORNAME = FROMAR2(P);
                                                                //   5243        INITP=P+2; P=INITP
#line 5243 "regression-compile-tmp/nrimp10s-77.imp"
INITP = (((int)(P)) + (2));
#line 5243 "regression-compile-tmp/nrimp10s-77.imp"
P = INITP;
                                                                //   5244        COPY TAG(FORNAME)
#line 5244 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FORNAME);
                                                                //   5245        FDISP=K; FBASE=I; FACC=2*NAM
#line 5245 "regression-compile-tmp/nrimp10s-77.imp"
FDISP = K;
#line 5245 "regression-compile-tmp/nrimp10s-77.imp"
FBASE = I;
#line 5245 "regression-compile-tmp/nrimp10s-77.imp"
FACC = (((int)(2)) * (NAM));
                                                                //   5246        FAULT2(91,0,FORNAME) %UNLESS TYPE=1 %AND PREC=5 %AND ROUT=0=ARR
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_04ef;
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (5))) goto L_04ef;
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
if ((((ROUT) != (0))) || (((0) == (ARR)))) goto L_04f7;
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
L_04ef:;
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(91, 0, FORNAME);
#line 5246 "regression-compile-tmp/nrimp10s-77.imp"
L_04f7:;
                                                                //   5247        WARN(4,FORNAME) %UNLESS FBASE=RBASE
#line 5247 "regression-compile-tmp/nrimp10s-77.imp"
if (((FBASE) == (RBASE))) goto L_04f8;
#line 5247 "regression-compile-tmp/nrimp10s-77.imp"
WARN(4, FORNAME);
#line 5247 "regression-compile-tmp/nrimp10s-77.imp"
L_04f8:;
                                                                //   5248  !
                                                                //   5249        SKIP EXP;                         ! P TO STEP EXPRSN
#line 5249 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   5250        FOR EXP(STEPTYPE,STEPVAL,1,ACCR); ! STEP TO ACCR AND TEMP
#line 5250 "regression-compile-tmp/nrimp10s-77.imp"
FOREXP(&STEPTYPE, &STEPVAL, 1, 0);
                                                                //   5251        %IF STEPTYPE=0 %START
#line 5251 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPTYPE) != (0))) goto L_04f9;
                                                                //   5252           FAULT2(92,0,0) %IF  STEPVAL=0; ! ZERO STEP
#line 5252 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPVAL) != (0))) goto L_04fa;
#line 5252 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(92, 0, 0);
#line 5252 "regression-compile-tmp/nrimp10s-77.imp"
L_04fa:;
                                                                //   5253        %FINISH %ELSE %START
#line 5253 "regression-compile-tmp/nrimp10s-77.imp"
goto L_04fb;
#line 5253 "regression-compile-tmp/nrimp10s-77.imp"
L_04f9:;
                                                                //   5254           %IF PARMOPT#0 %THEN PPJ(26,11);! FAULT COMPUTED ZERO STEP
#line 5254 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_04fc;
#line 5254 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(26, 11);
#line 5254 "regression-compile-tmp/nrimp10s-77.imp"
L_04fc:;
                                                                //   5255        %FINISH
#line 5255 "regression-compile-tmp/nrimp10s-77.imp"
L_04fb:;
                                                                //   5256  !
                                                                //   5257        FOR EXP(FINALTYPE,FINALVAL,1,ACCR);! EVALUATE FINAL
#line 5257 "regression-compile-tmp/nrimp10s-77.imp"
FOREXP(&FINALTYPE, &FINALVAL, 1, 0);
                                                                //   5258  !
                                                                //   5259        P=INITP
#line 5259 "regression-compile-tmp/nrimp10s-77.imp"
P = INITP;
                                                                //   5260        FOR EXP(INITTYPE,INITVAL,0,BREG);! INITIAL VALUE TO B
#line 5260 "regression-compile-tmp/nrimp10s-77.imp"
FOREXP(&INITTYPE, &INITVAL, 0, 7);
                                                                //   5261        %IF PARMOPT#0 %THEN VALIDATE FOR
#line 5261 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_04fd;
#line 5261 "regression-compile-tmp/nrimp10s-77.imp"
VALIDATEFOR();
#line 5261 "regression-compile-tmp/nrimp10s-77.imp"
L_04fd:;
                                                                //   5262  !
                                                                //   5263        USEDEBJ=0;                        ! DONT USE IT
#line 5263 "regression-compile-tmp/nrimp10s-77.imp"
USEDEBJ = 0;
                                                                //   5264        %IF STEPVAL=-1 %AND FINALTYPE!STEPTYPE=0 %AND FINALVAL=1 %START
#line 5264 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPVAL) != ((-1)))) goto L_04fe;
#line 5264 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FINALTYPE) | (STEPTYPE))) != (0))) goto L_04fe;
#line 5264 "regression-compile-tmp/nrimp10s-77.imp"
if (((FINALVAL) != (1))) goto L_04fe;
                                                                //   5265           USEDEBJ=1;                     ! CAN USE BEST BRANCH INSTRN
#line 5265 "regression-compile-tmp/nrimp10s-77.imp"
USEDEBJ = 1;
                                                                //   5266           PSF1(LB,0,INITVAL) %IF INITTYPE=0
#line 5266 "regression-compile-tmp/nrimp10s-77.imp"
if (((INITTYPE) != (0))) goto L_04ff;
#line 5266 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, INITVAL);
#line 5266 "regression-compile-tmp/nrimp10s-77.imp"
L_04ff:;
                                                                //   5267           %UNLESS INITTYPE=0 %AND INITVAL>=1 %THEN ENTERJUMP(32+13,L2,B'10');  ! JAF B>0 NO TRAVERSES
#line 5267 "regression-compile-tmp/nrimp10s-77.imp"
if (((INITTYPE) != (0))) goto L_0500;
#line 5267 "regression-compile-tmp/nrimp10s-77.imp"
if (((INITVAL) >= (1))) goto L_0501;
#line 5267 "regression-compile-tmp/nrimp10s-77.imp"
L_0500:;
#line 5267 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(45, L2, 2);
#line 5267 "regression-compile-tmp/nrimp10s-77.imp"
L_0501:;
                                                                //   5268           DEBTO=CA;                      ! SAVE CA FOR DEBJ
#line 5268 "regression-compile-tmp/nrimp10s-77.imp"
DEBTO = CA;
                                                                //   5269        %FINISH %ELSE %START
#line 5269 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0502;
#line 5269 "regression-compile-tmp/nrimp10s-77.imp"
L_04fe:;
                                                                //   5270           %IF INITTYPE!STEPTYPE=0 %THEN %START
#line 5270 "regression-compile-tmp/nrimp10s-77.imp"
if (((((INITTYPE) | (STEPTYPE))) != (0))) goto L_0503;
                                                                //   5271              PSF1(LB,0,INITVAL-STEPVAL)
#line 5271 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, (((int)(INITVAL)) - (STEPVAL)));
                                                                //   5272           %FINISH %ELSE %START
#line 5272 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0504;
#line 5272 "regression-compile-tmp/nrimp10s-77.imp"
L_0503:;
                                                                //   5273              PSF1(LB,0,INITVAL) %IF INITTYPE=0
#line 5273 "regression-compile-tmp/nrimp10s-77.imp"
if (((INITTYPE) != (0))) goto L_0505;
#line 5273 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, INITVAL);
#line 5273 "regression-compile-tmp/nrimp10s-77.imp"
L_0505:;
                                                                //   5274              PSF1(SBB,STEPTYPE,STEPVAL)
#line 5274 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, STEPTYPE, STEPVAL);
                                                                //   5275           %FINISH
#line 5275 "regression-compile-tmp/nrimp10s-77.imp"
L_0504:;
                                                                //   5276  !
                                                                //   5277  ! HAVE B SET TO INIT-STEP.  FOR COMPUTED STEPS NOW MUST CHECK
                                                                //   5278  ! FOR NEGATIVE TRAVERSES. FOR FIXED STEPS THIS CAN BE SET
                                                                //   5279  ! IN MASK FOR REPEATING
                                                                //   5280  !
                                                                //   5281           %IF STEPTYPE=1 %THEN %START
#line 5281 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPTYPE) != (1))) goto L_0506;
                                                                //   5282              PF1(LSS,0,BREG,0)
#line 5282 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 7, 0);
                                                                //   5283              PSF1(IRSB,FINALTYPE,FINALVAL)
#line 5283 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(228, FINALTYPE, FINALVAL);
                                                                //   5284              PSF1(IDV,1,STEPVAL)
#line 5284 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(170, 1, STEPVAL);
                                                                //   5285              GRUSE(ACCR)=0
#line 5285 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5286              ENTERJUMP(37,L2,B'10')
#line 5286 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(37, L2, 2);
                                                                //   5287              REPMASK=7
#line 5287 "regression-compile-tmp/nrimp10s-77.imp"
REPMASK = 7;
                                                                //   5288           %FINISH %ELSE REPMASK=8!(2<<(STEPVAL>>31));  ! A OR C
#line 5288 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0507;
#line 5288 "regression-compile-tmp/nrimp10s-77.imp"
L_0506:;
#line 5288 "regression-compile-tmp/nrimp10s-77.imp"
REPMASK = ((8) | (((2) << ((int)((((unsigned int)(STEPVAL)) >> (31)))))));
#line 5288 "regression-compile-tmp/nrimp10s-77.imp"
L_0507:;
                                                                //   5289  !
                                                                //   5290           ELRES=ENTER LAB(L1,0);         ! LABEL FOR REPEATING
#line 5290 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L1, 0);
                                                                //   5291  !
                                                                //   5292           %IF STEPTYPE=0 %AND STEPVAL=1 %START
#line 5292 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPTYPE) != (0))) goto L_0508;
#line 5292 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPVAL) != (1))) goto L_0508;
                                                                //   5293              PSF1(CPIB,FINALTYPE,FINALVAL)
#line 5293 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(46, FINALTYPE, FINALVAL);
                                                                //   5294           %FINISH %ELSE %START
#line 5294 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0509;
#line 5294 "regression-compile-tmp/nrimp10s-77.imp"
L_0508:;
                                                                //   5295              PSF1(CPB,FINALTYPE,FINALVAL)
#line 5295 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(38, FINALTYPE, FINALVAL);
                                                                //   5296              PSF1(ADB,STEPTYPE,STEPVAL)
#line 5296 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, STEPTYPE, STEPVAL);
                                                                //   5297           %FINISH
#line 5297 "regression-compile-tmp/nrimp10s-77.imp"
L_0509:;
                                                                //   5298           GRUSE(BREG)=0
#line 5298 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   5299           ENTER JUMP(REPMASK,L2,B'10')
#line 5299 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(REPMASK, L2, 2);
                                                                //   5300        %FINISH
#line 5300 "regression-compile-tmp/nrimp10s-77.imp"
L_0502:;
                                                                //   5301        BASE=FBASE; AREA=-1
#line 5301 "regression-compile-tmp/nrimp10s-77.imp"
BASE = FBASE;
#line 5301 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   5302        PSORLF1(STB,FACC,AREA CODE,FDISP)
#line 5302 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(90, FACC, AREACODE(), FDISP);
                                                                //   5303        NOTE ASSMENT(BREG,2,FORNAME)
#line 5303 "regression-compile-tmp/nrimp10s-77.imp"
NOTEASSMENT(7, 2, FORNAME);
                                                                //   5304  !
                                                                //   5305        P=MARKUI;                         ! TO UI OR '%CYCLE'(HOLE)
#line 5305 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKUI;
                                                                //   5306        %IF ALT=3 %THEN %START;           ! DEAL WITH CONTROLLED STMNTS
#line 5306 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) != (3))) goto L_050a;
                                                                //   5307           CUI(0)
#line 5307 "regression-compile-tmp/nrimp10s-77.imp"
CUI(0);
                                                                //   5308        %FINISH %ELSE %START
#line 5308 "regression-compile-tmp/nrimp10s-77.imp"
goto L_050b;
#line 5308 "regression-compile-tmp/nrimp10s-77.imp"
L_050a:;
                                                                //   5309           CCYCBODY(0,L2,L3)
#line 5309 "regression-compile-tmp/nrimp10s-77.imp"
CCYCBODY(0, L2, L3);
                                                                //   5310           ELRES=ENTER LAB(L3,B'011');    ! LABEL FOR CONTINUE
#line 5310 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L3, 3);
                                                                //   5311        %FINISH
#line 5311 "regression-compile-tmp/nrimp10s-77.imp"
L_050b:;
                                                                //   5312        BASE=FBASE; ACCESS=FACC
#line 5312 "regression-compile-tmp/nrimp10s-77.imp"
BASE = FBASE;
#line 5312 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = FACC;
                                                                //   5313        AREA=-1; DISP=FDISP
#line 5313 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 5313 "regression-compile-tmp/nrimp10s-77.imp"
DISP = FDISP;
                                                                //   5314        NAMEOP(2,BREG,4,FORNAME);         ! CONTROL TO B
#line 5314 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(2, 7, 4, FORNAME);
                                                                //   5315        %IF USEDEBJ=0 %THEN ENTER JUMP(15,L1,0) %ELSE PSF1(DEBJ,0,(DEBTO-CA)//2) %AND GRUSE(BREG)=0
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
if (((USEDEBJ) != (0))) goto L_050c;
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, L1, 0);
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
goto L_050d;
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
L_050c:;
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(36, 0, ((long)((long)(((((int)(DEBTO)) - (CA)))) / (long)((int)(2)))));
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 5315 "regression-compile-tmp/nrimp10s-77.imp"
L_050d:;
                                                                //   5316        ELRES=ENTERLAB(L2,B'111'!!(USEDEBJ<<2));! REPLACE ENV UNLESS DEBJ
#line 5316 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L2, ((7) ^ (((USEDEBJ) << (2)))));
                                                                //   5317                                          ! WHEN MERGE ENV
                                                                //   5318        ->WAYOUT
#line 5318 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   5319  SW(4):                                  ! %WHILE COND %CYCLE
#line 5319 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_4:;
                                                                //   5320        CCRES = CCOND(0,1,L2)
#line 5320 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, 1, L2);
                                                                //   5321        C CYC BODY(0,L2,L1)
#line 5321 "regression-compile-tmp/nrimp10s-77.imp"
CCYCBODY(0, L2, L1);
                                                                //   5322        ENTER JUMP(15,L1,0)
#line 5322 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, L1, 0);
                                                                //   5323        ELRES = ENTER LAB(L2,B'111');     ! CONDITIONAL & REPLACE ENV
#line 5323 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L2, 7);
                                                                //   5324        ->WAYOUT
#line 5324 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   5325  SW(5):                                  ! %UNTIL ... %CYCLE
#line 5325 "regression-compile-tmp/nrimp10s-77.imp"
sw13_SW_5:;
                                                                //   5326                                          ! ALSO %CYCLE... %REPEAT %UNTIL
                                                                //   5327                                          ! MARKUI TO %CYCLE
                                                                //   5328        P=MARKUI
#line 5328 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKUI;
                                                                //   5329        C CYC BODY(0,L2,L3)
#line 5329 "regression-compile-tmp/nrimp10s-77.imp"
CCYCBODY(0, L2, L3);
                                                                //   5330        P=MARKC; ELRES=ENTER LAB(L3,B'011');! CONTINUE LABEL IF NEEDED
#line 5330 "regression-compile-tmp/nrimp10s-77.imp"
P = MARKC;
#line 5330 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L3, 3);
                                                                //   5331        CCRES=CCOND(0,1,L1)
#line 5331 "regression-compile-tmp/nrimp10s-77.imp"
CCRES = CCOND(0, 1, L1);
                                                                //   5332        ELRES=ENTER LAB(L2,B'011')
#line 5332 "regression-compile-tmp/nrimp10s-77.imp"
ELRES = ENTERLAB(L2, 3);
                                                                //   5333        ->WAYOUT
#line 5333 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   5334  %ROUTINE FOREXP(%INTEGERNAME ETYPE,EVALUE,%INTEGER TOTEMP,USEREG)
#line 5334 "regression-compile-tmp/nrimp10s-77.imp"
void FOREXP( int /*name*/*ETYPE, int /*name*/*EVALUE, int TOTEMP, int USEREG )
#line 5334 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5335  !***********************************************************************
                                                                //   5336  !*    P INDEXES EXPRESSION.  IF CONST PUT INTO EVALUE OTHERWISE        *
                                                                //   5337  !*    COMPILE TO USEREG AND STORE IN TEMP IF TOTEMP#0                  *
                                                                //   5338  !***********************************************************************
                                                                //   5339  %INTEGER INP,VAL,OP
#line 5339 "regression-compile-tmp/nrimp10s-77.imp"
int INP;
#line 5339 "regression-compile-tmp/nrimp10s-77.imp"
int VAL;
#line 5339 "regression-compile-tmp/nrimp10s-77.imp"
int OP;
                                                                //   5340        INP=P; P=P+3
#line 5340 "regression-compile-tmp/nrimp10s-77.imp"
INP = P;
#line 5340 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   5341        %IF INTEXP(VAL)=0 %AND IMOD(VAL)<16_1FFFF %START
#line 5341 "regression-compile-tmp/nrimp10s-77.imp"
if (((INTEXP(&VAL)) != (0))) goto L_050e;
#line 5341 "regression-compile-tmp/nrimp10s-77.imp"
if (((_imp_IMOD(VAL)) >= (131071))) goto L_050e;
                                                                //   5342           EVALUE=VAL; ETYPE=0;           ! EXPRESSION A LITERAL CONST
#line 5342 "regression-compile-tmp/nrimp10s-77.imp"
*EVALUE = VAL;
#line 5342 "regression-compile-tmp/nrimp10s-77.imp"
*ETYPE = 0;
                                                                //   5343           %RETURN
#line 5343 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5344        %FINISH
#line 5344 "regression-compile-tmp/nrimp10s-77.imp"
L_050e:;
                                                                //   5345        P=INP
#line 5345 "regression-compile-tmp/nrimp10s-77.imp"
P = INP;
                                                                //   5346        CSEXP(USEREG,16_51);              ! INTEGER MODE TO REG
#line 5346 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(USEREG, 81);
                                                                //   5347        ETYPE=1;                          ! NOT CONST
#line 5347 "regression-compile-tmp/nrimp10s-77.imp"
*ETYPE = 1;
                                                                //   5348        %IF TOTEMP#0 %START
#line 5348 "regression-compile-tmp/nrimp10s-77.imp"
if (((TOTEMP) == (0))) goto L_050f;
                                                                //   5349           GET WSP(VAL,1)
#line 5349 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&VAL, 1);
                                                                //   5350           %IF USEREG=ACCR %THEN OP=ST %ELSE OP=STB
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
if (((USEREG) != (0))) goto L_0510;
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
OP = 72;
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0511;
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
L_0510:;
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
OP = 90;
#line 5350 "regression-compile-tmp/nrimp10s-77.imp"
L_0511:;
                                                                //   5351           PSF1(OP,1,VAL)
#line 5351 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OP, 1, VAL);
                                                                //   5352           EVALUE=VAL
#line 5352 "regression-compile-tmp/nrimp10s-77.imp"
*EVALUE = VAL;
                                                                //   5353        %FINISH
#line 5353 "regression-compile-tmp/nrimp10s-77.imp"
L_050f:;
                                                                //   5354  %END
#line 5354 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FOREXP at level 6
                                                                //   5355  %ROUTINE VALIDATE FOR
#line 5355 "regression-compile-tmp/nrimp10s-77.imp"
void VALIDATEFOR( void )
#line 5355 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5356  !***********************************************************************
                                                                //   5357  !*    INITIAL VALUE IN BREG OR A CONSTANT                              *
                                                                //   5358  !***********************************************************************
                                                                //   5359  %INTEGER I
#line 5359 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   5360        %IF INITTYPE!STEPTYPE!FINALTYPE=0 %START
#line 5360 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((INITTYPE) | (STEPTYPE))) | (FINALTYPE))) != (0))) goto L_0512;
                                                                //   5361           J=FINALVAL-INITVAL;            ! ALL CONSTANT CAN CHECK NOW
#line 5361 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(FINALVAL)) - (INITVAL));
                                                                //   5362           %IF (J//STEPVAL)*STEPVAL#J %THEN FAULT2(93,0,0)
#line 5362 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((long)((long)((int)(J)) / (long)((int)(_Z(STEPVAL)))))) * (STEPVAL))) == (J))) goto L_0513;
#line 5362 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(93, 0, 0);
#line 5362 "regression-compile-tmp/nrimp10s-77.imp"
L_0513:;
                                                                //   5363           %RETURN
#line 5363 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5364        %FINISH
#line 5364 "regression-compile-tmp/nrimp10s-77.imp"
L_0512:;
                                                                //   5365        %IF STEPTYPE=0 %AND IMOD(STEPVAL)=1 %THEN %RETURN
#line 5365 "regression-compile-tmp/nrimp10s-77.imp"
if (((STEPTYPE) != (0))) goto L_0514;
#line 5365 "regression-compile-tmp/nrimp10s-77.imp"
if (((_imp_IMOD(STEPVAL)) != (1))) goto L_0514;
#line 5365 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 5365 "regression-compile-tmp/nrimp10s-77.imp"
L_0514:;
                                                                //   5366  !
                                                                //   5367  ! CHECK BY PLANTING CODE
                                                                //   5368  !
                                                                //   5369        %IF INITTYPE=0 %THEN PSF1(LSS,0,INITVAL) %ELSE PF1(LSS,0,BREG,0)
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
if (((INITTYPE) != (0))) goto L_0515;
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, INITVAL);
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0516;
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
L_0515:;
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 7, 0);
#line 5369 "regression-compile-tmp/nrimp10s-77.imp"
L_0516:;
                                                                //   5370        PSF1(IRSB,FINALTYPE,FINALVAL)
#line 5370 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(228, FINALTYPE, FINALVAL);
                                                                //   5371        PSF1(IMDV,STEPTYPE,STEPVAL)
#line 5371 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(174, STEPTYPE, STEPVAL);
                                                                //   5372        PF1(LSS,0,TOS,0)
#line 5372 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
                                                                //   5373        GRUSE(ACCR)=0
#line 5373 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5374        PPJ(36,11)
#line 5374 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(36, 11);
                                                                //   5375  %END
#line 5375 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block VALIDATEFOR at level 6
                                                                //   5376  %END
#line 5376 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLOOP at level 5
                                                                //   5377           %ROUTINE ASSIGN(%INTEGER ASSOP,P1)
#line 5377 "regression-compile-tmp/nrimp10s-77.imp"
void ASSIGN( int ASSOP, int P1 )
#line 5377 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5378  !***********************************************************************
                                                                //   5379  !*       HANDLES ARITHMETIC,STRING & ADDRESS ASSIGNMENTS TO VARIABLES  *
                                                                //   5380  !*       FORMAL PARAMETERS AND DOPEVECTORS                             *
                                                                //   5381  !*       ASSOP:-                                                       *
                                                                //   5382  !*        1 IS FOR '=='                                                *
                                                                //   5383  !*        2 IS FOR '='                                                 *
                                                                //   5384  !*        3 IS FOR '<-' (JAM TRANSFER)                                 *
                                                                //   5385  !*        4 IS FOR '->' (UNCONDITIONAL RESOLUTION)                     *
                                                                //   5386  !*       >4 IS FOR STORE ACC BY 'ASSOP&3' INTO NAME                    *
                                                                //   5387  !*                                                                     *
                                                                //   5388  !*       P POINTS TO THE EXPRESSION. P1 TO THE NAME ON LHS             *
                                                                //   5389  !***********************************************************************
                                                                //   5390  %INTEGER Q,QQ,KK,TYPEP,PRECP,PTYPEP,JJJ,P2,JJ,REG,STCODE,RHTYPE,ACCP,II,HEAD1,NOPS,TPCELL,LVL,BOT1,LHNAME,RHNAME
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPEP;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int P2;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int REG;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int STCODE;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int RHTYPE;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int ACCP;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int II;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD1;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int TPCELL;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int LVL;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int BOT1;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int LHNAME;
#line 5390 "regression-compile-tmp/nrimp10s-77.imp"
int RHNAME;
                                                                //   5391  %RECORD (RD) R{(RD)
#line 5391 "regression-compile-tmp/nrimp10s-77.imp"
 RD R;
                                                                //   5392  %SWITCH SW(0:3);                       ! TO SWITCH ON ASSOP
#line 5392 "regression-compile-tmp/nrimp10s-77.imp"
static int sw14_SW_idx;
static const void * /*SWITCH*/ sw14_SW[4] = { &&sw14_SW_0, &&sw14_SW_1, &&sw14_SW_2, &&sw14_SW_3,  };
                                                                //   5393           P2=P
#line 5393 "regression-compile-tmp/nrimp10s-77.imp"
P2 = P;
                                                                //   5394           %IF ASSOP>4 %THEN RHTYPE=TYPE
#line 5394 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) <= (4))) goto L_0517;
#line 5394 "regression-compile-tmp/nrimp10s-77.imp"
RHTYPE = TYPE;
#line 5394 "regression-compile-tmp/nrimp10s-77.imp"
L_0517:;
                                                                //   5395           LHNAME=A(P1)<<8!A(P1+1)
#line 5395 "regression-compile-tmp/nrimp10s-77.imp"
LHNAME = ((((A[P1]) << (8))) | (A[(((int)(P1)) + (1))]));
                                                                //   5396           P=P1; REDUCE TAG;             ! LOOK AT LH SIDE
#line 5396 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5396 "regression-compile-tmp/nrimp10s-77.imp"
REDUCETAG();
                                                                //   5397           PTYPEP=PTYPE; JJ=J
#line 5397 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEP = PTYPE;
#line 5397 "regression-compile-tmp/nrimp10s-77.imp"
JJ = J;
                                                                //   5398           KK=K; II=I; LVL=OLDI
#line 5398 "regression-compile-tmp/nrimp10s-77.imp"
KK = K;
#line 5398 "regression-compile-tmp/nrimp10s-77.imp"
II = I;
#line 5398 "regression-compile-tmp/nrimp10s-77.imp"
LVL = OLDI;
                                                                //   5399           TPCELL=TCELL; ACCP=ACC
#line 5399 "regression-compile-tmp/nrimp10s-77.imp"
TPCELL = TCELL;
#line 5399 "regression-compile-tmp/nrimp10s-77.imp"
ACCP = ACC;
                                                                //   5400           P=P2; TYPEP=TYPE; PRECP=PREC; ! SAVE USEFUL INFO FOR LATER
#line 5400 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
#line 5400 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 5400 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
                                                                //   5401           -> SW(ASSOP&3)
#line 5401 "regression-compile-tmp/nrimp10s-77.imp"
sw14_SW_idx = ((ASSOP) & (3)); if ((0 <= sw14_SW_idx) && (sw14_SW_idx <= 3)) goto *sw14_SW[sw14_SW_idx]; else {
   /*_imp_signal(8, 2, sw14_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:3 at %s:%d\n",
           sw14_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   5402  !
                                                                //   5403  SW(2):SW(3):                           ! ARITHMETIC ASSIGNMENTS
#line 5403 "regression-compile-tmp/nrimp10s-77.imp"
sw14_SW_2:;
#line 5403 "regression-compile-tmp/nrimp10s-77.imp"
sw14_SW_3:;
                                                                //   5404           %IF TYPE=3 %THEN ->RECOP
#line 5404 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0518;
#line 5404 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
#line 5404 "regression-compile-tmp/nrimp10s-77.imp"
L_0518:;
                                                                //   5405           TYPE=1 %UNLESS TYPE=2 %OR TYPE=5;! IN CASE OF RUBBISHY SUBNAMES
#line 5405 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (2))) goto L_0519;
#line 5405 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_0519;
#line 5405 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
#line 5405 "regression-compile-tmp/nrimp10s-77.imp"
L_0519:;
                                                                //   5406           ->STring %IF TYPE=5;              ! LHS IS A STRING
#line 5406 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_051a;
#line 5406 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 5406 "regression-compile-tmp/nrimp10s-77.imp"
L_051a:;
                                                                //   5407  BACK:    HEAD1=0;                      ! CLEAR TEMPORAYRY LIST HEADS
#line 5407 "regression-compile-tmp/nrimp10s-77.imp"
U_102e:;
#line 5407 "regression-compile-tmp/nrimp10s-77.imp"
HEAD1 = 0;
                                                                //   5408           TYPE=1 %UNLESS TYPE=2;        ! DEAL WITH UNSET NAMES
#line 5408 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (2))) goto L_051b;
#line 5408 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
#line 5408 "regression-compile-tmp/nrimp10s-77.imp"
L_051b:;
                                                                //   5409           TYPEP=TYPE
#line 5409 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
                                                                //   5410           NOPS=1<<18+1; P=P2+3
#line 5410 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = (((int)(((1) << (18)))) + (1));
#line 5410 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (3));
                                                                //   5411           PUSH(HEAD1,ASSOP&3+33,PRECP,0); ! ASSIGNMENT OPERATOR
#line 5411 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD1, (((int)(((ASSOP) & (3)))) + (33)), PRECP, 0);
                                                                //   5412           BOT1=HEAD1
#line 5412 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = HEAD1;
                                                                //   5413           PUSH(HEAD1,PTYPEP<<16!2,P1,0);  ! LHS
#line 5413 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD1, ((((PTYPEP) << (16))) | (2)), P1, 0);
                                                                //   5414           %IF ASSOP>4 %THEN %START
#line 5414 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) <= (4))) goto L_051c;
                                                                //   5415              FAULT(24,0) %UNLESS TYPE=RHTYPE
#line 5415 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (RHTYPE))) goto L_051d;
#line 5415 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 5415 "regression-compile-tmp/nrimp10s-77.imp"
L_051d:;
                                                                //   5416              PUSH(HEAD1,RHTYPE<<16!9,0,0)
#line 5416 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD1, ((((RHTYPE) << (16))) | (9)), 0, 0);
                                                                //   5417              OLINK(ACCR)=HEAD1
#line 5417 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = HEAD1;
                                                                //   5418           %FINISH %ELSE TORP(HEAD1,BOT1,NOPS); ! RHS TO REVERSE POLISH
#line 5418 "regression-compile-tmp/nrimp10s-77.imp"
goto L_051e;
#line 5418 "regression-compile-tmp/nrimp10s-77.imp"
L_051c:;
#line 5418 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&HEAD1, &BOT1, &NOPS);
#line 5418 "regression-compile-tmp/nrimp10s-77.imp"
L_051e:;
                                                                //   5419           EXPOP(HEAD1,-1,NOPS,256+PRECP<<4+TYPEP); ! PLANT CODE
#line 5419 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(HEAD1, (-1), NOPS, (((int)(((256) + ((int)(((PRECP) << (4))))))) + (TYPEP)));
                                                                //   5420  !        CLEAR LIST(HEAD1)
                                                                //   5421           ASLIST(BOT1)_LINK=ASL
#line 5421 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = ASL;
                                                                //   5422           ASL=HEAD1
#line 5422 "regression-compile-tmp/nrimp10s-77.imp"
ASL = HEAD1;
                                                                //   5423           %RETURN
#line 5423 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5424  !NA:      NOTE ASSMENT(-1,ASSOP&3,A(P1))
                                                                //   5425  STring:                                    ! STRINGS
#line 5425 "regression-compile-tmp/nrimp10s-77.imp"
U_1028:;
                                                                //   5426  !
                                                                //   5427  ! PICK OFF NULL STRINGS AND SUBSTITUTE A CRAFTY MVL FOR S=""
                                                                //   5428  !
                                                                //   5429           %IF A(P+3)=4 %AND A(P+4)=2 %AND A(P+5)=16_35 %AND A(P+10)=0 %AND A(P+11)=2 %THEN %START
#line 5429 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (4))) goto L_051f;
#line 5429 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (2))) goto L_051f;
#line 5429 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) != (53))) goto L_051f;
#line 5429 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (10))]) != (0))) goto L_051f;
#line 5429 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (11))]) != (2))) goto L_051f;
                                                                //   5430              Q=P+12-A(P+10)>>1
#line 5430 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((((((int)(P)) + (12)))) - ((unsigned char)((((unsigned char)(A[(((int)(P)) + (10))])) >> (1)))));
                                                                //   5431              P=P1; CNAME(1,DR)
#line 5431 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5431 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(1, 1);
                                                                //   5432              PF2(MVL,0,1,0,0,0)
#line 5432 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, 0, 1, 0, 0, 0);
                                                                //   5433              P=Q; %RETURN
#line 5433 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
#line 5433 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5434           %FINISH
#line 5434 "regression-compile-tmp/nrimp10s-77.imp"
L_051f:;
                                                                //   5435           %IF ASSOP<=3 %THEN CSTREXP(0,ACCR)
#line 5435 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) > (3))) goto L_0520;
#line 5435 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(0, 0);
#line 5435 "regression-compile-tmp/nrimp10s-77.imp"
L_0520:;
                                                                //   5436           ASSOP=ASSOP&3
#line 5436 "regression-compile-tmp/nrimp10s-77.imp"
ASSOP = ((ASSOP) & (3));
                                                                //   5437           QQ=STRINGL; Q=P
#line 5437 "regression-compile-tmp/nrimp10s-77.imp"
QQ = STRINGL;
#line 5437 "regression-compile-tmp/nrimp10s-77.imp"
Q = P;
                                                                //   5438           REGISTER(ACCR)=1
#line 5438 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   5439           OLINK(ACCR)=ADDR(R)
#line 5439 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   5440           R_PTYPE=16_51; R_FLAG=9; R_UPTYPE=0
#line 5440 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 81;
#line 5440 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
#line 5440 "regression-compile-tmp/nrimp10s-77.imp"
R.UPTYPE = 0;
                                                                //   5441           R_XB=ACCR
#line 5441 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = 0;
                                                                //   5442           P=P1; CNAME(1,DR)
#line 5442 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5442 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(1, 1);
                                                                //   5443           %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0)
#line 5443 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_0521;
#line 5443 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
#line 5443 "regression-compile-tmp/nrimp10s-77.imp"
L_0521:;
                                                                //   5444           PF1(IAD,0,PC,SPECIAL CONSTS(2))
#line 5444 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, 4, SPECIALCONSTS(2));
                                                                //   5445           %IF ASSOP#3 %AND (ROUT#0 %OR NAM#0=ARR) %AND QQ=0 %START
#line 5445 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) == (3))) goto L_0522;
#line 5445 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (0))) goto L_0523;
#line 5445 "regression-compile-tmp/nrimp10s-77.imp"
if ((((NAM) == (0))) || (((0) != (ARR)))) goto L_0522;
#line 5445 "regression-compile-tmp/nrimp10s-77.imp"
L_0523:;
#line 5445 "regression-compile-tmp/nrimp10s-77.imp"
if (((QQ) != (0))) goto L_0522;
                                                                //   5446                                          ! LHS=MAP : DR BOUND NOT VALID
                                                                //   5447                                          ! ALSO NAMES MAPPED ==STRING(ADDR)
                                                                //   5448              %IF PARMOPT#0 %THEN PPJ(0,18) %ELSE %START
#line 5448 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) == (0))) goto L_0524;
#line 5448 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 18);
#line 5448 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0525;
#line 5448 "regression-compile-tmp/nrimp10s-77.imp"
L_0524:;
                                                                //   5449                 PF1(STUH,0,BREG,0)
#line 5449 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
                                                                //   5450                 PF1(LUH,0,BREG,0)
#line 5450 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 7, 0);
                                                                //   5451                 PF1(LDB,0,BREG,0)
#line 5451 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   5452              %FINISH
#line 5452 "regression-compile-tmp/nrimp10s-77.imp"
L_0525:;
                                                                //   5453              GRUSE(BREG)=0
#line 5453 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   5454           %FINISH
#line 5454 "regression-compile-tmp/nrimp10s-77.imp"
L_0522:;
                                                                //   5455           GRUSE(ACCR)=0
#line 5455 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5456           REGISTER(ACCR)=0
#line 5456 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   5457           %IF QQ>0 %AND ASSOP#3 %THEN PF2(MV,0,0,QQ,0,0) %ELSESTART
#line 5457 "regression-compile-tmp/nrimp10s-77.imp"
if (((QQ) <= (0))) goto L_0526;
#line 5457 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) == (3))) goto L_0526;
#line 5457 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 0, 0, QQ, 0, 0);
#line 5457 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0527;
#line 5457 "regression-compile-tmp/nrimp10s-77.imp"
L_0526:;
                                                                //   5458              %IF ASSOP=3 %THEN PF1(STD,0,TOS,0)
#line 5458 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (3))) goto L_0528;
#line 5458 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
#line 5458 "regression-compile-tmp/nrimp10s-77.imp"
L_0528:;
                                                                //   5459              PF2(MV,1,1,0,0,UNASSPAT&255)
#line 5459 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   5460              %IF PARMARR#0 %OR ASSOP=3 %THEN PSF1(USH,0,8) %AND PSF1(USH,0,-40)
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) != (0))) goto L_0529;
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (3))) goto L_052a;
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
L_0529:;
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, 8);
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-40));
#line 5460 "regression-compile-tmp/nrimp10s-77.imp"
L_052a:;
                                                                //   5461              %IF PARMARR#0 %AND ASSOP=2 %THEN PPJ(36,9)
#line 5461 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) == (0))) goto L_052b;
#line 5461 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (2))) goto L_052b;
#line 5461 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(36, 9);
#line 5461 "regression-compile-tmp/nrimp10s-77.imp"
L_052b:;
                                                                //   5462              %IF ASSOP=3 %THEN %START
#line 5462 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (3))) goto L_052c;
                                                                //   5463                 PF1(IRSB,2,TOS,0)
#line 5463 "regression-compile-tmp/nrimp10s-77.imp"
PF1(228, 2, 6, 0);
                                                                //   5464                 PF1(ST,2,7,0);           ! STORE AMENDED CURRENT LENGTH  {EMAS Imp9 vs Imp77 - ST is both a constant and a label in EMAS Imp9}
#line 5464 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 2, 7, 0);
                                                                //   5465              %FINISH
#line 5465 "regression-compile-tmp/nrimp10s-77.imp"
L_052c:;
                                                                //   5466           %FINISH
#line 5466 "regression-compile-tmp/nrimp10s-77.imp"
L_0527:;
                                                                //   5467           P=Q; %RETURN
#line 5467 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
#line 5467 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5468  !
                                                                //   5469  ! THIS SECTION DEALS WITH OPERATIONS ON COMPLETE RECORDS
                                                                //   5470  !
                                                                //   5471  RECOP:                                   ! LHS IS RECORD WITHOUT SUBNAME
#line 5471 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
                                                                //   5472           REG=ACCR;                      ! IN CASE FAULT 66
#line 5472 "regression-compile-tmp/nrimp10s-77.imp"
REG = 0;
                                                                //   5473           Q=TSEXP(JJJ)
#line 5473 "regression-compile-tmp/nrimp10s-77.imp"
Q = TSEXP(&JJJ);
                                                                //   5474           %IF Q=1 %AND JJJ=0 %START;     ! CLEAR A RECORD TO ZERO
#line 5474 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) != (1))) goto L_052d;
#line 5474 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) != (0))) goto L_052d;
                                                                //   5475              P=P1; CNAME(3,DR)
#line 5475 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5475 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, 1);
                                                                //   5476              %IF ACC<=128 %THEN JJ=0 %AND KK=ACC-1 %ELSE %START
#line 5476 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACC) > (128))) goto L_052e;
#line 5476 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 0;
#line 5476 "regression-compile-tmp/nrimp10s-77.imp"
KK = (((int)(ACC)) - (1));
#line 5476 "regression-compile-tmp/nrimp10s-77.imp"
goto L_052f;
#line 5476 "regression-compile-tmp/nrimp10s-77.imp"
L_052e:;
                                                                //   5477                 JJ=1; KK=0
#line 5477 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 1;
#line 5477 "regression-compile-tmp/nrimp10s-77.imp"
KK = 0;
                                                                //   5478                 %IF NAM#0 %OR ARR#0 %THEN PSF1(LDB,0,ACC)
#line 5478 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_0530;
#line 5478 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_0531;
#line 5478 "regression-compile-tmp/nrimp10s-77.imp"
L_0530:;
#line 5478 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, ACC);
#line 5478 "regression-compile-tmp/nrimp10s-77.imp"
L_0531:;
                                                                //   5479              %FINISH
#line 5479 "regression-compile-tmp/nrimp10s-77.imp"
L_052f:;
                                                                //   5480              PF2(MVL,JJ,1,KK,0,0)
#line 5480 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, JJ, 1, KK, 0, 0);
                                                                //   5481           %FINISH %ELSE %START
#line 5481 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0532;
#line 5481 "regression-compile-tmp/nrimp10s-77.imp"
L_052d:;
                                                                //   5482              ->BACK %UNLESS TYPE=3 %AND A(P2+3)=4 %AND A(P2+4)=1
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0533;
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (3))]) != (4))) goto L_0533;
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (4))]) == (1))) goto L_0534;
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
L_0533:;
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
#line 5482 "regression-compile-tmp/nrimp10s-77.imp"
L_0534:;
                                                                //   5483              P=P2+5; CNAME(3,ACCR)
#line 5483 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (5));
#line 5483 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, 0);
                                                                //   5484              ACCP=ACC
#line 5484 "regression-compile-tmp/nrimp10s-77.imp"
ACCP = ACC;
                                                                //   5485              %UNLESS A(P)=2 %THEN FAULT2(66,0,LHNAME) %AND ->F00
#line 5485 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_0535;
#line 5485 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(66, 0, LHNAME);
#line 5485 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
#line 5485 "regression-compile-tmp/nrimp10s-77.imp"
L_0535:;
                                                                //   5486              R_PTYPE=16_61; R_FLAG=9
#line 5486 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 97;
#line 5486 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
                                                                //   5487              R_XB=ACCR<<5; R_D=0
#line 5487 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = ((0) << (5));
#line 5487 "regression-compile-tmp/nrimp10s-77.imp"
R.D = 0;
                                                                //   5488              OLINK(ACCR)=ADDR(R)
#line 5488 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   5489              REGISTER(ACCR)=1
#line 5489 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   5490              P=P1; CNAME(3,DR)
#line 5490 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5490 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, 1);
                                                                //   5491              REGISTER(ACCR)=0
#line 5491 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   5492              %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0)
#line 5492 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_0536;
#line 5492 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
#line 5492 "regression-compile-tmp/nrimp10s-77.imp"
L_0536:;
                                                                //   5493              %IF ASSOP=2 %AND ACCP#ACC %THEN FAULT2(67,LHNAME,FROMAR2(P2+5)) %AND ->F00
#line 5493 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (2))) goto L_0537;
#line 5493 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCP) == (ACC))) goto L_0537;
#line 5493 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(67, LHNAME, FROMAR2((((int)(P2)) + (5))));
#line 5493 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
#line 5493 "regression-compile-tmp/nrimp10s-77.imp"
L_0537:;
                                                                //   5494              %IF ACCP>ACC %THEN ACCP=ACC
#line 5494 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCP) <= (ACC))) goto L_0538;
#line 5494 "regression-compile-tmp/nrimp10s-77.imp"
ACCP = ACC;
#line 5494 "regression-compile-tmp/nrimp10s-77.imp"
L_0538:;
                                                                //   5495              {%UNTIL ACCP=0} %CYCLE
#line 5495 "regression-compile-tmp/nrimp10s-77.imp"
L_0539:;
                                                                //   5496                 %IF ACCP>128 %THEN KK=128 %ELSE KK=ACCP
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCP) <= (128))) goto L_053c;
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
KK = 128;
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
goto L_053d;
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
L_053c:;
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
KK = ACCP;
#line 5496 "regression-compile-tmp/nrimp10s-77.imp"
L_053d:;
                                                                //   5497                 PF2(MV,0,0,KK-1,0,0)
#line 5497 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 0, 0, (((int)(KK)) - (1)), 0, 0);
                                                                //   5498                 ACCP=ACCP-KK
#line 5498 "regression-compile-tmp/nrimp10s-77.imp"
ACCP = (((int)(ACCP)) - (KK));
                                                                //   5499              %REPEAT %UNTIL ACCP=0
#line 5499 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCP) == (0))) goto L_053a;
#line 5499 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0539;
#line 5499 "regression-compile-tmp/nrimp10s-77.imp"
L_053a:;
                                                                //   5500              GRUSE(ACCR)=0
#line 5500 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5501           %FINISH
#line 5501 "regression-compile-tmp/nrimp10s-77.imp"
L_0532:;
                                                                //   5502           P=P2; SKIP EXP
#line 5502 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
#line 5502 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   5503           GRUSE(DR)=0
#line 5503 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   5504           %RETURN
#line 5504 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5505  SW(0):                                 ! RESOLUTION
#line 5505 "regression-compile-tmp/nrimp10s-77.imp"
sw14_SW_0:;
                                                                //   5506           P=P1; CNAME(2,DR)
#line 5506 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 5506 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(2, 1);
                                                                //   5507           P=P2;
#line 5507 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
                                                                //   5508           %IF TYPE=5 %THEN CRES(0) %ELSE %START
#line 5508 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_053e;
#line 5508 "regression-compile-tmp/nrimp10s-77.imp"
CRES(0);
#line 5508 "regression-compile-tmp/nrimp10s-77.imp"
goto L_053f;
#line 5508 "regression-compile-tmp/nrimp10s-77.imp"
L_053e:;
                                                                //   5509              SKIP EXP
#line 5509 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   5510              FAULT2(71,0,FROMAR2(P1)) %UNLESS TYPE=7
#line 5510 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (7))) goto L_0540;
#line 5510 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(71, 0, FROMAR2(P1));
#line 5510 "regression-compile-tmp/nrimp10s-77.imp"
L_0540:;
                                                                //   5511           %FINISH
#line 5511 "regression-compile-tmp/nrimp10s-77.imp"
L_053f:;
                                                                //   5512           %RETURN
#line 5512 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5513  SW(1):                                 ! '==' AND %NAME PARAMETERS
#line 5513 "regression-compile-tmp/nrimp10s-77.imp"
sw14_SW_1:;
                                                                //   5514           REG=ACCR; STCODE=ST;           ! NORMALLY USE ACC
#line 5514 "regression-compile-tmp/nrimp10s-77.imp"
REG = 0;
#line 5514 "regression-compile-tmp/nrimp10s-77.imp"
STCODE = 72;
                                                                //   5515           ->F81 %UNLESS A(P2+3)=4 %AND A(P2+4)=1
#line 5515 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (3))]) != (4))) goto L_0541;
#line 5515 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (4))]) == (1))) goto L_0542;
#line 5515 "regression-compile-tmp/nrimp10s-77.imp"
L_0541:;
#line 5515 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1033;
#line 5515 "regression-compile-tmp/nrimp10s-77.imp"
L_0542:;
                                                                //   5516           FAULT2(82,0,LHNAME) %AND ->F00 %UNLESS NAM=1; ! ONLY POINTERS ON LHS OF==
#line 5516 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) == (1))) goto L_0543;
#line 5516 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(82, 0, LHNAME);
#line 5516 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
#line 5516 "regression-compile-tmp/nrimp10s-77.imp"
L_0543:;
                                                                //   5517           P=P2+5
#line 5517 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (5));
                                                                //   5518           RHNAME=A(P)<<8!A(P+1)
#line 5518 "regression-compile-tmp/nrimp10s-77.imp"
RHNAME = ((((A[P]) << (8))) | (A[(((int)(P)) + (1))]));
                                                                //   5519           ->ARRNAME %IF ARR=1
#line 5519 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (1))) goto L_0544;
#line 5519 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1034;
#line 5519 "regression-compile-tmp/nrimp10s-77.imp"
L_0544:;
                                                                //   5520           %IF A(P1+2)=2=A(P1+3) %START;  ! LHS SCALAR POINTERNAME
#line 5520 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(P1)) + (2))]) != (2))) || (((2) != (A[(((int)(P1)) + (3))])))) goto L_0545;
                                                                //   5521              COPYTAG(RHNAME)        ;    ! LOOK AT RHS
#line 5521 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(RHNAME);
                                                                //   5522              %IF PTYPE#SNPT %AND ARR#0 %THEN REG=DR %AND STCODE=STD
#line 5522 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) == (4102))) goto L_0546;
#line 5522 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_0546;
#line 5522 "regression-compile-tmp/nrimp10s-77.imp"
REG = 1;
#line 5522 "regression-compile-tmp/nrimp10s-77.imp"
STCODE = 88;
#line 5522 "regression-compile-tmp/nrimp10s-77.imp"
L_0546:;
                                                                //   5523           %FINISH
#line 5523 "regression-compile-tmp/nrimp10s-77.imp"
L_0545:;
                                                                //   5524           CNAME(3,REG);                  ! DESCRPTR TO ACC
#line 5524 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, REG);
                                                                //   5525           R_PTYPE=16_61; R_FLAG=9
#line 5525 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 97;
#line 5525 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
                                                                //   5526           R_XB=REG
#line 5526 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = REG;
                                                                //   5527           OLINK(REG)=ADDR(R)
#line 5527 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[REG] = _imp_ADDR(&R);
                                                                //   5528           REGISTER(REG)=1
#line 5528 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 1;
                                                                //   5529           ->F81 %UNLESS A(P)=2;          ! NO REST OF EXP ON RHS
#line 5529 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_0547;
#line 5529 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1033;
#line 5529 "regression-compile-tmp/nrimp10s-77.imp"
L_0547:;
                                                                //   5530           Q=P+1; P=P1
#line 5530 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(P)) + (1));
#line 5530 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
                                                                //   5531           ->F83 %UNLESS TYPE=TYPEP %AND PREC=PRECP
#line 5531 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (TYPEP))) goto L_0548;
#line 5531 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (PRECP))) goto L_0549;
#line 5531 "regression-compile-tmp/nrimp10s-77.imp"
L_0548:;
#line 5531 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1035;
#line 5531 "regression-compile-tmp/nrimp10s-77.imp"
L_0549:;
                                                                //   5532           ->F86 %UNLESS OLDI<=LVL %OR BASE=0 %OR NAM#0
#line 5532 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) <= (LVL))) goto L_054a;
#line 5532 "regression-compile-tmp/nrimp10s-77.imp"
if (((BASE) == (0))) goto L_054a;
#line 5532 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_054a;
#line 5532 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1036;
#line 5532 "regression-compile-tmp/nrimp10s-77.imp"
L_054a:;
                                                                //   5533                                          ! GLOBAL == NONOWN LOCAL
                                                                //   5534           CNAME(6,0)
#line 5534 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(6, 0);
                                                                //   5535           %IF R_FLAG#9 %THEN %START
#line 5535 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_054b;
                                                                //   5536              %IF REG#ACCR %THEN ABORT
#line 5536 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (0))) goto L_054c;
#line 5536 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 5536 "regression-compile-tmp/nrimp10s-77.imp"
L_054c:;
                                                                //   5537              PF1(LSD,0,TOS,0)
#line 5537 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
                                                                //   5538              GRUSE(ACCR)=0
#line 5538 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   5539           %FINISH
#line 5539 "regression-compile-tmp/nrimp10s-77.imp"
L_054b:;
                                                                //   5540           REGISTER(REG)=0
#line 5540 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 0;
                                                                //   5541  COM:     PSORLF1(STCODE,ACCESS,AREA CODE,DISP)
#line 5541 "regression-compile-tmp/nrimp10s-77.imp"
U_1037:;
#line 5541 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(STCODE, ACCESS, AREACODE(), DISP);
                                                                //   5542           %IF REG=DR %AND ACCESS#0 %THEN ABORT
#line 5542 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (1))) goto L_054d;
#line 5542 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) == (0))) goto L_054d;
#line 5542 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 5542 "regression-compile-tmp/nrimp10s-77.imp"
L_054d:;
                                                                //   5543           NOTE ASSMENT(REG,1,A(P1)<<8!A(P1+1))
#line 5543 "regression-compile-tmp/nrimp10s-77.imp"
NOTEASSMENT(REG, 1, ((((A[P1]) << (8))) | (A[(((int)(P1)) + (1))])));
                                                                //   5544           P=Q; %RETURN
#line 5544 "regression-compile-tmp/nrimp10s-77.imp"
P = Q;
#line 5544 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   5545  ARRNAME: CNAME(12,ACCR)
#line 5545 "regression-compile-tmp/nrimp10s-77.imp"
U_1034:;
#line 5545 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(12, 0);
                                                                //   5546           %IF ACCESS>=8 %THEN ACCESS=ACCESS-4 %ELSE ACCESS=0
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) < (8))) goto L_054e;
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(ACCESS)) - (4));
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
goto L_054f;
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
L_054e:;
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 5546 "regression-compile-tmp/nrimp10s-77.imp"
L_054f:;
                                                                //   5547           ->F83 %UNLESS TYPE=TYPEP %AND PREC=PRECP %AND ARR>0
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (TYPEP))) goto L_0550;
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (PRECP))) goto L_0550;
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) > (0))) goto L_0551;
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
L_0550:;
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1035;
#line 5547 "regression-compile-tmp/nrimp10s-77.imp"
L_0551:;
                                                                //   5548           ->F86 %UNLESS OLDI<=LVL %OR BASE=0 %OR NAM#0
#line 5548 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDI) <= (LVL))) goto L_0552;
#line 5548 "regression-compile-tmp/nrimp10s-77.imp"
if (((BASE) == (0))) goto L_0552;
#line 5548 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_0552;
#line 5548 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1036;
#line 5548 "regression-compile-tmp/nrimp10s-77.imp"
L_0552:;
                                                                //   5549                                          ! GLOBAL == NONOWN LOCAL
                                                                //   5550           TYPE=0
#line 5550 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 0;
                                                                //   5551           NAMEOP(2,ACCR,16,-1)
#line 5551 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(2, 0, 16, (-1));
                                                                //   5552           R_PTYPE=16_72; R_UPTYPE=0
#line 5552 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 114;
#line 5552 "regression-compile-tmp/nrimp10s-77.imp"
R.UPTYPE = 0;
                                                                //   5553           R_FLAG=9; R_XB=ACCR
#line 5553 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
#line 5553 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = 0;
                                                                //   5554           R_D=-1
#line 5554 "regression-compile-tmp/nrimp10s-77.imp"
R.D = (-1);
                                                                //   5555           REGISTER(ACCR)=1
#line 5555 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   5556           OLINK(ACCR)=ADDR(R)
#line 5556 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   5557           ->F81 %UNLESS A(P)=2
#line 5557 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_0553;
#line 5557 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1033;
#line 5557 "regression-compile-tmp/nrimp10s-77.imp"
L_0553:;
                                                                //   5558           Q=P+1; P=P1
#line 5558 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(P)) + (1));
#line 5558 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
                                                                //   5559           CNAME(6,0)
#line 5559 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(6, 0);
                                                                //   5560           PF1(LSQ,0,TOS,0) %UNLESS R_FLAG=9
#line 5560 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_0554;
#line 5560 "regression-compile-tmp/nrimp10s-77.imp"
PF1(102, 0, 6, 0);
#line 5560 "regression-compile-tmp/nrimp10s-77.imp"
L_0554:;
                                                                //   5561           REGISTER(ACCR)=0
#line 5561 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   5562           ->COM
#line 5562 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1037;
                                                                //   5563  F83:     FAULT2(83,LHNAME,RHNAME); ->F00
#line 5563 "regression-compile-tmp/nrimp10s-77.imp"
U_1035:;
#line 5563 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(83, LHNAME, RHNAME);
#line 5563 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
                                                                //   5564  F86:     FAULT2(86,LHNAME,RHNAME); ->F00
#line 5564 "regression-compile-tmp/nrimp10s-77.imp"
U_1036:;
#line 5564 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(86, LHNAME, RHNAME);
#line 5564 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102f;
                                                                //   5565  F81:    FAULT2(81,0,LHNAME)
#line 5565 "regression-compile-tmp/nrimp10s-77.imp"
U_1033:;
#line 5565 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(81, 0, LHNAME);
                                                                //   5566  F00:
#line 5566 "regression-compile-tmp/nrimp10s-77.imp"
U_102f:;
                                                                //   5567           REGISTER(REG)=0
#line 5567 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 0;
                                                                //   5568           P=P2; SKIP EXP
#line 5568 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
#line 5568 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   5569           %END
#line 5569 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ASSIGN at level 5
                                                                //   5570           %ROUTINE CSEXP(%INTEGER REG,MODE)
#line 5570 "regression-compile-tmp/nrimp10s-77.imp"
void CSEXP( int REG, int MODE )
#line 5570 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5571  !***********************************************************************
                                                                //   5572  !*       COMPILE A SIGNED EXPRESSION TO REGISTER 'REG' IN MODE 'MODE'  *
                                                                //   5573  !*       MODE=1 FOR %INTEGER, =2 REAL, =3 LONG,=0 INTEGER %IF POSSIBLE *
                                                                //   5574  !*       MODE=5 FOR ADDRESS EXPRESSNS(IE LEAVE ANY CONSTANT IN 'ADISP')*
                                                                //   5575  !***********************************************************************
                                                                //   5576  %INTEGER EXPHEAD,NOPS,EXPBOT
#line 5576 "regression-compile-tmp/nrimp10s-77.imp"
int EXPHEAD;
#line 5576 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 5576 "regression-compile-tmp/nrimp10s-77.imp"
int EXPBOT;
                                                                //   5577           EXPHEAD=0; EXPBOT=0
#line 5577 "regression-compile-tmp/nrimp10s-77.imp"
EXPHEAD = 0;
#line 5577 "regression-compile-tmp/nrimp10s-77.imp"
EXPBOT = 0;
                                                                //   5578           NOPS=0
#line 5578 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
                                                                //   5579           P=P+3
#line 5579 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   5580           TORP(EXPHEAD,EXPBOT,NOPS)
#line 5580 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&EXPHEAD, &EXPBOT, &NOPS);
                                                                //   5581  !
                                                                //   5582           EXPOP(EXPHEAD,REG,NOPS,MODE)
#line 5582 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(EXPHEAD, REG, NOPS, MODE);
                                                                //   5583  !         CLEAR LIST(EXPHEAD)
                                                                //   5584           ASLIST(EXPBOT)_LINK=ASL
#line 5584 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[EXPBOT].LINK = ASL;
                                                                //   5585           ASL=EXPHEAD
#line 5585 "regression-compile-tmp/nrimp10s-77.imp"
ASL = EXPHEAD;
                                                                //   5586           %END
#line 5586 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSEXP at level 5
                                                                //   5587  %INTEGERFN CONSTEXP(%INTEGER PRECTYPE)
#line 5587 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTEXP( int PRECTYPE )
#line 5587 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5588  !***********************************************************************
                                                                //   5589  !*    COMPILES AN EXPRESSION WHICH SHOULD EVALUATE TO A CONSTANT OF    *
                                                                //   5590  !*    TYPE 'PRECTYPE'. P AS FOR FN INTEXP.                             *
                                                                //   5591  !***********************************************************************
                                                                //   5592  %INTEGER EXPHEAD,EXPBOT,NOPS,RES
#line 5592 "regression-compile-tmp/nrimp10s-77.imp"
int EXPHEAD;
#line 5592 "regression-compile-tmp/nrimp10s-77.imp"
int EXPBOT;
#line 5592 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 5592 "regression-compile-tmp/nrimp10s-77.imp"
int RES;
                                                                //   5593        EXPHEAD=0; EXPBOT=0; NOPS=0; RES=0
#line 5593 "regression-compile-tmp/nrimp10s-77.imp"
EXPHEAD = 0;
#line 5593 "regression-compile-tmp/nrimp10s-77.imp"
EXPBOT = 0;
#line 5593 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
#line 5593 "regression-compile-tmp/nrimp10s-77.imp"
RES = 0;
                                                                //   5594        TORP(EXPHEAD,EXPBOT,NOPS)
#line 5594 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&EXPHEAD, &EXPBOT, &NOPS);
                                                                //   5595        ->WAYOUT %UNLESS NOPS&16_00040000=0
#line 5595 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NOPS) & (262144))) == (0))) goto L_0555;
#line 5595 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1038;
#line 5595 "regression-compile-tmp/nrimp10s-77.imp"
L_0555:;
                                                                //   5596        EXPOP(EXPHEAD,ACCR,NOPS,16_200+PRECTYPE)
#line 5596 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(EXPHEAD, 0, NOPS, (((int)(512)) + (PRECTYPE)));
                                                                //   5597        %IF EXPOPND_FLAG=3 %THEN RES=EXPOPND_XTRA %AND ->WAYOUT
#line 5597 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) != (3))) goto L_0556;
#line 5597 "regression-compile-tmp/nrimp10s-77.imp"
RES = EXPOPND.XTRA;
#line 5597 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1038;
#line 5597 "regression-compile-tmp/nrimp10s-77.imp"
L_0556:;
                                                                //   5598        ->WAYOUT %UNLESS EXPOPND_FLAG<=1
#line 5598 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) <= (1))) goto L_0557;
#line 5598 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1038;
#line 5598 "regression-compile-tmp/nrimp10s-77.imp"
L_0557:;
                                                                //   5599        RES=ADDR(EXPOPND_D)
#line 5599 "regression-compile-tmp/nrimp10s-77.imp"
RES = _imp_ADDR(&EXPOPND.D);
                                                                //   5600  WAYOUT:
#line 5600 "regression-compile-tmp/nrimp10s-77.imp"
U_1038:;
                                                                //   5601        %MONITOR %IF RES=0 %AND DCOMP#0
#line 5601 "regression-compile-tmp/nrimp10s-77.imp"
if (((RES) != (0))) goto L_0558;
#line 5601 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) == (0))) goto L_0558;
#line 5601 "regression-compile-tmp/nrimp10s-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 5601 "regression-compile-tmp/nrimp10s-77.imp"
L_0558:;
                                                                //   5602        ASLIST(EXPBOT)_LINK=ASL
#line 5602 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[EXPBOT].LINK = ASL;
                                                                //   5603        ASL=EXPHEAD
#line 5603 "regression-compile-tmp/nrimp10s-77.imp"
ASL = EXPHEAD;
                                                                //   5604        %RESULT=RES
#line 5604 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return RES;
                                                                //   5605  %END
#line 5605 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block CONSTEXP at level 5
                                                                //   5606  %INTEGERFN INTEXP(%INTEGERNAME VALUE)
#line 5606 "regression-compile-tmp/nrimp10s-77.imp"
int INTEXP( int /*name*/*VALUE )
#line 5606 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5607  !***********************************************************************
                                                                //   5608  !*    COMPILES AN EXPRESSION WHICH SHOULD EVALUATE TO A CONSTANT       *
                                                                //   5609  !*    VALUE RETURNED IN VALUE. RESULT#0 IF FAILED TO EVALUATE          *
                                                                //   5610  !*    P POINTS TO P(+') IN (+')(OPERNAD)(RESTOFEXPR)                   *
                                                                //   5611  !***********************************************************************
                                                                //   5612  %INTEGER EXPHEAD,EXPBOT,NOPS,CODE,SPTYPE,SACC
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int EXPHEAD;
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int EXPBOT;
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int CODE;
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int SPTYPE;
#line 5612 "regression-compile-tmp/nrimp10s-77.imp"
int SACC;
                                                                //   5613        EXPHEAD=0; EXPBOT=0; NOPS=0; CODE=0
#line 5613 "regression-compile-tmp/nrimp10s-77.imp"
EXPHEAD = 0;
#line 5613 "regression-compile-tmp/nrimp10s-77.imp"
EXPBOT = 0;
#line 5613 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
#line 5613 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 0;
                                                                //   5614        SPTYPE=PTYPE; SACC=ACC;           ! CALLED IN DECLARATIONS
#line 5614 "regression-compile-tmp/nrimp10s-77.imp"
SPTYPE = PTYPE;
#line 5614 "regression-compile-tmp/nrimp10s-77.imp"
SACC = ACC;
                                                                //   5615        TORP(EXPHEAD,EXPBOT,NOPS)
#line 5615 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&EXPHEAD, &EXPBOT, &NOPS);
                                                                //   5616        %IF NOPS&16_00040000=0 %AND TYPE=1 %START
#line 5616 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NOPS) & (262144))) != (0))) goto L_0559;
#line 5616 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_0559;
                                                                //   5617           EXPOP(EXPHEAD,ACCR,NOPS,16_251)
#line 5617 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(EXPHEAD, 0, NOPS, 593);
                                                                //   5618           CODE=1 %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51
#line 5618 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) > (1))) goto L_053b;
#line 5618 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.PTYPE) == (81))) goto L_055a;
#line 5618 "regression-compile-tmp/nrimp10s-77.imp"
L_053b:;
#line 5618 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 1;
#line 5618 "regression-compile-tmp/nrimp10s-77.imp"
L_055a:;
                                                                //   5619           VALUE=EXPOPND_D
#line 5619 "regression-compile-tmp/nrimp10s-77.imp"
*VALUE = EXPOPND.D;
                                                                //   5620        %FINISH %ELSE CODE=1 %AND VALUE=1
#line 5620 "regression-compile-tmp/nrimp10s-77.imp"
goto L_055b;
#line 5620 "regression-compile-tmp/nrimp10s-77.imp"
L_0559:;
#line 5620 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 1;
#line 5620 "regression-compile-tmp/nrimp10s-77.imp"
*VALUE = 1;
#line 5620 "regression-compile-tmp/nrimp10s-77.imp"
L_055b:;
                                                                //   5621        ASLIST(EXPBOT)_LINK=ASL
#line 5621 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[EXPBOT].LINK = ASL;
                                                                //   5622        ASL=EXPHEAD
#line 5622 "regression-compile-tmp/nrimp10s-77.imp"
ASL = EXPHEAD;
                                                                //   5623        ACC=SACC; PTYPE=SPTYPE
#line 5623 "regression-compile-tmp/nrimp10s-77.imp"
ACC = SACC;
#line 5623 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = SPTYPE;
                                                                //   5624        UNPACK
#line 5624 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   5625        %RESULT=CODE
#line 5625 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return CODE;
                                                                //   5626  %END
#line 5626 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block INTEXP at level 5
                                                                //   5627           %ROUTINE TORP(%INTEGERNAME HEAD,BOT,NOPS)
#line 5627 "regression-compile-tmp/nrimp10s-77.imp"
void TORP( int /*name*/*HEAD, int /*name*/*BOT, int /*name*/*NOPS )
#line 5627 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5628  !***********************************************************************
                                                                //   5629  !*       CONVERT THE SIGNED EXPRESSION INDEXED BY P INTO REVERSE       *
                                                                //   5630  !*      POLISH NOTATION. THE REVERSE POLISH LIST IS ADDED TO 'HEAD'    *
                                                                //   5631  !*      WHICH MAY CONTAIN ANOTHER EXPRESSION. THE NUMBER OF OPERATORS  *
                                                                //   5632  !*      IS ADDED TO NOPS.                                              *
                                                                //   5633  !*      N.B. AN INTEGER EXPRESSION IS A SPECIAL CASE OF A REAL EXPRSN  *
                                                                //   5634  !*    THE TOP 20 BITS OF NOPS ARE USED TO RETURN DETAILS OF THE EXPR   *
                                                                //   5635  !*    THESE BITS SIGNIFY AS FOLLOWS:-                                  *
                                                                //   5636  !*    1<<17    CONTAINS VARIABLE OF MORE THAN 32 BITS                  *
                                                                //   5637  !*    1<<18    NOT CONSTANT EXPRSSN IE CONTAINS AT LEAST 1 VARIABLE    *
                                                                //   5638  !*    1<<19    COMPLEX IE CONTAINS FN CALL OR NEEDS DR TO EVALUATE     *
                                                                //   5639  !*    1<<20    CONTAINS THE OPERATOR +                                 *
                                                                //   5640  !*    1<<21    CONTAINS THE - OPERATOR(INCLUDES UNARY MINUS)           *
                                                                //   5641  !*    1<<22    CONTAINS OPERATOR !! (INCUDES UNARY NOT)                *
                                                                //   5642  !*    1<<23-7  CONTAINS OPERATORS !,*,//,/,& RESPECTIVELY              *
                                                                //   5643  !*    1<28&9   CONTAINS << OR >>                                       *
                                                                //   5644  !*    1<<30    CONTAINS EXPONETIATION                                  *
                                                                //   5645  !***********************************************************************
                                                                //   5646  %SWITCH OPERAND(1:3)
#line 5646 "regression-compile-tmp/nrimp10s-77.imp"
static int sw15_OPERAND_idx;
static const void * /*SWITCH*/ sw15_OPERAND[3] = { &&sw15_OPERAND_1, &&sw15_OPERAND_2, &&sw15_OPERAND_3,  };
                                                                //   5647  %CONSTBYTEINTEGERARRAY PRECEDENCE(1:15)=3,3,4,5,5,4,3,3,4,4,5,5,3,5,5;
#line 5647 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char PRECEDENCE[15] = { 3, 3, 4, 5, 5, 4, 3, 3, 4, 4, 5, 5, 3, 5, 5,  };
                                                                //   5648  %CONSTBYTEINTEGERARRAY OPVAL(1:15)=20,21,27,37,30,24,22,23,25,26,
#line 5648 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char OPVAL[15] = { 20, 21, 27, 37, 30, 24, 22, 23, 25, 26, 28, 29, 20, 37, 30,  };
                                                                //   5649                                     28,29,20,37,30;
                                                                //   5650  %INTEGER RPHEAD,PASSHEAD,SAVEHEAD,REAL,REALOP,COMPLEX,{%C
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int RPHEAD;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int PASSHEAD;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int SAVEHEAD;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int REAL;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int REALOP;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int COMPLEX;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPERATOR;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPPREC;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPND;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int C;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int E;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int RPTYPE;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int RPINF;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int BDISP;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPNAME;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPMASK;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int XTRA;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int RPBOT;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPSTK;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int OPPSTK;
#line 5650 "regression-compile-tmp/nrimp10s-77.imp"
int PASSBOT;
                                                                //   5651           OPERATOR,OPPREC,OPND,C,D,E,RPTYPE,RPINF,BDISP,{%C
                                                                //   5652           OPNAME,OPMASK,XTRA,RPBOT,OPSTK,OPPSTK,PASSBOT
                                                                //   5653  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 5653 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   5654  !
                                                                //   5655           PASSHEAD=0; RPHEAD=0; SAVEHEAD=0
#line 5655 "regression-compile-tmp/nrimp10s-77.imp"
PASSHEAD = 0;
#line 5655 "regression-compile-tmp/nrimp10s-77.imp"
RPHEAD = 0;
#line 5655 "regression-compile-tmp/nrimp10s-77.imp"
SAVEHEAD = 0;
                                                                //   5656           REAL=0; REALOP=0; BDISP=0
#line 5656 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 0;
#line 5656 "regression-compile-tmp/nrimp10s-77.imp"
REALOP = 0;
#line 5656 "regression-compile-tmp/nrimp10s-77.imp"
BDISP = 0;
                                                                //   5657           RPBOT=0; OPSTK=0; OPPSTK=0
#line 5657 "regression-compile-tmp/nrimp10s-77.imp"
RPBOT = 0;
#line 5657 "regression-compile-tmp/nrimp10s-77.imp"
OPSTK = 0;
#line 5657 "regression-compile-tmp/nrimp10s-77.imp"
OPPSTK = 0;
                                                                //   5658  !
                                                                //   5659           C=A(P)
#line 5659 "regression-compile-tmp/nrimp10s-77.imp"
C = A[P];
                                                                //   5660           %IF 2<=C<=3 %THEN %START;     ! INITIAL '-' OR '\'
#line 5660 "regression-compile-tmp/nrimp10s-77.imp"
if ((((2) > (C))) || (((C) > (3)))) goto L_055c;
                                                                //   5661              NOPS=NOPS+1
#line 5661 "regression-compile-tmp/nrimp10s-77.imp"
*NOPS = ((*(int *)(NOPS)) + (1));
                                                                //   5662                                         ! '-' =(11,3)   '\' =(10,5)
                                                                //   5663              OPSTK=4-C
#line 5663 "regression-compile-tmp/nrimp10s-77.imp"
OPSTK = (((int)(4)) - (C));
                                                                //   5664              OPPSTK=C<<1-1
#line 5664 "regression-compile-tmp/nrimp10s-77.imp"
OPPSTK = (((int)(((C) << (1)))) - (1));
                                                                //   5665              OPMASK=1<<(19+C);          ! - %OR !!
#line 5665 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = ((1) << ((((int)(19)) + (C))));
                                                                //   5666           %FINISH %ELSE OPMASK=0
#line 5666 "regression-compile-tmp/nrimp10s-77.imp"
goto L_055d;
#line 5666 "regression-compile-tmp/nrimp10s-77.imp"
L_055c:;
#line 5666 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = 0;
#line 5666 "regression-compile-tmp/nrimp10s-77.imp"
L_055d:;
                                                                //   5667  NEXTOPND:OPND=A(P+1); P=P+2
#line 5667 "regression-compile-tmp/nrimp10s-77.imp"
U_1033:;
#line 5667 "regression-compile-tmp/nrimp10s-77.imp"
OPND = A[(((int)(P)) + (1))];
#line 5667 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   5668           COMPLEX=0; XTRA=0
#line 5668 "regression-compile-tmp/nrimp10s-77.imp"
COMPLEX = 0;
#line 5668 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = 0;
                                                                //   5669           -> OPERAND(OPND);             ! SWITCH ON OPERAND
#line 5669 "regression-compile-tmp/nrimp10s-77.imp"
sw15_OPERAND_idx = OPND; if ((1 <= sw15_OPERAND_idx) && (sw15_OPERAND_idx <= 3)) goto *(sw15_OPERAND-1)[sw15_OPERAND_idx];  /* Bounds=1:3 */ else {
   /*_imp_signal(8, 2, sw15_OPERAND_idx);*/
   fprintf(stderr, "%%SWITCH index OPERAND(%d) not in range 1:3 at %s:%d\n",
           sw15_OPERAND_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   5670  OPERAND(1):                            ! NAME
#line 5670 "regression-compile-tmp/nrimp10s-77.imp"
sw15_OPERAND_1:;
                                                                //   5671           OPNAME=A(P)<<8+A(P+1)
#line 5671 "regression-compile-tmp/nrimp10s-77.imp"
OPNAME = (((unsigned char)(((A[P]) << (8)))) + (A[(((int)(P)) + (1))]));
                                                                //   5672           LCELL==ASLIST(TAGS(OPNAME))
#line 5672 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[TAGS[OPNAME]];
                                                                //   5673           PTYPE=LCELL_S1>>16
#line 5673 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (int)((((unsigned int)(LCELL->S1)) >> (16)));
                                                                //   5674           %IF PTYPE=16_FFFF %THEN PTYPE=7;! NAME NOT SET
#line 5674 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (65535))) goto L_055e;
#line 5674 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 7;
#line 5674 "regression-compile-tmp/nrimp10s-77.imp"
L_055e:;
                                                                //   5675           TYPE=PTYPE&7; PREC=PTYPE>>4&15
#line 5675 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (7));
#line 5675 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (((int)((((unsigned int)(PTYPE)) >> (4)))) & (15));
                                                                //   5676           %IF PTYPE=SNPT %THEN %START
#line 5676 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_055f;
                                                                //   5677              D=LCELL_S3>>16
#line 5677 "regression-compile-tmp/nrimp10s-77.imp"
D = (int)((((unsigned int)(LCELL->S3)) >> (16)));
                                                                //   5678              %IF D=38 %AND A(P+2)=2 %THEN %START;    ! PICK OFF NL
#line 5678 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (38))) goto L_0560;
#line 5678 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_0560;
                                                                //   5679                 RPTYPE=0; RPINF=10; PTYPE=16_51; P=P+2; ->SKNAM
#line 5679 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 0;
#line 5679 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = 10;
#line 5679 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
#line 5679 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 5679 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1034;
                                                                //   5680              %FINISH
#line 5680 "regression-compile-tmp/nrimp10s-77.imp"
L_0560:;
                                                                //   5681              %IF D=52 %AND A(P+2)=2 %START;! PICK OFF PI
#line 5681 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (52))) goto L_0561;
#line 5681 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_0561;
                                                                //   5682                 RPTYPE=1; PTYPE=16_62; RPINF=16_413243F6
#line 5682 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 1;
#line 5682 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 98;
#line 5682 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = 1093813238;
                                                                //   5683                 XTRA=16_A8885A31
#line 5683 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = (-1467459023);
                                                                //   5684                 P=P+2; REAL=1; ->SKNAM
#line 5684 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 5684 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5684 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1034;
                                                                //   5685              %FINISH
#line 5685 "regression-compile-tmp/nrimp10s-77.imp"
L_0561:;
                                                                //   5686              COMPLEX=1
#line 5686 "regression-compile-tmp/nrimp10s-77.imp"
COMPLEX = 1;
                                                                //   5687               PTYPE=TSNAME(D); UNPACK
#line 5687 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TSNAME[D];
#line 5687 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   5688           %FINISH
#line 5688 "regression-compile-tmp/nrimp10s-77.imp"
L_055f:;
                                                                //   5689           %IF PTYPE&16_FF00=16_4000 %AND A(P+2)=2=A(P+3) %AND 1<=TYPE<=2 %THEN %START; ! CONST VAR
#line 5689 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (65280))) != (16384))) goto L_0562;
#line 5689 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(P)) + (2))]) != (2))) || (((2) != (A[(((int)(P)) + (3))])))) goto L_0562;
#line 5689 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0562;
                                                                //   5690              LCELL_S1=LCELL_S1!16_8000;  ! SET USED BIT
#line 5690 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = ((LCELL->S1) | (32768));
                                                                //   5691              RPINF=LCELL_S2; XTRA=LCELL_S3
#line 5691 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = LCELL->S2;
#line 5691 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = LCELL->S3;
                                                                //   5692              RPTYPE=1; PTYPE=PTYPE&255
#line 5692 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 1;
#line 5692 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = ((PTYPE) & (255));
                                                                //   5693              %IF TYPE=1 %AND PREC<=5 %AND 16_FFFE0000<=RPINF<=16_1FFFF %THEN RPTYPE=0 %AND PTYPE=16_51
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_0563;
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (5))) goto L_0563;
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-131072)) > (RPINF))) || (((RPINF) > (131071)))) goto L_0563;
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 0;
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
#line 5693 "regression-compile-tmp/nrimp10s-77.imp"
L_0563:;
                                                                //   5694              %IF PREC=7 %THEN RPTYPE=3
#line 5694 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (7))) goto L_0564;
#line 5694 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 3;
#line 5694 "regression-compile-tmp/nrimp10s-77.imp"
L_0564:;
                                                                //   5695              REAL=1 %IF TYPE=2
#line 5695 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_0565;
#line 5695 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5695 "regression-compile-tmp/nrimp10s-77.imp"
L_0565:;
                                                                //   5696              P=P+2; ->SKNAM
#line 5696 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 5696 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1034;
                                                                //   5697           %FINISH
#line 5697 "regression-compile-tmp/nrimp10s-77.imp"
L_0562:;
                                                                //   5698           XTRA=OPNAME
#line 5698 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = OPNAME;
                                                                //   5699           %IF PTYPE&16_3F00#0 %OR PARMCHK=1 %OR PREC<5 %THEN COMPLEX=1 %AND XTRA=-1
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (16128))) != (0))) goto L_0566;
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (1))) goto L_0566;
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) >= (5))) goto L_0567;
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
L_0566:;
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
COMPLEX = 1;
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = (-1);
#line 5699 "regression-compile-tmp/nrimp10s-77.imp"
L_0567:;
                                                                //   5700           OPMASK=OPMASK!(COMPLEX<<19)
#line 5700 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = ((OPMASK) | (((COMPLEX) << (19))));
                                                                //   5701           %IF A(P+2)#2 %OR A(P+3)#2 %THEN XTRA=-1;! XTRA=NAME FOR LOCAL SCALRS ONLY
#line 5701 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_0568;
#line 5701 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) == (2))) goto L_0569;
#line 5701 "regression-compile-tmp/nrimp10s-77.imp"
L_0568:;
#line 5701 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = (-1);
#line 5701 "regression-compile-tmp/nrimp10s-77.imp"
L_0569:;
                                                                //   5702           %IF TYPE=3 %THEN %START
#line 5702 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_056a;
                                                                //   5703              D=P; KFORM=LCELL_S3&16_FFFF
#line 5703 "regression-compile-tmp/nrimp10s-77.imp"
D = P;
#line 5703 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = ((LCELL->S3) & (65535));
                                                                //   5704              C=COPY RECORD TAG(E); P=D;
#line 5704 "regression-compile-tmp/nrimp10s-77.imp"
C = COPYRECORDTAG(&E);
#line 5704 "regression-compile-tmp/nrimp10s-77.imp"
P = D;
                                                                //   5705              COMPLEX=1 %UNLESS E=1 %AND 1<=TYPE<=2 %AND NAM=ARR=0 %AND PREC#3
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
if (((E) != (1))) goto L_056b;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_056b;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
if ((((NAM) != (ARR))) || (((ARR) != (0)))) goto L_056b;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (3))) goto L_056c;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
L_056b:;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
COMPLEX = 1;
#line 5705 "regression-compile-tmp/nrimp10s-77.imp"
L_056c:;
                                                                //   5706           %FINISH
#line 5706 "regression-compile-tmp/nrimp10s-77.imp"
L_056a:;
                                                                //   5707           %IF PREC>=6 %THEN OPMASK=OPMASK!1<<17;! MORE THAN 32 BITS
#line 5707 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) < (6))) goto L_056d;
#line 5707 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = ((OPMASK) | (((1) << (17))));
#line 5707 "regression-compile-tmp/nrimp10s-77.imp"
L_056d:;
                                                                //   5708           RPTYPE=2; RPINF=P; PTYPE=16_51 %IF PTYPE=7
#line 5708 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 2;
#line 5708 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = P;
#line 5708 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (7))) goto L_056e;
#line 5708 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
#line 5708 "regression-compile-tmp/nrimp10s-77.imp"
L_056e:;
                                                                //   5709           %IF TYPE=5 %THEN FAULT2(76,0,OPNAME) %AND RPTYPE=0 %AND PTYPE=16_51
#line 5709 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_056f;
#line 5709 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(76, 0, OPNAME);
#line 5709 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 0;
#line 5709 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
#line 5709 "regression-compile-tmp/nrimp10s-77.imp"
L_056f:;
                                                                //   5710           %IF TYPE=2 %THEN REAL=1
#line 5710 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_0570;
#line 5710 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5710 "regression-compile-tmp/nrimp10s-77.imp"
L_0570:;
                                                                //   5711           P=P+2
#line 5711 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   5712  SKNAM:   %IF A(P)=2 %THEN P=P+1 %ELSE SKIP APP
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
U_1034:;
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_0571;
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0572;
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
L_0571:;
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 5712 "regression-compile-tmp/nrimp10s-77.imp"
L_0572:;
                                                                //   5713           %IF A(P)=1 %THEN P=P+3 %AND ->SKNAM
#line 5713 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_0573;
#line 5713 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 5713 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1034;
#line 5713 "regression-compile-tmp/nrimp10s-77.imp"
L_0573:;
                                                                //   5714           P=P+2
#line 5714 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   5715  INS:     %IF RPTYPE=2 %THEN OPMASK=OPMASK!1<<18
#line 5715 "regression-compile-tmp/nrimp10s-77.imp"
U_1035:;
#line 5715 "regression-compile-tmp/nrimp10s-77.imp"
if (((RPTYPE) != (2))) goto L_0574;
#line 5715 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = ((OPMASK) | (((1) << (18))));
#line 5715 "regression-compile-tmp/nrimp10s-77.imp"
L_0574:;
                                                                //   5716           BINSERT(RPHEAD,RPBOT,PTYPE<<16!COMPLEX<<8!RPTYPE,RPINF,XTRA)
#line 5716 "regression-compile-tmp/nrimp10s-77.imp"
BINSERT(&RPHEAD, &RPBOT, ((((((PTYPE) << (16))) | (((COMPLEX) << (8))))) | (RPTYPE)), RPINF, XTRA);
                                                                //   5717           -> OP
#line 5717 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1036;
                                                                //   5718  OPERAND(2):                            ! CONSTANT
#line 5718 "regression-compile-tmp/nrimp10s-77.imp"
sw15_OPERAND_2:;
                                                                //   5719           PTYPE=A(P); D=PTYPE>>4
#line 5719 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = A[P];
#line 5719 "regression-compile-tmp/nrimp10s-77.imp"
D = (int)((((unsigned int)(PTYPE)) >> (4)));
                                                                //   5720           C=PTYPE&7
#line 5720 "regression-compile-tmp/nrimp10s-77.imp"
C = ((PTYPE) & (7));
                                                                //   5721           %IF D=4 %THEN %START
#line 5721 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (4))) goto L_0575;
                                                                //   5722              RPINF=FROM AR2(P+1)
#line 5722 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = FROMAR2((((int)(P)) + (1)));
                                                                //   5723              PTYPE=16_51
#line 5723 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
                                                                //   5724           %FINISH %ELSE RPINF=FROM AR4(P+1)
#line 5724 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0576;
#line 5724 "regression-compile-tmp/nrimp10s-77.imp"
L_0575:;
#line 5724 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = FROMAR4((((int)(P)) + (1)));
#line 5724 "regression-compile-tmp/nrimp10s-77.imp"
L_0576:;
                                                                //   5725           REAL=1 %IF C=2; RPTYPE=1
#line 5725 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (2))) goto L_0577;
#line 5725 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5725 "regression-compile-tmp/nrimp10s-77.imp"
L_0577:;
#line 5725 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 1;
                                                                //   5726           %IF D=6 %THEN XTRA=FROM AR4(P+5)
#line 5726 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (6))) goto L_0578;
#line 5726 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = FROMAR4((((int)(P)) + (5)));
#line 5726 "regression-compile-tmp/nrimp10s-77.imp"
L_0578:;
                                                                //   5727           %IF C=5 %THEN %START;      ! STRING CONSTANT
#line 5727 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (5))) goto L_0579;
                                                                //   5728              FAULT2(77,0,0); RPINF=1; RPTYPE=0
#line 5728 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(77, 0, 0);
#line 5728 "regression-compile-tmp/nrimp10s-77.imp"
RPINF = 1;
#line 5728 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 0;
                                                                //   5729              P=P+A(P+5)+7; PTYPE=16_51
#line 5729 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(((P) + ((int)(A[(((int)(P)) + (5))]))))) + (7));
#line 5729 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 81;
                                                                //   5730           %FINISH %ELSE %START
#line 5730 "regression-compile-tmp/nrimp10s-77.imp"
goto L_057a;
#line 5730 "regression-compile-tmp/nrimp10s-77.imp"
L_0579:;
                                                                //   5731              %IF D=7 %THEN XTRA=ADDR(A(P+1)) %AND RPTYPE=3
#line 5731 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (7))) goto L_057b;
#line 5731 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = _imp_ADDR(&A[(((int)(P)) + (1))]);
#line 5731 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 3;
#line 5731 "regression-compile-tmp/nrimp10s-77.imp"
L_057b:;
                                                                //   5732              %IF PTYPE=16_51 %AND 16_FFFE0000<=RPINF<=16_1FFFF %THEN RPTYPE=0
#line 5732 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (81))) goto L_057c;
#line 5732 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-131072)) > (RPINF))) || (((RPINF) > (131071)))) goto L_057c;
#line 5732 "regression-compile-tmp/nrimp10s-77.imp"
RPTYPE = 0;
#line 5732 "regression-compile-tmp/nrimp10s-77.imp"
L_057c:;
                                                                //   5733              P=P+2+BYTES(D)
#line 5733 "regression-compile-tmp/nrimp10s-77.imp"
P = (((unsigned char)((((int)(P)) + (2)))) + (BYTES[D]));
                                                                //   5734           %FINISH; -> INS
#line 5734 "regression-compile-tmp/nrimp10s-77.imp"
L_057a:;
#line 5734 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1035;
                                                                //   5735  OPERAND(3):                            ! SUB EXPRESSION
#line 5735 "regression-compile-tmp/nrimp10s-77.imp"
sw15_OPERAND_3:;
                                                                //   5736           PASSHEAD=0; PASSBOT=0
#line 5736 "regression-compile-tmp/nrimp10s-77.imp"
PASSHEAD = 0;
#line 5736 "regression-compile-tmp/nrimp10s-77.imp"
PASSBOT = 0;
                                                                //   5737           P=P+3
#line 5737 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   5738           TORP(PASSHEAD,PASSBOT,NOPS)
#line 5738 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&PASSHEAD, &PASSBOT, NOPS);
                                                                //   5739           REAL=1 %IF TYPE=2
#line 5739 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_057d;
#line 5739 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5739 "regression-compile-tmp/nrimp10s-77.imp"
L_057d:;
                                                                //   5740  !         CONCAT(RPHEAD,PASSHEAD)
                                                                //   5741           %IF RPBOT=0 %THEN RPHEAD=PASSHEAD %ELSE ASLIST(RPBOT)_LINK=PASSHEAD
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
if (((RPBOT) != (0))) goto L_057e;
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
RPHEAD = PASSHEAD;
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
goto L_057f;
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
L_057e:;
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[RPBOT].LINK = PASSHEAD;
#line 5741 "regression-compile-tmp/nrimp10s-77.imp"
L_057f:;
                                                                //   5742           RPBOT=PASSBOT
#line 5742 "regression-compile-tmp/nrimp10s-77.imp"
RPBOT = PASSBOT;
                                                                //   5743           P=P+1
#line 5743 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   5744  OP:                                     ! DEAL WITH OPERATOR
#line 5744 "regression-compile-tmp/nrimp10s-77.imp"
U_1036:;
                                                                //   5745           -> EOE %IF A(P-1)=2;           ! EXPR FINISHED
#line 5745 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) != (2))) goto L_0580;
#line 5745 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1037;
#line 5745 "regression-compile-tmp/nrimp10s-77.imp"
L_0580:;
                                                                //   5746           OPERATOR=A(P)
#line 5746 "regression-compile-tmp/nrimp10s-77.imp"
OPERATOR = A[P];
                                                                //   5747  !
                                                                //   5748  ! THE STRING OPERATOR '.' CAUSES CHAOS IN AN ARITHMETIC EXPRSN
                                                                //   5749  ! SO FAULT IT AND CHANGE IT TO THE INNOCUOUS '+'
                                                                //   5750  !
                                                                //   5751           %IF OPERATOR=CONCOP %THEN FAULT2(78,0,0)
#line 5751 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPERATOR) != (13))) goto L_0581;
#line 5751 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(78, 0, 0);
#line 5751 "regression-compile-tmp/nrimp10s-77.imp"
L_0581:;
                                                                //   5752           OPPREC=PRECEDENCE(OPERATOR)
#line 5752 "regression-compile-tmp/nrimp10s-77.imp"
OPPREC = (PRECEDENCE-1)[OPERATOR];
                                                                //   5753           OPERATOR=OPVAL(OPERATOR)
#line 5753 "regression-compile-tmp/nrimp10s-77.imp"
OPERATOR = (OPVAL-1)[OPERATOR];
                                                                //   5754           %IF OPERATOR=26 %OR OPERATOR=30 %THEN REAL=1
#line 5754 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPERATOR) == (26))) goto L_0582;
#line 5754 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPERATOR) != (30))) goto L_0583;
#line 5754 "regression-compile-tmp/nrimp10s-77.imp"
L_0582:;
#line 5754 "regression-compile-tmp/nrimp10s-77.imp"
REAL = 1;
#line 5754 "regression-compile-tmp/nrimp10s-77.imp"
L_0583:;
                                                                //   5755           NOPS=NOPS+1
#line 5755 "regression-compile-tmp/nrimp10s-77.imp"
*NOPS = ((*(int *)(NOPS)) + (1));
                                                                //   5756  !
                                                                //   5757  ! UNLOAD THE OPERATOR STACK OF ALL OPERATORS WHOSE PRECEDENCE IS
                                                                //   5758  ! NOT LOWER THAN THE CURRENT OPERATOR. AN EMPTY STACK GIVES'-1'
                                                                //   5759  ! AS PRECEDENCE.
                                                                //   5760  !
                                                                //   5761           %WHILE OPPREC<=OPPSTK&31 %CYCLE
#line 5761 "regression-compile-tmp/nrimp10s-77.imp"
L_0584:;
#line 5761 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPPREC) > (((OPPSTK) & (31))))) goto L_0585;
                                                                //   5762              BINSERT(RPHEAD,RPBOT,OPSTK&31+9,0,0)
#line 5762 "regression-compile-tmp/nrimp10s-77.imp"
BINSERT(&RPHEAD, &RPBOT, (((int)(((OPSTK) & (31)))) + (9)), 0, 0);
                                                                //   5763              OPSTK=OPSTK>>5; OPPSTK=OPPSTK>>5
#line 5763 "regression-compile-tmp/nrimp10s-77.imp"
OPSTK = (int)((((unsigned int)(OPSTK)) >> (5)));
#line 5763 "regression-compile-tmp/nrimp10s-77.imp"
OPPSTK = (int)((((unsigned int)(OPPSTK)) >> (5)));
                                                                //   5764           %REPEAT
#line 5764 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0584;
#line 5764 "regression-compile-tmp/nrimp10s-77.imp"
L_0585:;
                                                                //   5765  !
                                                                //   5766  ! THE CURRENT OPERATOR CAN NOW BE STORED
                                                                //   5767  !
                                                                //   5768           OPSTK=OPSTK<<5!(OPERATOR-9)
#line 5768 "regression-compile-tmp/nrimp10s-77.imp"
OPSTK = ((((OPSTK) << (5))) | ((((int)(OPERATOR)) - (9))));
                                                                //   5769           OPPSTK=OPPSTK<<5!OPPREC
#line 5769 "regression-compile-tmp/nrimp10s-77.imp"
OPPSTK = ((((OPPSTK) << (5))) | (OPPREC));
                                                                //   5770           %IF OPERATOR>=31 %THEN OPERATOR=30
#line 5770 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPERATOR) < (31))) goto L_0587;
#line 5770 "regression-compile-tmp/nrimp10s-77.imp"
OPERATOR = 30;
#line 5770 "regression-compile-tmp/nrimp10s-77.imp"
L_0587:;
                                                                //   5771           OPMASK=OPMASK!(1<<OPERATOR)
#line 5771 "regression-compile-tmp/nrimp10s-77.imp"
OPMASK = ((OPMASK) | (((1) << (OPERATOR))));
                                                                //   5772           -> NEXTOPND
#line 5772 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1033;
                                                                //   5773  EOE:                                   ! END OF EXPRESSION
#line 5773 "regression-compile-tmp/nrimp10s-77.imp"
U_1037:;
                                                                //   5774                                         ! EMPTY REMAINING OPERATORS
                                                                //   5775           %WHILE OPSTK#0 %CYCLE
#line 5775 "regression-compile-tmp/nrimp10s-77.imp"
L_0588:;
#line 5775 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPSTK) == (0))) goto L_0589;
                                                                //   5776              BINSERT(RPHEAD,RPBOT,OPSTK&31+9,0,0)
#line 5776 "regression-compile-tmp/nrimp10s-77.imp"
BINSERT(&RPHEAD, &RPBOT, (((int)(((OPSTK) & (31)))) + (9)), 0, 0);
                                                                //   5777              OPSTK=OPSTK>>5
#line 5777 "regression-compile-tmp/nrimp10s-77.imp"
OPSTK = (int)((((unsigned int)(OPSTK)) >> (5)));
                                                                //   5778           %REPEAT
#line 5778 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0588;
#line 5778 "regression-compile-tmp/nrimp10s-77.imp"
L_0589:;
                                                                //   5779           PTYPE=REAL+1
#line 5779 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (((int)(REAL)) + (1));
                                                                //   5780           TYPE=PTYPE
#line 5780 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = PTYPE;
                                                                //   5781  !         CONCAT(RPHEAD,HEAD)
                                                                //   5782           %IF HEAD=0 %THEN BOT=RPBOT %ELSE ASLIST(RPBOT)_LINK=HEAD
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
if (((*HEAD) != (0))) goto L_058b;
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
*BOT = RPBOT;
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
goto L_058c;
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
L_058b:;
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[RPBOT].LINK = *HEAD;
#line 5782 "regression-compile-tmp/nrimp10s-77.imp"
L_058c:;
                                                                //   5783           HEAD=RPHEAD;                ! HEAD BACK TO TOP OF LIST
#line 5783 "regression-compile-tmp/nrimp10s-77.imp"
*HEAD = RPHEAD;
                                                                //   5784           NOPS=NOPS!OPMASK
#line 5784 "regression-compile-tmp/nrimp10s-77.imp"
*NOPS = ((*NOPS) | (OPMASK));
                                                                //   5785           %END
#line 5785 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TORP at level 5
                                                                //   5786           %ROUTINE EXPOP(%INTEGER INHEAD,REG,NOPS,MODE)
#line 5786 "regression-compile-tmp/nrimp10s-77.imp"
void EXPOP( int INHEAD, int REG, int NOPS, int MODE )
#line 5786 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   5787  !***********************************************************************
                                                                //   5788  !*    EVALUATE A LIST OF OPERAND AND'NOPS' OPERATORS AND LEAVE         *
                                                                //   5789  !*    THE RESULT IN REG                                                *
                                                                //   5790  !*    INHEAD HOLDS THE LIST THE BOTTOM BYTE OF STREAM 1 DEFINES THE    *
                                                                //   5791  !*    ENTRY AS FOLLOWS:-                                               *
                                                                //   5792  !*       0 = SHORT (INTEGER) CONSTANT <18 BITS --S2=CONSTANT           *
                                                                //   5793  !*       1 = OTHER CONSTANT    S2 (+S3 IF NEEDED) = CONSTANT           *
                                                                //   5794  !*       2 = VARIABLE S2 POINT TO AR ENTRY FOR NAME&SUBSCRIPTS         *
                                                                //   5795  !*      (3 = DOPE VECTOR ITEM IF NEEDED)                               *
                                                                //   5796  !*      (4 = CONDITONAL EXPRESSION AS IN ALGOL)                        *
                                                                //   5797  !*       7 = INTERMEDIATE RESULT UNDER LNB  S2=DISPLCMNT FROM LNB      *
                                                                //   5798  !*       8 = INTERMEDIATE RESULT STACKED                               *
                                                                //   5799  !*       9 = INTERMEDIATE RESULT IN A REGISTER S2 = REG                *
                                                                //   5800  !*                                                                     *
                                                                //   5801  !*       10-19 = UNARY OPERATOR S2=OP S3 =EXTRA                        *
                                                                //   5802  !*       20 UP = BINARY OPERATOR                                       *
                                                                //   5803  !*                                                                     *
                                                                //   5804  !*    ARRAY MCINST HOLD THE OPCODES CORRESPONDING TO THE OPERATORS:-   *
                                                                //   5805  !*       TOP BYTE = REAL FORWARD FORM                                  *
                                                                //   5806  !*       2ND BYTE = REAL REVERSE FORM                                  *
                                                                //   5807  !*       3RD BYTE = INTEGER FORWARD FORM                               *
                                                                //   5808  !*       BTM BYTE = INTEGER REVERSE FORM                               *
                                                                //   5809  !*       MODE HAS TYPE & PREC REQD +256 BIT IF NO RESULT REQD          *
                                                                //   5810  !***********************************************************************
                                                                //   5811  %ROUTINESPEC CTOP(%INTEGERNAME A)
#line 5811 "regression-compile-tmp/nrimp10s-77.imp"
auto void CTOP( int /*name*/*A );
                                                                //   5812  %ROUTINESPEC VMY
#line 5812 "regression-compile-tmp/nrimp10s-77.imp"
auto void VMY( void );
                                                                //   5813  %ROUTINESPEC VMY1
#line 5813 "regression-compile-tmp/nrimp10s-77.imp"
auto void VMY1( void );
                                                                //   5814  %ROUTINESPEC CHOOSE(%INTEGERNAME I)
#line 5814 "regression-compile-tmp/nrimp10s-77.imp"
auto void CHOOSE( int /*name*/*I );
                                                                //   5815  %ROUTINESPEC PUT
#line 5815 "regression-compile-tmp/nrimp10s-77.imp"
auto void PUT( void );
                                                                //   5816  %ROUTINESPEC STARSTAR
#line 5816 "regression-compile-tmp/nrimp10s-77.imp"
auto void STARSTAR( void );
                                                                //   5817  %ROUTINESPEC REXP
#line 5817 "regression-compile-tmp/nrimp10s-77.imp"
auto void REXP( void );
                                                                //   5818  %ROUTINESPEC LOAD(%RECORD(RD)%NAME OP,%INTEGER REG,MODE)
#line 5818 "regression-compile-tmp/nrimp10s-77.imp"
auto void LOAD(  RD /*name*/*OP, int REG, int MODE );
                                                                //   5819  %ROUTINESPEC FLOAT(%RECORD(RD)%NAME OPND,%INTEGER OTHERPTYPE)
#line 5819 "regression-compile-tmp/nrimp10s-77.imp"
auto void FLOAT(  RD /*name*/*OPND, int OTHERPTYPE );
                                                                //   5820  %ROUTINESPEC COERCET(%RECORD(RD)%NAME OP1,OP2,%INTEGER MODE)
#line 5820 "regression-compile-tmp/nrimp10s-77.imp"
auto void COERCET(  RD /*name*/*OP1,  RD /*name*/*OP2, int MODE );
                                                                //   5821  %ROUTINESPEC COERCEP(%RECORD(RD)%NAME OP1,OP2)
#line 5821 "regression-compile-tmp/nrimp10s-77.imp"
auto void COERCEP(  RD /*name*/*OP1,  RD /*name*/*OP2 );
                                                                //   5822  %ROUTINESPEC LENGTHEN(%RECORD(RD)%NAME OP)
#line 5822 "regression-compile-tmp/nrimp10s-77.imp"
auto void LENGTHEN(  RD /*name*/*OP );
                                                                //   5823  %ROUTINESPEC SHORTEN (%RECORD(RD)%NAME OP)
#line 5823 "regression-compile-tmp/nrimp10s-77.imp"
auto void SHORTEN(  RD /*name*/*OP );
                                                                //   5824  !
                                                                //   5825  %INTEGERARRAY OPERAND(1:2),STK(0:99)
#line 5825 "regression-compile-tmp/nrimp10s-77.imp"
int OPERAND[2];
#line 5825 "regression-compile-tmp/nrimp10s-77.imp"
int STK[100];
                                                                //   5826  %RECORD(LISTF)%NAME LIST{(LISTF)
#line 5826 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LIST;
                                                                //   5827  %RECORD(RD)%name OPND1,OPND2,OPND {(RD)
#line 5827 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND1;
#line 5827 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND2;
#line 5827 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND;
                                                                //   5828  !
                                                                //   5829  %INTEGER C,D,KK,JJ,OPCODE,COMM,XTRA,PP,PT,JJJ,LOADREG,EVALREG,STPTR,CONSTFORM,CONDFORM,SAVEP
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int C;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int OPCODE;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int COMM;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int XTRA;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int PT;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int LOADREG;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int EVALREG;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int STPTR;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int CONSTFORM;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int CONDFORM;
#line 5829 "regression-compile-tmp/nrimp10s-77.imp"
int SAVEP;
                                                                //   5830  %CONSTINTEGERARRAY MCINST(10:37)=16_8E8E,16_F4F4E4E4,16_A8A8,
#line 5830 "regression-compile-tmp/nrimp10s-77.imp"
const int MCINST[28] = { 36494, (-185277212), 43176, (-185277212), 0, 0, 0, 0, 0, 0, (-252649248), (-218832156), 36494, 35980, (-84219158), 43692, (-1162084352), 35466, 51200, 51200, (-100663296), (-151591194), 16122086, 738208768, 33554944, 1207977984, 1207977984, 59904,  };
                                                                //   5831                                   16_F4F4E4E4,0(6),
                                                                //   5832                                   16_F0F0E0E0,16_F2F4E2E4,
                                                                //   5833                                   16_8E8E,16_8C8C,16_FAFAEAEA,
                                                                //   5834                                   16_AAAC,16_BABC0000,
                                                                //   5835                                   16_8A8A,16_C800(2),16_FA000000,
                                                                //   5836                                   16_F6F6E6E6,16_00F600E6,
                                                                //   5837                                   16_2C002C00,16_02000200,
                                                                //   5838                                   16_48004800(2),16_EA00;
                                                                //   5839  %CONSTBYTEINTEGERARRAY CORULES(20:37)=16_1F(2),16_11(2),16_1F,16_11,
#line 5839 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char CORULES[18] = { 31, 31, 17, 17, 31, 17, 18, 17, 1, 1, 0, 31, 31, 0, 0, 0, 0, 1,  };
                                                                //   5840                                         16_12,16_11,1,1,0,16_1F(2),
                                                                //   5841                                        0(4),1;
                                                                //   5842  %CONSTBYTEINTEGERARRAY FCOMP(1:28)={%C
#line 5842 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char FCOMP[28] = { 8, 10, 2, 7, 12, 4, 7, 8, 12, 4, 7, 10, 2, 7, 16, 34, 17, 32, 33, 18, 32, 16, 33, 18, 32, 34, 17, 32,  };
                                                                //   5843                                          8,10,2,7,12,4,7,
                                                                //   5844                                          8,12,4,7,10,2,7,
                                                                //   5845                                          16,34,17,32,33,18,32,
                                                                //   5846                                          16,33,18,32,34,17,32;
                                                                //   5847  %SWITCH SW(10:37)
#line 5847 "regression-compile-tmp/nrimp10s-77.imp"
static int sw16_SW_idx;
static const void * /*SWITCH*/ sw16_SW[28] = { &&sw16_SW_10, &&sw16_SW_11, &&sw16_SW_12, &&sw16_SW_13, &&sw16_SW_14, &&sw16_SW_15, &&sw16_SW_16, &&sw16_SW_17, &&sw16_SW_18, &&sw16_SW_19, &&sw16_SW_20, &&sw16_SW_21, &&sw16_SW_22, &&sw16_SW_23, &&sw16_SW_24, &&sw16_SW_25, &&sw16_SW_26, &&sw16_SW_27, &&sw16_SW_28, &&sw16_SW_29, &&sw16_SW_30, &&sw16_SW_31, &&sw16_SW_32, &&sw16_SW_33, &&sw16_SW_34, &&sw16_SW_35, &&sw16_SW_36, &&sw16_SW_37,  };
                                                                //   5848  !
                                                                //   5849           STPTR=0; CONSTFORM= MODE&512
#line 5849 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = 0;
#line 5849 "regression-compile-tmp/nrimp10s-77.imp"
CONSTFORM = ((MODE) & (512));
                                                                //   5850           CONDFORM=MODE&256
#line 5850 "regression-compile-tmp/nrimp10s-77.imp"
CONDFORM = ((MODE) & (256));
                                                                //   5851           SAVEP=P
#line 5851 "regression-compile-tmp/nrimp10s-77.imp"
SAVEP = P;
                                                                //   5852           EVALREG=ACCR;                  ! EVALUATE IN ACC UNLESS
#line 5852 "regression-compile-tmp/nrimp10s-77.imp"
EVALREG = 0;
                                                                //   5853           %IF REG=BREG %AND NOPS&16_7EC20000=0 %THEN EVALREG=BREG
#line 5853 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_058d;
#line 5853 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NOPS) & (2126643200))) != (0))) goto L_058d;
#line 5853 "regression-compile-tmp/nrimp10s-77.imp"
EVALREG = 7;
#line 5853 "regression-compile-tmp/nrimp10s-77.imp"
L_058d:;
                                                                //   5854                                          ! ONLY '+' %AND '*' PRESENT
                                                                //   5855                                          ! NOTHING >32 BITS
                                                                //   5856  NEXT:    LIST==ASLIST(INHEAD)
#line 5856 "regression-compile-tmp/nrimp10s-77.imp"
U_101f:;
#line 5856 "regression-compile-tmp/nrimp10s-77.imp"
LIST = &ASLIST[INHEAD];
                                                                //   5857           C=LIST_S1; XTRA=LIST_S2
#line 5857 "regression-compile-tmp/nrimp10s-77.imp"
C = LIST->S1;
#line 5857 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = LIST->S2;
                                                                //   5858           JJ=C&255; D=INHEAD
#line 5858 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((C) & (255));
#line 5858 "regression-compile-tmp/nrimp10s-77.imp"
D = INHEAD;
                                                                //   5859           INHEAD=LIST_LINK
#line 5859 "regression-compile-tmp/nrimp10s-77.imp"
INHEAD = LIST->LINK;
                                                                //   5860           -> OPERATOR %IF JJ>=10
#line 5860 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) < (10))) goto L_058e;
#line 5860 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1039;
#line 5860 "regression-compile-tmp/nrimp10s-77.imp"
L_058e:;
                                                                //   5861  !
                                                                //   5862  ! ANY OPERAND WHICH MAY NEED DR OR B OR ACC IN THEIR EVALUATION
                                                                //   5863  ! EG FUNCTIONS,ARRAY ELEMENTS ETC ARE FETCHED AND STACKKED FIRST
                                                                //   5864  !
                                                                //   5865           OPERAND(1)=ADDR(ASLIST(D))
#line 5865 "regression-compile-tmp/nrimp10s-77.imp"
OPERAND[0] = _imp_ADDR(&ASLIST[D]);
                                                                //   5866  {        OPND1==ASLIST(D)  { <---   format mismatch!
                                                                //   5867           OPND1==RECORD(ADDR(ASLIST(D)))  { force format.
#line 5867 "regression-compile-tmp/nrimp10s-77.imp"
OPND1 =  (RD *) _imp_RECORD(_imp_ADDR(&ASLIST[D]));
                                                                //   5868  {
                                                                //   5869  {  This looks weird!
                                                                //   5870  {
                                                                //   5871  {  %RECORDFORMAT RD(%BYTEINTEGER UPTYPE,PTYPE,XB,FLAG,%C
                                                                //   5872  {  %INTEGER D,XTRA)
                                                                //   5873  {
                                                                //   5874  {  %RECORDFORMAT LISTF(%INTEGER S1,S2,S3,LINK)
                                                                //   5875  {
                                                                //   5876  {  %RECORDARRAY ASLIST(0:ASL)(LISTF)
                                                                //   5877  {
                                                                //   5878  {  %RECORDNAME OPND1,OPND2,OPND (RD)
                                                                //   5879  {
                                                                //   5880           %IF OPND1_FLAG=2 %AND OPND1_XB#0 %THEN LOAD(OPND1,EVALREG,0)
#line 5880 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (2))) goto L_058f;
#line 5880 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->XB) == (0))) goto L_058f;
#line 5880 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 0);
#line 5880 "regression-compile-tmp/nrimp10s-77.imp"
L_058f:;
                                                                //   5881           STK(STPTR)=OPERAND(1)
#line 5881 "regression-compile-tmp/nrimp10s-77.imp"
STK[STPTR] = OPERAND[0];
                                                                //   5882           STPTR=STPTR+1
#line 5882 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = (((int)(STPTR)) + (1));
                                                                //   5883           ABORT %IF STPTR>99
#line 5883 "regression-compile-tmp/nrimp10s-77.imp"
if (((STPTR) <= (99))) goto L_0590;
#line 5883 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 5883 "regression-compile-tmp/nrimp10s-77.imp"
L_0590:;
                                                                //   5884  ANYMORE:
#line 5884 "regression-compile-tmp/nrimp10s-77.imp"
U_103a:;
                                                                //   5885           ->NEXT %UNLESS INHEAD=0 %OR MODE=100
#line 5885 "regression-compile-tmp/nrimp10s-77.imp"
if (((INHEAD) == (0))) goto L_0591;
#line 5885 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (100))) goto L_0591;
#line 5885 "regression-compile-tmp/nrimp10s-77.imp"
goto U_101f;
#line 5885 "regression-compile-tmp/nrimp10s-77.imp"
L_0591:;
                                                                //   5886           -> FINISH
#line 5886 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103b;
                                                                //   5887  OPERATOR:
#line 5887 "regression-compile-tmp/nrimp10s-77.imp"
U_1039:;
                                                                //   5888           %IF JJ<19 %THEN KK=1 %ELSE KK=2; ! UNARY OR BINARY
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) >= (19))) goto L_0592;
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
KK = 1;
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0593;
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
L_0592:;
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
KK = 2;
#line 5888 "regression-compile-tmp/nrimp10s-77.imp"
L_0593:;
                                                                //   5889           %CYCLE KK=KK,-1,1
#line 5889 "regression-compile-tmp/nrimp10s-77.imp"
KK = ((KK) + ((int)(1)));
if ((((1)-(KK)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle KK = KK, (-1), 1");
L_0594:;
if (KK == 1) goto L_0595;
KK += (-1);
                                                                //   5890              STPTR=STPTR-1
#line 5890 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = (((int)(STPTR)) - (1));
                                                                //   5891              C=STK(STPTR)
#line 5891 "regression-compile-tmp/nrimp10s-77.imp"
C = STK[STPTR];
                                                                //   5892              OPERAND(KK)=C
#line 5892 "regression-compile-tmp/nrimp10s-77.imp"
OPERAND[(((int)(KK)) - (1))] = C;
                                                                //   5893           %REPEAT
#line 5893 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0594;
#line 5893 "regression-compile-tmp/nrimp10s-77.imp"
L_0595:;
                                                                //   5894           OPCODE=MCINST(JJ)
#line 5894 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = (MCINST-10)[JJ];
                                                                //   5895           COMM=1
#line 5895 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 1;
                                                                //   5896           OPND1 == RECORD(OPERAND(1))
#line 5896 "regression-compile-tmp/nrimp10s-77.imp"
OPND1 =  (RD *) _imp_RECORD(OPERAND[0]);
                                                                //   5897           OPND2 == OPND1
#line 5897 "regression-compile-tmp/nrimp10s-77.imp"
OPND2 = OPND1;
                                                                //   5898           %IF JJ>=19 %THEN %START
#line 5898 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) < (19))) goto L_0597;
                                                                //   5899              OPND2==RECORD(OPERAND(2))
#line 5899 "regression-compile-tmp/nrimp10s-77.imp"
OPND2 =  (RD *) _imp_RECORD(OPERAND[1]);
                                                                //   5900              C=CORULES(JJ)
#line 5900 "regression-compile-tmp/nrimp10s-77.imp"
C = (CORULES-20)[JJ];
                                                                //   5901              %IF C&15#0 %THEN COERCET(OPND1,OPND2,C&15)
#line 5901 "regression-compile-tmp/nrimp10s-77.imp"
if (((((C) & (15))) == (0))) goto L_0598;
#line 5901 "regression-compile-tmp/nrimp10s-77.imp"
COERCET(OPND1, OPND2, ((C) & (15)));
#line 5901 "regression-compile-tmp/nrimp10s-77.imp"
L_0598:;
                                                                //   5902              %IF C>>4#0 %THEN COERCEP(OPND1,OPND2)
#line 5902 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(C)) >> (4)))) == (0))) goto L_0599;
#line 5902 "regression-compile-tmp/nrimp10s-77.imp"
COERCEP(OPND1, OPND2);
#line 5902 "regression-compile-tmp/nrimp10s-77.imp"
L_0599:;
                                                                //   5903           %FINISH
#line 5903 "regression-compile-tmp/nrimp10s-77.imp"
L_0597:;
                                                                //   5904           %IF JJ>19 %START
#line 5904 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) <= (19))) goto L_059a;
                                                                //   5905              CHOOSE(COMM)
#line 5905 "regression-compile-tmp/nrimp10s-77.imp"
CHOOSE(&COMM);
                                                                //   5906              OPND1==RECORD(OPERAND(COMM))
#line 5906 "regression-compile-tmp/nrimp10s-77.imp"
OPND1 =  (RD *) _imp_RECORD(OPERAND[(((int)(COMM)) - (1))]);
                                                                //   5907              OPND2==RECORD(OPERAND(3-COMM))
#line 5907 "regression-compile-tmp/nrimp10s-77.imp"
OPND2 =  (RD *) _imp_RECORD(OPERAND[(((int)((((int)(3)) - (COMM)))) - (1))]);
                                                                //   5908           %FINISH
#line 5908 "regression-compile-tmp/nrimp10s-77.imp"
L_059a:;
                                                                //   5909           PTYPE=OPND1_PTYPE; TYPE=PTYPE&7
#line 5909 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = OPND1->PTYPE;
#line 5909 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (7));
                                                                //   5910           %IF TYPE=1 %THEN OPCODE=OPCODE&16_FFFF %ELSE OPCODE=OPCODE>>16;! INTEGER OR REAL FORMS
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_059b;
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = ((OPCODE) & (65535));
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
goto L_059c;
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
L_059b:;
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = (int)((((unsigned int)(OPCODE)) >> (16)));
#line 5910 "regression-compile-tmp/nrimp10s-77.imp"
L_059c:;
                                                                //   5911           %IF 2#OPND1_FLAG<4 %AND 2#OPND2_FLAG<4 %THEN CTOP(JJ)
#line 5911 "regression-compile-tmp/nrimp10s-77.imp"
if ((((2) == (OPND1->FLAG))) || (((OPND1->FLAG) >= (4)))) goto L_059d;
#line 5911 "regression-compile-tmp/nrimp10s-77.imp"
if ((((2) == (OPND2->FLAG))) || (((OPND2->FLAG) >= (4)))) goto L_059d;
#line 5911 "regression-compile-tmp/nrimp10s-77.imp"
CTOP(&JJ);
#line 5911 "regression-compile-tmp/nrimp10s-77.imp"
L_059d:;
                                                                //   5912           -> STRES %IF JJ=0;            ! CTOP CARRIED OUT
#line 5912 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (0))) goto L_059e;
#line 5912 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103c;
#line 5912 "regression-compile-tmp/nrimp10s-77.imp"
L_059e:;
                                                                //   5913           -> SW(JJ)
#line 5913 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_idx = JJ; if ((10 <= sw16_SW_idx) && (sw16_SW_idx <= 37)) goto *(sw16_SW-10)[sw16_SW_idx];  /* Bounds=10:37 */ else {
   /*_imp_signal(8, 2, sw16_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 10:37 at %s:%d\n",
           sw16_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   5914  SW(10):                                !  \&
#line 5914 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_10:;
                                                                //   5915           LOAD(OPND1,EVALREG,2)
#line 5915 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   5916           FAULT(24,0) %UNLESS TYPE=1 %OR TYPE=7
#line 5916 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (1))) goto L_059f;
#line 5916 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (7))) goto L_059f;
#line 5916 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 5916 "regression-compile-tmp/nrimp10s-77.imp"
L_059f:;
                                                                //   5917           PSF1(OPCODE&255,0,-1);         ! NEQ -1
#line 5917 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(((OPCODE) & (255)), 0, (-1));
                                                                //   5918           GRUSE(EVALREG)=0
#line 5918 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 0;
                                                                //   5919  SUSE:    OLINK(EVALREG)=OPERAND(COMM)
#line 5919 "regression-compile-tmp/nrimp10s-77.imp"
U_103d:;
#line 5919 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[EVALREG] = OPERAND[(((int)(COMM)) - (1))];
                                                                //   5920  STRES:   STK(STPTR)=OPERAND(COMM)
#line 5920 "regression-compile-tmp/nrimp10s-77.imp"
U_103c:;
#line 5920 "regression-compile-tmp/nrimp10s-77.imp"
STK[STPTR] = OPERAND[(((int)(COMM)) - (1))];
                                                                //   5921           STPTR=STPTR+1
#line 5921 "regression-compile-tmp/nrimp10s-77.imp"
STPTR = (((int)(STPTR)) + (1));
                                                                //   5922           ->ANYMORE
#line 5922 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103a;
                                                                //   5923  SW(11):                                ! NEGATE
#line 5923 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_11:;
                                                                //   5924           LOAD(OPND1,EVALREG,2)
#line 5924 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   5925           %IF EVALREG=BREG %THEN PSF1(SLB,0,0) %AND PF1(SBB,0,TOS,0) %ELSE PSF1(OPCODE&255,0,0); ! IRSB 0 OR RRSB 0
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
if (((EVALREG) != (7))) goto L_05a0;
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(82, 0, 0);
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
PF1(34, 0, 6, 0);
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05a1;
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
L_05a0:;
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(((OPCODE) & (255)), 0, 0);
#line 5925 "regression-compile-tmp/nrimp10s-77.imp"
L_05a1:;
                                                                //   5926           GRUSE(EVALREG)=0
#line 5926 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 0;
                                                                //   5927           -> SUSE
#line 5927 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5928  SW(12):                                ! FLOAT
#line 5928 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_12:;
                                                                //   5929           ABORT
#line 5929 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   5930  SW(13):                                 ! ABS
#line 5930 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_13:;
                                                                //   5931           LOAD(OPND1,EVALREG,2);             ! OPERAND TO ACC
#line 5931 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   5932           %IF TYPE=2 %THEN C=2 %ELSE C=6
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_05a2;
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
C = 2;
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05a3;
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
L_05a2:;
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
C = 6;
#line 5932 "regression-compile-tmp/nrimp10s-77.imp"
L_05a3:;
                                                                //   5933           PF3(JAF,C,0,3);                ! JAF *+3 ON ACC<0
#line 5933 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, C, 0, 3);
                                                                //   5934           PSF1(OPCODE&255,0,0);          ! IRSB 0 OR RRSB 0
#line 5934 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(((OPCODE) & (255)), 0, 0);
                                                                //   5935           GRUSE(EVALREG)=0
#line 5935 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 0;
                                                                //   5936           ->SUSE
#line 5936 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5937  SW(14):                                 ! STRETCH
#line 5937 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_14:;
                                                                //   5938           ABORT
#line 5938 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   5939  SW(20):                                 ! ADD
#line 5939 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_20:;
                                                                //   5940           %IF TYPE=1 %AND GRUSE(EVALREG)=10 %AND OPND1_FLAG=2 %AND OPND2_FLAG=0 %AND REGISTER(EVALREG)=0 %START
#line 5940 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_05a4;
#line 5940 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[EVALREG]) != (10))) goto L_05a4;
#line 5940 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (2))) goto L_05a4;
#line 5940 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) != (0))) goto L_05a4;
#line 5940 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[EVALREG]) != (0))) goto L_05a4;
                                                                //   5941              P=OPND1_D; D=GRINF1(EVALREG)
#line 5941 "regression-compile-tmp/nrimp10s-77.imp"
P = OPND1->D;
#line 5941 "regression-compile-tmp/nrimp10s-77.imp"
D = GRINF1[EVALREG];
                                                                //   5942              %IF FROMAR2(P)=D&16_FFFF %AND A(P+2)=2=A(P+3) %START
#line 5942 "regression-compile-tmp/nrimp10s-77.imp"
if (((FROMAR2(P)) != (((D) & (65535))))) goto L_05a5;
#line 5942 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(P)) + (2))]) != (2))) || (((2) != (A[(((int)(P)) + (3))])))) goto L_05a5;
                                                                //   5943                 %IF EVALREG=ACCR %THEN C=IAD %ELSE C=ADB
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
if (((EVALREG) != (0))) goto L_05a6;
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
C = 224;
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05a7;
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
L_05a6:;
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
C = 32;
#line 5943 "regression-compile-tmp/nrimp10s-77.imp"
L_05a7:;
                                                                //   5944                 PSF1(C,0,OPND2_D-D>>16)
#line 5944 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(C, 0, ((OPND2->D) - ((int)((int)((((unsigned int)(D)) >> (16)))))));
                                                                //   5945                 GRINF1(EVALREG)=D&16_FFFF!OPND2_D<<16
#line 5945 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[EVALREG] = ((((D) & (65535))) | (((OPND2->D) << (16))));
                                                                //   5946                 REGISTER(EVALREG)=1
#line 5946 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[EVALREG] = 1;
                                                                //   5947                 OPND1_FLAG=9; OPND1_XB=EVALREG<<4
#line 5947 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 9;
#line 5947 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XB = ((EVALREG) << (4));
                                                                //   5948                 OPND1_D=0; ->SUSE
#line 5948 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = 0;
#line 5948 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5949              %FINISH
#line 5949 "regression-compile-tmp/nrimp10s-77.imp"
L_05a5:;
                                                                //   5950           %FINISH
#line 5950 "regression-compile-tmp/nrimp10s-77.imp"
L_05a4:;
                                                                //   5951  BINOP:   LOAD(OPND1,EVALREG,2);
#line 5951 "regression-compile-tmp/nrimp10s-77.imp"
U_103e:;
#line 5951 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   5952           LOAD(OPND2,EVALREG,1)
#line 5952 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND2, EVALREG, 1);
                                                                //   5953           PUT; -> SUSE
#line 5953 "regression-compile-tmp/nrimp10s-77.imp"
PUT();
#line 5953 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5954  SW(21):                                 ! SUBTRACT
#line 5954 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_21:;
                                                                //   5955           ->BINOP
#line 5955 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5956  SW(22):                                 ! EXCLUSIVE OR
#line 5956 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_22:;
                                                                //   5957  SW(23):                                 ! OR
#line 5957 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_23:;
                                                                //   5958  SW(27):                                 ! AND
#line 5958 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_27:;
                                                                //   5959           ->BINOP %IF TYPE=1
#line 5959 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_05a8;
#line 5959 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
#line 5959 "regression-compile-tmp/nrimp10s-77.imp"
L_05a8:;
                                                                //   5960  F24:     FAULT(24,0) %UNLESS TYPE=7
#line 5960 "regression-compile-tmp/nrimp10s-77.imp"
U_103f:;
#line 5960 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (7))) goto L_05a9;
#line 5960 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 5960 "regression-compile-tmp/nrimp10s-77.imp"
L_05a9:;
                                                                //   5961           JJ=20; OPCODE=MCINST(20)
#line 5961 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 20;
#line 5961 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = (MCINST-10)[20];
                                                                //   5962           ->BINOP;                       ! CHANGE OPN TO +
#line 5962 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5963  SW(28):                                 ! SRL
#line 5963 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_28:;
                                                                //   5964           %IF OPND2_FLAG=0 %THEN OPND2_D=-OPND2_D %ELSE %START
#line 5964 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) != (0))) goto L_05aa;
#line 5964 "regression-compile-tmp/nrimp10s-77.imp"
OPND2->D = (-(OPND2->D));
#line 5964 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05ab;
#line 5964 "regression-compile-tmp/nrimp10s-77.imp"
L_05aa:;
                                                                //   5965              LOAD(OPND2,EVALREG,2);          ! OPND TO ACC
#line 5965 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND2, EVALREG, 2);
                                                                //   5966              PSF1(IRSB,0,0);             ! AND NEGATE IT
#line 5966 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(228, 0, 0);
                                                                //   5967              GRUSE(EVALREG)=0
#line 5967 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 0;
                                                                //   5968           %FINISH
#line 5968 "regression-compile-tmp/nrimp10s-77.imp"
L_05ab:;
                                                                //   5969  SW(29):                                 ! SLL
#line 5969 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_29:;
                                                                //   5970           %IF OPND2_PTYPE>>4=6 %THEN SHORTEN(OPND2);! LONINT TO INT
#line 5970 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND2->PTYPE)) >> (4)))) != (6))) goto L_05ac;
#line 5970 "regression-compile-tmp/nrimp10s-77.imp"
SHORTEN(OPND2);
#line 5970 "regression-compile-tmp/nrimp10s-77.imp"
L_05ac:;
                                                                //   5971           -> BINOP
#line 5971 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5972  SW(24):                                ! MULT
#line 5972 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_24:;
                                                                //   5973           -> BINOP
#line 5973 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5974  SW(25):                                 ! INTEGER DIVISION
#line 5974 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_25:;
                                                                //   5975           ->F24 %UNLESS TYPE=1
#line 5975 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (1))) goto L_05ad;
#line 5975 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103f;
#line 5975 "regression-compile-tmp/nrimp10s-77.imp"
L_05ad:;
                                                                //   5976           -> BINOP
#line 5976 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5977  SW(26):                                 ! NORMAL DIVISION
#line 5977 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_26:;
                                                                //   5978           -> BINOP
#line 5978 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103e;
                                                                //   5979  SW(30):                                 ! EXP IN REAL EXPRSN
#line 5979 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_30:;
                                                                //   5980           %IF OPND1_PTYPE&7=1 %THEN FLOAT(OPND1,0)
#line 5980 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND1->PTYPE) & (7))) != (1))) goto L_05ae;
#line 5980 "regression-compile-tmp/nrimp10s-77.imp"
FLOAT(OPND1, 0);
#line 5980 "regression-compile-tmp/nrimp10s-77.imp"
L_05ae:;
                                                                //   5981           %IF OPND2_PTYPE&7=1 %THEN STARSTAR %AND ->SUSE
#line 5981 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND2->PTYPE) & (7))) != (1))) goto L_05af;
#line 5981 "regression-compile-tmp/nrimp10s-77.imp"
STARSTAR();
#line 5981 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
#line 5981 "regression-compile-tmp/nrimp10s-77.imp"
L_05af:;
                                                                //   5982                                          ! REAL**REAL BY SUBROUTINE
                                                                //   5983           REXP; COMM=2; ->SUSE
#line 5983 "regression-compile-tmp/nrimp10s-77.imp"
REXP();
#line 5983 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 2;
#line 5983 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5984  SW(37):                                 ! EXP IN INTEGER CONTEXT
#line 5984 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_37:;
                                                                //   5985           STARSTAR; -> SUSE
#line 5985 "regression-compile-tmp/nrimp10s-77.imp"
STARSTAR();
#line 5985 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103d;
                                                                //   5986  SW(31):                                 ! COMPARISONS
#line 5986 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_31:;
                                                                //   5987  SW(32):                                 ! DSIDED COMPARISONS 
#line 5987 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_32:;
                                                                //   5988           PTYPE=OPND1_PTYPE
#line 5988 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = OPND1->PTYPE;
                                                                //   5989           ->Z1 %IF OPND1_FLAG<=1 %AND OPND1_D=0 %AND JJ=31 %AND (OPND1_XTRA=0 %OR PTYPE>>4=5);! INT 0 OR LONGINT 0
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) > (1))) goto L_05b0;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->D) != (0))) goto L_05b0;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (31))) goto L_05b0;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->XTRA) == (0))) goto L_0596;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(PTYPE)) >> (4)))) != (5))) goto L_05b0;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
L_0596:;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1040;
#line 5989 "regression-compile-tmp/nrimp10s-77.imp"
L_05b0:;
                                                                //   5990           -> Z2 %IF OPND2_FLAG<=1 %AND OPND2_D=0 %AND (OPND2_XTRA=0 %OR OPND2_PTYPE>>4=5)
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) > (1))) goto L_05b1;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->D) != (0))) goto L_05b1;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->XTRA) == (0))) goto L_05b2;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND2->PTYPE)) >> (4)))) != (5))) goto L_05b1;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
L_05b2:;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1041;
#line 5990 "regression-compile-tmp/nrimp10s-77.imp"
L_05b1:;
                                                                //   5991           LOAD(OPND1,EVALREG,2)
#line 5991 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   5992           LOAD(OPND2,EVALREG,1)
#line 5992 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND2, EVALREG, 1);
                                                                //   5993           PUT
#line 5993 "regression-compile-tmp/nrimp10s-77.imp"
PUT();
                                                                //   5994           REGISTER(EVALREG)=0
#line 5994 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[EVALREG] = 0;
                                                                //   5995           BFFLAG=COMM-1;                ! NOTE BACKWARDS OR FORWARDS
#line 5995 "regression-compile-tmp/nrimp10s-77.imp"
BFFLAG = (((int)(COMM)) - (1));
                                                                //   5996           MASK=FCOMP(XTRA+7*BFFLAG)
#line 5996 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[((XTRA) + ((int)((((int)(7)) * (BFFLAG)))))];
                                                                //   5997           COMM=2; ->STRES;              ! 2ND OPERAND MAY BE NEEDED IN
#line 5997 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 2;
#line 5997 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103c;
                                                                //   5998                                         ! DOUBLE SIDED AND IS THEREFORE
                                                                //   5999                                         ! TAKEN AS THE 'RESULT'
                                                                //   6000  Z1:      COMM=3-COMM
#line 6000 "regression-compile-tmp/nrimp10s-77.imp"
U_1040:;
#line 6000 "regression-compile-tmp/nrimp10s-77.imp"
COMM = (((int)(3)) - (COMM));
                                                                //   6001  Z2:      OPND==RECORD(OPERAND(COMM))
#line 6001 "regression-compile-tmp/nrimp10s-77.imp"
U_1041:;
#line 6001 "regression-compile-tmp/nrimp10s-77.imp"
OPND =  (RD *) _imp_RECORD(OPERAND[(((int)(COMM)) - (1))]);
                                                                //   6002           C=EVALREG; D=EVALREG!!7
#line 6002 "regression-compile-tmp/nrimp10s-77.imp"
C = EVALREG;
#line 6002 "regression-compile-tmp/nrimp10s-77.imp"
D = ((EVALREG) ^ (7));
                                                                //   6003           %IF OPND_FLAG=2 %AND GRUSE(D)=9 %AND (GRINF1(D)&16_FFFF=OPND_XTRA %OR GRINF1(D)>>16=OPND_XTRA) %THEN C=D
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) != (2))) goto L_05b3;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[D]) != (9))) goto L_05b3;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRINF1[D]) & (65535))) == (OPND->XTRA))) goto L_05b4;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF1[D])) >> (16)))) != (OPND->XTRA))) goto L_05b3;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
L_05b4:;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
C = D;
#line 6003 "regression-compile-tmp/nrimp10s-77.imp"
L_05b3:;
                                                                //   6004           LOAD(OPND,C,2)
#line 6004 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND, C, 2);
                                                                //   6005           REGISTER(C)=0
#line 6005 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[C] = 0;
                                                                //   6006           MASK=FCOMP(XTRA+7*COMM+7)
#line 6006 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[(((int)(((XTRA) + ((int)((((int)(7)) * (COMM))))))) + (7))];
                                                                //   6007           %IF TYPE=1 %THEN MASK=MASK+4
#line 6007 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_05b5;
#line 6007 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (((int)(MASK)) + (4));
#line 6007 "regression-compile-tmp/nrimp10s-77.imp"
L_05b5:;
                                                                //   6008           %IF C=BREG %THEN MASK=MASK+8
#line 6008 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (7))) goto L_05b6;
#line 6008 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (((int)(MASK)) + (8));
#line 6008 "regression-compile-tmp/nrimp10s-77.imp"
L_05b6:;
                                                                //   6009           COMM=2; ->STRES
#line 6009 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 2;
#line 6009 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103c;
                                                                //   6010  SW(33):                                 ! SPECIAL MH FOR ARRAY ACCESS
#line 6010 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_33:;
                                                                //   6011           C=OPND2_D>>24;                 ! CURRENT DIMENSION
#line 6011 "regression-compile-tmp/nrimp10s-77.imp"
C = (int)((((unsigned int)(OPND2->D)) >> (24)));
                                                                //   6012           D=OPND2_D>>16&31;              ! TOTAL NO OF DIMENSIONS
#line 6012 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)((((unsigned int)(OPND2->D)) >> (16)))) & (31));
                                                                //   6013           %IF D=1 %THEN VMY1 %ELSE VMY
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (1))) goto L_05b7;
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
VMY1();
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05b8;
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
L_05b7:;
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
VMY();
#line 6013 "regression-compile-tmp/nrimp10s-77.imp"
L_05b8:;
                                                                //   6014           %IF OPND1_FLAG>1 %THEN OLINK(LOADREG)=OPERAND(COMM);!  IF RESULT THEN PROTECT IT
#line 6014 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) <= (1))) goto L_05b9;
#line 6014 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[LOADREG] = OPERAND[(((int)(COMM)) - (1))];
#line 6014 "regression-compile-tmp/nrimp10s-77.imp"
L_05b9:;
                                                                //   6015           %IF C=1 %THEN ->STRES
#line 6015 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (1))) goto L_05ba;
#line 6015 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103c;
#line 6015 "regression-compile-tmp/nrimp10s-77.imp"
L_05ba:;
                                                                //   6016           ->ANYMORE
#line 6016 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103a;
                                                                //   6017  SW(34):                                   ! ->LAB MASKS AND LAB AS OPND2
#line 6017 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_34:;
                                                                //   6018                                            ! OPND1 MIDDLE OF D-SIDED
                                                                //   6019           ABORT
#line 6019 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   6020  SW(35):                                   ! ASSIGN(=)
#line 6020 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_35:;
                                                                //   6021  SW(36):                                 ! ASSIGN(<-)
#line 6021 "regression-compile-tmp/nrimp10s-77.imp"
sw16_SW_36:;
                                                                //   6022           PT=OPND2_PTYPE; PP=OPND2_D
#line 6022 "regression-compile-tmp/nrimp10s-77.imp"
PT = OPND2->PTYPE;
#line 6022 "regression-compile-tmp/nrimp10s-77.imp"
PP = OPND2->D;
                                                                //   6023           %IF PT&7=1 %AND OPND1_PTYPE&7=2 %THEN  FAULT(24,0)
#line 6023 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PT) & (7))) != (1))) goto L_05bb;
#line 6023 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND1->PTYPE) & (7))) != (2))) goto L_05bb;
#line 6023 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 6023 "regression-compile-tmp/nrimp10s-77.imp"
L_05bb:;
                                                                //   6024           %IF PT&7=2 %AND OPND1_PTYPE&7=1 %THEN FLOAT(OPND1,OPND2_PTYPE)
#line 6024 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PT) & (7))) != (2))) goto L_05bc;
#line 6024 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND1->PTYPE) & (7))) != (1))) goto L_05bc;
#line 6024 "regression-compile-tmp/nrimp10s-77.imp"
FLOAT(OPND1, OPND2->PTYPE);
#line 6024 "regression-compile-tmp/nrimp10s-77.imp"
L_05bc:;
                                                                //   6025           LOAD(OPND1,EVALREG,2);             ! RHS TO ACC
#line 6025 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   6026           REGISTER(EVALREG)=2
#line 6026 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[EVALREG] = 2;
                                                                //   6027           C=PT>>4; D=OPND1_PTYPE>>4
#line 6027 "regression-compile-tmp/nrimp10s-77.imp"
C = (int)((((unsigned int)(PT)) >> (4)));
#line 6027 "regression-compile-tmp/nrimp10s-77.imp"
D = (unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)));
                                                                //   6028           %IF C<5 %THEN C=5
#line 6028 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) >= (5))) goto L_05bd;
#line 6028 "regression-compile-tmp/nrimp10s-77.imp"
C = 5;
#line 6028 "regression-compile-tmp/nrimp10s-77.imp"
L_05bd:;
                                                                //   6029           %IF D<5 %THEN D=5
#line 6029 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) >= (5))) goto L_05be;
#line 6029 "regression-compile-tmp/nrimp10s-77.imp"
D = 5;
#line 6029 "regression-compile-tmp/nrimp10s-77.imp"
L_05be:;
                                                                //   6030           LENGTHEN(OPND1) %AND D=OPND1_PTYPE>>4 %WHILE D<C
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
L_05bf:;
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) >= (C))) goto L_05c0;
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND1);
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
D = (unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)));
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05bf;
#line 6030 "regression-compile-tmp/nrimp10s-77.imp"
L_05c0:;
                                                                //   6031           %WHILE (C<D %AND TYPE=1 %AND JJ#36) %OR C<D-1 %CYCLE
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
L_05c2:;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) >= (D))) goto L_05c5;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_05c5;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (36))) goto L_05c4;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
L_05c5:;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) >= ((((int)(D)) - (1))))) goto L_05c3;
#line 6031 "regression-compile-tmp/nrimp10s-77.imp"
L_05c4:;
                                                                //   6032              SHORTEN(OPND1)
#line 6032 "regression-compile-tmp/nrimp10s-77.imp"
SHORTEN(OPND1);
                                                                //   6033              D=OPND1_PTYPE>>4
#line 6033 "regression-compile-tmp/nrimp10s-77.imp"
D = (unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)));
                                                                //   6034           %REPEAT
#line 6034 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05c2;
#line 6034 "regression-compile-tmp/nrimp10s-77.imp"
L_05c3:;
                                                                //   6035           P=PP; CNAME(1,0);              ! STORE CALL
#line 6035 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
#line 6035 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(1, 0);
                                                                //   6036           D=DISP; C=ACCESS; JJJ=AREA;    ! SAVE INFO FOR STORE
#line 6036 "regression-compile-tmp/nrimp10s-77.imp"
D = DISP;
#line 6036 "regression-compile-tmp/nrimp10s-77.imp"
C = ACCESS;
#line 6036 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = AREA;
                                                                //   6037           KK=PREC
#line 6037 "regression-compile-tmp/nrimp10s-77.imp"
KK = PREC;
                                                                //   6038           LOAD(OPND1,EVALREG,2);             ! IN CASE STACKED
#line 6038 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 2);
                                                                //   6039           %IF JJ=36 %AND TYPE=1 %START
#line 6039 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (36))) goto L_05c6;
#line 6039 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_05c6;
                                                                //   6040              %IF 3<=XTRA<=4 %THEN PF1(AND,0,0,(-1)>>(8*(6-XTRA))) %AND GRUSE(ACCR)=0
#line 6040 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (XTRA))) || (((XTRA) > (4)))) goto L_05c7;
#line 6040 "regression-compile-tmp/nrimp10s-77.imp"
PF1(138, 0, 0, (int)((((unsigned int)((-1))) >> (((8) * ((int)((((int)(6)) - (XTRA)))))))));
#line 6040 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 6040 "regression-compile-tmp/nrimp10s-77.imp"
L_05c7:;
                                                                //   6041              %IF KK<=5 %AND PREC=6 %THEN PSF1(MPSR,0,17) %AND GRUSE(ACCR)=0
#line 6041 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) > (5))) goto L_05c8;
#line 6041 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (6))) goto L_05c8;
#line 6041 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(50, 0, 17);
#line 6041 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 6041 "regression-compile-tmp/nrimp10s-77.imp"
L_05c8:;
                                                                //   6042           %FINISH
#line 6042 "regression-compile-tmp/nrimp10s-77.imp"
L_05c6:;
                                                                //   6043           %IF TYPE=2 %AND KK<PREC %THEN KK=STUH %ELSE KK=ST
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_05c9;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) >= (PREC))) goto L_05c9;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
KK = 74;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05ca;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
L_05c9:;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
KK = 72;
#line 6043 "regression-compile-tmp/nrimp10s-77.imp"
L_05ca:;
                                                                //   6044           %IF EVALREG=BREG %THEN KK=STB
#line 6044 "regression-compile-tmp/nrimp10s-77.imp"
if (((EVALREG) != (7))) goto L_05cb;
#line 6044 "regression-compile-tmp/nrimp10s-77.imp"
KK = 90;
#line 6044 "regression-compile-tmp/nrimp10s-77.imp"
L_05cb:;
                                                                //   6045           PSORLF1(KK,C,JJJ,D)
#line 6045 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(KK, C, JJJ, D);
                                                                //   6046           %IF (C&1=0 %AND STNAME>0) %OR (C=3 %AND STNAME>>16>0) %THEN NOTE ASSMENT(EVALREG,JJ-33,STNAME)
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
if (((((C) & (1))) != (0))) goto L_05cc;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
if (((STNAME) > (0))) goto L_05cd;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
L_05cc:;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (3))) goto L_05ce;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(STNAME)) >> (16)))) <= (0))) goto L_05ce;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
L_05cd:;
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
NOTEASSMENT(EVALREG, (((int)(JJ)) - (33)), STNAME);
#line 6046 "regression-compile-tmp/nrimp10s-77.imp"
L_05ce:;
                                                                //   6047           %IF C>=2 %AND JJJ#7 %START;    ! DR WILL BE LOADED SY STORE
#line 6047 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) < (2))) goto L_05cf;
#line 6047 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) == (7))) goto L_05cf;
                                                                //   6048              %IF STNAME>0 %THEN GRUSE(DR)=7 %AND GRINF1(DR)=STNAME&16_FFFF %ELSE GRUSE(DR)=0
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
if (((STNAME) <= (0))) goto L_05d0;
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 7;
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = ((STNAME) & (65535));
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05d1;
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
L_05d0:;
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
#line 6048 "regression-compile-tmp/nrimp10s-77.imp"
L_05d1:;
                                                                //   6049           %FINISH
#line 6049 "regression-compile-tmp/nrimp10s-77.imp"
L_05cf:;
                                                                //   6050           %IF KK=STUH %THEN GRUSE(ACCR)=0
#line 6050 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) != (74))) goto L_05d2;
#line 6050 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 6050 "regression-compile-tmp/nrimp10s-77.imp"
L_05d2:;
                                                                //   6051           COMM=1; ->STRES
#line 6051 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 1;
#line 6051 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103c;
                                                                //   6052  FINISH:  C=STK(STPTR-1)
#line 6052 "regression-compile-tmp/nrimp10s-77.imp"
U_103b:;
#line 6052 "regression-compile-tmp/nrimp10s-77.imp"
C = STK[(((int)(STPTR)) - (1))];
                                                                //   6053           OPERAND(1)=C
#line 6053 "regression-compile-tmp/nrimp10s-77.imp"
OPERAND[0] = C;
                                                                //   6054           OPND1==RECORD(C)
#line 6054 "regression-compile-tmp/nrimp10s-77.imp"
OPND1 =  (RD *) _imp_RECORD(C);
                                                                //   6055           %IF OPND1_PTYPE>>4&15<5 %THEN OPND1_PTYPE=OPND1_PTYPE&16_F!16_50;! BITS&BYTES->INTEGERS
#line 6055 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)))) & (15))) >= (5))) goto L_05d3;
#line 6055 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->PTYPE = ((((OPND1->PTYPE) & (15))) | (80));
#line 6055 "regression-compile-tmp/nrimp10s-77.imp"
L_05d3:;
                                                                //   6056           %IF CONDFORM=0 %START;         ! IN CONDS ONLY CC MATTERS
#line 6056 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONDFORM) != (0))) goto L_05d4;
                                                                //   6057                                          ! SKIP GETIING OPND INRIGHT FORM
                                                                //   6058                                          ! AND IN THE RIGHT REGISTER
                                                                //   6059              D=MODE>>4&7; D=5 %IF D<5
#line 6059 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)((((unsigned int)(MODE)) >> (4)))) & (7));
#line 6059 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) >= (5))) goto L_05d5;
#line 6059 "regression-compile-tmp/nrimp10s-77.imp"
D = 5;
#line 6059 "regression-compile-tmp/nrimp10s-77.imp"
L_05d5:;
                                                                //   6060              %IF MODE&7=2 %AND OPND1_PTYPE&7=1 %THEN FLOAT(OPND1,D<<4)
#line 6060 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MODE) & (7))) != (2))) goto L_05d6;
#line 6060 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND1->PTYPE) & (7))) != (1))) goto L_05d6;
#line 6060 "regression-compile-tmp/nrimp10s-77.imp"
FLOAT(OPND1, ((D) << (4)));
#line 6060 "regression-compile-tmp/nrimp10s-77.imp"
L_05d6:;
                                                                //   6061              SHORTEN(OPND1) %WHILE D<OPND1_PTYPE>>4
#line 6061 "regression-compile-tmp/nrimp10s-77.imp"
L_05d7:;
#line 6061 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) >= ((unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)))))) goto L_05d8;
#line 6061 "regression-compile-tmp/nrimp10s-77.imp"
SHORTEN(OPND1);
#line 6061 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05d7;
#line 6061 "regression-compile-tmp/nrimp10s-77.imp"
L_05d8:;
                                                                //   6062              LENGTHEN(OPND1) %WHILE D>OPND1_PTYPE>>4 
#line 6062 "regression-compile-tmp/nrimp10s-77.imp"
L_05da:;
#line 6062 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) <= ((unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)))))) goto L_05db;
#line 6062 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND1);
#line 6062 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05da;
#line 6062 "regression-compile-tmp/nrimp10s-77.imp"
L_05db:;
                                                                //   6063              %IF CONSTFORM=0 %OR 2<=OPND1_FLAG#3 %THEN LOAD(OPND1,REG,2)
#line 6063 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTFORM) == (0))) goto L_05dc;
#line 6063 "regression-compile-tmp/nrimp10s-77.imp"
if ((((2) > (OPND1->FLAG))) || (((OPND1->FLAG) == (3)))) goto L_05dd;
#line 6063 "regression-compile-tmp/nrimp10s-77.imp"
L_05dc:;
#line 6063 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, REG, 2);
#line 6063 "regression-compile-tmp/nrimp10s-77.imp"
L_05dd:;
                                                                //   6064           %FINISH
#line 6064 "regression-compile-tmp/nrimp10s-77.imp"
L_05d4:;
                                                                //   6065           EXPOPND=OPND1;                 ! SET RESULT RECORD
#line 6065 "regression-compile-tmp/nrimp10s-77.imp"
EXPOPND = *OPND1;
                                                                //   6066           PTYPE=OPND1_PTYPE
#line 6066 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = OPND1->PTYPE;
                                                                //   6067           TYPE=PTYPE&7; PREC=PTYPE>>4
#line 6067 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (7));
#line 6067 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (int)((((unsigned int)(PTYPE)) >> (4)));
                                                                //   6068           %IF TYPE=2 %AND MODE&7=1 %THEN FAULT(24,0)
#line 6068 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_05de;
#line 6068 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MODE) & (7))) != (1))) goto L_05de;
#line 6068 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 6068 "regression-compile-tmp/nrimp10s-77.imp"
L_05de:;
                                                                //   6069           %IF OPND1_FLAG=9 %THEN REGISTER(OPND1_XB>>4)=0
#line 6069 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (9))) goto L_05df;
#line 6069 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[(unsigned char)((((unsigned char)(OPND1->XB)) >> (4)))] = 0;
#line 6069 "regression-compile-tmp/nrimp10s-77.imp"
L_05df:;
                                                                //   6070           P=SAVEP
#line 6070 "regression-compile-tmp/nrimp10s-77.imp"
P = SAVEP;
                                                                //   6071           %RETURN
#line 6071 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6072  !
                                                                //   6073  %ROUTINE CHOOSE(%INTEGERNAME CHOICE)
#line 6073 "regression-compile-tmp/nrimp10s-77.imp"
void CHOOSE( int /*name*/*CHOICE )
#line 6073 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6074  %RECORD (RD) %NAME OPND1,OPND2{(RD)
#line 6074 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND1;
#line 6074 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND2;
                                                                //   6075           OPND1==RECORD(OPERAND(1))
#line 6075 "regression-compile-tmp/nrimp10s-77.imp"
OPND1 =  (RD *) _imp_RECORD(OPERAND[0]);
                                                                //   6076           OPND2==RECORD(OPERAND(2))
#line 6076 "regression-compile-tmp/nrimp10s-77.imp"
OPND2 =  (RD *) _imp_RECORD(OPERAND[1]);
                                                                //   6077           CHOICE=1
#line 6077 "regression-compile-tmp/nrimp10s-77.imp"
*CHOICE = 1;
                                                                //   6078           %RETURN %IF JJ=21 %AND EVALREG=BREG;! NO REVERSE SUBTRACT B
#line 6078 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (21))) goto L_05e0;
#line 6078 "regression-compile-tmp/nrimp10s-77.imp"
if (((EVALREG) != (7))) goto L_05e0;
#line 6078 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6078 "regression-compile-tmp/nrimp10s-77.imp"
L_05e0:;
                                                                //   6079           CHOICE=2 %IF OPCODE&16_FF00FF00=0 %OR (OPCODE&16_FF00FF#0 %AND (OPND2_FLAG=9 %OR(OPND2_FLAG=2 %AND GRUSE(EVALREG)=9 %AND GRINF1(EVALREG)=OPND2_XTRA>0)))
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPCODE) & ((-16711936)))) == (0))) goto L_05e1;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPCODE) & (16711935))) == (0))) goto L_05e2;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) == (9))) goto L_05e1;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) != (2))) goto L_05e2;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[EVALREG]) != (9))) goto L_05e2;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
if ((((GRINF1[EVALREG]) != (OPND2->XTRA))) || (((OPND2->XTRA) <= (0)))) goto L_05e2;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
L_05e1:;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
*CHOICE = 2;
#line 6079 "regression-compile-tmp/nrimp10s-77.imp"
L_05e2:;
                                                                //   6080           %END
#line 6080 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHOOSE at level 6
                                                                //   6081  %ROUTINE LOAD(%RECORD (RD) %NAME OPND,%INTEGER REG,MODE)
#line 6081 "regression-compile-tmp/nrimp10s-77.imp"
void LOAD(  RD /*name*/*OPND, int REG, int MODE )
#line 6081 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6082  !***********************************************************************
                                                                //   6083  !*       LOAD OPERAND OPND AS DIRECTED BY MODE TO REGISTER REG         *
                                                                //   6084  !*       MODE=0   LEAVE IN STORE IF POSSIBLE                           *
                                                                //   6085  !*       MODE=1 LEAVE IN STORE IF SUITABLE FOR RX INSTRUCTIONS         *
                                                                //   6086  !*       MODE=2 LOAD TO REGISTER REGARDLESS                            *
                                                                //   6087  !***********************************************************************
                                                                //   6088  %INTEGER K,KK
#line 6088 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 6088 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
                                                                //   6089  {%RECORDSPEC OPND(RD)
                                                                //   6090  %SWITCH SW(0:9)
#line 6090 "regression-compile-tmp/nrimp10s-77.imp"
static int sw17_SW_idx;
static const void * /*SWITCH*/ sw17_SW[10] = { &&sw17_SW_0, &&sw17_SW_1, &&sw17_SW_2, &&sw17_SW_3, &&sw17_SW_4, &&sw17_SW_5, &&sw17_SW_6, &&sw17_SW_7, &&sw17_SW_8, &&sw17_SW_9,  };
                                                                //   6091           K=OPND_FLAG
#line 6091 "regression-compile-tmp/nrimp10s-77.imp"
K = OPND->FLAG;
                                                                //   6092          %RETURN %UNLESS MODE=2 %OR K=2 %OR(K<=3 %AND MODE=1)
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (2))) goto L_05e3;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (2))) goto L_05e3;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) > (3))) goto L_05e4;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (1))) goto L_05e3;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
L_05e4:;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6092 "regression-compile-tmp/nrimp10s-77.imp"
L_05e3:;
                                                                //   6093           PTYPE=OPND_PTYPE
#line 6093 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = OPND->PTYPE;
                                                                //   6094           TYPE=PTYPE&15
#line 6094 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (15));
                                                                //   6095           PREC=PTYPE>>4
#line 6095 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (int)((((unsigned int)(PTYPE)) >> (4)));
                                                                //   6096           %IF K<0 %OR K>9 %THEN ABORT
#line 6096 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) < (0))) goto L_05e5;
#line 6096 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) <= (9))) goto L_05e6;
#line 6096 "regression-compile-tmp/nrimp10s-77.imp"
L_05e5:;
#line 6096 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 6096 "regression-compile-tmp/nrimp10s-77.imp"
L_05e6:;
                                                                //   6097           ->SW(K)
#line 6097 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_idx = K; if ((0 <= sw17_SW_idx) && (sw17_SW_idx <= 9)) goto *sw17_SW[sw17_SW_idx]; else {
   /*_imp_signal(8, 2, sw17_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:9 at %s:%d\n",
           sw17_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   6098  SW(0):LITCONST:                        ! CONSTANT < 18 BITS
#line 6098 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_0:;
#line 6098 "regression-compile-tmp/nrimp10s-77.imp"
U_1042:;
                                                                //   6099           AREA=0; ACCESS=0
#line 6099 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
#line 6099 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   6100           %IF PREC<=5 %THEN DISP=OPND_D %ELSE %START
#line 6100 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (5))) goto L_05e7;
#line 6100 "regression-compile-tmp/nrimp10s-77.imp"
DISP = OPND->D;
#line 6100 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05e8;
#line 6100 "regression-compile-tmp/nrimp10s-77.imp"
L_05e7:;
                                                                //   6101              DISP=OPND_XTRA
#line 6101 "regression-compile-tmp/nrimp10s-77.imp"
DISP = OPND->XTRA;
                                                                //   6102              ABORT %UNLESS (DISP>=0 %AND OPND_D=0) %OR (DISP<0 %AND OPND_D=-1)
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
if (((DISP) < (0))) goto L_05e9;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->D) == (0))) goto L_05ea;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
L_05e9:;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
if (((DISP) >= (0))) goto L_05eb;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->D) == ((-1)))) goto L_05ea;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
L_05eb:;
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 6102 "regression-compile-tmp/nrimp10s-77.imp"
L_05ea:;
                                                                //   6103           %FINISH
#line 6103 "regression-compile-tmp/nrimp10s-77.imp"
L_05e8:;
                                                                //   6104           %IF MODE=2 %THEN %START;       ! FETCH TO REG
#line 6104 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (2))) goto L_05ec;
                                                                //   6105              %IF GRUSE(REG)&255=5=PREC %AND GRINF1(REG)=DISP %START
#line 6105 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((GRUSE[REG]) & (255))) != (5))) || (((5) != (PREC)))) goto L_05ed;
#line 6105 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[REG]) != (DISP))) goto L_05ed;
                                                                //   6106                 %IF REGISTER(REG)#0 %THEN BOOT OUT(REG)
#line 6106 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) == (0))) goto L_05ee;
#line 6106 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(REG);
#line 6106 "regression-compile-tmp/nrimp10s-77.imp"
L_05ee:;
                                                                //   6107              %FINISHELSE GET IN ACC(REG,BYTES(PREC)>>2,ACCESS,AREA,DISP)
#line 6107 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05ef;
#line 6107 "regression-compile-tmp/nrimp10s-77.imp"
L_05ed:;
#line 6107 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), ACCESS, AREA, DISP);
#line 6107 "regression-compile-tmp/nrimp10s-77.imp"
L_05ef:;
                                                                //   6108              %IF PREC<=5 %THEN GRUSE(REG)=5 %AND GRINF1(REG)=DISP
#line 6108 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (5))) goto L_05f0;
#line 6108 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 5;
#line 6108 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = DISP;
#line 6108 "regression-compile-tmp/nrimp10s-77.imp"
L_05f0:;
                                                                //   6109              ->LDED
#line 6109 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1043;
                                                                //   6110           %FINISH
#line 6110 "regression-compile-tmp/nrimp10s-77.imp"
L_05ec:;
                                                                //   6111           %IF PREC=3 %THEN OPND_PTYPE=16_51;  ! CONSTBYTEINTEGERS AGAIN
#line 6111 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (3))) goto L_05f1;
#line 6111 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = 81;
#line 6111 "regression-compile-tmp/nrimp10s-77.imp"
L_05f1:;
                                                                //   6112           OPND_FLAG=7; OPND_XB=AREA<<4!ACCESS
#line 6112 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 7;
#line 6112 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((((AREA) << (4))) | (ACCESS));
                                                                //   6113           OPND_D=DISP
#line 6113 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = DISP;
                                                                //   6114           %RETURN
#line 6114 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6115  SW(1):                                  ! LONG CONSTANT
#line 6115 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_1:;
                                                                //   6116           %IF OPND_D=0=OPND_XTRA %AND PREC<=6 %THEN ->LITCONST
#line 6116 "regression-compile-tmp/nrimp10s-77.imp"
if ((((OPND->D) != (0))) || (((0) != (OPND->XTRA)))) goto L_05f2;
#line 6116 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (6))) goto L_05f2;
#line 6116 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1042;
#line 6116 "regression-compile-tmp/nrimp10s-77.imp"
L_05f2:;
                                                                //   6117  SW(3):                                  ! 128 BIT CONSTANT
#line 6117 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_3:;
                                                                //   6118           %IF PREC=7 %THEN KK=OPND_XTRA %ELSE KK=ADDR(OPND_D)
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (7))) goto L_05f3;
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
KK = OPND->XTRA;
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05f4;
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
L_05f3:;
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
KK = _imp_ADDR(&OPND->D);
#line 6118 "regression-compile-tmp/nrimp10s-77.imp"
L_05f4:;
                                                                //   6119           STORE CONST(DISP,BYTES(PREC),KK)
#line 6119 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&DISP, BYTES[PREC], KK);
                                                                //   6120           %IF MODE#2 %THEN %START
#line 6120 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (2))) goto L_05f5;
                                                                //   6121              OPND_FLAG=7; OPND_XB=PC<<4
#line 6121 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 7;
#line 6121 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((4) << (4));
                                                                //   6122              OPND_D=DISP; %RETURN
#line 6122 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = DISP;
#line 6122 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6123           %FINISH
#line 6123 "regression-compile-tmp/nrimp10s-77.imp"
L_05f5:;
                                                                //   6124           %IF GRUSE(REG)&255=6 %AND GRINF1(REG)=DISP %THEN %START
#line 6124 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRUSE[REG]) & (255))) != (6))) goto L_05f6;
#line 6124 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[REG]) != (DISP))) goto L_05f6;
                                                                //   6125              %IF REGISTER(REG)#0 %THEN BOOT OUT (REG)
#line 6125 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) == (0))) goto L_05f7;
#line 6125 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(REG);
#line 6125 "regression-compile-tmp/nrimp10s-77.imp"
L_05f7:;
                                                                //   6126           %FINISH %ELSE GET IN ACC(REG,BYTES(PREC)>>2,0,PC,DISP)
#line 6126 "regression-compile-tmp/nrimp10s-77.imp"
goto L_05f8;
#line 6126 "regression-compile-tmp/nrimp10s-77.imp"
L_05f6:;
#line 6126 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), 0, 4, DISP);
#line 6126 "regression-compile-tmp/nrimp10s-77.imp"
L_05f8:;
                                                                //   6127           GRUSE(REG)=6; GRINF1(REG)=DISP
#line 6127 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 6;
#line 6127 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = DISP;
                                                                //   6128           ->LDED
#line 6128 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1043;
                                                                //   6129  SW(2):                                  ! NAME
#line 6129 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_2:;
                                                                //   6130           P=OPND_D
#line 6130 "regression-compile-tmp/nrimp10s-77.imp"
P = OPND->D;
                                                                //   6131           -> LOAD %IF MODE=2 %OR OPND_XB#0;! COMPLEX NAMES MUST BE LOADED
#line 6131 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (2))) goto L_05f9;
#line 6131 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->XB) == (0))) goto L_05fa;
#line 6131 "regression-compile-tmp/nrimp10s-77.imp"
L_05f9:;
#line 6131 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1044;
#line 6131 "regression-compile-tmp/nrimp10s-77.imp"
L_05fa:;
                                                                //   6132           CNAME(5,REG)
#line 6132 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(5, REG);
                                                                //   6133           ->LDED %IF NEST>=0
#line 6133 "regression-compile-tmp/nrimp10s-77.imp"
if (((NEST) < (0))) goto L_05fb;
#line 6133 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1043;
#line 6133 "regression-compile-tmp/nrimp10s-77.imp"
L_05fb:;
                                                                //   6134           AREA=-1
#line 6134 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   6135           AREA=AREA CODE
#line 6135 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
                                                                //   6136           OPND_PTYPE<-PTYPE
#line 6136 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = PTYPE;
                                                                //   6137           OPND_FLAG=7
#line 6137 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 7;
                                                                //   6138           OPND_XB=AREA<<4!ACCESS
#line 6138 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((((AREA) << (4))) | (ACCESS));
                                                                //   6139           OPND_D=DISP; %RETURN
#line 6139 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = DISP;
#line 6139 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6140  LOAD:    CNAME(2,REG)
#line 6140 "regression-compile-tmp/nrimp10s-77.imp"
U_1044:;
#line 6140 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(2, REG);
                                                                //   6141  LDED:    REGISTER(REG)=1;          ! CLAIM THE REGISTER
#line 6141 "regression-compile-tmp/nrimp10s-77.imp"
U_1043:;
#line 6141 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 1;
                                                                //   6142           OLINK(REG)=ADDR(OPND)
#line 6142 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[REG] = _imp_ADDR(OPND);
                                                                //   6143           %IF PREC<5 %THEN OPND_PTYPE=OPND_PTYPE&15!16_50
#line 6143 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) >= (5))) goto L_05fc;
#line 6143 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = ((((OPND->PTYPE) & (15))) | (80));
#line 6143 "regression-compile-tmp/nrimp10s-77.imp"
L_05fc:;
                                                                //   6144           OPND_FLAG=9; OPND_D=0; OPND_XB=REG<<4
#line 6144 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 9;
#line 6144 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = 0;
#line 6144 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((REG) << (4));
                                                                //   6145           %IF REG=BREG %AND REGISTER(ACCR)&1#0 %THEN REGISTER(BREG)=2
#line 6145 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_05fd;
#line 6145 "regression-compile-tmp/nrimp10s-77.imp"
if (((((REGISTER[0]) & (1))) == (0))) goto L_05fd;
#line 6145 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[7] = 2;
#line 6145 "regression-compile-tmp/nrimp10s-77.imp"
L_05fd:;
                                                                //   6146           %RETURN
#line 6146 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6147  SW(4):                                  ! CONDITIONAL EXPRESSION
#line 6147 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_4:;
                                                                //   6148  SW(5):                                  ! UNASSIGNED
#line 6148 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_5:;
                                                                //   6149  SW(6):                                  ! UNASSIGNED
#line 6149 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_6:;
                                                                //   6150           ABORT
#line 6150 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   6151  SW(7):                                  ! I-R IN A STACK FRAME
#line 6151 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_7:;
                                                                //   6152           AREA=OPND_XB>>4
#line 6152 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (unsigned char)((((unsigned char)(OPND->XB)) >> (4)));
                                                                //   6153           ACCESS=OPND_XB&15
#line 6153 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((OPND->XB) & (15));
                                                                //   6154           DISP=OPND_D
#line 6154 "regression-compile-tmp/nrimp10s-77.imp"
DISP = OPND->D;
                                                                //   6155  PICKUP:  GET IN ACC(REG,BYTES(PREC)>>2,ACCESS,AREA,DISP)
#line 6155 "regression-compile-tmp/nrimp10s-77.imp"
U_1045:;
#line 6155 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), ACCESS, AREA, DISP);
                                                                //   6156           ->LDED
#line 6156 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1043;
                                                                //   6157  SW(8):                                  ! I-R THAT HAS BEEN STACKED
#line 6157 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_8:;
                                                                //   6158           AREA=TOS; ACCESS=0; DISP=0; ->PICK UP
#line 6158 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 6;
#line 6158 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 6158 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 6158 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1045;
                                                                //   6159  SW(9):                                  ! I-R IN A REGISTER
#line 6159 "regression-compile-tmp/nrimp10s-77.imp"
sw17_SW_9:;
                                                                //   6160           %IF OPND_XB>>4=REG %THEN -> LDED
#line 6160 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND->XB)) >> (4)))) != (REG))) goto L_05fe;
#line 6160 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1043;
#line 6160 "regression-compile-tmp/nrimp10s-77.imp"
L_05fe:;
                                                                //   6161           %IF REG#ACCR %THEN %START
#line 6161 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (0))) goto L_05ff;
                                                                //   6162              BOOT OUT(BREG) %UNLESS REGISTER(BREG)=0
#line 6162 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) == (0))) goto L_0600;
#line 6162 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 6162 "regression-compile-tmp/nrimp10s-77.imp"
L_0600:;
                                                                //   6163              PF1(ST,0,BREG,0)
#line 6163 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   6164           %FINISH %ELSE GET IN ACC(ACCR,1,0,BREG,0)
#line 6164 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0601;
#line 6164 "regression-compile-tmp/nrimp10s-77.imp"
L_05ff:;
#line 6164 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 7, 0);
#line 6164 "regression-compile-tmp/nrimp10s-77.imp"
L_0601:;
                                                                //   6165           REGISTER(OPND_XB>>4)=0
#line 6165 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[(unsigned char)((((unsigned char)(OPND->XB)) >> (4)))] = 0;
                                                                //   6166           OPND_XB=REG<<4; GRUSE(REG)=0
#line 6166 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((REG) << (4));
#line 6166 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 0;
                                                                //   6167           REGISTER(REG)=1; OLINK(REG)=ADDR(OPND)
#line 6167 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 1;
#line 6167 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[REG] = _imp_ADDR(OPND);
                                                                //   6168           %END
#line 6168 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOAD at level 6
                                                                //   6169  %ROUTINE PUT
#line 6169 "regression-compile-tmp/nrimp10s-77.imp"
void PUT( void )
#line 6169 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6170  !***********************************************************************
                                                                //   6171  !*       THIS ROUTINE PLANTS CODE TO PERFORM THE BASIC                 *
                                                                //   6172  !*       OPERATION DEFINED BY OPND1,OPND2 & OPCODE                     *
                                                                //   6173  !***********************************************************************
                                                                //   6174  %INTEGER CODE,OCODE
#line 6174 "regression-compile-tmp/nrimp10s-77.imp"
int CODE;
#line 6174 "regression-compile-tmp/nrimp10s-77.imp"
int OCODE;
                                                                //   6175           CODE=OPCODE
#line 6175 "regression-compile-tmp/nrimp10s-77.imp"
CODE = OPCODE;
                                                                //   6176           %IF COMM=1 %THEN CODE=CODE>>8
#line 6176 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMM) != (1))) goto L_0602;
#line 6176 "regression-compile-tmp/nrimp10s-77.imp"
CODE = (int)((((unsigned int)(CODE)) >> (8)));
#line 6176 "regression-compile-tmp/nrimp10s-77.imp"
L_0602:;
                                                                //   6177           CODE=CODE&255; OCODE=CODE
#line 6177 "regression-compile-tmp/nrimp10s-77.imp"
CODE = ((CODE) & (255));
#line 6177 "regression-compile-tmp/nrimp10s-77.imp"
OCODE = CODE;
                                                                //   6178           %IF EVALREG=BREG %THEN CODE=CODE-16_C0
#line 6178 "regression-compile-tmp/nrimp10s-77.imp"
if (((EVALREG) != (7))) goto L_0603;
#line 6178 "regression-compile-tmp/nrimp10s-77.imp"
CODE = (((int)(CODE)) - (192));
#line 6178 "regression-compile-tmp/nrimp10s-77.imp"
L_0603:;
                                                                //   6179           ABORT %UNLESS OPND1_FLAG=9
#line 6179 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) == (9))) goto L_0604;
#line 6179 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 6179 "regression-compile-tmp/nrimp10s-77.imp"
L_0604:;
                                                                //   6180           PSORLF1(CODE,OPND2_XB&15,OPND2_XB>>4,OPND2_D)
#line 6180 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(CODE, ((OPND2->XB) & (15)), (unsigned char)((((unsigned char)(OPND2->XB)) >> (4))), OPND2->D);
                                                                //   6181           %IF OCODE=IAD %AND GRUSE(EVALREG)=9 %AND OPND2_XB=0 %AND OPND2_D<4095 %AND GRINF1(EVALREG)>>16=0 %THEN %START
#line 6181 "regression-compile-tmp/nrimp10s-77.imp"
if (((OCODE) != (224))) goto L_0605;
#line 6181 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[EVALREG]) != (9))) goto L_0605;
#line 6181 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->XB) != (0))) goto L_0605;
#line 6181 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->D) >= (4095))) goto L_0605;
#line 6181 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF1[EVALREG])) >> (16)))) != (0))) goto L_0605;
                                                                //   6182              GRUSE(EVALREG)=10
#line 6182 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 10;
                                                                //   6183              GRINF1(EVALREG)=GRINF1(EVALREG)&16_FFFF!OPND2_D<<16
#line 6183 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[EVALREG] = ((((GRINF1[EVALREG]) & (65535))) | (((OPND2->D) << (16))));
                                                                //   6184           %FINISH %ELSE %START
#line 6184 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0606;
#line 6184 "regression-compile-tmp/nrimp10s-77.imp"
L_0605:;
                                                                //   6185              GRUSE(EVALREG)=0 %UNLESS 31<=JJ<=32
#line 6185 "regression-compile-tmp/nrimp10s-77.imp"
if ((((31) > (JJ))) || (((JJ) <= (32)))) goto L_0608;
#line 6185 "regression-compile-tmp/nrimp10s-77.imp"
L_0607:;
#line 6185 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[EVALREG] = 0;
#line 6185 "regression-compile-tmp/nrimp10s-77.imp"
L_0608:;
                                                                //   6186           %FINISH
#line 6186 "regression-compile-tmp/nrimp10s-77.imp"
L_0606:;
                                                                //   6187           OLINK(EVALREG)=OPERAND(COMM)
#line 6187 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[EVALREG] = OPERAND[(((int)(COMM)) - (1))];
                                                                //   6188           %END
#line 6188 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUT at level 6
                                                                //   6189  %ROUTINE FLOAT(%RECORD(RD)%NAME OPND,%INTEGER OTHERPTYPE)
#line 6189 "regression-compile-tmp/nrimp10s-77.imp"
void FLOAT(  RD /*name*/*OPND, int OTHERPTYPE )
#line 6189 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6190  !***********************************************************************
                                                                //   6191  !*       PLANT CODE TO CONERT OPERAND FROM FIXED TO FLOATING           *
                                                                //   6192  !***********************************************************************
                                                                //   6193  {%RECORDSPEC OPND(RD)
                                                                //   6194           %IF OPND_FLAG<=1 %THEN %START
#line 6194 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) > (1))) goto L_0609;
                                                                //   6195              CVALUE=OPND_D
#line 6195 "regression-compile-tmp/nrimp10s-77.imp"
CVALUE = OPND->D;
                                                                //   6196              OPND_D=INTEGER(ADDR(CVALUE))
#line 6196 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = *_imp_INTEGER(_imp_ADDR(&CVALUE));
                                                                //   6197              OPND_XTRA=INTEGER(ADDR(CVALUE)+4)
#line 6197 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XTRA = *_imp_INTEGER((((int)(_imp_ADDR(&CVALUE))) + (4)));
                                                                //   6198              OPND_FLAG=1
#line 6198 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 1;
                                                                //   6199           %FINISH %ELSE %START
#line 6199 "regression-compile-tmp/nrimp10s-77.imp"
goto L_060a;
#line 6199 "regression-compile-tmp/nrimp10s-77.imp"
L_0609:;
                                                                //   6200              LOAD(OPND,ACCR,2)
#line 6200 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND, 0, 2);
                                                                //   6201              %IF OTHERPTYPE&16_F0=16_70 %AND OPND_PTYPE&16_F0<=16_50 %THEN PSF1(IMYD,0,1) %AND OPND_PTYPE=OPND_PTYPE&15!16_60
#line 6201 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OTHERPTYPE) & (240))) != (112))) goto L_060b;
#line 6201 "regression-compile-tmp/nrimp10s-77.imp"
if (((((OPND->PTYPE) & (240))) > (80))) goto L_060b;
#line 6201 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(236, 0, 1);
#line 6201 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = ((((OPND->PTYPE) & (15))) | (96));
#line 6201 "regression-compile-tmp/nrimp10s-77.imp"
L_060b:;
                                                                //   6202              PSF1(FLT,0,0)
#line 6202 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(168, 0, 0);
                                                                //   6203              GRUSE(ACCR)=0
#line 6203 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   6204           %FINISH
#line 6204 "regression-compile-tmp/nrimp10s-77.imp"
L_060a:;
                                                                //   6205           OPND_PTYPE=OPND_PTYPE+16_11
#line 6205 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = (((int)(OPND->PTYPE)) + (17));
                                                                //   6206           TYPE=2
#line 6206 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 2;
                                                                //   6207  %END
#line 6207 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FLOAT at level 6
                                                                //   6208  %ROUTINE COERCET(%RECORD(RD)%NAME OPND1,OPND2,%INTEGER MODE)
#line 6208 "regression-compile-tmp/nrimp10s-77.imp"
void COERCET(  RD /*name*/*OPND1,  RD /*name*/*OPND2, int MODE )
#line 6208 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6209  !***********************************************************************
                                                                //   6210  !*         MODE=1 BOTH OPERANDS INTEGER ELSE ERROR                     *
                                                                //   6211  !*         MODE=2 FORCE BOTH OPERAND TO BE OF TYPE REAL                *
                                                                //   6212  !*         MODE=15  BOTH OPERANDS TO BE OF LAGEST TYPE                 *
                                                                //   6213  !***********************************************************************
                                                                //   6214  {%RECORDSPEC OPND1(RD)
                                                                //   6215  {%RECORDSPEC OPND2(RD)
                                                                //   6216  %INTEGER PT1,PT2
#line 6216 "regression-compile-tmp/nrimp10s-77.imp"
int PT1;
#line 6216 "regression-compile-tmp/nrimp10s-77.imp"
int PT2;
                                                                //   6217           PT1=OPND1_PTYPE&7
#line 6217 "regression-compile-tmp/nrimp10s-77.imp"
PT1 = ((OPND1->PTYPE) & (7));
                                                                //   6218           PT2=OPND2_PTYPE&7
#line 6218 "regression-compile-tmp/nrimp10s-77.imp"
PT2 = ((OPND2->PTYPE) & (7));
                                                                //   6219           %IF (MODE=1 %OR MODE=15) %AND PT1=1=PT2 %THEN %RETURN
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) == (1))) goto L_060c;
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (15))) goto L_060d;
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
L_060c:;
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PT1) != (1))) || (((1) != (PT2)))) goto L_060d;
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6219 "regression-compile-tmp/nrimp10s-77.imp"
L_060d:;
                                                                //   6220           %IF MODE=1 %THEN FAULT(24,0) %AND %RETURN
#line 6220 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (1))) goto L_060e;
#line 6220 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 6220 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6220 "regression-compile-tmp/nrimp10s-77.imp"
L_060e:;
                                                                //   6221           %IF PT1=1 %THEN FLOAT(OPND1,OPND2_PTYPE)
#line 6221 "regression-compile-tmp/nrimp10s-77.imp"
if (((PT1) != (1))) goto L_060f;
#line 6221 "regression-compile-tmp/nrimp10s-77.imp"
FLOAT(OPND1, OPND2->PTYPE);
#line 6221 "regression-compile-tmp/nrimp10s-77.imp"
L_060f:;
                                                                //   6222           %IF PT2=1 %THEN FLOAT(OPND2,OPND1_PTYPE)
#line 6222 "regression-compile-tmp/nrimp10s-77.imp"
if (((PT2) != (1))) goto L_0610;
#line 6222 "regression-compile-tmp/nrimp10s-77.imp"
FLOAT(OPND2, OPND1->PTYPE);
#line 6222 "regression-compile-tmp/nrimp10s-77.imp"
L_0610:;
                                                                //   6223  %END
#line 6223 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COERCET at level 6
                                                                //   6224  %ROUTINE COERCEP(%RECORD(RD)%NAME OPND1,OPND2)
#line 6224 "regression-compile-tmp/nrimp10s-77.imp"
void COERCEP(  RD /*name*/*OPND1,  RD /*name*/*OPND2 )
#line 6224 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6225  !***********************************************************************
                                                                //   6226  !*       FORCE BOTH OPERAND TO THE SAME PRECISION BEFORE OPRNTN        *
                                                                //   6227  !***********************************************************************
                                                                //   6228  {%RECORDSPEC OPND1(RD)
                                                                //   6229  {%RECORDSPEC OPND2(RD)
                                                                //   6230  %INTEGER PREC1,PREC2
#line 6230 "regression-compile-tmp/nrimp10s-77.imp"
int PREC1;
#line 6230 "regression-compile-tmp/nrimp10s-77.imp"
int PREC2;
                                                                //   6231           PREC1=OPND1_PTYPE>>4
#line 6231 "regression-compile-tmp/nrimp10s-77.imp"
PREC1 = (unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)));
                                                                //   6232           PREC2=OPND2_PTYPE>>4
#line 6232 "regression-compile-tmp/nrimp10s-77.imp"
PREC2 = (unsigned char)((((unsigned char)(OPND2->PTYPE)) >> (4)));
                                                                //   6233           %WHILE PREC1<PREC2 %CYCLE
#line 6233 "regression-compile-tmp/nrimp10s-77.imp"
L_0611:;
#line 6233 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC1) >= (PREC2))) goto L_0612;
                                                                //   6234              LENGTHEN(OPND1)
#line 6234 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND1);
                                                                //   6235              PREC1=OPND1_PTYPE>>4
#line 6235 "regression-compile-tmp/nrimp10s-77.imp"
PREC1 = (unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)));
                                                                //   6236           %REPEAT
#line 6236 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0611;
#line 6236 "regression-compile-tmp/nrimp10s-77.imp"
L_0612:;
                                                                //   6237  !
                                                                //   6238           %WHILE PREC2<PREC1 %CYCLE
#line 6238 "regression-compile-tmp/nrimp10s-77.imp"
L_0614:;
#line 6238 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC2) >= (PREC1))) goto L_0615;
                                                                //   6239              LENGTHEN(OPND2)
#line 6239 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND2);
                                                                //   6240              PREC2=OPND2_PTYPE>>4
#line 6240 "regression-compile-tmp/nrimp10s-77.imp"
PREC2 = (unsigned char)((((unsigned char)(OPND2->PTYPE)) >> (4)));
                                                                //   6241           %REPEAT
#line 6241 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0614;
#line 6241 "regression-compile-tmp/nrimp10s-77.imp"
L_0615:;
                                                                //   6242  %END
#line 6242 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COERCEP at level 6
                                                                //   6243  %ROUTINE LENGTHEN(%RECORD(RD)%NAME OPND)
#line 6243 "regression-compile-tmp/nrimp10s-77.imp"
void LENGTHEN(  RD /*name*/*OPND )
#line 6243 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6244  !***********************************************************************
                                                                //   6245  !*       INCREASE OPND PRECISION BY ONE SIZE AT COMPILE TIME IF POSS   *
                                                                //   6246  !***********************************************************************
                                                                //   6247  {%RECORDSPEC OPND(RD)
                                                                //   6248  %INTEGER TP,PR
#line 6248 "regression-compile-tmp/nrimp10s-77.imp"
int TP;
#line 6248 "regression-compile-tmp/nrimp10s-77.imp"
int PR;
                                                                //   6249           TP=OPND_PTYPE&7
#line 6249 "regression-compile-tmp/nrimp10s-77.imp"
TP = ((OPND->PTYPE) & (7));
                                                                //   6250           PR=OPND_PTYPE>>4
#line 6250 "regression-compile-tmp/nrimp10s-77.imp"
PR = (unsigned char)((((unsigned char)(OPND->PTYPE)) >> (4)));
                                                                //   6251           %IF OPND_FLAG<=1 %AND PR<=4+TP %START;  ! LENGTHEN CONSTANT
#line 6251 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) > (1))) goto L_0617;
#line 6251 "regression-compile-tmp/nrimp10s-77.imp"
if (((PR) > ((((int)(4)) + (TP))))) goto L_0617;
                                                                //   6252              %IF TP=1 %AND OPND_FLAG<=1 %START;! INTEGER CONSTANT
#line 6252 "regression-compile-tmp/nrimp10s-77.imp"
if (((TP) != (1))) goto L_0618;
#line 6252 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) > (1))) goto L_0618;
                                                                //   6253                 OPND_XTRA=OPND_D
#line 6253 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XTRA = OPND->D;
                                                                //   6254                 %IF OPND_XTRA<0 %THEN OPND_D=-1 %ELSE OPND_D=0
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->XTRA) >= (0))) goto L_0619;
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = (-1);
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
goto L_061a;
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
L_0619:;
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = 0;
#line 6254 "regression-compile-tmp/nrimp10s-77.imp"
L_061a:;
                                                                //   6255              %FINISH %ELSE %START
#line 6255 "regression-compile-tmp/nrimp10s-77.imp"
goto L_061b;
#line 6255 "regression-compile-tmp/nrimp10s-77.imp"
L_0618:;
                                                                //   6256                 %IF PR=6 %THEN %START
#line 6256 "regression-compile-tmp/nrimp10s-77.imp"
if (((PR) != (6))) goto L_061c;
                                                                //   6257                    TOAR8(R,LONGREAL(ADDR(OPND_D)))
#line 6257 "regression-compile-tmp/nrimp10s-77.imp"
TOAR8(R, *_imp_LONGREAL(_imp_ADDR(&OPND->D)));
                                                                //   6258                    TOAR8(R+8,0)
#line 6258 "regression-compile-tmp/nrimp10s-77.imp"
TOAR8((((int)(R)) + (8)), 0);
                                                                //   6259                    OPND_XTRA=ADDR(A(R))
#line 6259 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XTRA = _imp_ADDR(&A[R]);
                                                                //   6260                    OPND_FLAG=3
#line 6260 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 3;
                                                                //   6261                    R=R+16
#line 6261 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (16));
                                                                //   6262                 %FINISH %ELSE OPND_XTRA=0
#line 6262 "regression-compile-tmp/nrimp10s-77.imp"
goto L_061d;
#line 6262 "regression-compile-tmp/nrimp10s-77.imp"
L_061c:;
#line 6262 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XTRA = 0;
#line 6262 "regression-compile-tmp/nrimp10s-77.imp"
L_061d:;
                                                                //   6263              %FINISH
#line 6263 "regression-compile-tmp/nrimp10s-77.imp"
L_061b:;
                                                                //   6264           %FINISH %ELSE %START;          ! CODE PLANTING REQRD
#line 6264 "regression-compile-tmp/nrimp10s-77.imp"
goto L_061e;
#line 6264 "regression-compile-tmp/nrimp10s-77.imp"
L_0617:;
                                                                //   6265              LOAD(OPND,ACCR,2)
#line 6265 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND, 0, 2);
                                                                //   6266             %IF TP=1 %THEN PSF1(IMYD,0,1) %ELSE PF1(RMYD,0,PC,SPECIAL CONSTS(1));!  REAL ONE=16_41000000
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
if (((TP) != (1))) goto L_061f;
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(236, 0, 1);
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0620;
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
L_061f:;
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
PF1(252, 0, 4, SPECIALCONSTS(1));
#line 6266 "regression-compile-tmp/nrimp10s-77.imp"
L_0620:;
                                                                //   6267              GRUSE(ACCR)=0
#line 6267 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   6268           %FINISH
#line 6268 "regression-compile-tmp/nrimp10s-77.imp"
L_061e:;
                                                                //   6269           OPND_PTYPE=(PR+1)<<4+TP
#line 6269 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = (((int)((((((int)(PR)) + (1))) << (4)))) + (TP));
                                                                //   6270  %END
#line 6270 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LENGTHEN at level 6
                                                                //   6271  %ROUTINE SHORTEN(%RECORD(RD)%NAME OPND)
#line 6271 "regression-compile-tmp/nrimp10s-77.imp"
void SHORTEN(  RD /*name*/*OPND )
#line 6271 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6272  !***********************************************************************
                                                                //   6273  !*       PLANT CODE TO REDUCE ACC SIZE                                 *
                                                                //   6274  !***********************************************************************
                                                                //   6275  {%RECORDSPEC OPND(RD)
                                                                //   6276  %INTEGER TY,PR,F,I,J
#line 6276 "regression-compile-tmp/nrimp10s-77.imp"
int TY;
#line 6276 "regression-compile-tmp/nrimp10s-77.imp"
int PR;
#line 6276 "regression-compile-tmp/nrimp10s-77.imp"
int F;
#line 6276 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 6276 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   6277           TY=OPND_PTYPE&7
#line 6277 "regression-compile-tmp/nrimp10s-77.imp"
TY = ((OPND->PTYPE) & (7));
                                                                //   6278           PR=OPND_PTYPE>>4
#line 6278 "regression-compile-tmp/nrimp10s-77.imp"
PR = (unsigned char)((((unsigned char)(OPND->PTYPE)) >> (4)));
                                                                //   6279           F=OPND_FLAG
#line 6279 "regression-compile-tmp/nrimp10s-77.imp"
F = OPND->FLAG;
                                                                //   6280           %IF F=3 %START;                ! LONGLONGREAL CONSTS
#line 6280 "regression-compile-tmp/nrimp10s-77.imp"
if (((F) != (3))) goto L_0621;
                                                                //   6281              %CYCLE I=0,1,3
#line 6281 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((3)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 3");
L_0622:;
if (I == 3) goto L_0623;
I += 1;
                                                                //   6282                 BYTEINTEGER(ADDR(J)+I)=BYTEINTEGER(OPND_XTRA+4+I)
#line 6282 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(_imp_ADDR(&J))) + (I))) = *_imp_BYTEINTEGER((((int)((((int)(OPND->XTRA)) + (4)))) + (I)));
                                                                //   6283              %REPEAT
#line 6283 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0622;
#line 6283 "regression-compile-tmp/nrimp10s-77.imp"
L_0623:;
                                                                //   6284              OPND_XTRA=J
#line 6284 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XTRA = J;
                                                                //   6285              OPND_FLAG=1;                ! CONST NOW IN _D & _XTRA
#line 6285 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 1;
                                                                //   6286              ->WAYOUT
#line 6286 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1042;
                                                                //   6287           %FINISH
#line 6287 "regression-compile-tmp/nrimp10s-77.imp"
L_0621:;
                                                                //   6288           %IF F<=1 %START
#line 6288 "regression-compile-tmp/nrimp10s-77.imp"
if (((F) > (1))) goto L_0625;
                                                                //   6289              %IF TY=2 %THEN ->WAYOUT
#line 6289 "regression-compile-tmp/nrimp10s-77.imp"
if (((TY) != (2))) goto L_0626;
#line 6289 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1042;
#line 6289 "regression-compile-tmp/nrimp10s-77.imp"
L_0626:;
                                                                //   6290              %IF (OPND_D=0 %AND OPND_XTRA>=0) %OR (OPND_D=-1 %AND OPND_XTRA<0) %THEN OPND_D=OPND_XTRA %AND ->WAYOUT
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->D) != (0))) goto L_0627;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->XTRA) >= (0))) goto L_0624;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
L_0627:;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->D) != ((-1)))) goto L_0628;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->XTRA) >= (0))) goto L_0628;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
L_0624:;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = OPND->XTRA;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1042;
#line 6290 "regression-compile-tmp/nrimp10s-77.imp"
L_0628:;
                                                                //   6291           %FINISH
#line 6291 "regression-compile-tmp/nrimp10s-77.imp"
L_0625:;
                                                                //   6292           LOAD(OPND,ACCR,2)
#line 6292 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND, 0, 2);
                                                                //   6293           %IF PR=7 %THEN %START;          ! SHORTEN QUAD
#line 6293 "regression-compile-tmp/nrimp10s-77.imp"
if (((PR) != (7))) goto L_0629;
                                                                //   6294              PF1(RDDV,0,PC,SPECIAL CONSTS(1))
#line 6294 "regression-compile-tmp/nrimp10s-77.imp"
PF1(190, 0, 4, SPECIALCONSTS(1));
                                                                //   6295           %FINISH %ELSE %START
#line 6295 "regression-compile-tmp/nrimp10s-77.imp"
goto L_062a;
#line 6295 "regression-compile-tmp/nrimp10s-77.imp"
L_0629:;
                                                                //   6296              %IF TYPE=1=PARMARR %THEN PSF1(ISH,0,32)
#line 6296 "regression-compile-tmp/nrimp10s-77.imp"
if ((((TYPE) != (1))) || (((1) != (PARMARR)))) goto L_062b;
#line 6296 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(232, 0, 32);
#line 6296 "regression-compile-tmp/nrimp10s-77.imp"
L_062b:;
                                                                //   6297              PSF1(USH,0,-32) %IF PARMARR=1 %OR TYPE#1
#line 6297 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) == (1))) goto L_062c;
#line 6297 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (1))) goto L_062d;
#line 6297 "regression-compile-tmp/nrimp10s-77.imp"
L_062c:;
#line 6297 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-32));
#line 6297 "regression-compile-tmp/nrimp10s-77.imp"
L_062d:;
                                                                //   6298              %IF REGISTER(BREG)=0 %THEN PF1(STUH,0,BREG,0) %AND GRUSE(BREG)=0 %ELSE PSF1(MPSR,0,17);! ACS TO 1 WORD
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) != (0))) goto L_062e;
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
goto L_062f;
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
L_062e:;
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(50, 0, 17);
#line 6298 "regression-compile-tmp/nrimp10s-77.imp"
L_062f:;
                                                                //   6299           %FINISH
#line 6299 "regression-compile-tmp/nrimp10s-77.imp"
L_062a:;
                                                                //   6300           GRUSE(ACCR)=0
#line 6300 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   6301  WAYOUT:
#line 6301 "regression-compile-tmp/nrimp10s-77.imp"
U_1042:;
                                                                //   6302           OPND_PTYPE=(PR-1)<<4+TY
#line 6302 "regression-compile-tmp/nrimp10s-77.imp"
OPND->PTYPE = (((int)((((((int)(PR)) - (1))) << (4)))) + (TY));
                                                                //   6303  %END
#line 6303 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SHORTEN at level 6
                                                                //   6304  %ROUTINE EXTRACT(%RECORD(RD)%NAME OPND,%LONGINTEGERNAME VAL,{%LONG}%LONGREALNAME RVAL)
#line 6304 "regression-compile-tmp/nrimp10s-77.imp"
void EXTRACT(  RD /*name*/*OPND, long long int /*name*/*VAL, double /*name*/*RVAL )
#line 6304 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6305  !***********************************************************************
                                                                //   6306  !*    EXTRACTS A CONTANT OPERAND RETURNING REAL &INT VALUES           *
                                                                //   6307  !***********************************************************************
                                                                //   6308  {%RECORDSPEC OPND(RD)
                                                                //   6309  %INTEGER TYPE,PREC,S,I,AD
#line 6309 "regression-compile-tmp/nrimp10s-77.imp"
int TYPE;
#line 6309 "regression-compile-tmp/nrimp10s-77.imp"
int PREC;
#line 6309 "regression-compile-tmp/nrimp10s-77.imp"
int S;
#line 6309 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 6309 "regression-compile-tmp/nrimp10s-77.imp"
int AD;
                                                                //   6310        TYPE=OPND_PTYPE; PREC=TYPE>>4
#line 6310 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = OPND->PTYPE;
#line 6310 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (int)((((unsigned int)(TYPE)) >> (4)));
                                                                //   6311        TYPE=TYPE&15
#line 6311 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((TYPE) & (15));
                                                                //   6312        %IF TYPE=1 %THEN %START
#line 6312 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (1))) goto L_0630;
                                                                //   6313           %IF PREC<=5 %THEN VAL=OPND_D %ELSE %START
#line 6313 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) > (5))) goto L_0631;
#line 6313 "regression-compile-tmp/nrimp10s-77.imp"
*VAL = OPND->D;
#line 6313 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0632;
#line 6313 "regression-compile-tmp/nrimp10s-77.imp"
L_0631:;
                                                                //   6314              INTEGER(ADDR(VAL))=OPND_D
#line 6314 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER(_imp_ADDR(VAL)) = OPND->D;
                                                                //   6315              INTEGER(ADDR(VAL)+4)=OPND_XTRA
#line 6315 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_INTEGER((((int)(_imp_ADDR(VAL))) + (4))) = OPND->XTRA;
                                                                //   6316           %FINISH
#line 6316 "regression-compile-tmp/nrimp10s-77.imp"
L_0632:;
                                                                //   6317           RVAL=VAL
#line 6317 "regression-compile-tmp/nrimp10s-77.imp"
*RVAL = *VAL;
                                                                //   6318        %FINISH %ELSE %START
#line 6318 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0633;
#line 6318 "regression-compile-tmp/nrimp10s-77.imp"
L_0630:;
                                                                //   6319           RVAL=0
#line 6319 "regression-compile-tmp/nrimp10s-77.imp"
*RVAL = 0;
                                                                //   6320           %IF PREC=7 %THEN S=15 %AND AD=OPND_XTRA %ELSE S=7 %AND AD=ADDR(OPND_D)
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (7))) goto L_0634;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
S = 15;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
AD = OPND->XTRA;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0635;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
L_0634:;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
S = 7;
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
AD = _imp_ADDR(&OPND->D);
#line 6320 "regression-compile-tmp/nrimp10s-77.imp"
L_0635:;
                                                                //   6321           %CYCLE I=0,1,S
#line 6321 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = S; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, S");
I -= _increment; _control -= _increment;
L_0636:;
if (I == _final) goto L_0637;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   6322              BYTEINTEGER(ADDR(RVAL)+I)=BYTEINTEGER(AD+I)
#line 6322 "regression-compile-tmp/nrimp10s-77.imp"
*_imp_BYTEINTEGER((((int)(_imp_ADDR(RVAL))) + (I))) = *_imp_BYTEINTEGER((((int)(AD)) + (I)));
                                                                //   6323           %REPEAT
#line 6323 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0636;
#line 6323 "regression-compile-tmp/nrimp10s-77.imp"
L_0637:;
                                                                //   6324        %FINISH
#line 6324 "regression-compile-tmp/nrimp10s-77.imp"
L_0633:;
                                                                //   6325  %END
#line 6325 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block EXTRACT at level 6
                                                                //   6326  
                                                                //   6327  %ROUTINE VMY1
#line 6327 "regression-compile-tmp/nrimp10s-77.imp"
void VMY1( void )
#line 6327 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6328  !***********************************************************************
                                                                //   6329  !*    DOES VECTOR MULTIPLIES FOR ONE DIMENSION ARRAYS                  *
                                                                //   6330  !***********************************************************************
                                                                //   6331  %INTEGER OPNAME,VUSE,DVPOS,DVNAME,X,Y,DTYPE,DPREC,DACC,DPTYPE
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int OPNAME;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int VUSE;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DVPOS;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DVNAME;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int X;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int Y;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DTYPE;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DPREC;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DACC;
#line 6331 "regression-compile-tmp/nrimp10s-77.imp"
int DPTYPE;
                                                                //   6332        DPTYPE=XTRA>>16
#line 6332 "regression-compile-tmp/nrimp10s-77.imp"
DPTYPE = (int)((((unsigned int)(XTRA)) >> (16)));
                                                                //   6333        DVNAME=XTRA&16_FFFF
#line 6333 "regression-compile-tmp/nrimp10s-77.imp"
DVNAME = ((XTRA) & (65535));
                                                                //   6334        DVPOS=OPND2_D&16_FFFF
#line 6334 "regression-compile-tmp/nrimp10s-77.imp"
DVPOS = ((OPND2->D) & (65535));
                                                                //   6335        %IF DVPOS>0 %AND OPND1_FLAG<=1 %START;! CONST ITEM & DV FOLD IT
#line 6335 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVPOS) <= (0))) goto L_0639;
#line 6335 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) > (1))) goto L_0639;
                                                                //   6336           X=OPND1_D
#line 6336 "regression-compile-tmp/nrimp10s-77.imp"
X = OPND1->D;
                                                                //   6337           X=X-CTABLE_val(DVPOS+3)
#line 6337 "regression-compile-tmp/nrimp10s-77.imp"
X = (((int)(X)) - (CTABLE->VAL[(((int)(DVPOS)) + (3))]));
                                                                //   6338           X=X*CTABLE_val(DVPOS+4)
#line 6338 "regression-compile-tmp/nrimp10s-77.imp"
X = (((int)(X)) * (CTABLE->VAL[(((int)(DVPOS)) + (4))]));
                                                                //   6339           %IF X<0 %OR X>=CTABLE_val(DVPOS+5) %THEN FAULT2(50,X,DVNAME)
#line 6339 "regression-compile-tmp/nrimp10s-77.imp"
if (((X) < (0))) goto L_0638;
#line 6339 "regression-compile-tmp/nrimp10s-77.imp"
if (((X) < (CTABLE->VAL[(((int)(DVPOS)) + (5))]))) goto L_063a;
#line 6339 "regression-compile-tmp/nrimp10s-77.imp"
L_0638:;
#line 6339 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(50, X, DVNAME);
#line 6339 "regression-compile-tmp/nrimp10s-77.imp"
L_063a:;
                                                                //   6340  !
                                                                //   6341  ! IF ARRAY BASE HAS BEEN SHIFTED TO ZERO ELEMENT PUT BACK THE LB CORRN
                                                                //   6342  ! NOW THE BOUND CHECK HAS BEEN COMPUTED
                                                                //   6343  !
                                                                //   6344           %IF PARMARR=0=PARMCHK %AND DPTYPE&16_C0F<=3 %THEN X=X+CTABLE_val(DVPOS+3)*CTABLE_val(DVPOS+4)
#line 6344 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_063b;
#line 6344 "regression-compile-tmp/nrimp10s-77.imp"
if (((((DPTYPE) & (3087))) > (3))) goto L_063b;
#line 6344 "regression-compile-tmp/nrimp10s-77.imp"
X = ((X) + ((int)((((int)(CTABLE->VAL[(((int)(DVPOS)) + (3))])) * (CTABLE->VAL[(((int)(DVPOS)) + (4))])))));
#line 6344 "regression-compile-tmp/nrimp10s-77.imp"
L_063b:;
                                                                //   6345           OPND1_D=X
#line 6345 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = X;
                                                                //   6346           %RETURN
#line 6346 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6347        %FINISH
#line 6347 "regression-compile-tmp/nrimp10s-77.imp"
L_0639:;
                                                                //   6348        OPNAME=-1
#line 6348 "regression-compile-tmp/nrimp10s-77.imp"
OPNAME = (-1);
                                                                //   6349        %IF OPND1_FLAG=2 %THEN OPNAME=OPND1_XTRA
#line 6349 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (2))) goto L_063c;
#line 6349 "regression-compile-tmp/nrimp10s-77.imp"
OPNAME = OPND1->XTRA;
#line 6349 "regression-compile-tmp/nrimp10s-77.imp"
L_063c:;
                                                                //   6350        VUSE=DVNAME!OPNAME<<16
#line 6350 "regression-compile-tmp/nrimp10s-77.imp"
VUSE = ((DVNAME) | (((OPNAME) << (16))));
                                                                //   6351        %IF OPNAME>=0 %AND GRUSE(BREG)=14 %AND GRINF1(BREG)= VUSE %THEN ->DONE
#line 6351 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPNAME) < (0))) goto L_063d;
#line 6351 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[7]) != (14))) goto L_063d;
#line 6351 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[7]) != (VUSE))) goto L_063d;
#line 6351 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1046;
#line 6351 "regression-compile-tmp/nrimp10s-77.imp"
L_063d:;
                                                                //   6352        %IF PARMARR=0=PARMCHK %AND DVPOS>0 %START
#line 6352 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_063e;
#line 6352 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVPOS) <= (0))) goto L_063e;
                                                                //   6353           LOAD(OPND1,BREG,2)
#line 6353 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, 7, 2);
                                                                //   6354           X=CTABLE_val(DVPOS+4)
#line 6354 "regression-compile-tmp/nrimp10s-77.imp"
X = CTABLE->VAL[(((int)(DVPOS)) + (4))];
                                                                //   6355           %IF X#1 %THEN PSF1(MYB,0,X) %AND GRUSE(BREG)=0
#line 6355 "regression-compile-tmp/nrimp10s-77.imp"
if (((X) == (1))) goto L_063f;
#line 6355 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, X);
#line 6355 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 6355 "regression-compile-tmp/nrimp10s-77.imp"
L_063f:;
                                                                //   6356           Y=X*CTABLE_val(DVPOS+3)
#line 6356 "regression-compile-tmp/nrimp10s-77.imp"
Y = (((int)(X)) * (CTABLE->VAL[(((int)(DVPOS)) + (3))]));
                                                                //   6357           %IF DPTYPE&16_C0F<=3 %THEN %START
#line 6357 "regression-compile-tmp/nrimp10s-77.imp"
if (((((DPTYPE) & (3087))) > (3))) goto L_0640;
                                                                //   6358              %IF X#1 %THEN ->DONE
#line 6358 "regression-compile-tmp/nrimp10s-77.imp"
if (((X) == (1))) goto L_0641;
#line 6358 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1046;
#line 6358 "regression-compile-tmp/nrimp10s-77.imp"
L_0641:;
                                                                //   6359              ->OUT
#line 6359 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1047;
                                                                //   6360           %FINISH
#line 6360 "regression-compile-tmp/nrimp10s-77.imp"
L_0640:;
                                                                //   6361                                          ! TEST NAM=0 WHEN ZERO ADJSTD
                                                                //   6362           %IF Y#0 %THEN PSF1(SBB,0,Y) %AND GRUSE(BREG)=0
#line 6362 "regression-compile-tmp/nrimp10s-77.imp"
if (((Y) == (0))) goto L_0642;
#line 6362 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 0, Y);
#line 6362 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 6362 "regression-compile-tmp/nrimp10s-77.imp"
L_0642:;
                                                                //   6363           ->DONE
#line 6363 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1046;
                                                                //   6364        %FINISH
#line 6364 "regression-compile-tmp/nrimp10s-77.imp"
L_063e:;
                                                                //   6365        %IF PARMARR=0=PARMCHK %AND (DPTYPE&16_300=16_200 %OR DPTYPE&16_C0F<=3 %OR COMPILER#0)%START;! IE ARR=2 OR NAM=0
#line 6365 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_0643;
#line 6365 "regression-compile-tmp/nrimp10s-77.imp"
if (((((DPTYPE) & (768))) == (512))) goto L_0616;
#line 6365 "regression-compile-tmp/nrimp10s-77.imp"
if (((((DPTYPE) & (3087))) <= (3))) goto L_0616;
#line 6365 "regression-compile-tmp/nrimp10s-77.imp"
if (((COMPILER) == (0))) goto L_0643;
#line 6365 "regression-compile-tmp/nrimp10s-77.imp"
L_0616:;
                                                                //   6366           DTYPE=DPTYPE&15; DPREC=DPTYPE>>4&7
#line 6366 "regression-compile-tmp/nrimp10s-77.imp"
DTYPE = ((DPTYPE) & (15));
#line 6366 "regression-compile-tmp/nrimp10s-77.imp"
DPREC = (((int)((((unsigned int)(DPTYPE)) >> (4)))) & (7));
                                                                //   6367           LOAD (OPND1,BREG,2) %UNLESS OPND1_FLAG<=1
#line 6367 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) <= (1))) goto L_0644;
#line 6367 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, 7, 2);
#line 6367 "regression-compile-tmp/nrimp10s-77.imp"
L_0644:;
                                                                //   6368           %IF DTYPE>=3 %OR DPREC=4 %THEN %START
#line 6368 "regression-compile-tmp/nrimp10s-77.imp"
if (((DTYPE) >= (3))) goto L_0645;
#line 6368 "regression-compile-tmp/nrimp10s-77.imp"
if (((DPREC) != (4))) goto L_0646;
#line 6368 "regression-compile-tmp/nrimp10s-77.imp"
L_0645:;
                                                                //   6369              DACC=LIST_S3;               ! PUT THERE BY CANAME
#line 6369 "regression-compile-tmp/nrimp10s-77.imp"
DACC = LIST->S3;
                                                                //   6370              %IF OPND1_FLAG<=1 %THEN OPND1_D=OPND1_D*DACC %AND %RETURN
#line 6370 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) > (1))) goto L_0647;
#line 6370 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = (((int)(OPND1->D)) * (DACC));
#line 6370 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6370 "regression-compile-tmp/nrimp10s-77.imp"
L_0647:;
                                                                //   6371              PSF1(MYB,0,DACC) %UNLESS DACC=1
#line 6371 "regression-compile-tmp/nrimp10s-77.imp"
if (((DACC) == (1))) goto L_0648;
#line 6371 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, DACC);
#line 6371 "regression-compile-tmp/nrimp10s-77.imp"
L_0648:;
                                                                //   6372              GRUSE(BREG)=0
#line 6372 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   6373              ->DONE
#line 6373 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1046;
                                                                //   6374           %FINISH
#line 6374 "regression-compile-tmp/nrimp10s-77.imp"
L_0646:;
                                                                //   6375           %IF OPND1_FLAG<=1 %THEN %RETURN
#line 6375 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) > (1))) goto L_0649;
#line 6375 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6375 "regression-compile-tmp/nrimp10s-77.imp"
L_0649:;
                                                                //   6376           LOADREG=BREG; ->OUT
#line 6376 "regression-compile-tmp/nrimp10s-77.imp"
LOADREG = 7;
#line 6376 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1047;
                                                                //   6377        %FINISH
#line 6377 "regression-compile-tmp/nrimp10s-77.imp"
L_0643:;
                                                                //   6378        %IF OPND1_FLAG=9 %AND OPND1_XB>>4=ACCR %THEN %START
#line 6378 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (9))) goto L_064a;
#line 6378 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->XB)) >> (4)))) != (0))) goto L_064a;
                                                                //   6379           PF1(ST,0,TOS,0);            ! ACC CANNOT BE USED IN DVM
#line 6379 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   6380           CHANGE RD(ACCR)
#line 6380 "regression-compile-tmp/nrimp10s-77.imp"
CHANGERD(0);
                                                                //   6381           REGISTER(ACCR)=0
#line 6381 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   6382        %FINISH
#line 6382 "regression-compile-tmp/nrimp10s-77.imp"
L_064a:;
                                                                //   6383  !
                                                                //   6384        BASE=OPND2_XTRA>>18; AREA=-1
#line 6384 "regression-compile-tmp/nrimp10s-77.imp"
BASE = (int)((((unsigned int)(OPND2->XTRA)) >> (18)));
#line 6384 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   6385        GET IN ACC(DR,2,0,AREA CODE,OPND2_XTRA&16_1FFFF+8)
#line 6385 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), (((int)(((OPND2->XTRA) & (131071)))) + (8)));
                                                                //   6386  !
                                                                //   6387        LOAD(OPND1,EVALREG,0)
#line 6387 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 0);
                                                                //   6388        %IF OPND1_PTYPE>>4>=6 %THEN FAULT(24,0)
#line 6388 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)))) < (6))) goto L_064b;
#line 6388 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 6388 "regression-compile-tmp/nrimp10s-77.imp"
L_064b:;
                                                                //   6389        %IF REGISTER(BREG)>=1 %AND (OPND1_FLAG#9 %OR OPND1_XB>>4#BREG) %THEN %START
#line 6389 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) < (1))) goto L_064c;
#line 6389 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (9))) goto L_064d;
#line 6389 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->XB)) >> (4)))) == (7))) goto L_064c;
#line 6389 "regression-compile-tmp/nrimp10s-77.imp"
L_064d:;
                                                                //   6390           OPND==RECORD(OLINK(BREG))
#line 6390 "regression-compile-tmp/nrimp10s-77.imp"
OPND =  (RD *) _imp_RECORD(OLINK[7]);
                                                                //   6391           OPND_D=0
#line 6391 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = 0;
                                                                //   6392           REGISTER(BREG)=2
#line 6392 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[7] = 2;
                                                                //   6393           BOOT OUT(BREG)
#line 6393 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
                                                                //   6394        %FINISH
#line 6394 "regression-compile-tmp/nrimp10s-77.imp"
L_064c:;
                                                                //   6395        AREA=OPND1_XB>>4; ACCESS=OPND1_XB&15
#line 6395 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (unsigned char)((((unsigned char)(OPND1->XB)) >> (4)));
#line 6395 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((OPND1->XB) & (15));
                                                                //   6396        PSORLF1(OPCODE>>8,ACCESS,AREA,OPND1_D)
#line 6396 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1((int)((((unsigned int)(OPCODE)) >> (8))), ACCESS, AREA, OPND1->D);
                                                                //   6397        GRUSE(BREG)=0
#line 6397 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   6398  DONE:
#line 6398 "regression-compile-tmp/nrimp10s-77.imp"
U_1046:;
                                                                //   6399        %IF OPNAME>=0 %THEN %START
#line 6399 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPNAME) < (0))) goto L_064e;
                                                                //   6400           GRUSE(BREG)=14
#line 6400 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 14;
                                                                //   6401           GRINF1(BREG)=VUSE
#line 6401 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[7] = VUSE;
                                                                //   6402           GRINF2(BREG)=0
#line 6402 "regression-compile-tmp/nrimp10s-77.imp"
GRINF2[7] = 0;
                                                                //   6403        %FINISH
#line 6403 "regression-compile-tmp/nrimp10s-77.imp"
L_064e:;
                                                                //   6404  OUT:
#line 6404 "regression-compile-tmp/nrimp10s-77.imp"
U_1047:;
                                                                //   6405        LOADREG=BREG
#line 6405 "regression-compile-tmp/nrimp10s-77.imp"
LOADREG = 7;
                                                                //   6406        REGISTER(LOADREG)=1
#line 6406 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[LOADREG] = 1;
                                                                //   6407        OPND1_FLAG=9; OPND1_XB=LOADREG<<4
#line 6407 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 9;
#line 6407 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XB = ((LOADREG) << (4));
                                                                //   6408  %END
#line 6408 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block VMY1 at level 6
                                                                //   6409  %ROUTINE VMY
#line 6409 "regression-compile-tmp/nrimp10s-77.imp"
void VMY( void )
#line 6409 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6410  !***********************************************************************
                                                                //   6411  !*    DOES ALL VECTOR MULTIPLIES EXCEPT ONE DIMENSION                  *
                                                                //   6412  !***********************************************************************
                                                                //   6413        %IF OPND1_FLAG=9 %AND OPND1_XB>>4=ACCR %THEN %START
#line 6413 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (9))) goto L_064f;
#line 6413 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->XB)) >> (4)))) != (0))) goto L_064f;
                                                                //   6414           PF1(ST,0,TOS,0);            ! ACC CANNOT BE USED IN DVM
#line 6414 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   6415           CHANGE RD(ACCR)
#line 6415 "regression-compile-tmp/nrimp10s-77.imp"
CHANGERD(0);
                                                                //   6416           REGISTER(ACCR)=0
#line 6416 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   6417        %FINISH
#line 6417 "regression-compile-tmp/nrimp10s-77.imp"
L_064f:;
                                                                //   6418  !
                                                                //   6419        %IF C=D %THEN %START;          ! TOP DIMENSION LOAD DV DES
#line 6419 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (D))) goto L_0650;
                                                                //   6420           BASE=OPND2_XTRA>>18; AREA=-1
#line 6420 "regression-compile-tmp/nrimp10s-77.imp"
BASE = (int)((((unsigned int)(OPND2->XTRA)) >> (18)));
#line 6420 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   6421           GET IN ACC(DR,2,0,AREA CODE,OPND2_XTRA&16_1FFFF+8)
#line 6421 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), (((int)(((OPND2->XTRA) & (131071)))) + (8)));
                                                                //   6422        %FINISH
#line 6422 "regression-compile-tmp/nrimp10s-77.imp"
L_0650:;
                                                                //   6423  !
                                                                //   6424        LOAD(OPND1,EVALREG,0)
#line 6424 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, EVALREG, 0);
                                                                //   6425        %IF OPND1_PTYPE>>4>=6 %THEN FAULT(24,0)
#line 6425 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->PTYPE)) >> (4)))) < (6))) goto L_0651;
#line 6425 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(24, 0);
#line 6425 "regression-compile-tmp/nrimp10s-77.imp"
L_0651:;
                                                                //   6426        %IF C=D %AND REGISTER(BREG)>=1 %AND (OPND1_FLAG#9 %OR OPND1_XB>>4#BREG) %THEN %START
#line 6426 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (D))) goto L_0652;
#line 6426 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) < (1))) goto L_0652;
#line 6426 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND1->FLAG) != (9))) goto L_0653;
#line 6426 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND1->XB)) >> (4)))) == (7))) goto L_0652;
#line 6426 "regression-compile-tmp/nrimp10s-77.imp"
L_0653:;
                                                                //   6427           OPND==RECORD(OLINK(BREG))
#line 6427 "regression-compile-tmp/nrimp10s-77.imp"
OPND =  (RD *) _imp_RECORD(OLINK[7]);
                                                                //   6428           OPND_D=0
#line 6428 "regression-compile-tmp/nrimp10s-77.imp"
OPND->D = 0;
                                                                //   6429           REGISTER(BREG)=2
#line 6429 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[7] = 2;
                                                                //   6430           BOOT OUT(BREG)
#line 6430 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
                                                                //   6431        %FINISH
#line 6431 "regression-compile-tmp/nrimp10s-77.imp"
L_0652:;
                                                                //   6432        AREA=OPND1_XB>>4; ACCESS=OPND1_XB&15
#line 6432 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (unsigned char)((((unsigned char)(OPND1->XB)) >> (4)));
#line 6432 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = ((OPND1->XB) & (15));
                                                                //   6433        PSORLF1(OPCODE>>8,ACCESS,AREA,OPND1_D)
#line 6433 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1((int)((((unsigned int)(OPCODE)) >> (8))), ACCESS, AREA, OPND1->D);
                                                                //   6434           GRUSE(BREG)=0
#line 6434 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   6435  !
                                                                //   6436        LOADREG=ACCR
#line 6436 "regression-compile-tmp/nrimp10s-77.imp"
LOADREG = 0;
                                                                //   6437        %IF C=D %THEN GET IN ACC(ACCR,1,0,7,0) %ELSE PF1(IAD,0,BREG,0)
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (D))) goto L_0654;
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 7, 0);
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0655;
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
L_0654:;
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, 7, 0);
#line 6437 "regression-compile-tmp/nrimp10s-77.imp"
L_0655:;
                                                                //   6438        %IF C=1 %THEN %START
#line 6438 "regression-compile-tmp/nrimp10s-77.imp"
if (((C) != (1))) goto L_0656;
                                                                //   6439           PF1(ST,0,BREG,0)
#line 6439 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   6440           REGISTER(ACCR)=0
#line 6440 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   6441           LOADREG=BREG
#line 6441 "regression-compile-tmp/nrimp10s-77.imp"
LOADREG = 7;
                                                                //   6442        %FINISH
#line 6442 "regression-compile-tmp/nrimp10s-77.imp"
L_0656:;
                                                                //   6443        REGISTER(LOADREG)=1
#line 6443 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[LOADREG] = 1;
                                                                //   6444        OPND1_FLAG=9; OPND1_XB=LOADREG<<4
#line 6444 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 9;
#line 6444 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XB = ((LOADREG) << (4));
                                                                //   6445  %END
#line 6445 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block VMY at level 6
                                                                //   6446  %ROUTINE CTOP(%INTEGERNAME FLAG)
#line 6446 "regression-compile-tmp/nrimp10s-77.imp"
void CTOP( int /*name*/*FLAG )
#line 6446 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6447  !***********************************************************************
                                                                //   6448  !*       AN OPERATION HAS BEEN FOUND WHERE BOTH OPERANDS ARE CONSTANTS *
                                                                //   6449  !*       THIS ROUTINE ATTEMPTS TO INTERPRET THIS OPERATION IF IT       *
                                                                //   6450  !*       CAN BE DONE SAFELY                                            *
                                                                //   6451  !*       ON EXIT FLAG=0 %IF OPERATION CARRIED OUT                      *
                                                                //   6452  !***********************************************************************
                                                                //   6453  %CONSTINTEGER TRUNCMASK=16_01300800
                                                                //   6454  %INTEGER K,TYPEP,PRECP,OP,TYPEPP,VAL,SVAL1,SVAL2
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int OP;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEPP;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int VAL;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int SVAL1;
#line 6454 "regression-compile-tmp/nrimp10s-77.imp"
int SVAL2;
                                                                //   6455  %LONGINTEGER VAL1,VAL2
#line 6455 "regression-compile-tmp/nrimp10s-77.imp"
long long int VAL1;
#line 6455 "regression-compile-tmp/nrimp10s-77.imp"
long long int VAL2;
                                                                //   6456  {%LONG}%LONGREAL RVAL1,RVAL2
#line 6456 "regression-compile-tmp/nrimp10s-77.imp"
double RVAL1;
#line 6456 "regression-compile-tmp/nrimp10s-77.imp"
double RVAL2;
                                                                //   6457  %SWITCH ISW,RSW(10:32)
#line 6457 "regression-compile-tmp/nrimp10s-77.imp"
static int sw18_ISW_idx;
static const void * /*SWITCH*/ sw18_ISW[23] = { &&sw18_ISW_10, &&sw18_ISW_11, &&sw18_ISW_12, &&sw18_ISW_13, &&sw18_ISW_14, &&sw18_ISW_15, &&sw18_ISW_16, &&sw18_ISW_17, &&sw18_ISW_18, &&sw18_ISW_19, &&sw18_ISW_20, &&sw18_ISW_21, &&sw18_ISW_22, &&sw18_ISW_23, &&sw18_ISW_24, &&sw18_ISW_25, &&sw18_ISW_26, &&sw18_ISW_27, &&sw18_ISW_28, &&sw18_ISW_29, &&sw18_ISW_30, &&sw18_ISW_31, &&sw18_ISW_32,  };
#line 6457 "regression-compile-tmp/nrimp10s-77.imp"
static int sw19_RSW_idx;
static const void * /*SWITCH*/ sw19_RSW[23] = { &&sw19_RSW_10, &&sw19_RSW_11, &&sw19_RSW_12, &&sw19_RSW_13, &&sw19_RSW_14, &&sw19_RSW_15, &&sw19_RSW_16, &&sw19_RSW_17, &&sw19_RSW_18, &&sw19_RSW_19, &&sw19_RSW_20, &&sw19_RSW_21, &&sw19_RSW_22, &&sw19_RSW_23, &&sw19_RSW_24, &&sw19_RSW_25, &&sw19_RSW_26, &&sw19_RSW_27, &&sw19_RSW_28, &&sw19_RSW_29, &&sw19_RSW_30, &&sw19_RSW_31, &&sw19_RSW_32,  };
                                                                //   6458        %ON %EVENT 1,2 %START
#line 6458 "regression-compile-tmp/nrimp10s-77.imp"
if (!_imp_on_event(1, 2)) goto L_0657;  /* TO DO: Remove %on %event handler just before L_0657: if present for this block */
                                                                //   6459           %RETURN
#line 6459 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6460        %FINISH
#line 6460 "regression-compile-tmp/nrimp10s-77.imp"
L_0657:;
                                                                //   6461        TYPEP=TYPE; PRECP=PTYPE>>4&15; OP=FLAG
#line 6461 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 6461 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = (((int)((((unsigned int)(PTYPE)) >> (4)))) & (15));
#line 6461 "regression-compile-tmp/nrimp10s-77.imp"
OP = *FLAG;
                                                                //   6462        EXTRACT(OPND1,VAL1,RVAL1)
#line 6462 "regression-compile-tmp/nrimp10s-77.imp"
EXTRACT(OPND1, &VAL1, &RVAL1);
                                                                //   6463        EXTRACT(OPND2,VAL2,RVAL2)
#line 6463 "regression-compile-tmp/nrimp10s-77.imp"
EXTRACT(OPND2, &VAL2, &RVAL2);
                                                                //   6464        SVAL1<-VAL1; SVAL2<-VAL2
#line 6464 "regression-compile-tmp/nrimp10s-77.imp"
SVAL1 = VAL1;
#line 6464 "regression-compile-tmp/nrimp10s-77.imp"
SVAL2 = VAL2;
                                                                //   6465        %IF TYPEP=1 %AND OP=37 %THEN ->ISW37
#line 6465 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (1))) goto L_0658;
#line 6465 "regression-compile-tmp/nrimp10s-77.imp"
if (((OP) != (37))) goto L_0658;
#line 6465 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1048;
#line 6465 "regression-compile-tmp/nrimp10s-77.imp"
L_0658:;
                                                                //   6466        %RETURN %IF OP>32
#line 6466 "regression-compile-tmp/nrimp10s-77.imp"
if (((OP) <= (32))) goto L_0659;
#line 6466 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6466 "regression-compile-tmp/nrimp10s-77.imp"
L_0659:;
                                                                //   6467        %IF TYPEP=2 %THEN ->RSW(OP) %ELSE ->ISW(OP)
#line 6467 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_065a;
#line 6467 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_idx = OP; if ((10 <= sw19_RSW_idx) && (sw19_RSW_idx <= 32)) goto *(sw19_RSW-10)[sw19_RSW_idx];  /* Bounds=10:32 */ else {
   /*_imp_signal(8, 2, sw19_RSW_idx);*/
   fprintf(stderr, "%%SWITCH index RSW(%d) not in range 10:32 at %s:%d\n",
           sw19_RSW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 6467 "regression-compile-tmp/nrimp10s-77.imp"
L_065a:;
#line 6467 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_idx = OP; if ((10 <= sw18_ISW_idx) && (sw18_ISW_idx <= 32)) goto *(sw18_ISW-10)[sw18_ISW_idx];  /* Bounds=10:32 */ else {
   /*_imp_signal(8, 2, sw18_ISW_idx);*/
   fprintf(stderr, "%%SWITCH index ISW(%d) not in range 10:32 at %s:%d\n",
           sw18_ISW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   6468  ISW(10):                                ! \&
#line 6468 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_10:;
                                                                //   6469        VAL1=\VAL1
#line 6469 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (~(VAL1));
                                                                //   6470  INTEND:
#line 6470 "regression-compile-tmp/nrimp10s-77.imp"
U_1049:;
                                                                //   6471        %IF PRECP=6 %THEN %START
#line 6471 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) != (6))) goto L_065b;
                                                                //   6472           OPND1_D<-VAL1>>32
#line 6472 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = (long long)((((unsigned long long)(VAL1)) >> (32)));
                                                                //   6473           OPND1_XTRA<-VAL1
#line 6473 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XTRA = VAL1;
                                                                //   6474           FLAG=0
#line 6474 "regression-compile-tmp/nrimp10s-77.imp"
*FLAG = 0;
                                                                //   6475        %FINISH %ELSE %START
#line 6475 "regression-compile-tmp/nrimp10s-77.imp"
goto L_065c;
#line 6475 "regression-compile-tmp/nrimp10s-77.imp"
L_065b:;
                                                                //   6476           VAL<-VAL1
#line 6476 "regression-compile-tmp/nrimp10s-77.imp"
VAL = VAL1;
                                                                //   6477           %IF VAL=VAL1 %OR 1<<OP&TRUNCMASK=0 %THEN FLAG=0 %AND OPND1_D=VAL;! NO ARITH OFLOW CONDITION
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL) == (VAL1))) goto L_065d;
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
if (((((((1) << (OP))) & (19924992))) != (0))) goto L_065e;
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
L_065d:;
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
*FLAG = 0;
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = VAL;
#line 6477 "regression-compile-tmp/nrimp10s-77.imp"
L_065e:;
                                                                //   6478        %FINISH
#line 6478 "regression-compile-tmp/nrimp10s-77.imp"
L_065c:;
                                                                //   6479        %IF FLAG=0 %START
#line 6479 "regression-compile-tmp/nrimp10s-77.imp"
if (((*FLAG) != (0))) goto L_065f;
                                                                //   6480           OPND1_PTYPE=PRECP<<4!1
#line 6480 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->PTYPE = ((((PRECP) << (4))) | (1));
                                                                //   6481           %IF 16_FFFE0000<=VAL1<=16_1FFFF %THEN OPND1_FLAG=0 %ELSE OPND1_FLAG=1
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-131072)) > (VAL1))) || (((VAL1) > (131071)))) goto L_0660;
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 0;
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0661;
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
L_0660:;
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 1;
#line 6481 "regression-compile-tmp/nrimp10s-77.imp"
L_0661:;
                                                                //   6482        %FINISH
#line 6482 "regression-compile-tmp/nrimp10s-77.imp"
L_065f:;
                                                                //   6483        %RETURN
#line 6483 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6484  ISW(11):                                ! INTEGER NEGATE
#line 6484 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_11:;
                                                                //   6485        VAL1=-VAL1; -> INT END
#line 6485 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (-(VAL1));
#line 6485 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6486  ISW(13):                                ! INTEGER ABS
#line 6486 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_13:;
                                                                //   6487        VAL1=IMOD(VAL1); -> INT END
#line 6487 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = _imp_IMOD(VAL1);
#line 6487 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6488  ISW(12):                                ! INTEGER FLOAT
#line 6488 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_12:;
                                                                //   6489        RVAL1=VAL1; PRECP=5+XTRA
#line 6489 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = VAL1;
#line 6489 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = (((int)(5)) + (XTRA));
                                                                //   6490        ->REAL END
#line 6490 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6491  RSW(14):                                ! STRETCH REAL
#line 6491 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_14:;
                                                                //   6492        PRECP=PRECP+1
#line 6492 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = (((int)(PRECP)) + (1));
                                                                //   6493  REAL END:OPND1_FLAG=1
#line 6493 "regression-compile-tmp/nrimp10s-77.imp"
U_104a:;
#line 6493 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 1;
                                                                //   6494        OPND1_D=INTEGER(ADDR(RVAL1))
#line 6494 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = *_imp_INTEGER(_imp_ADDR(&RVAL1));
                                                                //   6495        OPND1_XTRA=INTEGER(ADDR(RVAL1)+4)
#line 6495 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XTRA = *_imp_INTEGER((((int)(_imp_ADDR(&RVAL1))) + (4)));
                                                                //   6496        %IF PRECP=7 %THEN %START
#line 6496 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) != (7))) goto L_0662;
                                                                //   6497           OPND1_FLAG=3
#line 6497 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->FLAG = 3;
                                                                //   6498           OPND1_XTRA=ADDR(A(R))
#line 6498 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XTRA = _imp_ADDR(&A[R]);
                                                                //   6499           %CYCLE K=0,1,15
#line 6499 "regression-compile-tmp/nrimp10s-77.imp"
K = (-1);
if ((((15)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle K = 0, 1, 15");
L_0663:;
if (K == 15) goto L_0664;
K += 1;
                                                                //   6500              A(R)=BYTEINTEGER(ADDR(RVAL1)+K)
#line 6500 "regression-compile-tmp/nrimp10s-77.imp"
A[R] = *_imp_BYTEINTEGER((((int)(_imp_ADDR(&RVAL1))) + (K)));
                                                                //   6501              R=R+1
#line 6501 "regression-compile-tmp/nrimp10s-77.imp"
R = (((int)(R)) + (1));
                                                                //   6502           %REPEAT
#line 6502 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0663;
#line 6502 "regression-compile-tmp/nrimp10s-77.imp"
L_0664:;
                                                                //   6503        %FINISH
#line 6503 "regression-compile-tmp/nrimp10s-77.imp"
L_0662:;
                                                                //   6504        FLAG=0; OPND1_PTYPE=16*PRECP+2
#line 6504 "regression-compile-tmp/nrimp10s-77.imp"
*FLAG = 0;
#line 6504 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->PTYPE = (((int)((((int)(16)) * (PRECP)))) + (2));
                                                                //   6505        %RETURN
#line 6505 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6506  ISW(14):                                ! STRETCH INTEGER
#line 6506 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_14:;
                                                                //   6507  RSW(12):                                ! FLOAT REAL
#line 6507 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_12:;
                                                                //   6508        ABORT
#line 6508 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   6509  ISW(20):                                ! ADD
#line 6509 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_20:;
                                                                //   6510        VAL1=VAL1+VAL2; -> INT END
#line 6510 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (((long long)(VAL1)) + (VAL2));
#line 6510 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6511  ISW(21):                                ! MINUS
#line 6511 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_21:;
                                                                //   6512        VAL1=VAL1-VAL2; -> INT END
#line 6512 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (((long long)(VAL1)) - (VAL2));
#line 6512 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6513  ISW(22):                                ! EXCLUSIVE OR
#line 6513 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_22:;
                                                                //   6514        VAL1=VAL1!!VAL2; -> INT END
#line 6514 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = ((VAL1) ^ (VAL2));
#line 6514 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6515  ISW(23):                                ! OR
#line 6515 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_23:;
                                                                //   6516        VAL1=VAL1!VAL2; -> INT END
#line 6516 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = ((VAL1) | (VAL2));
#line 6516 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6517  ISW(24):                                ! MULT
#line 6517 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_24:;
                                                                //   6518        VAL1=VAL1*VAL2; -> INT END
#line 6518 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (((long long)(VAL1)) * (VAL2));
#line 6518 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6519  ISW(26): %RETURN;                       ! / DIVISION
#line 6519 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_26:;
#line 6519 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6520  ISW(25): %RETURN %IF VAL2=0;            ! // DIVISION
#line 6520 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_25:;
#line 6520 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL2) != (0))) goto L_0666;
#line 6520 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6520 "regression-compile-tmp/nrimp10s-77.imp"
L_0666:;
                                                                //   6521        VAL1=VAL1//VAL2; -> INT END
#line 6521 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (long)((long)((long long)(VAL1)) / (long)((long long)(_Z(VAL2))));
#line 6521 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6522  ISW(27):                                ! AND
#line 6522 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_27:;
                                                                //   6523        VAL1=VAL1&VAL2; -> INT END
#line 6523 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = ((VAL1) & (VAL2));
#line 6523 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6524  ISW(29):                                ! SLL
#line 6524 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_29:;
                                                                //   6525        %IF PRECP=6 %THEN VAL1=VAL1<<SVAL2 %ELSE VAL1=SVAL1<<SVAL2
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) != (6))) goto L_0667;
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = ((VAL1) << (SVAL2));
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0668;
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
L_0667:;
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = ((SVAL1) << (SVAL2));
#line 6525 "regression-compile-tmp/nrimp10s-77.imp"
L_0668:;
                                                                //   6526        ->INT END
#line 6526 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6527  ISW(28):                                ! SRL
#line 6527 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_28:;
                                                                //   6528        %IF PRECP=6 %THEN VAL1=VAL1>>SVAL2 %ELSE VAL1=SVAL1>>SVAL2
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) != (6))) goto L_0669;
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (long long)((((unsigned long long)(VAL1)) >> (SVAL2)));
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
goto L_066a;
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
L_0669:;
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = (int)((((unsigned int)(SVAL1)) >> (SVAL2)));
#line 6528 "regression-compile-tmp/nrimp10s-77.imp"
L_066a:;
                                                                //   6529        ->INT END
#line 6529 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6530  
                                                                //   6531  ISW(31):ISW(32):                        ! COMPARISONS
#line 6531 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_31:;
#line 6531 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_32:;
                                                                //   6532  RSW(31):RSW(32):                        ! REAL COMPARISONS
#line 6532 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_31:;
#line 6532 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_32:;
                                                                //   6533        BFFLAG=COMM-1
#line 6533 "regression-compile-tmp/nrimp10s-77.imp"
BFFLAG = (((int)(COMM)) - (1));
                                                                //   6534        MASK=FCOMP(XTRA+7*BFFLAG)
#line 6534 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[((XTRA) + ((int)((((int)(7)) * (BFFLAG)))))];
                                                                //   6535        COMM=2; FLAG=0
#line 6535 "regression-compile-tmp/nrimp10s-77.imp"
COMM = 2;
#line 6535 "regression-compile-tmp/nrimp10s-77.imp"
*FLAG = 0;
                                                                //   6536        %IF TYPE=2 %THEN ->RCOMP
#line 6536 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (2))) goto L_066b;
#line 6536 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104b;
#line 6536 "regression-compile-tmp/nrimp10s-77.imp"
L_066b:;
                                                                //   6537        %IF (MASK&8#0 %AND VAL1=VAL2) %OR (MASK&4#0 %AND VAL1<VAL2) %OR (MASK&2#0 %AND VAL1>VAL2) %THEN MASK=15 %ELSE MASK=0
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (8))) == (0))) goto L_066c;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL1) == (VAL2))) goto L_066d;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
L_066c:;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (4))) == (0))) goto L_066e;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL1) < (VAL2))) goto L_066d;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
L_066e:;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (2))) == (0))) goto L_066f;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL1) <= (VAL2))) goto L_066f;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
L_066d:;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 15;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0670;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
L_066f:;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 0;
#line 6537 "regression-compile-tmp/nrimp10s-77.imp"
L_0670:;
                                                                //   6538        %RETURN
#line 6538 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6539  RCOMP:
#line 6539 "regression-compile-tmp/nrimp10s-77.imp"
U_104b:;
                                                                //   6540        %IF (MASK&8#0 %AND RVAL1=RVAL2) %OR (MASK&4#0 %AND RVAL1<RVAL2) %OR (MASK&2#0 %AND RVAL1>RVAL2) %THEN MASK=15 %ELSE MASK=0
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (8))) == (0))) goto L_0671;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((RVAL1) == (RVAL2))) goto L_0672;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
L_0671:;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (4))) == (0))) goto L_0673;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((RVAL1) < (RVAL2))) goto L_0672;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
L_0673:;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((((MASK) & (2))) == (0))) goto L_0674;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
if (((RVAL1) <= (RVAL2))) goto L_0674;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
L_0672:;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 15;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0675;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
L_0674:;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 0;
#line 6540 "regression-compile-tmp/nrimp10s-77.imp"
L_0675:;
                                                                //   6541        %RETURN
#line 6541 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6542  RSW(11):                                ! NEGATE
#line 6542 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_11:;
                                                                //   6543        RVAL1=-RVAL1; -> REAL END
#line 6543 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = (-(RVAL1));
#line 6543 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6544  RSW(13):                                ! ABS
#line 6544 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_13:;
                                                                //   6545        RVAL1=MOD(RVAL1); -> REAL END
#line 6545 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = _imp_MOD(RVAL1);
#line 6545 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6546  RSW(20):                                ! ADD
#line 6546 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_20:;
                                                                //   6547        RVAL1=RVAL1+RVAL2; -> REAL END
#line 6547 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = (((double)(RVAL1)) + (RVAL2));
#line 6547 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6548  RSW(21):                                ! SUBTRACT
#line 6548 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_21:;
                                                                //   6549        RVAL1=RVAL1-RVAL2; -> REAL END
#line 6549 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = (((double)(RVAL1)) - (RVAL2));
#line 6549 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6550  RSW(24):                                ! MULT
#line 6550 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_24:;
                                                                //   6551        RVAL1=RVAL1*RVAL2; -> REAL END
#line 6551 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = (((double)(RVAL1)) * (RVAL2));
#line 6551 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6552  RSW(26):                                ! DIVISION
#line 6552 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_26:;
                                                                //   6553        %RETURN %IF RVAL2=0;              ! AVOID DIV BY ZERO
#line 6553 "regression-compile-tmp/nrimp10s-77.imp"
if (((RVAL2) != (0))) goto L_0676;
#line 6553 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6553 "regression-compile-tmp/nrimp10s-77.imp"
L_0676:;
                                                                //   6554        RVAL1=RVAL1/RVAL2; -> REAL END
#line 6554 "regression-compile-tmp/nrimp10s-77.imp"
RVAL1 = (double)((double)((double)(RVAL1)) / (double)((double)(RVAL2)));
#line 6554 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104a;
                                                                //   6555  ISW(30):                                ! '**' WITH 2 INTEGER OPERANDS
#line 6555 "regression-compile-tmp/nrimp10s-77.imp"
sw18_ISW_30:;
                                                                //   6556  ISW37:                                  ! '****' WITH 2 INTEGER OPERAND
#line 6556 "regression-compile-tmp/nrimp10s-77.imp"
U_1048:;
                                                                //   6557        %RETURN %UNLESS 0<=VAL2<=63
#line 6557 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (VAL2))) || (((VAL2) <= (63)))) goto L_0678;
#line 6557 "regression-compile-tmp/nrimp10s-77.imp"
L_0677:;
#line 6557 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6557 "regression-compile-tmp/nrimp10s-77.imp"
L_0678:;
                                                                //   6558        VAL2=1
#line 6558 "regression-compile-tmp/nrimp10s-77.imp"
VAL2 = 1;
                                                                //   6559        %WHILE SVAL2>0 %CYCLE
#line 6559 "regression-compile-tmp/nrimp10s-77.imp"
L_0679:;
#line 6559 "regression-compile-tmp/nrimp10s-77.imp"
if (((SVAL2) <= (0))) goto L_067a;
                                                                //   6560           VAL2=VAL2*VAL1
#line 6560 "regression-compile-tmp/nrimp10s-77.imp"
VAL2 = (((long long)(VAL2)) * (VAL1));
                                                                //   6561           SVAL2=SVAL2-1
#line 6561 "regression-compile-tmp/nrimp10s-77.imp"
SVAL2 = (((int)(SVAL2)) - (1));
                                                                //   6562           %RETURN %IF VAL2#INTEGER(ADDR(VAL2)+4)
#line 6562 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL2) == (*_imp_INTEGER((((int)(_imp_ADDR(&VAL2))) + (4)))))) goto L_067c;
#line 6562 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6562 "regression-compile-tmp/nrimp10s-77.imp"
L_067c:;
                                                                //   6563        %REPEAT
#line 6563 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0679;
#line 6563 "regression-compile-tmp/nrimp10s-77.imp"
L_067a:;
                                                                //   6564        VAL1=VAL2; ->INT END
#line 6564 "regression-compile-tmp/nrimp10s-77.imp"
VAL1 = VAL2;
#line 6564 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1049;
                                                                //   6565  RSW(22):RSW(23):
#line 6565 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_22:;
#line 6565 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_23:;
                                                                //   6566  RSW(25):RSW(27):RSW(28):RSW(29):
#line 6566 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_25:;
#line 6566 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_27:;
#line 6566 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_28:;
#line 6566 "regression-compile-tmp/nrimp10s-77.imp"
sw19_RSW_29:;
                                                                //   6567  %END
#line 6567 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw19_RSW_10:;
sw19_RSW_15:;
sw19_RSW_16:;
sw19_RSW_17:;
sw19_RSW_18:;
sw19_RSW_19:;
sw19_RSW_30:;
/*_imp_signal(6,3,sw19_RSW_idx,"SWITCH LABEL NOT SET - sw19_RSW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw19_RSW(%d): at line %s:%d", sw19_RSW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
sw18_ISW_15:;
sw18_ISW_16:;
sw18_ISW_17:;
sw18_ISW_18:;
sw18_ISW_19:;
/*_imp_signal(6,3,sw18_ISW_idx,"SWITCH LABEL NOT SET - sw18_ISW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw18_ISW(%d): at line %s:%d", sw18_ISW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CTOP at level 6
                                                                //   6568  %ROUTINE REXP
#line 6568 "regression-compile-tmp/nrimp10s-77.imp"
void REXP( void )
#line 6568 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6569  !***********************************************************************
                                                                //   6570  !*       CALLS A PERM ROUTINE TO PERFORM REAL**REAL                    *
                                                                //   6571  !***********************************************************************
                                                                //   6572  %INTEGER I,PR
#line 6572 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 6572 "regression-compile-tmp/nrimp10s-77.imp"
int PR;
                                                                //   6573  %RECORD(RD)%NAME OPND{(RD)
#line 6573 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND;
                                                                //   6574        %IF REGISTER(BREG)>0 %THEN BOOT OUT(BREG)
#line 6574 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) <= (0))) goto L_067d;
#line 6574 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 6574 "regression-compile-tmp/nrimp10s-77.imp"
L_067d:;
                                                                //   6575        %CYCLE I=1,1,2
#line 6575 "regression-compile-tmp/nrimp10s-77.imp"
I = 0;
if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 2");
L_067e:;
if (I == 2) goto L_067f;
I += 1;
                                                                //   6576           OPND==RECORD(OPERAND(I))
#line 6576 "regression-compile-tmp/nrimp10s-77.imp"
OPND =  (RD *) _imp_RECORD(OPERAND[(((int)(I)) - (1))]);
                                                                //   6577           LOAD(OPND,ACCR,2) %UNLESS I=1 %AND OPND_FLAG=8
#line 6577 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_0665;
#line 6577 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) == (8))) goto L_0681;
#line 6577 "regression-compile-tmp/nrimp10s-77.imp"
L_0665:;
#line 6577 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND, 0, 2);
#line 6577 "regression-compile-tmp/nrimp10s-77.imp"
L_0681:;
                                                                //   6578           PR=OPND_PTYPE>>4
#line 6578 "regression-compile-tmp/nrimp10s-77.imp"
PR = (unsigned char)((((unsigned char)(OPND->PTYPE)) >> (4)));
                                                                //   6579           %IF PR<6 %THEN LENGTHEN(OPND)
#line 6579 "regression-compile-tmp/nrimp10s-77.imp"
if (((PR) >= (6))) goto L_0682;
#line 6579 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND);
#line 6579 "regression-compile-tmp/nrimp10s-77.imp"
L_0682:;
                                                                //   6580           %IF PR>6 %THEN SHORTEN(OPND)
#line 6580 "regression-compile-tmp/nrimp10s-77.imp"
if (((PR) <= (6))) goto L_0683;
#line 6580 "regression-compile-tmp/nrimp10s-77.imp"
SHORTEN(OPND);
#line 6580 "regression-compile-tmp/nrimp10s-77.imp"
L_0683:;
                                                                //   6581        %REPEAT
#line 6581 "regression-compile-tmp/nrimp10s-77.imp"
goto L_067e;
#line 6581 "regression-compile-tmp/nrimp10s-77.imp"
L_067f:;
                                                                //   6582        PPJ(0,17)
#line 6582 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 17);
                                                                //   6583  %END
#line 6583 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REXP at level 6
                                                                //   6584  %ROUTINE STARSTAR
#line 6584 "regression-compile-tmp/nrimp10s-77.imp"
void STARSTAR( void )
#line 6584 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6585  !***********************************************************************
                                                                //   6586  !*       PLANT IN-LINE CODE FOR EXPONENTIATION                         *
                                                                //   6587  !*       IMP ALLOWS EXPONENTS IN INTEGER EXPRESSIONS FROM 0-63 AND     *
                                                                //   6588  !*       IN REAL EXPRESSIONS FROM-255 TO +255                          *
                                                                //   6589  !***********************************************************************
                                                                //   6590  %INTEGER TYPEP,PRECP,WORK,C,EXPWORK,VALUE
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int WORK;
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int C;
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int EXPWORK;
#line 6590 "regression-compile-tmp/nrimp10s-77.imp"
int VALUE;
                                                                //   6591        PTYPE=OPND1_PTYPE;                ! INSPECT THE OPERAND
#line 6591 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = OPND1->PTYPE;
                                                                //   6592        UNPACK
#line 6592 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   6593        TYPEP=TYPE; PRECP=PREC
#line 6593 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 6593 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
                                                                //   6594        %IF TYPEP=2 %THEN OPCODE=16_FA %ELSE OPCODE=16_EA
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_0684;
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 250;
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0685;
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
L_0684:;
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 234;
#line 6594 "regression-compile-tmp/nrimp10s-77.imp"
L_0685:;
                                                                //   6595        VALUE=0
#line 6595 "regression-compile-tmp/nrimp10s-77.imp"
VALUE = 0;
                                                                //   6596        %IF OPND2_FLAG=0 %AND 1<=OPND2_D<=63*TYPE %THEN VALUE=OPND2_D;                 ! EXPONENT IS #0 AND CONSTANT
#line 6596 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND2->FLAG) != (0))) goto L_0686;
#line 6596 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (OPND2->D))) || (((OPND2->D) > ((((int)(63)) * (TYPE)))))) goto L_0686;
#line 6596 "regression-compile-tmp/nrimp10s-77.imp"
VALUE = OPND2->D;
#line 6596 "regression-compile-tmp/nrimp10s-77.imp"
L_0686:;
                                                                //   6597        LOAD(OPND1,ACCR,2);               ! FETCH OPERAND TO ACC
#line 6597 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND1, 0, 2);
                                                                //   6598        %IF TYPEP=2 %AND PRECP=5 %THEN LENGTHEN(OPND1) %AND PRECP=6
#line 6598 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_0687;
#line 6598 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) != (5))) goto L_0687;
#line 6598 "regression-compile-tmp/nrimp10s-77.imp"
LENGTHEN(OPND1);
#line 6598 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = 6;
#line 6598 "regression-compile-tmp/nrimp10s-77.imp"
L_0687:;
                                                                //   6599  !
                                                                //   6600  ! OPTIMISE **2 **3 AND **4
                                                                //   6601  !
                                                                //   6602        %IF 2<=VALUE<=4 %THEN %START
#line 6602 "regression-compile-tmp/nrimp10s-77.imp"
if ((((2) > (VALUE))) || (((VALUE) > (4)))) goto L_0688;
                                                                //   6603           PF1(ST,0,TOS,0)
#line 6603 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   6604           %IF VALUE=3 %THEN PF1(ST,0,TOS,0)
#line 6604 "regression-compile-tmp/nrimp10s-77.imp"
if (((VALUE) != (3))) goto L_0689;
#line 6604 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 6604 "regression-compile-tmp/nrimp10s-77.imp"
L_0689:;
                                                                //   6605           PF1(OPCODE,0,TOS,0)
#line 6605 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OPCODE, 0, 6, 0);
                                                                //   6606           %IF VALUE=4 %THEN PF1(ST,0,TOS,0)
#line 6606 "regression-compile-tmp/nrimp10s-77.imp"
if (((VALUE) != (4))) goto L_068a;
#line 6606 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 6606 "regression-compile-tmp/nrimp10s-77.imp"
L_068a:;
                                                                //   6607           %IF VALUE>2 %THEN PF1(OPCODE,0,TOS,0)
#line 6607 "regression-compile-tmp/nrimp10s-77.imp"
if (((VALUE) <= (2))) goto L_068b;
#line 6607 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OPCODE, 0, 6, 0);
#line 6607 "regression-compile-tmp/nrimp10s-77.imp"
L_068b:;
                                                                //   6608           GRUSE(ACCR)=0
#line 6608 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   6609           %RETURN
#line 6609 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6610        %FINISH
#line 6610 "regression-compile-tmp/nrimp10s-77.imp"
L_0688:;
                                                                //   6611  !
                                                                //   6612  ! OTHERWISE STORE OPERAND IN 'WORK' AND GET HOLD OF EXPONENT
                                                                //   6613  !
                                                                //   6614        GET WSP(WORK,BYTES(PRECP)>>2)
#line 6614 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&WORK, (unsigned char)((((unsigned char)(BYTES[PRECP])) >> (2))));
                                                                //   6615        %IF TYPEP=2 %THEN GET WSP(EXPWORK,1)
#line 6615 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_068c;
#line 6615 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&EXPWORK, 1);
#line 6615 "regression-compile-tmp/nrimp10s-77.imp"
L_068c:;
                                                                //   6616        PSF1(ST,1,WORK)
#line 6616 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, WORK);
                                                                //   6617        REGISTER(ACCR)=0
#line 6617 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   6618        PLABEL=PLABEL-1;                  ! LABEL FOR JUMPING OUT
#line 6618 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
                                                                //   6619        %IF OPND2_PTYPE>>4=6 %THEN SHORTEN(OPND2);! LONG EXPONENT
#line 6619 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND2->PTYPE)) >> (4)))) != (6))) goto L_068d;
#line 6619 "regression-compile-tmp/nrimp10s-77.imp"
SHORTEN(OPND2);
#line 6619 "regression-compile-tmp/nrimp10s-77.imp"
L_068d:;
                                                                //   6620        LOAD(OPND2,BREG,2);               ! EXPONENT TO ANY REGISTER
#line 6620 "regression-compile-tmp/nrimp10s-77.imp"
LOAD(OPND2, 7, 2);
                                                                //   6621        %IF TYPEP=2 %THEN PSF1(STB,1,EXPWORK)
#line 6621 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_068e;
#line 6621 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(90, 1, EXPWORK);
#line 6621 "regression-compile-tmp/nrimp10s-77.imp"
L_068e:;
                                                                //   6622  !
                                                                //   6623  ! GET '1' INTO ACC IN APPROPIATE FORM
                                                                //   6624  !
                                                                //   6625        GET IN ACC(ACCR,BYTES(PRECP+1-TYPEP)>>2,0,0,1)
#line 6625 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, (unsigned char)((((unsigned char)(BYTES[(((int)((((int)(PRECP)) + (1)))) - (TYPEP))])) >> (2))), 0, 0, 1);
                                                                //   6626        %IF TYPEP=2 %THEN PSF1(FLT,0,0)
#line 6626 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_068f;
#line 6626 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(168, 0, 0);
#line 6626 "regression-compile-tmp/nrimp10s-77.imp"
L_068f:;
                                                                //   6627  !
                                                                //   6628  ! IF EXPONENT NOT KNOWN AT COMPILE TIME TO BE +VE CONSTANT MUST
                                                                //   6629  ! ALLOW FOR ZERO  :- XX**0=1 FOR ALL XX
                                                                //   6630  ! ALSO ALLOW FOR X**(-N) WHICH IS 1/(X**N) FOR ALL X & N
                                                                //   6631  !
                                                                //   6632        %IF VALUE=0 %THEN %START;         ! NOT +VE CONSTANT
#line 6632 "regression-compile-tmp/nrimp10s-77.imp"
if (((VALUE) != (0))) goto L_0690;
                                                                //   6633           ENTER JUMP(28,PLABEL,B'11');   ! J(B=0) END OF EXP ROUTINE
#line 6633 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(28, PLABEL, 3);
                                                                //   6634           %IF TYPEP=2 %THEN %START
#line 6634 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_0691;
                                                                //   6635              PF3(JAT,13,0,4);            ! J*+4 IF B>0
#line 6635 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 13, 0, 4);
                                                                //   6636              PSF1(SLB,0,0)
#line 6636 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(82, 0, 0);
                                                                //   6637              PF1(SBB,0,TOS,0)
#line 6637 "regression-compile-tmp/nrimp10s-77.imp"
PF1(34, 0, 6, 0);
                                                                //   6638           %FINISH
#line 6638 "regression-compile-tmp/nrimp10s-77.imp"
L_0691:;
                                                                //   6639  !
                                                                //   6640  ! IN CHECKING MODE PLANT CODE TO CHECK RANGE OF EXPONENT
                                                                //   6641  !
                                                                //   6642           %IF PARMOPT=1 %THEN %START
#line 6642 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) != (1))) goto L_0692;
                                                                //   6643              %IF TYPEP=1 %THEN PPJ(30,7);! JUMP B<0
#line 6643 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (1))) goto L_0693;
#line 6643 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(30, 7);
#line 6643 "regression-compile-tmp/nrimp10s-77.imp"
L_0693:;
                                                                //   6644              PSF1(CPB,0,64*TYPEP*TYPEP-1)
#line 6644 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(38, 0, (((int)((((int)((((int)(64)) * (TYPEP)))) * (TYPEP)))) - (1)));
                                                                //   6645              PPJ(2,7)
#line 6645 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(2, 7);
                                                                //   6646           %FINISH
#line 6646 "regression-compile-tmp/nrimp10s-77.imp"
L_0692:;
                                                                //   6647        %FINISH
#line 6647 "regression-compile-tmp/nrimp10s-77.imp"
L_0690:;
                                                                //   6648        C=CA
#line 6648 "regression-compile-tmp/nrimp10s-77.imp"
C = CA;
                                                                //   6649        PSF1(OPCODE,1,WORK)
#line 6649 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OPCODE, 1, WORK);
                                                                //   6650        PSF1(DEBJ,0,(C-CA)//2)
#line 6650 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(36, 0, ((long)((long)(((((int)(C)) - (CA)))) / (long)((int)(2)))));
                                                                //   6651  !
                                                                //   6652  ! FOR REAL EXPONENTS CHECK IF NEGATIVE AND EVALUATE INVERSE
                                                                //   6653  !
                                                                //   6654        %IF VALUE=0 %AND TYPEP=2 %THEN %START
#line 6654 "regression-compile-tmp/nrimp10s-77.imp"
if (((VALUE) != (0))) goto L_0694;
#line 6654 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (2))) goto L_0694;
                                                                //   6655           PSF1(LB,1,EXPWORK);            ! LB ON ORIGINAL EXPONENT
#line 6655 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 1, EXPWORK);
                                                                //   6656           ENTER JUMP(46,PLABEL,B'11');! BP END OF EXP ROUTINE
#line 6656 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(46, PLABEL, 3);
                                                                //   6657           %IF PRECP<7 %THEN PF1(RRDV,0,PC,SPECIAL CONSTS(1))%ELSESTART
#line 6657 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) >= (7))) goto L_0695;
#line 6657 "regression-compile-tmp/nrimp10s-77.imp"
PF1(188, 0, 4, SPECIALCONSTS(1));
#line 6657 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0696;
#line 6657 "regression-compile-tmp/nrimp10s-77.imp"
L_0695:;
                                                                //   6658              PSF1(SLSD,0,1); PSF1(FLT,0,0)
#line 6658 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(68, 0, 1);
#line 6658 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(168, 0, 0);
                                                                //   6659              PF1(RDV,0,TOS,0)
#line 6659 "regression-compile-tmp/nrimp10s-77.imp"
PF1(186, 0, 6, 0);
                                                                //   6660           %FINISH
#line 6660 "regression-compile-tmp/nrimp10s-77.imp"
L_0696:;
                                                                //   6661        %FINISH
#line 6661 "regression-compile-tmp/nrimp10s-77.imp"
L_0694:;
                                                                //   6662  !
                                                                //   6663  ! ALL OVER. REAL RESULTS ARE IN FR WORK. INT RESULTS IN GR WORK+1
                                                                //   6664  ! FREE AND FORGET ANY OTHER REGISTERS
                                                                //   6665  !
                                                                //   6666        TYPE=TYPEP; PREC=PRECP
#line 6666 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = TYPEP;
#line 6666 "regression-compile-tmp/nrimp10s-77.imp"
PREC = PRECP;
                                                                //   6667        REGISTER(BREG)=0
#line 6667 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[7] = 0;
                                                                //   6668        GRUSE(ACCR)=0
#line 6668 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   6669        GRUSE(BREG)=0
#line 6669 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   6670        REGISTER(ACCR)=1
#line 6670 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   6671        OPND1_PTYPE=16*PREC+TYPE
#line 6671 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->PTYPE = (((int)((((int)(16)) * (PREC)))) + (TYPE));
                                                                //   6672        OPND1_XB=0; OPND1_D=ACCR
#line 6672 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->XB = 0;
#line 6672 "regression-compile-tmp/nrimp10s-77.imp"
OPND1->D = 0;
                                                                //   6673        C=ENTER LAB(PLABEL,B'11');        ! LABEL AT END OF EXP ROUTINE
#line 6673 "regression-compile-tmp/nrimp10s-77.imp"
C = ENTERLAB(PLABEL, 3);
                                                                //   6674  %END
#line 6674 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STARSTAR at level 6
                                                                //   6675   %END;                                  ! OF ROUTINE EXPOP
#line 6675 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw16_SW_15:;
sw16_SW_16:;
sw16_SW_17:;
sw16_SW_18:;
sw16_SW_19:;
/*_imp_signal(6,3,sw16_SW_idx,"SWITCH LABEL NOT SET - sw16_SW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw16_SW(%d): at line %s:%d", sw16_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block EXPOP at level 5
                                                                //   6676           %ROUTINE REDUCE ENV(%INTEGERNAME HEAD)
#line 6676 "regression-compile-tmp/nrimp10s-77.imp"
void REDUCEENV( int /*name*/*HEAD )
#line 6676 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6677  !***********************************************************************
                                                                //   6678  !*       HEAD HAS AN ENVIRONMENT  - THIS ROUTINE REMOVES ANYTHING      *
                                                                //   6679  !*       INCOMPATIBLE WITH THE CURRENT REGISTER STATE                  *
                                                                //   6680  !***********************************************************************
                                                                //   6681           %INTEGER NEWHEAD,I,J,K,REG,USE
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int NEWHEAD;
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int REG;
#line 6681 "regression-compile-tmp/nrimp10s-77.imp"
int USE;
                                                                //   6682           NEWHEAD=0
#line 6682 "regression-compile-tmp/nrimp10s-77.imp"
NEWHEAD = 0;
                                                                //   6683           %WHILE HEAD#0 %CYCLE
#line 6683 "regression-compile-tmp/nrimp10s-77.imp"
L_0697:;
#line 6683 "regression-compile-tmp/nrimp10s-77.imp"
if (((*HEAD) == (0))) goto L_0698;
                                                                //   6684              POP(HEAD,I,J,K)
#line 6684 "regression-compile-tmp/nrimp10s-77.imp"
POP(HEAD, &I, &J, &K);
                                                                //   6685              REG=K>>8; USE=K&255
#line 6685 "regression-compile-tmp/nrimp10s-77.imp"
REG = (int)((((unsigned int)(K)) >> (8)));
#line 6685 "regression-compile-tmp/nrimp10s-77.imp"
USE = ((K) & (255));
                                                                //   6686              %IF USE=GRUSE(REG)&255 %AND I=GRINF1(REG) %THEN PUSH(NEWHEAD,I,J,K)
#line 6686 "regression-compile-tmp/nrimp10s-77.imp"
if (((USE) != (((GRUSE[REG]) & (255))))) goto L_069a;
#line 6686 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (GRINF1[REG]))) goto L_069a;
#line 6686 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&NEWHEAD, I, J, K);
#line 6686 "regression-compile-tmp/nrimp10s-77.imp"
L_069a:;
                                                                //   6687           %REPEAT
#line 6687 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0697;
#line 6687 "regression-compile-tmp/nrimp10s-77.imp"
L_0698:;
                                                                //   6688           HEAD=NEWHEAD
#line 6688 "regression-compile-tmp/nrimp10s-77.imp"
*HEAD = NEWHEAD;
                                                                //   6689           %END
#line 6689 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REDUCEENV at level 5
                                                                //   6690  %INTEGERFN CCOND(%INTEGER CTO,IU,FARLAB)
#line 6690 "regression-compile-tmp/nrimp10s-77.imp"
int CCOND( int CTO, int IU, int FARLAB )
#line 6690 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6691  !***********************************************************************
                                                                //   6692  !*       COMPILES <IU><SC><RESTOFCOND>%THEN<UI1>%ELSE<UI2>             *
                                                                //   6693  !*       CTO=0 JUMP TO FARLAB MUST BE PLANTED IF COND UNCONDITIONAL    *
                                                                //   6694  !*       CTO#0 JUMP MAY BE OMITTED                                     *
                                                                //   6695  !*       IU=1 FOR %IF   =2 FOR UNLESS. FARLAB TO GO ON UI2             *
                                                                //   6696  !*       THE ROUTINE MAKES FOUR PASSES THROUGH THE CONDITION           *
                                                                //   6697  !*       PASS 1 ANALYSES THE STRUCTURE AND DECIDES TO BRANCH ON TRUE   *
                                                                //   6698  !*       (TF=2)   OR ON FALSE (TF=1) FOR EACH COMPARISON               *
                                                                //   6699  !*       PASS 2 WORKS OUT WHERE THE BRANCHES OF PASS 1 SHOULD GO TO    *
                                                                //   6700  !*       PASS 3 ASSIGNS LABEL NUMBERS                                  *
                                                                //   6701  !*       PASS 4 EVALUATES COMPARISIONS AND PLANTS THE CODE             *
                                                                //   6702  !*                                                                     *
                                                                //   6703  !*       ON ENTRY P POINTS TO <SC> IN<HOLE><SC><RESTOFCOND>            *
                                                                //   6704  !*       RESULT=0 CONDITION COMPILED                                   *
                                                                //   6705  !*       RESULT=1 UNCONDITIONALLY TO 1ST ALTERNATIVE                   *
                                                                //   6706  !*       RESULT=2 UNCONDITIONALLY TO 2ND ALTERNATIVE(FARLAB)           *
                                                                //   6707  !***********************************************************************
                                                                //   6708  %ROUTINESPEC WRITE CONDLIST
#line 6708 "regression-compile-tmp/nrimp10s-77.imp"
auto void WRITECONDLIST( void );
                                                                //   6709  %ROUTINESPEC SKIP SC(%INTEGER REVERSED)
#line 6709 "regression-compile-tmp/nrimp10s-77.imp"
auto void SKIPSC( int REVERSED );
                                                                //   6710  %ROUTINESPEC SKIP COND(%INTEGER REVERSED)
#line 6710 "regression-compile-tmp/nrimp10s-77.imp"
auto void SKIPCOND( int REVERSED );
                                                                //   6711  %INTEGERFNSPEC CCOMP
#line 6711 "regression-compile-tmp/nrimp10s-77.imp"
auto int CCOMP( void );
                                                                //   6712  %%ROUTINESPEC JUMP(%INTEGER MASK,LAB,FLAGS)
#line 6712 "regression-compile-tmp/nrimp10s-77.imp"
auto void JUMP( int MASK, int LAB, int FLAGS );
                                                                //   6713  %ROUTINESPEC LAB UNUSED(%INTEGER LAB)
#line 6713 "regression-compile-tmp/nrimp10s-77.imp"
auto void LABUNUSED( int LAB );
                                                                //   6714  %ROUTINESPEC OMIT TO(%INTEGER LAB)
#line 6714 "regression-compile-tmp/nrimp10s-77.imp"
auto void OMITTO( int LAB );
                                                                //   6715  !
                                                                //   6716  ! FCOMP HAS BC MASKS FOR EACH STRING COMPARATOR.
                                                                //   6717  ! THE FIRST 7 ARE TO BRANCH IF TRUE WITH NORMAL COMPARISON
                                                                //   6718  ! THE SECOND SEVEN ARE TO BRANCH IF TRUE WITH BACKWARDS COMPARISON
                                                                //   6719  !
                                                                //   6720  %CONSTBYTEINTEGERARRAY FCOMP(1:21)=8,13,5,7,10,2,7,
#line 6720 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char FCOMP[21] = { 8, 13, 5, 7, 10, 2, 7, 8, 10, 2, 7, 13, 5, 7, 27, 0, 0, 43, 0, 0, 43,  };
                                                                //   6721                                     8,10,2,7,13,5,7,
                                                                //   6722                                     27,0,0,43,0,0,43;
                                                                //   6723  !
                                                                //   6724  %INTEGER PIN,PP,II,L,CPTR,CMAX,LL,BITMASK,LA
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int PIN;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int II;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int L;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int CPTR;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int CMAX;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int LL;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int BITMASK;
#line 6724 "regression-compile-tmp/nrimp10s-77.imp"
int LA;
                                                                //   6725  %RECORDFORMAT CF(%BYTEINTEGER TF,CMP1,CMP2,LABU,LVL,JMP,REV,SP,%INTEGER LABNO,SP1,SP2)
#line 6725 "regression-compile-tmp/nrimp10s-77.imp"
typedef struct CF CF;
struct CF {
  unsigned char TF;
  unsigned char CMP1;
  unsigned char CMP2;
  unsigned char LABU;
  unsigned char LVL;
  unsigned char JMP;
  unsigned char REV;
  unsigned char SP;
  int LABNO;
  int SP1;
  int SP2;
};
                                                                //   6726  %RECORD(CF)%ARRAY CLIST(1:30){(CF)
#line 6726 "regression-compile-tmp/nrimp10s-77.imp"
 CF CLIST[30];
                                                                //   6727  %RECORD(CF)%NAME C1,C2{(CF)
#line 6727 "regression-compile-tmp/nrimp10s-77.imp"
 CF /*name*/*C1;
#line 6727 "regression-compile-tmp/nrimp10s-77.imp"
 CF /*name*/*C2;
                                                                //   6728  !
                                                                //   6729  ! PASS 1.   ANALYSES THE CONDITION
                                                                //   6730  !
                                                                //   6731           PIN=P;                        ! SAVE INITIAL AR POINTER
#line 6731 "regression-compile-tmp/nrimp10s-77.imp"
PIN = P;
                                                                //   6732           CPTR=1; L=3;                  ! LEVEL=3 TO ALLOW 2 LOWER
#line 6732 "regression-compile-tmp/nrimp10s-77.imp"
CPTR = 1;
#line 6732 "regression-compile-tmp/nrimp10s-77.imp"
L = 3;
                                                                //   6733           C1==CLIST(CPTR);              ! SET UP RECORD FOR FIRST CMPARSN
#line 6733 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6734           C1=0
#line 6734 "regression-compile-tmp/nrimp10s-77.imp"
*C1 = (CF){ 0 } /* Assign 0's to all fields of record */;
                                                                //   6735           SKIP SC(0);                   ! SKIP THE 1ST CMPARSN
#line 6735 "regression-compile-tmp/nrimp10s-77.imp"
SKIPSC(0);
                                                                //   6736           SKIP COND(0);                   ! AND ANY %AND/%OR CLAUSES
#line 6736 "regression-compile-tmp/nrimp10s-77.imp"
SKIPCOND(0);
                                                                //   6737           C1_LVL=2;                     ! LEVEL =-1 FOR %IF/%THEN ENTRY
#line 6737 "regression-compile-tmp/nrimp10s-77.imp"
C1->LVL = 2;
                                                                //   6738           C1_TF=IU
#line 6738 "regression-compile-tmp/nrimp10s-77.imp"
C1->TF = IU;
                                                                //   6739           CMAX=CPTR+1
#line 6739 "regression-compile-tmp/nrimp10s-77.imp"
CMAX = (((int)(CPTR)) + (1));
                                                                //   6740           C1==CLIST(CMAX); C1=0
#line 6740 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CMAX)) - (1))];
#line 6740 "regression-compile-tmp/nrimp10s-77.imp"
*C1 = (CF){ 0 } /* Assign 0's to all fields of record */;
                                                                //   6741           C1_LVL=1;                     ! LEVEL =-2 FOR ELSE ENTRY
#line 6741 "regression-compile-tmp/nrimp10s-77.imp"
C1->LVL = 1;
                                                                //   6742           C1_TF=3-IU;                    ! C1_REV NEVER SET HERE (PDS HOPES)
#line 6742 "regression-compile-tmp/nrimp10s-77.imp"
C1->TF = (((int)(3)) - (IU));
                                                                //   6743           C1_LABNO=FARLAB
#line 6743 "regression-compile-tmp/nrimp10s-77.imp"
C1->LABNO = FARLAB;
                                                                //   6744           PP=P;                         ! SAVE FINAL AR POINTER
#line 6744 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
                                                                //   6745           FAULT(209,0) %IF CMAX>29;     ! TOO COMPLICATED
#line 6745 "regression-compile-tmp/nrimp10s-77.imp"
if (((CMAX) <= (29))) goto L_069b;
#line 6745 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(209, 0);
#line 6745 "regression-compile-tmp/nrimp10s-77.imp"
L_069b:;
                                                                //   6746  !
                                                                //   6747  ! PASS 2 WORKS OUT WHERE TO JUMP TO
                                                                //   6748  ! THE JUMP IS FORWARD TO THE START OF THE CLAUSE WITH A DIFFERENT
                                                                //   6749  ! CONNECTOR (AND/OR) PROVIDED THIS IS AT A LOWER LEVEL THAN THE BRANCH
                                                                //   6750  ! AND ALSO AT A LOWER LEVEL THAN THE LOWEST POINT REACHED ENROUTE
                                                                //   6751  !
                                                                //   6752  ! ALSO CONTAINS PASS 3 (TRIVIAL)
                                                                //   6753  ! ASSIGN LABELS WHERE LABU SHOWS THEY ARE REQUIRED
                                                                //   6754  !
                                                                //   6755           %CYCLE CPTR=1,1,CMAX-1
#line 6755 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (((int)(CMAX)) - (1)); CPTR = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle CPTR = 1, 1, (((int)(CMAX)) - (1))");
CPTR -= _increment; _control -= _increment;
L_069c:;
if (CPTR == _final) goto L_069d;
CPTR += _increment; _control += _increment;
if (CPTR != _control) _imp_signal(4,2,0,"Corrupt control variable CPTR"); /* FOR loop control variable corrupted */
}
                                                                //   6756              C1==CLIST(CPTR)
#line 6756 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6757              L=C1_LVL; LL=L;            ! LL FOR LOWEST LEVEL ENROUTE
#line 6757 "regression-compile-tmp/nrimp10s-77.imp"
L = C1->LVL;
#line 6757 "regression-compile-tmp/nrimp10s-77.imp"
LL = L;
                                                                //   6758              %CYCLE II=CPTR+1,1,CMAX+1
#line 6758 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(CPTR)) + (1)); _increment = 1; _final = (((int)(CMAX)) + (1)); II = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle II = (((int)(CPTR)) + (1)), 1, (((int)(CMAX)) + (1))");
II -= _increment; _control -= _increment;
L_069f:;
if (II == _final) goto L_06a0;
II += _increment; _control += _increment;
if (II != _control) _imp_signal(4,2,0,"Corrupt control variable II"); /* FOR loop control variable corrupted */
}
                                                                //   6759                C2==CLIST(II)
#line 6759 "regression-compile-tmp/nrimp10s-77.imp"
C2 = &CLIST[(((int)(II)) - (1))];
                                                                //   6760                %EXIT %IF C1_TF#C2_TF %AND C2_LVL<LL
#line 6760 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->TF) == (C2->TF))) goto L_06a2;
#line 6760 "regression-compile-tmp/nrimp10s-77.imp"
if (((C2->LVL) >= (LL))) goto L_06a2;
#line 6760 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06a0;
#line 6760 "regression-compile-tmp/nrimp10s-77.imp"
L_06a2:;
                                                                //   6761                %IF C2_LVL<LL %THEN LL=C2_LVL
#line 6761 "regression-compile-tmp/nrimp10s-77.imp"
if (((C2->LVL) >= (LL))) goto L_06a3;
#line 6761 "regression-compile-tmp/nrimp10s-77.imp"
LL = C2->LVL;
#line 6761 "regression-compile-tmp/nrimp10s-77.imp"
L_06a3:;
                                                                //   6762              %REPEAT
#line 6762 "regression-compile-tmp/nrimp10s-77.imp"
goto L_069f;
#line 6762 "regression-compile-tmp/nrimp10s-77.imp"
L_06a0:;
                                                                //   6763              C1_JMP=II;                 ! CLAUSE TO JUMP TO
#line 6763 "regression-compile-tmp/nrimp10s-77.imp"
C1->JMP = II;
                                                                //   6764              C2_LABU=C2_LABU+1
#line 6764 "regression-compile-tmp/nrimp10s-77.imp"
C2->LABU = (((int)(C2->LABU)) + (1));
                                                                //   6765               %IF C1_CMP2#0 %OR C1_CMP1=8 %START; ! D-SIDED OR RESLN
#line 6765 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP2) != (0))) goto L_06a1;
#line 6765 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP1) != (8))) goto L_06a4;
#line 6765 "regression-compile-tmp/nrimp10s-77.imp"
L_06a1:;
                                                                //   6766                                         ! REQIUIRES A LABEL ON THE
                                                                //   6767                 C1_LABU=C1_LABU+1;      ! THE NEXT SIMPLE CONDITION
#line 6767 "regression-compile-tmp/nrimp10s-77.imp"
C1->LABU = (((int)(C1->LABU)) + (1));
                                                                //   6768              %FINISH
#line 6768 "regression-compile-tmp/nrimp10s-77.imp"
L_06a4:;
                                                                //   6769              %IF C1_LABU#0 %AND C1_LABNO<=0 %THEN PLABEL=PLABEL-1 %AND C1_LABNO=PLABEL
#line 6769 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABU) == (0))) goto L_06a5;
#line 6769 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABNO) > (0))) goto L_06a5;
#line 6769 "regression-compile-tmp/nrimp10s-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 6769 "regression-compile-tmp/nrimp10s-77.imp"
C1->LABNO = PLABEL;
#line 6769 "regression-compile-tmp/nrimp10s-77.imp"
L_06a5:;
                                                                //   6770           %REPEAT
#line 6770 "regression-compile-tmp/nrimp10s-77.imp"
goto L_069c;
#line 6770 "regression-compile-tmp/nrimp10s-77.imp"
L_069d:;
                                                                //   6771  !
                                                                //   6772  ! PASS 4 GENERATE THE CODE
                                                                //   6773  ! MAINTAIN BIT MASK TO HELP. 2**0 JUMP TO FAR LAB PLANTED
                                                                //   6774  !                            2**1 JUMP TO INTERMEDIATE LAB PLANTED
                                                                //   6775  !
                                                                //   6776           WRITE CONDLIST %IF DCOMP=1
#line 6776 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) != (1))) goto L_06a6;
#line 6776 "regression-compile-tmp/nrimp10s-77.imp"
WRITECONDLIST();
#line 6776 "regression-compile-tmp/nrimp10s-77.imp"
L_06a6:;
                                                                //   6777           BITMASK=0
#line 6777 "regression-compile-tmp/nrimp10s-77.imp"
BITMASK = 0;
                                                                //   6778           CPTR=1
#line 6778 "regression-compile-tmp/nrimp10s-77.imp"
CPTR = 1;
                                                                //   6779           %CYCLE
#line 6779 "regression-compile-tmp/nrimp10s-77.imp"
L_06a7:;
                                                                //   6780              C1==CLIST(CPTR)
#line 6780 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6781              LA=CCOMP
#line 6781 "regression-compile-tmp/nrimp10s-77.imp"
LA = CCOMP();
                                                                //   6782              %IF LA#0 %START
#line 6782 "regression-compile-tmp/nrimp10s-77.imp"
if (((LA) == (0))) goto L_06aa;
                                                                //   6783                 OMIT TO(LA)
#line 6783 "regression-compile-tmp/nrimp10s-77.imp"
OMITTO(LA);
                                                                //   6784                 %IF CPTR>=CMAX %THEN %START
#line 6784 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPTR) < (CMAX))) goto L_06ab;
                                                                //   6785                    %IF CTO=0 %THEN ENTER JUMP(15,LA,B'11')
#line 6785 "regression-compile-tmp/nrimp10s-77.imp"
if (((CTO) != (0))) goto L_06ac;
#line 6785 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(15, LA, 3);
#line 6785 "regression-compile-tmp/nrimp10s-77.imp"
L_06ac:;
                                                                //   6786                    %RESULT=2
#line 6786 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 2;
                                                                //   6787                 %FINISH
#line 6787 "regression-compile-tmp/nrimp10s-77.imp"
L_06ab:;
                                                                //   6788                 C1==CLIST(CPTR)
#line 6788 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6789              %FINISH
#line 6789 "regression-compile-tmp/nrimp10s-77.imp"
L_06aa:;
                                                                //   6790              %IF C1_LABNO>0 %THEN II=ENTER LAB(C1_LABNO,B'11')
#line 6790 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABNO) <= (0))) goto L_06ad;
#line 6790 "regression-compile-tmp/nrimp10s-77.imp"
II = ENTERLAB(C1->LABNO, 3);
#line 6790 "regression-compile-tmp/nrimp10s-77.imp"
L_06ad:;
                                                                //   6791              CPTR=CPTR+1
#line 6791 "regression-compile-tmp/nrimp10s-77.imp"
CPTR = (((int)(CPTR)) + (1));
                                                                //   6792              %EXIT %IF CPTR>=CMAX
#line 6792 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPTR) < (CMAX))) goto L_06ae;
#line 6792 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06a8;
#line 6792 "regression-compile-tmp/nrimp10s-77.imp"
L_06ae:;
                                                                //   6793           %REPEAT
#line 6793 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06a7;
#line 6793 "regression-compile-tmp/nrimp10s-77.imp"
L_06a8:;
                                                                //   6794  !
                                                                //   6795           P=PP;
#line 6795 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
                                                                //   6796           %RESULT=1 %IF BITMASK&1=0
#line 6796 "regression-compile-tmp/nrimp10s-77.imp"
if (((((BITMASK) & (1))) != (0))) goto L_06af;
#line 6796 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
#line 6796 "regression-compile-tmp/nrimp10s-77.imp"
L_06af:;
                                                                //   6797           %RESULT=0
#line 6797 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6798  %ROUTINE LAB UNUSED(%INTEGER LAB)
#line 6798 "regression-compile-tmp/nrimp10s-77.imp"
void LABUNUSED( int LAB )
#line 6798 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6799  !***********************************************************************
                                                                //   6800  !*       A LABEL IS NOT JUMPED TO AS CONDITION ALWAYS FALSE            *
                                                                //   6801  !*       REMOVE IT FROM LIST                                           *
                                                                //   6802  !***********************************************************************
                                                                //   6803  %INTEGER I
#line 6803 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   6804  %RECORD(CF)%NAME C1{(CF)
#line 6804 "regression-compile-tmp/nrimp10s-77.imp"
 CF /*name*/*C1;
                                                                //   6805        %CYCLE I=CPTR,1,CMAX-1
#line 6805 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = CPTR; _increment = 1; _final = (((int)(CMAX)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = CPTR, 1, (((int)(CMAX)) - (1))");
I -= _increment; _control -= _increment;
L_06b0:;
if (I == _final) goto L_06b1;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   6806           C1==CLIST(I)
#line 6806 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(I)) - (1))];
                                                                //   6807           %IF C1_LABNO=LAB %START
#line 6807 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABNO) != (LAB))) goto L_06b3;
                                                                //   6808              C1_LABU=C1_LABU-1;          ! COUNT DOWN USE COUNT
#line 6808 "regression-compile-tmp/nrimp10s-77.imp"
C1->LABU = (((int)(C1->LABU)) - (1));
                                                                //   6809              %IF C1_LABU=0 %THEN C1_LABNO=0
#line 6809 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABU) != (0))) goto L_06b4;
#line 6809 "regression-compile-tmp/nrimp10s-77.imp"
C1->LABNO = 0;
#line 6809 "regression-compile-tmp/nrimp10s-77.imp"
L_06b4:;
                                                                //   6810              %RETURN
#line 6810 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6811           %FINISH
#line 6811 "regression-compile-tmp/nrimp10s-77.imp"
L_06b3:;
                                                                //   6812        %REPEAT
#line 6812 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06b0;
#line 6812 "regression-compile-tmp/nrimp10s-77.imp"
L_06b1:;
                                                                //   6813  %END
#line 6813 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LABUNUSED at level 6
                                                                //   6814  %ROUTINE OMIT TO(%INTEGER LAB)
#line 6814 "regression-compile-tmp/nrimp10s-77.imp"
void OMITTO( int LAB )
#line 6814 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6815  !***********************************************************************
                                                                //   6816  !*    A JUMP TURNS OUT TO BE UNCONDITIONAL. OMIT CODE FOR SKIPPED BIT  *
                                                                //   6817  !***********************************************************************
                                                                //   6818  %RECORD(CF)%NAME C1{(CF)
#line 6818 "regression-compile-tmp/nrimp10s-77.imp"
 CF /*name*/*C1;
                                                                //   6819        %CYCLE
#line 6819 "regression-compile-tmp/nrimp10s-77.imp"
L_06b5:;
                                                                //   6820           C1==CLIST(CPTR)
#line 6820 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6821           %IF C1_LABNO>0 %START
#line 6821 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABNO) <= (0))) goto L_06b8;
                                                                //   6822              %IF C1_LABNO=LAB % %THEN %RETURN
#line 6822 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->LABNO) != (LAB))) goto L_06b9;
#line 6822 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 6822 "regression-compile-tmp/nrimp10s-77.imp"
L_06b9:;
                                                                //   6823              JUMP(15,LAB,B'11')
#line 6823 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(15, LAB, 3);
                                                                //   6824              %RETURN
#line 6824 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6825           %FINISH
#line 6825 "regression-compile-tmp/nrimp10s-77.imp"
L_06b8:;
                                                                //   6826           CPTR=CPTR+1
#line 6826 "regression-compile-tmp/nrimp10s-77.imp"
CPTR = (((int)(CPTR)) + (1));
                                                                //   6827           %EXIT %IF CPTR>=CMAX
#line 6827 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPTR) < (CMAX))) goto L_06ba;
#line 6827 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06b6;
#line 6827 "regression-compile-tmp/nrimp10s-77.imp"
L_06ba:;
                                                                //   6828        %REPEAT
#line 6828 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06b5;
#line 6828 "regression-compile-tmp/nrimp10s-77.imp"
L_06b6:;
                                                                //   6829  %END
#line 6829 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OMITTO at level 6
                                                                //   6830  %ROUTINE SKIP SC(%INTEGER REVERSED)
#line 6830 "regression-compile-tmp/nrimp10s-77.imp"
void SKIPSC( int REVERSED )
#line 6830 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6831  !***********************************************************************
                                                                //   6832  !*       REVERSED=1 FOR RECURSIVE CALL IN %NOT(SC)                     *
                                                                //   6833  !*       SKIPS OVER A SIMPLE CONDITION. P ON ALT OF<SC>                *
                                                                //   6834  !***********************************************************************
                                                                //   6835  %SWITCH SCALT(1:3)
#line 6835 "regression-compile-tmp/nrimp10s-77.imp"
static int sw20_SCALT_idx;
static const void * /*SWITCH*/ sw20_SCALT[3] = { &&sw20_SCALT_1, &&sw20_SCALT_2, &&sw20_SCALT_3,  };
                                                                //   6836  %INTEGER ALT
#line 6836 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
                                                                //   6837        ALT=A(P); P=P+1
#line 6837 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
#line 6837 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   6838        ->SCALT(ALT)
#line 6838 "regression-compile-tmp/nrimp10s-77.imp"
sw20_SCALT_idx = ALT; if ((1 <= sw20_SCALT_idx) && (sw20_SCALT_idx <= 3)) goto *(sw20_SCALT-1)[sw20_SCALT_idx];  /* Bounds=1:3 */ else {
   /*_imp_signal(8, 2, sw20_SCALT_idx);*/
   fprintf(stderr, "%%SWITCH index SCALT(%d) not in range 1:3 at %s:%d\n",
           sw20_SCALT_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   6839  SCALT(1):                               ! <EXP><COMP><EXP><SECONDSIDE>
#line 6839 "regression-compile-tmp/nrimp10s-77.imp"
sw20_SCALT_1:;
                                                                //   6840        C1_SP1=P-PIN
#line 6840 "regression-compile-tmp/nrimp10s-77.imp"
C1->SP1 = (((int)(P)) - (PIN));
                                                                //   6841        SKIP EXP
#line 6841 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   6842        C1_CMP1=A(P)
#line 6842 "regression-compile-tmp/nrimp10s-77.imp"
C1->CMP1 = A[P];
                                                                //   6843        C1_REV=3*REVERSED
#line 6843 "regression-compile-tmp/nrimp10s-77.imp"
C1->REV = (((int)(3)) * (REVERSED));
                                                                //   6844        P=P+1; C1_SP2=P-PIN
#line 6844 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 6844 "regression-compile-tmp/nrimp10s-77.imp"
C1->SP2 = (((int)(P)) - (PIN));
                                                                //   6845        SKIP EXP
#line 6845 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   6846        %IF A(P)=2 %THEN P=P+1 %ELSE %START
#line 6846 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_06bb;
#line 6846 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 6846 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06bc;
#line 6846 "regression-compile-tmp/nrimp10s-77.imp"
L_06bb:;
                                                                //   6847           C1_CMP2=A(P+1);              ! DEAL WITH 2ND HALF OF D-SIDED
#line 6847 "regression-compile-tmp/nrimp10s-77.imp"
C1->CMP2 = A[(((int)(P)) + (1))];
                                                                //   6848           P=P+2; SKIP EXP
#line 6848 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 6848 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   6849        %FINISH
#line 6849 "regression-compile-tmp/nrimp10s-77.imp"
L_06bc:;
                                                                //   6850        %RETURN
#line 6850 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6851  SCALT(2):                               ! '('<SC><RESTOFCOND>')'
#line 6851 "regression-compile-tmp/nrimp10s-77.imp"
sw20_SCALT_2:;
                                                                //   6852         L=L+1
#line 6852 "regression-compile-tmp/nrimp10s-77.imp"
L = (((int)(L)) + (1));
                                                                //   6853         SKIP SC(REVERSED)
#line 6853 "regression-compile-tmp/nrimp10s-77.imp"
SKIPSC(REVERSED);
                                                                //   6854         SKIP COND(REVERSED)
#line 6854 "regression-compile-tmp/nrimp10s-77.imp"
SKIPCOND(REVERSED);
                                                                //   6855         L=L-1
#line 6855 "regression-compile-tmp/nrimp10s-77.imp"
L = (((int)(L)) - (1));
                                                                //   6856        %RETURN
#line 6856 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   6857  SCALT(3):                               ! %NOT(SC)
#line 6857 "regression-compile-tmp/nrimp10s-77.imp"
sw20_SCALT_3:;
                                                                //   6858        SKIP SC(REVERSED!!1)
#line 6858 "regression-compile-tmp/nrimp10s-77.imp"
SKIPSC(((REVERSED) ^ (1)));
                                                                //   6859  %END;                                   ! OF ROUTINE SKIP SC
#line 6859 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPSC at level 6
                                                                //   6860  %ROUTINE SKIP COND(%INTEGER REVERSED)
#line 6860 "regression-compile-tmp/nrimp10s-77.imp"
void SKIPCOND( int REVERSED )
#line 6860 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6861  !***********************************************************************
                                                                //   6862  !*       SKIPS OVER <RESTOFCOND>                                       *
                                                                //   6863  !***********************************************************************
                                                                //   6864  %INTEGER ALT,ALTP
#line 6864 "regression-compile-tmp/nrimp10s-77.imp"
int ALT;
#line 6864 "regression-compile-tmp/nrimp10s-77.imp"
int ALTP;
                                                                //   6865        ALT=A(P);                         ! 1=%AND<ANDC>,2=%OR<ORC>,3=NULL
#line 6865 "regression-compile-tmp/nrimp10s-77.imp"
ALT = A[P];
                                                                //   6866        P=P+1
#line 6866 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   6867        %IF ALT\=3 %THEN %START;          ! NULL ALTERNATIVE NOTHING TO DO
#line 6867 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALT) == (3))) goto L_06bd;
                                                                //   6868           {%UNTIL ALTP=2} %CYCLE;          ! UNTIL NO MORE <SC>S
#line 6868 "regression-compile-tmp/nrimp10s-77.imp"
L_06be:;
                                                                //   6869              C1_LVL=L; C1_TF=ALT
#line 6869 "regression-compile-tmp/nrimp10s-77.imp"
C1->LVL = L;
#line 6869 "regression-compile-tmp/nrimp10s-77.imp"
C1->TF = ALT;
                                                                //   6870              C1_TF=C1_TF!!(3*REVERSED)
#line 6870 "regression-compile-tmp/nrimp10s-77.imp"
C1->TF = ((C1->TF) ^ ((((int)(3)) * (REVERSED))));
                                                                //   6871              CPTR=CPTR+1
#line 6871 "regression-compile-tmp/nrimp10s-77.imp"
CPTR = (((int)(CPTR)) + (1));
                                                                //   6872              C1==CLIST(CPTR); C1=0
#line 6872 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
#line 6872 "regression-compile-tmp/nrimp10s-77.imp"
*C1 = (CF){ 0 } /* Assign 0's to all fields of record */;
                                                                //   6873              SKIP SC(REVERSED)
#line 6873 "regression-compile-tmp/nrimp10s-77.imp"
SKIPSC(REVERSED);
                                                                //   6874              ALTP=A(P); P=P+1
#line 6874 "regression-compile-tmp/nrimp10s-77.imp"
ALTP = A[P];
#line 6874 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   6875           %REPEAT %UNTIL ALTP=2;         ! UNTIL NO MORE <SC>S
#line 6875 "regression-compile-tmp/nrimp10s-77.imp"
if (((ALTP) == (2))) goto L_06bf;
#line 6875 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06be;
#line 6875 "regression-compile-tmp/nrimp10s-77.imp"
L_06bf:;
                                                                //   6876        %FINISH
#line 6876 "regression-compile-tmp/nrimp10s-77.imp"
L_06bd:;
                                                                //   6877  %END
#line 6877 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPCOND at level 6
                                                                //   6878  %ROUTINE WRITE CONDLIST
#line 6878 "regression-compile-tmp/nrimp10s-77.imp"
void WRITECONDLIST( void )
#line 6878 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6879  %CONSTSTRING(5) %ARRAY CM(0:10)="     ","    =","   >=","    >",
#line 6879 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(5)*/ CM[11] = { _imp_str_literal("     "), _imp_str_literal("    ="), _imp_str_literal("   >="), _imp_str_literal("    >"), _imp_str_literal("    #"), _imp_str_literal("   <="), _imp_str_literal("    <"), _imp_str_literal("   \\="), _imp_str_literal("   ->"), _imp_str_literal("   =="), _imp_str_literal("  \\=="),  };
                                                                //   6880                         "    #","   <=","    <","   \=","   ->",
                                                                //   6881                         "   ==","  \==";
                                                                //   6882        PRINTSTRING("
#line 6882 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\n NO   TF   C1   C2   LABU   LVL  JMP  REV   LABNO\n"));
                                                                //   6883   NO   TF   C1   C2   LABU   LVL  JMP  REV   LABNO
                                                                //   6884  ")
                                                                //   6885        %CYCLE CPTR=1,1,CMAX
#line 6885 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = CMAX; CPTR = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle CPTR = 1, 1, CMAX");
CPTR -= _increment; _control -= _increment;
L_06c1:;
if (CPTR == _final) goto L_06c2;
CPTR += _increment; _control += _increment;
if (CPTR != _control) _imp_signal(4,2,0,"Corrupt control variable CPTR"); /* FOR loop control variable corrupted */
}
                                                                //   6886           C1==CLIST(CPTR)
#line 6886 "regression-compile-tmp/nrimp10s-77.imp"
C1 = &CLIST[(((int)(CPTR)) - (1))];
                                                                //   6887           WRITE(CPTR,2)
#line 6887 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(CPTR, 2);
                                                                //   6888           WRITE(C1_TF,4)
#line 6888 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->TF, 4);
                                                                //   6889           PRINTSTRING(CM(C1_CMP1))
#line 6889 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(CM[C1->CMP1]);
                                                                //   6890           PRINTSTRING(CM(C1_CMP2))
#line 6890 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(CM[C1->CMP2]);
                                                                //   6891           WRITE(C1_LABU,6)
#line 6891 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->LABU, 6);
                                                                //   6892           WRITE(C1_LVL,5)
#line 6892 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->LVL, 5);
                                                                //   6893           WRITE(C1_JMP,4)
#line 6893 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->JMP, 4);
                                                                //   6894           WRITE(C1_REV,4)
#line 6894 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->REV, 4);
                                                                //   6895           WRITE(C1_LABNO,7)
#line 6895 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(C1->LABNO, 7);
                                                                //   6896           NEWLINE
#line 6896 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //   6897        %REPEAT
#line 6897 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06c1;
#line 6897 "regression-compile-tmp/nrimp10s-77.imp"
L_06c2:;
                                                                //   6898  %END
#line 6898 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block WRITECONDLIST at level 6
                                                                //   6899  %INTEGERFN CCOMP
#line 6899 "regression-compile-tmp/nrimp10s-77.imp"
int CCOMP( void )
#line 6899 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6900  !***********************************************************************
                                                                //   6901  !*       COMPILES A COMPARISION: THREE DIFFERENT CASES                 *
                                                                //   6902  !*       1) ARITHMETIC EXPRESSIONS EXPOP IS USED                       *
                                                                //   6903  !*       2) STRING EXPRESSION AD-HOC CODE PLANTED BY THIS ROUTINE      *
                                                                //   6904  !*       3) RESOLUTIONS - CRES CAN BE USED                             *
                                                                //   6905  !*       4) EQUIVALENCES   INTEGER COMPARISONS ON ADDRESSES            *
                                                                //   6906  !*       RESULT=0 CODE COMPILED                                        *
                                                                //   6907  !*       RESULT#0 UNCODITIONAL JUMP TO LAB=RESULT                      *
                                                                //   6908  !***********************************************************************
                                                                //   6909  %ROUTINESPEC ACOMP(%INTEGER TF,DS)
#line 6909 "regression-compile-tmp/nrimp10s-77.imp"
auto void ACOMP( int TF, int DS );
                                                                //   6910  %ROUTINESPEC ADCOMP(%INTEGER TF)
#line 6910 "regression-compile-tmp/nrimp10s-77.imp"
auto void ADCOMP( int TF );
                                                                //   6911  %ROUTINESPEC SCOMP(%INTEGER DS,TF,LAB,%INTEGERNAME WA)
#line 6911 "regression-compile-tmp/nrimp10s-77.imp"
auto void SCOMP( int DS, int TF, int LAB, int /*name*/*WA );
                                                                //   6912  %INTEGER HEAD1,HEAD2,NOPS,TE1,TE2,TEX1,TEX2,P1,P2,FEXIT,IEXIT,CMP,WA1,WA2,WA3,BOT1,BOT2
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD2;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int TE1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int TE2;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int TEX1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int TEX2;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int P1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int P2;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int FEXIT;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int IEXIT;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int CMP;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int WA1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int WA2;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int WA3;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int BOT1;
#line 6912 "regression-compile-tmp/nrimp10s-77.imp"
int BOT2;
                                                                //   6913  !
                                                                //   6914           HEAD1=0; HEAD2=0; NOPS=0
#line 6914 "regression-compile-tmp/nrimp10s-77.imp"
HEAD1 = 0;
#line 6914 "regression-compile-tmp/nrimp10s-77.imp"
HEAD2 = 0;
#line 6914 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
                                                                //   6915           BOT1=0; BOT2=0
#line 6915 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = 0;
#line 6915 "regression-compile-tmp/nrimp10s-77.imp"
BOT2 = 0;
                                                                //   6916           FEXIT=CLIST(C1_JMP)_LABNO;    ! FINAL EXIT
#line 6916 "regression-compile-tmp/nrimp10s-77.imp"
FEXIT = CLIST[(((int)(C1->JMP)) - (1))].LABNO;
                                                                //   6917           IEXIT=FEXIT;                  ! INTERMEDIATE EXIT (D-SIDED ETC)
#line 6917 "regression-compile-tmp/nrimp10s-77.imp"
IEXIT = FEXIT;
                                                                //   6918           %IF C1_REV!!C1_TF=2 %AND (C1_CMP1=8 %OR C1_CMP2#0) %THEN IEXIT=C1_LABNO
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
if (((((C1->REV) ^ (C1->TF))) != (2))) goto L_06c4;
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP1) == (8))) goto L_06c3;
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP2) == (0))) goto L_06c4;
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
L_06c3:;
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
IEXIT = C1->LABNO;
#line 6918 "regression-compile-tmp/nrimp10s-77.imp"
L_06c4:;
                                                                //   6919  !
                                                                //   6920           P=PIN+C1_SP2
#line 6920 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(PIN)) + (C1->SP2));
                                                                //   6921           P2=P; P1=PIN+C1_SP1
#line 6921 "regression-compile-tmp/nrimp10s-77.imp"
P2 = P;
#line 6921 "regression-compile-tmp/nrimp10s-77.imp"
P1 = (((int)(PIN)) + (C1->SP1));
                                                                //   6922           %IF C1_CMP1=8 %THEN %START
#line 6922 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP1) != (8))) goto L_06c5;
                                                                //   6923                                         ! CONDITIONAL RESOLUTION
                                                                //   6924                                         ! NB CRES BRANCHES ON FALSE!!
                                                                //   6925              P=P1
#line 6925 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
                                                                //   6926              %IF A(P+3)=4 %AND A(P+4)=1 %START
#line 6926 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (4))) goto L_06c6;
#line 6926 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (1))) goto L_06c6;
                                                                //   6927                 P=P+5; CNAME(2,DR);     ! LH STRING TO DR
#line 6927 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
#line 6927 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(2, 1);
                                                                //   6928                 %IF A(P)=2 %THEN %START
#line 6928 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_06c7;
                                                                //   6929                    %IF TYPE#5 %THEN FAULT2(71,0,FROMAR2(P1+5)) %AND %RESULT=0
#line 6929 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_06c8;
#line 6929 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(71, 0, FROMAR2((((int)(P1)) + (5))));
#line 6929 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 6929 "regression-compile-tmp/nrimp10s-77.imp"
L_06c8:;
                                                                //   6930                    P=P2
#line 6930 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
                                                                //   6931                    CRES(IEXIT);         ! FAILURES -> IEXIT
#line 6931 "regression-compile-tmp/nrimp10s-77.imp"
CRES(IEXIT);
                                                                //   6932                    %IF IEXIT=FARLAB %THEN BITMASK=BITMASK!1 %ELSE BITMASK=BITMASK!2
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
if (((IEXIT) != (FARLAB))) goto L_06c9;
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
BITMASK = ((BITMASK) | (1));
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06ca;
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
L_06c9:;
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
BITMASK = ((BITMASK) | (2));
#line 6932 "regression-compile-tmp/nrimp10s-77.imp"
L_06ca:;
                                                                //   6933                    %IF C1_REV!!C1_TF=2 %THEN JUMP(15,FEXIT,B'11')
#line 6933 "regression-compile-tmp/nrimp10s-77.imp"
if (((((C1->REV) ^ (C1->TF))) != (2))) goto L_06cb;
#line 6933 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(15, FEXIT, 3);
#line 6933 "regression-compile-tmp/nrimp10s-77.imp"
L_06cb:;
                                                                //   6934                    %RESULT=0
#line 6934 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6935                 %FINISH
#line 6935 "regression-compile-tmp/nrimp10s-77.imp"
L_06c7:;
                                                                //   6936              %FINISH
#line 6936 "regression-compile-tmp/nrimp10s-77.imp"
L_06c6:;
                                                                //   6937              FAULT2(74,0,0)
#line 6937 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(74, 0, 0);
                                                                //   6938              %RESULT=0
#line 6938 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6939           %FINISH
#line 6939 "regression-compile-tmp/nrimp10s-77.imp"
L_06c5:;
                                                                //   6940        %IF C1_CMP1>8 %THEN ->ADRCOMP
#line 6940 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP1) <= (8))) goto L_06cc;
#line 6940 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1039;
#line 6940 "regression-compile-tmp/nrimp10s-77.imp"
L_06cc:;
                                                                //   6941           MASK=FCOMP(C1_CMP1)
#line 6941 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[C1->CMP1];
                                                                //   6942           TE2=TSEXP(TEX2)
#line 6942 "regression-compile-tmp/nrimp10s-77.imp"
TE2 = TSEXP(&TEX2);
                                                                //   6943           ->STR %IF TYPE=5
#line 6943 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_06cd;
#line 6943 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103a;
#line 6943 "regression-compile-tmp/nrimp10s-77.imp"
L_06cd:;
                                                                //   6944           ->ARITH %UNLESS TE2=1
#line 6944 "regression-compile-tmp/nrimp10s-77.imp"
if (((TE2) == (1))) goto L_06ce;
#line 6944 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103b;
#line 6944 "regression-compile-tmp/nrimp10s-77.imp"
L_06ce:;
                                                                //   6945           P=P1; TE1=TSEXP(TEX1)
#line 6945 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
#line 6945 "regression-compile-tmp/nrimp10s-77.imp"
TE1 = TSEXP(&TEX1);
                                                                //   6946           ->STR %IF TYPE=5
#line 6946 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_06cf;
#line 6946 "regression-compile-tmp/nrimp10s-77.imp"
goto U_103a;
#line 6946 "regression-compile-tmp/nrimp10s-77.imp"
L_06cf:;
                                                                //   6947  ARITH:                                 ! ARITHMETIC COMPARISIONS
#line 6947 "regression-compile-tmp/nrimp10s-77.imp"
U_103b:;
                                                                //   6948           P=P1+3
#line 6948 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P1)) + (3));
                                                                //   6949           TORP(HEAD1,BOT1,NOPS);      ! FIRST EXPRESSION TO REVERSE POL
#line 6949 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&HEAD1, &BOT1, &NOPS);
                                                                //   6950           CMP=C1_CMP1
#line 6950 "regression-compile-tmp/nrimp10s-77.imp"
CMP = C1->CMP1;
                                                                //   6951           P=P2+3
#line 6951 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (3));
                                                                //   6952           %IF C1_CMP2#0 %THEN %START;   ! IF D-SIDED DEAL WITH MIDDLE
#line 6952 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP2) == (0))) goto L_06d0;
                                                                //   6953              ACOMP(1,1);                ! BRANCH IEXIT %IF FALSE
#line 6953 "regression-compile-tmp/nrimp10s-77.imp"
ACOMP(1, 1);
                                                                //   6954              %IF MASK=15 %THEN %RESULT=IEXIT
#line 6954 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (15))) goto L_06d1;
#line 6954 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return IEXIT;
#line 6954 "regression-compile-tmp/nrimp10s-77.imp"
L_06d1:;
                                                                //   6955              JUMP(MASK,IEXIT,B'11')
#line 6955 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(MASK, IEXIT, 3);
                                                                //   6956              P=P+5;                     ! TO THE THIRD EXPRSN
#line 6956 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   6957              CMP=C1_CMP2;               ! COMPARATOR NO 2
#line 6957 "regression-compile-tmp/nrimp10s-77.imp"
CMP = C1->CMP2;
                                                                //   6958           %FINISH
#line 6958 "regression-compile-tmp/nrimp10s-77.imp"
L_06d0:;
                                                                //   6959  !
                                                                //   6960           ACOMP(C1_REV!!C1_TF,0);       ! SECOND OR ONLY COMPARISION
#line 6960 "regression-compile-tmp/nrimp10s-77.imp"
ACOMP(((C1->REV) ^ (C1->TF)), 0);
                                                                //   6961           %IF MASK=15 %THEN %RESULT=FEXIT
#line 6961 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (15))) goto L_06d2;
#line 6961 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return FEXIT;
#line 6961 "regression-compile-tmp/nrimp10s-77.imp"
L_06d2:;
                                                                //   6962           JUMP(MASK,FEXIT,B'11')
#line 6962 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(MASK, FEXIT, 3);
                                                                //   6963           %RESULT=0
#line 6963 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6964  STR:                                   ! STRING COMPARISIONS
#line 6964 "regression-compile-tmp/nrimp10s-77.imp"
U_103a:;
                                                                //   6965                                         ! SOME CARE IS NEEDED IN FREEING
                                                                //   6966                                         ! STRING WK-AREAS SET BY CSTREXP
                                                                //   6967           P=P1
#line 6967 "regression-compile-tmp/nrimp10s-77.imp"
P = P1;
                                                                //   6968           WA1=0; WA2=0; WA3=0
#line 6968 "regression-compile-tmp/nrimp10s-77.imp"
WA1 = 0;
#line 6968 "regression-compile-tmp/nrimp10s-77.imp"
WA2 = 0;
#line 6968 "regression-compile-tmp/nrimp10s-77.imp"
WA3 = 0;
                                                                //   6969           %IF C1_CMP2=0 %AND 7<=FCOMP(C1_CMP1)<=8 %AND A(P2+3)=4 %AND A(P2+4)=2 %AND A(P2+5)=16_35 %AND A(P2+10)=0 %AND A(P2+11)=2 %THEN %START
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP2) != (0))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if ((((7) > ((FCOMP-1)[C1->CMP1]))) || ((((FCOMP-1)[C1->CMP1]) > (8)))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (3))]) != (4))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (4))]) != (2))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (5))]) != (53))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (10))]) != (0))) goto L_06d3;
#line 6969 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (11))]) != (2))) goto L_06d3;
                                                                //   6970              CSTREXP(0,DR)
#line 6970 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(0, 1);
                                                                //   6971              MASK=FCOMP(C1_CMP1+14)
#line 6971 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[(((int)(C1->CMP1)) + (14))];
                                                                //   6972              %IF C1_REV!!C1_TF=1 %THEN MASK=REVERSE(MASK)
#line 6972 "regression-compile-tmp/nrimp10s-77.imp"
if (((((C1->REV) ^ (C1->TF))) != (1))) goto L_06d4;
#line 6972 "regression-compile-tmp/nrimp10s-77.imp"
MASK = REVERSE(MASK);
#line 6972 "regression-compile-tmp/nrimp10s-77.imp"
L_06d4:;
                                                                //   6973              JUMP(MASK,FEXIT,B'11')
#line 6973 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(MASK, FEXIT, 3);
                                                                //   6974              %RESULT=0
#line 6974 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6975           %FINISH
#line 6975 "regression-compile-tmp/nrimp10s-77.imp"
L_06d3:;
                                                                //   6976           CSTREXP(16,ACCR);            ! DO NOT FREE WK-AREA
#line 6976 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(16, 0);
                                                                //   6977           WA1=VALUE;                   ! SAVE ADDRESS OF WK-AREA
#line 6977 "regression-compile-tmp/nrimp10s-77.imp"
WA1 = VALUE;
                                                                //   6978           CMP=C1_CMP1
#line 6978 "regression-compile-tmp/nrimp10s-77.imp"
CMP = C1->CMP1;
                                                                //   6979           P=P2
#line 6979 "regression-compile-tmp/nrimp10s-77.imp"
P = P2;
                                                                //   6980  !
                                                                //   6981           %IF C1_CMP2#0 %THEN %START;  ! D-SIDED DEAL WITH MIDDLE
#line 6981 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP2) == (0))) goto L_06d5;
                                                                //   6982              SCOMP(1,1,IEXIT,WA2)
#line 6982 "regression-compile-tmp/nrimp10s-77.imp"
SCOMP(1, 1, IEXIT, &WA2);
                                                                //   6983              P=P+2; CMP=C1_CMP2
#line 6983 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 6983 "regression-compile-tmp/nrimp10s-77.imp"
CMP = C1->CMP2;
                                                                //   6984              %IF WA1#0 %THEN RETURN WSP(WA1,256) %AND WA1=0
#line 6984 "regression-compile-tmp/nrimp10s-77.imp"
if (((WA1) == (0))) goto L_06d6;
#line 6984 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(WA1, 256);
#line 6984 "regression-compile-tmp/nrimp10s-77.imp"
WA1 = 0;
#line 6984 "regression-compile-tmp/nrimp10s-77.imp"
L_06d6:;
                                                                //   6985           %FINISH
#line 6985 "regression-compile-tmp/nrimp10s-77.imp"
L_06d5:;
                                                                //   6986  !
                                                                //   6987           SCOMP(0,C1_REV!!C1_TF,FEXIT,WA3)
#line 6987 "regression-compile-tmp/nrimp10s-77.imp"
SCOMP(0, ((C1->REV) ^ (C1->TF)), FEXIT, &WA3);
                                                                //   6988           %CYCLE CMP=ADDR(WA1),4,ADDR(WA3)
#line 6988 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = _imp_ADDR(&WA1); _increment = 4; _final = _imp_ADDR(&WA3); CMP = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle CMP = _imp_ADDR(&WA1), 4, _imp_ADDR(&WA3)");
CMP -= _increment; _control -= _increment;
L_06d7:;
if (CMP == _final) goto L_06d8;
CMP += _increment; _control += _increment;
if (CMP != _control) _imp_signal(4,2,0,"Corrupt control variable CMP"); /* FOR loop control variable corrupted */
}
                                                                //   6989              %IF INTEGER(CMP)#0 %THEN RETURN WSP(INTEGER(CMP),256)
#line 6989 "regression-compile-tmp/nrimp10s-77.imp"
if (((*_imp_INTEGER(CMP)) == (0))) goto L_06da;
#line 6989 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(*_imp_INTEGER(CMP), 256);
#line 6989 "regression-compile-tmp/nrimp10s-77.imp"
L_06da:;
                                                                //   6990           %REPEAT
#line 6990 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06d7;
#line 6990 "regression-compile-tmp/nrimp10s-77.imp"
L_06d8:;
                                                                //   6991           %RESULT=0
#line 6991 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6992  ADRCOMP:                                ! ADRESS COMPARISONS
#line 6992 "regression-compile-tmp/nrimp10s-77.imp"
U_1039:;
                                                                //   6993        ADCOMP(C1_REV!!C1_TF)
#line 6993 "regression-compile-tmp/nrimp10s-77.imp"
ADCOMP(((C1->REV) ^ (C1->TF)));
                                                                //   6994        JUMP(MASK,FEXIT,B'11')
#line 6994 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(MASK, FEXIT, 3);
                                                                //   6995        %RESULT=0
#line 6995 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   6996  %ROUTINE ADCOMP(%INTEGER TF)
#line 6996 "regression-compile-tmp/nrimp10s-77.imp"
void ADCOMP( int TF )
#line 6996 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   6997  !***********************************************************************
                                                                //   6998  !*    COMPILES AN == OR ADDRESS COMPARISON WHICH CAN NOT BE            *
                                                                //   6999  !*    DOUBLESIDED. BETTER CODE COULD BE GENERATED FOR THE              *
                                                                //   7000  !*    MOST COMMON CASE IE POINTERNAME==VARIABLE                        *
                                                                //   7001  !************************************************************************
                                                                //   7002  %INTEGER TYPEP,PRECP,LHNAME,RHNAME,FNAME
#line 7002 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 7002 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 7002 "regression-compile-tmp/nrimp10s-77.imp"
int LHNAME;
#line 7002 "regression-compile-tmp/nrimp10s-77.imp"
int RHNAME;
#line 7002 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
                                                                //   7003  %RECORD(RD) R{(RD)
#line 7003 "regression-compile-tmp/nrimp10s-77.imp"
 RD R;
                                                                //   7004        LHNAME=A(P1+5)<<8!A(P1+6)
#line 7004 "regression-compile-tmp/nrimp10s-77.imp"
LHNAME = ((((A[(((int)(P1)) + (5))]) << (8))) | (A[(((int)(P1)) + (6))]));
                                                                //   7005        FNAME=RHNAME
#line 7005 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = RHNAME;
                                                                //   7006        RHNAME=A(P2+5)<<8!A(P2+6)
#line 7006 "regression-compile-tmp/nrimp10s-77.imp"
RHNAME = ((((A[(((int)(P2)) + (5))]) << (8))) | (A[(((int)(P2)) + (6))]));
                                                                //   7007        ->FLT %UNLESS A(P1+3)=4 %AND A(P1+4)=1
#line 7007 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P1)) + (3))]) != (4))) goto L_06d9;
#line 7007 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P1)) + (4))]) == (1))) goto L_06db;
#line 7007 "regression-compile-tmp/nrimp10s-77.imp"
L_06d9:;
#line 7007 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104c;
#line 7007 "regression-compile-tmp/nrimp10s-77.imp"
L_06db:;
                                                                //   7008        P=P1+5; CNAME(4,ACCR)
#line 7008 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P1)) + (5));
#line 7008 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, 0);
                                                                //   7009        ->FLT %UNLESS A(P)=2;             ! NO REST OF EXPR
#line 7009 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_06dc;
#line 7009 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104c;
#line 7009 "regression-compile-tmp/nrimp10s-77.imp"
L_06dc:;
                                                                //   7010        TYPEP=TYPE; PRECP=PREC
#line 7010 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 7010 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
                                                                //   7011        REGISTER(ACCR)=1
#line 7011 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   7012        OLINK(ACCR)=ADDR(R)
#line 7012 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   7013        R_PTYPE=1; R_XB=ACCR<<4
#line 7013 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 1;
#line 7013 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = ((0) << (4));
                                                                //   7014        R_FLAG=9
#line 7014 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
                                                                //   7015  !
                                                                //   7016        FNAME=LHNAME
#line 7016 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = LHNAME;
                                                                //   7017        ->FLT %UNLESS A(P2+3)=4 %AND A(P2+4)=1
#line 7017 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (3))]) != (4))) goto L_06dd;
#line 7017 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P2)) + (4))]) == (1))) goto L_06de;
#line 7017 "regression-compile-tmp/nrimp10s-77.imp"
L_06dd:;
#line 7017 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104c;
#line 7017 "regression-compile-tmp/nrimp10s-77.imp"
L_06de:;
                                                                //   7018        P=P2+5; CNAME(4,ACCR)
#line 7018 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P2)) + (5));
#line 7018 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, 0);
                                                                //   7019        ->FLT %UNLESS A(P)=2;              ! NO REST OF EXPR
#line 7019 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_06df;
#line 7019 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104c;
#line 7019 "regression-compile-tmp/nrimp10s-77.imp"
L_06df:;
                                                                //   7020        FAULT2(83,LHNAME,RHNAME) %UNLESS TYPEP=TYPE %AND PRECP=PREC
#line 7020 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (TYPE))) goto L_06e0;
#line 7020 "regression-compile-tmp/nrimp10s-77.imp"
if (((PRECP) == (PREC))) goto L_06e1;
#line 7020 "regression-compile-tmp/nrimp10s-77.imp"
L_06e0:;
#line 7020 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(83, LHNAME, RHNAME);
#line 7020 "regression-compile-tmp/nrimp10s-77.imp"
L_06e1:;
                                                                //   7021        PF1(ICP,0,TOS,0)
#line 7021 "regression-compile-tmp/nrimp10s-77.imp"
PF1(230, 0, 6, 0);
                                                                //   7022        %IF C1_CMP1=10 %THEN MASK=7 %ELSE MASK=8
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
if (((C1->CMP1) != (10))) goto L_06e2;
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 7;
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06e3;
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
L_06e2:;
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 8;
#line 7022 "regression-compile-tmp/nrimp10s-77.imp"
L_06e3:;
                                                                //   7023        %IF TF=1 %THEN MASK=REVERSE(MASK)
#line 7023 "regression-compile-tmp/nrimp10s-77.imp"
if (((TF) != (1))) goto L_06e4;
#line 7023 "regression-compile-tmp/nrimp10s-77.imp"
MASK = REVERSE(MASK);
#line 7023 "regression-compile-tmp/nrimp10s-77.imp"
L_06e4:;
                                                                //   7024        %RETURN
#line 7024 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7025  FLT:  REGISTER(ACCR)=0
#line 7025 "regression-compile-tmp/nrimp10s-77.imp"
U_104c:;
#line 7025 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   7026        FAULT2(80,0,FNAME)
#line 7026 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(80, 0, FNAME);
                                                                //   7027        MASK=7
#line 7027 "regression-compile-tmp/nrimp10s-77.imp"
MASK = 7;
                                                                //   7028  %END
#line 7028 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ADCOMP at level 7
                                                                //   7029  %ROUTINE ACOMP(%INTEGER TF,DS)
#line 7029 "regression-compile-tmp/nrimp10s-77.imp"
void ACOMP( int TF, int DS )
#line 7029 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7030  !***********************************************************************
                                                                //   7031  !*       TYPE & PREC DEFINE THE EXPRSN IN REVERSE POLISH IN HEAD1      *
                                                                //   7032  !*       THIS ROUTINE CONVERTS THE NEXT EXPRSN TO REVERSE POLISH AND   *
                                                                //   7033  !*       ADDS OPERATORS FOR TYPE CHANGING(IF REQ) CMPRSN AND JUMP      *
                                                                //   7034  !***********************************************************************
                                                                //   7035  %INTEGER PRECP,TYPEP,REG
#line 7035 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 7035 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 7035 "regression-compile-tmp/nrimp10s-77.imp"
int REG;
                                                                //   7036           PRECP=PTYPE>>4&15; TYPEP=TYPE
#line 7036 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = (((int)((((unsigned int)(PTYPE)) >> (4)))) & (15));
#line 7036 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
                                                                //   7037  !
                                                                //   7038  ! ADD OPERATOR AT BOTTOM. EITHER COMPARE(31) OR DS COMPARE(32)
                                                                //   7039  !
                                                                //   7040           PUSH(HEAD2,31+DS,CMP,0)
#line 7040 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD2, (((int)(31)) + (DS)), CMP, 0);
                                                                //   7041           BOT2=HEAD2
#line 7041 "regression-compile-tmp/nrimp10s-77.imp"
BOT2 = HEAD2;
                                                                //   7042           NOPS=(NOPS+1)!1<<31;           ! FLAG COMPARE 
#line 7042 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = (((((int)(NOPS)) + (1))) | (((1) << (31))));
                                                                //   7043  !
                                                                //   7044  ! CONVERT NEXT EXPRSN TO REVERSE POLISH AND TO THE SAME TYPE AS THE
                                                                //   7045  ! FIRST IF POSSIBLE. MODE=0 INTEGER IF POSSIBLE,=2 REAL, =3 LONGREAL
                                                                //   7046  !
                                                                //   7047           TORP(HEAD2,BOT2,NOPS)
#line 7047 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&HEAD2, &BOT2, &NOPS);
                                                                //   7048           %IF TYPEP>TYPE %THEN TYPE=TYPEP
#line 7048 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) <= (TYPE))) goto L_06e5;
#line 7048 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = TYPEP;
#line 7048 "regression-compile-tmp/nrimp10s-77.imp"
L_06e5:;
                                                                //   7049  !         CONCAT(HEAD1,HEAD2)
                                                                //   7050           ASLIST(BOT1)_LINK=HEAD2
#line 7050 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = HEAD2;
                                                                //   7051           BOT1=BOT2; BOT2=0; HEAD2=0
#line 7051 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = BOT2;
#line 7051 "regression-compile-tmp/nrimp10s-77.imp"
BOT2 = 0;
#line 7051 "regression-compile-tmp/nrimp10s-77.imp"
HEAD2 = 0;
                                                                //   7052           EXPOP(HEAD1,-1,NOPS,256+16*PRECP+TYPE);      ! PLANT THE CODE
#line 7052 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(HEAD1, (-1), NOPS, (((int)(((256) + ((int)((((int)(16)) * (PRECP))))))) + (TYPE)));
                                                                //   7053  !         CLEAR LIST(HEAD1)
                                                                //   7054           ASLIST(BOT1)_LINK=ASL
#line 7054 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = ASL;
                                                                //   7055           ASL=HEAD1
#line 7055 "regression-compile-tmp/nrimp10s-77.imp"
ASL = HEAD1;
                                                                //   7056           HEAD1=0
#line 7056 "regression-compile-tmp/nrimp10s-77.imp"
HEAD1 = 0;
                                                                //   7057           %IF DS#0 %START
#line 7057 "regression-compile-tmp/nrimp10s-77.imp"
if (((DS) == (0))) goto L_06e6;
                                                                //   7058              PUSH(HEAD1,INTEGER(ADDR(EXPOPND)),EXPOPND_D,EXPOPND_XTRA)
#line 7058 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD1, *_imp_INTEGER(_imp_ADDR(&EXPOPND)), EXPOPND.D, EXPOPND.XTRA);
                                                                //   7059              BOT1=HEAD1
#line 7059 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = HEAD1;
                                                                //   7060              %IF EXPOPND_FLAG=9 %START
#line 7060 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) != (9))) goto L_06e7;
                                                                //   7061                 REG=EXPOPND_D>>4
#line 7061 "regression-compile-tmp/nrimp10s-77.imp"
REG = (int)((((unsigned int)(EXPOPND.D)) >> (4)));
                                                                //   7062                 REGISTER(REG)=1
#line 7062 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 1;
                                                                //   7063                 OLINK(REG)=ADDR(ASLIST(HEAD1))
#line 7063 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[REG] = _imp_ADDR(&ASLIST[HEAD1]);
                                                                //   7064              %FINISH
#line 7064 "regression-compile-tmp/nrimp10s-77.imp"
L_06e7:;
                                                                //   7065           %FINISH
#line 7065 "regression-compile-tmp/nrimp10s-77.imp"
L_06e6:;
                                                                //   7066           %IF TF=1 %THEN MASK=REVERSE(MASK)
#line 7066 "regression-compile-tmp/nrimp10s-77.imp"
if (((TF) != (1))) goto L_06e8;
#line 7066 "regression-compile-tmp/nrimp10s-77.imp"
MASK = REVERSE(MASK);
#line 7066 "regression-compile-tmp/nrimp10s-77.imp"
L_06e8:;
                                                                //   7067  %END
#line 7067 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ACOMP at level 7
                                                                //   7068           %ROUTINE SCOMP(%INTEGER DS,TF,LAB,%INTEGERNAME WA)
#line 7068 "regression-compile-tmp/nrimp10s-77.imp"
void SCOMP( int DS, int TF, int LAB, int /*name*/*WA )
#line 7068 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7069  !***********************************************************************
                                                                //   7070  !*       1ST STRING IS DEFINED BY (ACCR)                               *
                                                                //   7071  !*       THIS ROUTINE EVALUATES THE NEXT STRING EXPRS AND PERFORMS     *
                                                                //   7072  !*       THE COMPARISON & BRANCH.                                      *
                                                                //   7073  !*       DS=0 UNLESS THIS COMPARISON IS THE FIRST HALF OF A DBLE-SIDED *
                                                                //   7074  !***********************************************************************
                                                                //   7075  %INTEGER MASK
#line 7075 "regression-compile-tmp/nrimp10s-77.imp"
int MASK;
                                                                //   7076  %RECORD(RD) R{(RD)
#line 7076 "regression-compile-tmp/nrimp10s-77.imp"
 RD R;
                                                                //   7077  !
                                                                //   7078           REGISTER(ACCR)=1
#line 7078 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
                                                                //   7079           OLINK(ACCR)=ADDR(R)
#line 7079 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   7080           R_PTYPE=1; R_XB=ACCR<<4; R_FLAG=9
#line 7080 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 1;
#line 7080 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = ((0) << (4));
#line 7080 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
                                                                //   7081           MASK=FCOMP(CMP)
#line 7081 "regression-compile-tmp/nrimp10s-77.imp"
MASK = (FCOMP-1)[CMP];
                                                                //   7082           %IF TF=1 %THEN MASK=REVERSE(MASK); ! REVERSE MASK TO JMP IF FALS
#line 7082 "regression-compile-tmp/nrimp10s-77.imp"
if (((TF) != (1))) goto L_06e9;
#line 7082 "regression-compile-tmp/nrimp10s-77.imp"
MASK = REVERSE(MASK);
#line 7082 "regression-compile-tmp/nrimp10s-77.imp"
L_06e9:;
                                                                //   7083  !
                                                                //   7084           CSTREXP(16,DR);                ! SAVE WK-AREA
#line 7084 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(16, 1);
                                                                //   7085           WA=VALUE
#line 7085 "regression-compile-tmp/nrimp10s-77.imp"
*WA = VALUE;
                                                                //   7086           REGISTER(ACCR)=0
#line 7086 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   7087           %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0)
#line 7087 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_06ea;
#line 7087 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
#line 7087 "regression-compile-tmp/nrimp10s-77.imp"
L_06ea:;
                                                                //   7088           %IF DS#0 %THEN PF1(STD,0,TOS,0)
#line 7088 "regression-compile-tmp/nrimp10s-77.imp"
if (((DS) == (0))) goto L_06eb;
#line 7088 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
#line 7088 "regression-compile-tmp/nrimp10s-77.imp"
L_06eb:;
                                                                //   7089           PSF1(INCA,0,1); PSF1(IAD,0,1)
#line 7089 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, 1);
#line 7089 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(224, 0, 1);
                                                                //   7090           PF2(CPS,1,1,0,0,0)
#line 7090 "regression-compile-tmp/nrimp10s-77.imp"
PF2(164, 1, 1, 0, 0, 0);
                                                                //   7091           GRUSE(ACCR)=0; GRUSE(DR)=0
#line 7091 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 7091 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   7092  !
                                                                //   7093  ! IF CC=8 MUST CHECK THAT ACC STRING IS EXHAUSTED OTHERWISE CHANGE CC
                                                                //   7094  ! TO GIVE RESULT ACC>DR. THIS IS BEST FIDDLED USING ISH.
                                                                //   7095  ! CAN SKIP THIS CHECK IF MASK IS SUCH THAT 2**3 &2**2 BITS SET THE SAME
                                                                //   7096  !
                                                                //   7097           %IF 0#MASK&16_C#16_C %THEN %START
#line 7097 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) == (((MASK) & (12))))) || (((((MASK) & (12))) == (12)))) goto L_06ec;
                                                                //   7098              PF3(JCC,7,0,4)
#line 7098 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 7, 0, 4);
                                                                //   7099              PSF1(USH,0,-32)
#line 7099 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, (-32));
                                                                //   7100              PSF1(ISH,0,-24)
#line 7100 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(232, 0, (-24));
                                                                //   7101           %FINISH
#line 7101 "regression-compile-tmp/nrimp10s-77.imp"
L_06ec:;
                                                                //   7102           %IF DS#0 %THEN PF1(LSD,0,TOS,0);    ! DOES NOT CHANGE CC
#line 7102 "regression-compile-tmp/nrimp10s-77.imp"
if (((DS) == (0))) goto L_06ed;
#line 7102 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
#line 7102 "regression-compile-tmp/nrimp10s-77.imp"
L_06ed:;
                                                                //   7103           JUMP(MASK,LAB,B'11')
#line 7103 "regression-compile-tmp/nrimp10s-77.imp"
JUMP(MASK, LAB, 3);
                                                                //   7104           %END
#line 7104 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SCOMP at level 7
                                                                //   7105           %END
#line 7105 "regression-compile-tmp/nrimp10s-77.imp"
/*_imp_signal(8, 4, 0, "");*/
fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CCOMP at level 6
                                                                //   7106  %ROUTINE JUMP(%INTEGER MASK,LAB,FLAGS)
#line 7106 "regression-compile-tmp/nrimp10s-77.imp"
void JUMP( int MASK, int LAB, int FLAGS )
#line 7106 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7107  !***********************************************************************
                                                                //   7108  !*    CALLS ENTER JUMP WHILE MAINTAINING BITMASK                        *
                                                                //   7109  !***********************************************************************
                                                                //   7110        %IF MASK=0 %THEN LAB UNUSED(LAB) %AND %RETURN
#line 7110 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (0))) goto L_06ee;
#line 7110 "regression-compile-tmp/nrimp10s-77.imp"
LABUNUSED(LAB);
#line 7110 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 7110 "regression-compile-tmp/nrimp10s-77.imp"
L_06ee:;
                                                                //   7111        ENTER JUMP(MASK,LAB,FLAGS)
#line 7111 "regression-compile-tmp/nrimp10s-77.imp"
ENTERJUMP(MASK, LAB, FLAGS);
                                                                //   7112        %IF LAB=FARLAB %THEN BITMASK=BITMASK!1 %ELSE BITMASK=BITMASK!2
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) != (FARLAB))) goto L_06ef;
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
BITMASK = ((BITMASK) | (1));
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06f0;
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
L_06ef:;
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
BITMASK = ((BITMASK) | (2));
#line 7112 "regression-compile-tmp/nrimp10s-77.imp"
L_06f0:;
                                                                //   7113  %END
#line 7113 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block JUMP at level 6
                                                                //   7114  %END;                                  ! OF CCOND
#line 7114 "regression-compile-tmp/nrimp10s-77.imp"
/*_imp_signal(8, 4, 0, "");*/
fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CCOND at level 5
                                                                //   7115           %INTEGERFN REVERSE(%INTEGER MASK)
#line 7115 "regression-compile-tmp/nrimp10s-77.imp"
int REVERSE( int MASK )
#line 7115 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7116  !***********************************************************************
                                                                //   7117  !*       REVERSE THE MASK FOR A JCC(MASK<=15),JAT(>15) OR JAF(>31)     *
                                                                //   7118  !***********************************************************************
                                                                //   7119           %IF MASK>15 %THEN MASK=MASK!!16_30 %ELSE MASK=MASK!!15
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) <= (15))) goto L_06f1;
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
MASK = ((MASK) ^ (48));
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06f2;
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
L_06f1:;
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
MASK = ((MASK) ^ (15));
#line 7119 "regression-compile-tmp/nrimp10s-77.imp"
L_06f2:;
                                                                //   7120           %RESULT=MASK
#line 7120 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return MASK;
                                                                //   7121  %END
#line 7121 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block REVERSE at level 5
                                                                //   7122  %INTEGERFN ENTER LAB(%INTEGER LAB,FLAGS)
#line 7122 "regression-compile-tmp/nrimp10s-77.imp"
int ENTERLAB( int LAB, int FLAGS )
#line 7122 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7123  !***********************************************************************
                                                                //   7124  !*       ENTER A NEW LABEL ON THE LABEL LIST FOR THE CURRENT LEVEL     *
                                                                //   7125  !*       2**0  OF FLAGS  = 1  CONDITIONAL ENTRY                        *
                                                                //   7126  !*       2**1  OF FLAGS  = 1  UPDATE ENVIRONMENT                       *
                                                                //   7127  !*       2**2  OF FLAGS  = 1  REPLACE ENV     =0  MERGE ENV            *
                                                                //   7128  !*       THE LABEL LIST                                                *
                                                                //   7129  !*       S1 =   USE BITS<<8 ! LABEL ADDR                               *
                                                                //   7130  !*       S2 =   ENVIRONMENT LIST << 16 ! UNFILLED JUMPS LIST           *
                                                                //   7131  !*       S3 = LAB NO - RESET TO FFFF WHEN USED FOR INTERNAL LABELS     *
                                                                //   7132  !*       RESULT = 1 LABEL ENTERED                                      *
                                                                //   7133  !*       RESULT = 0 CONDITIONAL LABEL NOT REQUIRED                     *
                                                                //   7134  !***********************************************************************
                                                                //   7135  %INTEGER CELL,AT,ENVHEAD,JUMPHEAD,INSTRN,OLDCELL,WORK
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int CELL;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int ENVHEAD;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int JUMPHEAD;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int INSTRN;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int OLDCELL;
#line 7135 "regression-compile-tmp/nrimp10s-77.imp"
int WORK;
                                                                //   7136  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 7136 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   7137  %INTEGERNAME LHEAD
#line 7137 "regression-compile-tmp/nrimp10s-77.imp"
int /*name*/*LHEAD;
                                                                //   7138           CELL=LABEL(LEVEL); OLDCELL=0
#line 7138 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LABEL[LEVEL];
#line 7138 "regression-compile-tmp/nrimp10s-77.imp"
OLDCELL = 0;
                                                                //   7139           %WHILE CELL>0 %CYCLE
#line 7139 "regression-compile-tmp/nrimp10s-77.imp"
L_06f3:;
#line 7139 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) <= (0))) goto L_06f4;
                                                                //   7140              LCELL==ASLIST(CELL)
#line 7140 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //   7141              %EXIT %IF LCELL_S3=LAB
#line 7141 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S3) != (LAB))) goto L_06f6;
#line 7141 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06f4;
#line 7141 "regression-compile-tmp/nrimp10s-77.imp"
L_06f6:;
                                                                //   7142              OLDCELL=CELL; CELL=LCELL_LINK
#line 7142 "regression-compile-tmp/nrimp10s-77.imp"
OLDCELL = CELL;
#line 7142 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LCELL->LINK;
                                                                //   7143           %REPEAT
#line 7143 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06f3;
#line 7143 "regression-compile-tmp/nrimp10s-77.imp"
L_06f4:;
                                                                //   7144  !
                                                                //   7145           %IF CELL<=0 %THEN %START;      ! LABEL NOT KNOWN
#line 7145 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) > (0))) goto L_06f7;
                                                                //   7146              %IF FLAGS&1=0 %THEN %START;! UNCONDITIONAL ENTRY
#line 7146 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (1))) != (0))) goto L_06f8;
                                                                //   7147                 PUSH(LABEL(LEVEL),CA,0,LAB)
#line 7147 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&LABEL[LEVEL], CA, 0, LAB);
                                                                //   7148                 FORGET(-1)
#line 7148 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   7149                 %RESULT=1
#line 7149 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   7150              %FINISH
#line 7150 "regression-compile-tmp/nrimp10s-77.imp"
L_06f8:;
                                                                //   7151              %RESULT=0
#line 7151 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   7152           %FINISH
#line 7152 "regression-compile-tmp/nrimp10s-77.imp"
L_06f7:;
                                                                //   7153  !
                                                                //   7154  ! LABEL HAS BEEN REFERENCED - FILL IN ITS ADDRESS
                                                                //   7155  !
                                                                //   7156           %IF LCELL_S1&16_FFFFFF# 0 %THEN %START
#line 7156 "regression-compile-tmp/nrimp10s-77.imp"
if (((((LCELL->S1) & (16777215))) == (0))) goto L_06f9;
                                                                //   7157              FAULT(2,LAB);             ! LABEL SET TWICE
#line 7157 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(2, LAB);
                                                                //   7158           %FINISH %ELSE %START
#line 7158 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06fa;
#line 7158 "regression-compile-tmp/nrimp10s-77.imp"
L_06f9:;
                                                                //   7159              LCELL_S1=16_1000000!CA
#line 7159 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = ((16777216) | (CA));
                                                                //   7160           %FINISH
#line 7160 "regression-compile-tmp/nrimp10s-77.imp"
L_06fa:;
                                                                //   7161  !
                                                                //   7162  ! SORT OUT ENVIRONMENTS  -  AS DIRECTED BY FLAGS
                                                                //   7163  !
                                                                //   7164           JUMPHEAD=LCELL_S2
#line 7164 "regression-compile-tmp/nrimp10s-77.imp"
JUMPHEAD = LCELL->S2;
                                                                //   7165           ENVHEAD=JUMPHEAD>>16
#line 7165 "regression-compile-tmp/nrimp10s-77.imp"
ENVHEAD = (int)((((unsigned int)(JUMPHEAD)) >> (16)));
                                                                //   7166           JUMPHEAD=JUMPHEAD&16_FFFF
#line 7166 "regression-compile-tmp/nrimp10s-77.imp"
JUMPHEAD = ((JUMPHEAD) & (65535));
                                                                //   7167           %IF FLAGS&2=0 %THEN %START
#line 7167 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (2))) != (0))) goto L_06fb;
                                                                //   7168              FORGET(-1)
#line 7168 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   7169              CLEAR LIST(ENVHEAD)
#line 7169 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&ENVHEAD);
                                                                //   7170           %FINISH %ELSE %START
#line 7170 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06fc;
#line 7170 "regression-compile-tmp/nrimp10s-77.imp"
L_06fb:;
                                                                //   7171              REMEMBER %IF FLAGS&4=0
#line 7171 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (4))) != (0))) goto L_06fd;
#line 7171 "regression-compile-tmp/nrimp10s-77.imp"
REMEMBER();
#line 7171 "regression-compile-tmp/nrimp10s-77.imp"
L_06fd:;
                                                                //   7172              RESTORE (ENVHEAD)
#line 7172 "regression-compile-tmp/nrimp10s-77.imp"
RESTORE(ENVHEAD);
                                                                //   7173              ENVHEAD=0
#line 7173 "regression-compile-tmp/nrimp10s-77.imp"
ENVHEAD = 0;
                                                                //   7174              MERGE INFO %IF FLAGS&4=0
#line 7174 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (4))) != (0))) goto L_06fe;
#line 7174 "regression-compile-tmp/nrimp10s-77.imp"
MERGEINFO();
#line 7174 "regression-compile-tmp/nrimp10s-77.imp"
L_06fe:;
                                                                //   7175           %FINISH
#line 7175 "regression-compile-tmp/nrimp10s-77.imp"
L_06fc:;
                                                                //   7176  !
                                                                //   7177  ! NOW FILL JUMPS TO THIS LABEL - JUMP LIST FORMAT GIVEN IN 'ENTER JMP'
                                                                //   7178  !
                                                                //   7179           %WHILE  JUMPHEAD#0  %CYCLE
#line 7179 "regression-compile-tmp/nrimp10s-77.imp"
L_06ff:;
#line 7179 "regression-compile-tmp/nrimp10s-77.imp"
if (((JUMPHEAD) == (0))) goto L_0700;
                                                                //   7180              POP(JUMPHEAD,AT,INSTRN,WORK)
#line 7180 "regression-compile-tmp/nrimp10s-77.imp"
POP(&JUMPHEAD, &AT, &INSTRN, &WORK);
                                                                //   7181              PLUG(1,AT,INSTRN!(CA-AT)//2,4)
#line 7181 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(1, AT, ((INSTRN) | (((long)((long)(((((int)(CA)) - (AT)))) / (long)((int)(2)))))), 4);
                                                                //   7182           %REPEAT
#line 7182 "regression-compile-tmp/nrimp10s-77.imp"
goto L_06ff;
#line 7182 "regression-compile-tmp/nrimp10s-77.imp"
L_0700:;
                                                                //   7183           LCELL_S2=0
#line 7183 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = 0;
                                                                //   7184           %IF LAB> MAX ULAB  %THEN %START
#line 7184 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) <= (MAXULAB))) goto L_0702;
                                                                //   7185              %IF OLDCELL=0 %THEN LHEAD==LABEL(LEVEL)  %ELSE LHEAD==ASLIST(OLDCELL)_LINK
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
if (((OLDCELL) != (0))) goto L_0703;
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
LHEAD = &LABEL[LEVEL];
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0704;
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
L_0703:;
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
LHEAD = &ASLIST[OLDCELL].LINK;
#line 7185 "regression-compile-tmp/nrimp10s-77.imp"
L_0704:;
                                                                //   7186              POP(LHEAD,AT,AT,AT)
#line 7186 "regression-compile-tmp/nrimp10s-77.imp"
POP(LHEAD, &AT, &AT, &AT);
                                                                //   7187           %FINISH
#line 7187 "regression-compile-tmp/nrimp10s-77.imp"
L_0702:;
                                                                //   7188           %RESULT=1
#line 7188 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   7189  %END
#line 7189 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block ENTERLAB at level 5
                                                                //   7190  %ROUTINE ENTER JUMP(%INTEGER MASK,LAB,FLAGS)
#line 7190 "regression-compile-tmp/nrimp10s-77.imp"
void ENTERJUMP( int MASK, int LAB, int FLAGS )
#line 7190 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7191  !***********************************************************************
                                                                //   7192  !*       IF LAB HAS BEEN ENCOUNTERED THEN PLANT A JCC OTHERWISE ENTER  *
                                                                //   7193  !*       THE LABEL IN THE LABEL LIST AND ATTACH THE JUMP TO IT SO IT   *
                                                                //   7194  !*       CAN BE PLANTED WHEN THE LABEL IS FOUND                        *
                                                                //   7195  !*       THE LABEL LIST IS DESCRIBED UNDER 'ENTER LAB'                 *
                                                                //   7196  !*       THE JUMP SUB-LIST HAS THE FORM                                *
                                                                //   7197  !*       S1= ADDR OF JUMP                                              *
                                                                //   7198  !*       S2=INSTRN                                                     *
                                                                //   7199  !*       S3=LINE NO OF JUMP FOR DIAGNOSTICS                            *
                                                                //   7200  !*                                                                     *
                                                                //   7201  !*       FLAGS BITS SIGNIFY AS FOLLOWS                                 *
                                                                //   7202  !*       2**0 =1  JUMP IS KNOWN TO BE SHORT                            *
                                                                //   7203  !*       2**1 =1  ENVIRONMENT MERGEING REQUIRED                        *
                                                                //   7204  !***********************************************************************
                                                                //   7205  %INTEGER AT,CELL,J,JJ,LABADDR,I,ENVHEAD,OLDENV,JCODE,INSTRN
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int CELL;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int LABADDR;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int ENVHEAD;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int OLDENV;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int JCODE;
#line 7205 "regression-compile-tmp/nrimp10s-77.imp"
int INSTRN;
                                                                //   7206  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 7206 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   7207           ENVHEAD=0; AT=CA
#line 7207 "regression-compile-tmp/nrimp10s-77.imp"
ENVHEAD = 0;
#line 7207 "regression-compile-tmp/nrimp10s-77.imp"
AT = CA;
                                                                //   7208           %IF LAB<MAX ULAB %THEN FLAGS=FLAGS&16_FD;! NO MERGE
#line 7208 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) >= (MAXULAB))) goto L_0705;
#line 7208 "regression-compile-tmp/nrimp10s-77.imp"
FLAGS = ((FLAGS) & (253));
#line 7208 "regression-compile-tmp/nrimp10s-77.imp"
L_0705:;
                                                                //   7209           %IF LAB<21000 %THEN FLAGS=FLAGS&16_FE; ! SF OR USER LAB=LONG
#line 7209 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) >= (21000))) goto L_0706;
#line 7209 "regression-compile-tmp/nrimp10s-77.imp"
FLAGS = ((FLAGS) & (254));
#line 7209 "regression-compile-tmp/nrimp10s-77.imp"
L_0706:;
                                                                //   7210           CELL=LABEL(LEVEL)
#line 7210 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LABEL[LEVEL];
                                                                //   7211           %WHILE CELL>0 %CYCLE
#line 7211 "regression-compile-tmp/nrimp10s-77.imp"
L_0707:;
#line 7211 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) <= (0))) goto L_0708;
                                                                //   7212              LCELL==ASLIST(CELL)
#line 7212 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //   7213              %IF LAB=LCELL_S3 %THEN %EXIT
#line 7213 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) != (LCELL->S3))) goto L_070a;
#line 7213 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0708;
#line 7213 "regression-compile-tmp/nrimp10s-77.imp"
L_070a:;
                                                                //   7214              CELL=LCELL_LINK
#line 7214 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LCELL->LINK;
                                                                //   7215           %REPEAT
#line 7215 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0707;
#line 7215 "regression-compile-tmp/nrimp10s-77.imp"
L_0708:;
                                                                //   7216           INSTRN=MASK
#line 7216 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = MASK;
                                                                //   7217           %IF INSTRN>>8=0 %THEN %START
#line 7217 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(INSTRN)) >> (8)))) != (0))) goto L_070b;
                                                                //   7218              JCODE=JCC
#line 7218 "regression-compile-tmp/nrimp10s-77.imp"
JCODE = 2;
                                                                //   7219              %IF MASK>=16 %THEN JCODE=JAT
#line 7219 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) < (16))) goto L_070c;
#line 7219 "regression-compile-tmp/nrimp10s-77.imp"
JCODE = 4;
#line 7219 "regression-compile-tmp/nrimp10s-77.imp"
L_070c:;
                                                                //   7220              %IF MASK>=32 %THEN JCODE=JAF
#line 7220 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) < (32))) goto L_070d;
#line 7220 "regression-compile-tmp/nrimp10s-77.imp"
JCODE = 6;
#line 7220 "regression-compile-tmp/nrimp10s-77.imp"
L_070d:;
                                                                //   7221              INSTRN=JCODE<<24!(MASK&15)<<21
#line 7221 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((((JCODE) << (24))) | (((((MASK) & (15))) << (21))));
                                                                //   7222              %IF MASK=15 %THEN INSTRN=JUNC<<24!3<<23
#line 7222 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (15))) goto L_070e;
#line 7222 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((((26) << (24))) | (((3) << (23))));
#line 7222 "regression-compile-tmp/nrimp10s-77.imp"
L_070e:;
                                                                //   7223           %FINISH
#line 7223 "regression-compile-tmp/nrimp10s-77.imp"
L_070b:;
                                                                //   7224           -> FIRSTREF %IF CELL<=0
#line 7224 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) > (0))) goto L_070f;
#line 7224 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104d;
#line 7224 "regression-compile-tmp/nrimp10s-77.imp"
L_070f:;
                                                                //   7225           LABADDR=LCELL_S1&16_FFFFFF
#line 7225 "regression-compile-tmp/nrimp10s-77.imp"
LABADDR = ((LCELL->S1) & (16777215));
                                                                //   7226           -> NOT YET SET %IF LABADDR=0
#line 7226 "regression-compile-tmp/nrimp10s-77.imp"
if (((LABADDR) != (0))) goto L_0710;
#line 7226 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104e;
#line 7226 "regression-compile-tmp/nrimp10s-77.imp"
L_0710:;
                                                                //   7227           LCELL_S1=LABADDR!16_1000000;! FLAG LABEL AS USED
#line 7227 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = ((LABADDR) | (16777216));
                                                                //   7228           I=(LABADDR-CA)//2
#line 7228 "regression-compile-tmp/nrimp10s-77.imp"
I = (long)((long)(((((int)(LABADDR)) - (CA)))) / (long)((int)(2)));
                                                                //   7229           %IF MASK=15 %THEN PSF1(JUNC,0,I) %ELSE PCONST(INSTRN!(I&16_3FFFF))
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (15))) goto L_0711;
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(26, 0, I);
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0712;
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
L_0711:;
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(((INSTRN) | (((I) & (262143)))));
#line 7229 "regression-compile-tmp/nrimp10s-77.imp"
L_0712:;
                                                                //   7230           %RETURN
#line 7230 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7231  FIRSTREF:                              ! FIRST REFERENCE TO A NEW LABEL
#line 7231 "regression-compile-tmp/nrimp10s-77.imp"
U_104d:;
                                                                //   7232           %IF LAB>MAX ULAB %AND FLAGS&2#0 %THEN GET ENV(ENV HEAD)
#line 7232 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) <= (MAXULAB))) goto L_0713;
#line 7232 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (2))) == (0))) goto L_0713;
#line 7232 "regression-compile-tmp/nrimp10s-77.imp"
GETENV(&ENVHEAD);
#line 7232 "regression-compile-tmp/nrimp10s-77.imp"
L_0713:;
                                                                //   7233           PUSH(LABEL(LEVEL),16_1000000,ENVHEAD<<16,LAB)
#line 7233 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&LABEL[LEVEL], 16777216, ((ENVHEAD) << (16)), LAB);
                                                                //   7234           CELL=LABEL(LEVEL)
#line 7234 "regression-compile-tmp/nrimp10s-77.imp"
CELL = LABEL[LEVEL];
                                                                //   7235           LCELL==ASLIST(CELL)
#line 7235 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //   7236           -> CODE
#line 7236 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
                                                                //   7237  NOT YET SET:                           ! LABEL REFERENCED BEFORE
#line 7237 "regression-compile-tmp/nrimp10s-77.imp"
U_104e:;
                                                                //   7238           %IF LAB>MAX ULAB %AND FLAGS&2#0 %THEN %START
#line 7238 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) <= (MAXULAB))) goto L_0714;
#line 7238 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAGS) & (2))) == (0))) goto L_0714;
                                                                //   7239              I=LCELL_S2
#line 7239 "regression-compile-tmp/nrimp10s-77.imp"
I = LCELL->S2;
                                                                //   7240              OLDENV=I>>16
#line 7240 "regression-compile-tmp/nrimp10s-77.imp"
OLDENV = (int)((((unsigned int)(I)) >> (16)));
                                                                //   7241              REDUCE ENV(OLD ENV)
#line 7241 "regression-compile-tmp/nrimp10s-77.imp"
REDUCEENV(&OLDENV);
                                                                //   7242              LCELL_S2=OLDENV<<16!I&16_FFFF
#line 7242 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = ((((OLDENV) << (16))) | (((I) & (65535))));
                                                                //   7243           %FINISH
#line 7243 "regression-compile-tmp/nrimp10s-77.imp"
L_0714:;
                                                                //   7244  CODE:                                  ! ACTUALLY PLANT THE JUMP
#line 7244 "regression-compile-tmp/nrimp10s-77.imp"
U_104f:;
                                                                //   7245           J=LCELL_S2
#line 7245 "regression-compile-tmp/nrimp10s-77.imp"
J = LCELL->S2;
                                                                //   7246           JJ=J&16_FFFF
#line 7246 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((J) & (65535));
                                                                //   7247           PUSH(JJ,CA,INSTRN,LINE)
#line 7247 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&JJ, CA, INSTRN, LINE);
                                                                //   7248           LCELL_S2=J&16_FFFF0000!JJ
#line 7248 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = ((((J) & ((-65536)))) | (JJ));
                                                                //   7249           PCONST(INSTRN)
#line 7249 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(INSTRN);
                                                                //   7250           %END
#line 7250 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ENTERJUMP at level 5
                                                                //   7251  %ROUTINE REMOVE LAB(%INTEGER LAB)
#line 7251 "regression-compile-tmp/nrimp10s-77.imp"
void REMOVELAB( int LAB )
#line 7251 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7252  !***********************************************************************
                                                                //   7253  !*    REMOVES A ALBEL FROM THE CURRENT LABEL LIST WHEN KNOWN TO        *
                                                                //   7254  !*    BE REDUNDANT. MAINLY USED FOR CYCLE LABELS                       *
                                                                //   7255  !***********************************************************************
                                                                //   7256  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 7256 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   7257  %INTEGERNAME LHEAD
#line 7257 "regression-compile-tmp/nrimp10s-77.imp"
int /*name*/*LHEAD;
                                                                //   7258  %INTEGER CELL,AT
#line 7258 "regression-compile-tmp/nrimp10s-77.imp"
int CELL;
#line 7258 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
                                                                //   7259        LHEAD==LABEL(LEVEL); CELL=LHEAD
#line 7259 "regression-compile-tmp/nrimp10s-77.imp"
LHEAD = &LABEL[LEVEL];
#line 7259 "regression-compile-tmp/nrimp10s-77.imp"
CELL = *LHEAD;
                                                                //   7260        %WHILE CELL>0 %CYCLE
#line 7260 "regression-compile-tmp/nrimp10s-77.imp"
L_0715:;
#line 7260 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) <= (0))) goto L_0716;
                                                                //   7261           LCELL==ASLIST(CELL)
#line 7261 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //   7262           %EXIT %IF LCELL_S3=LAB
#line 7262 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S3) != (LAB))) goto L_0718;
#line 7262 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0716;
#line 7262 "regression-compile-tmp/nrimp10s-77.imp"
L_0718:;
                                                                //   7263           LHEAD==LCELL_LINK
#line 7263 "regression-compile-tmp/nrimp10s-77.imp"
LHEAD = &LCELL->LINK;
                                                                //   7264           CELL=LHEAD
#line 7264 "regression-compile-tmp/nrimp10s-77.imp"
CELL = *LHEAD;
                                                                //   7265        %REPEAT
#line 7265 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0715;
#line 7265 "regression-compile-tmp/nrimp10s-77.imp"
L_0716:;
                                                                //   7266        %IF CELL>0 %THEN POP(LHEAD,AT,AT,AT)
#line 7266 "regression-compile-tmp/nrimp10s-77.imp"
if (((CELL) <= (0))) goto L_0719;
#line 7266 "regression-compile-tmp/nrimp10s-77.imp"
POP(LHEAD, &AT, &AT, &AT);
#line 7266 "regression-compile-tmp/nrimp10s-77.imp"
L_0719:;
                                                                //   7267  %END
#line 7267 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REMOVELAB at level 5
                                                                //   7268           %ROUTINE MERGE INFO
#line 7268 "regression-compile-tmp/nrimp10s-77.imp"
void MERGEINFO( void )
#line 7268 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7269  !***********************************************************************
                                                                //   7270  !*       MERGE THE CURRENT STATUS OF THE REGISTERS WITH THE VALUES     *
                                                                //   7271  !*      AT THE START OF THE CONDITIONAL CLAUSE. THIS PERMITS THE       *
                                                                //   7272  !*       THE COMPILER TO REMEMBER UNCHANGED REGISTERS BUT NOT THOSE    *
                                                                //   7273  !*      WHICH DEPEND ON A PARTICULAR RUN TIME ROUTE BEING TAKEN        *
                                                                //   7274  !***********************************************************************
                                                                //   7275           %INTEGER I
#line 7275 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   7276           %CYCLE I=0,1,7
#line 7276 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_071a:;
if (I == 7) goto L_071b;
I += 1;
                                                                //   7277             GRUSE(I)=0 %UNLESS SGRUSE(I)=GRUSE(I)&255 %AND SGRINF(I)=GRINF1(I)
#line 7277 "regression-compile-tmp/nrimp10s-77.imp"
if (((SGRUSE[I]) != (((GRUSE[I]) & (255))))) goto L_06c0;
#line 7277 "regression-compile-tmp/nrimp10s-77.imp"
if (((SGRINF[I]) == (GRINF1[I]))) goto L_071d;
#line 7277 "regression-compile-tmp/nrimp10s-77.imp"
L_06c0:;
#line 7277 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = 0;
#line 7277 "regression-compile-tmp/nrimp10s-77.imp"
L_071d:;
                                                                //   7278           %REPEAT
#line 7278 "regression-compile-tmp/nrimp10s-77.imp"
goto L_071a;
#line 7278 "regression-compile-tmp/nrimp10s-77.imp"
L_071b:;
                                                                //   7279           %END
#line 7279 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MERGEINFO at level 5
                                                                //   7280           %ROUTINE REMEMBER
#line 7280 "regression-compile-tmp/nrimp10s-77.imp"
void REMEMBER( void )
#line 7280 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7281  %INTEGER I
#line 7281 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //   7282           %CYCLE I=0,1,7
#line 7282 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_071e:;
if (I == 7) goto L_071f;
I += 1;
                                                                //   7283              SGRUSE(I)=GRUSE(I)&255
#line 7283 "regression-compile-tmp/nrimp10s-77.imp"
SGRUSE[I] = ((GRUSE[I]) & (255));
                                                                //   7284              SGRINF(I)=GRINF1(I)
#line 7284 "regression-compile-tmp/nrimp10s-77.imp"
SGRINF[I] = GRINF1[I];
                                                                //   7285           %REPEAT
#line 7285 "regression-compile-tmp/nrimp10s-77.imp"
goto L_071e;
#line 7285 "regression-compile-tmp/nrimp10s-77.imp"
L_071f:;
                                                                //   7286           %END
#line 7286 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REMEMBER at level 5
                                                                //   7287  %ROUTINE CREATE AH(%INTEGER MODE)
#line 7287 "regression-compile-tmp/nrimp10s-77.imp"
void CREATEAH( int MODE )
#line 7287 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7288  !***********************************************************************
                                                                //   7289  !*       CREATE AN ARRAY HEAD IN TEMPORARY SPACE BY MODIFYING THE HEAD *
                                                                //   7290  !*       THE HEAD AT AREA,ACCESS & DISP AS FOLOWS:-                    *
                                                                //   7291  !*       MODE=0 (ARRAY MAPPING) ACC HAS ADDR(1ST ELEMENT)              *
                                                                //   7292  !*       MODE=1 (ARRAYS IN RECORDS) ACC HAS RELOCATION FACTOR          *
                                                                //   7293  !***********************************************************************
                                                                //   7294  %INTEGER WK
#line 7294 "regression-compile-tmp/nrimp10s-77.imp"
int WK;
                                                                //   7295           GET WSP(WK,4)
#line 7295 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&WK, 4);
                                                                //   7296           AREA=AREA CODE
#line 7296 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
                                                                //   7297           %IF MODE=0 %THEN %START
#line 7297 "regression-compile-tmp/nrimp10s-77.imp"
if (((MODE) != (0))) goto L_0721;
                                                                //   7298              %IF COMPILER=1=J %AND TYPE<=2 %START
#line 7298 "regression-compile-tmp/nrimp10s-77.imp"
if ((((COMPILER) != (1))) || (((1) != (J)))) goto L_0722;
#line 7298 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0722;
                                                                //   7299                 PF1(SLSS,2,AREA,DISP+8); ! LWB TO ACC
#line 7299 "regression-compile-tmp/nrimp10s-77.imp"
PF1(66, 2, AREA, (((int)(DISP)) + (8)));
                                                                //   7300                 PSF1(IMY,0,-BYTES(PREC)) %UNLESS PREC=3
#line 7300 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (3))) goto L_0723;
#line 7300 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(234, 0, (-(BYTES[PREC])));
#line 7300 "regression-compile-tmp/nrimp10s-77.imp"
L_0723:;
                                                                //   7301                 PF1(IAD,0,TOS,0)
#line 7301 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, 6, 0);
                                                                //   7302                 GRUSE(DR)=0
#line 7302 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   7303              %FINISH
#line 7303 "regression-compile-tmp/nrimp10s-77.imp"
L_0722:;
                                                                //   7304              PSORLF1(LUH,ACCESS,AREA,DISP)
#line 7304 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(106, ACCESS, AREA, DISP);
                                                                //   7305           %FINISH %ELSE %START
#line 7305 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0724;
#line 7305 "regression-compile-tmp/nrimp10s-77.imp"
L_0721:;
                                                                //   7306              PSF1(LUH,0,0)
#line 7306 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(106, 0, 0);
                                                                //   7307              PSORLF1(IAD,ACCESS,AREA,DISP)
#line 7307 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(224, ACCESS, AREA, DISP);
                                                                //   7308           %FINISH
#line 7308 "regression-compile-tmp/nrimp10s-77.imp"
L_0724:;
                                                                //   7309  !
                                                                //   7310           PSF1(ST,1,WK);                 ! 1ST PART OF HEAD =DESC TO ARRAY
#line 7310 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, WK);
                                                                //   7311           PSORLF1(LSD,ACCESS,AREA,DISP+8)
#line 7311 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(100, ACCESS, AREA, (((int)(DISP)) + (8)));
                                                                //   7312           PSF1(ST,1,WK+8);               ! 2ND PART = DESCPTR TO DV
#line 7312 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, (((int)(WK)) + (8)));
                                                                //   7313           GRUSE(ACCR)=0
#line 7313 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   7314           ACCESS=0; AREA=LNB; DISP=WK
#line 7314 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 7314 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
#line 7314 "regression-compile-tmp/nrimp10s-77.imp"
DISP = WK;
                                                                //   7315  %END
#line 7315 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CREATEAH at level 5
                                                                //   7316           %ROUTINE CSNAME(%INTEGER Z,REG)
#line 7316 "regression-compile-tmp/nrimp10s-77.imp"
void CSNAME( int Z, int REG )
#line 7316 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7317  !***********************************************************************
                                                                //   7318  !*       COMPILE A SPECIAL NAME - PTYPE=10006 (=%ROUTINE %LABEL)       *
                                                                //   7319  !*       THEIR TRUE PTYPE IS IN GLOBAL ARRAY TSNAME.                   *
                                                                //   7320  !*       SNINFO HAS A FOUR BYTE RECORD FOR EACH NAME (%BI FLAG,PTR,    *
                                                                //   7321  !*       %SI XTRA). THE TOP BITS OF FLAG CATEGORISE AS FOLLOWS:-       *
                                                                //   7322  !*       2**7 SET FOR IMPLICITLY SPECIFIED CONSTRUCT A %SPEC           *
                                                                //   7323  !*       2**6 SET FOR IOCP CALL                                        *
                                                                //   7324  !*       2**5 SET FOR BUILT IN MAPPING FUNCTIONS                       *
                                                                //   7325  !*       2**4 SET IF AD-HOC CODE PLANTED BY THIS ROUTINE               *
                                                                //   7326  !*       2**3 SET IF FIRST PARAMETER IS OF %NAME TYPE                  *
                                                                //   7327  !*       2**2-2**0 HOLD NUMBER OF PARAMS                               *
                                                                //   7328  !*                                                                     *
                                                                //   7329  !*       THE FULL SPECS ARE AS FOLLOWS:-                               *
                                                                //   7330  !*       0=%ROUTINE SELECT INPUT(%INTEGER STREAM)                      *
                                                                //   7331  !*       1=%ROUTINE SELECT OUTPUT(%INTEGER STREAM)                     *
                                                                //   7332  !*       2=%ROUTINE NEWLINE                                            *
                                                                //   7333  !*       3=%ROUTINE SPACE                                              *
                                                                //   7334  !*       4=%ROUTINE SKIP SYMBOL                                        *
                                                                //   7335  !*       5=%ROUTINE READ STRINWG(%STRINGNAME S)                        *
                                                                //   7336  !*       6=%ROUTINE NEWLINES(%INTEGER N)                               *
                                                                //   7337  !*       7=%ROUTINE SPACES(%INTEGER N)                                 *
                                                                //   7338  !*       8=%INTEGERFN NEXT SYMBOL                                      *
                                                                //   7339  !*       9=%ROUTINE PRINT SYMBOL(%INTEGER SYMBOL)                      *
                                                                //   7340  !*       10=%ROUTINE READ SYMBOL(%NAME SYMBOL)                         *
                                                                //   7341  !*       11=%ROUTINE READ(%NAME NUMBER)                                *
                                                                //   7342  !*       12=%ROUTINE WRITE(%INTEGER VALUE,PLACES)                      *
                                                                //   7343  !*       13=%ROUTINE NEWPAGE                                           *
                                                                //   7344  !*       14=%INTEGERFN ADDR(%NAME VARIABLE)                            *
                                                                //   7345  !*       15=%LONGREALFN ARCSIN(%LONGREAL X)                            *
                                                                //   7346  !*       16=%INTEGERFN INT(%LONGREAL X)                                *
                                                                //   7347  !*       17=%INTEGERFN INTPT(%LONRGREAL X)                             *
                                                                //   7348  !*       18=%LONGREALFN FRACPT(%LONGREAL X)                            *
                                                                //   7349  !*       19=%ROUTINE PRINT(%LONGREAL NUMBER,%INTEGER BEFORE,AFTER)     *
                                                                //   7350  !*       20=%ROUTINE PRINTFL(%LONGREAL NUMBER,%INTEGER PLACES)         *
                                                                //   7351  !*       21=%REALMAP REAL(%INTEGER VAR ADDR)                           *
                                                                //   7352  !*       22=%INTEGERMAP INTEGER(%INTEGER VAR ADDR)                     *
                                                                //   7353  !*       23=%LONGREALFN MOD(%LONGREAL X)                               *
                                                                //   7354  !*       24=%LONGREALFN ARCCOS(%LONGREAL X)                            *
                                                                //   7355  !*       25=%LONGREALFN SQRT(%LONGREAL X)                              *
                                                                //   7356  !*       26=%LONGREALFN LOG(%LONGREAL X)                               *
                                                                //   7357  !*       27=%LONGREALFN SIN(%LONGREAL X)                               *
                                                                //   7358  !*       28=%LONGREALFN COS(%LONGREAL X)                               *
                                                                //   7359  !*       29=%LONGREALFN TAN(%LONGREAL X)                               *
                                                                //   7360  !*       30=%LONGREALFN EXP(%LONGREAL X)                               *
                                                                //   7361  !*       31=%ROUTINE CLOSE STREAM(%INTEGER STREAM)                     *
                                                                //   7362  !*       32=%BYTEINTEGERMAP BYTE INTEGER(%INTEGER VAR ADDR)            *
                                                                //   7363  !*       33=%INTEGERFN EVENTINF                                        *
                                                                //   7364  !*       34=%LONGREALFN RADIUS(%LONGREAL X,Y)                          *
                                                                //   7365  !*       35=%LONGREALFN ARCTAN(%LONGREAL X,Y)                          *
                                                                //   7366  !*       36=%BYTEINTEGERMAP LENGTH(%STRINGNAME  S)                     *
                                                                //   7367  !*       37=%ROUTINE PRINT STRING(%STRING(255) MESSAGE)                *
                                                                //   7368  !*       38=%INTEGERFN NL                                              *
                                                                //   7369  !*       39=%LONGREALMAP LONG REAL(%INTEGER VAR ADDR)                  *
                                                                //   7370  !*       40=%ROUTINE PRINT CH(%INTEGER CHARACTER)                      *
                                                                //   7371  !*       41=%ROUTINE READ CH(%NAME CHARACTER)                          *
                                                                //   7372  !*       42=%STRINGMAP STRING(%INTEGER VAR ADDR)                       *
                                                                //   7373  !*       43=%ROUTINE READ ITEM(%STRINGNAME ITEM)                       *
                                                                //   7374  !*       44=%STRING(1)%FN NEXT ITEM                                    *
                                                                //   7375  !*       45=%BYTEINTEGERMAP CHARNO(%STRINGNAME STR,%INTEGER CHARREQD)  *
                                                                //   7376  !*       46=%STRING(1)%FN TOSTRING(%INTEGER SYMBOL)                    *
                                                                //   7377  !*       47=%STRING(255)%FN FROMSTRING(%STRING(255)S,%INTEGER BEG,END) *
                                                                //   7378  !*       48=%RECORDMAP RECORD(%INTEGER REC ADDR)                       *
                                                                //   7379  !*       49=%ARRAYMAP ARRAY(%INTEGER A1ADDR,%ARRAYNAME FORMAT)         *
                                                                //   7380  !*       50=%ROUTINE SETMARGINS(%INTEGER INOUT,LHM,RHM)                *
                                                                //   7381  !*       51=%INTEGERFN IMOD(%INTEGER VALUE)                            *
                                                                //   7382  !*       52=%LONGREALFN PI                                             *
                                                                //   7383  !*       53=%INTEGERFN EVENTLINE                                       *
                                                                //   7384  !*       54=%LONGINTEGERMAP LONGINTEGER(%INTEGER ADR)                  *
                                                                //   7385  !*       55=%LONGLONGREALMAP LONGLONGREAL(%INTEGER ADR)                *
                                                                //   7386  !*       56=%LONGINTGEREFN LENGTHENI(%INTEGER VAL)                     *
                                                                //   7387  !*       57=%LONGLONGREALFN LENGTHENR(%LONGREAL VAL)                   *
                                                                //   7388  !*       58=%INTEGERFN SHORTENI(%LONGINTEGER VAL)                      *
                                                                //   7389  !*       59=%LONGREALFN SHORTENR(%LONGLONGREAL VAL)                    *
                                                                //   7390  !*       60=%INTEGERFN NEXTCH                                          *
                                                                //   7391  !*       61=%HALFINTEGERMAP HALFINTEGER(%INTEGER ADDR)                 *
                                                                //   7392  !*       62=%ROUTINE PPROFILE                                          *
                                                                //   7393  !***********************************************************************
                                                                //   7394  %INTEGERFNSPEC OPTMAP
#line 7394 "regression-compile-tmp/nrimp10s-77.imp"
auto int OPTMAP( void );
                                                                //   7395  %SWITCH ADHOC(1:15)
#line 7395 "regression-compile-tmp/nrimp10s-77.imp"
static int sw21_ADHOC_idx;
static const void * /*SWITCH*/ sw21_ADHOC[15] = { &&sw21_ADHOC_1, &&sw21_ADHOC_2, &&sw21_ADHOC_3, &&sw21_ADHOC_4, &&sw21_ADHOC_5, &&sw21_ADHOC_6, &&sw21_ADHOC_7, &&sw21_ADHOC_8, &&sw21_ADHOC_9, &&sw21_ADHOC_10, &&sw21_ADHOC_11, &&sw21_ADHOC_12, &&sw21_ADHOC_13, &&sw21_ADHOC_14, &&sw21_ADHOC_15,  };
                                                                //   7396  %CONSTINTEGERARRAY SNINFO(0:62)={%C
#line 7396 "regression-compile-tmp/nrimp10s-77.imp"
const int SNINFO[63] = { 1091043329, 1091108865, 1082785793, 1084227585, 1073807361, (-2146631680), 285278209, 285278209, 268566564, 1090715649, 419627009, (-2146238463), (-2145714156), 1082916865, 419758116, (-2147418110), 285474852, 285474852, (-2147418107), (-2146893818), (-2147090425), 553648190, 553648190, 285605924, (-2147418104), (-2147418103), (-2147418102), (-2147418101), (-2147418100), (-2147418099), (-2147418098), (-2146107377), 553648190, 269287460, (-2147287024), (-2147287023), 419889214, 1090977793, 268959780, 553648190, 1090846721, 419627009, 553648190, 419627009, 268566564, 436666430, 285802532, (-2146500590), 285900824, 302714880, (-2145976301), 285605924, 269221924, 269287460, 553648190, 553648190, 286130212, 286130212, 286130212, 286130212, 268566564, 553648190, 269418497,  };
                                                                //   7397                      16_41080001,16_41090001,16_408A0001,16_40A00001,
                                                                //   7398                      16_40010001,16_800D0000,16_11010001,16_11010001,
                                                                //   7399                      16_10020024,16_41030001,16_19030001,16_80130001,
                                                                //   7400                      16_801B0014,16_408C0001,16_19050024,16_80010002,
                                                                //   7401                      16_11040024,16_11040024,16_80010005,16_80090006,
                                                                //   7402                      16_80060007,16_2100003E,16_2100003E,16_11060024,
                                                                //   7403                      16_80010008,16_80010009,16_8001000A,16_8001000B,
                                                                //   7404                      16_8001000C,16_8001000D,16_8001000E,16_8015000F,
                                                                //   7405                      16_2100003E,16_100D0024,16_80030010,16_80030011,
                                                                //   7406                      16_1907003E,16_41070001,16_10080024,16_2100003E,
                                                                //   7407                      16_41050001,16_19030001,16_2100003E,16_19030001,
                                                                //   7408                      16_10020024,16_1A07003E,16_11090024,16_800F0012,
                                                                //   7409                      16_110A8018,16_120B1000,16_80170013,16_11060024,
                                                                //   7410                      16_100C0024,16_100D0024,16_2100003E(2),
                                                                //   7411                      16_110E0024(4),
                                                                //   7412                      16_10020024,16_2100003E,16_100F0001;
                                                                //   7413  %CONSTSTRING(11)%ARRAY SNXREFS(0:20)={%C
#line 7413 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(11)*/ SNXREFS[21] = { _imp_str_literal("READSTRING"), _imp_str_literal("S#READ"), _imp_str_literal("S#IARCSIN"), _imp_str_literal("S#INT"), _imp_str_literal("S#INTPT"), _imp_str_literal("S#FRACPT"), _imp_str_literal("S#PRINT"), _imp_str_literal("S#PRINTFL"), _imp_str_literal("S#IARCCOS"), _imp_str_literal("S#ISQRT"), _imp_str_literal("S#ILOG"), _imp_str_literal("S#ISIN"), _imp_str_literal("S#ICOS"), _imp_str_literal("S#ITAN"), _imp_str_literal("S#IEXP"), _imp_str_literal("CLOSESTREAM"), _imp_str_literal("S#IRADIUS"), _imp_str_literal("S#IARCTAN"), _imp_str_literal("FROMSTRING"), _imp_str_literal("SETMARGINS"), _imp_str_literal("S#WRITE"),  };
                                                                //   7414                    "READSTRING", "S#READ",   "S#IARCSIN", "S#INT",
                                                                //   7415                    "S#INTPT" , "S#FRACPT", "S#PRINT" , "S#PRINTFL",
                                                                //   7416                    "S#IARCCOS","S#ISQRT" , "S#ILOG"  , "S#ISIN",
                                                                //   7417                    "S#ICOS"  , "S#ITAN"  , "S#IEXP"  , "CLOSESTREAM",
                                                                //   7418                    "S#IRADIUS","S#IARCTAN","FROMSTRING","SETMARGINS",
                                                                //   7419                    "S#WRITE" ;
                                                                //   7420  !
                                                                //   7421  ! SNPARAMS HOLDS NUMBER AND PTYPE OF FORMAL PARAMETER FOR IMPLICITLY
                                                                //   7422  ! SPECIFIED EXTERNAL ROUTINES. A POINTER IN SNINFO MEANS THAT NO
                                                                //   7423  ! DUPLICATES NEED TO BE RECORDED.
                                                                //   7424  !
                                                                //   7425  %CONSTINTEGERARRAY SNPARAMS(0:29)=0,
#line 7425 "regression-compile-tmp/nrimp10s-77.imp"
const int SNPARAMS[30] = { 0, 1, 98, 2, 98, 98, 2, 98, 81, 3, 98, 81, 81, 1, 1077, 3, 53, 81, 81, 1, 1024, 1, 81, 3, 81, 81, 81, 2, 81, 81,  };
                                                                //   7426                 1,16_62,       2,16_62,16_62,  2,16_62,16_51,
                                                                //   7427                 3,16_62,16_51,16_51,   1,16_435,   3,16_35,16_51,16_51,
                                                                //   7428                 1,16_400,     1,16_51,      3,16_51,16_51,16_51,
                                                                //   7429                 2,16_51,16_51;
                                                                //   7430  !
                                                                //   7431  %ROUTINESPEC RTOS(%INTEGER REG)
#line 7431 "regression-compile-tmp/nrimp10s-77.imp"
auto void RTOS( int REG );
                                                                //   7432  %RECORD(RD) R{(RD)
#line 7432 "regression-compile-tmp/nrimp10s-77.imp"
 RD R;
                                                                //   7433  %INTEGER ERRNO,FLAG,POINTER,WREG,PIN,SNNO,SNNAME,NAPS,SNPTYPE,JJ,XTRA,IOCPEP,B,D,SNINF,P0,OPHEAD
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int ERRNO;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int FLAG;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int POINTER;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int WREG;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int PIN;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int SNNO;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int SNNAME;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int NAPS;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int SNPTYPE;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int XTRA;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int IOCPEP;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int B;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int SNINF;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int P0;
#line 7433 "regression-compile-tmp/nrimp10s-77.imp"
int OPHEAD;
                                                                //   7434        SNNAME=FROM AR2(P)
#line 7434 "regression-compile-tmp/nrimp10s-77.imp"
SNNAME = FROMAR2(P);
                                                                //   7435        SNNO=K;                           ! INDEX INTO SNINFO
#line 7435 "regression-compile-tmp/nrimp10s-77.imp"
SNNO = K;
                                                                //   7436        TESTAPP(NAPS);                    ! COUNT ACTUAL PARAMETERS
#line 7436 "regression-compile-tmp/nrimp10s-77.imp"
TESTAPP(&NAPS);
                                                                //   7437        PIN=P; P=P+2
#line 7437 "regression-compile-tmp/nrimp10s-77.imp"
PIN = P;
#line 7437 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   7438        SNPTYPE=TSNAME(SNNO)
#line 7438 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = TSNAME[SNNO];
                                                                //   7439        SNINF=SNINFO(SNNO)
#line 7439 "regression-compile-tmp/nrimp10s-77.imp"
SNINF = SNINFO[SNNO];
                                                                //   7440        XTRA=SNINF&16_FFFF
#line 7440 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = ((SNINF) & (65535));
                                                                //   7441        POINTER=(SNINF>>16)&255
#line 7441 "regression-compile-tmp/nrimp10s-77.imp"
POINTER = (((int)((((unsigned int)(SNINF)) >> (16)))) & (255));
                                                                //   7442        FLAG=SNINF>>24
#line 7442 "regression-compile-tmp/nrimp10s-77.imp"
FLAG = (int)((((unsigned int)(SNINF)) >> (24)));
                                                                //   7443  !
                                                                //   7444  ! THE IMPLICITLY SPECIFIED ROUTINE ARE THE EASIEST OF ALL TO DEAL WITH.
                                                                //   7445  ! JUST SET UP THE EXTERNAL SPEC & PARAMETERS. THEN A RECURSIVE CALL
                                                                //   7446  ! OF CNAME THEN FINDS THE ROUTINE UNDER ITS TRUE COLOURS AND COMPILES
                                                                //   7447  ! THE CALL. ALL CALLS EXCEPT THE FIRST ARE DEALT WITH DIRECTLY BY CNAME.
                                                                //   7448  ! ALL NONTRIVIAL ROUTINES SHOULD BE DEALT WITH IN THIS MANNER
                                                                //   7449  ! XTRA HAS INDEX INTO ARRAY OF EXTERNAL NAMES SO THAT THESE
                                                                //   7450  ! CAN EASILY BE CHANGED.
                                                                //   7451  !
                                                                //   7452        %IF FLAG&16_80#0 %THEN %START
#line 7452 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG) & (128))) == (0))) goto L_0725;
                                                                //   7453           CXREF(SNXREFS(XTRA),PARMDYNAMIC,2,JJ);! JJ SET WITH REF DISPLACEMENT
#line 7453 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(SNXREFS[XTRA], PARMDYNAMIC, 2, &JJ);
                                                                //   7454           %IF SNNO=26 %THEN LOGEPDISP=JJ
#line 7454 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (26))) goto L_0726;
#line 7454 "regression-compile-tmp/nrimp10s-77.imp"
LOGEPDISP = JJ;
#line 7454 "regression-compile-tmp/nrimp10s-77.imp"
L_0726:;
                                                                //   7455           %IF SNNO=31 %THEN EXPEPDISP=JJ
#line 7455 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (31))) goto L_0727;
#line 7455 "regression-compile-tmp/nrimp10s-77.imp"
EXPEPDISP = JJ;
#line 7455 "regression-compile-tmp/nrimp10s-77.imp"
L_0727:;
                                                                //   7456           OPHEAD=0; P0=SNPARAMS(POINTER)
#line 7456 "regression-compile-tmp/nrimp10s-77.imp"
OPHEAD = 0;
#line 7456 "regression-compile-tmp/nrimp10s-77.imp"
P0 = SNPARAMS[POINTER];
                                                                //   7457           K=OPHEAD; D=1
#line 7457 "regression-compile-tmp/nrimp10s-77.imp"
K = OPHEAD;
#line 7457 "regression-compile-tmp/nrimp10s-77.imp"
D = 1;
                                                                //   7458           %WHILE D<=P0 %CYCLE
#line 7458 "regression-compile-tmp/nrimp10s-77.imp"
L_0728:;
#line 7458 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) > (P0))) goto L_0729;
                                                                //   7459              PTYPE=SNPARAMS(POINTER+D)
#line 7459 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = SNPARAMS[(((int)(POINTER)) + (D))];
                                                                //   7460              UNPACK
#line 7460 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   7461              %IF NAM=0 %THEN ACC=BYTES(PREC) %ELSE ACC=8
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_072b;
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
ACC = BYTES[PREC];
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
goto L_072c;
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
L_072b:;
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 8;
#line 7461 "regression-compile-tmp/nrimp10s-77.imp"
L_072c:;
                                                                //   7462              %IF PTYPE=16_35 %THEN ACC=256;!STRING BY VALUE
#line 7462 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (53))) goto L_072d;
#line 7462 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 256;
#line 7462 "regression-compile-tmp/nrimp10s-77.imp"
L_072d:;
                                                                //   7463              INSERTAT END(OPHEAD,PTYPE<<16,ACC<<16,0)
#line 7463 "regression-compile-tmp/nrimp10s-77.imp"
INSERTATEND(&OPHEAD, ((PTYPE) << (16)), ((ACC) << (16)), 0);
                                                                //   7464              D=D+1
#line 7464 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)(D)) + (1));
                                                                //   7465           %REPEAT
#line 7465 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0728;
#line 7465 "regression-compile-tmp/nrimp10s-77.imp"
L_0729:;
                                                                //   7466           I=1; J=14
#line 7466 "regression-compile-tmp/nrimp10s-77.imp"
I = 1;
#line 7466 "regression-compile-tmp/nrimp10s-77.imp"
J = 14;
                                                                //   7467           OLDI=0; PTYPE=SNPTYPE
#line 7467 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = 0;
#line 7467 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = SNPTYPE;
                                                                //   7468           K=OPHEAD; KFORM=P0
#line 7468 "regression-compile-tmp/nrimp10s-77.imp"
K = OPHEAD;
#line 7468 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = P0;
                                                                //   7469           REPLACETAG(SNNAME)
#line 7469 "regression-compile-tmp/nrimp10s-77.imp"
REPLACETAG(SNNAME);
                                                                //   7470           REPLACE2(TAGS(SNNAME),JJ);     ! DIPLACEMENT INTO S2
#line 7470 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE2(TAGS[SNNAME], JJ);
                                                                //   7471           P=PIN; CNAME(Z,REG);           ! RECURSIVE CALL
#line 7471 "regression-compile-tmp/nrimp10s-77.imp"
P = PIN;
#line 7471 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(Z, REG);
                                                                //   7472           NEST=REG
#line 7472 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
                                                                //   7473           P=P-1; %RETURN;                ! DUPLICATES CHECK OF <ENAME>
#line 7473 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (1));
#line 7473 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7474        %FINISH
#line 7474 "regression-compile-tmp/nrimp10s-77.imp"
L_0725:;
                                                                //   7475  !
                                                                //   7476  ! ALL ROUTINES EXCEPT THE IMPLICITS REQUIRE A CHECK THAT THE USE OF THE
                                                                //   7477  ! NAME IS LEGAL AND THAT THE CORRECT NO OF PARAMETERS(BOTTOM 2 BITS OF
                                                                //   7478  ! FLAG) HAS BEEN SUPPLIED. THE CHECK IS TRIVIAL - THE PROBLEM
                                                                //   7479  ! IS TO GET THE RIGHT ERROR NUMBER.
                                                                //   7480  ! XTRA HAS A BITMASK OF ALLOWED USES(IE ALLOWED Z VALUES)
                                                                //   7481  !
                                                                //   7482        %IF NAPS#FLAG&3 %THEN ERRNO=19 %AND ->ERREXIT
#line 7482 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAPS) == (((FLAG) & (3))))) goto L_072e;
#line 7482 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 19;
#line 7482 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 7482 "regression-compile-tmp/nrimp10s-77.imp"
L_072e:;
                                                                //   7483        JJ=1<<Z
#line 7483 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((1) << (Z));
                                                                //   7484        %IF JJ&XTRA=0 %THEN %START;       ! ILLEGAL USE
#line 7484 "regression-compile-tmp/nrimp10s-77.imp"
if (((((JJ) & (XTRA))) != (0))) goto L_072f;
                                                                //   7485           ERRNO=23
#line 7485 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 23;
                                                                //   7486           %IF Z=0 %THEN ERRNO=17
#line 7486 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (0))) goto L_0730;
#line 7486 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 17;
#line 7486 "regression-compile-tmp/nrimp10s-77.imp"
L_0730:;
                                                                //   7487           %IF Z=1 %OR 3<=Z<=4 %THEN ERRNO=29
#line 7487 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_072a;
#line 7487 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (Z))) || (((Z) > (4)))) goto L_0731;
#line 7487 "regression-compile-tmp/nrimp10s-77.imp"
L_072a:;
#line 7487 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 29;
#line 7487 "regression-compile-tmp/nrimp10s-77.imp"
L_0731:;
                                                                //   7488           %IF XTRA&16_F000#0 %THEN ERRNO=84
#line 7488 "regression-compile-tmp/nrimp10s-77.imp"
if (((((XTRA) & (61440))) == (0))) goto L_0732;
#line 7488 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 84;
#line 7488 "regression-compile-tmp/nrimp10s-77.imp"
L_0732:;
                                                                //   7489           ->ERR EXIT
#line 7489 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
                                                                //   7490        %FINISH
#line 7490 "regression-compile-tmp/nrimp10s-77.imp"
L_072f:;
                                                                //   7491  !
                                                                //   7492  ! A NUMBER OF INPUT-OUTPUT ROUTINES ARE MAPPED ONTO CALLS OF IOCP.
                                                                //   7493  ! THIS ARRANGEMENT HAS THE ADVANTAGE OF REQUIRING ONL 1 EXTERNAL REF
                                                                //   7494  ! IN THE GLA BUT HAS THE DISADVANTAGE THAT THE I-O ROUTINES CAN NOT
                                                                //   7495  ! BE PASSED AS RT-TYPE PARAMETERS AS WELL AS REQUIRING MESSY CODE
                                                                //   7496  ! HEREABOUTS.  SNINF_PTR HOLD EITHER:-
                                                                //   7497  !       1) THE IOCP ENTRY POINT NO
                                                                //   7498  !   OR  2) THE SYMBOL TO BE OUTPUT WITH 2**7 BIT SET
                                                                //   7499  !
                                                                //   7500  ! THIS SECTION DEALS WITH SELECT INPUT,SELECT OUTPUT,NEWLINE,NEWPAGE
                                                                //   7501  !                         SPACE,SKIP SYMBOL,PRINT SYMBOL,PRINT STRING
                                                                //   7502  !                         AND PRINT CH
                                                                //   7503  !
                                                                //   7504        %IF FLAG&16_40#0 %THEN %START
#line 7504 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG) & (64))) == (0))) goto L_0733;
                                                                //   7505           IOCPEP=POINTER; B=ACCR
#line 7505 "regression-compile-tmp/nrimp10s-77.imp"
IOCPEP = POINTER;
#line 7505 "regression-compile-tmp/nrimp10s-77.imp"
B = 0;
                                                                //   7506           %IF FLAG&3#0 %THEN %START;     ! RT HAS PARAMS
#line 7506 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG) & (3))) == (0))) goto L_0734;
                                                                //   7507              P=P+1
#line 7507 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7508              %IF SNNO=37 %THEN CSTREXP(0,DR) %AND B=DR %ELSE CSEXP(ACCR,16_51)
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (37))) goto L_0735;
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(0, 1);
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
B = 1;
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0736;
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
L_0735:;
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
#line 7508 "regression-compile-tmp/nrimp10s-77.imp"
L_0736:;
                                                                //   7509           %FINISH
#line 7509 "regression-compile-tmp/nrimp10s-77.imp"
L_0734:;
                                                                //   7510           %IF IOCPEP>127 %THEN PSF1(LSS,0,IOCPEP&127) %AND IOCPEP=5
#line 7510 "regression-compile-tmp/nrimp10s-77.imp"
if (((IOCPEP) <= (127))) goto L_0737;
#line 7510 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, ((IOCPEP) & (127)));
#line 7510 "regression-compile-tmp/nrimp10s-77.imp"
IOCPEP = 5;
#line 7510 "regression-compile-tmp/nrimp10s-77.imp"
L_0737:;
                                                                //   7511           %IF SNNO=4 %THEN PSF1(LSS,0,0);! SKIP SYMBOL FORCE ACS=1
#line 7511 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (4))) goto L_0738;
#line 7511 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 0);
#line 7511 "regression-compile-tmp/nrimp10s-77.imp"
L_0738:;
                                                                //   7512           CIOCP(IOCPEP,B);               ! PLANT CALL OF IOCP
#line 7512 "regression-compile-tmp/nrimp10s-77.imp"
CIOCP(IOCPEP, B);
                                                                //   7513           P=P+1
#line 7513 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7514           ->OKEXIT
#line 7514 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7515        %FINISH
#line 7515 "regression-compile-tmp/nrimp10s-77.imp"
L_0733:;
                                                                //   7516  !
                                                                //   7517  ! THE BUILT-IN MAPS (INTEGER ETC BUT NOT RECORD OR ARRAY)
                                                                //   7518  !
                                                                //   7519        %IF FLAG&16_20#0 %THEN %START
#line 7519 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG) & (32))) == (0))) goto L_0739;
                                                                //   7520           SNPTYPE=16_1C00+SNPTYPE;       ! ADD MAP BITS
#line 7520 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = (((int)(7168)) + (SNPTYPE));
                                                                //   7521           %IF PARMOPT=0 %AND OPTMAP#0 %THEN ->OKEXIT
#line 7521 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) != (0))) goto L_073a;
#line 7521 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTMAP()) == (0))) goto L_073a;
#line 7521 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
#line 7521 "regression-compile-tmp/nrimp10s-77.imp"
L_073a:;
                                                                //   7522           %IF Z=1 %THEN  BIMSTR=1;       ! SPECIAL FLAG FOR STORE VIA MAP
#line 7522 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (1))) goto L_073b;
#line 7522 "regression-compile-tmp/nrimp10s-77.imp"
BIMSTR = 1;
#line 7522 "regression-compile-tmp/nrimp10s-77.imp"
L_073b:;
                                                                //   7523           P=P+1
#line 7523 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7524           CSEXP(BREG,16_51); P=P+1
#line 7524 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(7, 81);
#line 7524 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7525           %IF Z=1 %THEN BIMSTR=0
#line 7525 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (1))) goto L_073c;
#line 7525 "regression-compile-tmp/nrimp10s-77.imp"
BIMSTR = 0;
#line 7525 "regression-compile-tmp/nrimp10s-77.imp"
L_073c:;
                                                                //   7526           JJ=SNPTYPE>>4&15
#line 7526 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)((((unsigned int)(SNPTYPE)) >> (4)))) & (15));
                                                                //   7527           DISP=MAPDES(JJ)
#line 7527 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MAPDES(JJ);
                                                                //   7528           AREA=PC; ACCESS=3
#line 7528 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
#line 7528 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
                                                                //   7529           OLDI=0;                        ! FOR CHECK IN == ASSGNMNT
#line 7529 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = 0;
                                                                //   7530           ->OKEXIT
#line 7530 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7531        %FINISH
#line 7531 "regression-compile-tmp/nrimp10s-77.imp"
L_0739:;
                                                                //   7532  !
                                                                //   7533  ! ADHOC CODING IS REQUIRED FOR THE REMAINING ROUTINES APART FROM
                                                                //   7534  ! A CHECK FOR NAMETYPE PARAMETERS. THE SWITCH NO IS KEPT IN POINTER
                                                                //   7535  !
                                                                //   7536        P=P+1
#line 7536 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7537        %IF FLAG&8#0 %AND(A(P+3)#4 %OR A(P+4)#1 %OR A(P+FROM AR2(P+1)+1)#2) %THEN ERRNO=22 %AND ->ERREXIT
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
if (((((FLAG) & (8))) == (0))) goto L_073d;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (4))) goto L_0720;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (1))) goto L_0720;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)((((int)(P)) + (FROMAR2((((int)(P)) + (1))))))) + (1))]) == (2))) goto L_073d;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
L_0720:;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 22;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 7537 "regression-compile-tmp/nrimp10s-77.imp"
L_073d:;
                                                                //   7538        ->ADHOC(POINTER)
#line 7538 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_idx = POINTER; if ((1 <= sw21_ADHOC_idx) && (sw21_ADHOC_idx <= 15)) goto *(sw21_ADHOC-1)[sw21_ADHOC_idx];  /* Bounds=1:15 */ else {
   /*_imp_signal(8, 2, sw21_ADHOC_idx);*/
   fprintf(stderr, "%%SWITCH index ADHOC(%d) not in range 1:15 at %s:%d\n",
           sw21_ADHOC_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   7539  ADHOC(1):                               ! NEWLINES(=6) & SPACES(=7)
#line 7539 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_1:;
                                                                //   7540        CSEXP(ACCR,16_51);                ! REPITITION NO TO ACC
#line 7540 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   7541        %IF SNNO=6 %THEN JJ=10 %ELSE JJ=32
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (6))) goto L_073e;
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 10;
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
goto L_073f;
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
L_073e:;
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 32;
#line 7541 "regression-compile-tmp/nrimp10s-77.imp"
L_073f:;
                                                                //   7542        PSF1(USH,0,8);                    ! SHIFT UP 8 PLACES
#line 7542 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(200, 0, 8);
                                                                //   7543        PSF1(OR,0,JJ);                    ! OR SYMBOL
#line 7543 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(140, 0, JJ);
                                                                //   7544        CIOCP(17,ACCR)
#line 7544 "regression-compile-tmp/nrimp10s-77.imp"
CIOCP(17, 0);
                                                                //   7545        P=P+1
#line 7545 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7546        ->OKEXIT
#line 7546 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7547  ADHOC(2):                               ! NEXTSYMBOL(=8) & NEXTITEM(=44)
#line 7547 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_2:;
                                                                //   7548                                          ! ALSO NEXTCH(=60)
                                                                //   7549        GET IN ACC(ACCR,1,0,0,0);         ! PRESERVE ANY INTERMEDIATES
#line 7549 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 0, 0);
                                                                //   7550        %IF SNNO=60 %THEN JJ=18 %ELSE JJ=2
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (60))) goto L_0740;
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 18;
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0741;
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
L_0740:;
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 2;
#line 7550 "regression-compile-tmp/nrimp10s-77.imp"
L_0741:;
                                                                //   7551        CIOCP(JJ,ACCR);                   ! LEAVES THE SYMBOL IN ACC
#line 7551 "regression-compile-tmp/nrimp10s-77.imp"
CIOCP(JJ, 0);
                                                                //   7552        %IF SNNO=44 %THEN %START
#line 7552 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (44))) goto L_0742;
                                                                //   7553           RTOS(BREG)
#line 7553 "regression-compile-tmp/nrimp10s-77.imp"
RTOS(7);
                                                                //   7554           SNPTYPE=16_1435
#line 7554 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = 5173;
                                                                //   7555           AREA=PC; ACCESS=3
#line 7555 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
#line 7555 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
                                                                //   7556           DISP=MAPDES(3)
#line 7556 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MAPDES(3);
                                                                //   7557        %FINISH
#line 7557 "regression-compile-tmp/nrimp10s-77.imp"
L_0742:;
                                                                //   7558        NEST=ACCR;                        ! CONVERT R1 TO STRING
#line 7558 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
                                                                //   7559        ->OKEXIT
#line 7559 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7560  ADHOC(3):                               ! READSYMBOL(=10),CH(=41)&ITEM(=43)
#line 7560 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_3:;
                                                                //   7561        %IF SNNO=41 %THEN JJ=4 %ELSE JJ=1
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (41))) goto L_0743;
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 4;
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0744;
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
L_0743:;
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 1;
#line 7561 "regression-compile-tmp/nrimp10s-77.imp"
L_0744:;
                                                                //   7562        PSF1(LSS,0,0)
#line 7562 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 0);
                                                                //   7563        CIOCP(JJ,ACCR);                   ! SYMBOL OR CH TO GR1
#line 7563 "regression-compile-tmp/nrimp10s-77.imp"
CIOCP(JJ, 0);
                                                                //   7564        P=P+5
#line 7564 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   7565        %IF SNNO=43 %THEN %START
#line 7565 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (43))) goto L_0745;
                                                                //   7566           TYPE=5; RTOS(ACCR)
#line 7566 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 5;
#line 7566 "regression-compile-tmp/nrimp10s-77.imp"
RTOS(0);
                                                                //   7567           PF1(LUH,0,PC,PARAM DES(3))
#line 7567 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 4, PARAMDES(3));
                                                                //   7568        %FINISH  %ELSE %START
#line 7568 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0746;
#line 7568 "regression-compile-tmp/nrimp10s-77.imp"
L_0745:;
                                                                //   7569           REGISTER(ACCR)=1; TYPE=1
#line 7569 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
#line 7569 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
                                                                //   7570        %FINISH
#line 7570 "regression-compile-tmp/nrimp10s-77.imp"
L_0746:;
                                                                //   7571        JJ=TYPE
#line 7571 "regression-compile-tmp/nrimp10s-77.imp"
JJ = TYPE;
                                                                //   7572        ASSIGN(6,P);                      ! BY '=' TO PARAMETER
#line 7572 "regression-compile-tmp/nrimp10s-77.imp"
ASSIGN(6, P);
                                                                //   7573        P=PIN+6+FROM AR2(PIN+4)
#line 7573 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)((((int)(PIN)) + (6)))) + (FROMAR2((((int)(PIN)) + (4)))));
                                                                //   7574        ->OKEXIT
#line 7574 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7575  ADHOC(4):                               ! INT(=16) AND INTPT (=17)
#line 7575 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_4:;
                                                                //   7576        CSEXP(ACCR,16_62)
#line 7576 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 98);
                                                                //   7577        %IF SNNO=16 %THEN PF1(RAD,0,PC,SPECIAL CONSTS(0));! RAD 0.5
#line 7577 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (16))) goto L_0747;
#line 7577 "regression-compile-tmp/nrimp10s-77.imp"
PF1(240, 0, 4, SPECIALCONSTS(0));
#line 7577 "regression-compile-tmp/nrimp10s-77.imp"
L_0747:;
                                                                //   7578        %IF PARMOPT=0 %THEN PSF1(RSC,0,55) %AND PSF1(RSC,0,-55)
#line 7578 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMOPT) != (0))) goto L_0748;
#line 7578 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(248, 0, 55);
#line 7578 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(248, 0, (-55));
#line 7578 "regression-compile-tmp/nrimp10s-77.imp"
L_0748:;
                                                                //   7579        %IF REGISTER(BREG)#0 %THEN BOOT OUT(BREG)
#line 7579 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) == (0))) goto L_0749;
#line 7579 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 7579 "regression-compile-tmp/nrimp10s-77.imp"
L_0749:;
                                                                //   7580        PF1(FIX,0,BREG,0)
#line 7580 "regression-compile-tmp/nrimp10s-77.imp"
PF1(184, 0, 7, 0);
                                                                //   7581        PSF1(MYB,0,4)
#line 7581 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, 4);
                                                                //   7582        PSF1(CPB,0,-64)
#line 7582 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(38, 0, (-64));
                                                                //   7583        PF3(JCC,10,0,3)
#line 7583 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 10, 0, 3);
                                                                //   7584        PSF1(LB,0,-64)
#line 7584 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, (-64));
                                                                //   7585        PF1(ISH,0,BREG,0)
#line 7585 "regression-compile-tmp/nrimp10s-77.imp"
PF1(232, 0, 7, 0);
                                                                //   7586        PF1(STUH,0,BREG,0)
#line 7586 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
                                                                //   7587        GRUSE(ACCR)=0; GRUSE(BREG)=0
#line 7587 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
#line 7587 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   7588        NEST=ACCR
#line 7588 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
                                                                //   7589        P=P+1
#line 7589 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7590        ->OKEXIT
#line 7590 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7591  ADHOC(5):                               ! ADDR(=14)
#line 7591 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_5:;
                                                                //   7592        P=P+5; CNAME(4,REG);              ! FETCH ADDRESS MODE
#line 7592 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
#line 7592 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, REG);
                                                                //   7593        NEST=REG
#line 7593 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
                                                                //   7594        P=P+2; ->OKEXIT
#line 7594 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 7594 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7595  ADHOC(6):                               ! MOD(=23), IMOD(=51)
#line 7595 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_6:;
                                                                //   7596        %IF SNNO=51 %THEN %START
#line 7596 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (51))) goto L_074a;
                                                                //   7597           JJ=16_51; B=5; D=IRSB
#line 7597 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 81;
#line 7597 "regression-compile-tmp/nrimp10s-77.imp"
B = 5;
#line 7597 "regression-compile-tmp/nrimp10s-77.imp"
D = 228;
                                                                //   7598           XTRA=3; WREG=ACCR
#line 7598 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = 3;
#line 7598 "regression-compile-tmp/nrimp10s-77.imp"
WREG = 0;
                                                                //   7599           %IF REG=BREG %START
#line 7599 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_074b;
                                                                //   7600              B=13; D=SLB; XTRA=4; WREG=BREG
#line 7600 "regression-compile-tmp/nrimp10s-77.imp"
B = 13;
#line 7600 "regression-compile-tmp/nrimp10s-77.imp"
D = 82;
#line 7600 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = 4;
#line 7600 "regression-compile-tmp/nrimp10s-77.imp"
WREG = 7;
                                                                //   7601           %FINISH
#line 7601 "regression-compile-tmp/nrimp10s-77.imp"
L_074b:;
                                                                //   7602        %FINISH %ELSE %START
#line 7602 "regression-compile-tmp/nrimp10s-77.imp"
goto L_074c;
#line 7602 "regression-compile-tmp/nrimp10s-77.imp"
L_074a:;
                                                                //   7603           JJ=16_62; B=1; D=RRSB
#line 7603 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 98;
#line 7603 "regression-compile-tmp/nrimp10s-77.imp"
B = 1;
#line 7603 "regression-compile-tmp/nrimp10s-77.imp"
D = 244;
                                                                //   7604           XTRA=3; WREG=ACCR
#line 7604 "regression-compile-tmp/nrimp10s-77.imp"
XTRA = 3;
#line 7604 "regression-compile-tmp/nrimp10s-77.imp"
WREG = 0;
                                                                //   7605        %FINISH
#line 7605 "regression-compile-tmp/nrimp10s-77.imp"
L_074c:;
                                                                //   7606        CSEXP(WREG,JJ);                   ! INTEGER OR LONGREAL MODE
#line 7606 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(WREG, JJ);
                                                                //   7607        PF3(JAT,B,0,XTRA);                ! JUMP ACC >0
#line 7607 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, B, 0, XTRA);
                                                                //   7608        PSF1(D,0,0)
#line 7608 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(D, 0, 0);
                                                                //   7609        %IF WREG=BREG %THEN PF1(SBB,0,TOS,0)
#line 7609 "regression-compile-tmp/nrimp10s-77.imp"
if (((WREG) != (7))) goto L_074d;
#line 7609 "regression-compile-tmp/nrimp10s-77.imp"
PF1(34, 0, 6, 0);
#line 7609 "regression-compile-tmp/nrimp10s-77.imp"
L_074d:;
                                                                //   7610        GRUSE(WREG)=0
#line 7610 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[WREG] = 0;
                                                                //   7611        NEST=WREG
#line 7611 "regression-compile-tmp/nrimp10s-77.imp"
NEST = WREG;
                                                                //   7612        P=P+1
#line 7612 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7613        ->OKEXIT
#line 7613 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7614  ADHOC(7):                               ! CHARNO(=45) & LENGTH(=36)
#line 7614 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_7:;
                                                                //   7615        P=P+5
#line 7615 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   7616        %IF PARMARR#0 %AND SNNO=45 %THEN CNAME(Z,DR) %ELSE CNAME(4,BREG)
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) == (0))) goto L_074e;
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (45))) goto L_074e;
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(Z, 1);
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
goto L_074f;
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
L_074e:;
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, 7);
#line 7616 "regression-compile-tmp/nrimp10s-77.imp"
L_074f:;
                                                                //   7617        ERRNO=22
#line 7617 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 22;
                                                                //   7618        ->ERREXIT %UNLESS TYPE=5 %AND ROUT=0
#line 7618 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_0750;
#line 7618 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) == (0))) goto L_0751;
#line 7618 "regression-compile-tmp/nrimp10s-77.imp"
L_0750:;
#line 7618 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 7618 "regression-compile-tmp/nrimp10s-77.imp"
L_0751:;
                                                                //   7619        P=P+2
#line 7619 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   7620        %IF SNNO#36 %THEN %START
#line 7620 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) == (36))) goto L_0752;
                                                                //   7621           %IF PARMARR=0=PARMCHK %THEN %START
#line 7621 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_0753;
                                                                //   7622              PF1(STB,0,TOS,0)
#line 7622 "regression-compile-tmp/nrimp10s-77.imp"
PF1(90, 0, 6, 0);
                                                                //   7623              CSEXP(BREG,16_51)
#line 7623 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(7, 81);
                                                                //   7624              PF1(ADB,0,TOS,0)
#line 7624 "regression-compile-tmp/nrimp10s-77.imp"
PF1(32, 0, 6, 0);
                                                                //   7625           %FINISH %ELSE %START;          ! FRIG BND CHECK FOR PARM=ARR
#line 7625 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0754;
#line 7625 "regression-compile-tmp/nrimp10s-77.imp"
L_0753:;
                                                                //   7626              GET WSP(JJ,2)
#line 7626 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&JJ, 2);
                                                                //   7627              %IF Z=2 %OR Z=5 %THEN B=INCA %ELSE B=MODD
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (2))) goto L_0755;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (5))) goto L_0756;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
L_0755:;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
B = 20;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0757;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
L_0756:;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
B = 22;
#line 7627 "regression-compile-tmp/nrimp10s-77.imp"
L_0757:;
                                                                //   7628              PSF1(B,0,1)
#line 7628 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(B, 0, 1);
                                                                //   7629              PSF1(STD,1,JJ)
#line 7629 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, JJ);
                                                                //   7630              CSEXP(BREG,16_51)
#line 7630 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(7, 81);
                                                                //   7631              PSF1(LD,1,JJ)
#line 7631 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, JJ);
                                                                //   7632              PSF1(SBB,0,1)
#line 7632 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 0, 1);
                                                                //   7633              PF1(MODD,0,BREG,0)
#line 7633 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 7, 0);
                                                                //   7634              GRUSE(DR)=0
#line 7634 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   7635              PSF1(ADB,1,JJ+4)
#line 7635 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 1, (((int)(JJ)) + (4)));
                                                                //   7636           %FINISH
#line 7636 "regression-compile-tmp/nrimp10s-77.imp"
L_0754:;
                                                                //   7637           P=P+1
#line 7637 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7638           GRUSE(BREG)=0
#line 7638 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   7639        %FINISH
#line 7639 "regression-compile-tmp/nrimp10s-77.imp"
L_0752:;
                                                                //   7640        DISP=MAPDES(3)
#line 7640 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MAPDES(3);
                                                                //   7641        AREA=PC; ACCESS=3
#line 7641 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
#line 7641 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
                                                                //   7642        STNAME=-1 %IF Z=1;                ! CANT REMEBER NAME
#line 7642 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (1))) goto L_0758;
#line 7642 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = (-1);
#line 7642 "regression-compile-tmp/nrimp10s-77.imp"
L_0758:;
                                                                //   7643        SNPTYPE=SNPTYPE+16_1C00
#line 7643 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = (((int)(SNPTYPE)) + (7168));
                                                                //   7644        ->OKEXIT
#line 7644 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7645  ADHOC(12):                              ! PI(=52)
#line 7645 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_12:;
                                                                //   7646  ADHOC(8):                               ! NL(=38). THIS FN IS PICKED OFF
#line 7646 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_8:;
                                                                //   7647        NEST=0;                           ! IN CSEXP.ONLY COMES HERE IN
#line 7647 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
                                                                //   7648        P=P+1
#line 7648 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7649        ->OKEXIT;                         ! ERROR EG NL=A+B
#line 7649 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7650  ADHOC(9):                               ! TOSTRING(=46)
#line 7650 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_9:;
                                                                //   7651        CSEXP(ACCR,16_51);                ! RET EXPSN
#line 7651 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   7652        P=P+1
#line 7652 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7653        RTOS(BREG)
#line 7653 "regression-compile-tmp/nrimp10s-77.imp"
RTOS(7);
                                                                //   7654        DISP=MAPDES(3)
#line 7654 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MAPDES(3);
                                                                //   7655        AREA=PC; ACCESS=3
#line 7655 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
#line 7655 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
                                                                //   7656        SNPTYPE=SNPTYPE+16_1C00
#line 7656 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = (((int)(SNPTYPE)) + (7168));
                                                                //   7657        ->OKEXIT
#line 7657 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7658  ADHOC(10):                              ! RECORD(=48)
#line 7658 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_10:;
                                                                //   7659        %IF RECTB=0 %THEN JJ=16_1800FFFF %AND STORECONST(RECTB,4,ADDR(JJ))
#line 7659 "regression-compile-tmp/nrimp10s-77.imp"
if (((RECTB) != (0))) goto L_0759;
#line 7659 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 402718719;
#line 7659 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&RECTB, 4, _imp_ADDR(&JJ));
#line 7659 "regression-compile-tmp/nrimp10s-77.imp"
L_0759:;
                                                                //   7660        %IF REG=ACCR %THEN %START
#line 7660 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_075a;
                                                                //   7661           CSEXP(ACCR,16_51)
#line 7661 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   7662           PF1(LUH,0,PC,RECTB)
#line 7662 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 4, RECTB);
                                                                //   7663        %FINISH %ELSE %START
#line 7663 "regression-compile-tmp/nrimp10s-77.imp"
goto L_075b;
#line 7663 "regression-compile-tmp/nrimp10s-77.imp"
L_075a:;
                                                                //   7664           CSEXP(BREG,16_51)
#line 7664 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(7, 81);
                                                                //   7665           PF1(LDTB,0,PC,RECTB)
#line 7665 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, RECTB);
                                                                //   7666           PF1(LDA,0,BREG,0)
#line 7666 "regression-compile-tmp/nrimp10s-77.imp"
PF1(114, 0, 7, 0);
                                                                //   7667        %FINISH
#line 7667 "regression-compile-tmp/nrimp10s-77.imp"
L_075b:;
                                                                //   7668        P=P+1
#line 7668 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7669        GRUSE(REG)=0
#line 7669 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 0;
                                                                //   7670        OLDI=0; ACC=16_FFFF
#line 7670 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = 0;
#line 7670 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 65535;
                                                                //   7671        SNPTYPE=SNPTYPE+16_1C00;          ! ADD MAP BITS
#line 7671 "regression-compile-tmp/nrimp10s-77.imp"
SNPTYPE = (((int)(SNPTYPE)) + (7168));
                                                                //   7672        ->OKEXIT
#line 7672 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7673  ADHOC(11):                              ! ARRAY(=49)
#line 7673 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_11:;
                                                                //   7674        CSEXP(ACCR,16_51);                ! ADDR(A(0)) TO ACCR
#line 7674 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, 81);
                                                                //   7675        ERRNO=22
#line 7675 "regression-compile-tmp/nrimp10s-77.imp"
ERRNO = 22;
                                                                //   7676        ->ERREXIT %UNLESS A(P+4)=4 %AND A(P+5)=1
#line 7676 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (4))) goto L_075c;
#line 7676 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (5))]) == (1))) goto L_075d;
#line 7676 "regression-compile-tmp/nrimp10s-77.imp"
L_075c:;
#line 7676 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 7676 "regression-compile-tmp/nrimp10s-77.imp"
L_075d:;
                                                                //   7677        REGISTER(ACCR)=1; OLINK(ACCR)=ADDR(R)
#line 7677 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 1;
#line 7677 "regression-compile-tmp/nrimp10s-77.imp"
OLINK[0] = _imp_ADDR(&R);
                                                                //   7678        R=0; R_PTYPE=16_51
#line 7678 "regression-compile-tmp/nrimp10s-77.imp"
R = (RD){ 0 } /* Assign 0's to all fields of record */;
#line 7678 "regression-compile-tmp/nrimp10s-77.imp"
R.PTYPE = 81;
                                                                //   7679        R_FLAG=9; R_XB=ACCR
#line 7679 "regression-compile-tmp/nrimp10s-77.imp"
R.FLAG = 9;
#line 7679 "regression-compile-tmp/nrimp10s-77.imp"
R.XB = 0;
                                                                //   7680        P=P+6; CNAME(12,0)
#line 7680 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (6));
#line 7680 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(12, 0);
                                                                //   7681        %IF R_FLAG#9 %THEN PF1(LSS,0,TOS,0)
#line 7681 "regression-compile-tmp/nrimp10s-77.imp"
if (((R.FLAG) == (9))) goto L_075e;
#line 7681 "regression-compile-tmp/nrimp10s-77.imp"
PF1(98, 0, 6, 0);
#line 7681 "regression-compile-tmp/nrimp10s-77.imp"
L_075e:;
                                                                //   7682        REGISTER(ACCR)=0
#line 7682 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
                                                                //   7683        ->ERREXIT %UNLESS A(P)=2 %AND ARR>0
#line 7683 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (2))) goto L_075f;
#line 7683 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) > (0))) goto L_0760;
#line 7683 "regression-compile-tmp/nrimp10s-77.imp"
L_075f:;
#line 7683 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 7683 "regression-compile-tmp/nrimp10s-77.imp"
L_0760:;
                                                                //   7684        P=P+2
#line 7684 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   7685        CREATE AH(0)
#line 7685 "regression-compile-tmp/nrimp10s-77.imp"
CREATEAH(0);
                                                                //   7686        %RETURN
#line 7686 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7687  ADHOC(13):                              ! EVENTINF(=33) & EVENTLINE
#line 7687 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_13:;
                                                                //   7688        D=ONINF(LEVEL)
#line 7688 "regression-compile-tmp/nrimp10s-77.imp"
D = ONINF[LEVEL];
                                                                //   7689        FAULT(16,SNNAME) %IF D=0
#line 7689 "regression-compile-tmp/nrimp10s-77.imp"
if (((D) != (0))) goto L_0761;
#line 7689 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(16, SNNAME);
#line 7689 "regression-compile-tmp/nrimp10s-77.imp"
L_0761:;
                                                                //   7690        D=D+4 %IF SNNO#33
#line 7690 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) == (33))) goto L_0762;
#line 7690 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)(D)) + (4));
#line 7690 "regression-compile-tmp/nrimp10s-77.imp"
L_0762:;
                                                                //   7691        GET IN ACC(ACCR,1,0,LNB,D)
#line 7691 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 2, D);
                                                                //   7692        GRUSE(ACCR)=0
#line 7692 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   7693        NEST=ACCR
#line 7693 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
                                                                //   7694        ->OKEXIT
#line 7694 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7695  ADHOC(14):                              ! LENGTHEN AND SHORTEN
#line 7695 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_14:;
                                                                //   7696        D=(SNNO&3)*8
#line 7696 "regression-compile-tmp/nrimp10s-77.imp"
D = (((int)(((SNNO) & (3)))) * (8));
                                                                //   7697        CSEXP(ACCR,16_62517261>>D&255)
#line 7697 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, (((int)((((unsigned int)(1649504865)) >> (D)))) & (255)));
                                                                //   7698        P=P+1; NEST=ACCR
#line 7698 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 7698 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
                                                                //   7699        ->OKEXIT
#line 7699 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
                                                                //   7700  ADHOC(15):                              ! PPROFILE(IGNORED UNLESS PARM SET)
#line 7700 "regression-compile-tmp/nrimp10s-77.imp"
sw21_ADHOC_15:;
                                                                //   7701        PPJ(0,22) %UNLESS PARMPROF=0
#line 7701 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMPROF) == (0))) goto L_0763;
#line 7701 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 22);
#line 7701 "regression-compile-tmp/nrimp10s-77.imp"
L_0763:;
                                                                //   7702  OKEXIT:                                 ! NORMAL EXIT
#line 7702 "regression-compile-tmp/nrimp10s-77.imp"
U_102e:;
                                                                //   7703        PTYPE=SNPTYPE; UNPACK
#line 7703 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = SNPTYPE;
#line 7703 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   7704        %RETURN
#line 7704 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7705  ERREXIT:                                ! ERROR EXIT
#line 7705 "regression-compile-tmp/nrimp10s-77.imp"
U_1028:;
                                                                //   7706        FAULT(ERRNO,SNNAME)
#line 7706 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(ERRNO, SNNAME);
                                                                //   7707        BASE=0; DISP=0; ACCESS=0; AREA=0
#line 7707 "regression-compile-tmp/nrimp10s-77.imp"
BASE = 0;
#line 7707 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 7707 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 7707 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
                                                                //   7708        P=PIN+2; SKIP APP
#line 7708 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(PIN)) + (2));
#line 7708 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   7709        P=P-1; %RETURN
#line 7709 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (1));
#line 7709 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   7710  %INTEGERFN OPTMAP
#line 7710 "regression-compile-tmp/nrimp10s-77.imp"
int OPTMAP( void )
#line 7710 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7711  !***********************************************************************
                                                                //   7712  !*       LOOK FOR EXPRESSION LIKE INTEGER(ADDR(X)) AND AVOID USING DR  *
                                                                //   7713  !***********************************************************************
                                                                //   7714  %INTEGER VARNAME,REXP,PP,CVAL,OP,XYNB
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int VARNAME;
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int REXP;
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int CVAL;
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int OP;
#line 7714 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
                                                                //   7715           %IF 3<=Z<=4 %OR SNNO=42 %OR SNNO=32 %OR SNNO=61 %THEN %RESULT=0
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (Z))) || (((Z) <= (4)))) goto L_0765;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
L_0764:;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) == (42))) goto L_0765;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) == (32))) goto L_0765;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
if (((SNNO) != (61))) goto L_0766;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
L_0765:;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7715 "regression-compile-tmp/nrimp10s-77.imp"
L_0766:;
                                                                //   7716           PP=P+2; REXP=FROM AR2(PP)+PP;  ! TO REST OF EXP
#line 7716 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(P)) + (2));
#line 7716 "regression-compile-tmp/nrimp10s-77.imp"
REXP = (((int)(FROMAR2(PP))) + (PP));
                                                                //   7717           VARNAME=FROM AR2(PP+4);             ! SHOULD BE ADDR
#line 7717 "regression-compile-tmp/nrimp10s-77.imp"
VARNAME = FROMAR2((((int)(PP)) + (4)));
                                                                //   7718           %RESULT=0 %UNLESS A(PP+2)=4 %AND A(PP+3)=1
#line 7718 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PP)) + (2))]) != (4))) goto L_0767;
#line 7718 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PP)) + (3))]) == (1))) goto L_0768;
#line 7718 "regression-compile-tmp/nrimp10s-77.imp"
L_0767:;
#line 7718 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7718 "regression-compile-tmp/nrimp10s-77.imp"
L_0768:;
                                                                //   7719           COPY TAG(VARNAME);             ! CHECK IT WAS ADDR
#line 7719 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(VARNAME);
                                                                //   7720           ->WASADR %IF PTYPE=SNPT %AND K=14 %AND A(PP+6)=1
#line 7720 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_0769;
#line 7720 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) != (14))) goto L_0769;
#line 7720 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PP)) + (6))]) != (1))) goto L_0769;
#line 7720 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1050;
#line 7720 "regression-compile-tmp/nrimp10s-77.imp"
L_0769:;
                                                                //   7721           ->WASLOC %IF PTYPE&16_FBFF=16_51 %AND A(PP+6)=2=A(PP+7)
#line 7721 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (64511))) != (81))) goto L_076a;
#line 7721 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(PP)) + (6))]) != (2))) || (((2) != (A[(((int)(PP)) + (7))])))) goto L_076a;
#line 7721 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1051;
#line 7721 "regression-compile-tmp/nrimp10s-77.imp"
L_076a:;
                                                                //   7722           %RESULT=0
#line 7722 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   7723  WASADR:  PP=PP+10
#line 7723 "regression-compile-tmp/nrimp10s-77.imp"
U_1050:;
#line 7723 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(PP)) + (10));
                                                                //   7724           %RESULT=0 %UNLESS A(PP)=4 %AND A(PP+1)=1 %AND A(PP+4)=2=A(PP+5) %AND A(PP+6)=2=A(PP+7) %AND A(PP+8)=2
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[PP]) != (4))) goto L_076b;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PP)) + (1))]) != (1))) goto L_076b;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(PP)) + (4))]) != (2))) || (((2) != (A[(((int)(PP)) + (5))])))) goto L_076b;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
if ((((A[(((int)(PP)) + (6))]) != (2))) || (((2) != (A[(((int)(PP)) + (7))])))) goto L_076b;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(PP)) + (8))]) == (2))) goto L_076c;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
L_076b:;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7724 "regression-compile-tmp/nrimp10s-77.imp"
L_076c:;
                                                                //   7725           VARNAME=FROM AR2(PP+2); COPY TAG(VARNAME)
#line 7725 "regression-compile-tmp/nrimp10s-77.imp"
VARNAME = FROMAR2((((int)(PP)) + (2)));
#line 7725 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(VARNAME);
                                                                //   7726           %RESULT=0 %UNLESS PTYPE&16_FF0C=0
#line 7726 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (65292))) == (0))) goto L_076d;
#line 7726 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7726 "regression-compile-tmp/nrimp10s-77.imp"
L_076d:;
                                                                //   7727           %IF A(REXP)=2 %THEN P=REXP+2 %ELSE %START
#line 7727 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[REXP]) != (2))) goto L_076e;
#line 7727 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(REXP)) + (2));
#line 7727 "regression-compile-tmp/nrimp10s-77.imp"
goto L_076f;
#line 7727 "regression-compile-tmp/nrimp10s-77.imp"
L_076e:;
                                                                //   7728              OP=A(REXP+1)
#line 7728 "regression-compile-tmp/nrimp10s-77.imp"
OP = A[(((int)(REXP)) + (1))];
                                                                //   7729              %RESULT=0 %UNLESS 1<=OP<=2 %AND A(REXP+2)=2 %AND A(REXP+3)=16_41 %AND A(REXP+6)=2
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (OP))) || (((OP) > (2)))) goto L_0770;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (2))]) != (2))) goto L_0770;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (3))]) != (65))) goto L_0770;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (6))]) == (2))) goto L_0771;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
L_0770:;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7729 "regression-compile-tmp/nrimp10s-77.imp"
L_0771:;
                                                                //   7730              CVAL=FROM AR2(REXP+4)
#line 7730 "regression-compile-tmp/nrimp10s-77.imp"
CVAL = FROMAR2((((int)(REXP)) + (4)));
                                                                //   7731              %IF OP=1 %THEN K=K+CVAL %ELSE K=K-CVAL
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
if (((OP) != (1))) goto L_0772;
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) + (CVAL));
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0773;
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
L_0772:;
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) - (CVAL));
#line 7731 "regression-compile-tmp/nrimp10s-77.imp"
L_0773:;
                                                                //   7732              %RESULT=0 %IF K<0
#line 7732 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) >= (0))) goto L_0774;
#line 7732 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7732 "regression-compile-tmp/nrimp10s-77.imp"
L_0774:;
                                                                //   7733              P=REXP+8
#line 7733 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(REXP)) + (8));
                                                                //   7734           %FINISH
#line 7734 "regression-compile-tmp/nrimp10s-77.imp"
L_076f:;
                                                                //   7735           BASE=I
#line 7735 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
                                                                //   7736           DISP=K; AREA=-1; ACCESS=0
#line 7736 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
#line 7736 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 7736 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   7737           AREA=AREA CODE
#line 7737 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
                                                                //   7738           %RESULT=1
#line 7738 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   7739  
                                                                //   7740  WASLOC:                                 ! FORM INTEGER(NAME+CONST)
#line 7740 "regression-compile-tmp/nrimp10s-77.imp"
U_1051:;
                                                                //   7741           CVAL=0
#line 7741 "regression-compile-tmp/nrimp10s-77.imp"
CVAL = 0;
                                                                //   7742           %IF A(REXP)=2 %THEN PP=REXP+2 %AND ->FETCH
#line 7742 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[REXP]) != (2))) goto L_0775;
#line 7742 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(REXP)) + (2));
#line 7742 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1052;
#line 7742 "regression-compile-tmp/nrimp10s-77.imp"
L_0775:;
                                                                //   7743           %RESULT=0 %UNLESS A(REXP+1)=1 %AND A(REXP+2)=2
#line 7743 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (1))]) != (1))) goto L_0776;
#line 7743 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (2))]) == (2))) goto L_0777;
#line 7743 "regression-compile-tmp/nrimp10s-77.imp"
L_0776:;
#line 7743 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7743 "regression-compile-tmp/nrimp10s-77.imp"
L_0777:;
                                                                //   7744           %IF A(REXP+3)=16_41 %AND A(REXP+6)=2 %THEN CVAL=FROM AR2(REXP+4) %AND PP=REXP+8 %AND ->FETCH
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (3))]) != (65))) goto L_0778;
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (6))]) != (2))) goto L_0778;
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
CVAL = FROMAR2((((int)(REXP)) + (4)));
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(REXP)) + (8));
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1052;
#line 7744 "regression-compile-tmp/nrimp10s-77.imp"
L_0778:;
                                                                //   7745           %IF A(REXP+3)=16_51 %AND A(REXP+8)=2 %THEN CVAL=FROM AR4(REXP+4) %AND PP=REXP+10 %AND ->FETCH
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (3))]) != (81))) goto L_0779;
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(REXP)) + (8))]) != (2))) goto L_0779;
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
CVAL = FROMAR4((((int)(REXP)) + (4)));
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
PP = (((int)(REXP)) + (10));
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1052;
#line 7745 "regression-compile-tmp/nrimp10s-77.imp"
L_0779:;
                                                                //   7746           %RESULT=0
#line 7746 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   7747  FETCH:   %RESULT=0 %UNLESS CVAL&3=0 %AND CVAL>>20=0;! MAX FOR XNB+N
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
U_1052:;
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CVAL) & (3))) != (0))) goto L_077a;
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(CVAL)) >> (20)))) == (0))) goto L_077b;
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
L_077a:;
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 7747 "regression-compile-tmp/nrimp10s-77.imp"
L_077b:;
                                                                //   7748           XYNB=XORYNB(9,VARNAME)
#line 7748 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = XORYNB(9, VARNAME);
                                                                //   7749           %UNLESS GRUSE(XYNB)=9 %AND GRINF1(XYNB)=VARNAME %START
#line 7749 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[XYNB]) != (9))) goto L_077c;
#line 7749 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[XYNB]) == (VARNAME))) goto L_077d;
#line 7749 "regression-compile-tmp/nrimp10s-77.imp"
L_077c:;
                                                                //   7750              AREA=-1; BASE=I
#line 7750 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 7750 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
                                                                //   7751              PSORLF1(LDCODE(XYNB),2*NAM,AREA CODE,K)
#line 7751 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(LDCODE[XYNB], (((int)(2)) * (NAM)), AREACODE(), K);
                                                                //   7752              GRUSE(XYNB)=9; GRINF1(XYNB)=VARNAME
#line 7752 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[XYNB] = 9;
#line 7752 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[XYNB] = VARNAME;
                                                                //   7753           %FINISH
#line 7753 "regression-compile-tmp/nrimp10s-77.imp"
L_077d:;
                                                                //   7754           P=PP; AREA=XYNB
#line 7754 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
#line 7754 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
                                                                //   7755           ACCESS=0; DISP=CVAL
#line 7755 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 7755 "regression-compile-tmp/nrimp10s-77.imp"
DISP = CVAL;
                                                                //   7756           %RESULT=1
#line 7756 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   7757  %END
#line 7757 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block OPTMAP at level 6
                                                                //   7758           %ROUTINE RTOS(%INTEGER REG)
#line 7758 "regression-compile-tmp/nrimp10s-77.imp"
void RTOS( int REG )
#line 7758 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7759  !***********************************************************************
                                                                //   7760  !*       PLANTS CODE TO CONVERT A SYMBOL IN ACC TO A ONE               *
                                                                //   7761  !*       CHARACTER STRING IN A TEMPORARARY VARIABLE.                   *
                                                                //   7762  !***********************************************************************
                                                                //   7763           %INTEGER KK
#line 7763 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
                                                                //   7764           GET WSP(KK,1);               ! GET 1 WORD WK AREA
#line 7764 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&KK, 1);
                                                                //   7765           STRINGL=1; DISP=KK+2
#line 7765 "regression-compile-tmp/nrimp10s-77.imp"
STRINGL = 1;
#line 7765 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(KK)) + (2));
                                                                //   7766           PF1(OR,0,0,256)
#line 7766 "regression-compile-tmp/nrimp10s-77.imp"
PF1(140, 0, 0, 256);
                                                                //   7767           PSF1(ST,1,KK)
#line 7767 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, KK);
                                                                //   7768           GET IN ACC(REG,1,0,LNB,PTR OFFSET(RBASE))
#line 7768 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, 2, PTROFFSET(RBASE));
                                                                //   7769           %IF REG=BREG %THEN KK=ADB %ELSE KK=IAD
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_077e;
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
KK = 32;
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
goto L_077f;
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
L_077e:;
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
KK = 224;
#line 7769 "regression-compile-tmp/nrimp10s-77.imp"
L_077f:;
                                                                //   7770           PSF1(KK,0,DISP)
#line 7770 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(KK, 0, DISP);
                                                                //   7771           GRUSE(BREG)=0
#line 7771 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   7772           %END
#line 7772 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RTOS at level 6
                                                                //   7773           %END;                        ! OF ROUTINE CSNAME
#line 7773 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSNAME at level 5
                                                                //   7774  %ROUTINE CANAME(%INTEGER ARRP,BS,DP)
#line 7774 "regression-compile-tmp/nrimp10s-77.imp"
void CANAME( int ARRP, int BS, int DP )
#line 7774 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7775  !***********************************************************************
                                                                //   7776  !*       BS & DP DEFINE THE POSITION OF THE ARRAY HEAD                 * 
                                                                //   7777  !*       ARRP=1 FOR ARRAYS,2 FOR VECTORS,3 FOR ARRAYS IN RECORDS       *
                                                                //   7778  !*       BASIC DISP = DISPMNT OF A(0) FOR VECTORS OR ARRAYS IN RECORDS *
                                                                //   7779  !***********************************************************************
                                                                //   7780  %INTEGER HEAD1,HEAD2,HEAD3,NOPS,PTYPEP,KK,PP,JJ,SOLDI,TYPEP,ARRNAME,Q,PRECP,ELSIZE,NAMINF,BOT1,BOT2,BOT3,DVD,VMYOP
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD1;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD2;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int HEAD3;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int NOPS;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int PTYPEP;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int SOLDI;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int ARRNAME;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int ELSIZE;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int NAMINF;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int BOT1;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int BOT2;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int BOT3;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int DVD;
#line 7780 "regression-compile-tmp/nrimp10s-77.imp"
int VMYOP;
                                                                //   7781        PP=P; TYPEP=TYPE
#line 7781 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 7781 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
                                                                //   7782        JJ=J; PTYPEP=PTYPE; PRECP=PREC; SOLDI=OLDI
#line 7782 "regression-compile-tmp/nrimp10s-77.imp"
JJ = J;
#line 7782 "regression-compile-tmp/nrimp10s-77.imp"
PTYPEP = PTYPE;
#line 7782 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
#line 7782 "regression-compile-tmp/nrimp10s-77.imp"
SOLDI = OLDI;
                                                                //   7783        %IF TYPE<=2 %THEN ELSIZE=BYTES(PRECP) %ELSE ELSIZE=ACC
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0780;
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
ELSIZE = BYTES[PRECP];
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0781;
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
L_0780:;
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
ELSIZE = ACC;
#line 7783 "regression-compile-tmp/nrimp10s-77.imp"
L_0781:;
                                                                //   7784        DVD=SNDISP;                       ! LOCATION OF DV IF CONSTANT
#line 7784 "regression-compile-tmp/nrimp10s-77.imp"
DVD = SNDISP;
                                                                //   7785        ARRNAME=FROM AR2(P);              ! NAME OF ENTITY
#line 7785 "regression-compile-tmp/nrimp10s-77.imp"
ARRNAME = FROMAR2(P);
                                                                //   7786        NAMINF=TAGS(ARRNAME)
#line 7786 "regression-compile-tmp/nrimp10s-77.imp"
NAMINF = TAGS[ARRNAME];
                                                                //   7787        FAULT(29,ARRNAME) %IF ARR=3;      ! ARRAYFORMAT USED AS ARRAY
#line 7787 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (3))) goto L_0782;
#line 7787 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(29, ARRNAME);
#line 7787 "regression-compile-tmp/nrimp10s-77.imp"
L_0782:;
                                                                //   7788        NAMINF=-2 %AND DVD=0 %IF ARRP>2;  ! ARRAYS IN RECORDS 
#line 7788 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARRP) <= (2))) goto L_0783;
#line 7788 "regression-compile-tmp/nrimp10s-77.imp"
NAMINF = (-2);
#line 7788 "regression-compile-tmp/nrimp10s-77.imp"
DVD = 0;
#line 7788 "regression-compile-tmp/nrimp10s-77.imp"
L_0783:;
                                                                //   7789        TEST APP(Q);                      ! COUNT NO OF SUBSCRIPTS
#line 7789 "regression-compile-tmp/nrimp10s-77.imp"
TESTAPP(&Q);
                                                                //   7790  !
                                                                //   7791  ! CHECK CORRECT NO OF SUBSCRIPTS PROVIDED. HOWEVER ENTITIES DECLARED
                                                                //   7792  ! AS %<TYPE>ARRAYNAME HAVE NO DIMENSION . THIS SECTION SETS THE
                                                                //   7793  ! DIMENSION FROM THE FIRST USE OF THE NAME.
                                                                //   7794  !
                                                                //   7795        %IF JJ=0 %THEN %START;            ! 0 DIMENSIONS = NOT KNOWN
#line 7795 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (0))) goto L_0784;
                                                                //   7796           REPLACE1(TCELL,FROM1(TCELL)!Q);! DIMSN IS BOTTOM 4 BITS OF TAG
#line 7796 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE1(TCELL, ((FROM1(TCELL)) | (Q)));
                                                                //   7797           JJ=Q
#line 7797 "regression-compile-tmp/nrimp10s-77.imp"
JJ = Q;
                                                                //   7798        %FINISH
#line 7798 "regression-compile-tmp/nrimp10s-77.imp"
L_0784:;
                                                                //   7799        %IF JJ=Q#0 %THEN %START;          ! IN LINE CODE
#line 7799 "regression-compile-tmp/nrimp10s-77.imp"
if ((((JJ) != (Q))) || (((Q) == (0)))) goto L_0785;
                                                                //   7800  !
                                                                //   7801  ! FOR IN-LINE CODE WE SET UP A CHAIN OF REVERSE POLISH OPERATIONS TO
                                                                //   7802  ! EVALUATE THE VARIOUS SUBSCRIPTS,MULTIPLY BY THE MULTIPLIERS AND
                                                                //   7803  ! ADD THEM TOGETHER.
                                                                //   7804  !
                                                                //   7805           NOPS=0;HEAD1=0;HEAD2=0;HEAD3=0;! CLEAR LISTHEADS
#line 7805 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = 0;
#line 7805 "regression-compile-tmp/nrimp10s-77.imp"
HEAD1 = 0;
#line 7805 "regression-compile-tmp/nrimp10s-77.imp"
HEAD2 = 0;
#line 7805 "regression-compile-tmp/nrimp10s-77.imp"
HEAD3 = 0;
                                                                //   7806           BOT1=0; BOT3=0
#line 7806 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = 0;
#line 7806 "regression-compile-tmp/nrimp10s-77.imp"
BOT3 = 0;
                                                                //   7807  !
                                                                //   7808  ! NOW PROCESS THE SUBSCRIPTS CALLINR TORP TO CONVERT THE EXPRESSIONS
                                                                //   7809  ! TO REVERSE POLISH AND ADDING THE EXTRA OPERATIONS.
                                                                //   7810  !
                                                                //   7811           P=PP+3
#line 7811 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(PP)) + (3));
                                                                //   7812           %CYCLE KK=1,1,JJ;                ! THROUGH THE SUBSCRIPTS
#line 7812 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = JJ; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, JJ");
KK -= _increment; _control -= _increment;
L_0786:;
if (KK == _final) goto L_0787;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   7813              P=P+3; BOT2=0
#line 7813 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 7813 "regression-compile-tmp/nrimp10s-77.imp"
BOT2 = 0;
                                                                //   7814              TORP(HEAD2,BOT2,NOPS);      ! SUBSCRIPT TO REVERSE POLISH
#line 7814 "regression-compile-tmp/nrimp10s-77.imp"
TORP(&HEAD2, &BOT2, &NOPS);
                                                                //   7815              P=P+1
#line 7815 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   7816  !
                                                                //   7817  ! MULTIPLIERS ARE DOPE VECTOR ITEMS (OPTYPE=3)
                                                                //   7818  !
                                                                //   7819  ! N SUBSCRIPTS WILL REQUIRE (N-1) MULTIPLICATIONS AND ADDITIONS
                                                                //   7820  !
                                                                //   7821              NOPS=(NOPS+1)!1<<24;          ! DVM AS '*'
#line 7821 "regression-compile-tmp/nrimp10s-77.imp"
NOPS = (((((int)(NOPS)) + (1))) | (((1) << (24))));
                                                                //   7822              PUSH(HEAD3,33,PTYPEP<<16!ARRNAME,ELSIZE);! DOPE VECTOR MULTIPLY
#line 7822 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD3, 33, ((((PTYPEP) << (16))) | (ARRNAME)), ELSIZE);
                                                                //   7823              BOT3=HEAD3 %IF BOT3=0
#line 7823 "regression-compile-tmp/nrimp10s-77.imp"
if (((BOT3) != (0))) goto L_0789;
#line 7823 "regression-compile-tmp/nrimp10s-77.imp"
BOT3 = HEAD3;
#line 7823 "regression-compile-tmp/nrimp10s-77.imp"
L_0789:;
                                                                //   7824              VMYOP=KK<<24!JJ<<16!DVD
#line 7824 "regression-compile-tmp/nrimp10s-77.imp"
VMYOP = ((((((KK) << (24))) | (((JJ) << (16))))) | (DVD));
                                                                //   7825              PUSH(HEAD3,1<<16,VMYOP,BS<<18!DP);! MULTIPLIER
#line 7825 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&HEAD3, ((1) << (16)), VMYOP, ((((BS) << (18))) | (DP)));
                                                                //   7826              %IF HEAD1=0 %THEN HEAD1=HEAD2 %ELSE ASLIST(BOT1)_LINK=HEAD2
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
if (((HEAD1) != (0))) goto L_078a;
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
HEAD1 = HEAD2;
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
goto L_078b;
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
L_078a:;
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = HEAD2;
#line 7826 "regression-compile-tmp/nrimp10s-77.imp"
L_078b:;
                                                                //   7827              BOT1=BOT2; HEAD2=0
#line 7827 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = BOT2;
#line 7827 "regression-compile-tmp/nrimp10s-77.imp"
HEAD2 = 0;
                                                                //   7828           %REPEAT
#line 7828 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0786;
#line 7828 "regression-compile-tmp/nrimp10s-77.imp"
L_0787:;
                                                                //   7829  !
                                                                //   7830  ! ADD OPERATORS TO THE BACK OF OPERANDS AND EVALUATE
                                                                //   7831  !
                                                                //   7832           ASLIST(BOT1)_LINK=HEAD3
#line 7832 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = HEAD3;
                                                                //   7833           BOT1=BOT3
#line 7833 "regression-compile-tmp/nrimp10s-77.imp"
BOT1 = BOT3;
                                                                //   7834           EXPOP(HEAD1,BREG,NOPS,16_251);    ! EVALUATE THE REVERSE POLISH LIST
#line 7834 "regression-compile-tmp/nrimp10s-77.imp"
EXPOP(HEAD1, 7, NOPS, 593);
                                                                //   7835                                         ! CONSTANT ACCEPTABLE AS RESULT
                                                                //   7836           ASLIST(BOT1)_LINK=ASL
#line 7836 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[BOT1].LINK = ASL;
                                                                //   7837           ASL=HEAD1
#line 7837 "regression-compile-tmp/nrimp10s-77.imp"
ASL = HEAD1;
                                                                //   7838           BASE=BS; DISP=DP; ACCESS=3; AREA=-1
#line 7838 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
#line 7838 "regression-compile-tmp/nrimp10s-77.imp"
DISP = DP;
#line 7838 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 7838 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   7839           %IF EXPOPND_FLAG<=1 %START;    ! EVALUATED TO CONSTANT
#line 7839 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPOPND.FLAG) > (1))) goto L_078c;
                                                                //   7840              NUMMOD=EXPOPND_D;           ! VALUE OF CONSTANT
#line 7840 "regression-compile-tmp/nrimp10s-77.imp"
NUMMOD = EXPOPND.D;
                                                                //   7841              %IF NUMMOD<0 %THEN GETINACC(BREG,1,0,0,NUMMOD) %ELSE ACCESS=1;                ! DESCPTR WITH CONST MODIFIER
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
if (((NUMMOD) >= (0))) goto L_078d;
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(7, 1, 0, 0, NUMMOD);
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
goto L_078e;
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
L_078d:;
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 7841 "regression-compile-tmp/nrimp10s-77.imp"
L_078e:;
                                                                //   7842           %FINISH
#line 7842 "regression-compile-tmp/nrimp10s-77.imp"
L_078c:;
                                                                //   7843        %FINISH %ELSE %START
#line 7843 "regression-compile-tmp/nrimp10s-77.imp"
goto L_078f;
#line 7843 "regression-compile-tmp/nrimp10s-77.imp"
L_0785:;
                                                                //   7844              %IF JJ>Q %THEN FAULT2(20,JJ-Q,ARRNAME) %ELSE FAULT2(21,Q-JJ,ARRNAME)
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) <= (Q))) goto L_0790;
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(20, (((int)(JJ)) - (Q)), ARRNAME);
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0791;
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
L_0790:;
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(21, (((int)(Q)) - (JJ)), ARRNAME);
#line 7844 "regression-compile-tmp/nrimp10s-77.imp"
L_0791:;
                                                                //   7845              P=P+2; SKIP APP
#line 7845 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 7845 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   7846              BASE=BS; DISP=0; ACCESS=3; AREA=-1
#line 7846 "regression-compile-tmp/nrimp10s-77.imp"
BASE = BS;
#line 7846 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 7846 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 7846 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   7847        %FINISH
#line 7847 "regression-compile-tmp/nrimp10s-77.imp"
L_078f:;
                                                                //   7848        ACC=ELSIZE
#line 7848 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ELSIZE;
                                                                //   7849        PTYPE=PTYPEP; UNPACK; J=JJ
#line 7849 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = PTYPEP;
#line 7849 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
#line 7849 "regression-compile-tmp/nrimp10s-77.imp"
J = JJ;
                                                                //   7850        OLDI=SOLDI;                       ! FOR NAME==A(EL) VALIDATION
#line 7850 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = SOLDI;
                                                                //   7851  %END;                                   ! OF ROUTINE CANAME
#line 7851 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CANAME at level 5
                                                                //   7852  %ROUTINE CNAME(%INTEGER Z, REG)
#line 7852 "regression-compile-tmp/nrimp10s-77.imp"
void CNAME( int Z, int REG )
#line 7852 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   7853  !***********************************************************************
                                                                //   7854  !*       THIS IS THE MAIN ROUTINE FOR PROCESSING NAMES.CANAME,CSNAME   *
                                                                //   7855  !*       AND CRNAME ARE ONLY CALLED FROM HERE,THE NAME (AND ANY PARAMS *
                                                                //   7856  !*       OR SUBNAMES) ARE ACCESSED BY P WHICH IS ADVANCED.             *
                                                                //   7857  !*       Z SPECIFIES ACTION AS FOLLOWS:-                               *
                                                                //   7858  !*       Z=0 COMPILE A ROUTINE CALL                                    *
                                                                //   7859  !*       Z=1 SET ACCESS,AREA AND DISP FOR A 'STORE' OPERATION          *
                                                                //   7860  !*       Z=2 FETCH NAME TO 'REG'                                       *
                                                                //   7861  !*       Z=3 SET DESCRIPTOR IN REG FOR PASSING BY NAME                 *
                                                                //   7862  !*       Z=4 SET 32 BIT ADDRESS OF NAME IN REG                         *
                                                                //   7863  !*       Z=5 DELAYED FETCH IF NAME SIMPLE ELSE AS Z=2                  *
                                                                //   7864  !*       Z=6 STORE 'REG' (CONTAINS POINTER) INTO POINTER VARIABLE      *
                                                                //   7865  !*       Z=7->11  NOT NOW USED                                         *
                                                                //   7866  !*       Z=12 SET BASE AND DISP TO POINT TO ARRAYHEAD                  *
                                                                //   7867  !*       Z=13 SET REG TO POINT TO 4 WORD ROUTINE DISCRIPTOR            *
                                                                //   7868  !*              (INTERNAL ROUTINES FIRST CREATE THE DISCRIPTOR)        *
                                                                //   7869  !*       Z=14 STORE 'REG' INTO A RECORD NAME VARIABLE                  *
                                                                //   7870  !*       Z=15 SET 'REG' TO POINT TO A RECORD                           *
                                                                //   7871  !*       Z=16 SET BASE AND DISP  FOR RECORD                            *
                                                                //   7872  !*                                                                     *
                                                                //   7873  !*       REG (WHERE APPROPRIATE) IS SET AS FOLLOWS:-                   *
                                                                //   7874  !*       >=0  A REGISTER                                               *
                                                                //   7875  !*       -1   MEANS CHOOSE ANY REGISTER                                *
                                                                //   7876  !*       IF A REGISTER IS CHOSEN THEN NEST IS SET WITH CHOICE          *
                                                                //   7877  !***********************************************************************
                                                                //   7878  %INTEGER JJ, JJJ, KK, RR, LEVELP, DISPP, NAMEP, PP, SAVESL, FNAME
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int RR;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int LEVELP;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int DISPP;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int NAMEP;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int SAVESL;
#line 7878 "regression-compile-tmp/nrimp10s-77.imp"
int FNAME;
                                                                //   7879  %SWITCH S, FUNNY(12:13), SW(0:8), MAP(0:3)
#line 7879 "regression-compile-tmp/nrimp10s-77.imp"
static int sw22_S_idx;
static const void * /*SWITCH*/ sw22_S[2] = { &&sw22_S_12, &&sw22_S_13,  };
#line 7879 "regression-compile-tmp/nrimp10s-77.imp"
static int sw23_FUNNY_idx;
static const void * /*SWITCH*/ sw23_FUNNY[2] = { &&sw23_FUNNY_12, &&sw23_FUNNY_13,  };
#line 7879 "regression-compile-tmp/nrimp10s-77.imp"
static int sw24_SW_idx;
static const void * /*SWITCH*/ sw24_SW[9] = { &&sw24_SW_0, &&sw24_SW_1, &&sw24_SW_2, &&sw24_SW_3, &&sw24_SW_4, &&sw24_SW_5, &&sw24_SW_6, &&sw24_SW_7, &&sw24_SW_8,  };
#line 7879 "regression-compile-tmp/nrimp10s-77.imp"
static int sw25_MAP_idx;
static const void * /*SWITCH*/ sw25_MAP[4] = { &&sw25_MAP_0, &&sw25_MAP_1, &&sw25_MAP_2, &&sw25_MAP_3,  };
                                                                //   7880           PP=P
#line 7880 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
                                                                //   7881           FNAME=A(P)<<8+A(P+1)
#line 7881 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = (((unsigned char)(((A[P]) << (8)))) + (A[(((int)(P)) + (1))]));
                                                                //   7882           %IF Z=1 %OR Z=6 %THEN STNAME=FNAME
#line 7882 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_0792;
#line 7882 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_0793;
#line 7882 "regression-compile-tmp/nrimp10s-77.imp"
L_0792:;
#line 7882 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = FNAME;
#line 7882 "regression-compile-tmp/nrimp10s-77.imp"
L_0793:;
                                                                //   7883           COPYTAG(FNAME)
#line 7883 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAME);
                                                                //   7884           %IF I=-1 %THEN %START
#line 7884 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != ((-1)))) goto L_0794;
                                                                //   7885              FAULT(16, FNAME)
#line 7885 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(16, FNAME);
                                                                //   7886              I=RLEVEL;  J=0;  K=FNAME
#line 7886 "regression-compile-tmp/nrimp10s-77.imp"
I = RLEVEL;
#line 7886 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
#line 7886 "regression-compile-tmp/nrimp10s-77.imp"
K = FNAME;
                                                                //   7887              KFORM=0; SNDISP=0; ACC=4
#line 7887 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = 0;
#line 7887 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = 0;
#line 7887 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 4;
                                                                //   7888              PTYPE=7;  STORE TAG(K, N)
#line 7888 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 7;
#line 7888 "regression-compile-tmp/nrimp10s-77.imp"
STORETAG(K, N);
                                                                //   7889              K=N;  N=N+4;  COPYTAG(FNAME);! SET USE BITS!
#line 7889 "regression-compile-tmp/nrimp10s-77.imp"
K = N;
#line 7889 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
#line 7889 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAME);
                                                                //   7890           %FINISH
#line 7890 "regression-compile-tmp/nrimp10s-77.imp"
L_0794:;
                                                                //   7891           SAVESL=ACC
#line 7891 "regression-compile-tmp/nrimp10s-77.imp"
SAVESL = ACC;
                                                                //   7892           JJ=J;  JJ=0 %IF JJ=15
#line 7892 "regression-compile-tmp/nrimp10s-77.imp"
JJ = J;
#line 7892 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (15))) goto L_0795;
#line 7892 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 0;
#line 7892 "regression-compile-tmp/nrimp10s-77.imp"
L_0795:;
                                                                //   7893           NAMEP=FNAME
#line 7893 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = FNAME;
                                                                //   7894           LEVELP=I;  DISPP=K
#line 7894 "regression-compile-tmp/nrimp10s-77.imp"
LEVELP = I;
#line 7894 "regression-compile-tmp/nrimp10s-77.imp"
DISPP = K;
                                                                //   7895           FAULT(29, FNAME) %IF LITL=1 %AND ROUT=0=NAM %AND (Z=1 %OR Z=3 %OR (Z=4 %AND TYPE<5 %AND ARR=0))
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((LITL) != (1))) goto L_0796;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if ((((ROUT) != (0))) || (((0) != (NAM)))) goto L_0796;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_0797;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (3))) goto L_0797;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (4))) goto L_0796;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) >= (5))) goto L_0796;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) != (0))) goto L_0796;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
L_0797:;
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(29, FNAME);
#line 7895 "regression-compile-tmp/nrimp10s-77.imp"
L_0796:;
                                                                //   7896           ->NOT SET %IF TYPE=7
#line 7896 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (7))) goto L_0798;
#line 7896 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
#line 7896 "regression-compile-tmp/nrimp10s-77.imp"
L_0798:;
                                                                //   7897           %IF (Z=0 %AND (ROUT#1 %OR 0#TYPE#6)) %OR (Z=13 %AND ROUT=0) %THEN FAULT2(27,0,FNAME) %AND ->NOT SET
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (0))) goto L_0799;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_079a;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) == (TYPE))) || (((TYPE) != (6)))) goto L_079a;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
L_0799:;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (13))) goto L_079b;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (0))) goto L_079b;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
L_079a:;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(27, 0, FNAME);
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
#line 7897 "regression-compile-tmp/nrimp10s-77.imp"
L_079b:;
                                                                //   7898           ->FUNNY(Z) %IF Z>=10
#line 7898 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) < (10))) goto L_079c;
#line 7898 "regression-compile-tmp/nrimp10s-77.imp"
sw23_FUNNY_idx = Z; if ((12 <= sw23_FUNNY_idx) && (sw23_FUNNY_idx <= 13)) goto *(sw23_FUNNY-12)[sw23_FUNNY_idx];  /* Bounds=12:13 */ else {
   /*_imp_signal(8, 2, sw23_FUNNY_idx);*/
   fprintf(stderr, "%%SWITCH index FUNNY(%d) not in range 12:13 at %s:%d\n",
           sw23_FUNNY_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 7898 "regression-compile-tmp/nrimp10s-77.imp"
L_079c:;
                                                                //   7899           ->RTCALL %IF ROUT=1
#line 7899 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_079d;
#line 7899 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1031;
#line 7899 "regression-compile-tmp/nrimp10s-77.imp"
L_079d:;
                                                                //   7900           ->SW(TYPE)
#line 7900 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_idx = TYPE; if ((0 <= sw24_SW_idx) && (sw24_SW_idx <= 8)) goto *sw24_SW[sw24_SW_idx]; else {
   /*_imp_signal(8, 2, sw24_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:8 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);
}
                                                                //   7901  SW(6):
#line 7901 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_6:;
                                                                //   7902  SW(4):                                  !RECORD FORMAT NAME
#line 7902 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_4:;
                                                                //   7903           FAULT2(5, 0, FNAME)
#line 7903 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(5, 0, FNAME);
                                                                //   7904  SW(7):
#line 7904 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_7:;
                                                                //   7905  NOT SET:                                ! NAME NOT SET
#line 7905 "regression-compile-tmp/nrimp10s-77.imp"
U_104f:;
                                                                //   7906           NEST=0;  BASE=I;  DISP=K;  ACCESS=0
#line 7906 "regression-compile-tmp/nrimp10s-77.imp"
NEST = 0;
#line 7906 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
#line 7906 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
#line 7906 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   7907           AREA=LNB; PTYPE=1;  UNPACK
#line 7907 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
#line 7907 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 1;
#line 7907 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   7908           P=P+2; SKIP APP;  ->CHKEN
#line 7908 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 7908 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 7908 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7909  FUNNY(12):                              ! SET BASE & DISP FOR ARRAYHEAD
#line 7909 "regression-compile-tmp/nrimp10s-77.imp"
sw23_FUNNY_12:;
                                                                //   7910           ->SW(3) %IF TYPE=3 %AND (ARR=0 %OR A(P+2)=1)
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_079e;
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_079f;
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (1))) goto L_079e;
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
L_079f:;
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_idx = 3; goto *sw24_SW[sw24_SW_idx]; 
#line 7910 "regression-compile-tmp/nrimp10s-77.imp"
L_079e:;
                                                                //   7911           %IF PTYPE=SNPT %THEN CSNAME(12,REG) %AND ->CHKEN
#line 7911 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_07a0;
#line 7911 "regression-compile-tmp/nrimp10s-77.imp"
CSNAME(12, REG);
#line 7911 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 7911 "regression-compile-tmp/nrimp10s-77.imp"
L_07a0:;
                                                                //   7912           %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_07a1;
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07a2;
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
L_07a1:;
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 7912 "regression-compile-tmp/nrimp10s-77.imp"
L_07a2:;
                                                                //   7913           ACCESS=0; BASE=I; DISP=K; AREA=-1
#line 7913 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 7913 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
#line 7913 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
#line 7913 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   7914  ADJUST HEAD:
#line 7914 "regression-compile-tmp/nrimp10s-77.imp"
U_1053:;
                                                                //   7915           %IF ARR=1=J %AND PARMARR=0=NAM %AND PARMCHK=0 %AND TYPE<=3 %START;             ! ADJUST DESR TO 1ST ELMNT
#line 7915 "regression-compile-tmp/nrimp10s-77.imp"
if ((((ARR) != (1))) || (((1) != (J)))) goto L_07a3;
#line 7915 "regression-compile-tmp/nrimp10s-77.imp"
if ((((PARMARR) != (0))) || (((0) != (NAM)))) goto L_07a3;
#line 7915 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_07a3;
#line 7915 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (3))) goto L_07a3;
                                                                //   7916              GET WSP(JJ,4)
#line 7916 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&JJ, 4);
                                                                //   7917              GET IN ACC(ACCR,4,ACCESS,AREA CODE,DISP)
#line 7917 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 4, ACCESS, AREACODE(), DISP);
                                                                //   7918              PSF1(ST,1,JJ)
#line 7918 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(72, 1, JJ);
                                                                //   7919              GET IN ACC(BREG,1,2,LNB,JJ+8);                          
#line 7919 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(7, 1, 2, 2, (((int)(JJ)) + (8)));
                                                                //   7920              %IF TYPE=3 %THEN KK=ACC %ELSE KK=BYTES(PREC)
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_07a4;
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
KK = ACC;
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07a5;
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
L_07a4:;
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
KK = BYTES[PREC];
#line 7920 "regression-compile-tmp/nrimp10s-77.imp"
L_07a5:;
                                                                //   7921              PSF1(MYB,0,KK) %UNLESS KK=1
#line 7921 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) == (1))) goto L_07a6;
#line 7921 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, KK);
#line 7921 "regression-compile-tmp/nrimp10s-77.imp"
L_07a6:;
                                                                //   7922              PSF1(LD,1,JJ)
#line 7922 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, JJ);
                                                                //   7923              PF1(INCA,0,BREG,0);         ! ADJUST DESCRPTR
#line 7923 "regression-compile-tmp/nrimp10s-77.imp"
PF1(20, 0, 7, 0);
                                                                //   7924              PSF1(STD,1,JJ)
#line 7924 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, JJ);
                                                                //   7925              GRUSE(DR)=0; GRUSE(ACCR)=0
#line 7925 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
#line 7925 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   7926              GRUSE(BREG)=0; AREA=LNB; DISP=JJ
#line 7926 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 7926 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
#line 7926 "regression-compile-tmp/nrimp10s-77.imp"
DISP = JJ;
                                                                //   7927           %FINISH
#line 7927 "regression-compile-tmp/nrimp10s-77.imp"
L_07a3:;
                                                                //   7928           ->CHKEN
#line 7928 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7929  S(12):                                  ! ARRAYS IN RECORDS BY NAME
#line 7929 "regression-compile-tmp/nrimp10s-77.imp"
sw22_S_12:;
                                                                //   7930           NAMEOP(1,ACCR,16,NAMEP);       ! Z=STORE TO UPDATE BASE&DISP
#line 7930 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(1, 0, 16, NAMEP);
                                                                //   7931           ->ADJUST HEAD
#line 7931 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1053;
                                                                //   7932  FUNNY(13):                              ! LOAD ADDR FOR RT-TYPE
#line 7932 "regression-compile-tmp/nrimp10s-77.imp"
sw23_FUNNY_13:;
                                                                //   7933           %IF PTYPE=SNPT %THEN CSNAME(Z,REG) %AND P=P+1 %AND->CHKEN
#line 7933 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_07a7;
#line 7933 "regression-compile-tmp/nrimp10s-77.imp"
CSNAME(Z, REG);
#line 7933 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 7933 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 7933 "regression-compile-tmp/nrimp10s-77.imp"
L_07a7:;
                                                                //   7934           DISP=MIDCELL; BASE=I
#line 7934 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MIDCELL;
#line 7934 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
                                                                //   7935           %IF NAM&1#0 %THEN %START
#line 7935 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NAM) & (1))) == (0))) goto L_07a8;
                                                                //   7936              AREA=-1
#line 7936 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   7937              GET IN ACC(REG,4,0,AREA CODE,DISP)
#line 7937 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 4, 0, AREACODE(), DISP);
                                                                //   7938           %FINISH %ELSE %START
#line 7938 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07a9;
#line 7938 "regression-compile-tmp/nrimp10s-77.imp"
L_07a8:;
                                                                //   7939              %IF J=14 %THEN %START;      ! EXTERNAL ROUTINE PASSED
#line 7939 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (14))) goto L_07aa;
                                                                //   7940                 GET IN ACC(REG,2,0,0,0); ! ZERO ENVIRONMENT
#line 7940 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 2, 0, 0, 0);
                                                                //   7941                 GET IN ACC(DR,2,0,SET XORYNB(-1,-1),DISP)
#line 7941 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, SETXORYNB((-1), (-1)), DISP);
                                                                //   7942  !               PSF1(MODD,0,0);          ! PROVOKE ESCAPE IF DYNAMIC
                                                                //   7943              %FINISH %ELSE %START
#line 7943 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07ab;
#line 7943 "regression-compile-tmp/nrimp10s-77.imp"
L_07aa:;
                                                                //   7944                 %IF BASE=0 %AND CPRMODE=2 %START;! IN FILE OF RTS
#line 7944 "regression-compile-tmp/nrimp10s-77.imp"
if (((BASE) != (0))) goto L_07ac;
#line 7944 "regression-compile-tmp/nrimp10s-77.imp"
if (((CPRMODE) != (2))) goto L_07ac;
                                                                //   7945                    PSF1(LD,1,12)
#line 7945 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 12);
                                                                //   7946                    PSF1(INCA,0,DISP) %UNLESS DISP=0
#line 7946 "regression-compile-tmp/nrimp10s-77.imp"
if (((DISP) == (0))) goto L_07ad;
#line 7946 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, DISP);
#line 7946 "regression-compile-tmp/nrimp10s-77.imp"
L_07ad:;
                                                                //   7947                    GET IN ACC(ACCR,2,0,0,0)
#line 7947 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 2, 0, 0, 0);
                                                                //   7948                 %FINISH %ELSE %START
#line 7948 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07ae;
#line 7948 "regression-compile-tmp/nrimp10s-77.imp"
L_07ac:;
                                                                //   7949                    PSF1(JLK,0,1);           ! GET PC TO TOS
#line 7949 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(28, 0, 1);
                                                                //   7950                    RTJUMP(LDA,ASLIST(TAGS(FNAME))_S2);! ADD N TO POINT @ ENTRY
#line 7950 "regression-compile-tmp/nrimp10s-77.imp"
RTJUMP(114, &ASLIST[TAGS[FNAME]].S2);
                                                                //   7951                    PF1(INCA,0,TOS,0);       ! AND TO DES REG
#line 7951 "regression-compile-tmp/nrimp10s-77.imp"
PF1(20, 0, 6, 0);
                                                                //   7952                    JJ=16_E0000001
#line 7952 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (-536870911);
                                                                //   7953                    STORE CONST(JJJ,4,ADDR(JJ))
#line 7953 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&JJJ, 4, _imp_ADDR(&JJ));
                                                                //   7954                    PF1(LDTB,0,PC,JJJ)
#line 7954 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, JJJ);
                                                                //   7955                    GET IN ACC(ACCR,1,0,LNB,PTR OFFSET(BASE))
#line 7955 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 2, PTROFFSET(BASE));
                                                                //   7956                    JJ=M'IMP'
#line 7956 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 4803920;
                                                                //   7957                    STORE CONST(JJJ,4,ADDR(JJ))
#line 7957 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&JJJ, 4, _imp_ADDR(&JJ));
                                                                //   7958                    PF1(LUH,0,PC,JJJ);    ! SPARE FIELD IN RT HDDR
#line 7958 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 4, JJJ);
                                                                //   7959                 %FINISH
#line 7959 "regression-compile-tmp/nrimp10s-77.imp"
L_07ae:;
                                                                //   7960              %FINISH
#line 7960 "regression-compile-tmp/nrimp10s-77.imp"
L_07ab:;
                                                                //   7961              PF1(STD,0,TOS,0);           ! DR TO TOP OF STACK
#line 7961 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   7962              PF1(LUH,0,TOS,0);           ! AND TO TOP 64 BITS OF ACC
#line 7962 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 6, 0);
                                                                //   7963              GRUSE(DR)=0
#line 7963 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   7964           %FINISH
#line 7964 "regression-compile-tmp/nrimp10s-77.imp"
L_07a9:;
                                                                //   7965           %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP; ->CHKEN
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_07af;
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07b0;
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
L_07af:;
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
L_07b0:;
#line 7965 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7966  SW(3):                                 ! RECORD
#line 7966 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_3:;
                                                                //   7967           CRNAME(Z, REG, 2*NAM, I, -1, K, NAMEP)
#line 7967 "regression-compile-tmp/nrimp10s-77.imp"
CRNAME(Z, REG, (((int)(2)) * (NAM)), I, (-1), K, &NAMEP);
                                                                //   7968           ->S(Z) %IF Z>=10
#line 7968 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) < (10))) goto L_07b1;
#line 7968 "regression-compile-tmp/nrimp10s-77.imp"
sw22_S_idx = Z; if ((12 <= sw22_S_idx) && (sw22_S_idx <= 13)) goto *(sw22_S-12)[sw22_S_idx];  /* Bounds=12:13 */ else {
   /*_imp_signal(8, 2, sw22_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 12:13 at %s:%d\n",
           sw22_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 7968 "regression-compile-tmp/nrimp10s-77.imp"
L_07b1:;
                                                                //   7969           STNAME=NAMEP %IF Z=1 %OR Z=6
#line 7969 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_07b2;
#line 7969 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_07b3;
#line 7969 "regression-compile-tmp/nrimp10s-77.imp"
L_07b2:;
#line 7969 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = NAMEP;
#line 7969 "regression-compile-tmp/nrimp10s-77.imp"
L_07b3:;
                                                                //   7970           ->STRINREC %IF TYPE=5 %AND Z#6
#line 7970 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07b4;
#line 7970 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (6))) goto L_07b4;
#line 7970 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1029;
#line 7970 "regression-compile-tmp/nrimp10s-77.imp"
L_07b4:;
                                                                //   7971           ->NOT SET %IF TYPE=7
#line 7971 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (7))) goto L_07b5;
#line 7971 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
#line 7971 "regression-compile-tmp/nrimp10s-77.imp"
L_07b5:;
                                                                //   7972           NAMEOP(Z,REG,BYTES(PREC),NAMEP)
#line 7972 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(Z, REG, BYTES[PREC], NAMEP);
                                                                //   7973           ->CHKEN
#line 7973 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7974  SW(5):                                  ! TYPE =STRING
#line 7974 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_5:;
                                                                //   7975  !
                                                                //   7976  ! ALL STRING OPERATIONS ARE ON THE RELEVANT DESCRIPTOR. Z=2 &Z=5
                                                                //   7977  ! REQUIRE A CURRENT LENGTH(IE MODIFIED) DESCRIPTOR. OTHER OPERATIONS
                                                                //   7978  ! REQUIRE THE MAX LENGTH DESCRIPTOR (IE UNMODIFIED HEADER)
                                                                //   7979  !
                                                                //   7980           %IF Z=6 %THEN ->SW(1)
#line 7980 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_07b6;
#line 7980 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_idx = 1; goto *sw24_SW[sw24_SW_idx]; 
#line 7980 "regression-compile-tmp/nrimp10s-77.imp"
L_07b6:;
                                                                //   7981           ->STRARR %IF ARR>=1
#line 7981 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) < (1))) goto L_07b7;
#line 7981 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1054;
#line 7981 "regression-compile-tmp/nrimp10s-77.imp"
L_07b7:;
                                                                //   7982           %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_07b8;
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07b9;
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
L_07b8:;
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 7982 "regression-compile-tmp/nrimp10s-77.imp"
L_07b9:;
                                                                //   7983           BASE=I; ACCESS=2; AREA=-1; DISP=K
#line 7983 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
#line 7983 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 7983 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 7983 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
                                                                //   7984  SNINREC:         %IF Z=1 %THEN Z=3;     ! STRINGNAMES IN RECORDS
#line 7984 "regression-compile-tmp/nrimp10s-77.imp"
U_1026:;
#line 7984 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (1))) goto L_07ba;
#line 7984 "regression-compile-tmp/nrimp10s-77.imp"
Z = 3;
#line 7984 "regression-compile-tmp/nrimp10s-77.imp"
L_07ba:;
                                                                //   7985           %IF Z=3 %OR Z=4 %THEN NAMEOP(Z,REG,8,-1) %AND ->CHKEN
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (3))) goto L_07bb;
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (4))) goto L_07bc;
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
L_07bb:;
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(Z, REG, 8, (-1));
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 7985 "regression-compile-tmp/nrimp10s-77.imp"
L_07bc:;
                                                                //   7986           %IF ACCESS=2 %AND PARMCHK=0 %AND REGISTER(DR)=0 %START
#line 7986 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (2))) goto L_07bd;
#line 7986 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_07bd;
#line 7986 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[1]) != (0))) goto L_07bd;
                                                                //   7987              PSORLF1(LDB,2,AREA CODE,DISP);! LOAD BND & DR IN 1 INSTRN
#line 7987 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(118, 2, AREACODE(), DISP);
                                                                //   7988              GRUSE(DR)=0
#line 7988 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   7989              %IF REG=ACCR %THEN COPY DR
#line 7989 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_07be;
#line 7989 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 7989 "regression-compile-tmp/nrimp10s-77.imp"
L_07be:;
                                                                //   7990              ->CHKEN
#line 7990 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7991           %FINISH
#line 7991 "regression-compile-tmp/nrimp10s-77.imp"
L_07bd:;
                                                                //   7992           NAMEOP(3,DR,8,-1)
#line 7992 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(3, 1, 8, (-1));
                                                                //   7993  MBND:    %IF PARMCHK=1 %THEN TEST ASS(DR,5,8)
#line 7993 "regression-compile-tmp/nrimp10s-77.imp"
U_1024:;
#line 7993 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (1))) goto L_07bf;
#line 7993 "regression-compile-tmp/nrimp10s-77.imp"
TESTASS(1, 5, 8);
#line 7993 "regression-compile-tmp/nrimp10s-77.imp"
L_07bf:;
                                                                //   7994           PF1(LDB,2,7,0);                ! LBOUND FIRST BYTE=CURRENT L
#line 7994 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 2, 7, 0);
                                                                //   7995           %IF REG=ACCR %THEN COPY DR
#line 7995 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_07c0;
#line 7995 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 7995 "regression-compile-tmp/nrimp10s-77.imp"
L_07c0:;
                                                                //   7996           ->CHKEN
#line 7996 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   7997  STRARR:                                 ! STRINGARRAYS &  ARRAYNAMES
#line 7997 "regression-compile-tmp/nrimp10s-77.imp"
U_1054:;
                                                                //   7998           CANAME(ARR, I, K)
#line 7998 "regression-compile-tmp/nrimp10s-77.imp"
CANAME(ARR, I, K);
                                                                //   7999           NAMEP=-1
#line 7999 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = (-1);
                                                                //   8000           %IF Z=1 %OR Z=6 %THEN STNAME=NAMEP
#line 8000 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_07c1;
#line 8000 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_07c2;
#line 8000 "regression-compile-tmp/nrimp10s-77.imp"
L_07c1:;
#line 8000 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = NAMEP;
#line 8000 "regression-compile-tmp/nrimp10s-77.imp"
L_07c2:;
                                                                //   8001  SAINREC:                                ! STRING ARRAYS IN RECORDS
#line 8001 "regression-compile-tmp/nrimp10s-77.imp"
U_1025:;
                                                                //   8002           %IF Z=1 %OR Z=3 %THEN %START
#line 8002 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (1))) goto L_07c3;
#line 8002 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (3))) goto L_07c4;
#line 8002 "regression-compile-tmp/nrimp10s-77.imp"
L_07c3:;
                                                                //   8003              %IF NAM=1 %THEN %START
#line 8003 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_07c5;
                                                                //   8004                 GET IN ACC(DR,2,0,AREA CODE,DISP+8);! DV DR
#line 8004 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), (((int)(DISP)) + (8)));
                                                                //   8005                                          ! CANAME WILL HAVE SET J=DIMEN
                                                                //   8006                                          ! FOR ALL CASES INCLUDING RECORDS
                                                                //   8007                 PF1(SLB,1,0,1+3*(J-1));  ! STACK MODIFIER AND
#line 8007 "regression-compile-tmp/nrimp10s-77.imp"
PF1(82, 1, 0, ((1) + ((int)(((3) * ((int)((((int)(J)) - (1)))))))));
                                                                //   8008                                          ! SET BREG TO STRING LENGTH
                                                                //   8009              %FINISH
#line 8009 "regression-compile-tmp/nrimp10s-77.imp"
L_07c5:;
                                                                //   8010              GET IN ACC(DR,2,0,AREA CODE,DISP)%IF AREA#7;! ALREADY IN DR
#line 8010 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (7))) goto L_07c6;
#line 8010 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), DISP);
#line 8010 "regression-compile-tmp/nrimp10s-77.imp"
L_07c6:;
                                                                //   8011              %IF NAM=1 %THEN %START
#line 8011 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_07c7;
                                                                //   8012                 PF1(MODD,0,TOS,0)
#line 8012 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 6, 0);
                                                                //   8013                 PF1(LDB,0,BREG,0)
#line 8013 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   8014              %FINISH %ELSE %START
#line 8014 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07c8;
#line 8014 "regression-compile-tmp/nrimp10s-77.imp"
L_07c7:;
                                                                //   8015                 %IF ACCESS=1 %THEN %START
#line 8015 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (1))) goto L_07c9;
                                                                //   8016                    PSF1(MODD,0,NUMMOD) %UNLESS NUMMOD=0
#line 8016 "regression-compile-tmp/nrimp10s-77.imp"
if (((NUMMOD) == (0))) goto L_07ca;
#line 8016 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(22, 0, NUMMOD);
#line 8016 "regression-compile-tmp/nrimp10s-77.imp"
L_07ca:;
                                                                //   8017                 %FINISH %ELSE %START
#line 8017 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07cb;
#line 8017 "regression-compile-tmp/nrimp10s-77.imp"
L_07c9:;
                                                                //   8018                    PF1(MODD,0,BREG,0) %IF ACCESS=3
#line 8018 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (3))) goto L_07cc;
#line 8018 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 7, 0);
#line 8018 "regression-compile-tmp/nrimp10s-77.imp"
L_07cc:;
                                                                //   8019                 %FINISH
#line 8019 "regression-compile-tmp/nrimp10s-77.imp"
L_07cb:;
                                                                //   8020                 PSF1(LDB,0,ACC)
#line 8020 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, ACC);
                                                                //   8021              %FINISH
#line 8021 "regression-compile-tmp/nrimp10s-77.imp"
L_07c8:;
                                                                //   8022              %IF REG=ACCR %THEN COPY DR
#line 8022 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_07cd;
#line 8022 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8022 "regression-compile-tmp/nrimp10s-77.imp"
L_07cd:;
                                                                //   8023              ->CHKEN
#line 8023 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8024           %FINISH
#line 8024 "regression-compile-tmp/nrimp10s-77.imp"
L_07c4:;
                                                                //   8025           %IF Z=4 %THEN NAMEOP(Z,REG,4,-1) %AND ->CHKEN
#line 8025 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (4))) goto L_07ce;
#line 8025 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(Z, REG, 4, (-1));
#line 8025 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 8025 "regression-compile-tmp/nrimp10s-77.imp"
L_07ce:;
                                                                //   8026           GET IN ACC(DR,2,0,AREA CODE,DISP) %UNLESS AREA=7
#line 8026 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (7))) goto L_07cf;
#line 8026 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), DISP);
#line 8026 "regression-compile-tmp/nrimp10s-77.imp"
L_07cf:;
                                                                //   8027           %IF ACCESS=1 %THEN %START
#line 8027 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (1))) goto L_07d0;
                                                                //   8028              PSF1(MODD,0,NUMMOD) %UNLESS NUMMOD=0
#line 8028 "regression-compile-tmp/nrimp10s-77.imp"
if (((NUMMOD) == (0))) goto L_07d1;
#line 8028 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(22, 0, NUMMOD);
#line 8028 "regression-compile-tmp/nrimp10s-77.imp"
L_07d1:;
                                                                //   8029           %FINISH %ELSE %START
#line 8029 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07d2;
#line 8029 "regression-compile-tmp/nrimp10s-77.imp"
L_07d0:;
                                                                //   8030              PF1(MODD,0,BREG,0) %IF ACCESS=3
#line 8030 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (3))) goto L_07d3;
#line 8030 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 7, 0);
#line 8030 "regression-compile-tmp/nrimp10s-77.imp"
L_07d3:;
                                                                //   8031           %FINISH
#line 8031 "regression-compile-tmp/nrimp10s-77.imp"
L_07d2:;
                                                                //   8032           ->MBND
#line 8032 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   8033  STRINREC:                               ! STRINGS IN RECORDS
#line 8033 "regression-compile-tmp/nrimp10s-77.imp"
U_1029:;
                                                                //   8034           ->SAINREC %IF ARR#0
#line 8034 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_07d4;
#line 8034 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1025;
#line 8034 "regression-compile-tmp/nrimp10s-77.imp"
L_07d4:;
                                                                //   8035           ->SNINREC %IF NAM#0 %OR Z=4
#line 8035 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (0))) goto L_07d5;
#line 8035 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (4))) goto L_07d6;
#line 8035 "regression-compile-tmp/nrimp10s-77.imp"
L_07d5:;
#line 8035 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1026;
#line 8035 "regression-compile-tmp/nrimp10s-77.imp"
L_07d6:;
                                                                //   8036  !
                                                                //   8037  ! STRINGS IN RECORDS HAVE NO HEADER AND ARE SPECIAL
                                                                //   8038  !
                                                                //   8039           NAMEOP(4,BREG,4,-1)
#line 8039 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(4, 7, 4, (-1));
                                                                //   8040           PF1(LDTB,0,PC,PARAM DES(3))
#line 8040 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, PARAMDES(3));
                                                                //   8041           PF1(LDA,0,BREG,0)
#line 8041 "regression-compile-tmp/nrimp10s-77.imp"
PF1(114, 0, 7, 0);
                                                                //   8042           PSF1(LDB,0,ACC) %UNLESS Z=2 %AND PARMCHK=0
#line 8042 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_07d7;
#line 8042 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_07d8;
#line 8042 "regression-compile-tmp/nrimp10s-77.imp"
L_07d7:;
#line 8042 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, ACC);
#line 8042 "regression-compile-tmp/nrimp10s-77.imp"
L_07d8:;
                                                                //   8043           GRUSE(DR)=0
#line 8043 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8044           ->MBND %IF Z=2
#line 8044 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_07d9;
#line 8044 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
#line 8044 "regression-compile-tmp/nrimp10s-77.imp"
L_07d9:;
                                                                //   8045           COPY DR %IF REG=ACCR
#line 8045 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_07da;
#line 8045 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8045 "regression-compile-tmp/nrimp10s-77.imp"
L_07da:;
                                                                //   8046           ->CHKEN
#line 8046 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8047  !
                                                                //   8048  ! SECTION TO DEAL WITH ALL NAMES INVOLVING ROUTINE CALL
                                                                //   8049  !
                                                                //   8050  RTCALL:                                 ! FIRST CHECK
#line 8050 "regression-compile-tmp/nrimp10s-77.imp"
U_1031:;
                                                                //   8051           %IF TYPE=0 %AND Z#0 %THEN FAULT(23, FNAME) %AND ->NOT SET
#line 8051 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (0))) goto L_07db;
#line 8051 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (0))) goto L_07db;
#line 8051 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(23, FNAME);
#line 8051 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
#line 8051 "regression-compile-tmp/nrimp10s-77.imp"
L_07db:;
                                                                //   8052                                          ! RT NAME IN EXPRSN
                                                                //   8053           %IF PTYPE=SNPT %THEN %START
#line 8053 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_07dc;
                                                                //   8054              CSNAME(Z, REG);             ! SPECIAL NAME
#line 8054 "regression-compile-tmp/nrimp10s-77.imp"
CSNAME(Z, REG);
                                                                //   8055              ->BIM %IF ROUT=1 %AND NAM>=1 %AND Z#0
#line 8055 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_07dd;
#line 8055 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) < (1))) goto L_07dd;
#line 8055 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (0))) goto L_07dd;
#line 8055 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
#line 8055 "regression-compile-tmp/nrimp10s-77.imp"
L_07dd:;
                                                                //   8056              %IF TYPE#0 %AND NEST=ACCR %THEN ->MVFNRES
#line 8056 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (0))) goto L_07de;
#line 8056 "regression-compile-tmp/nrimp10s-77.imp"
if (((NEST) != (0))) goto L_07de;
#line 8056 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1028;
#line 8056 "regression-compile-tmp/nrimp10s-77.imp"
L_07de:;
                                                                //   8057              ->CHKEN
#line 8057 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8058           %FINISH
#line 8058 "regression-compile-tmp/nrimp10s-77.imp"
L_07dc:;
                                                                //   8059           CRCALL(FNAME);  P=P+1;         ! DEAL WITH PARAMS
#line 8059 "regression-compile-tmp/nrimp10s-77.imp"
CRCALL(FNAME);
#line 8059 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8060           ->CHKEN %IF PTYPE&15=0
#line 8060 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PTYPE) & (15))) != (0))) goto L_07df;
#line 8060 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 8060 "regression-compile-tmp/nrimp10s-77.imp"
L_07df:;
                                                                //   8061           ->UDM %IF NAM>1;               ! MAPS
#line 8061 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) <= (1))) goto L_07e0;
#line 8061 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102e;
#line 8061 "regression-compile-tmp/nrimp10s-77.imp"
L_07e0:;
                                                                //   8062           %UNLESS Z=2 %OR Z=5 %THEN %START;   ! FUNCTIONS
#line 8062 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (2))) goto L_07e1;
#line 8062 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (5))) goto L_07e1;
                                                                //   8063              FAULT(29, FNAME);  BASE=0
#line 8063 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(29, FNAME);
#line 8063 "regression-compile-tmp/nrimp10s-77.imp"
BASE = 0;
                                                                //   8064              ACCESS=0;  DISP=0
#line 8064 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 8064 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   8065           %FINISH
#line 8065 "regression-compile-tmp/nrimp10s-77.imp"
L_07e1:;
                                                                //   8066  MVFNRES: %IF TYPE=5 %THEN %START;       ! STRING FNS
#line 8066 "regression-compile-tmp/nrimp10s-77.imp"
U_1028:;
#line 8066 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07e2;
                                                                //   8067              %IF REG=DR %THEN PF1(ST,0,TOS,0) %AND PF1(LD,0,TOS,0)
#line 8067 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (1))) goto L_07e3;
#line 8067 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 8067 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 6, 0);
#line 8067 "regression-compile-tmp/nrimp10s-77.imp"
L_07e3:;
                                                                //   8068           %FINISH %ELSE %START
#line 8068 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07e4;
#line 8068 "regression-compile-tmp/nrimp10s-77.imp"
L_07e2:;
                                                                //   8069              %IF REG=BREG %THEN %START
#line 8069 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_07e5;
                                                                //   8070                 BOOT OUT(BREG) %IF REGISTER(BREG)#0
#line 8070 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) == (0))) goto L_07e6;
#line 8070 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 8070 "regression-compile-tmp/nrimp10s-77.imp"
L_07e6:;
                                                                //   8071                 PF1(ST,0,BREG,0)
#line 8071 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   8072              %FINISH
#line 8072 "regression-compile-tmp/nrimp10s-77.imp"
L_07e5:;
                                                                //   8073           %FINISH
#line 8073 "regression-compile-tmp/nrimp10s-77.imp"
L_07e4:;
                                                                //   8074           NEST=REG; ->CHKEN
#line 8074 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
#line 8074 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8075  UDM:                                    ! USER DEFINED MAPS
#line 8075 "regression-compile-tmp/nrimp10s-77.imp"
U_102e:;
                                                                //   8076           PF1(ST,0,BREG,0);              ! RETURN 32 BIT ADDR IN ACC
#line 8076 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   8077           DISP=MAPDES(PREC)
#line 8077 "regression-compile-tmp/nrimp10s-77.imp"
DISP = MAPDES(PREC);
                                                                //   8078           ACCESS=3; AREA=PC
#line 8078 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 8078 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 4;
                                                                //   8079           NAMEP=-1; STNAME=-1
#line 8079 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = (-1);
#line 8079 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = (-1);
                                                                //   8080  BIM:                                    ! BUILT IN MAPS
#line 8080 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
                                                                //   8081           NAMEP=-1 %AND STNAME=-1 %UNLESS AREA=PC %AND ACCESS=3
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (4))) goto L_07e7;
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) == (3))) goto L_07e8;
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
L_07e7:;
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = (-1);
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
STNAME = (-1);
#line 8081 "regression-compile-tmp/nrimp10s-77.imp"
L_07e8:;
                                                                //   8082           ->CHKEN %IF TYPE=3;            ! MAP RECORD USE VERY LIMITED
#line 8082 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_07e9;
#line 8082 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 8082 "regression-compile-tmp/nrimp10s-77.imp"
L_07e9:;
                                                                //   8083           %IF Z=3 %OR (TYPE=5 %AND Z#4) %START
#line 8083 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (3))) goto L_07ea;
#line 8083 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07eb;
#line 8083 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (4))) goto L_07eb;
#line 8083 "regression-compile-tmp/nrimp10s-77.imp"
L_07ea:;
                                                                //   8084              PF1(LDTB,0,PC,DISP)
#line 8084 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, DISP);
                                                                //   8085              %IF TYPE=5 %AND (PARMCHK#0 %OR Z#2) %THEN PSF1(LDB,0,255)
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07ec;
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0788;
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) == (2))) goto L_07ec;
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
L_0788:;
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, 255);
#line 8085 "regression-compile-tmp/nrimp10s-77.imp"
L_07ec:;
                                                                //   8086              PF1(LDA,0,BREG,0)
#line 8086 "regression-compile-tmp/nrimp10s-77.imp"
PF1(114, 0, 7, 0);
                                                                //   8087              GRUSE(DR)=0
#line 8087 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8088           %FINISH %ELSE %START
#line 8088 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07ed;
#line 8088 "regression-compile-tmp/nrimp10s-77.imp"
L_07eb:;
                                                                //   8089              %IF GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF %AND 1<=Z<=2 %THEN AREA=7
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_07ee;
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_07ee;
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) != (((NAMEP) & (65535))))) goto L_07ee;
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (Z))) || (((Z) > (2)))) goto L_07ee;
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 8089 "regression-compile-tmp/nrimp10s-77.imp"
L_07ee:;
                                                                //   8090                                          ! CHANGE TO(%DR+%B) FORM
                                                                //   8091           %FINISH
#line 8091 "regression-compile-tmp/nrimp10s-77.imp"
L_07ed:;
                                                                //   8092  !         NAM=0
                                                                //   8093           KK=Z; KK=2 %IF Z=5
#line 8093 "regression-compile-tmp/nrimp10s-77.imp"
KK = Z;
#line 8093 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (5))) goto L_07ef;
#line 8093 "regression-compile-tmp/nrimp10s-77.imp"
KK = 2;
#line 8093 "regression-compile-tmp/nrimp10s-77.imp"
L_07ef:;
                                                                //   8094           ->MAP(KK&3)
#line 8094 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_idx = ((KK) & (3)); if ((0 <= sw25_MAP_idx) && (sw25_MAP_idx <= 3)) goto *sw25_MAP[sw25_MAP_idx]; else {
   /*_imp_signal(8, 2, sw25_MAP_idx);*/
   fprintf(stderr, "%%SWITCH index MAP(%d) not in range 0:3 at %s:%d\n",
           sw25_MAP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8095  MAP(0):                                 ! FETCH ADDRESS
#line 8095 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_0:;
                                                                //   8096           %IF REG#BREG %THEN GET IN ACC(ACCR,1,0,BREG,0)
#line 8096 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (7))) goto L_07f0;
#line 8096 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 1, 0, 7, 0);
#line 8096 "regression-compile-tmp/nrimp10s-77.imp"
L_07f0:;
                                                                //   8097           ->CHKEN
#line 8097 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8098  MAP(1):                                 ! STORE
#line 8098 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_1:;
                                                                //   8099           ->CHKEN %UNLESS TYPE=5; ->MAP(3)
#line 8099 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (5))) goto L_07f1;
#line 8099 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
#line 8099 "regression-compile-tmp/nrimp10s-77.imp"
L_07f1:;
#line 8099 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_idx = 3; goto *sw25_MAP[sw25_MAP_idx]; 
                                                                //   8100  MAP(2):                                 ! FETCH
#line 8100 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_2:;
                                                                //   8101           %IF TYPE=5 %THEN ->MBND
#line 8101 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07f2;
#line 8101 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
#line 8101 "regression-compile-tmp/nrimp10s-77.imp"
L_07f2:;
                                                                //   8102           GET IN ACC(REG,BYTES(PREC)>>2,ACCESS,AREA,DISP)
#line 8102 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), ACCESS, AREA, DISP);
                                                                //   8103           %IF NAMEP>0 %THEN GRUSE(DR)=7 %AND GRINF1(DR)=NAMEP
#line 8103 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_07f3;
#line 8103 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 7;
#line 8103 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = NAMEP;
#line 8103 "regression-compile-tmp/nrimp10s-77.imp"
L_07f3:;
                                                                //   8104           %IF PARMCHK=1 %AND PREC>=5 %THEN TEST ASS(REG,1,BYTES(PREC))
#line 8104 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (1))) goto L_07f4;
#line 8104 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) < (5))) goto L_07f4;
#line 8104 "regression-compile-tmp/nrimp10s-77.imp"
TESTASS(REG, 1, BYTES[PREC]);
#line 8104 "regression-compile-tmp/nrimp10s-77.imp"
L_07f4:;
                                                                //   8105           ->CHKEN
#line 8105 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8106  MAP(3):                                 ! SET DESCRIPTOR
#line 8106 "regression-compile-tmp/nrimp10s-77.imp"
sw25_MAP_3:;
                                                                //   8107           %IF TYPE=5 %THEN PF1(LDB,0,0,256)
#line 8107 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_07f5;
#line 8107 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 0, 256);
#line 8107 "regression-compile-tmp/nrimp10s-77.imp"
L_07f5:;
                                                                //   8108           COPY DR %UNLESS REG=DR
#line 8108 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_07f6;
#line 8108 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8108 "regression-compile-tmp/nrimp10s-77.imp"
L_07f6:;
                                                                //   8109           ->CHKEN
#line 8109 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8110  SW(0):                                  ! %NAME PARAMETERS NO TYPE
#line 8110 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_0:;
                                                                //   8111                                          ! ALLOW FETCH ADDR OPERATIONS
                                                                //   8112                                          ! AND SPECIAL FOR BUILTIN MAPS
                                                                //   8113           %UNLESS 3<=Z<=4 %THEN %START
#line 8113 "regression-compile-tmp/nrimp10s-77.imp"
if ((((3) > (Z))) || (((Z) <= (4)))) goto L_07f8;
#line 8113 "regression-compile-tmp/nrimp10s-77.imp"
L_07f7:;
                                                                //   8114              FAULT2(90,0,FNAME);  TYPE=1
#line 8114 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(90, 0, FNAME);
#line 8114 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
                                                                //   8115           %FINISH
#line 8115 "regression-compile-tmp/nrimp10s-77.imp"
L_07f8:;
                                                                //   8116  SW(1):                                  ! TYPE =INTEGER
#line 8116 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_1:;
                                                                //   8117  SW(2):                                  ! TYPE=REAL
#line 8117 "regression-compile-tmp/nrimp10s-77.imp"
sw24_SW_2:;
                                                                //   8118           %IF ARR=0 %OR (Z=6 %AND A(P+2)=2) %THEN %START
#line 8118 "regression-compile-tmp/nrimp10s-77.imp"
if (((ARR) == (0))) goto L_07f9;
#line 8118 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_07fa;
#line 8118 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_07fa;
#line 8118 "regression-compile-tmp/nrimp10s-77.imp"
L_07f9:;
                                                                //   8119              BASE=I; ACCESS=2*NAM
#line 8119 "regression-compile-tmp/nrimp10s-77.imp"
BASE = I;
#line 8119 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(2)) * (NAM));
                                                                //   8120              DISP=K; AREA=-1
#line 8120 "regression-compile-tmp/nrimp10s-77.imp"
DISP = K;
#line 8120 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
                                                                //   8121              %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (2))]) != (2))) goto L_07fb;
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07fc;
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
L_07fb:;
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
NOAPP();
#line 8121 "regression-compile-tmp/nrimp10s-77.imp"
L_07fc:;
                                                                //   8122           %FINISH %ELSE %START
#line 8122 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07fd;
#line 8122 "regression-compile-tmp/nrimp10s-77.imp"
L_07fa:;
                                                                //   8123              CANAME(ARR, I, K)
#line 8123 "regression-compile-tmp/nrimp10s-77.imp"
CANAME(ARR, I, K);
                                                                //   8124              NAM=0
#line 8124 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
                                                                //   8125           %FINISH
#line 8125 "regression-compile-tmp/nrimp10s-77.imp"
L_07fd:;
                                                                //   8126           NAMEOP(Z,REG,BYTES(PREC),NAMEP)
#line 8126 "regression-compile-tmp/nrimp10s-77.imp"
NAMEOP(Z, REG, BYTES[PREC], NAMEP);
                                                                //   8127           ->CHKEN
#line 8127 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1032;
                                                                //   8128  !
                                                                //   8129                                          ! GENERAL FETCHING & STORING 
                                                                //   8130                                          !SECTION
                                                                //   8131  !
                                                                //   8132  CHKEN:   %WHILE A(P)=1 %CYCLE
#line 8132 "regression-compile-tmp/nrimp10s-77.imp"
U_1032:;
#line 8132 "regression-compile-tmp/nrimp10s-77.imp"
L_07fe:;
#line 8132 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_07ff;
                                                                //   8133              FAULT(69,FNAME)
#line 8133 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(69, FNAME);
                                                                //   8134              P=P+3; SKIP APP
#line 8134 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 8134 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   8135           %REPEAT
#line 8135 "regression-compile-tmp/nrimp10s-77.imp"
goto L_07fe;
#line 8135 "regression-compile-tmp/nrimp10s-77.imp"
L_07ff:;
                                                                //   8136           P=P+1
#line 8136 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8137  %END
#line 8137 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw24_SW_8:;
/*_imp_signal(6,3,sw24_SW_idx,"SWITCH LABEL NOT SET - sw24_SW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw24_SW(%d): at line %s:%d", sw24_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
sw22_S_13:;
/*_imp_signal(6,3,sw22_S_idx,"SWITCH LABEL NOT SET - sw22_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw22_S(%d): at line %s:%d", sw22_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 5
                                                                //   8138  
                                                                //   8139  %ROUTINE NAMEOP(%INTEGER Z, REG, SIZE, NAMEP)
#line 8139 "regression-compile-tmp/nrimp10s-77.imp"
void NAMEOP( int Z, int REG, int SIZE, int NAMEP )
#line 8139 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8140  !***********************************************************************
                                                                //   8141  !*    FETCH OR STORE REG FROM OR TO VARIABLE DEFINED BY AREA ACCESS    *
                                                                //   8142  !*    BASE AND DISP.                                                   *
                                                                //   8143  !***********************************************************************
                                                                //   8144  %SWITCH MOD(0:47)
#line 8144 "regression-compile-tmp/nrimp10s-77.imp"
static int sw26_MOD_idx;
static const void * /*SWITCH*/ sw26_MOD[48] = { &&sw26_MOD_0, &&sw26_MOD_1, &&sw26_MOD_2, &&sw26_MOD_3, &&sw26_MOD_4, &&sw26_MOD_5, &&sw26_MOD_6, &&sw26_MOD_7, &&sw26_MOD_8, &&sw26_MOD_9, &&sw26_MOD_10, &&sw26_MOD_11, &&sw26_MOD_12, &&sw26_MOD_13, &&sw26_MOD_14, &&sw26_MOD_15, &&sw26_MOD_16, &&sw26_MOD_17, &&sw26_MOD_18, &&sw26_MOD_19, &&sw26_MOD_20, &&sw26_MOD_21, &&sw26_MOD_22, &&sw26_MOD_23, &&sw26_MOD_24, &&sw26_MOD_25, &&sw26_MOD_26, &&sw26_MOD_27, &&sw26_MOD_28, &&sw26_MOD_29, &&sw26_MOD_30, &&sw26_MOD_31, &&sw26_MOD_32, &&sw26_MOD_33, &&sw26_MOD_34, &&sw26_MOD_35, &&sw26_MOD_36, &&sw26_MOD_37, &&sw26_MOD_38, &&sw26_MOD_39, &&sw26_MOD_40, &&sw26_MOD_41, &&sw26_MOD_42, &&sw26_MOD_43, &&sw26_MOD_44, &&sw26_MOD_45, &&sw26_MOD_46, &&sw26_MOD_47,  };
                                                                //   8145  %INTEGERFNSPEC BASEREG(%INTEGER GRUSEVAL,GRINFVAL)
#line 8145 "regression-compile-tmp/nrimp10s-77.imp"
auto int BASEREG( int GRUSEVAL, int GRINFVAL );
                                                                //   8146  %INTEGER KK, JJJ, TOTHER, XYNB, JJ, OP1, OP2
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int TOTHER;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int OP1;
#line 8146 "regression-compile-tmp/nrimp10s-77.imp"
int OP2;
                                                                //   8147        KK=Z;  KK=2 %IF Z=5
#line 8147 "regression-compile-tmp/nrimp10s-77.imp"
KK = Z;
#line 8147 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (5))) goto L_0801;
#line 8147 "regression-compile-tmp/nrimp10s-77.imp"
KK = 2;
#line 8147 "regression-compile-tmp/nrimp10s-77.imp"
L_0801:;
                                                                //   8148        %IF Z=6 %THEN %START
#line 8148 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (6))) goto L_0802;
                                                                //   8149           FAULT2(82,0,NAMEP) %UNLESS NAM=1 %AND ROUT=0 %AND (ACCESS>=8 %OR ACCESS=2)
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAM) != (1))) goto L_0803;
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (0))) goto L_0803;
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) >= (8))) goto L_0804;
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) == (2))) goto L_0804;
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
L_0803:;
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(82, 0, NAMEP);
#line 8149 "regression-compile-tmp/nrimp10s-77.imp"
L_0804:;
                                                                //   8150           KK=1;  SIZE=8
#line 8150 "regression-compile-tmp/nrimp10s-77.imp"
KK = 1;
#line 8150 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = 8;
                                                                //   8151           %IF ACCESS>=8 %THEN ACCESS=ACCESS-4 %ELSE ACCESS=0
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) < (8))) goto L_0805;
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = (((int)(ACCESS)) - (4));
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0806;
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
L_0805:;
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 8151 "regression-compile-tmp/nrimp10s-77.imp"
L_0806:;
                                                                //   8152        %FINISH
#line 8152 "regression-compile-tmp/nrimp10s-77.imp"
L_0802:;
                                                                //   8153        KK=KK&3
#line 8153 "regression-compile-tmp/nrimp10s-77.imp"
KK = ((KK) & (3));
                                                                //   8154        ->MOD(ACCESS<<2!KK)
#line 8154 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = ((((ACCESS) << (2))) | (KK)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8155  !
                                                                //   8156  
                                                                //   8157  ! AREA AND ACCESS
                                                                //   8158  !**** *** ******
                                                                //   8159  ! THESE VARIABLES DEFINE HOW TO ACCESS ANY IMP VARIABLE. AREA HAS THE
                                                                //   8160  ! THREE BIT AREA CODE FROM THE PRIMARY FORMAT INSTRN.(EG 6=TOS ETC)
                                                                //   8161  ! THE SPECIAL CASE AREA=-1 IS USED FOR ENTITIES IN STACK FRAME 'BASE'
                                                                //   8162  ! THE FN AREA CODE CONVERTS THIS CASE TO AREA=LNB OR AREA=XNB ARRANGING
                                                                //   8163  ! TO LOAD XNB IF NECESSARY.
                                                                //   8164  
                                                                //   8165  ! ACCESS HAS TWO VERSIONS OF THE 2-BIT INDIRECTION CODE FROM PRIMARY
                                                                //   8166  ! FORMAT INSTRNS:-
                                                                //   8167  ! =0 VARIABLE DIRECTLY ADDRESSED IN 'AREA' BY 'DISP'
                                                                //   8168  ! =1 VARIABLE ADDRESSED BY DESCPTR AT AREA & DISP MODDED BY CONST NUMMOD
                                                                //   8169  ! =2 DESCRIPTOR TO VARIABLE DIRECTLY ADDRESS BY 'AREA' & 'DISP'
                                                                //   8170  ! =3 DESCRIPTOR AS IN =2 IS TO BE MODIFIED BY 'B'
                                                                //   8171  ! =4 VARIABLE 'XDISP' INTO RECORD DIRECTLY ADDRESSED BY 'AREA' & 'DISP'
                                                                //   8172  ! =5 VARIABLE 'XDISP' INTO RECORD ADDRESSED BY DR MODIFIED AS =1
                                                                //   8173  ! =6 VAR 'XDISP' INTO RECORD ADDRESSED BY DESCRIPTOR AT 'AREA' & 'DISP'
                                                                //   8174  ! =7 AS =6 BUT DESCRIPTOR MODIFIED BY B
                                                                //   8175  ! =8-11 AS 4-7 BUT THERE IS A DESCRIPTOR TO ITEM AT 'XDISP' INTO RECORD
                                                                //   8176  
                                                                //   8177  ! THESE COVER ALL THE COMMON CASES. ITEMS LIKE ARRAYS IN RECORD ARRAYS
                                                                //   8178  ! NEED AN INTERMEDIATE DESCRIPTOR TO BE CALCULATED AND(USUALLY) STACKED
                                                                //   8179  
                                                                //   8180  !
                                                                //   8181  ! NOTE THAT ACCESS=1 AS USED ON VARIABLES IS DIFFERENT FROM ACCESS=1
                                                                //   8182  ! AS USED IN ACTUAL PLANTING ROUTINES PF1 ETC. THE CODE ACCESS=1  NEEDS
                                                                //   8183  ! THE RELEVANT DESCRIPOR IN DR FIRST !
                                                                //   8184  !
                                                                //   8185  ! AREA=7 WITH ACCESS =2 OR 3 IS USED WHEN THE DESCRIPTOR IS ALREADY
                                                                //   8186  ! LOADED IN DR. THIS IS AWKARD ESPECIALLY ON THE GET 32 BIT ADDR
                                                                //   8187  ! CASE AND NEEDS PLANTING OF IMAGE STORE FORMAT INSTRNS
                                                                //   8188  !
                                                                //   8189  MOD(0):                                 ! ACCESS=0 FETCH ADDRESS
#line 8189 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_0:;
                                                                //   8190        %IF TYPE=3 %THEN GETINACC(REG,1,0,AREA CODE,DISP-4) %AND %RETURN
#line 8190 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0807;
#line 8190 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, AREACODE(), (((int)(DISP)) - (4)));
#line 8190 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 8190 "regression-compile-tmp/nrimp10s-77.imp"
L_0807:;
                                                                //   8191        GET IN ACC(REG,1,0,LNB,PTR OFFSET(BASE))
#line 8191 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, 2, PTROFFSET(BASE));
                                                                //   8192        %IF REG=BREG %THEN JJJ=ADB %ELSE JJJ=IAD
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_0808;
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = 32;
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0809;
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
L_0808:;
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = 224;
#line 8192 "regression-compile-tmp/nrimp10s-77.imp"
L_0809:;
                                                                //   8193        PSF1(JJJ,0,DISP)
#line 8193 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(JJJ, 0, DISP);
                                                                //   8194        %IF BIMSTR=1 %THEN NOTE ASSMENT(REG,3,NAMEP)
#line 8194 "regression-compile-tmp/nrimp10s-77.imp"
if (((BIMSTR) != (1))) goto L_080a;
#line 8194 "regression-compile-tmp/nrimp10s-77.imp"
NOTEASSMENT(REG, 3, NAMEP);
#line 8194 "regression-compile-tmp/nrimp10s-77.imp"
L_080a:;
                                                                //   8195        %RETURN
#line 8195 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8196  MOD(1):                                 ! ACCESS=0 STORE
#line 8196 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_1:;
                                                                //   8197        %IF 1<=SIZE<=2 %THEN %START;      ! BYTES & HALFS REQUIRE DESCRIPTOR
#line 8197 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (SIZE))) || (((SIZE) > (2)))) goto L_080b;
                                                                //   8198           PF1(LDTB,0,PC,MAP DES(SIZE+2)) %UNLESS GRUSE(DR)=SIZE+11
#line 8198 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == ((((int)(SIZE)) + (11))))) goto L_080c;
#line 8198 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, MAPDES((((int)(SIZE)) + (2))));
#line 8198 "regression-compile-tmp/nrimp10s-77.imp"
L_080c:;
                                                                //   8199           PSF1(LDA,1,PTR OFFSET(BASE)) %UNLESS 12<=GRUSE(DR)<=13 %AND GRINF1(DR)=BASE
#line 8199 "regression-compile-tmp/nrimp10s-77.imp"
if ((((12) > (GRUSE[1]))) || (((GRUSE[1]) > (13)))) goto L_080d;
#line 8199 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) == (BASE))) goto L_080e;
#line 8199 "regression-compile-tmp/nrimp10s-77.imp"
L_080d:;
#line 8199 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(114, 1, PTROFFSET(BASE));
#line 8199 "regression-compile-tmp/nrimp10s-77.imp"
L_080e:;
                                                                //   8200           GRUSE(DR)=SIZE+11;  GRINF1(DR)=BASE
#line 8200 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = (((int)(SIZE)) + (11));
#line 8200 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = BASE;
                                                                //   8201           ACCESS=1;  AREA=0
#line 8201 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 8201 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
                                                                //   8202        %FINISH %ELSE AREA=AREA CODE
#line 8202 "regression-compile-tmp/nrimp10s-77.imp"
goto L_080f;
#line 8202 "regression-compile-tmp/nrimp10s-77.imp"
L_080b:;
#line 8202 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
#line 8202 "regression-compile-tmp/nrimp10s-77.imp"
L_080f:;
                                                                //   8203        %RETURN
#line 8203 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8204  MOD(2):                                 ! ACCESS=0 FETCH
#line 8204 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_2:;
                                                                //   8205        %IF SIZE>2 %AND Z=5 %AND PARMCHK=0 %THEN NEST=-1 %AND %RETURN
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (2))) goto L_0810;
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (5))) goto L_0810;
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0810;
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
NEST = (-1);
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 8205 "regression-compile-tmp/nrimp10s-77.imp"
L_0810:;
                                                                //   8206  MOD(10):                                ! ACCESS=2 FETCH
#line 8206 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_10:;
                                                                //   8207        %IF GRUSE(REG)>=9 %AND NAMEP>0 %THEN %START
#line 8207 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[REG]) < (9))) goto L_0811;
#line 8207 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0811;
                                                                //   8208           %IF (GRINF1(REG)=NAMEP %AND GRUSE(REG)&255=9) %OR (GRINF2(REG)=NAMEP %AND GRUSE(REG)>>16=9) %START
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[REG]) != (NAMEP))) goto L_0812;
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRUSE[REG]) & (255))) == (9))) goto L_0813;
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
L_0812:;
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF2[REG]) != (NAMEP))) goto L_0814;
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRUSE[REG])) >> (16)))) != (9))) goto L_0814;
#line 8208 "regression-compile-tmp/nrimp10s-77.imp"
L_0813:;
                                                                //   8209              %IF REGISTER(REG)#0 %THEN BOOT OUT(REG)
#line 8209 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) == (0))) goto L_0815;
#line 8209 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(REG);
#line 8209 "regression-compile-tmp/nrimp10s-77.imp"
L_0815:;
                                                                //   8210              NEST=REG;  %RETURN
#line 8210 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
#line 8210 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8211           %FINISH
#line 8211 "regression-compile-tmp/nrimp10s-77.imp"
L_0814:;
                                                                //   8212        %FINISH
#line 8212 "regression-compile-tmp/nrimp10s-77.imp"
L_0811:;
                                                                //   8213        TOTHER=REG!!7
#line 8213 "regression-compile-tmp/nrimp10s-77.imp"
TOTHER = ((REG) ^ (7));
                                                                //   8214        %IF GRUSE(TOTHER)>=9 %AND NAMEP>0 %START
#line 8214 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[TOTHER]) < (9))) goto L_0816;
#line 8214 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0816;
                                                                //   8215           KK=GRINF1(TOTHER)
#line 8215 "regression-compile-tmp/nrimp10s-77.imp"
KK = GRINF1[TOTHER];
                                                                //   8216           %IF (KK=NAMEP %AND GRUSE(TOTHER)&255=9) %OR (GRINF2(TOTHER)=NAMEP %AND GRUSE(TOTHER)>>16=9) %START
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
if (((KK) != (NAMEP))) goto L_0817;
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRUSE[TOTHER]) & (255))) == (9))) goto L_0818;
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
L_0817:;
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF2[TOTHER]) != (NAMEP))) goto L_0819;
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRUSE[TOTHER])) >> (16)))) != (9))) goto L_0819;
#line 8216 "regression-compile-tmp/nrimp10s-77.imp"
L_0818:;
                                                                //   8217              %IF REG=BREG %AND REGISTER(BREG)=0 %START
#line 8217 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_081a;
#line 8217 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) != (0))) goto L_081a;
                                                                //   8218                 PF1(ST,0,BREG,0);        ! ACC TO BRGE
#line 8218 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   8219                 GRUSE(REG)=GRUSE(TOTHER)
#line 8219 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = GRUSE[TOTHER];
                                                                //   8220                 GRINF1(REG)=GRINF1(TOTHER)
#line 8220 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = GRINF1[TOTHER];
                                                                //   8221                 GRINF2(REG)=GRINF2(TOTHER)
#line 8221 "regression-compile-tmp/nrimp10s-77.imp"
GRINF2[REG] = GRINF2[TOTHER];
                                                                //   8222                 NEST=REG
#line 8222 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
                                                                //   8223                 %RETURN
#line 8223 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8224              %FINISH
#line 8224 "regression-compile-tmp/nrimp10s-77.imp"
L_081a:;
                                                                //   8225              %IF REG=ACCR %AND Z=2 %THEN %START
#line 8225 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_081b;
#line 8225 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_081b;
                                                                //   8226                 ACCESS=0;  AREA=7
#line 8226 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
#line 8226 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
                                                                //   8227                 SIZE=4;  DISP=0
#line 8227 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = 4;
#line 8227 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   8228              %FINISH
#line 8228 "regression-compile-tmp/nrimp10s-77.imp"
L_081b:;
                                                                //   8229           %FINISH
#line 8229 "regression-compile-tmp/nrimp10s-77.imp"
L_0819:;
                                                                //   8230        %FINISH
#line 8230 "regression-compile-tmp/nrimp10s-77.imp"
L_0816:;
                                                                //   8231        %IF 1<=SIZE<=2 %AND ACCESS=0 %THEN %START;  ! BYTES
#line 8231 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (SIZE))) || (((SIZE) > (2)))) goto L_081c;
#line 8231 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (0))) goto L_081c;
                                                                //   8232           PF1(LDTB,0,PC,MAP DES(SIZE+2)) %UNLESS GRUSE(DR)=SIZE+11
#line 8232 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == ((((int)(SIZE)) + (11))))) goto L_081d;
#line 8232 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, MAPDES((((int)(SIZE)) + (2))));
#line 8232 "regression-compile-tmp/nrimp10s-77.imp"
L_081d:;
                                                                //   8233           PSF1(LDA,1,PTR OFFSET(BASE)) %UNLESS 12<=GRUSE(DR)<=13 %AND GRINF1(DR)=BASE
#line 8233 "regression-compile-tmp/nrimp10s-77.imp"
if ((((12) > (GRUSE[1]))) || (((GRUSE[1]) > (13)))) goto L_081e;
#line 8233 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) == (BASE))) goto L_081f;
#line 8233 "regression-compile-tmp/nrimp10s-77.imp"
L_081e:;
#line 8233 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(114, 1, PTROFFSET(BASE));
#line 8233 "regression-compile-tmp/nrimp10s-77.imp"
L_081f:;
                                                                //   8234           GRUSE(DR)=SIZE+11;  GRINF1(DR)=BASE
#line 8234 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = (((int)(SIZE)) + (11));
#line 8234 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = BASE;
                                                                //   8235           %IF Z=5 %AND PARMCHK=0 %START
#line 8235 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (5))) goto L_0820;
#line 8235 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (0))) goto L_0820;
                                                                //   8236              ACCESS=1;  AREA=0;  NEST=-1;  %RETURN
#line 8236 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 8236 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
#line 8236 "regression-compile-tmp/nrimp10s-77.imp"
NEST = (-1);
#line 8236 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8237           %FINISH
#line 8237 "regression-compile-tmp/nrimp10s-77.imp"
L_0820:;
                                                                //   8238           GET IN ACC(REG,1,1,0,DISP)
#line 8238 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 1, 0, DISP);
                                                                //   8239           %IF PARMCHK#0 %AND SIZE=2 %THEN TEST ASS(REG,TYPE,SIZE)
#line 8239 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) == (0))) goto L_0821;
#line 8239 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (2))) goto L_0821;
#line 8239 "regression-compile-tmp/nrimp10s-77.imp"
TESTASS(REG, TYPE, SIZE);
#line 8239 "regression-compile-tmp/nrimp10s-77.imp"
L_0821:;
                                                                //   8240           NEST=REG;  %RETURN
#line 8240 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
#line 8240 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8241        %FINISH
#line 8241 "regression-compile-tmp/nrimp10s-77.imp"
L_081c:;
                                                                //   8242  MOD(14):                                ! ACCESS=3 FETCH
#line 8242 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_14:;
                                                                //   8243        %IF ACCESS>=2 %AND(AREA=7 %OR  (GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF)) %THEN AREA=7 %AND DISP=0 %ELSE AREA=AREA CODE
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) < (2))) goto L_0822;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (7))) goto L_0800;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_0822;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0822;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) != (((NAMEP) & (65535))))) goto L_0822;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
L_0800:;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0823;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
L_0822:;
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
#line 8243 "regression-compile-tmp/nrimp10s-77.imp"
L_0823:;
                                                                //   8244  DRFETCH:
#line 8244 "regression-compile-tmp/nrimp10s-77.imp"
U_1030:;
                                                                //   8245        GET IN ACC(REG,SIZE>>2,ACCESS,AREA,DISP)
#line 8245 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, (int)((((unsigned int)(SIZE)) >> (2))), ACCESS, AREA, DISP);
                                                                //   8246        %IF PARMCHK=1 %AND SIZE#1 %THEN TEST ASS(REG,TYPE,SIZE)
#line 8246 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMCHK) != (1))) goto L_0824;
#line 8246 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) == (1))) goto L_0824;
#line 8246 "regression-compile-tmp/nrimp10s-77.imp"
TESTASS(REG, TYPE, SIZE);
#line 8246 "regression-compile-tmp/nrimp10s-77.imp"
L_0824:;
                                                                //   8247        %IF (ACCESS=0 %OR ACCESS=2) %AND NAMEP>0 %THEN GRUSE(REG)=9 %AND GRINF1(REG)=NAMEP
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) == (0))) goto L_0825;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (2))) goto L_0826;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
L_0825:;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0826;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 9;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = NAMEP;
#line 8247 "regression-compile-tmp/nrimp10s-77.imp"
L_0826:;
                                                                //   8248        %IF ACCESS>=2 %AND NAMEP>0 %THEN GRUSE(DR)=7 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8248 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) < (2))) goto L_0827;
#line 8248 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0827;
#line 8248 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 7;
#line 8248 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = ((NAMEP) & (65535));
#line 8248 "regression-compile-tmp/nrimp10s-77.imp"
L_0827:;
                                                                //   8249        NEST=REG;  %RETURN
#line 8249 "regression-compile-tmp/nrimp10s-77.imp"
NEST = REG;
#line 8249 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8250  MOD(3):                                 ! ACCESS=0 SET DESCRIPTOR
#line 8250 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_3:;
                                                                //   8251        ABORT %UNLESS REG=ACCR %OR REG=DR
#line 8251 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (0))) goto L_0828;
#line 8251 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_0828;
#line 8251 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8251 "regression-compile-tmp/nrimp10s-77.imp"
L_0828:;
                                                                //   8252        %IF TYPE=3 %THEN %START
#line 8252 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0829;
                                                                //   8253           GET IN ACC(REG,2,0,AREA CODE,DISP-8);    ! PTR BEFORE START
#line 8253 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 2, 0, AREACODE(), (((int)(DISP)) - (8)));
                                                                //   8254           %RETURN
#line 8254 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8255        %FINISH %ELSE JJJ=PARAM DES(PREC)
#line 8255 "regression-compile-tmp/nrimp10s-77.imp"
L_0829:;
#line 8255 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = PARAMDES(PREC);
                                                                //   8256  
                                                                //   8257        %IF REG=ACCR %THEN %START
#line 8257 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_082a;
                                                                //   8258           GET IN ACC(REG,1,0,LNB,PTR OFFSET(BASE))
#line 8258 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, 2, PTROFFSET(BASE));
                                                                //   8259           OP1=IAD;  OP2=LUH
#line 8259 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 224;
#line 8259 "regression-compile-tmp/nrimp10s-77.imp"
OP2 = 106;
                                                                //   8260        %FINISH %ELSE %START
#line 8260 "regression-compile-tmp/nrimp10s-77.imp"
goto L_082b;
#line 8260 "regression-compile-tmp/nrimp10s-77.imp"
L_082a:;
                                                                //   8261           PSF1(LDA,1,PTR OFFSET(BASE))
#line 8261 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(114, 1, PTROFFSET(BASE));
                                                                //   8262           OP1=INCA;  OP2=LDTB
#line 8262 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 20;
#line 8262 "regression-compile-tmp/nrimp10s-77.imp"
OP2 = 116;
                                                                //   8263        %FINISH
#line 8263 "regression-compile-tmp/nrimp10s-77.imp"
L_082b:;
                                                                //   8264        PSF1(OP1,0,DISP)
#line 8264 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OP1, 0, DISP);
                                                                //   8265        PF1(OP2,0,PC,JJJ)
#line 8265 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OP2, 0, 4, JJJ);
                                                                //   8266        GRUSE(REG)=0
#line 8266 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 0;
                                                                //   8267        %RETURN
#line 8267 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8268  MOD(4):                                 ! ACCESS=1 FETCH ADDRESS
#line 8268 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_4:;
                                                                //   8269        JJ=NUMMOD
#line 8269 "regression-compile-tmp/nrimp10s-77.imp"
JJ = NUMMOD;
                                                                //   8270        JJ=JJ*BYTES(PREC) %IF PREC>4;     ! HALF COME WITH BYTE MODIFIER
#line 8270 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) <= (4))) goto L_082c;
#line 8270 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((JJ) * ((int)(BYTES[PREC])));
#line 8270 "regression-compile-tmp/nrimp10s-77.imp"
L_082c:;
                                                                //   8271        ->MD20
#line 8271 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104d;
                                                                //   8272  MOD(20):                                ! ACCESS=5 FETCH ADDRESS
#line 8272 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_20:;
                                                                //   8273        JJ=NUMMOD+XDISP
#line 8273 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)(NUMMOD)) + (XDISP));
                                                                //   8274  MD20: GET IN ACC(REG,1,0,AREA CODE,DISP+4);! BACK HALF OF DESCTR
#line 8274 "regression-compile-tmp/nrimp10s-77.imp"
U_104d:;
#line 8274 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, AREACODE(), (((int)(DISP)) + (4)));
                                                                //   8275        %IF REG=ACCR %THEN OP1=IAD %ELSE OP1=ADB
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_082d;
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 224;
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
goto L_082e;
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
L_082d:;
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 32;
#line 8275 "regression-compile-tmp/nrimp10s-77.imp"
L_082e:;
                                                                //   8276        PSF1(OP1,0,JJ) %UNLESS JJ=0
#line 8276 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_082f;
#line 8276 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OP1, 0, JJ);
#line 8276 "regression-compile-tmp/nrimp10s-77.imp"
L_082f:;
                                                                //   8277        %RETURN
#line 8277 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8278  MOD(7):                                 ! ACCESS=1 SET DESCRIPTOR
#line 8278 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_7:;
                                                                //   8279        JJ=NUMMOD
#line 8279 "regression-compile-tmp/nrimp10s-77.imp"
JJ = NUMMOD;
                                                                //   8280        JJ=JJ*BYTES(PREC) %IF PREC>4;     ! HALF COME WITH BYTE MODIFIER
#line 8280 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) <= (4))) goto L_0830;
#line 8280 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((JJ) * ((int)(BYTES[PREC])));
#line 8280 "regression-compile-tmp/nrimp10s-77.imp"
L_0830:;
                                                                //   8281        GET IN ACC(REG,2,0,AREA CODE,DISP);! DESCTR
#line 8281 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 2, 0, AREACODE(), DISP);
                                                                //   8282        %IF REG=ACCR %THEN OP1=IAD %ELSE OP1=INCA
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_0831;
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 224;
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0832;
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
L_0831:;
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
OP1 = 20;
#line 8282 "regression-compile-tmp/nrimp10s-77.imp"
L_0832:;
                                                                //   8283        PSF1(OP1,0,JJ) %UNLESS JJ=0
#line 8283 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (0))) goto L_0833;
#line 8283 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(OP1, 0, JJ);
#line 8283 "regression-compile-tmp/nrimp10s-77.imp"
L_0833:;
                                                                //   8284        %RETURN
#line 8284 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8285  MOD(5):                                 ! ACCESS=1 STORE
#line 8285 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_5:;
                                                                //   8286  MOD(6):                                 ! ACCESS=1 FETCH
#line 8286 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_6:;
                                                                //   8287        %IF NUMMOD=0 %THEN ACCESS=2 %AND ->MOD(KK+8)
#line 8287 "regression-compile-tmp/nrimp10s-77.imp"
if (((NUMMOD) != (0))) goto L_0834;
#line 8287 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 8287 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = (((int)(KK)) + (8)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 8287 "regression-compile-tmp/nrimp10s-77.imp"
L_0834:;
                                                                //   8288  
                                                                //   8289        %UNLESS GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF %THEN GET IN ACC(DR,2,0,AREA CODE,DISP)
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_0835;
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0835;
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) == (((NAMEP) & (65535))))) goto L_0836;
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
L_0835:;
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), DISP);
#line 8289 "regression-compile-tmp/nrimp10s-77.imp"
L_0836:;
                                                                //   8290        %IF NAMEP>0 %THEN GRUSE(DR)=7 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8290 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0837;
#line 8290 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 7;
#line 8290 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = ((NAMEP) & (65535));
#line 8290 "regression-compile-tmp/nrimp10s-77.imp"
L_0837:;
                                                                //   8291        AREA=0; DISP=NUMMOD
#line 8291 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
#line 8291 "regression-compile-tmp/nrimp10s-77.imp"
DISP = NUMMOD;
                                                                //   8292        ->DRFETCH %IF Z=2
#line 8292 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_0838;
#line 8292 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1030;
#line 8292 "regression-compile-tmp/nrimp10s-77.imp"
L_0838:;
                                                                //   8293        %RETURN
#line 8293 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8294  MOD(12):                                ! ACCESS=3 FETCH ADDRESS
#line 8294 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_12:;
                                                                //   8295        JJJ=BYTES(PREC)
#line 8295 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = BYTES[PREC];
                                                                //   8296  !
                                                                //   8297  ! REMEMBER HALF INTEGERS READY SCALED BY VMY OR IN CANAME
                                                                //   8298  !
                                                                //   8299        PSF1(MYB,0,JJJ) %AND GRUSE(BREG)=0 %UNLESS JJJ=1 %OR PREC=4
#line 8299 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) == (1))) goto L_0839;
#line 8299 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (4))) goto L_0839;
#line 8299 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, JJJ);
#line 8299 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 8299 "regression-compile-tmp/nrimp10s-77.imp"
L_0839:;
                                                                //   8300  MD12: %IF REG=BREG %THEN %START
#line 8300 "regression-compile-tmp/nrimp10s-77.imp"
U_104e:;
#line 8300 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_083a;
                                                                //   8301           %IF AREA=7 %START
#line 8301 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (7))) goto L_083b;
                                                                //   8302              PF1(INCA,0,BREG,0)
#line 8302 "regression-compile-tmp/nrimp10s-77.imp"
PF1(20, 0, 7, 0);
                                                                //   8303              GRUSE(DR)=0
#line 8303 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8304              PF1(LB,2,0,11);             ! DR BTM HALF TO B VIA IMAGE STORE INSTRUCTION
#line 8304 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 2, 0, 11);
                                                                //   8305           %FINISH %ELSE PF1(ADB,0,AREA CODE,DISP+4)
#line 8305 "regression-compile-tmp/nrimp10s-77.imp"
goto L_083c;
#line 8305 "regression-compile-tmp/nrimp10s-77.imp"
L_083b:;
#line 8305 "regression-compile-tmp/nrimp10s-77.imp"
PF1(32, 0, AREACODE(), (((int)(DISP)) + (4)));
#line 8305 "regression-compile-tmp/nrimp10s-77.imp"
L_083c:;
                                                                //   8306           GRUSE(BREG)=0
#line 8306 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   8307           %RETURN
#line 8307 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8308        %FINISH
#line 8308 "regression-compile-tmp/nrimp10s-77.imp"
L_083a:;
                                                                //   8309  MOD(8):                                 ! ACCESS=2 FETCH ADDRESS
#line 8309 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_8:;
                                                                //   8310        %IF AREA=7 %THEN GET IN ACC(REG,1,2,0,11) %ELSE GET IN ACC(REG,1,0,AREA CODE,DISP+4)
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (7))) goto L_083d;
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 2, 0, 11);
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
goto L_083e;
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
L_083d:;
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, AREACODE(), (((int)(DISP)) + (4)));
#line 8310 "regression-compile-tmp/nrimp10s-77.imp"
L_083e:;
                                                                //   8311        %IF ACCESS&3=3 %THEN PF1(IAD,0,BREG,0)
#line 8311 "regression-compile-tmp/nrimp10s-77.imp"
if (((((ACCESS) & (3))) != (3))) goto L_083f;
#line 8311 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, 7, 0);
#line 8311 "regression-compile-tmp/nrimp10s-77.imp"
L_083f:;
                                                                //   8312        %RETURN
#line 8312 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8313  MOD(9):                                 ! ACCESS=2 STORE
#line 8313 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_9:;
                                                                //   8314  MOD(13):                                ! ACCESS=3 STORE
#line 8314 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_13:;
                                                                //   8315        %IF AREA=7 %THEN DISP=0 %AND %RETURN
#line 8315 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (7))) goto L_0840;
#line 8315 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 8315 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 8315 "regression-compile-tmp/nrimp10s-77.imp"
L_0840:;
                                                                //   8316        %IF GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF %THEN AREA=7 %AND DISP=0 %ELSE AREA=AREA CODE
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_0841;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0841;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) != (((NAMEP) & (65535))))) goto L_0841;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0842;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
L_0841:;
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
#line 8316 "regression-compile-tmp/nrimp10s-77.imp"
L_0842:;
                                                                //   8317        %RETURN
#line 8317 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8318  MOD(11):                                ! ACCESS=2 SET DESCRIPTOR
#line 8318 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_11:;
                                                                //   8319        %IF AREA=7 %THEN %START
#line 8319 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (7))) goto L_0843;
                                                                //   8320           COPY DR %UNLESS REG=DR
#line 8320 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_0844;
#line 8320 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8320 "regression-compile-tmp/nrimp10s-77.imp"
L_0844:;
                                                                //   8321           %RETURN
#line 8321 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8322        %FINISH
#line 8322 "regression-compile-tmp/nrimp10s-77.imp"
L_0843:;
                                                                //   8323        GET IN ACC(REG,2,0,AREA CODE,DISP)
#line 8323 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 2, 0, AREACODE(), DISP);
                                                                //   8324        %RETURN
#line 8324 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8325  MOD(15):                                ! ACCESS=3 SET DESCRIPTOR
#line 8325 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_15:;
                                                                //   8326        GET IN ACC(DR,2,0,AREA CODE,DISP) %UNLESS AREA=7
#line 8326 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) == (7))) goto L_0845;
#line 8326 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), DISP);
#line 8326 "regression-compile-tmp/nrimp10s-77.imp"
L_0845:;
                                                                //   8327        %IF PREC=4 %OR(TYPE=3 %AND PARMARR=0) %THEN JJ=INCA %ELSE JJ=MODD
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) == (4))) goto L_0846;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_0847;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMARR) != (0))) goto L_0847;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
L_0846:;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 20;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0848;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
L_0847:;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 22;
#line 8327 "regression-compile-tmp/nrimp10s-77.imp"
L_0848:;
                                                                //   8328        PF1(JJ,0,BREG,0)
#line 8328 "regression-compile-tmp/nrimp10s-77.imp"
PF1(JJ, 0, 7, 0);
                                                                //   8329        %IF REG#DR %THEN COPY DR
#line 8329 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_0849;
#line 8329 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8329 "regression-compile-tmp/nrimp10s-77.imp"
L_0849:;
                                                                //   8330        GRUSE(DR)=0
#line 8330 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8331        %RETURN
#line 8331 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8332  MOD(17):                                ! ACCESS=4 STORE
#line 8332 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_17:;
                                                                //   8333  MOD(18):                                ! ACCESS=4 FETCH
#line 8333 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_18:;
                                                                //   8334        %IF SIZE=1 %THEN DISP=DISP-8 %AND ->MD2526
#line 8334 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (1))) goto L_084a;
#line 8334 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(DISP)) - (8));
#line 8334 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104f;
#line 8334 "regression-compile-tmp/nrimp10s-77.imp"
L_084a:;
                                                                //   8335        DISP=DISP+XDISP
#line 8335 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(DISP)) + (XDISP));
                                                                //   8336        ACCESS=0
#line 8336 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   8337        ->MOD(KK);                        ! REDUCES TO ACCESS=0
#line 8337 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = KK; if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8338  MOD(36):                                ! ACCESS=9 FETCH ADDRESS
#line 8338 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_36:;
                                                                //   8339  MOD(37):                                ! ACCESS=9 STORE
#line 8339 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_37:;
                                                                //   8340  MOD(38):                                ! ACCESS=9 FETCH
#line 8340 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_38:;
                                                                //   8341  MOD(39):                                ! ACCESS=9 SET DESCRIPTOR
#line 8341 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_39:;
                                                                //   8342        XYNB=BASEREG(8,NAMEP&16_FFFF)
#line 8342 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = BASEREG(8, ((NAMEP) & (65535)));
                                                                //   8343        DISP=NUMMOD+XDISP; AREA=XYNB
#line 8343 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(NUMMOD)) + (XDISP));
#line 8343 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
                                                                //   8344        ACCESS=3; NAMEP=0
#line 8344 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 8344 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
                                                                //   8345        ->MOD(KK+8);                      ! HAS REDUCED TO ACCESS=2
#line 8345 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = (((int)(KK)) + (8)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8346  MOD(16):                                ! ACCESS=4 FETCH ADDRESS
#line 8346 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_16:;
                                                                //   8347        DISP=DISP-8
#line 8347 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(DISP)) - (8));
                                                                //   8348  MOD(24):                                ! ACCESS=6 FETCH ADDRESS
#line 8348 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_24:;
                                                                //   8349        GET IN ACC(REG,1,0,AREA CODE,DISP+4)
#line 8349 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(REG, 1, 0, AREACODE(), (((int)(DISP)) + (4)));
                                                                //   8350        %IF REG=BREG %THEN KK=ADB %ELSE KK=IAD
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_084b;
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
KK = 32;
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
goto L_084c;
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
L_084b:;
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
KK = 224;
#line 8350 "regression-compile-tmp/nrimp10s-77.imp"
L_084c:;
                                                                //   8351        PSF1(KK,0,XDISP) %UNLESS XDISP=0
#line 8351 "regression-compile-tmp/nrimp10s-77.imp"
if (((XDISP) == (0))) goto L_084d;
#line 8351 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(KK, 0, XDISP);
#line 8351 "regression-compile-tmp/nrimp10s-77.imp"
L_084d:;
                                                                //   8352        %RETURN
#line 8352 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8353  MD2526:
#line 8353 "regression-compile-tmp/nrimp10s-77.imp"
U_104f:;
                                                                //   8354  MOD(25):                                ! ACCESS=6 STORE
#line 8354 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_25:;
                                                                //   8355  MOD(26):                                ! ACCESS=6 FETCH
#line 8355 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_26:;
                                                                //   8356        %IF SIZE>2 %START
#line 8356 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (2))) goto L_084e;
                                                                //   8357           XYNB=BASEREG(8,NAMEP&16_FFFF)
#line 8357 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = BASEREG(8, ((NAMEP) & (65535)));
                                                                //   8358           AREA=XYNB;  ACCESS=0
#line 8358 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
#line 8358 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   8359           DISP=XDISP; ->MOD(KK)
#line 8359 "regression-compile-tmp/nrimp10s-77.imp"
DISP = XDISP;
#line 8359 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = KK; if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8360        %FINISH
#line 8360 "regression-compile-tmp/nrimp10s-77.imp"
L_084e:;
                                                                //   8361        %IF SIZE=1 %THEN %START;          ! SIZE = 1 FOR BYTES
#line 8361 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (1))) goto L_084f;
                                                                //   8362           PSORLF1(LD,0,AREA CODE,DISP) %UNLESS GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_0850;
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0850;
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) == (((NAMEP) & (65535))))) goto L_0851;
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
L_0850:;
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(120, 0, AREACODE(), DISP);
#line 8362 "regression-compile-tmp/nrimp10s-77.imp"
L_0851:;
                                                                //   8363        %FINISH %ELSE %START;             ! SIZE=2 FOR HALFS
#line 8363 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0852;
#line 8363 "regression-compile-tmp/nrimp10s-77.imp"
L_084f:;
                                                                //   8364           PF1(LDTB,0,PC,MAP DES(4)) %UNLESS GRUSE(DR)=13 %OR GRUSE(DR)=15
#line 8364 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (13))) goto L_0853;
#line 8364 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (15))) goto L_0853;
#line 8364 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, MAPDES(4));
#line 8364 "regression-compile-tmp/nrimp10s-77.imp"
L_0853:;
                                                                //   8365           PSORLF1(LDA,0,AREA CODE,DISP+4) %UNLESS NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF %AND (GRUSE(DR)=7 %OR GRUSE(DR)=15)
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0854;
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) != (((NAMEP) & (65535))))) goto L_0854;
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (7))) goto L_0855;
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (15))) goto L_0855;
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
L_0854:;
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(114, 0, AREACODE(), (((int)(DISP)) + (4)));
#line 8365 "regression-compile-tmp/nrimp10s-77.imp"
L_0855:;
                                                                //   8366        %FINISH
#line 8366 "regression-compile-tmp/nrimp10s-77.imp"
L_0852:;
                                                                //   8367        GRUSE(DR)=0
#line 8367 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8368        %IF NAMEP>0 %THEN GRUSE(DR)=8*SIZE-1 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8368 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0856;
#line 8368 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = (((int)((((int)(8)) * (SIZE)))) - (1));
#line 8368 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = ((NAMEP) & (65535));
#line 8368 "regression-compile-tmp/nrimp10s-77.imp"
L_0856:;
                                                                //   8369        ACCESS=1;  AREA=0
#line 8369 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 8369 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
                                                                //   8370        DISP=XDISP
#line 8370 "regression-compile-tmp/nrimp10s-77.imp"
DISP = XDISP;
                                                                //   8371        %IF DISP=0 %AND ACCESS=1 %THEN AREA=7 %AND ACCESS=2
#line 8371 "regression-compile-tmp/nrimp10s-77.imp"
if (((DISP) != (0))) goto L_0857;
#line 8371 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (1))) goto L_0857;
#line 8371 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
#line 8371 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 8371 "regression-compile-tmp/nrimp10s-77.imp"
L_0857:;
                                                                //   8372        ->DRFETCH %IF Z=2
#line 8372 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_0858;
#line 8372 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1030;
#line 8372 "regression-compile-tmp/nrimp10s-77.imp"
L_0858:;
                                                                //   8373        %RETURN
#line 8373 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8374  MOD(23):                                ! ACCESS=5 SET DESCRIPTOR
#line 8374 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_23:;
                                                                //   8375        XDISP=NUMMOD+XDISP
#line 8375 "regression-compile-tmp/nrimp10s-77.imp"
XDISP = (((int)(NUMMOD)) + (XDISP));
                                                                //   8376        ->MD31
#line 8376 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1031;
                                                                //   8377  MOD(19):                                ! ACCESS=4 SET DESCRIPTOR
#line 8377 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_19:;
                                                                //   8378        DISP=DISP-8
#line 8378 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(DISP)) - (8));
                                                                //   8379  MOD(27):                                ! ACCESS=6 SET DESCRIPTOR
#line 8379 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_27:;
                                                                //   8380  MOD(31):                                ! ACCESS=7 SET DESRCPTOR
#line 8380 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_31:;
                                                                //   8381  MD31: GET IN ACC(DR,2,0,AREA CODE,DISP)
#line 8381 "regression-compile-tmp/nrimp10s-77.imp"
U_1031:;
#line 8381 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREACODE(), DISP);
                                                                //   8382        PSF1(INCA,0,XDISP) %UNLESS XDISP=0
#line 8382 "regression-compile-tmp/nrimp10s-77.imp"
if (((XDISP) == (0))) goto L_0859;
#line 8382 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, XDISP);
#line 8382 "regression-compile-tmp/nrimp10s-77.imp"
L_0859:;
                                                                //   8383        PF1(INCA,0,BREG,0) %IF ACCESS=7
#line 8383 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (7))) goto L_085a;
#line 8383 "regression-compile-tmp/nrimp10s-77.imp"
PF1(20, 0, 7, 0);
#line 8383 "regression-compile-tmp/nrimp10s-77.imp"
L_085a:;
                                                                //   8384        %IF TYPE=3 %OR TYPE=5 %THEN PSORLF1(LDB,0,0,ACC) %ELSE PF1(LDTB,0,PC,PARAM DES(PREC))
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) == (3))) goto L_085b;
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_085c;
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
L_085b:;
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(118, 0, 0, ACC);
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
goto L_085d;
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
L_085c:;
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, PARAMDES(PREC));
#line 8384 "regression-compile-tmp/nrimp10s-77.imp"
L_085d:;
                                                                //   8385        %IF REG#DR %THEN COPY DR
#line 8385 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_085e;
#line 8385 "regression-compile-tmp/nrimp10s-77.imp"
COPYDR();
#line 8385 "regression-compile-tmp/nrimp10s-77.imp"
L_085e:;
                                                                //   8386        %RETURN
#line 8386 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8387  MOD(28):                                ! ACCESS=7 FETCH ADDRESS
#line 8387 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_28:;
                                                                //   8388        PSF1(ADB,0,XDISP) %AND GRUSE(BREG)=0 %UNLESS XDISP=0
#line 8388 "regression-compile-tmp/nrimp10s-77.imp"
if (((XDISP) == (0))) goto L_085f;
#line 8388 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 0, XDISP);
#line 8388 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
#line 8388 "regression-compile-tmp/nrimp10s-77.imp"
L_085f:;
                                                                //   8389        ACCESS=3;  ->MD12
#line 8389 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 8389 "regression-compile-tmp/nrimp10s-77.imp"
goto U_104e;
                                                                //   8390  MOD(29):                                ! ACCESS=7 STORE
#line 8390 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_29:;
                                                                //   8391  MOD(30):                                ! ACCESS=7 FETCH
#line 8391 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_30:;
                                                                //   8392  MOD(21):                                ! ACCESS=5 STORE
#line 8392 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_21:;
                                                                //   8393  MOD(22):                                ! ACCESS=5 FETCH
#line 8393 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_22:;
                                                                //   8394        %IF 1<=SIZE<=2 %THEN %START
#line 8394 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (SIZE))) || (((SIZE) > (2)))) goto L_0860;
                                                                //   8395           %IF SIZE=1 %THEN %START
#line 8395 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (1))) goto L_0861;
                                                                //   8396              PSORLF1(LD,0,AREA CODE,DISP) %UNLESS GRUSE(DR)=7 %AND NAMEP>0 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) != (7))) goto L_0862;
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0862;
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) == (((NAMEP) & (65535))))) goto L_0863;
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
L_0862:;
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(120, 0, AREACODE(), DISP);
#line 8396 "regression-compile-tmp/nrimp10s-77.imp"
L_0863:;
                                                                //   8397           %FINISH %ELSE %START;          ! SIZE=2 HALFS
#line 8397 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0864;
#line 8397 "regression-compile-tmp/nrimp10s-77.imp"
L_0861:;
                                                                //   8398              PSORLF1(LDA,0,AREA CODE,DISP+4) %UNLESS NAMEP>=0 %AND GRINF1(DR)=NAMEP&16_FFFF %AND (GRUSE(DR)=7 %OR GRUSE(DR)=15)
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) < (0))) goto L_0865;
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[1]) != (((NAMEP) & (65535))))) goto L_0865;
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (7))) goto L_0866;
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (15))) goto L_0866;
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
L_0865:;
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(114, 0, AREACODE(), (((int)(DISP)) + (4)));
#line 8398 "regression-compile-tmp/nrimp10s-77.imp"
L_0866:;
                                                                //   8399              PF1(LDTB,0,PC,MAPDES(4)) %UNLESS GRUSE(DR)=13 %OR GRUSE(DR)=15
#line 8399 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (13))) goto L_0867;
#line 8399 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[1]) == (15))) goto L_0867;
#line 8399 "regression-compile-tmp/nrimp10s-77.imp"
PF1(116, 0, 4, MAPDES(4));
#line 8399 "regression-compile-tmp/nrimp10s-77.imp"
L_0867:;
                                                                //   8400           %FINISH
#line 8400 "regression-compile-tmp/nrimp10s-77.imp"
L_0864:;
                                                                //   8401           GRUSE(DR)=0
#line 8401 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
                                                                //   8402           %IF NAMEP>0 %THEN GRUSE(DR)=8*SIZE-1 %AND GRINF1(DR)=NAMEP&16_FFFF
#line 8402 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) <= (0))) goto L_0868;
#line 8402 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = (((int)((((int)(8)) * (SIZE)))) - (1));
#line 8402 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[1] = ((NAMEP) & (65535));
#line 8402 "regression-compile-tmp/nrimp10s-77.imp"
L_0868:;
                                                                //   8403           %IF ACCESS=7 %START
#line 8403 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (7))) goto L_0869;
                                                                //   8404              PSF1(ADB,0,XDISP) %IF XDISP#0
#line 8404 "regression-compile-tmp/nrimp10s-77.imp"
if (((XDISP) == (0))) goto L_086a;
#line 8404 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 0, XDISP);
#line 8404 "regression-compile-tmp/nrimp10s-77.imp"
L_086a:;
                                                                //   8405              ACCESS=3; AREA=7
#line 8405 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 3;
#line 8405 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 7;
                                                                //   8406              DISP=0
#line 8406 "regression-compile-tmp/nrimp10s-77.imp"
DISP = 0;
                                                                //   8407              GRUSE(BREG)=0
#line 8407 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   8408           %FINISH %ELSE %START;          ! ACCESS = 5
#line 8408 "regression-compile-tmp/nrimp10s-77.imp"
goto L_086b;
#line 8408 "regression-compile-tmp/nrimp10s-77.imp"
L_0869:;
                                                                //   8409              DISP=XDISP+NUMMOD
#line 8409 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(XDISP)) + (NUMMOD));
                                                                //   8410              ACCESS=1;  AREA=0
#line 8410 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 1;
#line 8410 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 0;
                                                                //   8411           %FINISH
#line 8411 "regression-compile-tmp/nrimp10s-77.imp"
L_086b:;
                                                                //   8412           NAMEP=0
#line 8412 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
                                                                //   8413           ->DRFETCH %IF Z=2
#line 8413 "regression-compile-tmp/nrimp10s-77.imp"
if (((Z) != (2))) goto L_086c;
#line 8413 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1030;
#line 8413 "regression-compile-tmp/nrimp10s-77.imp"
L_086c:;
                                                                //   8414           %RETURN
#line 8414 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8415        %FINISH
#line 8415 "regression-compile-tmp/nrimp10s-77.imp"
L_0860:;
                                                                //   8416        %IF ACCESS=7 %START
#line 8416 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (7))) goto L_086d;
                                                                //   8417           PSORLF1(ADB,0,AREA CODE,DISP+4)
#line 8417 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(32, 0, AREACODE(), (((int)(DISP)) + (4)));
                                                                //   8418           GRUSE(BREG)=0
#line 8418 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   8419           XYNB=XORYNB(0,0)
#line 8419 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = XORYNB(0, 0);
                                                                //   8420           PF1(LDCODE(XYNB),0,BREG,0)
#line 8420 "regression-compile-tmp/nrimp10s-77.imp"
PF1(LDCODE[XYNB], 0, 7, 0);
                                                                //   8421           GRUSE(XYNB)=0
#line 8421 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[XYNB] = 0;
                                                                //   8422           DISP=XDISP
#line 8422 "regression-compile-tmp/nrimp10s-77.imp"
DISP = XDISP;
                                                                //   8423        %FINISH %ELSE %START;             ! ACCESS=5
#line 8423 "regression-compile-tmp/nrimp10s-77.imp"
goto L_086e;
#line 8423 "regression-compile-tmp/nrimp10s-77.imp"
L_086d:;
                                                                //   8424           XYNB=BASEREG(8,NAMEP&16_FFFF)
#line 8424 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = BASEREG(8, ((NAMEP) & (65535)));
                                                                //   8425           DISP=NUMMOD+XDISP
#line 8425 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(NUMMOD)) + (XDISP));
                                                                //   8426        %FINISH
#line 8426 "regression-compile-tmp/nrimp10s-77.imp"
L_086e:;
                                                                //   8427        AREA=XYNB;  ACCESS=0
#line 8427 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
#line 8427 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 0;
                                                                //   8428        NAMEP=0
#line 8428 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
                                                                //   8429        ->MOD(KK)
#line 8429 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = KK; if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8430  MOD(32):                                ! ACCESS=8 FETCH ADDRESS
#line 8430 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_32:;
                                                                //   8431  MOD(33):                                ! ACCESS=8 STORE
#line 8431 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_33:;
                                                                //   8432  MOD(34):                                ! ACCESS=8 FETCH
#line 8432 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_34:;
                                                                //   8433  MOD(35):                                ! ACCESS=8 SET DESCRIPTOR
#line 8433 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_35:;
                                                                //   8434        DISP=DISP+XDISP
#line 8434 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (((int)(DISP)) + (XDISP));
                                                                //   8435        NAMEP=0
#line 8435 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
                                                                //   8436        ACCESS=2;  ->MOD(KK+8)
#line 8436 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 8436 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = (((int)(KK)) + (8)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8437  MOD(40):                                ! ACCESS=10 FETCH ADDRESS
#line 8437 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_40:;
                                                                //   8438  MOD(41):                                ! ACCESS=10 STORE
#line 8438 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_41:;
                                                                //   8439  MOD(42):                                ! ACCESS=10 FETCH
#line 8439 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_42:;
                                                                //   8440  MOD(43):                                ! ACCESS=10 SET DESCRIPTOR
#line 8440 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_43:;
                                                                //   8441        XYNB=BASEREG(8,NAMEP&16_FFFF)
#line 8441 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = BASEREG(8, ((NAMEP) & (65535)));
                                                                //   8442        AREA=XYNB;  ACCESS=2;  DISP=XDISP
#line 8442 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
#line 8442 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 8442 "regression-compile-tmp/nrimp10s-77.imp"
DISP = XDISP;
                                                                //   8443        NAMEP=0
#line 8443 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
                                                                //   8444        ->MOD(KK+8)
#line 8444 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = (((int)(KK)) + (8)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8445  MOD(44):                                ! ACCESS=11 FETCH ADDRESS
#line 8445 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_44:;
                                                                //   8446  MOD(45):                                ! ACCESS=11 STORE
#line 8446 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_45:;
                                                                //   8447  MOD(46):                                ! ACCESS=11 FETCH
#line 8447 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_46:;
                                                                //   8448  MOD(47):                                ! ACCESS=11 SET DESCRIPTOR
#line 8448 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_47:;
                                                                //   8449        PSORLF1(ADB,0,AREA CODE,DISP+4)
#line 8449 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(32, 0, AREACODE(), (((int)(DISP)) + (4)));
                                                                //   8450        GRUSE(BREG)=0
#line 8450 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[7] = 0;
                                                                //   8451        XYNB=XORYNB(0,0)
#line 8451 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = XORYNB(0, 0);
                                                                //   8452        PF1(LDCODE(XYNB),0,BREG,0)
#line 8452 "regression-compile-tmp/nrimp10s-77.imp"
PF1(LDCODE[XYNB], 0, 7, 0);
                                                                //   8453        GRUSE(XYNB)=0
#line 8453 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[XYNB] = 0;
                                                                //   8454        NAMEP=0;  AREA=XYNB
#line 8454 "regression-compile-tmp/nrimp10s-77.imp"
NAMEP = 0;
#line 8454 "regression-compile-tmp/nrimp10s-77.imp"
AREA = XYNB;
                                                                //   8455        ACCESS=2;  DISP=XDISP;  ->MOD(KK+8)
#line 8455 "regression-compile-tmp/nrimp10s-77.imp"
ACCESS = 2;
#line 8455 "regression-compile-tmp/nrimp10s-77.imp"
DISP = XDISP;
#line 8455 "regression-compile-tmp/nrimp10s-77.imp"
sw26_MOD_idx = (((int)(KK)) + (8)); if ((0 <= sw26_MOD_idx) && (sw26_MOD_idx <= 47)) goto *sw26_MOD[sw26_MOD_idx]; else {
   /*_imp_signal(8, 2, sw26_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:47 at %s:%d\n",
           sw26_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8456  %INTEGERFN BASEREG(%INTEGER GRUSEVAL,GRINFVAL)
#line 8456 "regression-compile-tmp/nrimp10s-77.imp"
int BASEREG( int GRUSEVAL, int GRINFVAL )
#line 8456 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8457  !***********************************************************************
                                                                //   8458  !*    SETS A BASE REGISTER FOR RECORD WHOSE POINTER IS AT AREA&DISP     *
                                                                //   8459  !***********************************************************************
                                                                //   8460  %INTEGER XYNB
#line 8460 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
                                                                //   8461        %IF NAMEP<=0 %THEN GRUSEVAL=0 %AND GRINFVAL=0
#line 8461 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMEP) > (0))) goto L_086f;
#line 8461 "regression-compile-tmp/nrimp10s-77.imp"
GRUSEVAL = 0;
#line 8461 "regression-compile-tmp/nrimp10s-77.imp"
GRINFVAL = 0;
#line 8461 "regression-compile-tmp/nrimp10s-77.imp"
L_086f:;
                                                                //   8462        XYNB=XORYNB(GRUSEVAL,GRINFVAL)
#line 8462 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = XORYNB(GRUSEVAL, GRINFVAL);
                                                                //   8463        PSORLF1(LDCODE(XYNB),0,AREA CODE,DISP+4) %UNLESS GRUSE(XYNB)=GRUSEVAL>0 %AND GRINF1(XYNB)=GRINFVAL
#line 8463 "regression-compile-tmp/nrimp10s-77.imp"
if ((((GRUSE[XYNB]) != (GRUSEVAL))) || (((GRUSEVAL) <= (0)))) goto L_0870;
#line 8463 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[XYNB]) == (GRINFVAL))) goto L_0871;
#line 8463 "regression-compile-tmp/nrimp10s-77.imp"
L_0870:;
#line 8463 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(LDCODE[XYNB], 0, AREACODE(), (((int)(DISP)) + (4)));
#line 8463 "regression-compile-tmp/nrimp10s-77.imp"
L_0871:;
                                                                //   8464        GRUSE(XYNB)=GRUSEVAL
#line 8464 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[XYNB] = GRUSEVAL;
                                                                //   8465        GRINF1(XYNB)=GRINFVAL
#line 8465 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[XYNB] = GRINFVAL;
                                                                //   8466        GRAT(XYNB)=CA
#line 8466 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[XYNB] = CA;
                                                                //   8467        %RESULT=XYNB
#line 8467 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return XYNB;
                                                                //   8468  %END
#line 8468 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block BASEREG at level 6
                                                                //   8469  %END
#line 8469 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NAMEOP at level 5
                                                                //   8470           %ROUTINE CRCALL(%INTEGER RTNAME)
#line 8470 "regression-compile-tmp/nrimp10s-77.imp"
void CRCALL( int RTNAME )
#line 8470 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8471  !***********************************************************************
                                                                //   8472  !*       COMPILE A ROUTINE OR FN CALL                                  *
                                                                //   8473  !*       THE PROCEDURE CONSIST OF THREE PARTS:-                        *
                                                                //   8474  !*       A) PLANT THE PARAMETER (IF ANY)                               *
                                                                //   8475  !*       B) ENTER THE ROUTINE OR FN                                    *
                                                                //   8476  !*       C) FORGET ANY REGISTERS WHICH HOLD ENTITIES THAT CAN BE       *
                                                                //   8477  !*          ALTERED BY THE CALLED PROCEDURE.                           *
                                                                //   8478  !***********************************************************************
                                                                //   8479  %SWITCH FPD(0:3)
#line 8479 "regression-compile-tmp/nrimp10s-77.imp"
static int sw27_FPD_idx;
static const void * /*SWITCH*/ sw27_FPD[4] = { &&sw27_FPD_0, &&sw27_FPD_1, &&sw27_FPD_2, &&sw27_FPD_3,  };
                                                                //   8480  %INTEGER II,III,QQQ,DLINK,JJ,JJJ,NPARMS,PT,LP,PSIZE,TWSP,FPTR,TYPEP,PRECP,NAMP,TL,MOVEPTR,CLINK,RDISP
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int II;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int III;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int QQQ;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int DLINK;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int JJ;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int JJJ;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int NPARMS;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int PT;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int LP;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int PSIZE;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int TWSP;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int FPTR;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int TYPEP;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int PRECP;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int NAMP;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int TL;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int MOVEPTR;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int CLINK;
#line 8480 "regression-compile-tmp/nrimp10s-77.imp"
int RDISP;
                                                                //   8481  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 8481 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   8482           PT=PTYPE; JJJ=J; TL=OLDI
#line 8482 "regression-compile-tmp/nrimp10s-77.imp"
PT = PTYPE;
#line 8482 "regression-compile-tmp/nrimp10s-77.imp"
JJJ = J;
#line 8482 "regression-compile-tmp/nrimp10s-77.imp"
TL = OLDI;
                                                                //   8483           TWSP=0
#line 8483 "regression-compile-tmp/nrimp10s-77.imp"
TWSP = 0;
                                                                //   8484           LP=I; CLINK=K
#line 8484 "regression-compile-tmp/nrimp10s-77.imp"
LP = I;
#line 8484 "regression-compile-tmp/nrimp10s-77.imp"
CLINK = K;
                                                                //   8485           TYPEP=TYPE; PRECP=PREC; NAMP=NAM
#line 8485 "regression-compile-tmp/nrimp10s-77.imp"
TYPEP = TYPE;
#line 8485 "regression-compile-tmp/nrimp10s-77.imp"
PRECP = PREC;
#line 8485 "regression-compile-tmp/nrimp10s-77.imp"
NAMP = NAM;
                                                                //   8486           RDISP=MIDCELL
#line 8486 "regression-compile-tmp/nrimp10s-77.imp"
RDISP = MIDCELL;
                                                                //   8487  !
                                                                //   8488  ! NOW CHECK THAT THE RIGHT NUMBER OF PARAMETERS HAVE BEEN PROVIDED
                                                                //   8489  !
                                                                //   8490           TEST APP(NPARMS)
#line 8490 "regression-compile-tmp/nrimp10s-77.imp"
TESTAPP(&NPARMS);
                                                                //   8491           P=P+2
#line 8491 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   8492           %IF KFORM#NPARMS %THEN %START
#line 8492 "regression-compile-tmp/nrimp10s-77.imp"
if (((KFORM) == (NPARMS))) goto L_0872;
                                                                //   8493              FAULT(19,RTNAME);          ! WRONG NO OF PARAMETERS GIVEN
#line 8493 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(19, RTNAME);
                                                                //   8494              SKIP APP; P=P-1
#line 8494 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 8494 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (1));
                                                                //   8495              %RETURN
#line 8495 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   8496           %FINISH
#line 8496 "regression-compile-tmp/nrimp10s-77.imp"
L_0872:;
                                                                //   8497  !
                                                                //   8498           SAVE IRS;                      ! STACK ANY IRS BEFORS ASF
#line 8498 "regression-compile-tmp/nrimp10s-77.imp"
SAVEIRS();
                                                                //   8499           PSF1(PRCL,0,4)
#line 8499 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   8500           FPTR=20
#line 8500 "regression-compile-tmp/nrimp10s-77.imp"
FPTR = 20;
                                                                //   8501           ->FIRST PARM
#line 8501 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1026;
                                                                //   8502  !
                                                                //   8503  NEXT PARM:CLINK=LCELL_LINK
#line 8503 "regression-compile-tmp/nrimp10s-77.imp"
U_1024:;
#line 8503 "regression-compile-tmp/nrimp10s-77.imp"
CLINK = LCELL->LINK;
                                                                //   8504  FIRSTPARM:->ENTRY SEQ %IF CLINK=0;      ! DEPART AT ONCE IF NO PARAMS
#line 8504 "regression-compile-tmp/nrimp10s-77.imp"
U_1026:;
#line 8504 "regression-compile-tmp/nrimp10s-77.imp"
if (((CLINK) != (0))) goto L_0873;
#line 8504 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1025;
#line 8504 "regression-compile-tmp/nrimp10s-77.imp"
L_0873:;
                                                                //   8505           LCELL==ASLIST(CLINK)
#line 8505 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CLINK];
                                                                //   8506           PSIZE=LCELL_S2>>16
#line 8506 "regression-compile-tmp/nrimp10s-77.imp"
PSIZE = (int)((((unsigned int)(LCELL->S2)) >> (16)));
                                                                //   8507           P=P+1
#line 8507 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8508           PTYPE=LCELL_S1>>16
#line 8508 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (int)((((unsigned int)(LCELL->S1)) >> (16)));
                                                                //   8509           UNPACK
#line 8509 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   8510           II=TYPE;III=PREC
#line 8510 "regression-compile-tmp/nrimp10s-77.imp"
II = TYPE;
#line 8510 "regression-compile-tmp/nrimp10s-77.imp"
III = PREC;
                                                                //   8511           JJ=(NAM<<1!ARR)&3
#line 8511 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((((((NAM) << (1))) | (ARR))) & (3));
                                                                //   8512           %UNLESS (JJ=0 %AND ROUT=0) %OR (A(P+3)=4 %AND A(P+4)=1 %AND A(P+FROMAR2(P+1)+1)=2) %START
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (0))) goto L_0874;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) == (0))) goto L_0875;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
L_0874:;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (3))]) != (4))) goto L_0876;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (4))]) != (1))) goto L_0876;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)((((int)(P)) + (FROMAR2((((int)(P)) + (1))))))) + (1))]) == (2))) goto L_0875;
#line 8512 "regression-compile-tmp/nrimp10s-77.imp"
L_0876:;
                                                                //   8513              FAULT(22,0); SKIP EXP
#line 8513 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(22, 0);
#line 8513 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   8514              ->NEXT PARM
#line 8514 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   8515           %FINISH
#line 8515 "regression-compile-tmp/nrimp10s-77.imp"
L_0875:;
                                                                //   8516  !
                                                                //   8517  ! RT TYPE PARAMS, PASS 4 WORDS SET UP AS CODE DESC,DUMMY & ENVIRONMENT
                                                                //   8518  !
                                                                //   8519           %IF ROUT=1 %THEN %START
#line 8519 "regression-compile-tmp/nrimp10s-77.imp"
if (((ROUT) != (1))) goto L_0877;
                                                                //   8520              II=PTYPE; P=P+5
#line 8520 "regression-compile-tmp/nrimp10s-77.imp"
II = PTYPE;
#line 8520 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   8521              CNAME(13,ACCR);            ! SET UP 4 WDS IN ACC
#line 8521 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(13, 0);
                                                                //   8522              FAULT(22,0) %IF II&255#PTYPE&255;! PREC&TYPE SIMILAR
#line 8522 "regression-compile-tmp/nrimp10s-77.imp"
if (((((II) & (255))) == (((PTYPE) & (255))))) goto L_0878;
#line 8522 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(22, 0);
#line 8522 "regression-compile-tmp/nrimp10s-77.imp"
L_0878:;
                                                                //   8523              P=P+1; MOVEPTR=16
#line 8523 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8523 "regression-compile-tmp/nrimp10s-77.imp"
MOVEPTR = 16;
                                                                //   8524              ->STUFF
#line 8524 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   8525           %FINISH
#line 8525 "regression-compile-tmp/nrimp10s-77.imp"
L_0877:;
                                                                //   8526           ->FPD(JJ)
#line 8526 "regression-compile-tmp/nrimp10s-77.imp"
sw27_FPD_idx = JJ; if ((0 <= sw27_FPD_idx) && (sw27_FPD_idx <= 3)) goto *sw27_FPD[sw27_FPD_idx]; else {
   /*_imp_signal(8, 2, sw27_FPD_idx);*/
   fprintf(stderr, "%%SWITCH index FPD(%d) not in range 0:3 at %s:%d\n",
           sw27_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8527  FPD(0):                                ! VALUE PARAMETERS
#line 8527 "regression-compile-tmp/nrimp10s-77.imp"
sw27_FPD_0:;
                                                                //   8528           %IF TYPE=5 %THEN %START
#line 8528 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_0879;
                                                                //   8529              CSTREXP(17,DR);             ! TO WK AREA & KEEP WK AREA
#line 8529 "regression-compile-tmp/nrimp10s-77.imp"
CSTREXP(17, 1);
                                                                //   8530              PSF1(LDB,0,PSIZE)
#line 8530 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, PSIZE);
                                                                //   8531              %IF REGISTER(ACCR)=3 %THEN PF1(ST,0,TOS,0) %AND REGISTER(ACCR)=0
#line 8531 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) != (3))) goto L_087a;
#line 8531 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 8531 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
#line 8531 "regression-compile-tmp/nrimp10s-77.imp"
L_087a:;
                                                                //   8532              PF1(STD,0,TOS,0)
#line 8532 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   8533              PUSH(TWSP,VALUE,268,0);   ! RETURN WK AREA AT CALL
#line 8533 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&TWSP, VALUE, 268, 0);
                                                                //   8534              FPTR=FPTR+8; ->NEXT PARM
#line 8534 "regression-compile-tmp/nrimp10s-77.imp"
FPTR = (((int)(FPTR)) + (8));
#line 8534 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   8535           %FINISH %ELSE %START
#line 8535 "regression-compile-tmp/nrimp10s-77.imp"
L_0879:;
                                                                //   8536              %IF PREC=6 %THEN JJ=3 %ELSE JJ=TYPE
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
if (((PREC) != (6))) goto L_087b;
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
JJ = 3;
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
goto L_087c;
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
L_087b:;
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
JJ = TYPE;
#line 8536 "regression-compile-tmp/nrimp10s-77.imp"
L_087c:;
                                                                //   8537              CSEXP(ACCR,III<<4!II)
#line 8537 "regression-compile-tmp/nrimp10s-77.imp"
CSEXP(0, ((((III) << (4))) | (II)));
                                                                //   8538              MOVEPTR=((BYTES(III)+3)&(-4))
#line 8538 "regression-compile-tmp/nrimp10s-77.imp"
MOVEPTR = (((((int)(BYTES[III])) + (3))) & ((-4)));
                                                                //   8539           %FINISH
                                                                //   8540           ->STUFF
#line 8540 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   8541  !
                                                                //   8542  FPD(2):                                ! NAME PARAMETERS
#line 8542 "regression-compile-tmp/nrimp10s-77.imp"
sw27_FPD_2:;
                                                                //   8543           P=P+5
#line 8543 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   8544           FNAME=FROM AR2(P)
#line 8544 "regression-compile-tmp/nrimp10s-77.imp"
FNAME = FROMAR2(P);
                                                                //   8545           COPY TAG(FNAME)
#line 8545 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FNAME);
                                                                //   8546           %IF II#0 %OR TYPE=0 %START
#line 8546 "regression-compile-tmp/nrimp10s-77.imp"
if (((II) != (0))) goto L_087d;
#line 8546 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (0))) goto L_087e;
#line 8546 "regression-compile-tmp/nrimp10s-77.imp"
L_087d:;
                                                                //   8547              CNAME(3,ACCR)
#line 8547 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(3, 0);
                                                                //   8548              FAULT(22,FNAME) %UNLESS II=TYPE %AND III=PREC
#line 8548 "regression-compile-tmp/nrimp10s-77.imp"
if (((II) != (TYPE))) goto L_087f;
#line 8548 "regression-compile-tmp/nrimp10s-77.imp"
if (((III) == (PREC))) goto L_0880;
#line 8548 "regression-compile-tmp/nrimp10s-77.imp"
L_087f:;
#line 8548 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(22, FNAME);
#line 8548 "regression-compile-tmp/nrimp10s-77.imp"
L_0880:;
                                                                //   8549           %FINISH %ELSE %START
#line 8549 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0881;
#line 8549 "regression-compile-tmp/nrimp10s-77.imp"
L_087e:;
                                                                //   8550              CNAME(4,ACCR)
#line 8550 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(4, 0);
                                                                //   8551              %IF TYPE<=2 %THEN JJ=PREC<<27!TYPE %ELSE JJ=16_1A<<24+ACC
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) > (2))) goto L_0882;
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((((PREC) << (27))) | (TYPE));
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0883;
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
L_0882:;
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
JJ = (((int)(((26) << (24)))) + (ACC));
#line 8551 "regression-compile-tmp/nrimp10s-77.imp"
L_0883:;
                                                                //   8552              STORE CONST(III,4,ADDR(JJ))
#line 8552 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&III, 4, _imp_ADDR(&JJ));
                                                                //   8553              PF1(LUH,0,PC,III)
#line 8553 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 4, III);
                                                                //   8554           %FINISH
#line 8554 "regression-compile-tmp/nrimp10s-77.imp"
L_0881:;
                                                                //   8555           P=P+1; MOVEPTR=8
#line 8555 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8555 "regression-compile-tmp/nrimp10s-77.imp"
MOVEPTR = 8;
                                                                //   8556           ->STUFF
#line 8556 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
                                                                //   8557  !
                                                                //   8558  FPD(1):FPD(3):                        ! ARRAY NAME (&VALUE)
#line 8558 "regression-compile-tmp/nrimp10s-77.imp"
sw27_FPD_1:;
#line 8558 "regression-compile-tmp/nrimp10s-77.imp"
sw27_FPD_3:;
                                                                //   8559  !
                                                                //   8560  ! FOR ARRAYNAME PARAMETERS THE NO OF DIMENSIONS OF THE ARRAY IS
                                                                //   8561  ! DEDUCED FROM THE FIRST CALL AND STORED IN STREAM3 OF THE PARAMETER
                                                                //   8562  ! LIST. ON ANY SUBSEQUENT CALL ONLY ARRAYS OF THE SAME DIMENSION CAN
                                                                //   8563  ! BE PASSED
                                                                //   8564  !
                                                                //   8565           P=P+5
#line 8565 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (5));
                                                                //   8566           CNAME(12,ACCR)
#line 8566 "regression-compile-tmp/nrimp10s-77.imp"
CNAME(12, 0);
                                                                //   8567           GET IN ACC(ACCR,4,0,AREA CODE,DISP)
#line 8567 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(0, 4, 0, AREACODE(), DISP);
                                                                //   8568           P=P+1; MOVEPTR=16
#line 8568 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8568 "regression-compile-tmp/nrimp10s-77.imp"
MOVEPTR = 16;
                                                                //   8569           FAULT(22,0) %AND ->STUFF %UNLESS 1<=ARR<=2 %AND II=TYPE %AND III=PREC
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (ARR))) || (((ARR) > (2)))) goto L_0884;
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
if (((II) != (TYPE))) goto L_0884;
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
if (((III) == (PREC))) goto L_0885;
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
L_0884:;
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(22, 0);
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1027;
#line 8569 "regression-compile-tmp/nrimp10s-77.imp"
L_0885:;
                                                                //   8570           QQQ=FROM1(TCELL)&15;           ! DIMENSION OF ACTUAL(IF KNOWN)
#line 8570 "regression-compile-tmp/nrimp10s-77.imp"
QQQ = ((FROM1(TCELL)) & (15));
                                                                //   8571           JJ=LCELL_S1&15;                ! DIMENSION OF FORMAL
#line 8571 "regression-compile-tmp/nrimp10s-77.imp"
JJ = ((LCELL->S1) & (15));
                                                                //   8572           %IF JJ=0 %THEN JJ=QQQ %AND LCELL_S1=LCELL_S1!JJ
#line 8572 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) != (0))) goto L_0886;
#line 8572 "regression-compile-tmp/nrimp10s-77.imp"
JJ = QQQ;
#line 8572 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = ((LCELL->S1) | (JJ));
#line 8572 "regression-compile-tmp/nrimp10s-77.imp"
L_0886:;
                                                                //   8573           %IF QQQ=0 %THEN QQQ=JJ %AND REPLACE1(TCELL,FROM1(TCELL)!JJ)
#line 8573 "regression-compile-tmp/nrimp10s-77.imp"
if (((QQQ) != (0))) goto L_0887;
#line 8573 "regression-compile-tmp/nrimp10s-77.imp"
QQQ = JJ;
#line 8573 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE1(TCELL, ((FROM1(TCELL)) | (JJ)));
#line 8573 "regression-compile-tmp/nrimp10s-77.imp"
L_0887:;
                                                                //   8574           FAULT(22,0) %UNLESS JJ=QQQ
#line 8574 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJ) == (QQQ))) goto L_0888;
#line 8574 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(22, 0);
#line 8574 "regression-compile-tmp/nrimp10s-77.imp"
L_0888:;
                                                                //   8575  STUFF:   REGISTER(ACCR)=3
#line 8575 "regression-compile-tmp/nrimp10s-77.imp"
U_1027:;
#line 8575 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 3;
                                                                //   8576           FPTR=FPTR+MOVEPTR
#line 8576 "regression-compile-tmp/nrimp10s-77.imp"
FPTR = (((int)(FPTR)) + (MOVEPTR));
                                                                //   8577           -> NEXT PARM
#line 8577 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1024;
                                                                //   8578  ENTRY SEQ:                             ! CODE FOR RT ENTRY
#line 8578 "regression-compile-tmp/nrimp10s-77.imp"
U_1025:;
                                                                //   8579           %IF REGISTER(ACCR)=3 %THEN PF1(ST,0,TOS,0) %AND REGISTER(ACCR)=0
#line 8579 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) != (3))) goto L_0889;
#line 8579 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
#line 8579 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[0] = 0;
#line 8579 "regression-compile-tmp/nrimp10s-77.imp"
L_0889:;
                                                                //   8580           J=JJJ
#line 8580 "regression-compile-tmp/nrimp10s-77.imp"
J = JJJ;
                                                                //   8581  !
                                                                //   8582  ! RETURN ANY STRING WSPACE HERE. CAN BE UXED AGAIN FOR RESULT
                                                                //   8583  !
                                                                //   8584           %WHILE TWSP#0 %CYCLE
#line 8584 "regression-compile-tmp/nrimp10s-77.imp"
L_088a:;
#line 8584 "regression-compile-tmp/nrimp10s-77.imp"
if (((TWSP) == (0))) goto L_088b;
                                                                //   8585              POP(TWSP,QQQ,JJ,III)
#line 8585 "regression-compile-tmp/nrimp10s-77.imp"
POP(&TWSP, &QQQ, &JJ, &III);
                                                                //   8586              RETURN WSP(QQQ,268)
#line 8586 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(QQQ, 268);
                                                                //   8587           %REPEAT
#line 8587 "regression-compile-tmp/nrimp10s-77.imp"
goto L_088a;
#line 8587 "regression-compile-tmp/nrimp10s-77.imp"
L_088b:;
                                                                //   8588  !
                                                                //   8589  ! STRING FNS NEED A WORK AREA TO RETURN THEIR RESULTS
                                                                //   8590  !
                                                                //   8591           %IF TYPEP=5 %AND NAMP<=1 %THEN %START
#line 8591 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPEP) != (5))) goto L_088d;
#line 8591 "regression-compile-tmp/nrimp10s-77.imp"
if (((NAMP) > (1))) goto L_088d;
                                                                //   8592              GET WSP(QQQ,268)
#line 8592 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&QQQ, 268);
                                                                //   8593              STRFNRES=QQQ;               ! FOR CSTREXP TO USE
#line 8593 "regression-compile-tmp/nrimp10s-77.imp"
STRFNRES = QQQ;
                                                                //   8594              III=16_18000100; QQQ=QQQ+8
#line 8594 "regression-compile-tmp/nrimp10s-77.imp"
III = 402653440;
#line 8594 "regression-compile-tmp/nrimp10s-77.imp"
QQQ = (((int)(QQQ)) + (8));
                                                                //   8595              STORE CONST(JJ,8,ADDR(III))
#line 8595 "regression-compile-tmp/nrimp10s-77.imp"
STORECONST(&JJ, 8, _imp_ADDR(&III));
                                                                //   8596              PF1(LD,0,PC,JJ)
#line 8596 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 4, JJ);
                                                                //   8597              PSF1(INCA,1,PTR OFFSET(RBASE))
#line 8597 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 1, PTROFFSET(RBASE));
                                                                //   8598              PF1(STD,0,TOS,0)
#line 8598 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   8599              FPTR=FPTR+8
#line 8599 "regression-compile-tmp/nrimp10s-77.imp"
FPTR = (((int)(FPTR)) + (8));
                                                                //   8600           %FINISH
#line 8600 "regression-compile-tmp/nrimp10s-77.imp"
L_088d:;
                                                                //   8601  !
                                                                //   8602  ! ORDINARY ROUTINES WILL AND RT PARAMS MAY REQUIRE AN EXTRA PARAMETER
                                                                //   8603  ! BEING LNB FOR THE LEVEL OF ROUTINE DECLARATION TO BE STACKED
                                                                //   8604  !
                                                                //   8605           %IF JJJ=14 %THEN %START;    ! EXTERNAL
#line 8605 "regression-compile-tmp/nrimp10s-77.imp"
if (((JJJ) != (14))) goto L_088e;
                                                                //   8606              NMDECS(LEVEL)=NMDECS(LEVEL)!2
#line 8606 "regression-compile-tmp/nrimp10s-77.imp"
NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (2));
                                                                //   8607              II=SET XORYNB(-1,-1)
#line 8607 "regression-compile-tmp/nrimp10s-77.imp"
II = SETXORYNB((-1), (-1));
                                                                //   8608              PSF1(RALN,0,FPTR>>2)
#line 8608 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, (int)((((unsigned int)(FPTR)) >> (2))));
                                                                //   8609              PF1(CALL,2,II,RDISP)
#line 8609 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, II, RDISP);
                                                                //   8610           %FINISH %ELSE %START
#line 8610 "regression-compile-tmp/nrimp10s-77.imp"
goto L_088f;
#line 8610 "regression-compile-tmp/nrimp10s-77.imp"
L_088e:;
                                                                //   8611              %IF NAMP&1=0 %THEN %START;! INTERNAL RT CALLS
#line 8611 "regression-compile-tmp/nrimp10s-77.imp"
if (((((NAMP) & (1))) != (0))) goto L_0890;
                                                                //   8612                 %IF LP=0 %THEN %START
#line 8612 "regression-compile-tmp/nrimp10s-77.imp"
if (((LP) != (0))) goto L_0891;
                                                                //   8613                    PSF1(LD,1,12)
#line 8613 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 12);
                                                                //   8614                    PSF1(INCA,0,RDISP) %UNLESS RDISP=0
#line 8614 "regression-compile-tmp/nrimp10s-77.imp"
if (((RDISP) == (0))) goto L_0892;
#line 8614 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, RDISP);
#line 8614 "regression-compile-tmp/nrimp10s-77.imp"
L_0892:;
                                                                //   8615                    PSF1(RALN,0,FPTR>>2)
#line 8615 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, (int)((((unsigned int)(FPTR)) >> (2))));
                                                                //   8616                    PF1(CALL,2,7,0)
#line 8616 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 7, 0);
                                                                //   8617                 %FINISH %ELSE %START;! NORMAL INTERNAL CALL
#line 8617 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0893;
#line 8617 "regression-compile-tmp/nrimp10s-77.imp"
L_0891:;
                                                                //   8618                    II=SET XORYNB(XNB,LP)
#line 8618 "regression-compile-tmp/nrimp10s-77.imp"
II = SETXORYNB(3, LP);
                                                                //   8619                    PSF1(RALN,0,FPTR>>2)
#line 8619 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, (int)((((unsigned int)(FPTR)) >> (2))));
                                                                //   8620                    RT JUMP(CALL,ASLIST(TAGS(RTNAME))_S2)
#line 8620 "regression-compile-tmp/nrimp10s-77.imp"
RTJUMP(30, &ASLIST[TAGS[RTNAME]].S2);
                                                                //   8621                 %FINISH
#line 8621 "regression-compile-tmp/nrimp10s-77.imp"
L_0893:;
                                                                //   8622              %FINISH %ELSE %START
#line 8622 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0894;
#line 8622 "regression-compile-tmp/nrimp10s-77.imp"
L_0890:;
                                                                //   8623                 AREA=-1; BASE=LP
#line 8623 "regression-compile-tmp/nrimp10s-77.imp"
AREA = (-1);
#line 8623 "regression-compile-tmp/nrimp10s-77.imp"
BASE = LP;
                                                                //   8624                 AREA=AREA CODE
#line 8624 "regression-compile-tmp/nrimp10s-77.imp"
AREA = AREACODE();
                                                                //   8625                 GET IN ACC(DR,2,0,AREA,RDISP);! DESCR TO DR
#line 8625 "regression-compile-tmp/nrimp10s-77.imp"
GETINACC(1, 2, 0, AREA, RDISP);
                                                                //   8626                 PSORLF1(LXN,0,AREA,RDISP+12);! XNB TO ENVIRONMENT
#line 8626 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(126, 0, AREA, (((int)(RDISP)) + (12)));
                                                                //   8627                 PSF1(RALN,0,FPTR>>2);    ! RAISE FOR NORMAL PARAMS
#line 8627 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, (int)((((unsigned int)(FPTR)) >> (2))));
                                                                //   8628                 PF1(CALL,2,7,0)         ;! AND ENTER VIA DESCRPTR IN DR
#line 8628 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 7, 0);
                                                                //   8629              %FINISH
#line 8629 "regression-compile-tmp/nrimp10s-77.imp"
L_0894:;
                                                                //   8630           %FINISH
#line 8630 "regression-compile-tmp/nrimp10s-77.imp"
L_088f:;
                                                                //   8631           FORGET(-1)
#line 8631 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
                                                                //   8632           ROUT=1; TYPE=TYPEP; NAM=NAMP
#line 8632 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 1;
#line 8632 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = TYPEP;
#line 8632 "regression-compile-tmp/nrimp10s-77.imp"
NAM = NAMP;
                                                                //   8633           PREC=PRECP; PTYPE=PT
#line 8633 "regression-compile-tmp/nrimp10s-77.imp"
PREC = PRECP;
#line 8633 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = PT;
                                                                //   8634           %END
#line 8634 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRCALL at level 5
                                                                //   8635  %ROUTINE RT JUMP(%INTEGER CODE,%INTEGERNAME LINK)
#line 8635 "regression-compile-tmp/nrimp10s-77.imp"
void RTJUMP( int CODE, int /*name*/*LINK )
#line 8635 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8636  !***********************************************************************
                                                                //   8637  !*       PLANTS A CALL TO THE APPROPIATE ENTRY ADDRESS IN LINK         *
                                                                //   8638  !*       IF ROUTINE HAS BEEN SPECIFIED BUT NOT DESCRIBED THE JUMP CAN  *
                                                                //   8639  !*       NOT BE PLANTED AND IS LINKED INTO A LIST HEADED BY LINK       *
                                                                //   8640  !*       TO AWAIT FILLING (BY ' RHEAD ') WHEN THE BODY IS GIVEN.       *
                                                                //   8641  !*       THE FORMAT OF AN ENTRY IS :-                                  *
                                                                //   8642  !*       S1(32 BITS) = INSTRN TO BE PLANTED                            *
                                                                //   8643  !*       S2(32 BITS) = ADDRESS OF JUMP TO BE FILLED                    *
                                                                //   8644  !*       THE CODING ASSUMES I,J&OLDI ARE SET UP FOR THE CALLED ROUTINE *
                                                                //   8645  !***********************************************************************
                                                                //   8646  %INTEGER DP
#line 8646 "regression-compile-tmp/nrimp10s-77.imp"
int DP;
                                                                //   8647           %IF J=15 %THEN %START;        ! RT BODY NOT GIVEN YET
#line 8647 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (15))) goto L_0895;
                                                                //   8648              PUSH(LINK,CODE<<24!3<<23,CA,0)
#line 8648 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(LINK, ((((CODE) << (24))) | (((3) << (23)))), CA, 0);
                                                                //   8649              PF1(CODE,0,0,0)
#line 8649 "regression-compile-tmp/nrimp10s-77.imp"
PF1(CODE, 0, 0, 0);
                                                                //   8650           %FINISH %ELSE %START;          ! BODY GIVEN AND ADDRESS KNOWN
#line 8650 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0896;
#line 8650 "regression-compile-tmp/nrimp10s-77.imp"
L_0895:;
                                                                //   8651              DP=LINK-CA
#line 8651 "regression-compile-tmp/nrimp10s-77.imp"
DP = ((*(int *)(LINK)) - (CA));
                                                                //   8652              DP=DP//2 %IF CODE=CALL;    ! CALL WORKS IN HALFWORDS!
#line 8652 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (30))) goto L_0897;
#line 8652 "regression-compile-tmp/nrimp10s-77.imp"
DP = (long)((long)((int)(DP)) / (long)((int)(2)));
#line 8652 "regression-compile-tmp/nrimp10s-77.imp"
L_0897:;
                                                                //   8653              PSF1(CODE,0,DP)
#line 8653 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(CODE, 0, DP);
                                                                //   8654           %FINISH
#line 8654 "regression-compile-tmp/nrimp10s-77.imp"
L_0896:;
                                                                //   8655  %END
#line 8655 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RTJUMP at level 5
                                                                //   8656  %INTEGERFN TSEXP(%INTEGERNAME VALUE)
#line 8656 "regression-compile-tmp/nrimp10s-77.imp"
int TSEXP( int /*name*/*VALUE )
#line 8656 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8657  %SWITCH SW(1:3)
#line 8657 "regression-compile-tmp/nrimp10s-77.imp"
static int sw28_SW_idx;
static const void * /*SWITCH*/ sw28_SW[3] = { &&sw28_SW_1, &&sw28_SW_2, &&sw28_SW_3,  };
                                                                //   8658  %INTEGER PP,REXP,KK,SIGN,CT
#line 8658 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 8658 "regression-compile-tmp/nrimp10s-77.imp"
int REXP;
#line 8658 "regression-compile-tmp/nrimp10s-77.imp"
int KK;
#line 8658 "regression-compile-tmp/nrimp10s-77.imp"
int SIGN;
#line 8658 "regression-compile-tmp/nrimp10s-77.imp"
int CT;
                                                                //   8659           TYPE=1; PP=P
#line 8659 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 1;
#line 8659 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
                                                                //   8660           REXP=2-A(P+1+FROM AR2(P+1))
#line 8660 "regression-compile-tmp/nrimp10s-77.imp"
REXP = ((2) - ((int)(A[(((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))))])));
                                                                //   8661           P=P+3
#line 8661 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   8662           SIGN=A(P)
#line 8662 "regression-compile-tmp/nrimp10s-77.imp"
SIGN = A[P];
                                                                //   8663           ->TYPED %UNLESS SIGN=4 %OR A(P+1)=2
#line 8663 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIGN) == (4))) goto L_0898;
#line 8663 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (1))]) == (2))) goto L_0898;
#line 8663 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 8663 "regression-compile-tmp/nrimp10s-77.imp"
L_0898:;
                                                                //   8664           ->SW(A(P+1))
#line 8664 "regression-compile-tmp/nrimp10s-77.imp"
sw28_SW_idx = A[(((int)(P)) + (1))]; if ((1 <= sw28_SW_idx) && (sw28_SW_idx <= 3)) goto *(sw28_SW-1)[sw28_SW_idx];  /* Bounds=1:3 */ else {
   /*_imp_signal(8, 2, sw28_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:3 at %s:%d\n",
           sw28_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   8665  SW(1):                                  ! NAME
#line 8665 "regression-compile-tmp/nrimp10s-77.imp"
sw28_SW_1:;
                                                                //   8666           P=P+2; REDUCE TAG
#line 8666 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
#line 8666 "regression-compile-tmp/nrimp10s-77.imp"
REDUCETAG();
                                                                //   8667           ->TYPED
#line 8667 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
                                                                //   8668  SW(2):                                  ! CONSTANT
#line 8668 "regression-compile-tmp/nrimp10s-77.imp"
sw28_SW_2:;
                                                                //   8669           CT=A(P+2); TYPE=CT&7
#line 8669 "regression-compile-tmp/nrimp10s-77.imp"
CT = A[(((int)(P)) + (2))];
#line 8669 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((CT) & (7));
                                                                //   8670           ->TYPED %UNLESS CT=16_41 %AND SIGN#3
#line 8670 "regression-compile-tmp/nrimp10s-77.imp"
if (((CT) != (65))) goto L_088c;
#line 8670 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIGN) != (3))) goto L_0899;
#line 8670 "regression-compile-tmp/nrimp10s-77.imp"
L_088c:;
#line 8670 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 8670 "regression-compile-tmp/nrimp10s-77.imp"
L_0899:;
                                                                //   8671           KK=FROMAR2(P+3)
#line 8671 "regression-compile-tmp/nrimp10s-77.imp"
KK = FROMAR2((((int)(P)) + (3)));
                                                                //   8672           %IF REXP#0 %AND A(P+6)=CONCOP %THEN TYPE=5 %AND ->TYPED
#line 8672 "regression-compile-tmp/nrimp10s-77.imp"
if (((REXP) == (0))) goto L_089a;
#line 8672 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) + (6))]) != (13))) goto L_089a;
#line 8672 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 5;
#line 8672 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 8672 "regression-compile-tmp/nrimp10s-77.imp"
L_089a:;
                                                                //   8673           ->TYPED %UNLESS REXP=0 %AND 0<=KK<=255
#line 8673 "regression-compile-tmp/nrimp10s-77.imp"
if (((REXP) != (0))) goto L_089b;
#line 8673 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) > (KK))) || (((KK) <= (255)))) goto L_089c;
#line 8673 "regression-compile-tmp/nrimp10s-77.imp"
L_089b:;
#line 8673 "regression-compile-tmp/nrimp10s-77.imp"
goto U_102d;
#line 8673 "regression-compile-tmp/nrimp10s-77.imp"
L_089c:;
                                                                //   8674           VALUE=KK
#line 8674 "regression-compile-tmp/nrimp10s-77.imp"
*VALUE = KK;
                                                                //   8675           P=P+6
#line 8675 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (6));
                                                                //   8676           %IF SIGN#2 %THEN %RESULT=1
#line 8676 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIGN) == (2))) goto L_089d;
#line 8676 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
#line 8676 "regression-compile-tmp/nrimp10s-77.imp"
L_089d:;
                                                                //   8677            VALUE=-VALUE; %RESULT=-1
#line 8677 "regression-compile-tmp/nrimp10s-77.imp"
*VALUE = (-(*VALUE));
#line 8677 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (-1);
                                                                //   8678  SW(3):                                  ! SUB EXPRN
#line 8678 "regression-compile-tmp/nrimp10s-77.imp"
sw28_SW_3:;
                                                                //   8679  TYPED:   P=PP; %RESULT=0
#line 8679 "regression-compile-tmp/nrimp10s-77.imp"
U_102d:;
#line 8679 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
#line 8679 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   8680  %END
#line 8680 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block TSEXP at level 5
                                                                //   8681  %ROUTINE SKIP EXP
#line 8681 "regression-compile-tmp/nrimp10s-77.imp"
void SKIPEXP( void )
#line 8681 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8682  !***********************************************************************
                                                                //   8683  !*       SKIPS OVER THE EXPRESSION POINTED AT BY P. USED FOR ERROR     *
                                                                //   8684  !*       RECOVERY AND TO EXTRACT INFORMATION ABOUT THE EXPRESSION.     *
                                                                //   8685  !***********************************************************************
                                                                //   8686  %INTEGER OPTYPE, PIN, J
#line 8686 "regression-compile-tmp/nrimp10s-77.imp"
int OPTYPE;
#line 8686 "regression-compile-tmp/nrimp10s-77.imp"
int PIN;
#line 8686 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   8687           PIN=P
#line 8687 "regression-compile-tmp/nrimp10s-77.imp"
PIN = P;
                                                                //   8688           P=P+3;                         ! TO P<+'>
#line 8688 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
                                                                //   8689           %CYCLE;                        ! DOWN THE LIST OF OPERATORS
#line 8689 "regression-compile-tmp/nrimp10s-77.imp"
L_089e:;
                                                                //   8690             OPTYPE=A(P+1);               ! ALT OF P<OPERAND>
#line 8690 "regression-compile-tmp/nrimp10s-77.imp"
OPTYPE = A[(((int)(P)) + (1))];
                                                                //   8691             P=P+2
#line 8691 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   8692             %IF OPTYPE=0 %OR OPTYPE>3 %THEN ABORT
#line 8692 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTYPE) == (0))) goto L_08a1;
#line 8692 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTYPE) <= (3))) goto L_08a2;
#line 8692 "regression-compile-tmp/nrimp10s-77.imp"
L_08a1:;
#line 8692 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8692 "regression-compile-tmp/nrimp10s-77.imp"
L_08a2:;
                                                                //   8693             %IF OPTYPE=3 %THEN SKIP EXP; ! SUB EXPRESSIONS
#line 8693 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTYPE) != (3))) goto L_08a3;
#line 8693 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
#line 8693 "regression-compile-tmp/nrimp10s-77.imp"
L_08a3:;
                                                                //   8694  !
                                                                //   8695             %IF OPTYPE=2 %THEN %START;   ! OPERAND IS A CONSTANT
#line 8695 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTYPE) != (2))) goto L_08a4;
                                                                //   8696                J=A(P)&7;                 ! CONSTANT TYPE
#line 8696 "regression-compile-tmp/nrimp10s-77.imp"
J = ((A[P]) & (7));
                                                                //   8697                %IF J=5 %THEN P=P+A(P+5)+6 %ELSE P=P+1+BYTES(A(P)>>4)
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (5))) goto L_08a5;
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(((P) + ((int)(A[(((int)(P)) + (5))]))))) + (6));
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08a6;
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
L_08a5:;
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
P = (((unsigned char)((((int)(P)) + (1)))) + (BYTES[(unsigned char)((((unsigned char)(A[P])) >> (4)))]));
#line 8697 "regression-compile-tmp/nrimp10s-77.imp"
L_08a6:;
                                                                //   8698             %FINISH
#line 8698 "regression-compile-tmp/nrimp10s-77.imp"
L_08a4:;
                                                                //   8699  !
                                                                //   8700             %IF OPTYPE=1 %THEN %START;   ! NAME
#line 8700 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPTYPE) != (1))) goto L_08a7;
                                                                //   8701                P=P-1
#line 8701 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) - (1));
                                                                //   8702                P=P+3 %AND SKIP APP %UNTIL A(P)=2 ;! TILL NO ENAME
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
L_08a8:;
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (3));
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) == (2))) goto L_08a9;
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08a8;
#line 8702 "regression-compile-tmp/nrimp10s-77.imp"
L_08a9:;
                                                                //   8703                P=P+1
#line 8703 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8704             %FINISH
#line 8704 "regression-compile-tmp/nrimp10s-77.imp"
L_08a7:;
                                                                //   8705  !
                                                                //   8706             P=P+1
#line 8706 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8707             %IF A(P-1)=2 %THEN %EXIT;    ! NO MORE REST OF EXP
#line 8707 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[(((int)(P)) - (1))]) != (2))) goto L_08ab;
#line 8707 "regression-compile-tmp/nrimp10s-77.imp"
goto L_089f;
#line 8707 "regression-compile-tmp/nrimp10s-77.imp"
L_08ab:;
                                                                //   8708           %REPEAT
#line 8708 "regression-compile-tmp/nrimp10s-77.imp"
goto L_089e;
#line 8708 "regression-compile-tmp/nrimp10s-77.imp"
L_089f:;
                                                                //   8709           %END;                        ! OF ROUTINE SKIP EXP
#line 8709 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPEXP at level 5
                                                                //   8710  %ROUTINE SKIP APP
#line 8710 "regression-compile-tmp/nrimp10s-77.imp"
void SKIPAPP( void )
#line 8710 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8711  !***********************************************************************
                                                                //   8712  !*       SKIPS ACTUAL PARAMETER PART                                   *
                                                                //   8713  !*       P IS ON ALT OF P<APP> AT ENTRY                                *
                                                                //   8714  !***********************************************************************
                                                                //   8715  %INTEGER PIN
#line 8715 "regression-compile-tmp/nrimp10s-77.imp"
int PIN;
                                                                //   8716           PIN=P
#line 8716 "regression-compile-tmp/nrimp10s-77.imp"
PIN = P;
                                                                //   8717           P=P+1 %AND SKIP EXP %WHILE A(P)=1 
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
L_08ac:;
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_08ad;
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08ac;
#line 8717 "regression-compile-tmp/nrimp10s-77.imp"
L_08ad:;
                                                                //   8718           P=P+1
#line 8718 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
                                                                //   8719            %END
#line 8719 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPAPP at level 5
                                                                //   8720           %ROUTINE NO APP
#line 8720 "regression-compile-tmp/nrimp10s-77.imp"
void NOAPP( void )
#line 8720 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8721              P=P+2
#line 8721 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   8722              %IF A(P)=1 %THEN %START;    ! <APP> PRESENT
#line 8722 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_08af;
                                                                //   8723                 FAULT2(17,0,FROM AR2(P-2))
#line 8723 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(17, 0, FROMAR2((((int)(P)) - (2))));
                                                                //   8724                 SKIP APP
#line 8724 "regression-compile-tmp/nrimp10s-77.imp"
SKIPAPP();
                                                                //   8725              %FINISH %ELSE P=P+1;         ! P NOW POINTS TO ENAME
#line 8725 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08b0;
#line 8725 "regression-compile-tmp/nrimp10s-77.imp"
L_08af:;
#line 8725 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8725 "regression-compile-tmp/nrimp10s-77.imp"
L_08b0:;
                                                                //   8726           %END
#line 8726 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NOAPP at level 5
                                                                //   8727  %ROUTINE TEST APP(%INTEGERNAME NUM)
#line 8727 "regression-compile-tmp/nrimp10s-77.imp"
void TESTAPP( int /*name*/*NUM )
#line 8727 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8728  !***********************************************************************
                                                                //   8729  !*       THIS ROUTINE COUNTS THE NUMBER OF ACTUAL PARAMETERS           *
                                                                //   8730  !*       WHICH IT RETURNS IN NUM.                                      *
                                                                //   8731  !***********************************************************************
                                                                //   8732  %INTEGER PP, Q
#line 8732 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
#line 8732 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
                                                                //   8733           Q=0;  PP=P;  P=P+2;            ! P ON NAME AT ENTRY
#line 8733 "regression-compile-tmp/nrimp10s-77.imp"
Q = 0;
#line 8733 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 8733 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (2));
                                                                //   8734           %WHILE A(P)=1 %CYCLE;          ! NO (MORE) PARAMETERS
#line 8734 "regression-compile-tmp/nrimp10s-77.imp"
L_08b1:;
#line 8734 "regression-compile-tmp/nrimp10s-77.imp"
if (((A[P]) != (1))) goto L_08b2;
                                                                //   8735              P=P+1;  Q=Q+1
#line 8735 "regression-compile-tmp/nrimp10s-77.imp"
P = (((int)(P)) + (1));
#line 8735 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   8736              SKIP EXP
#line 8736 "regression-compile-tmp/nrimp10s-77.imp"
SKIPEXP();
                                                                //   8737           %REPEAT
#line 8737 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08b1;
#line 8737 "regression-compile-tmp/nrimp10s-77.imp"
L_08b2:;
                                                                //   8738           P=PP;  NUM=Q
#line 8738 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
#line 8738 "regression-compile-tmp/nrimp10s-77.imp"
*NUM = Q;
                                                                //   8739  %END
#line 8739 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TESTAPP at level 5
                                                                //   8740  %ROUTINE TEST ASS(%INTEGER REG,TYPE,SIZE)
#line 8740 "regression-compile-tmp/nrimp10s-77.imp"
void TESTASS( int REG, int TYPE, int SIZE )
#line 8740 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8741  !***********************************************************************
                                                                //   8742  !*       TEST ACC OR B FOR THE UNASSIGNED PATTERN                      *
                                                                //   8743  !***********************************************************************
                                                                //   8744  %INTEGER OPCODE,A,D
#line 8744 "regression-compile-tmp/nrimp10s-77.imp"
int OPCODE;
#line 8744 "regression-compile-tmp/nrimp10s-77.imp"
int A;
#line 8744 "regression-compile-tmp/nrimp10s-77.imp"
int D;
                                                                //   8745           %IF TYPE=5 %THEN %START
#line 8745 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_08b4;
                                                                //   8746              %RETURN %UNLESS REG=DR
#line 8746 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (1))) goto L_08b5;
#line 8746 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 8746 "regression-compile-tmp/nrimp10s-77.imp"
L_08b5:;
                                                                //   8747              PF1(STD,0,TOS,0)
#line 8747 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   8748              PF2(SWEQ,1,1,0,0,UNASSPAT&255)
#line 8748 "regression-compile-tmp/nrimp10s-77.imp"
PF2(160, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   8749           %FINISH %ELSE %START
#line 8749 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08b6;
#line 8749 "regression-compile-tmp/nrimp10s-77.imp"
L_08b4:;
                                                                //   8750              %IF REG=BREG %THEN OPCODE=CPB %ELSE OPCODE=UCP
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_08b7;
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 38;
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08b8;
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
L_08b7:;
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 198;
#line 8750 "regression-compile-tmp/nrimp10s-77.imp"
L_08b8:;
                                                                //   8751              %IF SIZE=16 %THEN PF1(STUH,0,TOS,0)
#line 8751 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (16))) goto L_08b9;
#line 8751 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 6, 0);
#line 8751 "regression-compile-tmp/nrimp10s-77.imp"
L_08b9:;
                                                                //   8752              %IF SIZE=2 %THEN A=0 %AND D=UNASSPAT>>16 %ELSE A=PC %AND D=PLABS(1)
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (2))) goto L_08ba;
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
A = 0;
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
D = (int)((((unsigned int)((-2122219135))) >> (16)));
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08bb;
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
L_08ba:;
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
A = 4;
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
D = PLABS[1];
#line 8752 "regression-compile-tmp/nrimp10s-77.imp"
L_08bb:;
                                                                //   8753              PF1(OPCODE,0,A,D)
#line 8753 "regression-compile-tmp/nrimp10s-77.imp"
PF1(OPCODE, 0, A, D);
                                                                //   8754              %IF SIZE=16 %THEN PF1(LUH,0,TOS,0)
#line 8754 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (16))) goto L_08bc;
#line 8754 "regression-compile-tmp/nrimp10s-77.imp"
PF1(106, 0, 6, 0);
#line 8754 "regression-compile-tmp/nrimp10s-77.imp"
L_08bc:;
                                                                //   8755           %FINISH
#line 8755 "regression-compile-tmp/nrimp10s-77.imp"
L_08b6:;
                                                                //   8756           PPJ(8,5);                      ! BE ERROR ROUTINE 5
#line 8756 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(8, 5);
                                                                //   8757           %IF TYPE=5 %THEN PF1(LD,0,TOS,0)
#line 8757 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (5))) goto L_08bd;
#line 8757 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 6, 0);
#line 8757 "regression-compile-tmp/nrimp10s-77.imp"
L_08bd:;
                                                                //   8758  %END
#line 8758 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TESTASS at level 5
                                                                //   8759           %ROUTINE GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE)
#line 8759 "regression-compile-tmp/nrimp10s-77.imp"
void GETWSP( int /*name*/*PLACE, int SIZE )
#line 8759 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8760  !***********************************************************************
                                                                //   8761  !*       FIND OR CREATE A TEMPORARY VARIABLE OF 'SIZE' WORDS           *
                                                                //   8762  !***********************************************************************
                                                                //   8763           %INTEGER J,K,L
#line 8763 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 8763 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 8763 "regression-compile-tmp/nrimp10s-77.imp"
int L;
                                                                //   8764           %IF SIZE>4 %THEN SIZE=0
#line 8764 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (4))) goto L_08be;
#line 8764 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = 0;
#line 8764 "regression-compile-tmp/nrimp10s-77.imp"
L_08be:;
                                                                //   8765           POP(AVL WSP(SIZE,LEVEL),J,K,L)
#line 8765 "regression-compile-tmp/nrimp10s-77.imp"
POP(&AVLWSP[SIZE][LEVEL], &J, &K, &L);
                                                                //   8766           %IF K<=0 %THEN %START;        ! MUST CREATE TEMPORARY
#line 8766 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) > (0))) goto L_08bf;
                                                                //   8767              %IF SIZE>1 %THEN ODD ALIGN
#line 8767 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (1))) goto L_08c0;
#line 8767 "regression-compile-tmp/nrimp10s-77.imp"
ODDALIGN();
#line 8767 "regression-compile-tmp/nrimp10s-77.imp"
L_08c0:;
                                                                //   8768              K=N
#line 8768 "regression-compile-tmp/nrimp10s-77.imp"
K = N;
                                                                //   8769              %IF SIZE=0 %THEN N=N+268 %ELSE N=N+SIZE<<2
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (0))) goto L_08c1;
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (268));
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08c2;
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
L_08c1:;
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
N = ((N) + ((int)(((SIZE) << (2)))));
#line 8769 "regression-compile-tmp/nrimp10s-77.imp"
L_08c2:;
                                                                //   8770           %FINISH
#line 8770 "regression-compile-tmp/nrimp10s-77.imp"
L_08bf:;
                                                                //   8771           PLACE=K
#line 8771 "regression-compile-tmp/nrimp10s-77.imp"
*PLACE = K;
                                                                //   8772           PUSH(TWSPHEAD,K,SIZE,0) %UNLESS SIZE=0
#line 8772 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) == (0))) goto L_08c3;
#line 8772 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&TWSPHEAD, K, SIZE, 0);
#line 8772 "regression-compile-tmp/nrimp10s-77.imp"
L_08c3:;
                                                                //   8773           %END
#line 8773 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETWSP at level 5
                                                                //   8774           %ROUTINE RETURN WSP(%INTEGER PLACE,SIZE)
#line 8774 "regression-compile-tmp/nrimp10s-77.imp"
void RETURNWSP( int PLACE, int SIZE )
#line 8774 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8775           %IF SIZE>4 %THEN SIZE=0
#line 8775 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) <= (4))) goto L_08c4;
#line 8775 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = 0;
#line 8775 "regression-compile-tmp/nrimp10s-77.imp"
L_08c4:;
                                                                //   8776           %IF PLACE<511 %THEN PUSH(AVL WSP(SIZE,LEVEL),0,PLACE,0) %ELSE INSERT AT END(AVL WSP(SIZE,LEVEL),0,PLACE,0)
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLACE) >= (511))) goto L_08c5;
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&AVLWSP[SIZE][LEVEL], 0, PLACE, 0);
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08c6;
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
L_08c5:;
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
INSERTATEND(&AVLWSP[SIZE][LEVEL], 0, PLACE, 0);
#line 8776 "regression-compile-tmp/nrimp10s-77.imp"
L_08c6:;
                                                                //   8777           %END
#line 8777 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RETURNWSP at level 5
                                                                //   8778           %ROUTINE SETLINE
#line 8778 "regression-compile-tmp/nrimp10s-77.imp"
void SETLINE( void )
#line 8778 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8779  !***********************************************************************
                                                                //   8780  !*       UPDATE THE STATEMENT NO                                       *
                                                                //   8781  !***********************************************************************
                                                                //   8782  %INTEGER XYNB,I,LDI,STI,REG
#line 8782 "regression-compile-tmp/nrimp10s-77.imp"
int XYNB;
#line 8782 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 8782 "regression-compile-tmp/nrimp10s-77.imp"
int LDI;
#line 8782 "regression-compile-tmp/nrimp10s-77.imp"
int STI;
#line 8782 "regression-compile-tmp/nrimp10s-77.imp"
int REG;
                                                                //   8783        LDI=LSS; STI=ST; REG=ACCR
#line 8783 "regression-compile-tmp/nrimp10s-77.imp"
LDI = 98;
#line 8783 "regression-compile-tmp/nrimp10s-77.imp"
STI = 72;
#line 8783 "regression-compile-tmp/nrimp10s-77.imp"
REG = 0;
                                                                //   8784        %IF PARMDBUG!PARMPROF=0 %AND GRUSE(ACCR)#0 %AND (GRUSE(BREG)=0 %OR GRUSE(BREG)=5) %START
#line 8784 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PARMDBUG) | (PARMPROF))) != (0))) goto L_08c7;
#line 8784 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[0]) == (0))) goto L_08c7;
#line 8784 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[7]) == (0))) goto L_08b3;
#line 8784 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[7]) != (5))) goto L_08c7;
#line 8784 "regression-compile-tmp/nrimp10s-77.imp"
L_08b3:;
                                                                //   8785           LDI=LB; STI=STB; REG=BREG
#line 8785 "regression-compile-tmp/nrimp10s-77.imp"
LDI = 122;
#line 8785 "regression-compile-tmp/nrimp10s-77.imp"
STI = 90;
#line 8785 "regression-compile-tmp/nrimp10s-77.imp"
REG = 7;
                                                                //   8786        %FINISH
#line 8786 "regression-compile-tmp/nrimp10s-77.imp"
L_08c7:;
                                                                //   8787        PSF1(LDI,0,LINE) %IF PARMLINE!PARMDBUG#0
#line 8787 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PARMLINE) | (PARMDBUG))) == (0))) goto L_08c8;
#line 8787 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(LDI, 0, LINE);
#line 8787 "regression-compile-tmp/nrimp10s-77.imp"
L_08c8:;
                                                                //   8788        %IF PARMLINE=1 %THEN %START
#line 8788 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMLINE) != (1))) goto L_08c9;
                                                                //   8789           PSF1(STI, 1, DIAGINF(LEVEL))
#line 8789 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(STI, 1, DIAGINF[LEVEL]);
                                                                //   8790           GRUSE(REG)=5; GRINF1(REG)=LINE
#line 8790 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 5;
#line 8790 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = LINE;
                                                                //   8791         %FINISH
#line 8791 "regression-compile-tmp/nrimp10s-77.imp"
L_08c9:;
                                                                //   8792        %IF PARMDBUG#0 %THEN PPJ(0,3)
#line 8792 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMDBUG) == (0))) goto L_08ca;
#line 8792 "regression-compile-tmp/nrimp10s-77.imp"
PPJ(0, 3);
#line 8792 "regression-compile-tmp/nrimp10s-77.imp"
L_08ca:;
                                                                //   8793        %IF PARMPROF#0 %THEN %START
#line 8793 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMPROF) == (0))) goto L_08cb;
                                                                //   8794           XYNB=SET XORYNB(-1,0);      ! TO PLT
#line 8794 "regression-compile-tmp/nrimp10s-77.imp"
XYNB = SETXORYNB((-1), 0);
                                                                //   8795           PSF1(LSS,0,1)
#line 8795 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 1);
                                                                //   8796           I=PARMPROF+8+4*LINE
#line 8796 "regression-compile-tmp/nrimp10s-77.imp"
I = ((((((int)(PARMPROF)) + (8)))) + ((((int)(4)) * (LINE))));
                                                                //   8797           PF1(IAD,0,XYNB,I)
#line 8797 "regression-compile-tmp/nrimp10s-77.imp"
PF1(224, 0, XYNB, I);
                                                                //   8798           PF1(ST,0,XYNB,I)
#line 8798 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, XYNB, I);
                                                                //   8799           GRUSE(ACCR)=0
#line 8799 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   8800        %FINISH
#line 8800 "regression-compile-tmp/nrimp10s-77.imp"
L_08cb:;
                                                                //   8801  %END
#line 8801 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETLINE at level 5
                                                                //   8802           %ROUTINE FORGET(%INTEGER REG)
#line 8802 "regression-compile-tmp/nrimp10s-77.imp"
void FORGET( int REG )
#line 8802 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8803  %INTEGER L,U
#line 8803 "regression-compile-tmp/nrimp10s-77.imp"
int L;
#line 8803 "regression-compile-tmp/nrimp10s-77.imp"
int U;
                                                                //   8804           L=REG; U=L
#line 8804 "regression-compile-tmp/nrimp10s-77.imp"
L = REG;
#line 8804 "regression-compile-tmp/nrimp10s-77.imp"
U = L;
                                                                //   8805           %IF L<0 %THEN L=0 %AND U=7
#line 8805 "regression-compile-tmp/nrimp10s-77.imp"
if (((L) >= (0))) goto L_08cc;
#line 8805 "regression-compile-tmp/nrimp10s-77.imp"
L = 0;
#line 8805 "regression-compile-tmp/nrimp10s-77.imp"
U = 7;
#line 8805 "regression-compile-tmp/nrimp10s-77.imp"
L_08cc:;
                                                                //   8806           %CYCLE REG=L,1,U
#line 8806 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = L; _increment = 1; _final = U; REG = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle REG = L, 1, U");
REG -= _increment; _control -= _increment;
L_08cd:;
if (REG == _final) goto L_08ce;
REG += _increment; _control += _increment;
if (REG != _control) _imp_signal(4,2,0,"Corrupt control variable REG"); /* FOR loop control variable corrupted */
}
                                                                //   8807              %IF REGISTER(REG)>= 0 %THEN GRUSE(REG)=0 %AND GRINF1(REG)=0
#line 8807 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) < (0))) goto L_08d0;
#line 8807 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 0;
#line 8807 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = 0;
#line 8807 "regression-compile-tmp/nrimp10s-77.imp"
L_08d0:;
                                                                //   8808           %REPEAT
#line 8808 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08cd;
#line 8808 "regression-compile-tmp/nrimp10s-77.imp"
L_08ce:;
                                                                //   8809           %END
#line 8809 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FORGET at level 5
                                                                //   8810  %ROUTINE SAVE IRS
#line 8810 "regression-compile-tmp/nrimp10s-77.imp"
void SAVEIRS( void )
#line 8810 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8811  !***********************************************************************
                                                                //   8812  !*       DUMP ACC AND-OR B ONTO THE STACK.  USED BEFORE CALLING FNS     *
                                                                //   8813  !*      IN EXPRESSIONS.                                                 *
                                                                //   8814  !***********************************************************************
                                                                //   8815           ABORT %IF REGISTER(ACCR)=1=REGISTER(BREG)
#line 8815 "regression-compile-tmp/nrimp10s-77.imp"
if ((((REGISTER[0]) != (1))) || (((1) != (REGISTER[7])))) goto L_08d1;
#line 8815 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8815 "regression-compile-tmp/nrimp10s-77.imp"
L_08d1:;
                                                                //   8816           %IF REGISTER(ACCR)>=1 %THEN BOOT OUT(ACCR)
#line 8816 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) < (1))) goto L_08d2;
#line 8816 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(0);
#line 8816 "regression-compile-tmp/nrimp10s-77.imp"
L_08d2:;
                                                                //   8817           %IF REGISTER(BREG)>=1 %THEN BOOT OUT(BREG)
#line 8817 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[7]) < (1))) goto L_08d3;
#line 8817 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(7);
#line 8817 "regression-compile-tmp/nrimp10s-77.imp"
L_08d3:;
                                                                //   8818           %IF REGISTER(DR)>=1 %THEN BOOT OUT(DR)
#line 8818 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[1]) < (1))) goto L_08d4;
#line 8818 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(1);
#line 8818 "regression-compile-tmp/nrimp10s-77.imp"
L_08d4:;
                                                                //   8819  %END
#line 8819 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SAVEIRS at level 5
                                                                //   8820  %ROUTINE BOOT OUT(%INTEGER REG)
#line 8820 "regression-compile-tmp/nrimp10s-77.imp"
void BOOTOUT( int REG )
#line 8820 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8821  !***********************************************************************
                                                                //   8822  !*       REMOVE TEMPORARIES FROM REG INTO LOCAL OR ONTO STACK          *
                                                                //   8823  !*       IT IS VITAL THAT ACC IS STACKED FIRST BEFORE B OR DR          *
                                                                //   8824  !*       OTHERWISE MIXUPS OCCUR WHEN PASSING MULTI-DIMENSION ARRAY     *
                                                                //   8825  !*       ELEMENTS WITH FNS AS SUBSCRIPTS AS VALUE SCALARS              *
                                                                //   8826  !***********************************************************************
                                                                //   8827  %CONSTBYTEINTEGERARRAY BOOTCODE(0:7)=16_48,16_58,16_5C,0(4),16_5A;
#line 8827 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char BOOTCODE[8] = { 72, 88, 92, 0, 0, 0, 0, 90,  };
                                                                //   8828  %INTEGER CODE
#line 8828 "regression-compile-tmp/nrimp10s-77.imp"
int CODE;
                                                                //   8829  %RECORD(RD)%NAME R{(RD)
#line 8829 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*R;
                                                                //   8830           CODE=BOOTCODE(REG)
#line 8830 "regression-compile-tmp/nrimp10s-77.imp"
CODE = BOOTCODE[REG];
                                                                //   8831           ABORT %UNLESS 1<=REGISTER(REG)<=3 %AND  CODE#0
#line 8831 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (REGISTER[REG]))) || (((REGISTER[REG]) > (3)))) goto L_08cf;
#line 8831 "regression-compile-tmp/nrimp10s-77.imp"
if (((CODE) != (0))) goto L_08d5;
#line 8831 "regression-compile-tmp/nrimp10s-77.imp"
L_08cf:;
#line 8831 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8831 "regression-compile-tmp/nrimp10s-77.imp"
L_08d5:;
                                                                //   8832           R==RECORD(OLINK(REG))
#line 8832 "regression-compile-tmp/nrimp10s-77.imp"
R =  (RD *) _imp_RECORD(OLINK[REG]);
                                                                //   8833           %IF REGISTER(REG)=2 %THEN %START
#line 8833 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) != (2))) goto L_08d6;
                                                                //   8834              %IF R_D=0 %THEN GET WSP(R_D,BYTES(R_PTYPE>>4)>>2)
#line 8834 "regression-compile-tmp/nrimp10s-77.imp"
if (((R->D) != (0))) goto L_08d7;
#line 8834 "regression-compile-tmp/nrimp10s-77.imp"
GETWSP(&R->D, (unsigned char)((((unsigned char)(BYTES[(unsigned char)((((unsigned char)(R->PTYPE)) >> (4)))])) >> (2))));
#line 8834 "regression-compile-tmp/nrimp10s-77.imp"
L_08d7:;
                                                                //   8835                 PSF1(CODE,1,R_D)
#line 8835 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(CODE, 1, R->D);
                                                                //   8836           %FINISH %ELSE %START
#line 8836 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08d8;
#line 8836 "regression-compile-tmp/nrimp10s-77.imp"
L_08d6:;
                                                                //   8837              %IF REG#ACCR %AND(REGISTER(ACCR)=1 %OR REGISTER(ACCR)=3) %THEN BOOT OUT(ACCR)
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (0))) goto L_08d9;
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) == (1))) goto L_08da;
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) != (3))) goto L_08d9;
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
L_08da:;
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(0);
#line 8837 "regression-compile-tmp/nrimp10s-77.imp"
L_08d9:;
                                                                //   8838              PF1(CODE,0,TOS,0)
#line 8838 "regression-compile-tmp/nrimp10s-77.imp"
PF1(CODE, 0, 6, 0);
                                                                //   8839           %FINISH
#line 8839 "regression-compile-tmp/nrimp10s-77.imp"
L_08d8:;
                                                                //   8840           CHANGE RD(REG)
#line 8840 "regression-compile-tmp/nrimp10s-77.imp"
CHANGERD(REG);
                                                                //   8841           REGISTER(REG)=0
#line 8841 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 0;
                                                                //   8842  %END
#line 8842 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block BOOTOUT at level 5
                                                                //   8843  %ROUTINE COPY DR
#line 8843 "regression-compile-tmp/nrimp10s-77.imp"
void COPYDR( void )
#line 8843 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8844  !***********************************************************************
                                                                //   8845  !*       COPY THE DR TO ACC SAVING ANYTHING IN ACC                     *
                                                                //   8846  !***********************************************************************
                                                                //   8847           %IF REGISTER (ACCR)#0 %THEN BOOT OUT(ACCR)
#line 8847 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) == (0))) goto L_08db;
#line 8847 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(0);
#line 8847 "regression-compile-tmp/nrimp10s-77.imp"
L_08db:;
                                                                //   8848           PSF1(CYD,0,0)
#line 8848 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   8849           GRUSE(ACCR)=0
#line 8849 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[0] = 0;
                                                                //   8850  %END
#line 8850 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COPYDR at level 5
                                                                //   8851  %ROUTINE CHANGE RD(%INTEGER REG)
#line 8851 "regression-compile-tmp/nrimp10s-77.imp"
void CHANGERD( int REG )
#line 8851 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8852  !***********************************************************************
                                                                //   8853  !*         CHANGE A RESULT DESCRIPTOR WHEN OPERAND IS STACKED          *
                                                                //   8854  !***********************************************************************
                                                                //   8855  %RECORD(RD)%NAME OPND{(RD)
#line 8855 "regression-compile-tmp/nrimp10s-77.imp"
 RD /*name*/*OPND;
                                                                //   8856           ABORT %UNLESS 1<=REGISTER(REG)<=3;! I-R OR PARAM
#line 8856 "regression-compile-tmp/nrimp10s-77.imp"
if ((((1) > (REGISTER[REG]))) || (((REGISTER[REG]) <= (3)))) goto L_08dd;
#line 8856 "regression-compile-tmp/nrimp10s-77.imp"
L_08dc:;
#line 8856 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8856 "regression-compile-tmp/nrimp10s-77.imp"
L_08dd:;
                                                                //   8857           OPND==RECORD(OLINK(REG))
#line 8857 "regression-compile-tmp/nrimp10s-77.imp"
OPND =  (RD *) _imp_RECORD(OLINK[REG]);
                                                                //   8858           %IF REGISTER(REG)=1 %THEN %START;   ! CHANGE RESULT DESCRIPTOR
#line 8858 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) != (1))) goto L_08de;
                                                                //   8859              ABORT %UNLESS OPND_FLAG=9 %AND OPND_XB>>4=REG
#line 8859 "regression-compile-tmp/nrimp10s-77.imp"
if (((OPND->FLAG) != (9))) goto L_08df;
#line 8859 "regression-compile-tmp/nrimp10s-77.imp"
if ((((unsigned char)((((unsigned char)(OPND->XB)) >> (4)))) == (REG))) goto L_08e0;
#line 8859 "regression-compile-tmp/nrimp10s-77.imp"
L_08df:;
#line 8859 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 8859 "regression-compile-tmp/nrimp10s-77.imp"
L_08e0:;
                                                                //   8860              OPND_FLAG=8;             ! CHANGE TO 'STACKED'
#line 8860 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 8;
                                                                //   8861              OPND_XB=TOS<<4
#line 8861 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((6) << (4));
                                                                //   8862           %FINISH
#line 8862 "regression-compile-tmp/nrimp10s-77.imp"
L_08de:;
                                                                //   8863           %IF REGISTER(REG)=2 %START
#line 8863 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) != (2))) goto L_08e1;
                                                                //   8864              OPND_FLAG=7; OPND_XB=LNB<<4
#line 8864 "regression-compile-tmp/nrimp10s-77.imp"
OPND->FLAG = 7;
#line 8864 "regression-compile-tmp/nrimp10s-77.imp"
OPND->XB = ((2) << (4));
                                                                //   8865           %FINISH
#line 8865 "regression-compile-tmp/nrimp10s-77.imp"
L_08e1:;
                                                                //   8866  %END
#line 8866 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHANGERD at level 5
                                                                //   8867  %ROUTINE STORE TAG(%INTEGER KK, SLINK)
#line 8867 "regression-compile-tmp/nrimp10s-77.imp"
void STORETAG( int KK, int SLINK )
#line 8867 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8868  %INTEGER Q, QQ, QQQ, I, TCELL
#line 8868 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 8868 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 8868 "regression-compile-tmp/nrimp10s-77.imp"
int QQQ;
#line 8868 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 8868 "regression-compile-tmp/nrimp10s-77.imp"
int TCELL;
                                                                //   8869  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 8869 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   8870           TCELL=TAGS(KK)
#line 8870 "regression-compile-tmp/nrimp10s-77.imp"
TCELL = TAGS[KK];
                                                                //   8871           Q=PTYPE<<16!LEVEL<<8!RBASE<<4!J
#line 8871 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((((((((PTYPE) << (16))) | (((LEVEL) << (8))))) | (((RBASE) << (4))))) | (J));
                                                                //   8872  !         ABORT %UNLESS (KFORM!ACC)>>16=0
                                                                //   8873           QQQ=SLINK<<16!KFORM
#line 8873 "regression-compile-tmp/nrimp10s-77.imp"
QQQ = ((((SLINK) << (16))) | (KFORM));
                                                                //   8874           QQ=SNDISP<<16!ACC
#line 8874 "regression-compile-tmp/nrimp10s-77.imp"
QQ = ((((SNDISP) << (16))) | (ACC));
                                                                //   8875           %IF FROM1(TCELL)>>8&63=LEVEL %THEN %START
#line 8875 "regression-compile-tmp/nrimp10s-77.imp"
if ((((((int)((((unsigned int)(FROM1(TCELL))) >> (8)))) & (63))) != (LEVEL))) goto L_08e2;
                                                                //   8876              FAULT(7,KK)
#line 8876 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(7, KK);
                                                                //   8877              Q=FROM1(TCELL)&16_C000!Q;! COPY USED BITS ACCROSS
#line 8877 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((((FROM1(TCELL)) & (49152))) | (Q));
                                                                //   8878              REPLACE123(TCELL,Q,QQ,QQQ)
#line 8878 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE123(TCELL, Q, QQ, QQQ);
                                                                //   8879           %FINISH %ELSE %START
#line 8879 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08e3;
#line 8879 "regression-compile-tmp/nrimp10s-77.imp"
L_08e2:;
                                                                //   8880              I=ASL; %IF I=0 %THEN I=MORE SPACE
#line 8880 "regression-compile-tmp/nrimp10s-77.imp"
I = ASL;
#line 8880 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (0))) goto L_08e4;
#line 8880 "regression-compile-tmp/nrimp10s-77.imp"
I = MORESPACE();
#line 8880 "regression-compile-tmp/nrimp10s-77.imp"
L_08e4:;
                                                                //   8881              LCELL==ASLIST(I)
#line 8881 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[I];
                                                                //   8882              ASL=LCELL_LINK
#line 8882 "regression-compile-tmp/nrimp10s-77.imp"
ASL = LCELL->LINK;
                                                                //   8883              LCELL_LINK=TAGS(KK)!NAMES(LEVEL)<<18
#line 8883 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = ((TAGS[KK]) | (((NAMES[LEVEL]) << (18))));
                                                                //   8884              LCELL_S1=Q; LCELL_S2=QQ; LCELL_S3=QQQ
#line 8884 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = Q;
#line 8884 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = QQ;
#line 8884 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S3 = QQQ;
                                                                //   8885              TAGS(KK)=I
#line 8885 "regression-compile-tmp/nrimp10s-77.imp"
TAGS[KK] = I;
                                                                //   8886              NAMES(LEVEL)=KK
#line 8886 "regression-compile-tmp/nrimp10s-77.imp"
NAMES[LEVEL] = KK;
                                                                //   8887           %FINISH
#line 8887 "regression-compile-tmp/nrimp10s-77.imp"
L_08e3:;
                                                                //   8888  %END
#line 8888 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STORETAG at level 5
                                                                //   8889  %ROUTINE COPY TAG(%INTEGER KK)
#line 8889 "regression-compile-tmp/nrimp10s-77.imp"
void COPYTAG( int KK )
#line 8889 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8890  %INTEGER QQQ
#line 8890 "regression-compile-tmp/nrimp10s-77.imp"
int QQQ;
                                                                //   8891  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 8891 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   8892           TCELL=TAGS(KK)
#line 8892 "regression-compile-tmp/nrimp10s-77.imp"
TCELL = TAGS[KK];
                                                                //   8893           %IF TCELL=0 %THEN %START;        ! NAME NOT SET
#line 8893 "regression-compile-tmp/nrimp10s-77.imp"
if (((TCELL) != (0))) goto L_08e5;
                                                                //   8894             TYPE=7; PTYPE=16_57; PREC=5
#line 8894 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = 7;
#line 8894 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = 87;
#line 8894 "regression-compile-tmp/nrimp10s-77.imp"
PREC = 5;
                                                                //   8895             ROUT=0; NAM=0; ARR=0; LITL=0; ACC=4
#line 8895 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 0;
#line 8895 "regression-compile-tmp/nrimp10s-77.imp"
NAM = 0;
#line 8895 "regression-compile-tmp/nrimp10s-77.imp"
ARR = 0;
#line 8895 "regression-compile-tmp/nrimp10s-77.imp"
LITL = 0;
#line 8895 "regression-compile-tmp/nrimp10s-77.imp"
ACC = 4;
                                                                //   8896             I=-1; J=-1; K=-1; OLDI=-1
#line 8896 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
#line 8896 "regression-compile-tmp/nrimp10s-77.imp"
J = (-1);
#line 8896 "regression-compile-tmp/nrimp10s-77.imp"
K = (-1);
#line 8896 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = (-1);
                                                                //   8897           %FINISH %ELSE %START
#line 8897 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08e6;
#line 8897 "regression-compile-tmp/nrimp10s-77.imp"
L_08e5:;
                                                                //   8898              LCELL==ASLIST(TCELL)
#line 8898 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[TCELL];
                                                                //   8899              KK=LCELL_S1
#line 8899 "regression-compile-tmp/nrimp10s-77.imp"
KK = LCELL->S1;
                                                                //   8900              LCELL_S1=KK!16_8000
#line 8900 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = ((KK) | (32768));
                                                                //   8901              MIDCELL=LCELL_S2
#line 8901 "regression-compile-tmp/nrimp10s-77.imp"
MIDCELL = LCELL->S2;
                                                                //   8902              QQQ=LCELL_S3
#line 8902 "regression-compile-tmp/nrimp10s-77.imp"
QQQ = LCELL->S3;
                                                                //   8903              PTYPE=KK>>16; USEBITS=KK>>14&3
#line 8903 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = (int)((((unsigned int)(KK)) >> (16)));
#line 8903 "regression-compile-tmp/nrimp10s-77.imp"
USEBITS = (((int)((((unsigned int)(KK)) >> (14)))) & (3));
                                                                //   8904              OLDI=KK>>8&63; I=KK>>4&15; J=KK&15
#line 8904 "regression-compile-tmp/nrimp10s-77.imp"
OLDI = (((int)((((unsigned int)(KK)) >> (8)))) & (63));
#line 8904 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)((((unsigned int)(KK)) >> (4)))) & (15));
#line 8904 "regression-compile-tmp/nrimp10s-77.imp"
J = ((KK) & (15));
                                                                //   8905              SNDISP=MIDCELL&16_FFFF0000//16_10000
#line 8905 "regression-compile-tmp/nrimp10s-77.imp"
SNDISP = (long)((long)((((MIDCELL) & ((-65536))))) / (long)((int)(65536)));
                                                                //   8906              ACC=MIDCELL&16_FFFF
#line 8906 "regression-compile-tmp/nrimp10s-77.imp"
ACC = ((MIDCELL) & (65535));
                                                                //   8907              K=QQQ>>16
#line 8907 "regression-compile-tmp/nrimp10s-77.imp"
K = (int)((((unsigned int)(QQQ)) >> (16)));
                                                                //   8908              KFORM=QQQ&16_FFFF
#line 8908 "regression-compile-tmp/nrimp10s-77.imp"
KFORM = ((QQQ) & (65535));
                                                                //   8909              LITL=PTYPE>>14
#line 8909 "regression-compile-tmp/nrimp10s-77.imp"
LITL = (int)((((unsigned int)(PTYPE)) >> (14)));
                                                                //   8910              ROUT=PTYPE>>12&3
#line 8910 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = (((int)((((unsigned int)(PTYPE)) >> (12)))) & (3));
                                                                //   8911              NAM=PTYPE>>10&3
#line 8911 "regression-compile-tmp/nrimp10s-77.imp"
NAM = (((int)((((unsigned int)(PTYPE)) >> (10)))) & (3));
                                                                //   8912              ARR=PTYPE>>8&3
#line 8912 "regression-compile-tmp/nrimp10s-77.imp"
ARR = (((int)((((unsigned int)(PTYPE)) >> (8)))) & (3));
                                                                //   8913              PREC=PTYPE>>4&15
#line 8913 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (((int)((((unsigned int)(PTYPE)) >> (4)))) & (15));
                                                                //   8914              TYPE=PTYPE&15
#line 8914 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (15));
                                                                //   8915           %FINISH
#line 8915 "regression-compile-tmp/nrimp10s-77.imp"
L_08e6:;
                                                                //   8916  %END
#line 8916 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COPYTAG at level 5
                                                                //   8917  %ROUTINE REDUCE TAG
#line 8917 "regression-compile-tmp/nrimp10s-77.imp"
void REDUCETAG( void )
#line 8917 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8918  !***********************************************************************
                                                                //   8919  !*       AS COPY TAG FOR NAME AT A(P) EXCEPT:-                         *
                                                                //   8920  !*       1) SPECIAL NAMES HAVE THEIR CORRECT PREC & TYPE SUBSTITUTED   *
                                                                //   8921  !*       2) RECORD ELEMENTS HAVE THE SUBNAME PARTICULARS RETURNED      *
                                                                //   8922  !***********************************************************************
                                                                //   8923  %INTEGER SUBS,QQ,PP
#line 8923 "regression-compile-tmp/nrimp10s-77.imp"
int SUBS;
#line 8923 "regression-compile-tmp/nrimp10s-77.imp"
int QQ;
#line 8923 "regression-compile-tmp/nrimp10s-77.imp"
int PP;
                                                                //   8924           COPY TAG(FROMAR2(P))
#line 8924 "regression-compile-tmp/nrimp10s-77.imp"
COPYTAG(FROMAR2(P));
                                                                //   8925           %IF PTYPE=SNPT %THEN %START
#line 8925 "regression-compile-tmp/nrimp10s-77.imp"
if (((PTYPE) != (4102))) goto L_08e7;
                                                                //   8926              PTYPE=TSNAME(K);  UNPACK
#line 8926 "regression-compile-tmp/nrimp10s-77.imp"
PTYPE = TSNAME[K];
#line 8926 "regression-compile-tmp/nrimp10s-77.imp"
UNPACK();
                                                                //   8927              ROUT=1
#line 8927 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = 1;
                                                                //   8928           %FINISH;                       ! TO AVOID CHECKING PARAMS
#line 8928 "regression-compile-tmp/nrimp10s-77.imp"
L_08e7:;
                                                                //   8929           %IF TYPE=3 %THEN %START
#line 8929 "regression-compile-tmp/nrimp10s-77.imp"
if (((TYPE) != (3))) goto L_08e8;
                                                                //   8930              PP=P; QQ=COPY RECORD TAG(SUBS); P=PP
#line 8930 "regression-compile-tmp/nrimp10s-77.imp"
PP = P;
#line 8930 "regression-compile-tmp/nrimp10s-77.imp"
QQ = COPYRECORDTAG(&SUBS);
#line 8930 "regression-compile-tmp/nrimp10s-77.imp"
P = PP;
                                                                //   8931           %FINISH
#line 8931 "regression-compile-tmp/nrimp10s-77.imp"
L_08e8:;
                                                                //   8932  %END
#line 8932 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REDUCETAG at level 5
                                                                //   8933  %ROUTINE REPLACE TAG(%INTEGER KK)
#line 8933 "regression-compile-tmp/nrimp10s-77.imp"
void REPLACETAG( int KK )
#line 8933 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8934  %INTEGER P, Q
#line 8934 "regression-compile-tmp/nrimp10s-77.imp"
int P;
#line 8934 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
                                                                //   8935           P=TAGS(KK)
#line 8935 "regression-compile-tmp/nrimp10s-77.imp"
P = TAGS[KK];
                                                                //   8936           Q=PTYPE<<16!USEBITS<<14!OLDI<<8!I<<4!J
#line 8936 "regression-compile-tmp/nrimp10s-77.imp"
Q = ((((((((((PTYPE) << (16))) | (((USEBITS) << (14))))) | (((OLDI) << (8))))) | (((I) << (4))))) | (J));
                                                                //   8937           REPLACE 1(P, Q)
#line 8937 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE1(P, Q);
                                                                //   8938           REPLACE3(P, K<<16!KFORM)
#line 8938 "regression-compile-tmp/nrimp10s-77.imp"
REPLACE3(P, ((((K) << (16))) | (KFORM)));
                                                                //   8939  %END
#line 8939 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACETAG at level 5
                                                                //   8940  ! LAYOUT OF PTYPE
                                                                //   8941  ! ****** ** *****
                                                                //   8942  ! PTYPE REQUIRES 16 BITS TO DEFINE A VARIABLE AND CAN BE REGARDED AS
                                                                //   8943  ! AS TWO BYTEINTEGERS:=
                                                                //   8944  ! UPPER ONE(UPTYPE):= LITL<<6!ROUT<<4!NAM<<2!ARR
                                                                //   8945  ! LOWER ONE(PTYPE) :=PREC<<4!TYPE
                                                                //   8946  ! OFTEN (EG IN EXPOP) ONLY THE LOWER PART IS REQUIRED AS FUNCTIONS
                                                                //   8947  ! ETC ARE PREFETCHED AND STACKED.
                                                                //   8948  ! LITL:= 1=CONST,2=EXTERNAL,3=EXTRINSIC(OR DYNAMIC), 0=NONE OF THESE
                                                                //   8949  ! ROUT:= 1 FOR ROUTINE OR FN OR MAP, =0 NONE OF THESE
                                                                //   8950  ! NAM := 2 FOR MAPS AND 'REFREFS',=1 FOR NAMES ,=0 DIRECTLY ADDRESSED
                                                                //   8951  ! ARR :=1 FOR ARRAYS =0 SCALARS
                                                                //   8952  ! PREC IS DESCRIPTOR SIZE CODE FOR EACH PRECISION:-
                                                                //   8953  !     :=0 BITS,=3 BYTES, =5 WORDS, =6 D-WRDS, =7,QUAD WRDS
                                                                //   8954  ! TYPE:= THE VARIABLE TYPE 
                                                                //   8955  !     :=0 (TYPE GENERAL),=1 INTEGER, =2 REAL, =3 RECORD
                                                                //   8956  !     :=4 (RECORDFORMAT),=5 STRING,  =6 LABEL/SWITCH. =7 NOT SET
                                                                //   8957  !
                                                                //   8958  %ROUTINE UNPACK
#line 8958 "regression-compile-tmp/nrimp10s-77.imp"
void UNPACK( void )
#line 8958 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8959           LITL=PTYPE>>14
#line 8959 "regression-compile-tmp/nrimp10s-77.imp"
LITL = (int)((((unsigned int)(PTYPE)) >> (14)));
                                                                //   8960           ROUT=PTYPE>>12&3
#line 8960 "regression-compile-tmp/nrimp10s-77.imp"
ROUT = (((int)((((unsigned int)(PTYPE)) >> (12)))) & (3));
                                                                //   8961           NAM=PTYPE>>10&3
#line 8961 "regression-compile-tmp/nrimp10s-77.imp"
NAM = (((int)((((unsigned int)(PTYPE)) >> (10)))) & (3));
                                                                //   8962           ARR=PTYPE>>8&3
#line 8962 "regression-compile-tmp/nrimp10s-77.imp"
ARR = (((int)((((unsigned int)(PTYPE)) >> (8)))) & (3));
                                                                //   8963           PREC=PTYPE>>4&15
#line 8963 "regression-compile-tmp/nrimp10s-77.imp"
PREC = (((int)((((unsigned int)(PTYPE)) >> (4)))) & (15));
                                                                //   8964           TYPE=PTYPE&15
#line 8964 "regression-compile-tmp/nrimp10s-77.imp"
TYPE = ((PTYPE) & (15));
                                                                //   8965  %END
#line 8965 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block UNPACK at level 5
                                                                //   8966  %ROUTINE PACK(%INTEGERNAME PTYPE)
#line 8966 "regression-compile-tmp/nrimp10s-77.imp"
void PACK( int /*name*/*PTYPE )
#line 8966 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8967           PTYPE=((((LITL<<2!ROUT)<<2!NAM)<<2!ARR)<<4!PREC)<<4!TYPE
#line 8967 "regression-compile-tmp/nrimp10s-77.imp"
*PTYPE = ((((((((((((((((((((LITL) << (2))) | (ROUT))) << (2))) | (NAM))) << (2))) | (ARR))) << (4))) | (PREC))) << (4))) | (TYPE));
                                                                //   8968  %END
#line 8968 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PACK at level 5
                                                                //   8969  %ROUTINE PPJ(%INTEGER MASK,N)
#line 8969 "regression-compile-tmp/nrimp10s-77.imp"
void PPJ( int MASK, int N )
#line 8969 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8970  !***********************************************************************
                                                                //   8971  !*       PLANT A 'JCC MASK,PERMENTRY(N)'                               *
                                                                //   8972  !*       IF MASK=0 THEN PLANT A JLK                                    *
                                                                //   8973  !*       IF MASK=-1 THEN PLANT A CALL TO PERM                          *
                                                                //   8974  !***********************************************************************
                                                                //   8975  %INTEGER VAL, INSTRN, CODE, J
#line 8975 "regression-compile-tmp/nrimp10s-77.imp"
int VAL;
#line 8975 "regression-compile-tmp/nrimp10s-77.imp"
int INSTRN;
#line 8975 "regression-compile-tmp/nrimp10s-77.imp"
int CODE;
#line 8975 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   8976  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 8976 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //   8977           %IF MASK=0 %THEN CODE=JLK %ELSE CODE=CALL
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) != (0))) goto L_08e9;
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 28;
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08ea;
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
L_08e9:;
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 30;
#line 8977 "regression-compile-tmp/nrimp10s-77.imp"
L_08ea:;
                                                                //   8978           %IF MASK>0 %THEN CODE=JCC
#line 8978 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) <= (0))) goto L_08eb;
#line 8978 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 2;
#line 8978 "regression-compile-tmp/nrimp10s-77.imp"
L_08eb:;
                                                                //   8979           %IF MASK>=16 %THEN CODE=JAT
#line 8979 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) < (16))) goto L_08ec;
#line 8979 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 4;
#line 8979 "regression-compile-tmp/nrimp10s-77.imp"
L_08ec:;
                                                                //   8980           %IF MASK>=32 %THEN CODE=JAF
#line 8980 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) < (32))) goto L_08ed;
#line 8980 "regression-compile-tmp/nrimp10s-77.imp"
CODE = 6;
#line 8980 "regression-compile-tmp/nrimp10s-77.imp"
L_08ed:;
                                                                //   8981           VAL=PLABS(N)
#line 8981 "regression-compile-tmp/nrimp10s-77.imp"
VAL = PLABS[N];
                                                                //   8982           %IF MASK<=0 %THEN INSTRN=CODE<<24!3<<23 %ELSE INSTRN=CODE<<24!(MASK&15)<<21
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) > (0))) goto L_08ee;
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((((CODE) << (24))) | (((3) << (23))));
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08ef;
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
L_08ee:;
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((((CODE) << (24))) | (((((MASK) & (15))) << (21))));
#line 8982 "regression-compile-tmp/nrimp10s-77.imp"
L_08ef:;
                                                                //   8983           %IF VAL>0 %THEN INSTRN=INSTRN!((VAL-CA)//2)&16_3FFFF %ELSESTART
#line 8983 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL) <= (0))) goto L_08f0;
#line 8983 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((INSTRN) | (((((long)((long)(((((int)(VAL)) - (CA)))) / (long)((int)(2))))) & (262143))));
#line 8983 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08f1;
#line 8983 "regression-compile-tmp/nrimp10s-77.imp"
L_08f0:;
                                                                //   8984              LCELL==ASLIST(PLINK(N))
#line 8984 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[PLINK[N]];
                                                                //   8985              J=INSTRN!CA;                ! ONLY 18 BITS NEEDED FOR CA
#line 8985 "regression-compile-tmp/nrimp10s-77.imp"
J = ((INSTRN) | (CA));
                                                                //   8986              %IF LCELL_S3#0 %THEN PUSH(PLINK(N),J,0,0) %ELSE %START
#line 8986 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S3) == (0))) goto L_08f2;
#line 8986 "regression-compile-tmp/nrimp10s-77.imp"
PUSH(&PLINK[N], J, 0, 0);
#line 8986 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08f3;
#line 8986 "regression-compile-tmp/nrimp10s-77.imp"
L_08f2:;
                                                                //   8987                 %IF LCELL_S2=0 %THEN LCELL_S2=J %ELSE LCELL_S3=J
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
if (((LCELL->S2) != (0))) goto L_08f4;
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = J;
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08f5;
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
L_08f4:;
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S3 = J;
#line 8987 "regression-compile-tmp/nrimp10s-77.imp"
L_08f5:;
                                                                //   8988              %FINISH
#line 8988 "regression-compile-tmp/nrimp10s-77.imp"
L_08f3:;
                                                                //   8989           %FINISH
#line 8989 "regression-compile-tmp/nrimp10s-77.imp"
L_08f1:;
                                                                //   8990           PCONST(INSTRN)
#line 8990 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(INSTRN);
                                                                //   8991           FORGET(-1) %IF MASK<=0
#line 8991 "regression-compile-tmp/nrimp10s-77.imp"
if (((MASK) > (0))) goto L_08f6;
#line 8991 "regression-compile-tmp/nrimp10s-77.imp"
FORGET((-1));
#line 8991 "regression-compile-tmp/nrimp10s-77.imp"
L_08f6:;
                                                                //   8992  %END
#line 8992 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PPJ at level 5
                                                                //   8993  %INTEGERFN SET XORYNB(%INTEGER WHICH,RLEV)
#line 8993 "regression-compile-tmp/nrimp10s-77.imp"
int SETXORYNB( int WHICH, int RLEV )
#line 8993 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   8994  !***********************************************************************
                                                                //   8995  !*       SET EXTRA NAME BASE TO ADDRESS ROUTINE LEVEL 'RLEV'           *
                                                                //   8996  !*       RLEV=0 FOR OWNS, =-1 FOR THE PLT THESE ARE THE SAME! BUT CODED*
                                                                //   8997  !*       SEPARATELY SO THAT THEY CAN BE SEPARATED IF NECESSARY         *
                                                                //   8998  !***********************************************************************
                                                                //   8999  %INTEGER USE,INF,OFFSET
#line 8999 "regression-compile-tmp/nrimp10s-77.imp"
int USE;
#line 8999 "regression-compile-tmp/nrimp10s-77.imp"
int INF;
#line 8999 "regression-compile-tmp/nrimp10s-77.imp"
int OFFSET;
                                                                //   9000           ABORT %UNLESS -1<=RLEV<=RLEVEL
#line 9000 "regression-compile-tmp/nrimp10s-77.imp"
if (((((-1)) > (RLEV))) || (((RLEV) <= (RLEVEL)))) goto L_08f8;
#line 9000 "regression-compile-tmp/nrimp10s-77.imp"
L_08f7:;
#line 9000 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
#line 9000 "regression-compile-tmp/nrimp10s-77.imp"
L_08f8:;
                                                                //   9001        %IF RLEV<=0 %THEN USE=3 %AND INF=0 %ELSE USE=4 %AND INF=RLEV
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEV) > (0))) goto L_08f9;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
USE = 3;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
INF = 0;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
goto L_08fa;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
L_08f9:;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
USE = 4;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
INF = RLEV;
#line 9001 "regression-compile-tmp/nrimp10s-77.imp"
L_08fa:;
                                                                //   9002        %IF WHICH<=0 %THEN WHICH=XORYNB(USE,INF)
#line 9002 "regression-compile-tmp/nrimp10s-77.imp"
if (((WHICH) > (0))) goto L_08fb;
#line 9002 "regression-compile-tmp/nrimp10s-77.imp"
WHICH = XORYNB(USE, INF);
#line 9002 "regression-compile-tmp/nrimp10s-77.imp"
L_08fb:;
                                                                //   9003        %IF GRUSE(WHICH)=USE %AND GRINF1(WHICH)=INF %THEN GRAT(WHICH)=CA %AND %RESULT=WHICH
#line 9003 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[WHICH]) != (USE))) goto L_08fc;
#line 9003 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[WHICH]) != (INF))) goto L_08fc;
#line 9003 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[WHICH] = CA;
#line 9003 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return WHICH;
#line 9003 "regression-compile-tmp/nrimp10s-77.imp"
L_08fc:;
                                                                //   9004        OFFSET=PTR OFFSET(RLEV)
#line 9004 "regression-compile-tmp/nrimp10s-77.imp"
OFFSET = PTROFFSET(RLEV);
                                                                //   9005        PSF1(LDCODE(WHICH),1,OFFSET)
#line 9005 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(LDCODE[WHICH], 1, OFFSET);
                                                                //   9006        GRUSE(WHICH)=USE; GRINF1(WHICH)=INF; GRAT(WHICH)=CA
#line 9006 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[WHICH] = USE;
#line 9006 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[WHICH] = INF;
#line 9006 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[WHICH] = CA;
                                                                //   9007        %RESULT=WHICH
#line 9007 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return WHICH;
                                                                //   9008  %END
#line 9008 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block SETXORYNB at level 5
                                                                //   9009  %INTEGERFN XORYNB(%INTEGER USE,INF)
#line 9009 "regression-compile-tmp/nrimp10s-77.imp"
int XORYNB( int USE, int INF )
#line 9009 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9010  !***********************************************************************
                                                                //   9011  !*    CHECKS IF XNB OR YNB SET UP. IF NOT DECIDES WHICH TO OVERWRITE   *
                                                                //   9012  !***********************************************************************
                                                                //   9013        %IF GRUSE(XNB)=USE %AND GRINF1(XNB)=INF %THEN GRAT(XNB)=CA %AND %RESULT=XNB
#line 9013 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[3]) != (USE))) goto L_08fd;
#line 9013 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[3]) != (INF))) goto L_08fd;
#line 9013 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[3] = CA;
#line 9013 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 3;
#line 9013 "regression-compile-tmp/nrimp10s-77.imp"
L_08fd:;
                                                                //   9014        %IF GRUSE(CTB)=USE %AND GRINF1(CTB)=INF %THEN GRAT(CTB)=CA %AND %RESULT=CTB
#line 9014 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[5]) != (USE))) goto L_08fe;
#line 9014 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[5]) != (INF))) goto L_08fe;
#line 9014 "regression-compile-tmp/nrimp10s-77.imp"
GRAT[5] = CA;
#line 9014 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 5;
#line 9014 "regression-compile-tmp/nrimp10s-77.imp"
L_08fe:;
                                                                //   9015        %IF GRUSE(XNB)!GRUSE(CTB)=0 %THEN %START;! BOTH REGS ARE FREE
#line 9015 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRUSE[3]) | (GRUSE[5]))) != (0))) goto L_08ff;
                                                                //   9016           %IF USE=3 %THEN %RESULT=CTB
#line 9016 "regression-compile-tmp/nrimp10s-77.imp"
if (((USE) != (3))) goto L_0900;
#line 9016 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 5;
#line 9016 "regression-compile-tmp/nrimp10s-77.imp"
L_0900:;
                                                                //   9017           %RESULT=XNB
#line 9017 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 3;
                                                                //   9018        %FINISH
#line 9018 "regression-compile-tmp/nrimp10s-77.imp"
L_08ff:;
                                                                //   9019  !
                                                                //   9020  ! IF ONLY ONE FREE THEN NO PROBLEM
                                                                //   9021        %IF GRUSE(XNB)=0 %THEN %RESULT=XNB
#line 9021 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[3]) != (0))) goto L_0901;
#line 9021 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 3;
#line 9021 "regression-compile-tmp/nrimp10s-77.imp"
L_0901:;
                                                                //   9022        %IF GRUSE(CTB)=0 %THEN %RESULT=CTB
#line 9022 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRUSE[5]) != (0))) goto L_0902;
#line 9022 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 5;
#line 9022 "regression-compile-tmp/nrimp10s-77.imp"
L_0902:;
                                                                //   9023  !
                                                                //   9024  ! BOTH ARE IN USE. THIS IS WORTH CAREFUL CONSIDERATION AND EXPERIMENT
                                                                //   9025  ! A VALUE TABLE MAY BE USE AS MAY LOOK AHEAD. CURRENTLY TRY LRU
                                                                //   9026  !
                                                                //   9027        %IF GRAT(XNB)<GRAT(CTB) %THEN %RESULT=XNB
#line 9027 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRAT[3]) >= (GRAT[5]))) goto L_0903;
#line 9027 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 3;
#line 9027 "regression-compile-tmp/nrimp10s-77.imp"
L_0903:;
                                                                //   9028        %RESULT=CTB
#line 9028 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 5;
                                                                //   9029  %END
#line 9029 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block XORYNB at level 5
                                                                //   9030  %ROUTINE ODDALIGN
#line 9030 "regression-compile-tmp/nrimp10s-77.imp"
void ODDALIGN( void )
#line 9030 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9031  !***********************************************************************
                                                                //   9032  !*    SETS N TO ODD WORD BOUNDARY. SINCE PRECALL ALSO SETS SF TO ODD   *
                                                                //   9033  !*    WORD BOUNDARY THIS MEANS 64 BIT QUANTITIES ARE 64 BIT ALIGNED    *
                                                                //   9034  !*    AND CAN BE REFERNCED IN A SINGL CORE CYCLE                       *
                                                                //   9035  !***********************************************************************
                                                                //   9036        %IF N&7=0 %THEN RETURN WSP(N,1) %AND N=N+4
#line 9036 "regression-compile-tmp/nrimp10s-77.imp"
if (((((N) & (7))) != (0))) goto L_0904;
#line 9036 "regression-compile-tmp/nrimp10s-77.imp"
RETURNWSP(N, 1);
#line 9036 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (4));
#line 9036 "regression-compile-tmp/nrimp10s-77.imp"
L_0904:;
                                                                //   9037  %END
#line 9037 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ODDALIGN at level 5
                                                                //   9038  %INTEGERFN PTROFFSET(%INTEGER RLEV)
#line 9038 "regression-compile-tmp/nrimp10s-77.imp"
int PTROFFSET( int RLEV )
#line 9038 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9039  !***********************************************************************
                                                                //   9040  !*    RETURNS OFFSET FROM LNB OF RELEVANT ITEM IN THE CURRENT DISPLAY  *
                                                                //   9041  !*    WHICH ENABLES TEXTTUAL LEVEL 'RLEV' TO BE ADDRESSED              *
                                                                //   9042  !*    A FUNCTION IS USED TO ALLOW CHANGES IN THE DISPLAY FORMAT        *
                                                                //   9043  !***********************************************************************
                                                                //   9044        %IF RLEV<=0 %THEN %RESULT=16
#line 9044 "regression-compile-tmp/nrimp10s-77.imp"
if (((RLEV) > (0))) goto L_0905;
#line 9044 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 16;
#line 9044 "regression-compile-tmp/nrimp10s-77.imp"
L_0905:;
                                                                //   9045        %RESULT=DISPLAY(RLEVEL)+(RLEV-1)<<2
#line 9045 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ((DISPLAY[RLEVEL]) + ((int)((((((int)(RLEV)) - (1))) << (2)))));
                                                                //   9046  %END
#line 9046 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block PTROFFSET at level 5
                                                                //   9047  %INTEGERFN AREA CODE
#line 9047 "regression-compile-tmp/nrimp10s-77.imp"
int AREACODE( void )
#line 9047 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9048  !***********************************************************************
                                                                //   9049  !*       RETURNS THE AREA CODE FOR ROUTINE LEVEL 'BASE' LOADING        *
                                                                //   9050  !*       XNB WHERE THIS IS NEEDED                                      *
                                                                //   9051  !***********************************************************************
                                                                //   9052           %IF AREA<0 %THEN %START
#line 9052 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) >= (0))) goto L_0906;
                                                                //   9053              %IF BASE=RBASE %THEN AREA=LNB %AND %RESULT=LNB;! LOCAL LEVEL
#line 9053 "regression-compile-tmp/nrimp10s-77.imp"
if (((BASE) != (RBASE))) goto L_0907;
#line 9053 "regression-compile-tmp/nrimp10s-77.imp"
AREA = 2;
#line 9053 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 2;
#line 9053 "regression-compile-tmp/nrimp10s-77.imp"
L_0907:;
                                                                //   9054              AREA=SET XORYNB(-1,BASE)
#line 9054 "regression-compile-tmp/nrimp10s-77.imp"
AREA = SETXORYNB((-1), BASE);
                                                                //   9055           %FINISH
#line 9055 "regression-compile-tmp/nrimp10s-77.imp"
L_0906:;
                                                                //   9056           %RESULT=AREA
#line 9056 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return AREA;
                                                                //   9057  %END
#line 9057 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block AREACODE at level 5
                                                                //   9058  %INTEGERFN AREA CODE2(%INTEGER BS)
#line 9058 "regression-compile-tmp/nrimp10s-77.imp"
int AREACODE2( int BS )
#line 9058 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9059  !***********************************************************************
                                                                //   9060  !*    A VERSION OF AREA CODE WITHOUT SIDE EFFECTS !                    *
                                                                //   9061  !***********************************************************************
                                                                //   9062        %IF BS=RBASE %THEN %RESULT=LNB
#line 9062 "regression-compile-tmp/nrimp10s-77.imp"
if (((BS) != (RBASE))) goto L_0908;
#line 9062 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 2;
#line 9062 "regression-compile-tmp/nrimp10s-77.imp"
L_0908:;
                                                                //   9063        %RESULT=SET XORYNB(-1,BS)
#line 9063 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return SETXORYNB((-1), BS);
                                                                //   9064  %END
#line 9064 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block AREACODE2 at level 5
                                                                //   9065  %ROUTINE GET IN ACC(%INTEGER REG,SIZE,ACCESS,AREA,DISP)
#line 9065 "regression-compile-tmp/nrimp10s-77.imp"
void GETINACC( int REG, int SIZE, int ACCESS, int AREA, int DISP )
#line 9065 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9066  !***********************************************************************
                                                                //   9067  !*         LOADS THE REGISTER SPECIFIED ARRANGING FOR AUTOMATIC        *
                                                                //   9068  !*       STACKING WHEN THIS IS NEEDED                                  *
                                                                //   9069  !*       IT IS VITAL THAT ACC IS STACKED FIRST BEFORE B OR DR          *
                                                                //   9070  !*       OTHERWISE MIXUPS OCCUR WHEN PASSING MULTI-DIMENSION ARRAY     *
                                                                //   9071  !*       ELEMENTS WITH FNS AS SUBSCRIPTS AS VALUE SCALARS              *
                                                                //   9072  !***********************************************************************
                                                                //   9073  %INTEGER OPCODE
#line 9073 "regression-compile-tmp/nrimp10s-77.imp"
int OPCODE;
                                                                //   9074        SIZE=1 %IF SIZE=0;       ! BITS ABD BYTES!
#line 9074 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) != (0))) goto L_0909;
#line 9074 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = 1;
#line 9074 "regression-compile-tmp/nrimp10s-77.imp"
L_0909:;
                                                                //   9075  !      ABORT %UNLESS REG=ACCR %OR(REG=DR %AND SIZE=2) %OR (REG=BREG %AND SIZE=1)
                                                                //   9076        %IF REG=DR %THEN OPCODE=LD %ELSE %START
#line 9076 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (1))) goto L_090a;
#line 9076 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 120;
#line 9076 "regression-compile-tmp/nrimp10s-77.imp"
goto L_090b;
#line 9076 "regression-compile-tmp/nrimp10s-77.imp"
L_090a:;
                                                                //   9077           %IF REG=BREG %THEN OPCODE=LB %ELSE OPCODE=LSS+SIZE&6
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (7))) goto L_090c;
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = 122;
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
goto L_090d;
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
L_090c:;
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = ((98) + ((int)(((SIZE) & (6)))));
#line 9077 "regression-compile-tmp/nrimp10s-77.imp"
L_090d:;
                                                                //   9078        %FINISH
#line 9078 "regression-compile-tmp/nrimp10s-77.imp"
L_090b:;
                                                                //   9079  !
                                                                //   9080        %IF REGISTER(REG)>=1 %THEN %START
#line 9080 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) < (1))) goto L_090e;
                                                                //   9081           %IF REGISTER(REG)=2 %OR(ACCESS=2 %AND AREA=0)%THEN BOOT OUT(REG) %ELSE %START; ! CANNOT SLSS ISN ON ALL MCS
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[REG]) == (2))) goto L_090f;
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) != (2))) goto L_0910;
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
if (((AREA) != (0))) goto L_0910;
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
L_090f:;
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(REG);
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0911;
#line 9081 "regression-compile-tmp/nrimp10s-77.imp"
L_0910:;
                                                                //   9082              %IF REG#ACCR %AND(REGISTER(ACCR)=1 %OR REGISTER(ACCR)=3) %THEN BOOT OUT(ACCR)
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) == (0))) goto L_0912;
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) == (1))) goto L_08aa;
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
if (((REGISTER[0]) != (3))) goto L_0912;
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
L_08aa:;
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
BOOTOUT(0);
#line 9082 "regression-compile-tmp/nrimp10s-77.imp"
L_0912:;
                                                                //   9083              CHANGE RD(REG)
#line 9083 "regression-compile-tmp/nrimp10s-77.imp"
CHANGERD(REG);
                                                                //   9084              REGISTER(REG)=0
#line 9084 "regression-compile-tmp/nrimp10s-77.imp"
REGISTER[REG] = 0;
                                                                //   9085             %IF REG=ACCR %THEN OPCODE=OPCODE-32 %ELSE OPCODE=OPCODE-40
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
if (((REG) != (0))) goto L_0913;
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = (((int)(OPCODE)) - (32));
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0914;
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
L_0913:;
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
OPCODE = (((int)(OPCODE)) - (40));
#line 9085 "regression-compile-tmp/nrimp10s-77.imp"
L_0914:;
                                                                //   9086           %FINISH
#line 9086 "regression-compile-tmp/nrimp10s-77.imp"
L_0911:;
                                                                //   9087        %FINISH
#line 9087 "regression-compile-tmp/nrimp10s-77.imp"
L_090e:;
                                                                //   9088        PSORLF1(OPCODE,ACCESS,AREA,DISP)
#line 9088 "regression-compile-tmp/nrimp10s-77.imp"
PSORLF1(OPCODE, ACCESS, AREA, DISP);
                                                                //   9089        %IF ACCESS>=2 %AND 0#AREA#7 %THEN GRUSE(DR)=0
#line 9089 "regression-compile-tmp/nrimp10s-77.imp"
if (((ACCESS) < (2))) goto L_0915;
#line 9089 "regression-compile-tmp/nrimp10s-77.imp"
if ((((0) == (AREA))) || (((AREA) == (7)))) goto L_0915;
#line 9089 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[1] = 0;
#line 9089 "regression-compile-tmp/nrimp10s-77.imp"
L_0915:;
                                                                //   9090        GRUSE(REG)=0
#line 9090 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 0;
                                                                //   9091  %END
#line 9091 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETINACC at level 5
                                                                //   9092  %ROUTINE NOTE ASSMENT(%INTEGER REG, ASSOP, VAR)
#line 9092 "regression-compile-tmp/nrimp10s-77.imp"
void NOTEASSMENT( int REG, int ASSOP, int VAR )
#line 9092 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9093  !***********************************************************************
                                                                //   9094  !*       NOTES THE ASSIGNMENT TO SCALAR 'VAR'.  THIS INVOLVES REMOVING *
                                                                //   9095  !*       OLD COPIES FROM REGISTERS TO AVOID CONFUSING OLD AND NEW VALUE*
                                                                //   9096  !*       ASSOP =1 FOR'==',=2 FOR '=',=3 FOR '<-'                       *
                                                                //   9097  !***********************************************************************
                                                                //   9098  %CONSTINTEGER EEMASK=B'100011110000000';! MASK OF USES RELEVANT TO ==
                                                                //   9099  %CONSTINTEGER EMASK=B'100011000000000';! MASK OF USES RELEVANT TO =
                                                                //   9100  %CONSTINTEGER NREGS=5
                                                                //   9101  %CONSTINTEGER REGS=16*16*16*16*CTB+16*16*16*XNB+16*16*ACCR+16*BREG+DR
                                                                //   9102  %INTEGER I,USE1,USE2,II
#line 9102 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9102 "regression-compile-tmp/nrimp10s-77.imp"
int USE1;
#line 9102 "regression-compile-tmp/nrimp10s-77.imp"
int USE2;
#line 9102 "regression-compile-tmp/nrimp10s-77.imp"
int II;
                                                                //   9103        %RETURN %IF VAR<=0
#line 9103 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAR) > (0))) goto L_0916;
#line 9103 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 9103 "regression-compile-tmp/nrimp10s-77.imp"
L_0916:;
                                                                //   9104        %IF ASSOP=1 %THEN %START
#line 9104 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (1))) goto L_0917;
                                                                //   9105           %CYCLE I=0,1,7
#line 9105 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_0918:;
if (I == 7) goto L_0919;
I += 1;
                                                                //   9106              USE1=GRUSE(I); USE2=USE1>>16; USE1=USE1&255
#line 9106 "regression-compile-tmp/nrimp10s-77.imp"
USE1 = GRUSE[I];
#line 9106 "regression-compile-tmp/nrimp10s-77.imp"
USE2 = (int)((((unsigned int)(USE1)) >> (16)));
#line 9106 "regression-compile-tmp/nrimp10s-77.imp"
USE1 = ((USE1) & (255));
                                                                //   9107              %IF EEMASK&1<<USE2#0 %AND (GRINF2(I)&16_FFFF=VAR %OR GRINF2(I)>>16=VAR) %THEN GRUSE(I)=USE1 %AND USE2=0
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
if (((((18304) & (((1) << (USE2))))) == (0))) goto L_091b;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRINF2[I]) & (65535))) == (VAR))) goto L_091c;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF2[I])) >> (16)))) != (VAR))) goto L_091b;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
L_091c:;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = USE1;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
USE2 = 0;
#line 9107 "regression-compile-tmp/nrimp10s-77.imp"
L_091b:;
                                                                //   9108              %IF EEMASK&1<<USE1#0 %AND (GRINF1(I)&16_FFFF=VAR %OR GRINF1(I)>>16=VAR) %THEN GRUSE(I)=USE2 %AND GRINF1(I)=GRINF2(I)
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
if (((((18304) & (((1) << (USE1))))) == (0))) goto L_091d;
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRINF1[I]) & (65535))) == (VAR))) goto L_091e;
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF1[I])) >> (16)))) != (VAR))) goto L_091d;
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
L_091e:;
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = USE2;
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[I] = GRINF2[I];
#line 9108 "regression-compile-tmp/nrimp10s-77.imp"
L_091d:;
                                                                //   9109           %REPEAT
#line 9109 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0918;
#line 9109 "regression-compile-tmp/nrimp10s-77.imp"
L_0919:;
                                                                //   9110           GRUSE(REG)=7
#line 9110 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = 7;
                                                                //   9111           GRINF1(REG)=VAR
#line 9111 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = VAR;
                                                                //   9112        %FINISH %ELSE %START
#line 9112 "regression-compile-tmp/nrimp10s-77.imp"
goto L_091f;
#line 9112 "regression-compile-tmp/nrimp10s-77.imp"
L_0917:;
                                                                //   9113           %CYCLE II=0,4,4*(NREGS-1)
#line 9113 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 4; _final = ((4) * ((int)(4))); II = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle II = 0, 4, ((4) * ((int)(4)))");
II -= _increment; _control -= _increment;
L_0920:;
if (II == _final) goto L_0921;
II += _increment; _control += _increment;
if (II != _control) _imp_signal(4,2,0,"Corrupt control variable II"); /* FOR loop control variable corrupted */
}
                                                                //   9114           I=REGS>>II&15
#line 9114 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)((((unsigned int)(340081)) >> (II)))) & (15));
                                                                //   9115              USE1=GRUSE(I); USE2=USE1>>16; USE1=USE1&255
#line 9115 "regression-compile-tmp/nrimp10s-77.imp"
USE1 = GRUSE[I];
#line 9115 "regression-compile-tmp/nrimp10s-77.imp"
USE2 = (int)((((unsigned int)(USE1)) >> (16)));
#line 9115 "regression-compile-tmp/nrimp10s-77.imp"
USE1 = ((USE1) & (255));
                                                                //   9116              %IF EMASK&1<<USE2#0 %AND (GRINF2(I)&16_FFFF=VAR %OR GRINF2(I)>>16=VAR %OR GRINF2(I)=VAR) %THEN GRUSE(I)=USE1 %AND USE2=0
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
if (((((17920) & (((1) << (USE2))))) == (0))) goto L_0923;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRINF2[I]) & (65535))) == (VAR))) goto L_0924;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF2[I])) >> (16)))) == (VAR))) goto L_0924;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF2[I]) != (VAR))) goto L_0923;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
L_0924:;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = USE1;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
USE2 = 0;
#line 9116 "regression-compile-tmp/nrimp10s-77.imp"
L_0923:;
                                                                //   9117              %IF EMASK&1<<USE1#0 %AND (GRINF1(I)&16_FFFF=VAR  %OR GRINF1(I)>>16=VAR %OR GRINF1(I)=VAR) %THEN GRUSE(I)=USE2 %AND GRINF1(I)=GRINF2(I)
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
if (((((17920) & (((1) << (USE1))))) == (0))) goto L_0925;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
if (((((GRINF1[I]) & (65535))) == (VAR))) goto L_0926;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(GRINF1[I])) >> (16)))) == (VAR))) goto L_0926;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
if (((GRINF1[I]) != (VAR))) goto L_0925;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
L_0926:;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[I] = USE2;
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[I] = GRINF2[I];
#line 9117 "regression-compile-tmp/nrimp10s-77.imp"
L_0925:;
                                                                //   9118  !
                                                                //   9119  ! ALL THE FOREGOING CONDITIONS ARE NOT AS SILLY AS THEY SEEM. MUST
                                                                //   9120  ! BEAR IN MIND THAT BOTH GRINF&VAR MAY BE RECORD ELEMENTS DEFINED
                                                                //   9121  ! BY ALL 32 BITS OF INF AS WELL AS MODIFIED SCALARS WHEN THE NAME
                                                                //   9122  ! ONLY TAKES 16 BITS
                                                                //   9123  !
                                                                //   9124           %REPEAT
#line 9124 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0920;
#line 9124 "regression-compile-tmp/nrimp10s-77.imp"
L_0921:;
                                                                //   9125           %IF ASSOP=2 %AND VAR>0 %START
#line 9125 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASSOP) != (2))) goto L_0927;
#line 9125 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAR) <= (0))) goto L_0927;
                                                                //   9126              USE1=GRUSE(REG)
#line 9126 "regression-compile-tmp/nrimp10s-77.imp"
USE1 = GRUSE[REG];
                                                                //   9127              %IF 5<=USE1&255<=6 %START;  ! ASSIGN CONST TO VAR
#line 9127 "regression-compile-tmp/nrimp10s-77.imp"
if ((((5) > (((USE1) & (255))))) || (((((USE1) & (255))) > (6)))) goto L_0928;
                                                                //   9128                 GRUSE(REG)=USE1&255!(9<<16)
#line 9128 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = ((((USE1) & (255))) | (((9) << (16))));
                                                                //   9129                 GRINF2(REG)=VAR
#line 9129 "regression-compile-tmp/nrimp10s-77.imp"
GRINF2[REG] = VAR;
                                                                //   9130              %FINISH %ELSE %START;       ! ASSIGN VAR OR EXP TO VAR
#line 9130 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0929;
#line 9130 "regression-compile-tmp/nrimp10s-77.imp"
L_0928:;
                                                                //   9131                 GRUSE(REG)=USE1<<16!9
#line 9131 "regression-compile-tmp/nrimp10s-77.imp"
GRUSE[REG] = ((((USE1) << (16))) | (9));
                                                                //   9132                 GRINF2(REG)=GRINF1(REG); ! PREVIOUS USE BECOMES 2NDRY
#line 9132 "regression-compile-tmp/nrimp10s-77.imp"
GRINF2[REG] = GRINF1[REG];
                                                                //   9133                 GRINF1(REG)=VAR
#line 9133 "regression-compile-tmp/nrimp10s-77.imp"
GRINF1[REG] = VAR;
                                                                //   9134              %FINISH
#line 9134 "regression-compile-tmp/nrimp10s-77.imp"
L_0929:;
                                                                //   9135           %FINISH
#line 9135 "regression-compile-tmp/nrimp10s-77.imp"
L_0927:;
                                                                //   9136        %FINISH
#line 9136 "regression-compile-tmp/nrimp10s-77.imp"
L_091f:;
                                                                //   9137  %END
#line 9137 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block NOTEASSMENT at level 5
                                                                //   9138  %END;                                  ! OF ROUTINE CSS
#line 9138 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSS at level 4
                                                                //   9139  !*DELSTART
                                                                //   9140  %ROUTINE PRINTUSE
#line 9140 "regression-compile-tmp/nrimp10s-77.imp"
void PRINTUSE( void )
#line 9140 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9141  !***********************************************************************
                                                                //   9142  !*    UP TO TWO USES ARE REMEMBERED INFO IN GRINF1 & GRINF2            *
                                                                //   9143  !*    BOTTOM HALF OF GRUSE RELATES TO INF1 TOP HALF TO INF2            *
                                                                //   9144  !*    THE MEANS CLEARING GRUSE TO FORGETS THE REG COMPLETELY           *
                                                                //   9145  !*    ARRAY REGISTER KEEPS THE CLAIM STATUS AND GRAT THE LAST USE      *
                                                                //   9146  !***********************************************************************
                                                                //   9147  %CONSTSTRING(3)%ARRAY REGS(0:7)="ACC"," DR","LNB","XNB",
#line 9147 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(3)*/ REGS[8] = { _imp_str_literal("ACC"), _imp_str_literal(" DR"), _imp_str_literal("LNB"), _imp_str_literal("XNB"), _imp_str_literal(" PC"), _imp_str_literal("CTB"), _imp_str_literal("TOS"), _imp_str_literal("  B"),  };
                                                                //   9148                                        " PC","CTB","TOS","  B";
                                                                //   9149  %CONSTSTRING(15)%ARRAY USES(0:15) =" NOT KNOWN "," I-RESULT  ",
#line 9149 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(15)*/ USES[16] = { _imp_str_literal(" NOT KNOWN "), _imp_str_literal(" I-RESULT  "), _imp_str_literal(" TEMPORARY "), _imp_str_literal("  PLTBASE  "), _imp_str_literal(" NAMEBASE  "), _imp_str_literal(" LIT CONST "), _imp_str_literal(" TAB CONST "), _imp_str_literal(" DESC FOR  "), _imp_str_literal(" RECD BASE "), _imp_str_literal(" LOCAL VAR "), _imp_str_literal(" NAME+CNST "), _imp_str_literal(" AUXSTPTR- "), _imp_str_literal(" BYTE DES  "), _imp_str_literal(" HALF DES  "), _imp_str_literal("  VMY RES  "), _imp_str_literal(" REC HDES  "),  };
                                                                //   9150                                     " TEMPORARY ","  PLTBASE  ",
                                                                //   9151                                     " NAMEBASE  "," LIT CONST ",
                                                                //   9152                                     " TAB CONST "," DESC FOR  ",
                                                                //   9153                                     " RECD BASE "," LOCAL VAR ",
                                                                //   9154                                     " NAME+CNST "," AUXSTPTR- ",
                                                                //   9155                                     " BYTE DES  "," HALF DES  ",
                                                                //   9156                                     "  VMY RES  "," REC HDES  ";
                                                                //   9157  %CONSTSTRING(11)%ARRAY STATE(-1:3)={%C
#line 9157 "regression-compile-tmp/nrimp10s-77.imp"
const _imp_string /*%string(11)*/ STATE[5] = { _imp_str_literal("  LOCKED   "), _imp_str_literal("   FREE    "), _imp_str_literal(" I-RESULT  "), _imp_str_literal(" TEMPORARY "), _imp_str_literal(" RT-PARAM  "),  };
                                                                //   9158                                          "  LOCKED   ","   FREE    ",
                                                                //   9159                                          " I-RESULT  "," TEMPORARY ",
                                                                //   9160                                          " RT-PARAM  ";
                                                                //   9161  %ROUTINESPEC OUT(%INTEGER USE,INF)
#line 9161 "regression-compile-tmp/nrimp10s-77.imp"
auto void OUT( int USE, int INF );
                                                                //   9162  %INTEGER I,USE,INF
#line 9162 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9162 "regression-compile-tmp/nrimp10s-77.imp"
int USE;
#line 9162 "regression-compile-tmp/nrimp10s-77.imp"
int INF;
                                                                //   9163        %CYCLE I=0,1,7
#line 9163 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_092a:;
if (I == 7) goto L_092b;
I += 1;
                                                                //   9164           %IF REGISTER(I)!GRUSE(I)#0 %START
#line 9164 "regression-compile-tmp/nrimp10s-77.imp"
if (((((REGISTER[I]) | (GRUSE[I]))) == (0))) goto L_092d;
                                                                //   9165              USE=GRUSE(I)
#line 9165 "regression-compile-tmp/nrimp10s-77.imp"
USE = GRUSE[I];
                                                                //   9166              PRINTSTRING(REGS(I).STATE(REGISTER(I)))
#line 9166 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)REGS[I],(_imp_string)(STATE+1)[REGISTER[I]]));
                                                                //   9167              OUT(USE&255,GRINF1(I))
#line 9167 "regression-compile-tmp/nrimp10s-77.imp"
OUT(((USE) & (255)), GRINF1[I]);
                                                                //   9168              %IF USE>>16#0 %THEN PRINTSTRING(" ALSO ") %AND OUT(USE>>16,GRINF2(I))
#line 9168 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(USE)) >> (16)))) == (0))) goto L_092e;
#line 9168 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" ALSO "));
#line 9168 "regression-compile-tmp/nrimp10s-77.imp"
OUT((int)((((unsigned int)(USE)) >> (16))), GRINF2[I]);
#line 9168 "regression-compile-tmp/nrimp10s-77.imp"
L_092e:;
                                                                //   9169              NEWLINE
#line 9169 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //   9170           %FINISH
#line 9170 "regression-compile-tmp/nrimp10s-77.imp"
L_092d:;
                                                                //   9171        %REPEAT
#line 9171 "regression-compile-tmp/nrimp10s-77.imp"
goto L_092a;
#line 9171 "regression-compile-tmp/nrimp10s-77.imp"
L_092b:;
                                                                //   9172        %RETURN
#line 9172 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   9173  %ROUTINE OUT(%INTEGER USE,INF)
#line 9173 "regression-compile-tmp/nrimp10s-77.imp"
void OUT( int USE, int INF )
#line 9173 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9174  %CONSTINTEGER LNMASK=B'1100011110000000'
                                                                //   9175  %CONSTINTEGER UNMASK=B'0100001110000000'
                                                                //   9176        PRINTSTRING(" USE = ".USES(USE))
#line 9176 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(" USE = "),(_imp_string)USES[USE]));
                                                                //   9177        %IF LNMASK&1<<USE#0 %THEN PRINTSTRING(PRINTNAME(INF&16_FFFF)) %ELSE WRITE(INF,1)
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
if (((((51072) & (((1) << (USE))))) == (0))) goto L_092f;
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(PRINTNAME(((INF) & (65535))));
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0930;
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
L_092f:;
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(INF, 1);
#line 9177 "regression-compile-tmp/nrimp10s-77.imp"
L_0930:;
                                                                //   9178        %IF USE=10 %THEN PRINTSYMBOL('+') %AND WRITE(INF>>16,1)
#line 9178 "regression-compile-tmp/nrimp10s-77.imp"
if (((USE) != (10))) goto L_0931;
#line 9178 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(43);
#line 9178 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE((int)((((unsigned int)(INF)) >> (16))), 1);
#line 9178 "regression-compile-tmp/nrimp10s-77.imp"
L_0931:;
                                                                //   9179        %IF UNMASK&1<<USE#0 %AND INF>>16#0 %THEN PRINTSTRING(" MODBY") %AND PRINTSTRING(PRINTNAME(INF>>16))
#line 9179 "regression-compile-tmp/nrimp10s-77.imp"
if (((((17280) & (((1) << (USE))))) == (0))) goto L_0932;
#line 9179 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(INF)) >> (16)))) == (0))) goto L_0932;
#line 9179 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" MODBY"));
#line 9179 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(PRINTNAME((int)((((unsigned int)(INF)) >> (16)))));
#line 9179 "regression-compile-tmp/nrimp10s-77.imp"
L_0932:;
                                                                //   9180  %END
#line 9180 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OUT at level 5
                                                                //   9181  %END
#line 9181 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTUSE at level 4
                                                                //   9182  !*DELEND
                                                                //   9183  %ROUTINE ABORT
#line 9183 "regression-compile-tmp/nrimp10s-77.imp"
void ABORT( void )
#line 9183 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9184           PRINTSTRING("
#line 9184 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\n****************      ABORT********************    ABORT    *******"));
                                                                //   9185  ****************      ABORT********************    ABORT    *******")
                                                                //   9186  !*DELSTART
                                                                //   9187           NCODE(ADDR(CODE(0)), ADDR(CODE(PPCURR)), CABUF) %UNLESS CA=CABUF
#line 9187 "regression-compile-tmp/nrimp10s-77.imp"
if (((CA) == (CABUF))) goto L_0933;
#line 9187 "regression-compile-tmp/nrimp10s-77.imp"
ncode(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF);
#line 9187 "regression-compile-tmp/nrimp10s-77.imp"
L_0933:;
                                                                //   9188           PRINT USE
#line 9188 "regression-compile-tmp/nrimp10s-77.imp"
PRINTUSE();
                                                                //   9189  !*DELEND
                                                                //   9190           %MONITOR
#line 9190 "regression-compile-tmp/nrimp10s-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
                                                                //   9191           %STOP
#line 9191 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
                                                                //   9192  %END
#line 9192 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block ABORT at level 4
                                                                //   9193  %ROUTINE EPILOGUE
#line 9193 "regression-compile-tmp/nrimp10s-77.imp"
void EPILOGUE( void )
#line 9193 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9194  !***********************************************************************
                                                                //   9195  !*       PLANT ANY SUBROUINES THAT HAVE BEEN REQUIRED DURING           *
                                                                //   9196  !*       THE CODE GENERATION PHASE                                     *
                                                                //   9197  !***********************************************************************
                                                                //   9198  %INTEGER D,J
#line 9198 "regression-compile-tmp/nrimp10s-77.imp"
int D;
#line 9198 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   9199  %ROUTINESPEC FILL(%INTEGER LAB)
#line 9199 "regression-compile-tmp/nrimp10s-77.imp"
auto void FILL( int LAB );
                                                                //   9200           %IF PLINK(15)=0 %THEN ->P16
#line 9200 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[15]) != (0))) goto L_0934;
#line 9200 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1055;
#line 9200 "regression-compile-tmp/nrimp10s-77.imp"
L_0934:;
                                                                //   9201           ABORT
#line 9201 "regression-compile-tmp/nrimp10s-77.imp"
ABORT();
                                                                //   9202  P16:
#line 9202 "regression-compile-tmp/nrimp10s-77.imp"
U_1055:;
                                                                //   9203  !
                                                                //   9204  ! STRING RESOLUTION SUBROUTINE
                                                                //   9205  ! THIS IS ENTERED VIA A CALL INSTRN AND HAS 3 PARAMETERS
                                                                //   9206  ! P1(LNB+5) = RESD A CURRENT LENGTH DESCRIPTOR POINTING AT THE FIRST BYTE
                                                                //   9207  !             OF THE STRING BEING RESOLVED
                                                                //   9208  ! P2(LNB+7) = STD A MAX LENGTH DESCRIPTOR TO THE STRING IN WHICH ANY
                                                                //   9209  !             FRAGMENT IS TO BE STORED
                                                                //   9210  ! P3(LNB+9) - EXPD A CURRENT LENGTH DESCRIPTOR POINTING AT THE 
                                                                //   9211  !             LENGTH BYTE OF STRING TO BE SEARCHED FOR
                                                                //   9212  !
                                                                //   9213  ! IF RESOLUTION IS SUCCESSFULL CC IS SET TO 0 AND AN UPDATED VERSION
                                                                //   9214  ! OF RESD IS RETURNED IN THE ACC IN CASE THERE ARE FURTHER RESLNS
                                                                //   9215  !
                                                                //   9216  ! CODE IS AS FOLLOWS:-
                                                                //   9217  !
                                                                //   9218  !        LXN   (LNB+0)                  OLD LNB
                                                                //   9219  !        LD    (XNB+3)                  PLT DESCRIPTOR
                                                                //   9220  !        LDB   0                        ZERO BOUND FOR MDIAG
                                                                //   9221  !        STD   (LNB+3)                  STANDARD PLACE
                                                                //   9222  !        ASF   4                        GRAB 2 TEMPORARIES
                                                                //   9223  !        LD    (LNB+5)                  RESULT IF NULL ROUTE TAKEN
                                                                //   9224  !        SLD   (LNB+9)                  EXPD
                                                                //   9225  !        LB    0
                                                                //   9226  !        JAT   11,LNULL                 JUMP IF EXP NULL
                                                                //   9227  !        INCA  1                        TO FIRST CHAR
                                                                //   9228  !        LB    @DR                      FIRST CHAR INTO B
                                                                //   9229  !        STD   (LNB+11)                 TEMP1
                                                                //   9230  !        LSS   (LNB+5)                  TYPE&BND OF RESD
                                                                //   9231  !        AND   XIFF
                                                                //   9232  !        JAT   4,RESFAIL                RESD IS NULL &EXPD NOT NULL
                                                                //   9233  !        LD    (LNB+5)                  RESD TO DR
                                                                //   9234  !AGN     SWNE  L=DR                     SEARCH FOR FIRST CHAR
                                                                //   9235  !        JCC   8,RESFAIL                NOT FOUND
                                                                //   9236  !        STD   (LNB+13)                 SAVE IN TEMP 2
                                                                //   9237  !        CYD   0
                                                                //   9238  !        LD    (LNB+11)                 EXP DESCRIPTOR FOR COMPARISON
                                                                //   9239  !        CPS   L=DR,FILLER=FF           CHECK REST OF EXPRSN
                                                                //   9240  !        JCC   8,L2                     RESLN HAS SUCCEEDED
                                                                //   9241  !        LD    (LNB+13)                 RESUME SCANNING
                                                                //   9242  !        SWEQ  L=1                      ADVANCE BY 1 AVOIDING MODD
                                                                //   9243  !        J     AGN
                                                                //   9244  !
                                                                //   9245  ! RESOLUTION COMPLETE. ARRANGE TO STORE FRAGMENT WITHOUT ANY FILLER CHARS
                                                                //   9246  ! SO S->S.(T).Z WORKS OK AND ALLOWING STD TO BE NULL
                                                                //   9247  !
                                                                //   9248  !L2      SLSS  (LNB+5)                  STORE UPDATED DES & GET BND
                                                                //   9249  !        ISB   (LNB+13)                 GIVE LENGTH OF FRAGMENT
                                                                //   9250  !        ST    B
                                                                //   9251  !        LSS   (LNB+7)                  LENGTH OF STD
                                                                //   9252  !        JAF   4,*+6                    ! ZERO FOR NO 1ST PART RESLN
                                                                //   9253  !        LSS   1
                                                                //   9254  !        AND   X1FF
                                                                //   9255  !        ICP   B
                                                                //   9256  !        JCC   12,RESFAIL
                                                                //   9257  !LNULL   LD    (LNB+7)                  STD TO DR
                                                                //   9258  !        JAT   11,L3                    STD NULL DONT SET LENGTH
                                                                //   9259  !        LSD   (LNB+5)                  ORIGINIAL STRING
                                                                //   9260  !        MVL   L=1                      SET LENGTH BYTE FROM B
                                                                //   9261  !        LDB   B                        TO STORE CHARS
                                                                //   9262  !        MV    L=DR,FILLER=16_80        ASSIGN
                                                                //   9263  !L3      LD    TOS                      RESULT AND SET CC=0
                                                                //   9264  !        CYD   0
                                                                //   9265  !        EXIT
                                                                //   9266  !RESFAIL MPSR  16_24                    SET CC=1
                                                                //   9267  !        EXIT
                                                                //   9268           %IF PLINK(16)=0 %THEN ->P17
#line 9268 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[16]) != (0))) goto L_0935;
#line 9268 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1014;
#line 9268 "regression-compile-tmp/nrimp10s-77.imp"
L_0935:;
                                                                //   9269           FILL(16)
#line 9269 "regression-compile-tmp/nrimp10s-77.imp"
FILL(16);
                                                                //   9270           PSF1(LXN,1,0)
#line 9270 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 0);
                                                                //   9271           PF1(LD,0,XNB,12)
#line 9271 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 3, 12);
                                                                //   9272           PSF1(LDB,0,0)
#line 9272 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(118, 0, 0);
                                                                //   9273           PSF1(STD,1,12)
#line 9273 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 12);
                                                                //   9274           PSF1(ASF,0,4)
#line 9274 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(110, 0, 4);
                                                                //   9275           PSF1(LD,1,20)
#line 9275 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 20);
                                                                //   9276           PSF1(SLD,1,36)
#line 9276 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(80, 1, 36);
                                                                //   9277           PSF1(LB,0,0)
#line 9277 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, 0);
                                                                //   9278           PF3(JAT,11,0,16_24)
#line 9278 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 11, 0, 36);
                                                                //   9279           PSF1(INCA,0,1)
#line 9279 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, 1);
                                                                //   9280           PF1(LB,2,7,0)
#line 9280 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 2, 7, 0);
                                                                //   9281           PSF1(STD,1,44)
#line 9281 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 44);
                                                                //   9282           PSF1(LSS,1,20)
#line 9282 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, 20);
                                                                //   9283           PF1(AND,0,0,16_1FF)
#line 9283 "regression-compile-tmp/nrimp10s-77.imp"
PF1(138, 0, 0, 511);
                                                                //   9284           PF3(JAT,4,0,16_27)
#line 9284 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 4, 0, 39);
                                                                //   9285           PSF1(LD,1,23)
#line 9285 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 23);
                                                                //   9286           PF2(SWNE,1,0,0,0,0)
#line 9286 "regression-compile-tmp/nrimp10s-77.imp"
PF2(162, 1, 0, 0, 0, 0);
                                                                //   9287           PF3(JCC,8,0,16_23)
#line 9287 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 8, 0, 35);
                                                                //   9288           PSF1(STD,1,52)
#line 9288 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(88, 1, 52);
                                                                //   9289           PSF1(CYD,0,0)
#line 9289 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9290           PSF1(LD,1,44)
#line 9290 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 44);
                                                                //   9291           PF2(CPS,1,1,0,0,16_FF)
#line 9291 "regression-compile-tmp/nrimp10s-77.imp"
PF2(164, 1, 1, 0, 0, 255);
                                                                //   9292           PF3(JCC,8,0,5)
#line 9292 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 8, 0, 5);
                                                                //   9293           PSF1(LD,1,52)
#line 9293 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 52);
                                                                //   9294           PF2(SWEQ,0,0,0,0,0)
#line 9294 "regression-compile-tmp/nrimp10s-77.imp"
PF2(160, 0, 0, 0, 0, 0);
                                                                //   9295           PSF1(JUNC,0,-12)
#line 9295 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(26, 0, (-12));
                                                                //   9296           PSF1(SLSS,1,20)
#line 9296 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(66, 1, 20);
                                                                //   9297           PSF1(ISB,1,52)
#line 9297 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(226, 1, 52);
                                                                //   9298           PF1(ST,0,BREG,0)
#line 9298 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   9299           PSF1(LSS,1,28)
#line 9299 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 1, 28);
                                                                //   9300           PF3(JAF,4,0,3)
#line 9300 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 4, 0, 3);
                                                                //   9301           PSF1(LSS,0,1)
#line 9301 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 1);
                                                                //   9302           PF1(AND,0,0,16_1FF)
#line 9302 "regression-compile-tmp/nrimp10s-77.imp"
PF1(138, 0, 0, 511);
                                                                //   9303           PF1(ICP,0,BREG,0)
#line 9303 "regression-compile-tmp/nrimp10s-77.imp"
PF1(230, 0, 7, 0);
                                                                //   9304           PF3(JCC,12,0,13)
#line 9304 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 12, 0, 13);
                                                                //   9305           PSF1(LD,1,28)
#line 9305 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(120, 1, 28);
                                                                //   9306           PF3(JAT,11,0,7)
#line 9306 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 11, 0, 7);
                                                                //   9307           PSF1(LSD,1,20)
#line 9307 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(100, 1, 20);
                                                                //   9308           PF2(MVL,0,0,0,0,0)
#line 9308 "regression-compile-tmp/nrimp10s-77.imp"
PF2(176, 0, 0, 0, 0, 0);
                                                                //   9309           PF1(LDB,0,BREG,0)
#line 9309 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   9310           PF2(MV,1,1,0,0,UNASSPAT&255)
#line 9310 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255)));
                                                                //   9311           PF1(LD,0,TOS,0)
#line 9311 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 6, 0);
                                                                //   9312           PSF1(CYD,0,0)
#line 9312 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9313           PSF1(EXIT,0,-16_40)
#line 9313 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(56, 0, (-64));
                                                                //   9314           PSF1(MPSR,0,16_24)
#line 9314 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(50, 0, 36);
                                                                //   9315           PSF1(EXIT,0,-16_40)
#line 9315 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(56, 0, (-64));
                                                                //   9316  P17:
#line 9316 "regression-compile-tmp/nrimp10s-77.imp"
U_1014:;
                                                                //   9317  !
                                                                //   9318  ! EVALUATE X**Y
                                                                //   9319  ! ******** ****
                                                                //   9320  ! Y IS IN ACC X IS STACKED BELOW THE LINK(UNAVOIDABLE)
                                                                //   9321  ! FAULT(21) IS GIVEN IF X<0 OR (X=0 AND Y<=0)
                                                                //   9322  ! REPEATED MULTIPLICATION IS USED IF Y>0 AND FRACPT(Y)=0
                                                                //   9323  ! OTHERWISE RESULT=EXP(Y*LOG(Y))
                                                                //   9324  !
                                                                //   9325  !        LB    TOS                      SWOP RETURN ADDRESS & X
                                                                //   9326  !        LD    TOS                      X TO DR
                                                                //   9327  !        STB   TOS
                                                                //   9328  !        STD   TOS
                                                                //   9329  !        SLSD  TOS                      X TO ACC Y TO TOS
                                                                //   9330  !        JAT   2,EXPERR                 ERROR IF X<0
                                                                //   9331  !        JAF   0,TRYMULT                JUMP X#0
                                                                //   9332  !        SLSD  TOS                      STACK X & GET Y
                                                                //   9333  !        JAF   1.EXPERR                 Y<=0
                                                                //   9334  !        LSD   TOS                      X (=0) =RESULT TO ACC
                                                                //   9335  !        J     TOS                      RETURN
                                                                //   9336  !TRYMULT                                X IS IN ACC & Y STACKED
                                                                //   9337  !        SLSD  TOS                      Y TO ACC AND X STACKED
                                                                //   9338  !        ST    TOS                      Y STACKED
                                                                //   9339  !        JAT   2,NONINT                 Y IS NEGATAIVE
                                                                //   9340  !        RSC   55
                                                                //   9341  !        RSC   -55
                                                                //   9342  !        FIX   B                        FIX PINCHED FROM ICL ALGOL
                                                                //   9343  !        MYB   4
                                                                //   9344  !        CPB   -64
                                                                //   9345  !        JCC   10,*+3
                                                                //   9346  !        LB    -64
                                                                //   9347  !        ISH   B
                                                                //   9348  !        STUH  B                        ACC TO 1 WORD
                                                                //   9349  !        JCC   7,NONINT                 JUMP IF TRUNCATION
                                                                //   9350  !        ASF   -2                       LOSE Y OF STACK
                                                                //   9351  !        ST    B                        INTEGER VERSION OF Y TO B
                                                                //   9352  !        LSS   1
                                                                //   9353  !        FLT   0
                                                                //   9354  !        JAF   12,MUL                   JUMP IF B#0
                                                                //   9355  !        ASF   -2                       LOSE X OFF STACK
                                                                //   9356  !        J     TOS                      X**0 =1
                                                                //   9357  !AGN     STD   TOS                      STACK ANOTHER COPY OF X
                                                                //   9358  !MUL     RMY   TOS
                                                                //   9359  !        DEBJ  AGN                      REPEATED MULTIPLICATION
                                                                //   9360  !        J     TOS
                                                                //   9361  !NONINT                                 Y IS STACKED OVER X
                                                                //   9362  !        LSD   TOS
                                                                //   9363  !        SLSD  TOS
                                                                //   9364  !        PRCL  4
                                                                //   9365  !        ST    TOS
                                                                //   9366  !        LXN   (LNB+4)
                                                                //   9367  !        RALN  7
                                                                //   9368  !        CALL  ((XNB+LOGEPDISP)
                                                                //   9369  !        RMY   TOS
                                                                //   9370  !        PRCL  4
                                                                //   9371  !        ST    TOS
                                                                //   9372  !        LXN   (LNB+4)                  TO PLT
                                                                //   9373  !        RALN  7
                                                                //   9374  !        CALL  ((XNB+EXPEPDISP))        CALL EXP
                                                                //   9375  !        J     TOS
                                                                //   9376  !EXPERR  J     ERROR RT NO 7
                                                                //   9377  !
                                                                //   9378           %IF PLINK(17)=0 %THEN ->P18
#line 9378 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[17]) != (0))) goto L_0936;
#line 9378 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1056;
#line 9378 "regression-compile-tmp/nrimp10s-77.imp"
L_0936:;
                                                                //   9379           FILL(17)
#line 9379 "regression-compile-tmp/nrimp10s-77.imp"
FILL(17);
                                                                //   9380           %IF LOGEPDISP=0 %THEN CXREF("S#ILOG",PARMDYNAMIC,2,LOGEPDISP)
#line 9380 "regression-compile-tmp/nrimp10s-77.imp"
if (((LOGEPDISP) != (0))) goto L_0937;
#line 9380 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(_imp_str_literal("S#ILOG"), PARMDYNAMIC, 2, &LOGEPDISP);
#line 9380 "regression-compile-tmp/nrimp10s-77.imp"
L_0937:;
                                                                //   9381           %IF EXPEPDISP=0 %THEN CXREF("S#IEXP",PARMDYNAMIC,2,EXPEPDISP)
#line 9381 "regression-compile-tmp/nrimp10s-77.imp"
if (((EXPEPDISP) != (0))) goto L_0938;
#line 9381 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(_imp_str_literal("S#IEXP"), PARMDYNAMIC, 2, &EXPEPDISP);
#line 9381 "regression-compile-tmp/nrimp10s-77.imp"
L_0938:;
                                                                //   9382           PF1(LB,0,TOS,0)
#line 9382 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 0, 6, 0);
                                                                //   9383           PF1(LD,0,TOS,0)
#line 9383 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 6, 0);
                                                                //   9384           PF1(STB,0,TOS,0)
#line 9384 "regression-compile-tmp/nrimp10s-77.imp"
PF1(90, 0, 6, 0);
                                                                //   9385           PF1(STD,0,TOS,0)
#line 9385 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   9386           PF1(SLSD,0,TOS,0)
#line 9386 "regression-compile-tmp/nrimp10s-77.imp"
PF1(68, 0, 6, 0);
                                                                //   9387           PF3(JAT,2,0,16_35)
#line 9387 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 2, 0, 53);
                                                                //   9388           PF3(JAF,0,0,7)
#line 9388 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 0, 0, 7);
                                                                //   9389           PF1(SLSD,0,TOS,0)
#line 9389 "regression-compile-tmp/nrimp10s-77.imp"
PF1(68, 0, 6, 0);
                                                                //   9390           PF3(JAF,1,0,16_30)
#line 9390 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 1, 0, 48);
                                                                //   9391           PF1(LSD,0,TOS,0)
#line 9391 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
                                                                //   9392           PF1(JUNC,0,TOS,0)
#line 9392 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9393           PF1(SLSD,0,TOS,0)
#line 9393 "regression-compile-tmp/nrimp10s-77.imp"
PF1(68, 0, 6, 0);
                                                                //   9394           PF1(ST,0,TOS,0)
#line 9394 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   9395           PF3(JAT,2,0,26)
#line 9395 "regression-compile-tmp/nrimp10s-77.imp"
PF3(4, 2, 0, 26);
                                                                //   9396           PSF1(RSC,0,55)
#line 9396 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(248, 0, 55);
                                                                //   9397           PSF1(RSC,0,-55)
#line 9397 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(248, 0, (-55));
                                                                //   9398           PF1(FIX,0,BREG,0)
#line 9398 "regression-compile-tmp/nrimp10s-77.imp"
PF1(184, 0, 7, 0);
                                                                //   9399           PSF1(MYB,0,4)
#line 9399 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(42, 0, 4);
                                                                //   9400           PSF1(CPB,0,-64)
#line 9400 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(38, 0, (-64));
                                                                //   9401           PF3(JCC,10,0,3)
#line 9401 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 10, 0, 3);
                                                                //   9402           PSF1(LB,0,-64)
#line 9402 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(122, 0, (-64));
                                                                //   9403           PF1(ISH,0,BREG,0)
#line 9403 "regression-compile-tmp/nrimp10s-77.imp"
PF1(232, 0, 7, 0);
                                                                //   9404           PF1(STUH,0,BREG,0)
#line 9404 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
                                                                //   9405           PF3(JCC,7,0,14)
#line 9405 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 7, 0, 14);
                                                                //   9406           PSF1(ASF,0,-2)
#line 9406 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(110, 0, (-2));
                                                                //   9407           PF1(ST,0,BREG,0)
#line 9407 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 7, 0);
                                                                //   9408           PSF1(LSS,0,1)
#line 9408 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(98, 0, 1);
                                                                //   9409           PSF1(FLT,0,0)
#line 9409 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(168, 0, 0);
                                                                //   9410           PF3(JAF,12,0,5)
#line 9410 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 12, 0, 5);
                                                                //   9411           PSF1(ASF,0,-2)
#line 9411 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(110, 0, (-2));
                                                                //   9412           PF1(JUNC,0,TOS,0)
#line 9412 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9413           PF1(STD,0,TOS,0)
#line 9413 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   9414           PF1(RMY,0,TOS,0)
#line 9414 "regression-compile-tmp/nrimp10s-77.imp"
PF1(250, 0, 6, 0);
                                                                //   9415           PSF1(DEBJ,0,-2)
#line 9415 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(36, 0, (-2));
                                                                //   9416           PF1(JUNC,0,TOS,0)
#line 9416 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9417           PF1(LSD,0,TOS,0)
#line 9417 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
                                                                //   9418           PF1(SLSD,0,TOS,0)
#line 9418 "regression-compile-tmp/nrimp10s-77.imp"
PF1(68, 0, 6, 0);
                                                                //   9419           PSF1(PRCL,0,4)
#line 9419 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   9420           PF1(ST,0,TOS,0)
#line 9420 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   9421           PSF1(LXN,1,16)
#line 9421 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   9422           PSF1(RALN,0,7)
#line 9422 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 7);
                                                                //   9423           PF1(CALL,2,XNB,LOGEPDISP)
#line 9423 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, LOGEPDISP);
                                                                //   9424           PF1(RMY,0,TOS,0)
#line 9424 "regression-compile-tmp/nrimp10s-77.imp"
PF1(250, 0, 6, 0);
                                                                //   9425           PSF1(PRCL,0,4)
#line 9425 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   9426           PF1(ST,0,TOS,0)
#line 9426 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   9427           PSF1(LXN,1,16)
#line 9427 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   9428           PSF1(RALN,0,7)
#line 9428 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 7);
                                                                //   9429           PF1(CALL,2,XNB,EXPEPDISP)
#line 9429 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, EXPEPDISP);
                                                                //   9430           PF1(JUNC,0,TOS,0)
#line 9430 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9431           PF1(JUNC,0,0,(PLABS(7)-CA)//2)
#line 9431 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 0, ((long)((long)(((((int)(PLABS[7])) - (CA)))) / (long)((int)(2)))));
                                                                //   9432  P18:
#line 9432 "regression-compile-tmp/nrimp10s-77.imp"
U_1056:;
                                                                //   9433  !
                                                                //   9434  ! MAPPED STRING ASSIGNMENT CHECK. CHECKING MODE ONLY. MUST MOVE ONLY
                                                                //   9435  ! CURRENT LENGTH INTO MAPPED STRINGS BUT MUST NOT OMIT THE CAPACITY
                                                                //   9436  ! CHECK. ACC & DR SET FOR MV
                                                                //   9437  !
                                                                //   9438  !        ST    TOS                      SAVE ACC DESRPTR
                                                                //   9439  !        AND   16_1FF00000000            GET CURRENT LENGTH
                                                                //   9440  !        STUH  B                        INTO BREG
                                                                //   9441  !        LSD   TOS                      RESTORE ACC
                                                                //   9442  !        STD   TOS                      SAVE DR DESCRPTR
                                                                //   9443  !        SBB   1
                                                                //   9444  !        JAF 13,*+3
                                                                //   9445  !        MODD  B                        PROVOKE FAILURE IF RELEVANT
                                                                //   9446  !        ADB   1
                                                                //   9447  !        LD    TOS
                                                                //   9448  !        LDB   B                        BOUND=CURRENT L +1(FOR LBYTE)
                                                                //   9449  !        J     TOS
                                                                //   9450  !
                                                                //   9451           %IF PLINK(18)=0 %THEN ->P19
#line 9451 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[18]) != (0))) goto L_0939;
#line 9451 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1057;
#line 9451 "regression-compile-tmp/nrimp10s-77.imp"
L_0939:;
                                                                //   9452           CNOP(0,8)
#line 9452 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(0, 8);
                                                                //   9453           D=CA
#line 9453 "regression-compile-tmp/nrimp10s-77.imp"
D = CA;
                                                                //   9454           PCONST(511)
#line 9454 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(511);
                                                                //   9455           PCONST(0);                     ! XFF00000000
#line 9455 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(0);
                                                                //   9456           FILL(18)
#line 9456 "regression-compile-tmp/nrimp10s-77.imp"
FILL(18);
                                                                //   9457           PF1(ST,0,TOS,0)
#line 9457 "regression-compile-tmp/nrimp10s-77.imp"
PF1(72, 0, 6, 0);
                                                                //   9458           PF1(AND,0,PC,D)
#line 9458 "regression-compile-tmp/nrimp10s-77.imp"
PF1(138, 0, 4, D);
                                                                //   9459           PF1(STUH,0,BREG,0)
#line 9459 "regression-compile-tmp/nrimp10s-77.imp"
PF1(74, 0, 7, 0);
                                                                //   9460           PF1(LSD,0,TOS,0)
#line 9460 "regression-compile-tmp/nrimp10s-77.imp"
PF1(100, 0, 6, 0);
                                                                //   9461           PF1(STD,0,TOS,0)
#line 9461 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   9462           PSF1(SBB,0,1)
#line 9462 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(34, 0, 1);
                                                                //   9463           PF3(JAF,13,0,3)
#line 9463 "regression-compile-tmp/nrimp10s-77.imp"
PF3(6, 13, 0, 3);
                                                                //   9464           PF1(MODD,0,BREG,0)
#line 9464 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 7, 0);
                                                                //   9465           PSF1(ADB,0,1)
#line 9465 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(32, 0, 1);
                                                                //   9466           PF1(LD,0,TOS,0)
#line 9466 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 6, 0);
                                                                //   9467           PF1(LDB,0,BREG,0)
#line 9467 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   9468           PF1(JUNC,0,TOS,0)
#line 9468 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9469  P19:
#line 9469 "regression-compile-tmp/nrimp10s-77.imp"
U_1057:;
                                                                //   9470  ! CONCATENATION ONE
                                                                //   9471  ! COPY THE FIRST STRING INTO THE WORK AREA
                                                                //   9472  ! B HAS REL DISP OF THE WORK AREA FROM LNB
                                                                //   9473  ! DR HAS CURRENT LENGTH DESCRIPTOR OF FIRST STRING
                                                                //   9474  ! RESULT IS A CURRENT LENGTH DESCRIPTOR TO WORK AREA IN DR AND ACC
                                                                //   9475  !
                                                                //   9476  !        STLN TOS
                                                                //   9477  !        ADB   TOS
                                                                //   9478  !        LXN   B                        XNB TO WORK AREA
                                                                //   9479  !        SLB   @DR                      CURRENT LENGTH TO B
                                                                //   9480  !        STB   (%XNB+2)                 INTO LENGTH BYTE OF WK AREA
                                                                //   9481  !        INCA  1                        DR PAST LENGTH BYTE
                                                                //   9482  !        CYD   0                        BECOMES SOURCE STRING
                                                                //   9483  !        LD    =16_180000FF0000000C     
                                                                //   9484  !        INCA  TOS                      DESCRIPTOR TO WK STRING
                                                                //   9485  !        STD   (%XNB+0)                 STORED FOR LATER
                                                                //   9486  !        LDB   B                        ADJUSTED SO NO FILLING
                                                                //   9487  !        MV    L=DR                     THE MOVE
                                                                //   9488  !        LD    (%XNB+0)                 SET UP DR WITH RESULT
                                                                //   9489  !        LDB   B                        CURRENT LENGTH AS BOUND
                                                                //   9490  !        INCA  -1                       TO POINT AT LENGTH BYTE
                                                                //   9491  !        CYD   0                        TO ACC AS WELL
                                                                //   9492  !        J     TOS                      RETURN
                                                                //   9493        %IF PLINK(19)!PLINK(20)=0 %THEN ->P21
#line 9493 "regression-compile-tmp/nrimp10s-77.imp"
if (((((PLINK[19]) | (PLINK[20]))) != (0))) goto L_093a;
#line 9493 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1058;
#line 9493 "regression-compile-tmp/nrimp10s-77.imp"
L_093a:;
                                                                //   9494        CNOP(0,8);                        ! DOUBLE WORD ALLIGN
#line 9494 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(0, 8);
                                                                //   9495        D=CA
#line 9495 "regression-compile-tmp/nrimp10s-77.imp"
D = CA;
                                                                //   9496        PCONST(16_180000FF); PCONST(12)
#line 9496 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(402653439);
#line 9496 "regression-compile-tmp/nrimp10s-77.imp"
PCONST(12);
                                                                //   9497        FILL(19)
#line 9497 "regression-compile-tmp/nrimp10s-77.imp"
FILL(19);
                                                                //   9498        PF1(STLN,0,TOS,0)
#line 9498 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   9499        PF1(ADB,0,TOS,0)
#line 9499 "regression-compile-tmp/nrimp10s-77.imp"
PF1(32, 0, 6, 0);
                                                                //   9500        PF1(LXN,0,BREG,0)
#line 9500 "regression-compile-tmp/nrimp10s-77.imp"
PF1(126, 0, 7, 0);
                                                                //   9501        PF1(SLB,2,7,0)
#line 9501 "regression-compile-tmp/nrimp10s-77.imp"
PF1(82, 2, 7, 0);
                                                                //   9502        PF1(STB,0,XNB,8)
#line 9502 "regression-compile-tmp/nrimp10s-77.imp"
PF1(90, 0, 3, 8);
                                                                //   9503        PSF1(INCA,0,1)
#line 9503 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, 1);
                                                                //   9504        PSF1(CYD,0,0)
#line 9504 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9505        PF1(LD,0,PC,D)
#line 9505 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 4, D);
                                                                //   9506        PF1(INCA,0,TOS,0)
#line 9506 "regression-compile-tmp/nrimp10s-77.imp"
PF1(20, 0, 6, 0);
                                                                //   9507        PF1(STD,0,XNB,0)
#line 9507 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 3, 0);
                                                                //   9508        PF1(LDB,0,BREG,0)
#line 9508 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   9509        PF2(MV,1,0,0,0,0)
#line 9509 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 0, 0, 0, 0);
                                                                //   9510        PF1(LD,0,XNB,0)
#line 9510 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 3, 0);
                                                                //   9511        PF1(LDB,0,BREG,0)
#line 9511 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   9512        PSF1(INCA,0,-1)
#line 9512 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (-1));
                                                                //   9513        PSF1(CYD,0,0)
#line 9513 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9514        PF1(JUNC,0,TOS,0)
#line 9514 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9515  !
                                                                //   9516  ! CONCATENATION TWO
                                                                //   9517  ! ADD THE SECOND AND SUBSEQUENT STRINGS TO THE FIRST
                                                                //   9518  ! PARAMETERS AND RESULTS AS CONCATENATION ONE
                                                                //   9519  !
                                                                //   9520  !        STLN TOS
                                                                //   9521  !        ADB   TOS
                                                                //   9522  !        LXN   B                        XNB TO WORK AREA
                                                                //   9523  !        LB    @DR                      CURRENT LENGTH TO B
                                                                //   9524  !        STB   TOS                      KEEP FOR THE MOVE
                                                                //   9525  !        ADB   (%XNB+2)                 ADD OLD LENGTH
                                                                //   9526  !        INCA  1                        PAST LENGTH BYTE
                                                                //   9527  !        CYD   0                        BECOMES SOURCE STRING
                                                                //   9528  !        LD    (%XNB+0)                 GET DESCRIPTOR TO WK STRING
                                                                //   9529  !        MODD  (%XNB+2)                 MOVE ON PAST FIRST STRING
                                                                //   9530  !        LDB   TOS                      TO MOVE RIGHT AMOUNT
                                                                //   9531  !        MV    L=DR
                                                                //   9532  !        STB   (%XNB+2)                 UP DATE WK STRING LENGTH
                                                                //   9533  !        CPB   255
                                                                //   9534  !        JCC   2,CAPACITY EXCEEDED
                                                                //   9535  !        LD    (%XNB+0)                 SET UP DR WITH RESULT
                                                                //   9536  !        LDB   B                        CURRENT LENGTH AS BOUND
                                                                //   9537  !        INCA  -1                       TO POINT AT LENGTH BYTE
                                                                //   9538  !        CYD   0                        TO ACC AS WELL
                                                                //   9539  !        J     TOS                      RETURN
                                                                //   9540        %IF PLINK(20)=0 %THEN ->P21
#line 9540 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[20]) != (0))) goto L_093b;
#line 9540 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1058;
#line 9540 "regression-compile-tmp/nrimp10s-77.imp"
L_093b:;
                                                                //   9541        FILL(20)
#line 9541 "regression-compile-tmp/nrimp10s-77.imp"
FILL(20);
                                                                //   9542        PF1(STLN,0,TOS,0)
#line 9542 "regression-compile-tmp/nrimp10s-77.imp"
PF1(92, 0, 6, 0);
                                                                //   9543        PF1(ADB,0,TOS,0)
#line 9543 "regression-compile-tmp/nrimp10s-77.imp"
PF1(32, 0, 6, 0);
                                                                //   9544        PF1(LXN,0,BREG,0)
#line 9544 "regression-compile-tmp/nrimp10s-77.imp"
PF1(126, 0, 7, 0);
                                                                //   9545        PF1(LB,2,7,0)
#line 9545 "regression-compile-tmp/nrimp10s-77.imp"
PF1(122, 2, 7, 0);
                                                                //   9546        PF1(STB,0,TOS,0)
#line 9546 "regression-compile-tmp/nrimp10s-77.imp"
PF1(90, 0, 6, 0);
                                                                //   9547        PF1(ADB,0,XNB,8)
#line 9547 "regression-compile-tmp/nrimp10s-77.imp"
PF1(32, 0, 3, 8);
                                                                //   9548        PSF1(INCA,0,1)
#line 9548 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, 1);
                                                                //   9549        PSF1(CYD,0,0)
#line 9549 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9550        PF1(LD,0,XNB,0)
#line 9550 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 3, 0);
                                                                //   9551        PF1(MODD,0,XNB,8)
#line 9551 "regression-compile-tmp/nrimp10s-77.imp"
PF1(22, 0, 3, 8);
                                                                //   9552        PF1(LDB,0,TOS,0)
#line 9552 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 6, 0);
                                                                //   9553        PF2(MV,1,0,0,0,0)
#line 9553 "regression-compile-tmp/nrimp10s-77.imp"
PF2(178, 1, 0, 0, 0, 0);
                                                                //   9554        PF1(STB,0,XNB,8)
#line 9554 "regression-compile-tmp/nrimp10s-77.imp"
PF1(90, 0, 3, 8);
                                                                //   9555        PF1(CPB,0,0,255)
#line 9555 "regression-compile-tmp/nrimp10s-77.imp"
PF1(38, 0, 0, 255);
                                                                //   9556        PF3(JCC,2,0,(PLABS(9)-CA)//2)
#line 9556 "regression-compile-tmp/nrimp10s-77.imp"
PF3(2, 2, 0, ((long)((long)(((((int)(PLABS[9])) - (CA)))) / (long)((int)(2)))));
                                                                //   9557        PF1(LD,0,XNB,0)
#line 9557 "regression-compile-tmp/nrimp10s-77.imp"
PF1(120, 0, 3, 0);
                                                                //   9558        PF1(LDB,0,BREG,0)
#line 9558 "regression-compile-tmp/nrimp10s-77.imp"
PF1(118, 0, 7, 0);
                                                                //   9559        PSF1(INCA,0,-1)
#line 9559 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(20, 0, (-1));
                                                                //   9560        PSF1(CYD,0,0)
#line 9560 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(18, 0, 0);
                                                                //   9561        PF1(JUNC,0,TOS,0)
#line 9561 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9562  P21:
#line 9562 "regression-compile-tmp/nrimp10s-77.imp"
U_1058:;
                                                                //   9563  !
                                                                //   9564  ! THE STOP SEQUENCE
                                                                //   9565  ! CALL %SYSTEMROUTINE STOP(NO PARAMETERS)
                                                                //   9566  !
                                                                //   9567  !STOP1   PRCL   4
                                                                //   9568  !        LXN   (LNB+4)
                                                                //   9569  !        RALN  5
                                                                //   9570  !        CALL  ((XNB+STOPEPDISP))       ! **PLEASE DONT COME BACK**
                                                                //   9571  !
                                                                //   9572           %IF PLINK(21)=0 %THEN ->P22
#line 9572 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[21]) != (0))) goto L_093c;
#line 9572 "regression-compile-tmp/nrimp10s-77.imp"
goto U_1059;
#line 9572 "regression-compile-tmp/nrimp10s-77.imp"
L_093c:;
                                                                //   9573           FILL(21)
#line 9573 "regression-compile-tmp/nrimp10s-77.imp"
FILL(21);
                                                                //   9574           CXREF("S#STOP",PARMDYNAMIC,2,J)
#line 9574 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(_imp_str_literal("S#STOP"), PARMDYNAMIC, 2, &J);
                                                                //   9575           PSF1(PRCL,0,4)
#line 9575 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   9576           PSF1(LXN,1,16)
#line 9576 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   9577           PSF1(RALN,0,5)
#line 9577 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 5);
                                                                //   9578           PF1(CALL,2,XNB,J)
#line 9578 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, J);
                                                                //   9579           PF1(16_4E,0,0,16_B00B);        ! IDLE B00B
#line 9579 "regression-compile-tmp/nrimp10s-77.imp"
PF1(78, 0, 0, 45067);
                                                                //   9580  P22:
#line 9580 "regression-compile-tmp/nrimp10s-77.imp"
U_1059:;
                                                                //   9581  !
                                                                //   9582  ! PRINTPROFILE
                                                                //   9583  !
                                                                //   9584           %IF PLINK(22)=0 %THEN ->P23
#line 9584 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[22]) != (0))) goto L_093d;
#line 9584 "regression-compile-tmp/nrimp10s-77.imp"
goto U_105a;
#line 9584 "regression-compile-tmp/nrimp10s-77.imp"
L_093d:;
                                                                //   9585           FILL(22)
#line 9585 "regression-compile-tmp/nrimp10s-77.imp"
FILL(22);
                                                                //   9586           CXREF("S#PPROFILE",PARMDYNAMIC,2,J)
#line 9586 "regression-compile-tmp/nrimp10s-77.imp"
CXREF(_imp_str_literal("S#PPROFILE"), PARMDYNAMIC, 2, &J);
                                                                //   9587           PSF1(PRCL,0,4)
#line 9587 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(24, 0, 4);
                                                                //   9588           PSF1(LXN,1,16)
#line 9588 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(126, 1, 16);
                                                                //   9589           PF1(LDRL,0,XNB,PARMPROF)
#line 9589 "regression-compile-tmp/nrimp10s-77.imp"
PF1(112, 0, 3, PARMPROF);
                                                                //   9590           PF1(STD,0,TOS,0)
#line 9590 "regression-compile-tmp/nrimp10s-77.imp"
PF1(88, 0, 6, 0);
                                                                //   9591           PSF1(RALN,0,7)
#line 9591 "regression-compile-tmp/nrimp10s-77.imp"
PSF1(108, 0, 7);
                                                                //   9592           PF1(CALL,2,XNB,J)
#line 9592 "regression-compile-tmp/nrimp10s-77.imp"
PF1(30, 2, 3, J);
                                                                //   9593           PF1(JUNC,0,TOS,0)
#line 9593 "regression-compile-tmp/nrimp10s-77.imp"
PF1(26, 0, 6, 0);
                                                                //   9594  P23:
#line 9594 "regression-compile-tmp/nrimp10s-77.imp"
U_105a:;
                                                                //   9595           %RETURN
#line 9595 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   9596  %ROUTINE FILL(%INTEGER LAB)
#line 9596 "regression-compile-tmp/nrimp10s-77.imp"
void FILL( int LAB )
#line 9596 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9597  !***********************************************************************
                                                                //   9598  !*       FILL JUMPS TO THIS LAB WITH JUMP TO CURRENT ADDRESS           *
                                                                //   9599  !***********************************************************************
                                                                //   9600  %INTEGER AT,INSTRN,I,J
#line 9600 "regression-compile-tmp/nrimp10s-77.imp"
int AT;
#line 9600 "regression-compile-tmp/nrimp10s-77.imp"
int INSTRN;
#line 9600 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9600 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   9601  %INTEGERARRAY A(0:2)
#line 9601 "regression-compile-tmp/nrimp10s-77.imp"
int A[3];
                                                                //   9602           %WHILE PLINK(LAB)#0 %CYCLE
#line 9602 "regression-compile-tmp/nrimp10s-77.imp"
L_093e:;
#line 9602 "regression-compile-tmp/nrimp10s-77.imp"
if (((PLINK[LAB]) == (0))) goto L_093f;
                                                                //   9603               POP(PLINK(LAB),A(0),A(1),A(2))
#line 9603 "regression-compile-tmp/nrimp10s-77.imp"
POP(&PLINK[LAB], &A[0], &A[1], &A[2]);
                                                                //   9604              %CYCLE I=0,1,2
#line 9604 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((2)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 2");
L_0941:;
if (I == 2) goto L_0942;
I += 1;
                                                                //   9605                 INSTRN=A(I)
#line 9605 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = A[I];
                                                                //   9606                 %IF  INSTRN#0 %THEN %START
#line 9606 "regression-compile-tmp/nrimp10s-77.imp"
if (((INSTRN) == (0))) goto L_0944;
                                                                //   9607                    AT=INSTRN&16_3FFFF
#line 9607 "regression-compile-tmp/nrimp10s-77.imp"
AT = ((INSTRN) & (262143));
                                                                //   9608                    INSTRN=INSTRN&16_FFC00000
#line 9608 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((INSTRN) & ((-4194304)));
                                                                //   9609                    INSTRN=INSTRN!(CA-AT)>>1
#line 9609 "regression-compile-tmp/nrimp10s-77.imp"
INSTRN = ((INSTRN) | ((((((((int)(CA)) - (AT)))) >> (1)))));
                                                                //   9610                     PLUG(1,AT,INSTRN,4)
#line 9610 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(1, AT, INSTRN, 4);
                                                                //   9611                 %FINISH
#line 9611 "regression-compile-tmp/nrimp10s-77.imp"
L_0944:;
                                                                //   9612              %REPEAT
#line 9612 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0941;
#line 9612 "regression-compile-tmp/nrimp10s-77.imp"
L_0942:;
                                                                //   9613           %REPEAT
#line 9613 "regression-compile-tmp/nrimp10s-77.imp"
goto L_093e;
#line 9613 "regression-compile-tmp/nrimp10s-77.imp"
L_093f:;
                                                                //   9614           PLABS(LAB)=CA
#line 9614 "regression-compile-tmp/nrimp10s-77.imp"
PLABS[LAB] = CA;
                                                                //   9615  %END
#line 9615 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FILL at level 5
                                                                //   9616  %END
#line 9616 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block EPILOGUE at level 4
                                                                //   9617  %ROUTINE DUMP CONSTS
#line 9617 "regression-compile-tmp/nrimp10s-77.imp"
void DUMPCONSTS( void )
#line 9617 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9618  !***********************************************************************
                                                                //   9619  !*    OUTPUT THE CONSTANT TABLE AND MAKE ANY RELEVANT RELOCATIONS      *
                                                                //   9620  !***********************************************************************
                                                                //   9621  %ROUTINESPEC DOIT(%INTEGER VAL)
#line 9621 "regression-compile-tmp/nrimp10s-77.imp"
auto void DOIT( int VAL );
                                                                //   9622  %ROUTINESPEC FILL(%INTEGER CREFHEAD)
#line 9622 "regression-compile-tmp/nrimp10s-77.imp"
auto void FILL( int CREFHEAD );
                                                                //   9623  %INTEGER I,J,K,DISP,SIZE,BASE
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int DISP;
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int SIZE;
#line 9623 "regression-compile-tmp/nrimp10s-77.imp"
int BASE;
                                                                //   9624        BASE=0
#line 9624 "regression-compile-tmp/nrimp10s-77.imp"
BASE = 0;
                                                                //   9625        SIZE=CONSTPTR-BASE
#line 9625 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = (((int)(CONSTPTR)) - (BASE));
                                                                //   9626        %IF SIZE<=0 %THEN %RETURN
#line 9626 "regression-compile-tmp/nrimp10s-77.imp"
if (((SIZE) > (0))) goto L_0945;
#line 9626 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 9626 "regression-compile-tmp/nrimp10s-77.imp"
L_0945:;
                                                                //   9627        CNOP(0,8) %UNLESS CA&7=0
#line 9627 "regression-compile-tmp/nrimp10s-77.imp"
if (((((CA) & (7))) == (0))) goto L_0946;
#line 9627 "regression-compile-tmp/nrimp10s-77.imp"
CNOP(0, 8);
#line 9627 "regression-compile-tmp/nrimp10s-77.imp"
L_0946:;
                                                                //   9628        CODE OUT
#line 9628 "regression-compile-tmp/nrimp10s-77.imp"
CODEOUT();
                                                                //   9629        LPUT(1,SIZE*4,CA,ADDR(CTABLE_val(BASE)))
#line 9629 "regression-compile-tmp/nrimp10s-77.imp"
lput(1, (((int)(SIZE)) * (4)), CA, _imp_ADDR(&CTABLE->VAL[BASE]));
                                                                //   9630  !*DELSTART
                                                                //   9631        %IF DCOMP#0 %START
#line 9631 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) == (0))) goto L_0947;
                                                                //   9632           PRINTSTRING("
#line 9632 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nCONSTANT TABLE"));
                                                                //   9633  CONSTANT TABLE")
                                                                //   9634           I=BASE
#line 9634 "regression-compile-tmp/nrimp10s-77.imp"
I = BASE;
                                                                //   9635           %CYCLE
#line 9635 "regression-compile-tmp/nrimp10s-77.imp"
L_0948:;
                                                                //   9636              NEWLINE
#line 9636 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //   9637              PRHEX(CA+4*(I-BASE),5)
#line 9637 "regression-compile-tmp/nrimp10s-77.imp"
PRHEX(((CA) + ((int)(((4) * ((int)((((int)(I)) - (BASE)))))))), 5);
                                                                //   9638              %CYCLE J=0,1,7
#line 9638 "regression-compile-tmp/nrimp10s-77.imp"
J = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 7");
L_094b:;
if (J == 7) goto L_094c;
J += 1;
                                                                //   9639                 SPACES(2)
#line 9639 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES(2);
                                                                //   9640                 PRHEX(CTABLE_val(I+J),8)
#line 9640 "regression-compile-tmp/nrimp10s-77.imp"
PRHEX(CTABLE->VAL[(((int)(I)) + (J))], 8);
                                                                //   9641              %REPEAT
#line 9641 "regression-compile-tmp/nrimp10s-77.imp"
goto L_094b;
#line 9641 "regression-compile-tmp/nrimp10s-77.imp"
L_094c:;
                                                                //   9642              SPACE
#line 9642 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACE();
                                                                //   9643              %CYCLE J=0,1,31
#line 9643 "regression-compile-tmp/nrimp10s-77.imp"
J = (-1);
if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 31");
L_094e:;
if (J == 31) goto L_094f;
J += 1;
                                                                //   9644                 K=BYTEINTEGER(ADDR(CTABLE_val(I))+J)
#line 9644 "regression-compile-tmp/nrimp10s-77.imp"
K = *_imp_BYTEINTEGER((((int)(_imp_ADDR(&CTABLE->VAL[I]))) + (J)));
                                                                //   9645                 %IF K<31 %OR K>95 %THEN K=32
#line 9645 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) < (31))) goto L_0486;
#line 9645 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) <= (95))) goto L_0951;
#line 9645 "regression-compile-tmp/nrimp10s-77.imp"
L_0486:;
#line 9645 "regression-compile-tmp/nrimp10s-77.imp"
K = 32;
#line 9645 "regression-compile-tmp/nrimp10s-77.imp"
L_0951:;
                                                                //   9646                 PRINT SYMBOL(K)
#line 9646 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(K);
                                                                //   9647              %REPEAT
#line 9647 "regression-compile-tmp/nrimp10s-77.imp"
goto L_094e;
#line 9647 "regression-compile-tmp/nrimp10s-77.imp"
L_094f:;
                                                                //   9648              I=I+8
#line 9648 "regression-compile-tmp/nrimp10s-77.imp"
I = (((int)(I)) + (8));
                                                                //   9649              %EXIT %IF I>=CONSTPTR
#line 9649 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) < (CONSTPTR))) goto L_0952;
#line 9649 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0949;
#line 9649 "regression-compile-tmp/nrimp10s-77.imp"
L_0952:;
                                                                //   9650           %REPEAT
#line 9650 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0948;
#line 9650 "regression-compile-tmp/nrimp10s-77.imp"
L_0949:;
                                                                //   9651        %FINISH
#line 9651 "regression-compile-tmp/nrimp10s-77.imp"
L_0947:;
                                                                //   9652  !*DELEND
                                                                //   9653  !
                                                                //   9654        FILL(CREFHEAD)
#line 9654 "regression-compile-tmp/nrimp10s-77.imp"
FILL(CREFHEAD);
                                                                //   9655        SIZE=(SIZE+1)&(-2)
#line 9655 "regression-compile-tmp/nrimp10s-77.imp"
SIZE = (((((int)(SIZE)) + (1))) & ((-2)));
                                                                //   9656        CA=CA+4*SIZE
#line 9656 "regression-compile-tmp/nrimp10s-77.imp"
CA = ((CA) + ((int)((((int)(4)) * (SIZE)))));
                                                                //   9657        CABUF=CA
#line 9657 "regression-compile-tmp/nrimp10s-77.imp"
CABUF = CA;
                                                                //   9658        %RETURN
#line 9658 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   9659  %ROUTINE FILL(%INTEGER CREFHEAD)
#line 9659 "regression-compile-tmp/nrimp10s-77.imp"
void FILL( int CREFHEAD )
#line 9659 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9660        DISP=(CA-4*BASE)//2;            ! RELOCATION FACTOR
#line 9660 "regression-compile-tmp/nrimp10s-77.imp"
DISP = (long)((long)((((CA) - ((int)((((int)(4)) * (BASE))))))) / (long)((int)(2)));
                                                                //   9661        %WHILE CREFHEAD#0 %CYCLE
#line 9661 "regression-compile-tmp/nrimp10s-77.imp"
L_0953:;
#line 9661 "regression-compile-tmp/nrimp10s-77.imp"
if (((CREFHEAD) == (0))) goto L_0954;
                                                                //   9662           POP(CREFHEAD,I,J,K)
#line 9662 "regression-compile-tmp/nrimp10s-77.imp"
POP(&CREFHEAD, &I, &J, &K);
                                                                //   9663           DOIT(I)
#line 9663 "regression-compile-tmp/nrimp10s-77.imp"
DOIT(I);
                                                                //   9664           %IF J#0 %THEN DOIT(J)
#line 9664 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (0))) goto L_0956;
#line 9664 "regression-compile-tmp/nrimp10s-77.imp"
DOIT(J);
#line 9664 "regression-compile-tmp/nrimp10s-77.imp"
L_0956:;
                                                                //   9665           %IF K#0 %THEN DOIT(K)
#line 9665 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) == (0))) goto L_0957;
#line 9665 "regression-compile-tmp/nrimp10s-77.imp"
DOIT(K);
#line 9665 "regression-compile-tmp/nrimp10s-77.imp"
L_0957:;
                                                                //   9666        %REPEAT
#line 9666 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0953;
#line 9666 "regression-compile-tmp/nrimp10s-77.imp"
L_0954:;
                                                                //   9667  %END
#line 9667 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FILL at level 5
                                                                //   9668  %ROUTINE DOIT(%INTEGER VAL)
#line 9668 "regression-compile-tmp/nrimp10s-77.imp"
void DOIT( int VAL )
#line 9668 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9669  !***********************************************************************
                                                                //   9670  !*    IF VAL +VE THEN VAL IS CODE ADDRESS FOR LPUT(18) UPDATE          *
                                                                //   9671  !*    IF VAL -VE IT IS GLAWRDADDRR<<16!CTABLE WRD ADDR                 *
                                                                //   9672  !*    THE GLA WORD IS TO RELOCATED BY HEAD OF CODE(ALREADY DONE)       *
                                                                //   9673  !*    HOWEVER THE GLAWORD NEEDS UPDATING FROM  REL CTABLE TO REL CODE  *
                                                                //   9674  !***********************************************************************
                                                                //   9675  %INTEGER I,J
#line 9675 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9675 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //   9676        %IF VAL>0 %THEN LPUT(18,0,VAL,DISP) %ELSE %START
#line 9676 "regression-compile-tmp/nrimp10s-77.imp"
if (((VAL) <= (0))) goto L_0958;
#line 9676 "regression-compile-tmp/nrimp10s-77.imp"
lput(18, 0, VAL, DISP);
#line 9676 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0959;
#line 9676 "regression-compile-tmp/nrimp10s-77.imp"
L_0958:;
                                                                //   9677           I=(VAL>>16&16_7FFF)<<2;        ! GLA BYTE ADDRESS
#line 9677 "regression-compile-tmp/nrimp10s-77.imp"
I = (((((int)((((unsigned int)(VAL)) >> (16)))) & (32767))) << (2));
                                                                //   9678           J=4*(VAL&16_FFFF)+CA;          ! CTABLE ENTRY REL HD OF CODE
#line 9678 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(((4) * ((int)(((VAL) & (65535))))))) + (CA));
                                                                //   9679           PLUG(2,I,J,4);                 ! UPDATE THE GLA WORD
#line 9679 "regression-compile-tmp/nrimp10s-77.imp"
PLUG(2, I, J, 4);
                                                                //   9680        %FINISH
#line 9680 "regression-compile-tmp/nrimp10s-77.imp"
L_0959:;
                                                                //   9681  %END
#line 9681 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DOIT at level 5
                                                                //   9682  %END
#line 9682 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DUMPCONSTS at level 4
                                                                //   9683  %END;                                   ! OF SUBBLOCK CONTAINING PASS2
#line 9683 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_3_LEVEL_2_ at level 3
_BLOCK_3_LEVEL_2_();
                                                                //   9684  
                                                                //   9685  %STRING(255)%FN MESSAGE(%INTEGER N)
#line 9685 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ MESSAGE( int N )
#line 9685 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9686  !***********************************************************************
                                                                //   9687  !*       OUTPUTS AN ERROR MESSAGE STORED IN A COMPRESSED FORMAT        *
                                                                //   9688  !*       1  %REPEAT is not required                                    *
                                                                //   9689  !*       2  Label & has already been set in this block                 *
                                                                //   9690  !*       4  Switch & has not been declared                             *
                                                                //   9691  !*       5  Switch name & in expression or assignment                  *
                                                                //   9692  !*       6  Switch label &(#) set a second time                        *
                                                                //   9693  !*       7  Name & has already been declared                           *
                                                                //   9694  !*       8  Routine or fn & has more parameters than specified         *
                                                                //   9695  !*       9  Parameter # of & differs in type from specification        *
                                                                //   9696  !*      10  Routine or fn & has fewer parameters than specified        *
                                                                //   9697  !*      11  Label & referenced at line # has not been set              *
                                                                //   9698  !*      12  %CYCLE at line # has two control clauses                   *
                                                                //   9699  !*      13  %REPEAT for %CYCLE at line # is missing                    *
                                                                //   9700  !*      14  TOO MANY ENDS                                              *
                                                                //   9701  !*      15  MISSING ENDS                                               *
                                                                //   9702  !*      16  Name & has not been declared                               *
                                                                //   9703  !*      17  Name & does not require parameters or subscripts           *
                                                                //   9704  !*      19  WRONG NO OF PARAMETERS                                     *
                                                                //   9705  !*      20  # too few subscripts provided for array &                  *
                                                                //   9706  !*      21  # too many subscripts provided for array &                 *
                                                                //   9707  !*      22  ACTUAL PARAMETERS NOT AS SPEC                              *
                                                                //   9708  !*      23  ROUTINE NAME IN EXPRSSN                                    *
                                                                //   9709  !*      24  REAL IN INTEGER EXPRSSN                                    *
                                                                //   9710  !*      26  # is not a valid %EVENT number                             *
                                                                //   9711  !*      27  & is not a routine name                                    *
                                                                //   9712  !*      28  Routine or fn & has specification but no body              *
                                                                //   9713  !*      29  LHS NOT DESTNTN                                            *
                                                                //   9714  !*      30  %RETURN outwith routine body                               *
                                                                //   9715  !*      31  %RESULT outwith fn or map body                             *
                                                                //   9716  !*      32  INVALID ASSEMBLER                                          *
                                                                //   9717  !*      33  INVALID NAME IN ASSEMBLER                                  *
                                                                //   9718  !*      34  TOO MANY LEVELS                                            *
                                                                //   9719  !*      37  TOO MANY DIMENSIONS                                        *
                                                                //   9720  !*      38  Array & has upper bound # less than lower bound            *
                                                                //   9721  !*      40  DECLN MISPLACED                                            *
                                                                //   9722  !*      41  Constant cannot be evaluated at compile time               *
                                                                //   9723  !*      44  ILLEGAL CONST                                              *
                                                                //   9724  !*      45  WRONG NO OF CONST                                          *
                                                                //   9725  !*      46  & is declared as invalid type %EXTRINSIC %NAME             *
                                                                //   9726  !*      47  %ELSE already given at line #                              *
                                                                //   9727  !*      48  %ELSE invalid after %ON %EVENT                             *
                                                                //   9728  !*      49  Attempt to initialise %EXTRINSIC or %FORMAT &              *
                                                                //   9729  !*      50  Subscript of # is outwith the bounds of &                  *
                                                                //   9730  !*      51  %FINISH is not required                                    *
                                                                //   9731  !*      52  %REPEAT instead of %FINISH for %START at line #            *
                                                                //   9732  !*      53  %FINISH for %START at line # is missing                    *
                                                                //   9733  !*      54  %EXIT outwith %CYCLE %REPEAT body                          *
                                                                //   9734  !*      55  %CONTINUE outwith %CYCLE %REPEAT body                      *
                                                                //   9735  !*      56  ENDOFFILE OUT OF CONTEXT                                   *
                                                                //   9736  !*      57  BEGIN MISSING                                              *
                                                                //   9737  !*      58  CONTROL STMNT MISPLACED                                    *
                                                                //   9738  !*      59  %FINISH instead of %REPEAT for %CYCLE at line #            *
                                                                //   9739  !*      61  Name & has already been used in this %FORMAT               *
                                                                //   9740  !*      62  NOT FORMAT NAME                                            *
                                                                //   9741  !*      63  RECORD SPEC ERROR                                          *
                                                                //   9742  !*      64  SUBNAME MISSING                                            *
                                                                //   9743  !*      65  SUBNAME NOT IN FORMAT                                      *
                                                                //   9744  !*      66  Expression assigned to record &                            *
                                                                //   9745  !*      67  Records && and & have different formats                    *
                                                                //   9746  !*      69  SUBNAME OUT OF CONTEXT                                     *
                                                                //   9747  !*      70  ILLEGAL STRING DECLN                                       *
                                                                //   9748  !*      71  & is not a String varaible                                 *
                                                                //   9749  !*      72  Arithmetic operator in a String expression                 *
                                                                //   9750  !*      73  Arithmetic constant in a String expression                 *
                                                                //   9751  !*      74  Resolution is not the correct format                       *
                                                                //   9752  !*      75  String expression contains a sub expression                *
                                                                //   9753  !*      76  String variable & in arithmetic expression                 *
                                                                //   9754  !*      77  String constant in arithmetic expression                   *
                                                                //   9755  !*      78  String operator '.' in arithmetic expression               *
                                                                //   9756  !*      80  Pointer variable & compared with expression                *
                                                                //   9757  !*      81  Pointer variable & equivalenced to expression              *
                                                                //   9758  !*      82  & is not a pointer name                                    *
                                                                //   9759  !*      83  && and & are not equivalent in type                        *
                                                                //   9760  !*      84  RECORD OUT OF CONTEXT                                      *
                                                                //   9761  !*      86  Global pointer && equivalenced to local &                  *
                                                                //   9762  !*      90  Untyped name & used as variable                            *
                                                                //   9763  !*      91  %FOR control variable & not integer                        *
                                                                //   9764  !*      92  %FOR clause has zero step                                  *
                                                                //   9765  !*      93  %FOR clause has noninteger number of traverses             *
                                                                //   9766  !*     101  SOURCE LINE TOO LONG                                       *
                                                                //   9767  !*     102  WORKFILE TOO SMALL                                         *
                                                                //   9768  !*     103  NAMES TOO LONG                                             *
                                                                //   9769  !*     104  TOO MANY NAMES                                             *
                                                                //   9770  !*     105  TOO MANY LEVELS                                            *
                                                                //   9771  !*     106  STRING CONST TOO LONG                                      *
                                                                //   9772  !*     107  COMPILER TABLES FULL                                       *
                                                                //   9773  !*     202  Name & not used                                            *
                                                                //   9774  !*     203  Label & not used                                           *
                                                                //   9775  !*     204  Global %FOR control variable &                             *
                                                                //   9776  !*     205  Name & not addressable                                     *
                                                                //   9777  !*     255  SEE IMP MANUAL                                             *
                                                                //   9778  !***********************************************************************
                                                                //   9779  %CONSTBYTEINTEGERARRAY OUTTT(0:63)='?','A','B','C','D','E','F','G',
#line 9779 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char OUTTT[64] = { 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 38, 45, 47, 39, 40, 41, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 46, 37, 35, 63, 63,  };
                                                                //   9780                                          'H','I','J','K','L','M','N',
                                                                //   9781                                          'O','P','Q','R','S','T','U',
                                                                //   9782                                          'V','W','X','Y','Z','&','-',
                                                                //   9783                                          '/','''','(',')',
                                                                //   9784                                          'a','b','c','d','e','f','g',
                                                                //   9785                                          'h','i','j','k','l','m','n',
                                                                //   9786                                          'o','p','q','r','s','t','u',
                                                                //   9787                                          'v','w','x','y','z','.','%',
                                                                //   9788                                          '#','?'(2)
                                                                //   9789  %CONSTINTEGER WORDMAX= 584,DEFAULT= 580
                                                                //   9790  {%CONST}%own{HALF}%INTEGERARRAY WORD(0:WORDMAX)=0,{%C
#line 9790 "regression-compile-tmp/nrimp10s-77.imp"
static int WORD[585] = { 0, 1, 32769, 32771, 32772, 32773, 2, 32775, 32776, 32777, 32778, 32780, 32781, 32782, 32783, 32784, 4, 32785, 32776, 32777, 32772, 32780, 32787, 5, 32785, 32789, 32776, 32782, 32790, 32792, 32793, 6, 32785, 32795, 32796, 32781, 32797, 32798, 32800, 7, 32801, 32776, 32777, 32778, 32780, 32787, 8, 32802, 32792, 32804, 32776, 32777, 32805, 32806, 32808, 32809, 9, 32811, 32813, 32814, 32776, 32815, 32782, 32817, 32818, 32819, 10, 32802, 32792, 32804, 32776, 32777, 32822, 32806, 32808, 32809, 11, 32775, 32776, 32823, 32825, 32826, 32813, 32777, 32772, 32780, 32781, 12, 32827, 32825, 32826, 32813, 32777, 32829, 32830, 32832, 13, 32769, 32834, 32827, 32825, 32826, 32813, 32771, 32835, 14, 32837, 32838, 32839, 15, 32840, 32839, 16, 32801, 32776, 32777, 32772, 32780, 32787, 17, 32801, 32776, 32842, 32772, 32843, 32806, 32792, 32845, 19, 32847, 32848, 32849, 32850, 20, 32813, 32852, 32853, 32845, 32854, 32834, 32856, 32776, 21, 32813, 32852, 32857, 32845, 32854, 32834, 32856, 32776, 22, 32858, 32850, 32860, 32861, 32862, 23, 32863, 32865, 32866, 32867, 24, 32869, 32866, 32870, 32867, 26, 32813, 32771, 32772, 32797, 32872, 32873, 32875, 27, 32776, 32771, 32772, 32797, 32877, 32789, 28, 32802, 32792, 32804, 32776, 32777, 32819, 32879, 32880, 32881, 29, 32882, 32860, 32883, 30, 32885, 32887, 32877, 32881, 31, 32889, 32887, 32804, 32792, 32891, 32881, 32, 32892, 32894, 33, 32892, 32865, 32866, 32894, 34, 32837, 32838, 32896, 37, 32837, 32838, 32898, 38, 32900, 32776, 32777, 32901, 32902, 32813, 32903, 32808, 32904, 32902, 40, 32905, 32906, 41, 32908, 32910, 32912, 32913, 32825, 32915, 32800, 44, 32917, 32919, 45, 32847, 32848, 32849, 32919, 46, 32776, 32771, 32787, 32920, 32921, 32817, 32923, 32925, 47, 32926, 32778, 32927, 32825, 32826, 32813, 48, 32926, 32921, 32928, 32929, 32873, 49, 32930, 32932, 32933, 32923, 32792, 32935, 32776, 50, 32937, 32814, 32813, 32771, 32887, 32939, 32940, 32814, 32776, 51, 32942, 32771, 32772, 32773, 52, 32769, 32944, 32814, 32942, 32834, 32946, 32825, 32826, 32813, 53, 32942, 32834, 32946, 32825, 32826, 32813, 32771, 32835, 54, 32948, 32887, 32827, 32769, 32881, 55, 32949, 32887, 32827, 32769, 32881, 56, 32951, 32953, 32849, 32954, 57, 32956, 32840, 58, 32957, 32959, 32906, 59, 32942, 32944, 32814, 32769, 32834, 32827, 32825, 32826, 32813, 61, 32801, 32776, 32777, 32778, 32780, 32960, 32782, 32783, 32935, 62, 32860, 32961, 32865, 63, 32963, 32862, 32965, 64, 32966, 32840, 65, 32966, 32860, 32866, 32961, 66, 32968, 32970, 32932, 32972, 32776, 67, 32974, 32976, 32977, 32776, 32978, 32979, 32981, 69, 32966, 32953, 32849, 32954, 70, 32917, 32983, 32905, 71, 32776, 32771, 32772, 32797, 32985, 32987, 72, 32989, 32991, 32782, 32797, 32985, 32790, 73, 32989, 32993, 32782, 32797, 32985, 32790, 74, 32995, 32771, 32772, 32939, 32997, 32999, 75, 32985, 32790, 33001, 32797, 33003, 32790, 76, 32985, 33004, 32776, 32782, 33006, 32790, 77, 32985, 32993, 32782, 33006, 32790, 78, 32985, 32991, 33008, 32782, 33006, 32790, 80, 33009, 33004, 32776, 33011, 33013, 32790, 81, 33009, 33004, 32776, 33014, 32932, 32790, 82, 32776, 32771, 32772, 32797, 33017, 32789, 83, 32976, 32977, 32776, 33019, 32772, 33020, 32782, 32817, 84, 32963, 32953, 32849, 32954, 86, 33022, 33017, 32976, 33014, 32932, 33024, 32776, 91, 33025, 32830, 33004, 32776, 32772, 33026, 92, 33025, 33028, 32777, 33030, 33031, 93, 33025, 33028, 32777, 33032, 32875, 32814, 33034, 90, 33036, 32789, 32776, 32960, 32920, 33004, 8, 33038, 101, 33041, 33043, 32837, 33044, 102, 33045, 32837, 33047, 103, 33048, 32837, 33044, 104, 32837, 32838, 33048, 105, 32837, 32838, 32896, 106, 32983, 32919, 32837, 33044, 107, 33049, 33051, 33053, 202, 32801, 32776, 32772, 32960, 203, 32775, 32776, 32772, 32960, 204, 33022, 33025, 32830, 33004, 32776, 205, 32801, 32776, 32772, 33054, 255, 33057, 33058, 33059, 0,  };
                                                                //   9791                1, 32769, 32771, 32772, 32773,     2, 32775, 32776,
                                                                //   9792            32777, 32778, 32780, 32781, 32782, 32783, 32784,     4,
                                                                //   9793            32785, 32776, 32777, 32772, 32780, 32787,     5, 32785,
                                                                //   9794            32789, 32776, 32782, 32790, 32792, 32793,     6, 32785,
                                                                //   9795            32795, 32796, 32781, 32797, 32798, 32800,     7, 32801,
                                                                //   9796            32776, 32777, 32778, 32780, 32787,     8, 32802, 32792,
                                                                //   9797            32804, 32776, 32777, 32805, 32806, 32808, 32809,     9,
                                                                //   9798            32811, 32813, 32814, 32776, 32815, 32782, 32817, 32818,
                                                                //   9799            32819,    10, 32802, 32792, 32804, 32776, 32777, 32822,
                                                                //   9800            32806, 32808, 32809,    11, 32775, 32776, 32823, 32825,
                                                                //   9801            32826, 32813, 32777, 32772, 32780, 32781,    12, 32827,
                                                                //   9802            32825, 32826, 32813, 32777, 32829, 32830, 32832,    13,
                                                                //   9803            32769, 32834, 32827, 32825, 32826, 32813, 32771, 32835,
                                                                //   9804               14, 32837, 32838, 32839,    15, 32840, 32839,    16,
                                                                //   9805            32801, 32776, 32777, 32772, 32780, 32787,    17, 32801,
                                                                //   9806            32776, 32842, 32772, 32843, 32806, 32792, 32845,    19,
                                                                //   9807            32847, 32848, 32849, 32850,    20, 32813, 32852, 32853,
                                                                //   9808            32845, 32854, 32834, 32856, 32776,    21, 32813, 32852,
                                                                //   9809            32857, 32845, 32854, 32834, 32856, 32776,    22, 32858,
                                                                //   9810            32850, 32860, 32861, 32862,    23, 32863, 32865, 32866,
                                                                //   9811            32867,    24, 32869, 32866, 32870, 32867,    26, 32813,
                                                                //   9812            32771, 32772, 32797, 32872, 32873, 32875,    27, 32776,
                                                                //   9813            32771, 32772, 32797, 32877, 32789,    28, 32802, 32792,
                                                                //   9814            32804, 32776, 32777, 32819, 32879, 32880, 32881,    29,
                                                                //   9815            32882, 32860, 32883,    30, 32885, 32887, 32877, 32881,
                                                                //   9816               31, 32889, 32887, 32804, 32792, 32891, 32881,    32,
                                                                //   9817            32892, 32894,    33, 32892, 32865, 32866, 32894,    34,
                                                                //   9818            32837, 32838, 32896,    37, 32837, 32838, 32898,    38,
                                                                //   9819            32900, 32776, 32777, 32901, 32902, 32813, 32903, 32808,
                                                                //   9820            32904, 32902,    40, 32905, 32906,    41, 32908, 32910,
                                                                //   9821            32912, 32913, 32825, 32915, 32800,    44, 32917, 32919,
                                                                //   9822               45, 32847, 32848, 32849, 32919,    46, 32776, 32771,
                                                                //   9823            32787, 32920, 32921, 32817, 32923, 32925,    47, 32926,
                                                                //   9824            32778, 32927, 32825, 32826, 32813,    48, 32926, 32921,
                                                                //   9825            32928, 32929, 32873,    49, 32930, 32932, 32933, 32923,
                                                                //   9826            32792, 32935, 32776,    50, 32937, 32814, 32813, 32771,
                                                                //   9827            32887, 32939, 32940, 32814, 32776,    51, 32942, 32771,
                                                                //   9828            32772, 32773,    52, 32769, 32944, 32814, 32942, 32834,
                                                                //   9829            32946, 32825, 32826, 32813,    53, 32942, 32834, 32946,
                                                                //   9830            32825, 32826, 32813, 32771, 32835,    54, 32948, 32887,
                                                                //   9831            32827, 32769, 32881,    55, 32949, 32887, 32827, 32769,
                                                                //   9832            32881,    56, 32951, 32953, 32849, 32954,    57, 32956,
                                                                //   9833            32840,    58, 32957, 32959, 32906,    59, 32942, 32944,
                                                                //   9834            32814, 32769, 32834, 32827, 32825, 32826, 32813,    61,
                                                                //   9835            32801, 32776, 32777, 32778, 32780, 32960, 32782, 32783,
                                                                //   9836            32935,    62, 32860, 32961, 32865,    63, 32963, 32862,
                                                                //   9837            32965,    64, 32966, 32840,    65, 32966, 32860, 32866,
                                                                //   9838            32961,    66, 32968, 32970, 32932, 32972, 32776,    67,
                                                                //   9839            32974, 32976, 32977, 32776, 32978, 32979, 32981,    69,
                                                                //   9840            32966, 32953, 32849, 32954,    70, 32917, 32983, 32905,
                                                                //   9841               71, 32776, 32771, 32772, 32797, 32985, 32987,    72,
                                                                //   9842            32989, 32991, 32782, 32797, 32985, 32790,    73, 32989,
                                                                //   9843            32993, 32782, 32797, 32985, 32790,    74, 32995, 32771,
                                                                //   9844            32772, 32939, 32997, 32999,    75, 32985, 32790, 33001,
                                                                //   9845            32797, 33003, 32790,    76, 32985, 33004, 32776, 32782,
                                                                //   9846            33006, 32790,    77, 32985, 32993, 32782, 33006, 32790,
                                                                //   9847               78, 32985, 32991, 33008, 32782, 33006, 32790,    80,
                                                                //   9848            33009, 33004, 32776, 33011, 33013, 32790,    81, 33009,
                                                                //   9849            33004, 32776, 33014, 32932, 32790,    82, 32776, 32771,
                                                                //   9850            32772, 32797, 33017, 32789,    83, 32976, 32977, 32776,
                                                                //   9851            33019, 32772, 33020, 32782, 32817,    84, 32963, 32953,
                                                                //   9852            32849, 32954,    86, 33022, 33017, 32976, 33014, 32932,
                                                                //   9853            33024, 32776,    91, 33025, 32830, 33004, 32776, 32772,
                                                                //   9854            33026,    92, 33025, 33028, 32777, 33030, 33031,    93,
                                                                //   9855            33025, 33028, 32777, 33032, 32875, 32814, 33034,    90,
                                                                //   9856            33036, 32789, 32776, 32960, 32920, 33004,     8, 33038,
                                                                //   9857              101, 33041, 33043, 32837, 33044,   102, 33045, 32837,
                                                                //   9858            33047,   103, 33048, 32837, 33044,   104, 32837, 32838,
                                                                //   9859            33048,   105, 32837, 32838, 32896,   106, 32983, 32919,
                                                                //   9860            32837, 33044,   107, 33049, 33051, 33053,   202, 32801,
                                                                //   9861            32776, 32772, 32960,   203, 32775, 32776, 32772, 32960,
                                                                //   9862              204, 33022, 33025, 32830, 33004, 32776,   205, 32801,
                                                                //   9863            32776, 32772, 33054,   255, 33057, 33058, 33059,     0
                                                                //   9864           
                                                                //   9865  %CONSTINTEGERARRAY LETT(0: 292)=0,{%C
#line 9865 "regression-compile-tmp/nrimp10s-77.imp"
const int LETT[293] = { 0, 2022746123, 44040192, 1402470400, 1568571392, 1697528531, 1697415168, 420238040, 905969664, 1359896576, 1130779331, 1237843968, 1160558336, 1731100672, 1399848960, 1766144384, 1164308950, 666712647, 1342177280, 1227650627, 1697415168, 1561178752, 1271273803, 1738356700, 1603272704, 1134458063, 1567405928, 1493979864, 922726400, 1107296256, 1730967517, 1207959552, 1766699648, 487436928, 629062227, 1562902528, 1299185664, 1535005312, 1628328155, 1269086566, 1766078208, 1736749523, 1296871936, 554586331, 1269086464, 2046820352, 1596981248, 1229771595, 1704460288, 1775112832, 1301673600, 1736749523, 1296855273, 1400750080, 1294922468, 1697436389, 1265922760, 1134559232, 1498272384, 2015043993, 167772160, 1774051328, 1199430245, 1600126976, 1197751015, 1268252672, 1300119552, 1531869651, 1563951104, 679075840, 436849792, 175147392, 441084307, 473432064, 1232910720, 1697528531, 1697120256, 1739348423, 1699617382, 781313806, 477626368, 506462208, 537542811, 178301222, 1769857024, 1294917632, 1637219155, 1227653120, 1133924594, 1527635072, 35293827, 402653184, 477790208, 43515904, 645964160, 612018707, 472383488, 470393472, 309329920, 180488487, 644874240, 606610944, 309494415, 177209344, 1829606600, 2016068253, 671088640, 1571664203, 1677721600, 1702804051, 1562902528, 1169063936, 1568145408, 1165794432, 407003136, 136997405, 678428672, 2022746667, 611319808, 1605278675, 1765801984, 2022746539, 413138944, 1527644160, 309510297, 304087040, 43672219, 73443584, 405455513, 637534208, 139043485, 642377510, 60182770, 1803948772, 1165932360, 1496217984, 1501491940, 136865308, 441083929, 35168768, 125688297, 1131839488, 1192089439, 1744830464, 1160249344, 1270101611, 1134866944, 1199421523, 1495793664, 308380303, 39845888, 108644776, 1134034944, 1400295641, 1394606080, 2016086565, 309486726, 2020615818, 2015988106, 1330565852, 1127650020, 2021244928, 61248219, 1637875712, 1769472000, 1400191571, 1130707402, 2016536859, 44040192, 665606599, 1699617280, 1766105088, 1165932361, 1711276032, 2016487187, 641728512, 1400273483, 1126170624, 2023391397, 671088640, 2016085160, 2014963497, 309502592, 175146893, 206144128, 514490368, 108644875, 815792128, 69788828, 108644901, 509607936, 648128296, 1805431296, 209340035, 671088640, 606627749, 134217728, 177358756, 648562435, 438829056, 197531979, 1738356700, 1134458063, 1563197440, 1697413093, 1207959552, 623671269, 1234698240, 920125440, 1131708416, 1359925888, 1229771595, 1697503744, 1300125379, 1771569152, 648168605, 234881024, 665212125, 1308622848, 1829654739, 1164222464, 60111441, 1529779398, 1602533699, 1769881600, 1199430121, 1131839488, 623802329, 1805989852, 1199462731, 1201668096, 1300125379, 1744830464, 1199430211, 1400266752, 1739341824, 1829655747, 1164222464, 1133853265, 1529779398, 1037811712, 561854313, 1267728384, 1199421507, 1697415168, 1867420672, 1267643629, 1130673991, 1260388352, 1635596137, 1267728384, 1133813760, 1267643629, 1130674024, 258339139, 1476395008, 1501327576, 2016536832, 1400279759, 1267728384, 1197751015, 1241513984, 1965971328, 1738848256, 1568527581, 1764553444, 1771322187, 1704769920, 729193697, 1260388352, 35686667, 647504147, 407538816, 645572871, 167772160, 407487104, 410633088, 779765133, 308322304, 644359704, 470393510, 108636179, 405422080, 671630859, 637534208, 212436480, 1126472011, 1738289497, 1241513984, 640196608, 308936704, 436849283, 402653184,  };
                                                                //   9866          16_7890A80B,16_02A00000,16_53980000,16_5D7E8000,
                                                                //   9867          16_652E3AD3,16_652C8000,16_190C52D8,16_36000000,
                                                                //   9868          16_510E6000,16_436652C3,16_49C80000,16_452CB700,
                                                                //   9869          16_672E8000,16_53700000,16_69453980,16_4565F1D6,
                                                                //   9870          16_27BD3A47,16_50000000,16_492C7643,16_652C8000,
                                                                //   9871          16_5D0DB280,16_4BC6194B,16_679D37DC,16_5F900000,
                                                                //   9872          16_439E74CF,16_5D6CB768,16_590C52D8,16_36FFB000,
                                                                //   9873          16_42000000,16_672C77DD,16_48000000,16_694DB280,
                                                                //   9874          16_1D0DB280,16_257EBA53,16_5D280000,16_4D700000,
                                                                //   9875          16_5B7E5280,16_610E50DB,16_4BA4B966,16_69443700,
                                                                //   9876          16_6784B1D3,16_4D4CB200,16_210E50DB,16_4BA4B900,
                                                                //   9877          16_7A000000,16_5F300000,16_494CD34B,16_65980000,
                                                                //   9878          16_69CE1280,16_4D95F680,16_6784B1D3,16_4D4C70E9,
                                                                //   9879          16_537DC000,16_4D2EF2E4,16_652CD2E5,16_4B7472C8,
                                                                //   9880          16_43A00000,16_594DD280,16_781B2199,16_0A000000,
                                                                //   9881          16_69BDE000,16_477DDA65,16_5F600000,16_47643AE7,
                                                                //   9882          16_4B980000,16_4D7E4000,16_5B4E79D3,16_5D380000,
                                                                //   9883          16_2879E000,16_1A09CC80,16_0A708980,16_1A4A6993,
                                                                //   9884          16_1C380000,16_497CB980,16_652E3AD3,16_65280000,
                                                                //   9885          16_67AC59C7,16_654E1A66,16_2E91E70E,16_1C780000,
                                                                //   9886          16_1E300000,16_200A409B,16_0AA0A926,16_697DE000,
                                                                //   9887          16_4D2EE000,16_6195FB53,16_492C8000,16_439650F2,
                                                                //   9888          16_5B0DDC80,16_021A8A83,16_18000000,16_1C7A8000,
                                                                //   9889          16_02980000,16_2680A180,16_247AAA13,16_1C280000,
                                                                //   9890          16_1C09A280,16_12700000,16_0AC20927,16_26700000,
                                                                //   9891          16_24282600,16_1272828F,16_0A900000,16_6D0D94C8,
                                                                //   9892          16_782AC29D,16_28000000,16_5DADB14B,16_64000000,
                                                                //   9893          16_657EBA53,16_5D280000,16_45AE8000,16_5D780000,
                                                                //   9894          16_457C9C80,16_18426000,16_082A6A1D,16_28700000,
                                                                //   9895          16_7890AA2B,16_24700000,16_5FAE9BD3,16_69400000,
                                                                //   9896          16_7890A9AB,16_18A00000,16_5B0E0000,16_1272C099,
                                                                //   9897          16_12200000,16_029A629B,16_0460A900,16_182AC299,
                                                                //   9898          16_26000000,16_0849A29D,16_2649E726,16_039650F2,
                                                                //   9899          16_6B8612E4,16_457EB748,16_592E7980,16_597EF2E4,
                                                                //   9900          16_0828661C,16_1A4A6819,16_0218A200,16_077DD9E9,
                                                                //   9901          16_43768000,16_470DD75F,16_68000000,16_45280000,
                                                                //   9902          16_4BB4366B,16_43A4B200,16_477DB853,16_59280000,
                                                                //   9903          16_1261828F,16_02600000,16_0679C9A8,16_43980000,
                                                                //   9904          16_5376D0D9,16_53200000,16_782B0A25,16_12726486,
                                                                //   9905          16_7870268A,16_7829898A,16_4F4ED2DC,16_433692E4,
                                                                //   9906          16_7879C000,16_03A692DB,16_61A00000,16_69780000,
                                                                //   9907          16_53753A53,16_436539CA,16_7831E91B,16_02A00000,
                                                                //   9908          16_27AC59C7,16_654E1A00,16_6944A000,16_457EB749,
                                                                //   9909          16_66000000,16_78312713,16_26400000,16_53767A4B,
                                                                //   9910          16_43200000,16_789A80A5,16_28000000,16_782B04A8,
                                                                //   9911          16_7819E729,16_1272A280,16_0A70878D,16_0C498280,
                                                                //   9912          16_1EAA8000,16_0679CA0B,16_30A00000,16_0428E49C,
                                                                //   9913          16_0679CA25,16_1E600000,16_26A1A728,16_6B9CB200,
                                                                //   9914          16_0C7A4683,16_28000000,16_242867A5,16_08000000,
                                                                //   9915          16_0A9247A4,16_26A84703,16_1A280000,16_0BC6194B,
                                                                //   9916          16_679D37DC,16_439E74CF,16_5D2C8000,16_652C77E5,
                                                                //   9917          16_48000000,16_252C77E5,16_49980000,16_36D80000,
                                                                //   9918          16_43748000,16_510ED280,16_494CD34B,16_652DDA00,
                                                                //   9919          16_4D7E56C3,16_69980000,16_26A2449D,16_0E000000,
                                                                //   9920          16_27A654DD,16_4E000000,16_6D0E50D3,16_4564A000,
                                                                //   9921          16_03953A51,16_5B2E94C6,16_5F84B943,16_697E4000,
                                                                //   9922          16_477DD9E9,16_43768000,16_252E77D9,16_6BA537DC,
                                                                //   9923          16_477E594B,16_47A00000,16_4D7E56C3,16_68000000,
                                                                //   9924          16_477DDA43,16_53766000,16_67AC4000,16_6D0E54C3,
                                                                //   9925          16_4564A000,16_43953A51,16_5B2E94C6,16_3DDBC000,
                                                                //   9926          16_217D3769,16_4B900000,16_477DB843,16_652C8000,
                                                                //   9927          16_6F4E9400,16_4B8EB4ED,16_4364B747,16_4B200000,
                                                                //   9928          16_617D3769,16_4B900000,16_4394A000,16_4B8EB4ED,
                                                                //   9929          16_4364B768,16_0F65F143,16_58000000,16_597C70D8,
                                                                //   9930          16_7831E900,16_537692CF,16_4B900000,16_47643AE7,
                                                                //   9931          16_4A000000,16_752E5780,16_67A4B800,16_5D7DD4DD,
                                                                //   9932          16_692CF2E4,16_69943B4B,16_659CB980,16_2B769CE1,
                                                                //   9933          16_4B200000,16_0220890B,16_26982113,16_184A8C80,
                                                                //   9934          16_267AA907,16_0A000000,16_1849C280,16_1879C380,
                                                                //   9935          16_2E7A458D,16_1260A000,16_26682618,16_1C09A2A6,
                                                                //   9936          16_0679A813,16_182A4000,16_2808460B,16_26000000,
                                                                //   9937          16_0CA98600,16_4324994B,16_679C3159,16_4A000000,
                                                                //   9938          16_2628A000,16_126A0000,16_1A09CA83,16_18000000
                                                                //   9939          
                                                                //   9940  %INTEGER I,J,K,M,Q,S
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int K;
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int M;
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
#line 9940 "regression-compile-tmp/nrimp10s-77.imp"
int S;
                                                                //   9941  %STRING(70)OMESS
#line 9941 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(70)*/ OMESS;
                                                                //   9942        OMESS=" "
#line 9942 "regression-compile-tmp/nrimp10s-77.imp"
OMESS = _imp_str_literal(" ");
                                                                //   9943        %CYCLE I=1,1,WORDMAX-1
#line 9943 "regression-compile-tmp/nrimp10s-77.imp"
I = 0;
if ((((583)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 583");
L_095a:;
if (I == 583) goto L_095b;
I += 1;
                                                                //   9944           ->FOUND %IF N=WORD(I)
#line 9944 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) != (WORD[I]))) goto L_095d;
#line 9944 "regression-compile-tmp/nrimp10s-77.imp"
goto U_105b;
#line 9944 "regression-compile-tmp/nrimp10s-77.imp"
L_095d:;
                                                                //   9945        %REPEAT
#line 9945 "regression-compile-tmp/nrimp10s-77.imp"
goto L_095a;
#line 9945 "regression-compile-tmp/nrimp10s-77.imp"
L_095b:;
                                                                //   9946        I=DEFAULT
#line 9946 "regression-compile-tmp/nrimp10s-77.imp"
I = 580;
                                                                //   9947  FOUND:
#line 9947 "regression-compile-tmp/nrimp10s-77.imp"
U_105b:;
                                                                //   9948        J=1
#line 9948 "regression-compile-tmp/nrimp10s-77.imp"
J = 1;
                                                                //   9949        %CYCLE
#line 9949 "regression-compile-tmp/nrimp10s-77.imp"
L_095e:;
                                                                //   9950           K=WORD(I+J)
#line 9950 "regression-compile-tmp/nrimp10s-77.imp"
K = WORD[(((int)(I)) + (J))];
                                                                //   9951           %IF K&16_8000=0 %THEN %EXIT
#line 9951 "regression-compile-tmp/nrimp10s-77.imp"
if (((((K) & (32768))) != (0))) goto L_0961;
#line 9951 "regression-compile-tmp/nrimp10s-77.imp"
goto L_095f;
#line 9951 "regression-compile-tmp/nrimp10s-77.imp"
L_0961:;
                                                                //   9952           K=K!!16_8000
#line 9952 "regression-compile-tmp/nrimp10s-77.imp"
K = ((K) ^ (32768));
                                                                //   9953           OMESS=OMESS." " %UNLESS J=1
#line 9953 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (1))) goto L_0962;
#line 9953 "regression-compile-tmp/nrimp10s-77.imp"
OMESS = _imp_join((_imp_string)OMESS,(_imp_string)_imp_str_literal(" "));
#line 9953 "regression-compile-tmp/nrimp10s-77.imp"
L_0962:;
                                                                //   9954           {%UNTIL M&1=0} %CYCLE
#line 9954 "regression-compile-tmp/nrimp10s-77.imp"
L_0963:;
                                                                //   9955              M=LETT(K); S=25
#line 9955 "regression-compile-tmp/nrimp10s-77.imp"
M = LETT[K];
#line 9955 "regression-compile-tmp/nrimp10s-77.imp"
S = 25;
                                                                //   9956              {%UNTIL S<0} %CYCLE
#line 9956 "regression-compile-tmp/nrimp10s-77.imp"
L_0966:;
                                                                //   9957                 Q=M>>S&63; 
#line 9957 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)((((unsigned int)(M)) >> (S)))) & (63));
                                                                //   9958                 %IF Q\=0 %THEN OMESS=OMESS.TOSTRING(OUTTT(Q))
#line 9958 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) == (0))) goto L_0969;
#line 9958 "regression-compile-tmp/nrimp10s-77.imp"
OMESS = _imp_join((_imp_string)OMESS,(_imp_string)_imp_TOSTRING(OUTTT[Q]));
#line 9958 "regression-compile-tmp/nrimp10s-77.imp"
L_0969:;
                                                                //   9959                 S=S-6
#line 9959 "regression-compile-tmp/nrimp10s-77.imp"
S = (((int)(S)) - (6));
                                                                //   9960              %REPEAT %UNTIL S<0
#line 9960 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) < (0))) goto L_0967;
#line 9960 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0966;
#line 9960 "regression-compile-tmp/nrimp10s-77.imp"
L_0967:;
                                                                //   9961              K=K+1
#line 9961 "regression-compile-tmp/nrimp10s-77.imp"
K = (((int)(K)) + (1));
                                                                //   9962           %REPEAT %UNTIL M&1=0
#line 9962 "regression-compile-tmp/nrimp10s-77.imp"
if (((((M) & (1))) == (0))) goto L_0964;
#line 9962 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0963;
#line 9962 "regression-compile-tmp/nrimp10s-77.imp"
L_0964:;
                                                                //   9963           J=J+1
#line 9963 "regression-compile-tmp/nrimp10s-77.imp"
J = (((int)(J)) + (1));
                                                                //   9964        %REPEAT
#line 9964 "regression-compile-tmp/nrimp10s-77.imp"
goto L_095e;
#line 9964 "regression-compile-tmp/nrimp10s-77.imp"
L_095f:;
                                                                //   9965        %RESULT=OMESS
#line 9965 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return OMESS;
                                                                //   9966  %END
#line 9966 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block MESSAGE at level 3
                                                                //   9967  %STRING(16)%FN SWRITE(%INTEGER VALUE, PLACES)
#line 9967 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(16)*/ SWRITE( int VALUE, int PLACES )
#line 9967 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9968    %result = ITOS(VALUE,PLACES)  {ITOS available in new Imp2021 but not earlier Imp77}
#line 9968 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return _imp_ITOS(VALUE, PLACES);
                                                                //   9969    {This block was NOT guarded by conditional compilation test "%IF USE IMP=YES %THEN %START" ...}
                                                                //   9970  !%STRING (16) S
                                                                //   9971  !%INTEGER D0, D1, D2, D3, L
                                                                //   9972  !      PLACES=PLACES&15
                                                                //   9973  !      *LSS_VALUE;  *CDEC_0
                                                                //   9974  !      *LD_S;  *INCA_1;  *STD_%TOS
                                                                //   9975  !      *CPB_%B;                          ! SET CC=0
                                                                //   9976  !      *SUPK_%L=15,0,32;                 ! UNPACK & SPACE FILL
                                                                //   9977  !      *STD_D2;  *JCC_8,<WASZERO>
                                                                //   9978  !      *LD_%TOS;  *STD_D0;               ! FOR SIGN INSERTION
                                                                //   9979  !      *LD_%TOS
                                                                //   9980  !      *MVL_%L=15,63,0;                  ! FORCE ISO ZONE CODES
                                                                //   9981  !      %IF VALUE<0 %THEN BYTEINTEGER(D1)='-'
                                                                //   9982  !      L=D3-D1
                                                                //   9983  !OUT:  %IF PLACES>=L %THEN L=PLACES+1
                                                                //   9984  !      D3=D3-L-1
                                                                //   9985  !      BYTEINTEGER(D3)=L
                                                                //   9986  !      %RESULT=STRING(D3)
                                                                //   9987  !WASZERO:
                                                                //   9988  !      BYTEINTEGER(D3-1)='0'
                                                                //   9989  !      L=2;  ->OUT
                                                                //   9990  %END
#line 9990 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block SWRITE at level 3
                                                                //   9991  %ROUTINE FAULT2(%INTEGER N, DATA, IDENT)
#line 9991 "regression-compile-tmp/nrimp10s-77.imp"
void FAULT2( int N, int DATA, int IDENT )
#line 9991 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //   9992  !***********************************************************************
                                                                //   9993  !*    SETS UP AN ERROR MESSAGE AND SHOVES IT OUT ONTO THE LISTING      *
                                                                //   9994  !*    AN ALSO OPTIONALLY TO THE TERMINAL                               *
                                                                //   9995  !***********************************************************************
                                                                //   9996  %INTEGER I, J, T
#line 9996 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 9996 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 9996 "regression-compile-tmp/nrimp10s-77.imp"
int T;
                                                                //   9997  %STRING(255)MESS1,MESS2,WK1,WK2
#line 9997 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ MESS1;
#line 9997 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ MESS2;
#line 9997 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ WK1;
#line 9997 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ WK2;
                                                                //   9998  !*DELSTART
                                                                //   9999        %MONITOR %IF FAULTY<=1 %AND (SMAP#0 %OR DCOMP#0)
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
if (((FAULTY) > (1))) goto L_096a;
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
if (((SMAP) != (0))) goto L_0960;
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
if (((DCOMP) == (0))) goto L_096a;
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
L_0960:;
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 9999 "regression-compile-tmp/nrimp10s-77.imp"
L_096a:;
                                                                //  10000  !*DELEND
                                                                //  10001        MESS1=""; MESS2=""
#line 10001 "regression-compile-tmp/nrimp10s-77.imp"
MESS1 = _imp_str_literal("");
#line 10001 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_str_literal("");
                                                                //  10002        FAULTY=FAULTY+1
#line 10002 "regression-compile-tmp/nrimp10s-77.imp"
FAULTY = (((int)(FAULTY)) + (1));
                                                                //  10003        %IF N=100 %THEN %START;           ! SYNTAX FAULTS ARE SPECIAL
#line 10003 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) != (100))) goto L_096b;
                                                                //  10004           MESS1=snl."*    Failed to analyse line ".SWRITE(LINE,2).snl."     "
#line 10004 "regression-compile-tmp/nrimp10s-77.imp"
MESS1 = _imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_SNL(),(_imp_string)_imp_str_literal("*    Failed to analyse line ")),(_imp_string)SWRITE(LINE, 2)),(_imp_string)_imp_SNL()),(_imp_string)_imp_str_literal("     "));
                                                                //  10005           %IF LINE#OLDLINE %THEN %START
#line 10005 "regression-compile-tmp/nrimp10s-77.imp"
if (((LINE) == (OLDLINE))) goto L_096c;
                                                                //  10006            MESS1=MESS1."Text mode failure - erroneos source line not available".snl
#line 10006 "regression-compile-tmp/nrimp10s-77.imp"
MESS1 = _imp_join((_imp_string)_imp_join((_imp_string)MESS1,(_imp_string)_imp_str_literal("Text mode failure - erroneos source line not available")),(_imp_string)_imp_SNL());
                                                                //  10007           %FINISH %ELSE %START
#line 10007 "regression-compile-tmp/nrimp10s-77.imp"
goto L_096d;
#line 10007 "regression-compile-tmp/nrimp10s-77.imp"
L_096c:;
                                                                //  10008              J=0;  S=0;  T=0
#line 10008 "regression-compile-tmp/nrimp10s-77.imp"
J = 0;
#line 10008 "regression-compile-tmp/nrimp10s-77.imp"
S = 0;
#line 10008 "regression-compile-tmp/nrimp10s-77.imp"
T = 0;
                                                                //  10009              {%UNTIL (J=';' %AND Q>QMAX) %OR Q=LENGTH} %CYCLE
#line 10009 "regression-compile-tmp/nrimp10s-77.imp"
L_096e:;
                                                                //  10010                 I=J;  J=BYTEINTEGER(DATA+Q);! DATA HAS ADDR(CC(0))
#line 10010 "regression-compile-tmp/nrimp10s-77.imp"
I = J;
#line 10010 "regression-compile-tmp/nrimp10s-77.imp"
J = *_imp_BYTEINTEGER((((int)(DATA)) + (Q)));
                                                                //  10011                 %IF J>128 %AND I<128 %THEN MESS2=MESS2." %" %AND T=T+2
#line 10011 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) <= (128))) goto L_0971;
#line 10011 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) >= (128))) goto L_0971;
#line 10011 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)MESS2,(_imp_string)_imp_str_literal(" %"));
#line 10011 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (2));
#line 10011 "regression-compile-tmp/nrimp10s-77.imp"
L_0971:;
                                                                //  10012                 %IF I>128 %AND J<128 %THEN MESS2=MESS2." " %AND T=T+1
#line 10012 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) <= (128))) goto L_0972;
#line 10012 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) >= (128))) goto L_0972;
#line 10012 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)MESS2,(_imp_string)_imp_str_literal(" "));
#line 10012 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
#line 10012 "regression-compile-tmp/nrimp10s-77.imp"
L_0972:;
                                                                //  10013                 MESS2=MESS2.TOSTRING(J)
#line 10013 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)MESS2,(_imp_string)_imp_TOSTRING(J));
                                                                //  10014                 T=T+1
#line 10014 "regression-compile-tmp/nrimp10s-77.imp"
T = (((int)(T)) + (1));
                                                                //  10015                 %IF Q=QMAX %THEN S=T
#line 10015 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) != (QMAX))) goto L_0973;
#line 10015 "regression-compile-tmp/nrimp10s-77.imp"
S = T;
#line 10015 "regression-compile-tmp/nrimp10s-77.imp"
L_0973:;
                                                                //  10016                 Q=Q+1
#line 10016 "regression-compile-tmp/nrimp10s-77.imp"
Q = (((int)(Q)) + (1));
                                                                //  10017                 %EXIT %IF T>=250
#line 10017 "regression-compile-tmp/nrimp10s-77.imp"
if (((T) < (250))) goto L_0974;
#line 10017 "regression-compile-tmp/nrimp10s-77.imp"
goto L_096f;
#line 10017 "regression-compile-tmp/nrimp10s-77.imp"
L_0974:;
                                                                //  10018              %REPEAT %UNTIL (J=';' %AND Q>QMAX) %OR Q=LENGTH
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (59))) goto L_0970;
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) > (QMAX))) goto L_096f;
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
L_0970:;
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) == (LENGTH))) goto L_096f;
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
goto L_096e;
#line 10018 "regression-compile-tmp/nrimp10s-77.imp"
L_096f:;
                                                                //  10019              %IF Q=QMAX %THEN S=T
#line 10019 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) != (QMAX))) goto L_0975;
#line 10019 "regression-compile-tmp/nrimp10s-77.imp"
S = T;
#line 10019 "regression-compile-tmp/nrimp10s-77.imp"
L_0975:;
                                                                //  10020           %FINISH
#line 10020 "regression-compile-tmp/nrimp10s-77.imp"
L_096d:;
                                                                //  10021        %FINISH %ELSE %START
#line 10021 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0976;
#line 10021 "regression-compile-tmp/nrimp10s-77.imp"
L_096b:;
                                                                //  10022           MESS1="
#line 10022 "regression-compile-tmp/nrimp10s-77.imp"
MESS1 = _imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("\n*"),(_imp_string)SWRITE(LINE, 4)),(_imp_string)_imp_str_literal("   "));
                                                                //  10023  *".SWRITE(LINE, 4)."   "
                                                                //  10024           PARMOPT=1
#line 10024 "regression-compile-tmp/nrimp10s-77.imp"
PARMOPT = 1;
                                                                //  10025           INHCODE=1 %IF PARMLET=0;    ! STOP GENERATING CODE
#line 10025 "regression-compile-tmp/nrimp10s-77.imp"
if (((PARMLET) != (0))) goto L_0977;
#line 10025 "regression-compile-tmp/nrimp10s-77.imp"
INHCODE = 1;
#line 10025 "regression-compile-tmp/nrimp10s-77.imp"
L_0977:;
                                                                //  10026           MESS1=MESS1."FAULT".SWRITE(N,2)
#line 10026 "regression-compile-tmp/nrimp10s-77.imp"
MESS1 = _imp_join((_imp_string)_imp_join((_imp_string)MESS1,(_imp_string)_imp_str_literal("FAULT")),(_imp_string)SWRITE(N, 2));
                                                                //  10027           MESS2=MESSAGE(N)
#line 10027 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = MESSAGE(N);
                                                                //  10028           %IF MESS2->WK1.("##").WK2 %THEN MESS2=WK1.SWRITE(IDENT,1).WK2
#line 10028 "regression-compile-tmp/nrimp10s-77.imp"
if (!(_imp_resolve(MESS2, &WK1, _imp_str_literal("##"), &WK2))) goto L_0978;
#line 10028 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)_imp_join((_imp_string)WK1,(_imp_string)SWRITE(IDENT, 1)),(_imp_string)WK2);
#line 10028 "regression-compile-tmp/nrimp10s-77.imp"
L_0978:;
                                                                //  10029           %IF MESS2->WK1.("#").WK2 %THEN MESS2=WK1.SWRITE(DATA,1).WK2
#line 10029 "regression-compile-tmp/nrimp10s-77.imp"
if (!(_imp_resolve(MESS2, &WK1, _imp_str_literal("#"), &WK2))) goto L_0979;
#line 10029 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)_imp_join((_imp_string)WK1,(_imp_string)SWRITE(DATA, 1)),(_imp_string)WK2);
#line 10029 "regression-compile-tmp/nrimp10s-77.imp"
L_0979:;
                                                                //  10030           %IF MESS2->WK1.("&&").WK2 %THEN MESS2=WK1.PRINTNAME(DATA).WK2
#line 10030 "regression-compile-tmp/nrimp10s-77.imp"
if (!(_imp_resolve(MESS2, &WK1, _imp_str_literal("&&"), &WK2))) goto L_097a;
#line 10030 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)_imp_join((_imp_string)WK1,(_imp_string)PRINTNAME(DATA)),(_imp_string)WK2);
#line 10030 "regression-compile-tmp/nrimp10s-77.imp"
L_097a:;
                                                                //  10031           %IF MESS2->WK1.("&").WK2 %THEN MESS2=WK1.PRINTNAME(IDENT).WK2
#line 10031 "regression-compile-tmp/nrimp10s-77.imp"
if (!(_imp_resolve(MESS2, &WK1, _imp_str_literal("&"), &WK2))) goto L_097b;
#line 10031 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)_imp_join((_imp_string)WK1,(_imp_string)PRINTNAME(IDENT)),(_imp_string)WK2);
#line 10031 "regression-compile-tmp/nrimp10s-77.imp"
L_097b:;
                                                                //  10032           %IF N>100 %THEN MESS2=MESS2." Disaster"
#line 10032 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) <= (100))) goto L_097c;
#line 10032 "regression-compile-tmp/nrimp10s-77.imp"
MESS2 = _imp_join((_imp_string)MESS2,(_imp_string)_imp_str_literal(" Disaster"));
#line 10032 "regression-compile-tmp/nrimp10s-77.imp"
L_097c:;
                                                                //  10033        %FINISH
#line 10033 "regression-compile-tmp/nrimp10s-77.imp"
L_0976:;
                                                                //  10034        %CYCLE I=2,-1,1
#line 10034 "regression-compile-tmp/nrimp10s-77.imp"
I = 3;
if ((((1)-(2)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 2, (-1), 1");
L_097d:;
if (I == 1) goto L_097e;
I += (-1);
                                                                //  10035           SELECT OUTPUT(TTOPUT) %IF I=1
#line 10035 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_0980;
#line 10035 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SELECTOUTPUT(TTOPUT);
#line 10035 "regression-compile-tmp/nrimp10s-77.imp"
L_0980:;
                                                                //  10036           PRINTSTRING(MESS1)
#line 10036 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(MESS1);
                                                                //  10037           PRINTSTRING(MESS2) %IF MESS2#""
#line 10037 "regression-compile-tmp/nrimp10s-77.imp"
if ((_imp_strcmp(MESS2, _imp_str_literal("")) == 0)) goto L_0981;
#line 10037 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(MESS2);
#line 10037 "regression-compile-tmp/nrimp10s-77.imp"
L_0981:;
                                                                //  10038           %IF N=100 %AND S<115 %THEN %START
#line 10038 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) != (100))) goto L_0982;
#line 10038 "regression-compile-tmp/nrimp10s-77.imp"
if (((S) >= (115))) goto L_0982;
                                                                //  10039              NEWLINE; SPACES(S+4); PRINTSYMBOL('!')
#line 10039 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
#line 10039 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES((((int)(S)) + (4)));
#line 10039 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(33);
                                                                //  10040           %FINISH
#line 10040 "regression-compile-tmp/nrimp10s-77.imp"
L_0982:;
                                                                //  10041           NEWLINE
#line 10041 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //  10042           SELECT OUTPUT(82) %IF I=1
#line 10042 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (1))) goto L_0983;
#line 10042 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SELECTOUTPUT(82);
#line 10042 "regression-compile-tmp/nrimp10s-77.imp"
L_0983:;
                                                                //  10043           %EXIT %IF TTOPUT<=0
#line 10043 "regression-compile-tmp/nrimp10s-77.imp"
if (((TTOPUT) > (0))) goto L_0984;
#line 10043 "regression-compile-tmp/nrimp10s-77.imp"
goto L_097e;
#line 10043 "regression-compile-tmp/nrimp10s-77.imp"
L_0984:;
                                                                //  10044        %REPEAT
#line 10044 "regression-compile-tmp/nrimp10s-77.imp"
goto L_097d;
#line 10044 "regression-compile-tmp/nrimp10s-77.imp"
L_097e:;
                                                                //  10045        %IF N>100 %THEN %MONITOR %AND %STOP
#line 10045 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) <= (100))) goto L_0985;
#line 10045 "regression-compile-tmp/nrimp10s-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 10045 "regression-compile-tmp/nrimp10s-77.imp"
exit(0);
#line 10045 "regression-compile-tmp/nrimp10s-77.imp"
L_0985:;
                                                                //  10046  %END
#line 10046 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT2 at level 3
                                                                //  10047  %ROUTINE FAULT(%INTEGER N,FNAME)
#line 10047 "regression-compile-tmp/nrimp10s-77.imp"
void FAULT( int N, int FNAME )
#line 10047 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10048        FAULT2(N,FNAME,FNAME)
#line 10048 "regression-compile-tmp/nrimp10s-77.imp"
FAULT2(N, FNAME, FNAME);
                                                                //  10049  %END
#line 10049 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT at level 3
                                                                //  10050  %ROUTINE WARN(%INTEGER N,V)
#line 10050 "regression-compile-tmp/nrimp10s-77.imp"
void WARN( int N, int V )
#line 10050 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10051  %STRING(30) T; %STRING(120) S
#line 10051 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(30)*/ T;
#line 10051 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(120)*/ S;
                                                                //  10052        S=MESSAGE(N+200)
#line 10052 "regression-compile-tmp/nrimp10s-77.imp"
S = MESSAGE((((int)(N)) + (200)));
                                                                //  10053        %IF S->S.("&").T %THEN S=S.PRINTNAME(V).T
#line 10053 "regression-compile-tmp/nrimp10s-77.imp"
if (!(_imp_resolve(S, &S, _imp_str_literal("&"), &T))) goto L_0986;
#line 10053 "regression-compile-tmp/nrimp10s-77.imp"
S = _imp_join((_imp_string)_imp_join((_imp_string)S,(_imp_string)PRINTNAME(V)),(_imp_string)T);
#line 10053 "regression-compile-tmp/nrimp10s-77.imp"
L_0986:;
                                                                //  10054        PRINTSTRING("
#line 10054 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("\n?  Warning :- "),(_imp_string)S),(_imp_string)_imp_str_literal(" at line No")),(_imp_string)SWRITE(LINE, 1)));
                                                                //  10055  ?  Warning :- ".S." at line No".SWRITE(LINE,1))
                                                                //  10056        NEWLINE
#line 10056 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //  10057  %END
#line 10057 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block WARN at level 3
                                                                //  10058                                          ! THE NEXT 4 ROUTINES CAN BE 
                                                                //  10059                                          !MACROISED USING MVC
                                                                //  10060  !
                                                                //  10061  %ROUTINE TOAR2(%INTEGER PTR,VALUE)
#line 10061 "regression-compile-tmp/nrimp10s-77.imp"
void TOAR2( int PTR, int VALUE )
#line 10061 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10062  !     %IF USE IMP=YES %THEN %START
                                                                //  10063           A(PTR+1)<-VALUE
#line 10063 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(PTR)) + (1))] = VALUE;
                                                                //  10064           A(PTR)<-VALUE>>8
#line 10064 "regression-compile-tmp/nrimp10s-77.imp"
A[PTR] = (int)((((unsigned int)(VALUE)) >> (8)));
                                                                //  10065  !     %FINISH %ELSE %START
                                                                //  10066  !    *LSS_VALUE
                                                                //  10067  !       *LDTB_16_58000002
                                                                //  10068  !       *LDA_A+4
                                                                //  10069  !       *INCA_PTR
                                                                //  10070  !       *ST_(%DR)
                                                                //  10071  !     %FINISH
                                                                //  10072  %END
#line 10072 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TOAR2 at level 3
                                                                //  10073  %ROUTINE TOAR4(%INTEGER PTR, VALUE)
#line 10073 "regression-compile-tmp/nrimp10s-77.imp"
void TOAR4( int PTR, int VALUE )
#line 10073 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10074  %INTEGER I
#line 10074 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //  10075  !     %IF USE IMP=YES %THEN %START
                                                                //  10076           %CYCLE I=0,1,3
#line 10076 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((3)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 3");
L_0987:;
if (I == 3) goto L_0988;
I += 1;
                                                                //  10077              A(PTR+I)=BYTE INTEGER(ADDR(VALUE)+I)
#line 10077 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(PTR)) + (I))] = *_imp_BYTEINTEGER((((int)(_imp_ADDR(&VALUE))) + (I)));
                                                                //  10078           %REPEAT
#line 10078 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0987;
#line 10078 "regression-compile-tmp/nrimp10s-77.imp"
L_0988:;
                                                                //  10079  !     %FINISH %ELSE %START
                                                                //  10080  !       *LSS_VALUE
                                                                //  10081  !       *LDTB_16_58000004
                                                                //  10082  !       *LDA_A+4
                                                                //  10083  !       *INCA_PTR
                                                                //  10084  !       *ST_(%DR)
                                                                //  10085  !     %FINISH
                                                                //  10086  %END
#line 10086 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TOAR4 at level 3
                                                                //  10087  %ROUTINE TOAR8(%INTEGER PTR, %LONGREAL VALUE)
#line 10087 "regression-compile-tmp/nrimp10s-77.imp"
void TOAR8( int PTR, double VALUE )
#line 10087 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10088  %INTEGER I
#line 10088 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //  10089  !     %IF USE IMP=YES %THEN %START
                                                                //  10090           %CYCLE I=0,1,7
#line 10090 "regression-compile-tmp/nrimp10s-77.imp"
I = (-1);
if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7");
L_098a:;
if (I == 7) goto L_098b;
I += 1;
                                                                //  10091              A(PTR+I)=BYTE INTEGER(ADDR(VALUE)+I)
#line 10091 "regression-compile-tmp/nrimp10s-77.imp"
A[(((int)(PTR)) + (I))] = *_imp_BYTEINTEGER((((int)(_imp_ADDR(&VALUE))) + (I)));
                                                                //  10092           %REPEAT
#line 10092 "regression-compile-tmp/nrimp10s-77.imp"
goto L_098a;
#line 10092 "regression-compile-tmp/nrimp10s-77.imp"
L_098b:;
                                                                //  10093  !     %FINISH %ELSE %START
                                                                //  10094  !       *LSD_VALUE
                                                                //  10095  !       *LDTB_16_58000008
                                                                //  10096  !       *LDA_A+4
                                                                //  10097  !       *INCA_PTR
                                                                //  10098  !       *ST_(%DR)
                                                                //  10099  !     %FINISH
                                                                //  10100  %END
#line 10100 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TOAR8 at level 3
                                                                //  10101  %INTEGERFN FROMAR2(%INTEGER PTR)
#line 10101 "regression-compile-tmp/nrimp10s-77.imp"
int FROMAR2( int PTR )
#line 10101 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10102  !     %IF USE IMP=YES %THEN %start
                                                                //  10103           %RESULT=A(PTR)<<8!A(PTR+1)
#line 10103 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ((((A[PTR]) << (8))) | (A[(((int)(PTR)) + (1))]));
                                                                //  10104  !     %finish%ELSE%START
                                                                //  10105  !       *LDTB_16_58000002
                                                                //  10106  !       *LDA_A+4
                                                                //  10107  !       *INCA_PTR
                                                                //  10108  !       *LSS_(%DR)
                                                                //  10109  !       *EXIT_-64
                                                                //  10110  !     %FINISH
                                                                //  10111  %END
#line 10111 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FROMAR2 at level 3
                                                                //  10112  %INTEGERFN FROMAR4(%INTEGER PTR)
#line 10112 "regression-compile-tmp/nrimp10s-77.imp"
int FROMAR4( int PTR )
#line 10112 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10113  !     %IF USE IMP=YES %THEN %START
                                                                //  10114           %RESULT=A(PTR)<<24!A(PTR+1)<<16!A(PTR+2)<<8!A(PTR+3)
#line 10114 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ((((((((A[PTR]) << (24))) | (((A[(((int)(PTR)) + (1))]) << (16))))) | (((A[(((int)(PTR)) + (2))]) << (8))))) | (A[(((int)(PTR)) + (3))]));
                                                                //  10115  !     %FINISH %ELSE %START
                                                                //  10116  !       *LDTB_16_58000004
                                                                //  10117  !       *LDA_A+4
                                                                //  10118  !       *INCA_PTR
                                                                //  10119  !       *LSS_(%DR)
                                                                //  10120  !       *EXIT_-64
                                                                //  10121  !     %FINISH
                                                                //  10122  %END
#line 10122 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FROMAR4 at level 3
                                                                //  10123  %STRING(255)%FN PRINTNAME(%INTEGER N)
#line 10123 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ PRINTNAME( int N )
#line 10123 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10124  %INTEGER V, K
#line 10124 "regression-compile-tmp/nrimp10s-77.imp"
int V;
#line 10124 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //  10125  %STRING(255)S
#line 10125 "regression-compile-tmp/nrimp10s-77.imp"
_imp_string /*%string(255)*/ S;
                                                                //  10126        V=WORD(N)
#line 10126 "regression-compile-tmp/nrimp10s-77.imp"
V = WORD[N];
                                                                //  10127           K=BYTE INTEGER(DICTBASE+V)
#line 10127 "regression-compile-tmp/nrimp10s-77.imp"
K = *_imp_BYTEINTEGER((((int)(DICTBASE)) + (V)));
                                                                //  10128        %IF K=0 %THEN S="???" %ELSE S=STRING(DICTBASE+V)
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
if (((K) != (0))) goto L_098d;
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
S = _imp_str_literal("???");
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
goto L_098e;
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
L_098d:;
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
S = *_imp_STRING((((int)(DICTBASE)) + (V)));
#line 10128 "regression-compile-tmp/nrimp10s-77.imp"
L_098e:;
                                                                //  10129        %RESULT=S
#line 10129 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return S;
                                                                //  10130   %END
#line 10130 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block PRINTNAME at level 3
                                                                //  10131  !*DELSTART
                                                                //  10132  %ROUTINE PRHEX(%INTEGER VALUE, PLACES)
#line 10132 "regression-compile-tmp/nrimp10s-77.imp"
void PRHEX( int VALUE, int PLACES )
#line 10132 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10133  %CONSTBYTEINTEGERARRAY HEX(0:15)='0','1','2','3','4',
#line 10133 "regression-compile-tmp/nrimp10s-77.imp"
const unsigned char HEX[16] = { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70,  };
                                                                //  10134                 '5','6','7','8','9','A','B','C','D','E','F'
                                                                //  10135  %INTEGER I
#line 10135 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //  10136           %CYCLE I=PLACES<<2-4, -4, 0
#line 10136 "regression-compile-tmp/nrimp10s-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_098f:;
if (I == 0) goto L_0990;
I += (-4);
                                                                //  10137              PRINT SYMBOL(HEX(VALUE>>I&15))
#line 10137 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(HEX[(((int)((((unsigned int)(VALUE)) >> (I)))) & (15))]);
                                                                //  10138           %REPEAT
#line 10138 "regression-compile-tmp/nrimp10s-77.imp"
goto L_098f;
#line 10138 "regression-compile-tmp/nrimp10s-77.imp"
L_0990:;
                                                                //  10139  %END
#line 10139 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRHEX at level 3
                                                                //  10140           %ROUTINE PRINT LIST(%INTEGER HEAD)
#line 10140 "regression-compile-tmp/nrimp10s-77.imp"
void PRINTLIST( int HEAD )
#line 10140 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10141           %INTEGER I,J,K
#line 10141 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 10141 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 10141 "regression-compile-tmp/nrimp10s-77.imp"
int K;
                                                                //  10142           PRINTSTRING("
#line 10142 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nPRINT OF LIST "));
                                                                //  10143  PRINT OF LIST ")
                                                                //  10144           WRITE(HEAD,2)
#line 10144 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(HEAD, 2);
                                                                //  10145           NEWLINE
#line 10145 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //  10146           %WHILE HEAD#0 %CYCLE
#line 10146 "regression-compile-tmp/nrimp10s-77.imp"
L_0992:;
#line 10146 "regression-compile-tmp/nrimp10s-77.imp"
if (((HEAD) == (0))) goto L_0993;
                                                                //  10147              FROM123(HEAD,I,J,K)
#line 10147 "regression-compile-tmp/nrimp10s-77.imp"
FROM123(HEAD, &I, &J, &K);
                                                                //  10148              WRITE(HEAD,3)
#line 10148 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(HEAD, 3);
                                                                //  10149              SPACES(3)
#line 10149 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES(3);
                                                                //  10150              PRHEX(I,8)
#line 10150 "regression-compile-tmp/nrimp10s-77.imp"
PRHEX(I, 8);
                                                                //  10151              SPACES(3)
#line 10151 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES(3);
                                                                //  10152              PRHEX(J,8)
#line 10152 "regression-compile-tmp/nrimp10s-77.imp"
PRHEX(J, 8);
                                                                //  10153              SPACES(3)
#line 10153 "regression-compile-tmp/nrimp10s-77.imp"
_imp_SPACES(3);
                                                                //  10154              PRHEX(K,8)
#line 10154 "regression-compile-tmp/nrimp10s-77.imp"
PRHEX(K, 8);
                                                                //  10155              NEWLINE
#line 10155 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //  10156              MLINK(HEAD)
#line 10156 "regression-compile-tmp/nrimp10s-77.imp"
MLINK(&HEAD);
                                                                //  10157              HEAD=HEAD&16_FFFF;          ! EXTRA LINK IN TAGS LIST!!
#line 10157 "regression-compile-tmp/nrimp10s-77.imp"
HEAD = ((HEAD) & (65535));
                                                                //  10158           %REPEAT
#line 10158 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0992;
#line 10158 "regression-compile-tmp/nrimp10s-77.imp"
L_0993:;
                                                                //  10159           %END
#line 10159 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTLIST at level 3
                                                                //  10160  !
                                                                //  10161  %ROUTINE CHECK ASL
#line 10161 "regression-compile-tmp/nrimp10s-77.imp"
void CHECKASL( void )
#line 10161 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10162  !***********************************************************************
                                                                //  10163  !*    CHECK ASL AND PRINT NO OF FREE CELLS. DEBUGGING SERVICE ONLY     *
                                                                //  10164  !***********************************************************************
                                                                //  10165  %INTEGER N,Q
#line 10165 "regression-compile-tmp/nrimp10s-77.imp"
int N;
#line 10165 "regression-compile-tmp/nrimp10s-77.imp"
int Q;
                                                                //  10166        Q=ASL; N=0
#line 10166 "regression-compile-tmp/nrimp10s-77.imp"
Q = ASL;
#line 10166 "regression-compile-tmp/nrimp10s-77.imp"
N = 0;
                                                                //  10167        %WHILE Q#0 %CYCLE
#line 10167 "regression-compile-tmp/nrimp10s-77.imp"
L_0995:;
#line 10167 "regression-compile-tmp/nrimp10s-77.imp"
if (((Q) == (0))) goto L_0996;
                                                                //  10168           N=N+1
#line 10168 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(N)) + (1));
                                                                //  10169           Q=ASLIST(Q)_LINK
#line 10169 "regression-compile-tmp/nrimp10s-77.imp"
Q = ASLIST[Q].LINK;
                                                                //  10170        %REPEAT
#line 10170 "regression-compile-tmp/nrimp10s-77.imp"
goto L_0995;
#line 10170 "regression-compile-tmp/nrimp10s-77.imp"
L_0996:;
                                                                //  10171        NEWLINE
#line 10171 "regression-compile-tmp/nrimp10s-77.imp"
_imp_NEWLINE();
                                                                //  10172        PRINTSTRING("FREE CELLS AFTER LINE ")
#line 10172 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSTRING(_imp_str_literal("FREE CELLS AFTER LINE "));
                                                                //  10173        WRITE(LINE,3)
#line 10173 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(LINE, 3);
                                                                //  10174        PRINTSYMBOL('=')
#line 10174 "regression-compile-tmp/nrimp10s-77.imp"
_imp_PRINTSYMBOL(61);
                                                                //  10175        WRITE(N,3)
#line 10175 "regression-compile-tmp/nrimp10s-77.imp"
_imp_WRITE(N, 3);
                                                                //  10176  %END
#line 10176 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHECKASL at level 3
                                                                //  10177  !*DELEND
                                                                //  10178  %INTEGERFN MORE SPACE
#line 10178 "regression-compile-tmp/nrimp10s-77.imp"
int MORESPACE( void )
#line 10178 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10179  !***********************************************************************
                                                                //  10180  !*    FORMATS UP SOME MORE OF THE ASL                                  *
                                                                //  10181  !***********************************************************************
                                                                //  10182  %INTEGER I,N,CL,AMOUNT
#line 10182 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 10182 "regression-compile-tmp/nrimp10s-77.imp"
int N;
#line 10182 "regression-compile-tmp/nrimp10s-77.imp"
int CL;
#line 10182 "regression-compile-tmp/nrimp10s-77.imp"
int AMOUNT;
                                                                //  10183        N=ASL CUR BTM-1
#line 10183 "regression-compile-tmp/nrimp10s-77.imp"
N = (((int)(ASLCURBTM)) - (1));
                                                                //  10184        AMOUNT=(NNAMES+1)>>3;             ! EIGHTTH OF NNAMES
#line 10184 "regression-compile-tmp/nrimp10s-77.imp"
AMOUNT = (((((((int)(NNAMES)) + (1)))) >> (3)));
                                                                //  10185        I=ASL CUR BTM-((CONST PTR+8)>>2);! GAP BETWEEN CONSTS &ASL
#line 10185 "regression-compile-tmp/nrimp10s-77.imp"
I = ((ASLCURBTM) - ((int)((((((((int)(CONSTPTR)) + (8)))) >> (2))))));
                                                                //  10186        %IF I>>1<AMOUNT %THEN AMOUNT=I>>1 %AND ASL WARN=1;! HALF THE GAP MAX
#line 10186 "regression-compile-tmp/nrimp10s-77.imp"
if ((((int)((((unsigned int)(I)) >> (1)))) >= (AMOUNT))) goto L_0998;
#line 10186 "regression-compile-tmp/nrimp10s-77.imp"
AMOUNT = (int)((((unsigned int)(I)) >> (1)));
#line 10186 "regression-compile-tmp/nrimp10s-77.imp"
ASLWARN = 1;
#line 10186 "regression-compile-tmp/nrimp10s-77.imp"
L_0998:;
                                                                //  10187        %IF AMOUNT<20 %THEN AMOUNT=0
#line 10187 "regression-compile-tmp/nrimp10s-77.imp"
if (((AMOUNT) >= (20))) goto L_0999;
#line 10187 "regression-compile-tmp/nrimp10s-77.imp"
AMOUNT = 0;
#line 10187 "regression-compile-tmp/nrimp10s-77.imp"
L_0999:;
                                                                //  10188        ASL CUR BTM=ASL CUR BTM-AMOUNT
#line 10188 "regression-compile-tmp/nrimp10s-77.imp"
ASLCURBTM = (((int)(ASLCURBTM)) - (AMOUNT));
                                                                //  10189        %IF ASL CUR BTM<=1 %THEN ASL CUR BTM=1
#line 10189 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASLCURBTM) > (1))) goto L_099a;
#line 10189 "regression-compile-tmp/nrimp10s-77.imp"
ASLCURBTM = 1;
#line 10189 "regression-compile-tmp/nrimp10s-77.imp"
L_099a:;
                                                                //  10190        CL=4*ASL CUR BTM-8
#line 10190 "regression-compile-tmp/nrimp10s-77.imp"
CL = (((int)((((int)(4)) * (ASLCURBTM)))) - (8));
                                                                //  10191        %IF ASL CUR BTM>=N %OR CONST PTR>CL %THEN %START
#line 10191 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASLCURBTM) >= (N))) goto L_0997;
#line 10191 "regression-compile-tmp/nrimp10s-77.imp"
if (((CONSTPTR) <= (CL))) goto L_099b;
#line 10191 "regression-compile-tmp/nrimp10s-77.imp"
L_0997:;
                                                                //  10192           ASL CUR BTM=N+1;               ! AS YOU WERE
#line 10192 "regression-compile-tmp/nrimp10s-77.imp"
ASLCURBTM = (((int)(N)) + (1));
                                                                //  10193           %CYCLE I=12,-1,1
#line 10193 "regression-compile-tmp/nrimp10s-77.imp"
I = 13;
if ((((1)-(12)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 12, (-1), 1");
L_099c:;
if (I == 1) goto L_099d;
I += (-1);
                                                                //  10194              %IF DVHEADS(I)#0 %THEN CLEAR LIST(DVHEADS(I))
#line 10194 "regression-compile-tmp/nrimp10s-77.imp"
if (((DVHEADS[I]) == (0))) goto L_099f;
#line 10194 "regression-compile-tmp/nrimp10s-77.imp"
CLEARLIST(&DVHEADS[I]);
#line 10194 "regression-compile-tmp/nrimp10s-77.imp"
L_099f:;
                                                                //  10195           %REPEAT
#line 10195 "regression-compile-tmp/nrimp10s-77.imp"
goto L_099c;
#line 10195 "regression-compile-tmp/nrimp10s-77.imp"
L_099d:;
                                                                //  10196           %IF ASL#0 %THEN %RESULT=ASL
#line 10196 "regression-compile-tmp/nrimp10s-77.imp"
if (((ASL) == (0))) goto L_09a0;
#line 10196 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ASL;
#line 10196 "regression-compile-tmp/nrimp10s-77.imp"
L_09a0:;
                                                                //  10197           FAULT(107,0)
#line 10197 "regression-compile-tmp/nrimp10s-77.imp"
FAULT(107, 0);
                                                                //  10198        %FINISH %ELSE CONST LIMIT=CL;     ! NEW VALUE WITH BIGGER ASL
#line 10198 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09a1;
#line 10198 "regression-compile-tmp/nrimp10s-77.imp"
L_099b:;
#line 10198 "regression-compile-tmp/nrimp10s-77.imp"
CONSTLIMIT = CL;
#line 10198 "regression-compile-tmp/nrimp10s-77.imp"
L_09a1:;
                                                                //  10199        %CYCLE I=ASL CUR BTM,1,N-1
#line 10199 "regression-compile-tmp/nrimp10s-77.imp"
{static int _initial, _increment, _final, _control;
_initial = ASLCURBTM; _increment = 1; _final = (((int)(N)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = ASLCURBTM, 1, (((int)(N)) - (1))");
I -= _increment; _control -= _increment;
L_09a2:;
if (I == _final) goto L_09a3;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //  10200           ASLIST(I+1)_LINK=I
#line 10200 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[(((int)(I)) + (1))].LINK = I;
                                                                //  10201        %REPEAT
#line 10201 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09a2;
#line 10201 "regression-compile-tmp/nrimp10s-77.imp"
L_09a3:;
                                                                //  10202        ASLIST(ASL CUR BTM)_LINK=0
#line 10202 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[ASLCURBTM].LINK = 0;
                                                                //  10203        ASL=N; %RESULT=N
#line 10203 "regression-compile-tmp/nrimp10s-77.imp"
ASL = N;
#line 10203 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return N;
                                                                //  10204  %END
#line 10204 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block MORESPACE at level 3
                                                                //  10205  !%INTEGERFN NEW CELL
                                                                //  10206  !***********************************************************************
                                                                //  10207  !*       PROVIDE A NEW LIST PROCESSING CELL. CRAPOUT IF NONE AVAILABLE *
                                                                //  10208  !***********************************************************************
                                                                //  10209  !%INTEGER I
                                                                //  10210  !         %IF ASL=0 %THEN ASL=MORE SPACE
                                                                //  10211  !         I=ASL
                                                                //  10212  !         ASL=ASLIST(ASL)_LINK
                                                                //  10213  !         ASLIST(I)_LINK=0
                                                                //  10214  !         %RESULT =I
                                                                //  10215  !%END
                                                                //  10216  %ROUTINE PUSH(%INTEGERNAME CELL, %INTEGER S1, S2, S3)
#line 10216 "regression-compile-tmp/nrimp10s-77.imp"
void PUSH( int /*name*/*CELL, int S1, int S2, int S3 )
#line 10216 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10217  !***********************************************************************
                                                                //  10218  !*       PUSH A CELL CONTAINING THE 3 STREAMS OF INFORMATION GIVEN     *
                                                                //  10219  !*       ONTO THE TOP OF THE LIST POINTED AT BY CELL.                  *
                                                                //  10220  !***********************************************************************
                                                                //  10221  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10221 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10222  %INTEGER I
#line 10222 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //  10223        I=ASL
#line 10223 "regression-compile-tmp/nrimp10s-77.imp"
I = ASL;
                                                                //  10224        %IF I=0 %THEN I=MORE SPACE
#line 10224 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (0))) goto L_09a5;
#line 10224 "regression-compile-tmp/nrimp10s-77.imp"
I = MORESPACE();
#line 10224 "regression-compile-tmp/nrimp10s-77.imp"
L_09a5:;
                                                                //  10225  !     %IF USE IMP=YES %THEN %START
                                                                //  10226           LCELL==ASLIST(I)
#line 10226 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[I];
                                                                //  10227           ASL=LCELL_LINK
#line 10227 "regression-compile-tmp/nrimp10s-77.imp"
ASL = LCELL->LINK;
                                                                //  10228           LCELL_LINK=CELL
#line 10228 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = *CELL;
                                                                //  10229           CELL=I
#line 10229 "regression-compile-tmp/nrimp10s-77.imp"
*CELL = I;
                                                                //  10230           LCELL_S1=S1
#line 10230 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = S1;
                                                                //  10231           LCELL_S2=S2
#line 10231 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = S2;
                                                                //  10232           LCELL_S3=S3
#line 10232 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S3 = S3;
                                                                //  10233  !     %FINISH %ELSE %START
                                                                //  10234  !        *LB_I
                                                                //  10235  !        *MYB_16
                                                                //  10236  !        *ADB_ASLIST+4
                                                                //  10237  !        *LCT_%B
                                                                //  10238  !        *LSS_(%CTB+3)
                                                                //  10239  !        *ST_ASL
                                                                //  10240  !        *LB_I
                                                                //  10241  !        *LSS_(CELL)
                                                                //  10242  !        *STB_(%DR)
                                                                //  10243  !        *LUH_S3
                                                                //  10244  !        *LUH_S1
                                                                //  10245  !        *ST_(%CTB+0)
                                                                //  10246  !     %FINISH
                                                                //  10247  %END
#line 10247 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUSH at level 3
                                                                //  10248  %ROUTINE POP(%INTEGERNAME CELL, S1, S2, S3)
#line 10248 "regression-compile-tmp/nrimp10s-77.imp"
void POP( int /*name*/*CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 )
#line 10248 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10249  !***********************************************************************
                                                                //  10250  !*       COPY THE INFORMATION FROM THE TOP CELL OF LIST 'CELL' INTO    *
                                                                //  10251  !*         S1,S2&S3 AND THEN POP THE LIST UP 1 CELL. EMPTYLIST GIVE -1S*
                                                                //  10252  !***********************************************************************
                                                                //  10253  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10253 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10254  %INTEGER I
#line 10254 "regression-compile-tmp/nrimp10s-77.imp"
int I;
                                                                //  10255  !     %IF USE IMP=YES %THEN %START
                                                                //  10256           I=CELL
#line 10256 "regression-compile-tmp/nrimp10s-77.imp"
I = *CELL;
                                                                //  10257           LCELL==ASLIST(I)
#line 10257 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[I];
                                                                //  10258           S1=LCELL_S1
#line 10258 "regression-compile-tmp/nrimp10s-77.imp"
*S1 = LCELL->S1;
                                                                //  10259           S2=LCELL_S2
#line 10259 "regression-compile-tmp/nrimp10s-77.imp"
*S2 = LCELL->S2;
                                                                //  10260           S3=LCELL_S3
#line 10260 "regression-compile-tmp/nrimp10s-77.imp"
*S3 = LCELL->S3;
                                                                //  10261           %IF I# 0 %THEN %START
#line 10261 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (0))) goto L_09a6;
                                                                //  10262              CELL=LCELL_LINK
#line 10262 "regression-compile-tmp/nrimp10s-77.imp"
*CELL = LCELL->LINK;
                                                                //  10263              LCELL_LINK=ASL
#line 10263 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = ASL;
                                                                //  10264              ASL=I
#line 10264 "regression-compile-tmp/nrimp10s-77.imp"
ASL = I;
                                                                //  10265           %FINISH
#line 10265 "regression-compile-tmp/nrimp10s-77.imp"
L_09a6:;
                                                                //  10266  !     %FINISH %ELSE %START
                                                                //  10267  !        *LB_(CELL)
                                                                //  10268  !        *STB_I
                                                                //  10269  !        *MYB_16
                                                                //  10270  !        *ADB_ASLIST+4
                                                                //  10271  !        *LCT_%B
                                                                //  10272  !        *LSD_(%CTB+0)
                                                                //  10273  !        *STUH_(S1)
                                                                //  10274  !        *LB_I
                                                                //  10275  !        *ST_(S2)
                                                                //  10276  !        *LSD_(%CTB+2)
                                                                //  10277  !        *STUH_(S3)
                                                                //  10278  !        *JAT_12,<END>
                                                                //  10279  !        *ST_(CELL)
                                                                //  10280  !        *LSS_ASL
                                                                //  10281  !        *ST_(%CTB+3)
                                                                //  10282  !        *STB_ASL
                                                                //  10283  !END:
                                                                //  10284  !     %FINISH
                                                                //  10285  %END
#line 10285 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POP at level 3
                                                                //  10286  %ROUTINE REPLACE1(%INTEGER CELL, S1)
#line 10286 "regression-compile-tmp/nrimp10s-77.imp"
void REPLACE1( int CELL, int S1 )
#line 10286 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10287           ASLIST(CELL)_S1=S1
#line 10287 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S1 = S1;
                                                                //  10288  %END
#line 10288 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE1 at level 3
                                                                //  10289  %ROUTINE REPLACE2(%INTEGER CELL, S2)
#line 10289 "regression-compile-tmp/nrimp10s-77.imp"
void REPLACE2( int CELL, int S2 )
#line 10289 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10290           ASLIST(CELL)_S2=S2
#line 10290 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S2 = S2;
                                                                //  10291  %END
#line 10291 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE2 at level 3
                                                                //  10292  %ROUTINE REPLACE3(%INTEGER CELL, S3)
#line 10292 "regression-compile-tmp/nrimp10s-77.imp"
void REPLACE3( int CELL, int S3 )
#line 10292 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10293           ASLIST(CELL)_S3=S3
#line 10293 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S3 = S3;
                                                                //  10294  %END
#line 10294 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE3 at level 3
                                                                //  10295           %ROUTINE BINSERT(%INTEGERNAME TOP,BOT,%INTEGER S1,S2,S3)
#line 10295 "regression-compile-tmp/nrimp10s-77.imp"
void BINSERT( int /*name*/*TOP, int /*name*/*BOT, int S1, int S2, int S3 )
#line 10295 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10296  !***********************************************************************
                                                                //  10297  !*       INSERT A CELL AT THE BOTTOM OF A LIST                         *
                                                                //  10298  !*       UPDATING TOP AND BOTTOM POINTERS APPROPIATELY                 *
                                                                //  10299  !***********************************************************************
                                                                //  10300  %INTEGER I,J
#line 10300 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 10300 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //  10301  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10301 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10302           I=ASL
#line 10302 "regression-compile-tmp/nrimp10s-77.imp"
I = ASL;
                                                                //  10303           %IF I=0 %THEN I=MORE SPACE
#line 10303 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) != (0))) goto L_09a7;
#line 10303 "regression-compile-tmp/nrimp10s-77.imp"
I = MORESPACE();
#line 10303 "regression-compile-tmp/nrimp10s-77.imp"
L_09a7:;
                                                                //  10304           LCELL==ASLIST(I)
#line 10304 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[I];
                                                                //  10305           ASL=LCELL_LINK
#line 10305 "regression-compile-tmp/nrimp10s-77.imp"
ASL = LCELL->LINK;
                                                                //  10306           LCELL_S1=S1; LCELL_S2=S2
#line 10306 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = S1;
#line 10306 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = S2;
                                                                //  10307           LCELL_S3=S3; LCELL_LINK=0
#line 10307 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S3 = S3;
#line 10307 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = 0;
                                                                //  10308           J=BOT
#line 10308 "regression-compile-tmp/nrimp10s-77.imp"
J = *BOT;
                                                                //  10309           %IF J=0 %THEN BOT=I %AND TOP=BOT %ELSE %START
#line 10309 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (0))) goto L_09a8;
#line 10309 "regression-compile-tmp/nrimp10s-77.imp"
*BOT = I;
#line 10309 "regression-compile-tmp/nrimp10s-77.imp"
*TOP = *BOT;
#line 10309 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09a9;
#line 10309 "regression-compile-tmp/nrimp10s-77.imp"
L_09a8:;
                                                                //  10310              ASLIST(J)_LINK=I
#line 10310 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[J].LINK = I;
                                                                //  10311              BOT=I
#line 10311 "regression-compile-tmp/nrimp10s-77.imp"
*BOT = I;
                                                                //  10312           %FINISH
#line 10312 "regression-compile-tmp/nrimp10s-77.imp"
L_09a9:;
                                                                //  10313  %END
#line 10313 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block BINSERT at level 3
                                                                //  10314  %ROUTINE INSERT AT END(%INTEGERNAME CELL, %INTEGER S1, S2, S3)
#line 10314 "regression-compile-tmp/nrimp10s-77.imp"
void INSERTATEND( int /*name*/*CELL, int S1, int S2, int S3 )
#line 10314 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10315  !***********************************************************************
                                                                //  10316  !*       ADD A CELL TO THE BOTTOM OF THE LIST HEADED BY 'CELL'         *
                                                                //  10317  !***********************************************************************
                                                                //  10318  %INTEGER I,J,N
#line 10318 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 10318 "regression-compile-tmp/nrimp10s-77.imp"
int J;
#line 10318 "regression-compile-tmp/nrimp10s-77.imp"
int N;
                                                                //  10319  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10319 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10320           I=CELL; J=I
#line 10320 "regression-compile-tmp/nrimp10s-77.imp"
I = *CELL;
#line 10320 "regression-compile-tmp/nrimp10s-77.imp"
J = I;
                                                                //  10321           %WHILE I#0 %CYCLE
#line 10321 "regression-compile-tmp/nrimp10s-77.imp"
L_09aa:;
#line 10321 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (0))) goto L_09ab;
                                                                //  10322              J=I
#line 10322 "regression-compile-tmp/nrimp10s-77.imp"
J = I;
                                                                //  10323              I=ASLIST(J)_LINK
#line 10323 "regression-compile-tmp/nrimp10s-77.imp"
I = ASLIST[J].LINK;
                                                                //  10324           %REPEAT
#line 10324 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09aa;
#line 10324 "regression-compile-tmp/nrimp10s-77.imp"
L_09ab:;
                                                                //  10325           N=ASL
#line 10325 "regression-compile-tmp/nrimp10s-77.imp"
N = ASL;
                                                                //  10326           %IF N=0 %THEN N=MORE SPACE
#line 10326 "regression-compile-tmp/nrimp10s-77.imp"
if (((N) != (0))) goto L_09ad;
#line 10326 "regression-compile-tmp/nrimp10s-77.imp"
N = MORESPACE();
#line 10326 "regression-compile-tmp/nrimp10s-77.imp"
L_09ad:;
                                                                //  10327           LCELL==ASLIST(N)
#line 10327 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[N];
                                                                //  10328           ASL=LCELL_LINK
#line 10328 "regression-compile-tmp/nrimp10s-77.imp"
ASL = LCELL->LINK;
                                                                //  10329           %IF J=0 %THEN CELL=N %ELSE ASLIST(J)_LINK=N
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) != (0))) goto L_09ae;
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
*CELL = N;
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09af;
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
L_09ae:;
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[J].LINK = N;
#line 10329 "regression-compile-tmp/nrimp10s-77.imp"
L_09af:;
                                                                //  10330           LCELL_S1=S1
#line 10330 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S1 = S1;
                                                                //  10331           LCELL_S2=S2
#line 10331 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S2 = S2;
                                                                //  10332           LCELL_S3=S3
#line 10332 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->S3 = S3;
                                                                //  10333           LCELL_LINK=0
#line 10333 "regression-compile-tmp/nrimp10s-77.imp"
LCELL->LINK = 0;
                                                                //  10334  %END
#line 10334 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block INSERTATEND at level 3
                                                                //  10335  %ROUTINE REPLACE123(%INTEGER CELL,S1,S2,S3)
#line 10335 "regression-compile-tmp/nrimp10s-77.imp"
void REPLACE123( int CELL, int S1, int S2, int S3 )
#line 10335 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10336           ASLIST(CELL)_S1=S1
#line 10336 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S1 = S1;
                                                                //  10337           ASLIST(CELL)_S2=S2
#line 10337 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S2 = S2;
                                                                //  10338           ASLIST(CELL)_S3=S3
#line 10338 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[CELL].S3 = S3;
                                                                //  10339  %END
#line 10339 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE123 at level 3
                                                                //  10340  %ROUTINE MLINK(%INTEGERNAME CELL)
#line 10340 "regression-compile-tmp/nrimp10s-77.imp"
void MLINK( int /*name*/*CELL )
#line 10340 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10341           CELL=ASLIST(CELL)_LINK
#line 10341 "regression-compile-tmp/nrimp10s-77.imp"
*CELL = ASLIST[*CELL].LINK;
                                                                //  10342  %END
#line 10342 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MLINK at level 3
                                                                //  10343  %INTEGERFN FIND(%INTEGER LAB, LIST)
#line 10343 "regression-compile-tmp/nrimp10s-77.imp"
int FIND( int LAB, int LIST )
#line 10343 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10344  !***********************************************************************
                                                                //  10345  !*       THIS FUNCTION SEARCHES LIST 'LIST' FOR LAB IN STREAM2 AND     *
                                                                //  10346  !*       RETURNS THE CORRESPONDING CELL NO.IT USED FOR MORE THAN       *
                                                                //  10347  !*       SCANNING LABEL LISTS.                                         *
                                                                //  10348  !***********************************************************************
                                                                //  10349           %WHILE LIST#0 %CYCLE
#line 10349 "regression-compile-tmp/nrimp10s-77.imp"
L_09b0:;
#line 10349 "regression-compile-tmp/nrimp10s-77.imp"
if (((LIST) == (0))) goto L_09b1;
                                                                //  10350              %RESULT=LIST %IF LAB=ASLIST(LIST)_S2
#line 10350 "regression-compile-tmp/nrimp10s-77.imp"
if (((LAB) != (ASLIST[LIST].S2))) goto L_09b3;
#line 10350 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return LIST;
#line 10350 "regression-compile-tmp/nrimp10s-77.imp"
L_09b3:;
                                                                //  10351              LIST=ASLIST(LIST)_LINK
#line 10351 "regression-compile-tmp/nrimp10s-77.imp"
LIST = ASLIST[LIST].LINK;
                                                                //  10352           %REPEAT
#line 10352 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09b0;
#line 10352 "regression-compile-tmp/nrimp10s-77.imp"
L_09b1:;
                                                                //  10353           %RESULT=-1
#line 10353 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return (-1);
                                                                //  10354  %END
#line 10354 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FIND at level 3
                                                                //  10355  %ROUTINE FROM123(%INTEGER CELL, %INTEGERNAME S1, S2, S3)
#line 10355 "regression-compile-tmp/nrimp10s-77.imp"
void FROM123( int CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 )
#line 10355 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10356  !***********************************************************************
                                                                //  10357  !*       ALL THE FROMS RETURN INFO FROM CELLS OF A LIST WITHOUT        *
                                                                //  10358  !*       AFFECTING THE LIST IN ANY WAY.                                *
                                                                //  10359  !***********************************************************************
                                                                //  10360  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10360 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10361           LCELL==ASLIST(CELL)
#line 10361 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //  10362           S1=LCELL_S1
#line 10362 "regression-compile-tmp/nrimp10s-77.imp"
*S1 = LCELL->S1;
                                                                //  10363           S2=LCELL_S2
#line 10363 "regression-compile-tmp/nrimp10s-77.imp"
*S2 = LCELL->S2;
                                                                //  10364           S3=LCELL_S3
#line 10364 "regression-compile-tmp/nrimp10s-77.imp"
*S3 = LCELL->S3;
                                                                //  10365  %END
#line 10365 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROM123 at level 3
                                                                //  10366  %ROUTINE FROM12(%INTEGER CELL, %INTEGERNAME S1, S2)
#line 10366 "regression-compile-tmp/nrimp10s-77.imp"
void FROM12( int CELL, int /*name*/*S1, int /*name*/*S2 )
#line 10366 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10367  %RECORD(LISTF)%NAME LCELL{(LISTF)
#line 10367 "regression-compile-tmp/nrimp10s-77.imp"
 LISTF /*name*/*LCELL;
                                                                //  10368           LCELL==ASLIST(CELL)
#line 10368 "regression-compile-tmp/nrimp10s-77.imp"
LCELL = &ASLIST[CELL];
                                                                //  10369           S1=LCELL_S1
#line 10369 "regression-compile-tmp/nrimp10s-77.imp"
*S1 = LCELL->S1;
                                                                //  10370           S2=LCELL_S2
#line 10370 "regression-compile-tmp/nrimp10s-77.imp"
*S2 = LCELL->S2;
                                                                //  10371  %END
#line 10371 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROM12 at level 3
                                                                //  10372  %INTEGERFN FROM1(%INTEGER CELL)
#line 10372 "regression-compile-tmp/nrimp10s-77.imp"
int FROM1( int CELL )
#line 10372 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10373           %RESULT =ASLIST(CELL)_S1
#line 10373 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ASLIST[CELL].S1;
                                                                //  10374  %END
#line 10374 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FROM1 at level 3
                                                                //  10375  %INTEGERFN FROM2(%INTEGER CELL)
#line 10375 "regression-compile-tmp/nrimp10s-77.imp"
int FROM2( int CELL )
#line 10375 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10376           %RESULT =ASLIST(CELL)_S2
#line 10376 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ASLIST[CELL].S2;
                                                                //  10377  %END
#line 10377 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FROM2 at level 3
                                                                //  10378  %INTEGERFN FROM3(%INTEGER CELL)
#line 10378 "regression-compile-tmp/nrimp10s-77.imp"
int FROM3( int CELL )
#line 10378 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10379           %RESULT =ASLIST(CELL)_S3
#line 10379 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return ASLIST[CELL].S3;
                                                                //  10380  %END
#line 10380 "regression-compile-tmp/nrimp10s-77.imp"
} // End of block FROM3 at level 3
                                                                //  10381  %ROUTINE CLEAR LIST(%INTEGERNAME OPHEAD)
#line 10381 "regression-compile-tmp/nrimp10s-77.imp"
void CLEARLIST( int /*name*/*OPHEAD )
#line 10381 "regression-compile-tmp/nrimp10s-77.imp"
{
                                                                //  10382  !***********************************************************************
                                                                //  10383  !*       THROW AWAY A COMPLETE LIST (MAY BE NULL!)                     *
                                                                //  10384  !***********************************************************************
                                                                //  10385  %INTEGER I, J
#line 10385 "regression-compile-tmp/nrimp10s-77.imp"
int I;
#line 10385 "regression-compile-tmp/nrimp10s-77.imp"
int J;
                                                                //  10386            I=OPHEAD; J=I
#line 10386 "regression-compile-tmp/nrimp10s-77.imp"
I = *OPHEAD;
#line 10386 "regression-compile-tmp/nrimp10s-77.imp"
J = I;
                                                                //  10387           %WHILE I#0 %CYCLE
#line 10387 "regression-compile-tmp/nrimp10s-77.imp"
L_09b4:;
#line 10387 "regression-compile-tmp/nrimp10s-77.imp"
if (((I) == (0))) goto L_09b5;
                                                                //  10388              J=I
#line 10388 "regression-compile-tmp/nrimp10s-77.imp"
J = I;
                                                                //  10389              I=ASLIST(J)_LINK
#line 10389 "regression-compile-tmp/nrimp10s-77.imp"
I = ASLIST[J].LINK;
                                                                //  10390           %REPEAT
#line 10390 "regression-compile-tmp/nrimp10s-77.imp"
goto L_09b4;
#line 10390 "regression-compile-tmp/nrimp10s-77.imp"
L_09b5:;
                                                                //  10391           %IF J#0 %START
#line 10391 "regression-compile-tmp/nrimp10s-77.imp"
if (((J) == (0))) goto L_09b7;
                                                                //  10392              ASLIST(J)_LINK=ASL
#line 10392 "regression-compile-tmp/nrimp10s-77.imp"
ASLIST[J].LINK = ASL;
                                                                //  10393              ASL=OPHEAD; OPHEAD=0
#line 10393 "regression-compile-tmp/nrimp10s-77.imp"
ASL = *OPHEAD;
#line 10393 "regression-compile-tmp/nrimp10s-77.imp"
*OPHEAD = 0;
                                                                //  10394           %FINISH
#line 10394 "regression-compile-tmp/nrimp10s-77.imp"
L_09b7:;
                                                                //  10395  %END
#line 10395 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLEARLIST at level 3
                                                                //  10396  !%ROUTINE CONCAT(%INTEGERNAME LIST1, LIST2)
                                                                //  10397  !!***********************************************************************
                                                                //  10398  !!*        ADDS LIST2 TO BOTTOM OF LIST1                                *
                                                                //  10399  !!***********************************************************************
                                                                //  10400  !%INTEGER I,J
                                                                //  10401  !         I=LIST1
                                                                //  10402  !         J=I
                                                                //  10403  !         %WHILE I#0 %THEN J=I %AND I=ASLIST(J)_LINK
                                                                //  10404  !         %IF J=0 %THEN LIST1=LIST2 %ELSE ASLIST(J)_LINK=LIST2
                                                                //  10405  !         LIST2=0
                                                                //  10406  !%END;                                   ! AN ERROR PUTS CELL TWICE ONTO
                                                                //  10407                                          ! FREE LIST - CATASTROPHIC!
                                                                //  10408  %end
#line 10408 "regression-compile-tmp/nrimp10s-77.imp"
return;
} // End of block _BLOCK_1_LEVEL_1_ at level 2
_BLOCK_1_LEVEL_1_();
                                                                //  10409  %ENDOFPROGRAM
#line 10409 "regression-compile-tmp/nrimp10s-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 10409 "regression-compile-tmp/nrimp10s-77.imp"
// End of file
