#include <perms.h>

                                                                //      1  ! Currently throwing a syntax error if more than one %OWN variable declared in one statement
                                                                //      2  %CONTROL X'10000000' ; ! Decode
                                                                //      3  
                                                                //      4  ! There are two places where errors are generated when compiling the clean source of this
                                                                //      5  ! compiler.  Since it should probably be expected to be able to compile itself, these errors
                                                                //      6  ! are almost certainly bogus and a result of some difference in the sparc compiler used to
                                                                //      7  ! compile this.  I have commented out those two error reports (look for '{' and 'erroneous')
                                                                //      8  ! and when that is done the source does compile and the output looks plausible.
                                                                //      9  
                                                                //     10  ! I've supplied a recode and an lput which were missing from the allimpc1 source, and modified
                                                                //     11  ! lput to output all the generated code and data, not just the code that recode outputs.
                                                                //     12  ! Successive runs with no source changes produce *slightly* different output in the 'D' psect.
                                                                //     13  ! This is either due to something time-related, or more likely, an unassigned variable.
                                                                //     14  ! (It's not time-related as this code doesn't access CPU TIME, TIME, or DATE functions)
                                                                //     15  
                                                                //     16  ! Using the sparc compiler solves the problems that arose using other Imp77 compilers
                                                                //     17  ! on little-endian machines like the Vax and X86.  Also the x86 compilers do not
                                                                //     18  ! support both 32 bit integers and 16 bit integers.
                                                                //     19  
                                                                //     20  ! The Imp to C translator *ought* to be able to compile and run this if the
                                                                //     21  ! mips C compiler is used as it too is big-endian.  Mips code runs under emulation
                                                                //     22  ! on the X86 linux transparently.
                                                                //     23  
                                                                //     24  ! Note the compile-time warnings, Warning: value truncated to 16 bits signed at line 215
                                                                //     25  ! - this is because %SHORTINTEGER is a signed 16 bit quantity but some of the data
                                                                //     26  ! in the tables is initialised with *unsigned* 16 bit data in excess of 32767.  These
                                                                //     27  ! constants could be replaced in the source with the negative literal values that
                                                                //     28  ! would allow the source to compile without warnings.  This has not yet been done.
                                                                //     29  
                                                                //     30                 %BEGIN
#line 30 "regression-compile-tmp/allimpc1-77.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //     31  
                                                                //     32  %constinteger debug=0
                                                                //     33  %owninteger com2 = 20000 ;! free memory size?
#line 33 "regression-compile-tmp/allimpc1-77.imp"
static int COM2 = 20000;
                                                                //     34  %owninteger com24 = 0    ;! exit code I think
#line 34 "regression-compile-tmp/allimpc1-77.imp"
static int COM24 = 0;
                                                                //     35  
                                                                //     36  %integerfn com(%integer idx)
#line 36 "regression-compile-tmp/allimpc1-77.imp"
int COM( int IDX )
#line 36 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //     37    %if idx=24 %then %result = com24
#line 37 "regression-compile-tmp/allimpc1-77.imp"
if (((IDX) != (24))) goto L_0002;
#line 37 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return COM24;
#line 37 "regression-compile-tmp/allimpc1-77.imp"
L_0002:;
                                                                //     38    %if idx=2  %then %result = com2
#line 38 "regression-compile-tmp/allimpc1-77.imp"
if (((IDX) != (2))) goto L_0003;
#line 38 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return COM2;
#line 38 "regression-compile-tmp/allimpc1-77.imp"
L_0003:;
                                                                //     39    %stop
#line 39 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //     40  %end
#line 40 "regression-compile-tmp/allimpc1-77.imp"
} // End of block COM at level 2
                                                                //     41  
                                                                //     42  %routine setcom(%integer idx, val)
#line 42 "regression-compile-tmp/allimpc1-77.imp"
void SETCOM( int IDX, int VAL )
#line 42 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //     43    %if idx=24 %then com24=val %and %return
#line 43 "regression-compile-tmp/allimpc1-77.imp"
if (((IDX) != (24))) goto L_0004;
#line 43 "regression-compile-tmp/allimpc1-77.imp"
COM24 = VAL;
#line 43 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 43 "regression-compile-tmp/allimpc1-77.imp"
L_0004:;
                                                                //     44    %if idx=2  %then com2 =val %and %return
#line 44 "regression-compile-tmp/allimpc1-77.imp"
if (((IDX) != (2))) goto L_0005;
#line 44 "regression-compile-tmp/allimpc1-77.imp"
COM2 = VAL;
#line 44 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 44 "regression-compile-tmp/allimpc1-77.imp"
L_0005:;
                                                                //     45    %stop
#line 45 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //     46  %end
#line 46 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block SETCOM at level 2
                                                                //     47  
                                                                //     48  %routine set short integer(%integer address, %short value)
#line 48 "regression-compile-tmp/allimpc1-77.imp"
void SETSHORTINTEGER( int ADDRESS, short VALUE )
#line 48 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //     49    short integer(address) = value
#line 49 "regression-compile-tmp/allimpc1-77.imp"
*_imp_SHORTINTEGER(ADDRESS) = VALUE;
                                                                //     50  %end
#line 50 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETSHORTINTEGER at level 2
                                                                //     51  
                                                                //     52  
                                                                //     53                 %INTEGER I,J,K,SS
#line 53 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 53 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 53 "regression-compile-tmp/allimpc1-77.imp"
int K;
#line 53 "regression-compile-tmp/allimpc1-77.imp"
int SS;
                                                                //     54  %OWNBYTEINTEGERARRAY CLETT(1: 425)=   1,
#line 54 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char CLETT[425] = { 1, 43, 1, 45, 1, 92, 1, 40, 1, 41, 1, 33, 1, 44, 2, 42, 42, 2, 33, 33, 1, 42, 2, 47, 47, 1, 47, 1, 38, 2, 62, 62, 2, 60, 60, 1, 46, 1, 63, 2, 201, 198, 6, 213, 206, 204, 197, 211, 211, 7, 201, 206, 212, 197, 199, 197, 210, 4, 210, 197, 193, 204, 4, 194, 217, 212, 197, 5, 211, 200, 207, 210, 212, 4, 204, 207, 206, 199, 6, 211, 212, 210, 201, 206, 199, 7, 210, 207, 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, 208, 4, 206, 193, 205, 197, 6, 210, 197, 195, 207, 210, 196, 4, 211, 212, 207, 208, 7, 195, 207, 205, 208, 201, 204, 197, 6, 201, 199, 206, 207, 210, 197, 2, 207, 206, 3, 207, 198, 198, 5, 193, 210, 210, 193, 217, 3, 193, 206, 196, 2, 207, 210, 2, 61, 61, 1, 61, 2, 60, 45, 2, 45, 62, 4, 211, 208, 197, 195, 6, 206, 207, 210, 205, 193, 204, 6, 214, 197, 195, 212, 207, 210, 1, 58, 2, 62, 61, 1, 62, 1, 35, 2, 60, 61, 1, 60, 2, 92, 61, 4, 197, 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, 197, 205, 8, 197, 216, 212, 197, 210, 206, 193, 204, 5, 195, 204, 193, 201, 205, 7, 210, 197, 204, 197, 193, 211, 197, 1, 80, 3, 80, 85, 84, 1, 64, 9, 208, 210, 201, 206, 212, 212, 197, 216, 212, 6, 210, 197, 212, 213, 210, 206, 7, 210, 197, 211, 213, 204, 212, 61, 7, 205, 207, 206, 201, 212, 207, 210, 5, 211, 212, 193, 210, 212, 7, 209, 213, 197, 210, 201, 197, 211, 5, 195, 217, 195, 204, 197, 6, 210, 197, 208, 197, 193, 212, 4, 212, 200, 197, 206, 3, 197, 206, 196, 7, 195, 207, 205, 205, 197, 206, 212, 5, 210, 197, 193, 204, 211, 5, 194, 197, 199, 201, 206, 2, 207, 198, 7, 208, 210, 207, 199, 210, 193, 205, 6, 211, 215, 201, 212, 195, 200, 8, 210, 197, 199, 201, 211, 212, 197, 210, 3, 207, 215, 206, 5, 205, 195, 207, 196, 197, 5, 198, 193, 213, 204, 212, 4, 198, 201, 204, 197, 6, 196, 197, 198, 201, 206, 197, 1, 210, 7, 211, 208, 197, 195, 201, 193, 204, 4, 204, 201, 211, 212, 7, 195, 207, 206, 212, 210, 207, 204, 6, 198, 201, 206, 201, 211, 200, 6, 198, 207, 210, 205, 193, 212,  };
                                                                //     55    43,   1,  45,   1,  92,   1,  40,   1,  41,   1,  33,   1,  44,   2,
                                                                //     56    42,  42,   2,  33,  33,   1,  42,   2,  47,  47,   1,  47,   1,  38,
                                                                //     57     2,  62,  62,   2,  60,  60,   1,  46,   1,  63,   2, 201, 198,   6,
                                                                //     58   213, 206, 204, 197, 211, 211,   7, 201, 206, 212, 197, 199, 197, 210,
                                                                //     59     4, 210, 197, 193, 204,   4, 194, 217, 212, 197,   5, 211, 200, 207,
                                                                //     60   210, 212,   4, 204, 207, 206, 199,   6, 211, 212, 210, 201, 206, 199,
                                                                //     61     7, 210, 207, 213, 212, 201, 206, 197,   2, 198, 206,   3, 205, 193,
                                                                //     62   208,   4, 206, 193, 205, 197,   6, 210, 197, 195, 207, 210, 196,   4,
                                                                //     63   211, 212, 207, 208,   7, 195, 207, 205, 208, 201, 204, 197,   6, 201,
                                                                //     64   199, 206, 207, 210, 197,   2, 207, 206,   3, 207, 198, 198,   5, 193,
                                                                //     65   210, 210, 193, 217,   3, 193, 206, 196,   2, 207, 210,   2,  61,  61,
                                                                //     66     1,  61,   2,  60,  45,   2,  45,  62,   4, 211, 208, 197, 195,   6,
                                                                //     67   206, 207, 210, 205, 193, 204,   6, 214, 197, 195, 212, 207, 210,   1,
                                                                //     68    58,   2,  62,  61,   1,  62,   1,  35,   2,  60,  61,   1,  60,   2,
                                                                //     69    92,  61,   4, 197, 204, 211, 197,   1,  95,   6, 211, 217, 211, 212,
                                                                //     70   197, 205,   8, 197, 216, 212, 197, 210, 206, 193, 204,   5, 195, 204,
                                                                //     71   193, 201, 205,   7, 210, 197, 204, 197, 193, 211, 197,   1,  80,   3,
                                                                //     72    80,  85,  84,   1,  64,   9, 208, 210, 201, 206, 212, 212, 197, 216,
                                                                //     73   212,   6, 210, 197, 212, 213, 210, 206,   7, 210, 197, 211, 213, 204,
                                                                //     74   212,  61,   7, 205, 207, 206, 201, 212, 207, 210,   5, 211, 212, 193,
                                                                //     75   210, 212,   7, 209, 213, 197, 210, 201, 197, 211,   5, 195, 217, 195,
                                                                //     76   204, 197,   6, 210, 197, 208, 197, 193, 212,   4, 212, 200, 197, 206,
                                                                //     77     3, 197, 206, 196,   7, 195, 207, 205, 205, 197, 206, 212,   5, 210,
                                                                //     78   197, 193, 204, 211,   5, 194, 197, 199, 201, 206,   2, 207, 198,   7,
                                                                //     79   208, 210, 207, 199, 210, 193, 205,   6, 211, 215, 201, 212, 195, 200,
                                                                //     80     8, 210, 197, 199, 201, 211, 212, 197, 210,   3, 207, 215, 206,   5,
                                                                //     81   205, 195, 207, 196, 197,   5, 198, 193, 213, 204, 212,   4, 198, 201,
                                                                //     82   204, 197,   6, 196, 197, 198, 201, 206, 197,   1, 210,   7, 211, 208,
                                                                //     83   197, 195, 201, 193, 204,   4, 204, 201, 211, 212,   7, 195, 207, 206,
                                                                //     84   212, 210, 207, 204,   6, 198, 201, 206, 201, 211, 200,   6, 198, 207,
                                                                //     85   210, 205, 193, 212;
                                                                //     86  %OWNSHORTINTEGERARRAY SYMBOL(1300: 2148)=  1309,
#line 86 "regression-compile-tmp/allimpc1-77.imp"
static short SYMBOL[849] = { 1309, 1303, 1, 1305, 3, 1307, 5, 1309, 1000, 1316, 1312, 1, 1314, 3, 1316, 1000, 1335, 1321, 1001, 1342, 1706, 1323, 1003, 1329, 7, 1300, 1316, 1335, 9, 1335, 11, 1300, 1316, 1335, 11, 1342, 1340, 1361, 1316, 1335, 1342, 1000, 1352, 1350, 7, 1300, 1316, 1335, 1352, 9, 1352, 1000, 1361, 1359, 13, 1300, 1316, 1335, 1352, 1361, 1000, 1388, 1364, 15, 1366, 1, 1368, 3, 1370, 18, 1372, 11, 1374, 21, 1376, 23, 1378, 26, 1380, 28, 1382, 30, 1384, 33, 1386, 36, 1388, 1000, 1393, 1391, 38, 1393, 1000, 1398, 1396, 13, 1398, 1000, 1403, 1401, 40, 1403, 43, 1420, 1406, 50, 1408, 58, 1411, 63, 50, 1414, 68, 50, 1417, 74, 58, 1420, 79, 1883, 1426, 1423, 86, 1426, 1403, 1426, 1431, 1429, 94, 1431, 97, 1445, 1435, 1420, 1467, 1438, 1403, 1472, 1441, 1462, 101, 1445, 106, 1462, 101, 1450, 1448, 1005, 1450, 1001, 1457, 1453, 113, 1455, 118, 1457, 126, 1462, 1460, 133, 1462, 136, 1467, 1465, 140, 1467, 1000, 1472, 1470, 101, 1472, 1000, 1484, 1477, 101, 140, 101, 1480, 140, 101, 1482, 101, 1484, 1000, 1493, 1491, 7, 1431, 1009, 1493, 9, 1493, 1000, 1501, 1499, 1393, 1431, 1009, 1493, 1501, 1000, 1520, 1513, 1010, 1300, 1316, 1335, 1669, 1300, 1316, 1335, 1520, 1011, 1520, 7, 1010, 1501, 1528, 1011, 9, 1528, 1526, 1669, 1300, 1316, 1335, 1528, 1000, 1539, 1533, 146, 1501, 1539, 1537, 150, 1501, 1546, 1539, 1000, 1546, 1544, 146, 1501, 1539, 1546, 1000, 1553, 1551, 150, 1501, 1546, 1553, 1000, 1562, 1560, 1562, 1300, 1316, 1335, 1388, 1562, 1000, 1571, 1565, 153, 1567, 156, 1569, 158, 1571, 161, 1576, 1574, 164, 1576, 1000, 1581, 1579, 74, 1581, 169, 1588, 1586, 13, 1714, 1581, 1588, 1000, 1599, 1592, 1472, 1009, 1596, 1467, 140, 1599, 1599, 176, 1613, 1607, 1607, 1009, 7, 1714, 1581, 9, 1607, 1613, 1611, 13, 1599, 1613, 1000, 1618, 1618, 1009, 1635, 1618, 1624, 1622, 13, 1613, 1624, 1000, 1635, 1629, 1001, 1723, 1006, 1635, 140, 1001, 1635, 1890, 1004, 1644, 1644, 7, 1309, 1003, 183, 1309, 1003, 9, 1651, 1649, 13, 1005, 1644, 1651, 1000, 1661, 1659, 13, 1005, 1644, 161, 1445, 1651, 1661, 1000, 1669, 1667, 13, 1009, 1635, 1661, 1669, 1000, 1686, 1672, 156, 1674, 185, 1676, 188, 1678, 190, 1680, 192, 1682, 195, 1684, 197, 1686, 161, 1694, 1689, 1006, 1694, 1398, 1501, 1528, 1006, 1700, 1698, 200, 1902, 1700, 1000, 1706, 1704, 205, 1001, 1706, 1000, 1714, 1712, 205, 1001, 1342, 1706, 1714, 1000, 1723, 1723, 1300, 1316, 1335, 183, 1300, 1316, 1335, 1730, 1728, 156, 1300, 1003, 1730, 1000, 1737, 1733, 207, 1735, 214, 1737, 1000, 1742, 1740, 223, 1742, 229, 1747, 1745, 140, 1747, 106, 1757, 1755, 1393, 1403, 1467, 140, 1599, 1747, 1757, 1000, 1764, 1762, 1431, 1009, 1493, 1764, 1000, 1772, 1768, 1001, 1857, 1772, 195, 1445, 188, 1785, 1780, 1005, 7, 1005, 13, 1005, 9, 1785, 1764, 7, 1005, 9, 1792, 1789, 1764, 1883, 1792, 1005, 1792, 1805, 1799, 7, 1005, 13, 1005, 9, 1803, 7, 1005, 9, 1805, 1000, 1811, 1809, 13, 1003, 1811, 1000, 1817, 1814, 1764, 1817, 1005, 1883, 1857, 1823, 1012, 1005, 13, 1005, 1828, 1013, 1005, 13, 1785, 1835, 1014, 1005, 13, 1005, 13, 1811, 1839, 1015, 1811, 1805, 1844, 1016, 1005, 13, 1811, 1849, 1017, 1772, 13, 1811, 1854, 1018, 1772, 13, 1772, 1857, 1019, 1005, 1863, 1861, 1, 1005, 1863, 1000, 1883, 1872, 21, 1005, 13, 1895, 1001, 1342, 1706, 1876, 161, 237, 1005, 1879, 1002, 1817, 1883, 239, 205, 1003, 1890, 1888, 7, 1005, 9, 1890, 1000, 1895, 1893, 156, 1895, 1000, 1902, 1898, 243, 1900, 156, 1902, 1000, 1943, 1910, 1010, 1001, 1342, 1706, 1011, 1553, 1918, 161, 1001, 7, 1300, 1316, 1335, 9, 1921, 161, 1445, 1924, 245, 1008, 1926, 255, 1931, 262, 1300, 1316, 1335, 1933, 113, 1936, 270, 113, 1938, 278, 1940, 270, 1943, 284, 1457, 2149, 1949, 1010, 1902, 1011, 1686, 1967, 292, 1001, 1342, 1706, 156, 1300, 1316, 1335, 13, 1300, 1316, 1335, 13, 1300, 1316, 1335, 1006, 1970, 298, 1006, 1973, 1445, 183, 1985, 1398, 1010, 1501, 1528, 305, 1011, 1010, 1902, 1011, 1694, 1006, 1988, 11, 1007, 1992, 1403, 1588, 1006, 1995, 310, 1006, 2004, 1010, 1730, 1420, 1011, 1571, 1001, 1484, 1006, 2007, 314, 1007, 2011, 322, 1576, 1006, 2014, 328, 1006, 2019, 310, 334, 337, 1006, 2026, 1001, 7, 1309, 1003, 9, 183, 2032, 345, 1009, 1635, 1661, 1006, 2036, 1450, 284, 1006, 2040, 352, 1001, 1006, 2044, 361, 1403, 1624, 2050, 1737, 1742, 352, 1001, 1006, 2053, 365, 1006, 2057, 68, 86, 1006, 2061, 21, 1863, 1006, 2069, 371, 1005, 1644, 161, 1445, 1651, 1006, 2074, 310, 334, 377, 1006, 2079, 310, 334, 365, 1006, 2084, 382, 118, 389, 1006, 2090, 164, 1001, 1706, 1484, 1006, 2095, 391, 101, 1001, 1006, 2098, 399, 1006, 2103, 310, 334, 399, 1006, 2107, 404, 1003, 1006, 2111, 412, 1694, 1006, 2120, 106, 419, 1001, 7, 1757, 1747, 9, 1006, 2129, 106, 1010, 1588, 1011, 7, 1001, 9, 1006, 2136, 1010, 1420, 101, 1011, 1009, 1006, 2147, 106, 164, 1010, 1001, 1700, 1011, 7, 1001, 9, 1006, 2149, 1006,  };
                                                                //     87    1303,     1,  1305,     3,  1307,     5,  1309,  1000,  1316,  1312,
                                                                //     88       1,  1314,     3,  1316,  1000,  1335,  1321,  1001,  1342,  1706,
                                                                //     89    1323,  1003,  1329,     7,  1300,  1316,  1335,     9,  1335,    11,
                                                                //     90    1300,  1316,  1335,    11,  1342,  1340,  1361,  1316,  1335,  1342,
                                                                //     91    1000,  1352,  1350,     7,  1300,  1316,  1335,  1352,     9,  1352,
                                                                //     92    1000,  1361,  1359,    13,  1300,  1316,  1335,  1352,  1361,  1000,
                                                                //     93    1388,  1364,    15,  1366,     1,  1368,     3,  1370,    18,  1372,
                                                                //     94      11,  1374,    21,  1376,    23,  1378,    26,  1380,    28,  1382,
                                                                //     95      30,  1384,    33,  1386,    36,  1388,  1000,  1393,  1391,    38,
                                                                //     96    1393,  1000,  1398,  1396,    13,  1398,  1000,  1403,  1401,    40,
                                                                //     97    1403,    43,  1420,  1406,    50,  1408,    58,  1411,    63,    50,
                                                                //     98    1414,    68,    50,  1417,    74,    58,  1420,    79,  1883,  1426,
                                                                //     99    1423,    86,  1426,  1403,  1426,  1431,  1429,    94,  1431,    97,
                                                                //    100    1445,  1435,  1420,  1467,  1438,  1403,  1472,  1441,  1462,   101,
                                                                //    101    1445,   106,  1462,   101,  1450,  1448,  1005,  1450,  1001,  1457,
                                                                //    102    1453,   113,  1455,   118,  1457,   126,  1462,  1460,   133,  1462,
                                                                //    103     136,  1467,  1465,   140,  1467,  1000,  1472,  1470,   101,  1472,
                                                                //    104    1000,  1484,  1477,   101,   140,   101,  1480,   140,   101,  1482,
                                                                //    105     101,  1484,  1000,  1493,  1491,     7,  1431,  1009,  1493,     9,
                                                                //    106    1493,  1000,  1501,  1499,  1393,  1431,  1009,  1493,  1501,  1000,
                                                                //    107    1520,  1513,  1010,  1300,  1316,  1335,  1669,  1300,  1316,  1335,
                                                                //    108    1520,  1011,  1520,     7,  1010,  1501,  1528,  1011,     9,  1528,
                                                                //    109    1526,  1669,  1300,  1316,  1335,  1528,  1000,  1539,  1533,   146,
                                                                //    110    1501,  1539,  1537,   150,  1501,  1546,  1539,  1000,  1546,  1544,
                                                                //    111     146,  1501,  1539,  1546,  1000,  1553,  1551,   150,  1501,  1546,
                                                                //    112    1553,  1000,  1562,  1560,  1562,  1300,  1316,  1335,  1388,  1562,
                                                                //    113    1000,  1571,  1565,   153,  1567,   156,  1569,   158,  1571,   161,
                                                                //    114    1576,  1574,   164,  1576,  1000,  1581,  1579,    74,  1581,   169,
                                                                //    115    1588,  1586,    13,  1714,  1581,  1588,  1000,  1599,  1592,  1472,
                                                                //    116    1009,  1596,  1467,   140,  1599,  1599,   176,  1613,  1607,  1607,
                                                                //    117    1009,     7,  1714,  1581,     9,  1607,  1613,  1611,    13,  1599,
                                                                //    118    1613,  1000,  1618,  1618,  1009,  1635,  1618,  1624,  1622,    13,
                                                                //    119    1613,  1624,  1000,  1635,  1629,  1001,  1723,  1006,  1635,   140,
                                                                //    120    1001,  1635,  1890,  1004,  1644,  1644,     7,  1309,  1003,   183,
                                                                //    121    1309,  1003,     9,  1651,  1649,    13,  1005,  1644,  1651,  1000,
                                                                //    122    1661,  1659,    13,  1005,  1644,   161,  1445,  1651,  1661,  1000,
                                                                //    123    1669,  1667,    13,  1009,  1635,  1661,  1669,  1000,  1686,  1672,
                                                                //    124     156,  1674,   185,  1676,   188,  1678,   190,  1680,   192,  1682,
                                                                //    125     195,  1684,   197,  1686,   161,  1694,  1689,  1006,  1694,  1398,
                                                                //    126    1501,  1528,  1006,  1700,  1698,   200,  1902,  1700,  1000,  1706,
                                                                //    127    1704,   205,  1001,  1706,  1000,  1714,  1712,   205,  1001,  1342,
                                                                //    128    1706,  1714,  1000,  1723,  1723,  1300,  1316,  1335,   183,  1300,
                                                                //    129    1316,  1335,  1730,  1728,   156,  1300,  1003,  1730,  1000,  1737,
                                                                //    130    1733,   207,  1735,   214,  1737,  1000,  1742,  1740,   223,  1742,
                                                                //    131     229,  1747,  1745,   140,  1747,   106,  1757,  1755,  1393,  1403,
                                                                //    132    1467,   140,  1599,  1747,  1757,  1000,  1764,  1762,  1431,  1009,
                                                                //    133    1493,  1764,  1000,  1772,  1768,  1001,  1857,  1772,   195,  1445,
                                                                //    134     188,  1785,  1780,  1005,     7,  1005,    13,  1005,     9,  1785,
                                                                //    135    1764,     7,  1005,     9,  1792,  1789,  1764,  1883,  1792,  1005,
                                                                //    136    1792,  1805,  1799,     7,  1005,    13,  1005,     9,  1803,     7,
                                                                //    137    1005,     9,  1805,  1000,  1811,  1809,    13,  1003,  1811,  1000,
                                                                //    138    1817,  1814,  1764,  1817,  1005,  1883,  1857,  1823,  1012,  1005,
                                                                //    139      13,  1005,  1828,  1013,  1005,    13,  1785,  1835,  1014,  1005,
                                                                //    140      13,  1005,    13,  1811,  1839,  1015,  1811,  1805,  1844,  1016,
                                                                //    141    1005,    13,  1811,  1849,  1017,  1772,    13,  1811,  1854,  1018,
                                                                //    142    1772,    13,  1772,  1857,  1019,  1005,  1863,  1861,     1,  1005,
                                                                //    143    1863,  1000,  1883,  1872,    21,  1005,    13,  1895,  1001,  1342,
                                                                //    144    1706,  1876,   161,   237,  1005,  1879,  1002,  1817,  1883,   239,
                                                                //    145     205,  1003,  1890,  1888,     7,  1005,     9,  1890,  1000,  1895,
                                                                //    146    1893,   156,  1895,  1000,  1902,  1898,   243,  1900,   156,  1902,
                                                                //    147    1000,  1943,  1910,  1010,  1001,  1342,  1706,  1011,  1553,  1918,
                                                                //    148     161,  1001,     7,  1300,  1316,  1335,     9,  1921,   161,  1445,
                                                                //    149    1924,   245,  1008,  1926,   255,  1931,   262,  1300,  1316,  1335,
                                                                //    150    1933,   113,  1936,   270,   113,  1938,   278,  1940,   270,  1943,
                                                                //    151     284,  1457,  2149,  1949,  1010,  1902,  1011,  1686,  1967,   292,
                                                                //    152    1001,  1342,  1706,   156,  1300,  1316,  1335,    13,  1300,  1316,
                                                                //    153    1335,    13,  1300,  1316,  1335,  1006,  1970,   298,  1006,  1973,
                                                                //    154    1445,   183,  1985,  1398,  1010,  1501,  1528,   305,  1011,  1010,
                                                                //    155    1902,  1011,  1694,  1006,  1988,    11,  1007,  1992,  1403,  1588,
                                                                //    156    1006,  1995,   310,  1006,  2004,  1010,  1730,  1420,  1011,  1571,
                                                                //    157    1001,  1484,  1006,  2007,   314,  1007,  2011,   322,  1576,  1006,
                                                                //    158    2014,   328,  1006,  2019,   310,   334,   337,  1006,  2026,  1001,
                                                                //    159       7,  1309,  1003,     9,   183,  2032,   345,  1009,  1635,  1661,
                                                                //    160    1006,  2036,  1450,   284,  1006,  2040,   352,  1001,  1006,  2044,
                                                                //    161     361,  1403,  1624,  2050,  1737,  1742,   352,  1001,  1006,  2053,
                                                                //    162     365,  1006,  2057,    68,    86,  1006,  2061,    21,  1863,  1006,
                                                                //    163    2069,   371,  1005,  1644,   161,  1445,  1651,  1006,  2074,   310,
                                                                //    164     334,   377,  1006,  2079,   310,   334,   365,  1006,  2084,   382,
                                                                //    165     118,   389,  1006,  2090,   164,  1001,  1706,  1484,  1006,  2095,
                                                                //    166     391,   101,  1001,  1006,  2098,   399,  1006,  2103,   310,   334,
                                                                //    167     399,  1006,  2107,   404,  1003,  1006,  2111,   412,  1694,  1006,
                                                                //    168    2120,   106,   419,  1001,     7,  1757,  1747,     9,  1006,  2129,
                                                                //    169     106,  1010,  1588,  1011,     7,  1001,     9,  1006,  2136,  1010,
                                                                //    170    1420,   101,  1011,  1009,  1006,  2147,   106,   164,  1010,  1001,
                                                                //    171    1700,  1011,     7,  1001,     9,  1006,  2149,  1006;
                                                                //    172  SS= 1943
#line 172 "regression-compile-tmp/allimpc1-77.imp"
SS = 1943;
                                                                //    173           %OWNBYTEINTEGERARRAY OPC(0:120)=0,
#line 173 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char OPC[121] = { 0, 8, 9, 16, 17, 18, 19, 32, 33, 34, 35, 48, 49, 50, 51, 36, 52, 0, 69, 70, 71, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 104, 105, 106, 107, 108, 109, 110, 111, 120, 121, 122, 123, 124, 125, 126, 127, 0, 112, 96, 80, 78, 79, 76, 75, 74, 73, 72, 68, 67, 66, 65, 64, 0, 144, 152, 134, 135, 0, 145, 146, 148, 149, 150, 151, 156, 158, 157, 159, 130, 132, 133, 0, 136, 137, 138, 139, 140, 141, 142, 143, 0, 208, 209, 210, 212, 213, 214, 215, 216, 220, 221, 222, 223, 211, 0, 241, 242, 243, 248, 249, 250, 251, 252, 253, 0, 10, 4, 128,  };
                                                                //    174               8,9,X'10',X'11',X'12',
                                                                //    175                 X'13',X'20',X'21',X'22',X'23',
                                                                //    176                 X'30',X'31',X'32',X'33',X'24',
                                                                //    177                 X'34',0,X'45',X'46',X'47',
                                                                //    178                 X'54',X'55',X'56',X'57',X'58',X'59',X'5A',X'5B',X'5C',
                                                                //    179                 X'5D',X'5E',X'5F',X'68',X'69',X'6A',
                                                                //    180                 X'6B',X'6C',X'6D',X'6E',X'6F',
                                                                //    181                 X'78',X'79',X'7A',X'7B',X'7C',
                                                                //    182                 X'7D',X'7E',X'7F',0,X'70',
                                                                //    183                 X'60',X'50',X'4E',X'4F',X'4C',
                                                                //    184                 X'4B',X'4A',X'49',X'48',X'44',
                                                                //    185                 X'43',X'42',X'41',X'40',0,
                                                                //    186                 X'90',X'98',X'86',X'87',0,
                                                                //    187                 X'91',X'92',X'94',X'95',X'96',
                                                                //    188                 X'97',X'9C',X'9E',X'9D',X'9F',
                                                                //    189                 X'82',X'84',X'85',0,X'88',
                                                                //    190                 X'89',X'8A',X'8B',X'8C',X'8D',
                                                                //    191                 X'8E',X'8F',0,X'D0',X'D1',
                                                                //    192                 X'D2',X'D4',X'D5',X'D6',X'D7',
                                                                //    193                 X'D8',X'DC',X'DD',X'DE',X'DF',
                                                                //    194                 X'D3',0,X'F1',X'F2',X'F3',
                                                                //    195                 X'F8',X'F9',X'FA',X'FB',X'FC',
                                                                //    196                 X'FD',0,10,4,X'80';
                                                                //    197           %OWNINTEGERARRAY NEM(0:120)=M'CNOP',
#line 197 "regression-compile-tmp/allimpc1-77.imp"
static int NEM[121] = { 1129205584, 4805451, 5460811, 19536, 19534, 19540, 19523, 5001284, 5000772, 5002308, 4997956, 5001285, 5000773, 5002309, 4997957, 18500, 18501, 0, 4342092, 4342612, 16963, 78, 17228, 79, 88, 76, 67, 65, 83, 77, 68, 16716, 21324, 19524, 17220, 16708, 21316, 19780, 17476, 16727, 21335, 19525, 17221, 16709, 21317, 19781, 17477, 16725, 21333, 0, 5461061, 5461060, 21332, 4412996, 4412994, 19784, 21320, 16712, 17224, 19528, 17752, 18755, 5461059, 19521, 5461064, 0, 5461069, 19533, 4347976, 1113082949, 0, 21581, 5068361, 20041, 4410441, 20297, 22601, 5456982, 4736086, 5522518, 4410179, 20547, 5722692, 5391428, 0, 5460556, 5459020, 5460545, 5459009, 1397900364, 1397507148, 1397900353, 1397507137, 0, 5460816, 5068366, 5068355, 20035, 4410435, 20291, 22595, 5002064, 21586, 5526100, 17732, 1162104139, 5068378, 0, 5068367, 1346454347, 1431195723, 5914960, 17232, 16720, 21328, 19792, 17488, 0, 5461571, 5460045, 4801612,  };
                                                                //    198                 M'ISK',M'SSK',M'LP',M'LN',M'LT',
                                                                //    199                 M'LC',M'LPD',M'LND',M'LTD',M'LCD',
                                                                //    200                 M'LPE',M'LNE',M'LTE',M'LCE',M'HD',
                                                                //    201                 M'HE',0,M'BAL',M'BCT',M'BC',
                                                                //    202                 'N',M'CL','O','X','L','C','A','S','M','D',
                                                                //    203                 M'AL',M'SL',M'LD',M'CD',M'AD',
                                                                //    204                 M'SD',M'MD',M'DD',M'AW',M'SW',
                                                                //    205                 M'LE',M'CE',M'AE',M'SE',M'ME',
                                                                //    206                 M'DE',M'AU',M'SU',0,M'STE',
                                                                //    207                 M'STD',M'ST',M'CVD',M'CVB',M'MH',
                                                                //    208                 M'SH',M'AH',M'CH',M'LH',M'EX',
                                                                //    209                 M'IC',M'STC',M'LA',M'STH',0,
                                                                //    210                 M'STM',M'LM',M'BXH',M'BXLE',0,
                                                                //    211                 M'TM',M'MVI',M'NI',M'CLI',M'OI',
                                                                //    212                 M'XI',M'SDV',M'HDV',M'TDV',M'CKC',
                                                                //    213                 M'PC',M'WRD',M'RDD',0,M'SRL',
                                                                //    214                 M'SLL',M'SRA',M'SLA',M'SRDL',M'SLDL',
                                                                //    215                 M'SRDA',M'SLDA',0,M'SSP',M'MVN',
                                                                //    216                 M'MVC',M'NC',M'CLC',M'OC',M'XC',
                                                                //    217                 M'LSP',M'TR',M'TRT',M'ED',M'EDMK',
                                                                //    218                 M'MVZ',0,M'MVO',M'PACK',M'UNPK',
                                                                //    219                 M'ZAP',M'CP',M'AP',M'SP',M'MP',
                                                                //    220                 M'DP',0,M'SVC',M'SPM',M'IDL';
                                                                //    221           %OWNSHORTINTEGERARRAY CLODS(0:88)=  %C
#line 221 "regression-compile-tmp/allimpc1-77.imp"
static short CLODS[89] = { 4, 20685, 28, 22733, 92, 4, 20731, 60, 17916, 76, 6, 22560, 8192, 1568, 35104, 24, 5634, 0, 8, 20656, 0, 19120, 16386, 16827, 7, 21693, 84, 4, 22557, 36, 37376, 4097, 11, 1296, 10278, 28269, 72, 27245, 40, 11046, 18352, 4116, 27181, 48, 4, 36867, 45056, 16827, 16, 5, 16640, 0, 22764, 186, 1534, 5, 36942, 45072, 39118, 53248, 1534, 7, 36942, 45072, 39119, 0, 39001, 61460, 1534, 5, 16640, 255, 35072, 24, 5648, 6, 16640, 4, 22973, 68, 18208, 49236, 6, 24576, 45120, 16640, 12, 20480, 45128,  };
                                                                //    222                 4,X'50CD',X'001C',X'58CD',X'5C',
                                                                //    223                 4,X'50FB',X'003C',X'45FC',X'4C',
                                                                //    224           6,X'5820',X'2000',X'0620',
                                                                //    225                 X'8920',24,X'1602',0,
                                                                //    226                 8,X'50B0',0,X'4AB0',X'4002',
                                                                //    227                     X'41BB',X'7',X'54BD',84,
                                                                //    228                 4,X'581D',36,X'9200',X'1001',
                                                                //    229                 11,X'0510',X'2826',X'6E6D',X'48',
                                                                //    230                     X'6A6D',X'28',X'2B26',X'47B0',
                                                                //    231                     X'1014',X'6A2D',X'30',
                                                                //    232                 4, X'9003',X'B000',X'41BB',X'10',
                                                                //    233                 5, X'4100',0,X'58EC',186,X'5FE',
                                                                //    234                 5, X'904E',X'B010',X'98CE',
                                                                //    235                     X'D000',X'5FE',
                                                                //    236                 7, X'904E',X'B010',X'98CF',0,
                                                                //    237                     X'9859',X'F014',X'5FE',
                                                                //    238                 5,X'4100',255,X'8900',X'18',X'1610',
                                                                //    239                 6,X'4100',4,X'59BD',X'44',
                                                                //    240                     X'4720',X'C054',
                                                                //    241                 6,X'6000',X'B040',X'4100',12,X'5000',X'B048'
                                                                //    242           %OWNBYTEINTEGERARRAY TSNAME (0:50)=0(8),
#line 242 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char TSNAME[51] = { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 26, 1, 1, 26, 0, 0, 2, 1, 26, 26, 26, 26, 26, 26, 26, 26, 3, 9, 17, 26, 26, 1, 0, 1, 26, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0,  };
                                                                //    243                 1,0(5),1,26,1,1,26,0(2),2,1,26(8),
                                                                //    244                 3,9,17,26(2),1,0,1,26,0(2),5,0(8)
                                                                //    245           NEWLINES(3); SPACES(30)
#line 245 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINES(3);
#line 245 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES(30);
                                                                //    246           print string("E.R.C.C. IMP(SYS1) COMPILER ")
#line 246 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("E.R.C.C. IMP(SYS1) COMPILER "));
                                                                //    247           print string(" RELEASE 5 ALL-IMP VERSION")
#line 247 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" RELEASE 5 ALL-IMP VERSION"));
                                                                //    248           print string("   DATED 1/5/70")
#line 248 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("   DATED 1/5/70"));
                                                                //    249           NEWLINES(3)
#line 249 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINES(3);
                                                                //    250           %OWNBYTEINTEGERARRAY BYTES(0:3)=4,1,2,8;
#line 250 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char BYTES[4] = { 4, 1, 2, 8,  };
                                                                //    251           %OWNBYTEINTEGERARRAY PRECEDENCE (1:12)=0,3,3,3,3,4,4,4,4,5,5,5;
#line 251 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char PRECEDENCE[12] = { 0, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5,  };
                                                                //    252           %OWNBYTEINTEGERARRAY TYPEFLAG(1:6)=1,2,
#line 252 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char TYPEFLAG[6] = { 1, 2, 9, 17, 26, 5,  };
                                                                //    253                 B'1001',B'10001',B'11010',5;
                                                                //    254           %OWNINTEGER MASK1=X'0F0F0F0F'
#line 254 "regression-compile-tmp/allimpc1-77.imp"
static int MASK1 = 252645135;
                                                                //    255           %OWNINTEGER MASK2=X'0F0F0F0F'
#line 255 "regression-compile-tmp/allimpc1-77.imp"
static int MASK2 = 252645135;
                                                                //    256           %OWNSHORTINTEGER MAXLEVELS=11
#line 256 "regression-compile-tmp/allimpc1-77.imp"
static short MAXLEVELS = 11;
                                                                //    257           %OWNINTEGER CODER=12
#line 257 "regression-compile-tmp/allimpc1-77.imp"
static int CODER = 12;
                                                                //    258           %OWNINTEGER  LINK =15
#line 258 "regression-compile-tmp/allimpc1-77.imp"
static int LINK = 15;
                                                                //    259           %OWNINTEGER  WSPR =11
#line 259 "regression-compile-tmp/allimpc1-77.imp"
static int WSPR = 11;
                                                                //    260           %OWNINTEGER  GLA =13
#line 260 "regression-compile-tmp/allimpc1-77.imp"
static int GLA = 13;
                                                                //    261           %SHORTINTEGER CCSIZE,ARSIZE,DSIZE,NROUTS
#line 261 "regression-compile-tmp/allimpc1-77.imp"
short CCSIZE;
#line 261 "regression-compile-tmp/allimpc1-77.imp"
short ARSIZE;
#line 261 "regression-compile-tmp/allimpc1-77.imp"
short DSIZE;
#line 261 "regression-compile-tmp/allimpc1-77.imp"
short NROUTS;
                                                                //    262           %ROUTINESPEC SIZES
#line 262 "regression-compile-tmp/allimpc1-77.imp"
auto void SIZES( void );
                                                                //    263           %INTEGER ASL,NNAMES
#line 263 "regression-compile-tmp/allimpc1-77.imp"
int ASL;
#line 263 "regression-compile-tmp/allimpc1-77.imp"
int NNAMES;
                                                                //    264           %INTEGER CABUF,PPCURR,QPREAL,OLDLINE
#line 264 "regression-compile-tmp/allimpc1-77.imp"
int CABUF;
#line 264 "regression-compile-tmp/allimpc1-77.imp"
int PPCURR;
#line 264 "regression-compile-tmp/allimpc1-77.imp"
int QPREAL;
#line 264 "regression-compile-tmp/allimpc1-77.imp"
int OLDLINE;
                                                                //    265           %INTEGER LINE,LENGTH,LENGTHP,N0,NUM,SNUM
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int LINE;
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int LENGTH;
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int LENGTHP;
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int N0;
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int NUM;
#line 265 "regression-compile-tmp/allimpc1-77.imp"
int SNUM;
                                                                //    266           %INTEGER RLEVEL,NMAX,OWNLINK,CONSTPTR
#line 266 "regression-compile-tmp/allimpc1-77.imp"
int RLEVEL;
#line 266 "regression-compile-tmp/allimpc1-77.imp"
int NMAX;
#line 266 "regression-compile-tmp/allimpc1-77.imp"
int OWNLINK;
#line 266 "regression-compile-tmp/allimpc1-77.imp"
int CONSTPTR;
                                                                //    267           %INTEGER PLABEL,LEVEL,CA,MARKER1,MARKER2,LABSET
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int PLABEL;
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int LEVEL;
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int CA;
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int MARKER1;
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int MARKER2;
#line 267 "regression-compile-tmp/allimpc1-77.imp"
int LABSET;
                                                                //    268           %INTEGER R13,RP13,SIGFIGS
#line 268 "regression-compile-tmp/allimpc1-77.imp"
int R13;
#line 268 "regression-compile-tmp/allimpc1-77.imp"
int RP13;
#line 268 "regression-compile-tmp/allimpc1-77.imp"
int SIGFIGS;
                                                                //    269           %BYTEINTEGER AFLAG,FFLAG,CHECKS,SBFLAG
#line 269 "regression-compile-tmp/allimpc1-77.imp"
unsigned char AFLAG;
#line 269 "regression-compile-tmp/allimpc1-77.imp"
unsigned char FFLAG;
#line 269 "regression-compile-tmp/allimpc1-77.imp"
unsigned char CHECKS;
#line 269 "regression-compile-tmp/allimpc1-77.imp"
unsigned char SBFLAG;
                                                                //    270           %BYTEINTEGER FAULTY,MONE,HIT,QU,PERM,MCSWITCH,LIST,ALLLONG
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char FAULTY;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char MONE;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char HIT;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char QU;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char PERM;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char MCSWITCH;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char LIST;
#line 270 "regression-compile-tmp/allimpc1-77.imp"
unsigned char ALLLONG;
                                                                //    271           %BYTEINTEGER LINENOS,DIAGS1,DIAGS2,CHECKSP
#line 271 "regression-compile-tmp/allimpc1-77.imp"
unsigned char LINENOS;
#line 271 "regression-compile-tmp/allimpc1-77.imp"
unsigned char DIAGS1;
#line 271 "regression-compile-tmp/allimpc1-77.imp"
unsigned char DIAGS2;
#line 271 "regression-compile-tmp/allimpc1-77.imp"
unsigned char CHECKSP;
                                                                //    272           %BYTEINTEGER CTYPE,DCOMP,COMPILER,CPRMODE
#line 272 "regression-compile-tmp/allimpc1-77.imp"
unsigned char CTYPE;
#line 272 "regression-compile-tmp/allimpc1-77.imp"
unsigned char DCOMP;
#line 272 "regression-compile-tmp/allimpc1-77.imp"
unsigned char COMPILER;
#line 272 "regression-compile-tmp/allimpc1-77.imp"
unsigned char CPRMODE;
                                                                //    273           %BYTEINTEGER UNASS,PRINTMAP
#line 273 "regression-compile-tmp/allimpc1-77.imp"
unsigned char UNASS;
#line 273 "regression-compile-tmp/allimpc1-77.imp"
unsigned char PRINTMAP;
                                                                //    274           %LONGREAL CVALUE,IMAX
#line 274 "regression-compile-tmp/allimpc1-77.imp"
double CVALUE;
#line 274 "regression-compile-tmp/allimpc1-77.imp"
double IMAX;
                                                                //    275           %INTEGER MASK,RBASE,SFLABEL
#line 275 "regression-compile-tmp/allimpc1-77.imp"
int MASK;
#line 275 "regression-compile-tmp/allimpc1-77.imp"
int RBASE;
#line 275 "regression-compile-tmp/allimpc1-77.imp"
int SFLABEL;
                                                                //    276  %INTEGER NEXT,N,NR,ITEM,STRINST
#line 276 "regression-compile-tmp/allimpc1-77.imp"
int NEXT;
#line 276 "regression-compile-tmp/allimpc1-77.imp"
int N;
#line 276 "regression-compile-tmp/allimpc1-77.imp"
int NR;
#line 276 "regression-compile-tmp/allimpc1-77.imp"
int ITEM;
#line 276 "regression-compile-tmp/allimpc1-77.imp"
int STRINST;
                                                                //    277           %INTEGER P,Q,R,S,T,U,V,NEST,FNAME
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int P;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int R;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int S;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int T;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int U;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int V;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int NEST;
#line 277 "regression-compile-tmp/allimpc1-77.imp"
int FNAME;
                                                                //    278           %INTEGER XREFLINK,LDPTR
#line 278 "regression-compile-tmp/allimpc1-77.imp"
int XREFLINK;
#line 278 "regression-compile-tmp/allimpc1-77.imp"
int LDPTR;
                                                                //    279           %SHORTINTEGER NEPS,EPLINK
#line 279 "regression-compile-tmp/allimpc1-77.imp"
short NEPS;
#line 279 "regression-compile-tmp/allimpc1-77.imp"
short EPLINK;
                                                                //    280           %INTEGER SSTL,QMAX,STMTS
#line 280 "regression-compile-tmp/allimpc1-77.imp"
int SSTL;
#line 280 "regression-compile-tmp/allimpc1-77.imp"
int QMAX;
#line 280 "regression-compile-tmp/allimpc1-77.imp"
int STMTS;
                                                                //    281                 %INTEGERARRAY REGISTER(0:15)
#line 281 "regression-compile-tmp/allimpc1-77.imp"
int REGISTER[16];
                                                                //    282           %INTEGERARRAY ST(0:1300)
#line 282 "regression-compile-tmp/allimpc1-77.imp"
int ST[1301];
                                                                //    283           %INTEGER %ARRAY SET,CODEBASE,FREG,RAL(0:MAXLEVELS)
#line 283 "regression-compile-tmp/allimpc1-77.imp"
int SET[((MAXLEVELS) + ((short)(1)))];
#line 283 "regression-compile-tmp/allimpc1-77.imp"
int CODEBASE[((MAXLEVELS) + ((short)(1)))];
#line 283 "regression-compile-tmp/allimpc1-77.imp"
int FREG[((MAXLEVELS) + ((short)(1)))];
#line 283 "regression-compile-tmp/allimpc1-77.imp"
int RAL[((MAXLEVELS) + ((short)(1)))];
                                                                //    284           %SHORTINTEGERARRAY CYCLE,JUMP,NAME,LABEL,FLAG,SBR,WSP,%C
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short CYCLE[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short JUMP[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short NAME[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short LABEL[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short FLAG[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short SBR[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short WSP[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short L[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short M[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short LWSP[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short MDARR[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short RNEXT[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short NMDECS[((MAXLEVELS) + ((short)(1)))];
#line 284 "regression-compile-tmp/allimpc1-77.imp"
short STRWSP[((MAXLEVELS) + ((short)(1)))];
                                                                //    285  L,M,LWSP,MDARR,RNEXT,NMDECS,STRWSP(0:MAXLEVELS)
                                                                //    286           %SHORTINTEGERARRAY CODE(0:192)
#line 286 "regression-compile-tmp/allimpc1-77.imp"
short CODE[193];
                                                                //    287           %SHORTINTEGERARRAY PAGENOS(0:50)
#line 287 "regression-compile-tmp/allimpc1-77.imp"
short PAGENOS[51];
                                                                //    288           %INTEGERARRAY UVARREG(5:8)
#line 288 "regression-compile-tmp/allimpc1-77.imp"
int UVARREG[4];
                                                                //    289           SIZES
#line 289 "regression-compile-tmp/allimpc1-77.imp"
SIZES();
                                                                //    290           %BYTEINTEGERARRAY CC(0:CCSIZE),ASLIST(0:ASL),LETT(0:DSIZE+20)
#line 290 "regression-compile-tmp/allimpc1-77.imp"
unsigned char CC[((CCSIZE) + ((short)(1)))];
#line 290 "regression-compile-tmp/allimpc1-77.imp"
unsigned char ASLIST[((ASL) + ((int)(1)))];
#line 290 "regression-compile-tmp/allimpc1-77.imp"
unsigned char LETT[(((unsigned char)((((int)(DSIZE)) + (20)))) + (1))];
                                                                //    291           %SHORTINTEGERARRAY RA(0:NROUTS),A(-2:ARSIZE)
#line 291 "regression-compile-tmp/allimpc1-77.imp"
short RA[((NROUTS) + ((short)(1)))];
#line 291 "regression-compile-tmp/allimpc1-77.imp"
short A[(((unsigned char)(((ARSIZE) + ((short)(2))))) + (1))];
                                                                //    292           %SHORTINTEGERARRAY WORD,TAGS(0:NNAMES)
#line 292 "regression-compile-tmp/allimpc1-77.imp"
short WORD[((NNAMES) + ((int)(1)))];
#line 292 "regression-compile-tmp/allimpc1-77.imp"
short TAGS[((NNAMES) + ((int)(1)))];
                                                                //    293           {%SYSTEMINTEGERFNSPEC COM(%INTEGER N)
                                                                //    294           {%SYSTEMROUTINESPEC SET COM(%INTEGER I,J)
                                                                //    295           {%SYSTEMROUTINESPEC IOCP(%INTEGER A,B)
                                                                //    296           %ROUTINESPEC CNOP(%INTEGER I,J)
#line 296 "regression-compile-tmp/allimpc1-77.imp"
auto void CNOP( int I, int J );
                                                                //    297           %ROUTINESPEC PCONST(%INTEGER X)
#line 297 "regression-compile-tmp/allimpc1-77.imp"
auto void PCONST( int X );
                                                                //    298           %ROUTINESPEC PSI(%INTEGER OPCODE,J,BASE,DISP)
#line 298 "regression-compile-tmp/allimpc1-77.imp"
auto void PSI( int OPCODE, int J, int BASE, int DISP );
                                                                //    299           %ROUTINESPEC PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q)
#line 299 "regression-compile-tmp/allimpc1-77.imp"
auto void PSS( int OPCODE, int N, int BASE, int DISP, int P, int Q );
                                                                //    300           %ROUTINESPEC PRX(%INTEGER OPCODE,R1,R2,BASE,DISP)
#line 300 "regression-compile-tmp/allimpc1-77.imp"
auto void PRX( int OPCODE, int R1, int R2, int BASE, int DISP );
                                                                //    301           %ROUTINESPEC PACLOD(%INTEGER PTR,AT,VALUE)
#line 301 "regression-compile-tmp/allimpc1-77.imp"
auto void PACLOD( int PTR, int AT, int VALUE );
                                                                //    302           %ROUTINESPEC PCLOD(%INTEGER PTR)
#line 302 "regression-compile-tmp/allimpc1-77.imp"
auto void PCLOD( int PTR );
                                                                //    303           %ROUTINESPEC PLANT(%INTEGER VALUE)
#line 303 "regression-compile-tmp/allimpc1-77.imp"
auto void PLANT( int VALUE );
                                                                //    304           %ROUTINESPEC PRR (%INTEGER OPCODE,R1,R2)
#line 304 "regression-compile-tmp/allimpc1-77.imp"
auto void PRR( int OPCODE, int R1, int R2 );
                                                                //    305           %EXTERNALROUTINESPEC LPUT(%INTEGER A,B,C,D)
#line 305 "regression-compile-tmp/allimpc1-77.imp"
extern void LPUT( int A, int B, int C, int D );
                                                                //    306           %ROUTINESPEC PLUG(%INTEGER J,K)
#line 306 "regression-compile-tmp/allimpc1-77.imp"
auto void PLUG( int J, int K );
                                                                //    307           %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES)
#line 307 "regression-compile-tmp/allimpc1-77.imp"
auto void PRHEX( int VALUE, int PLACES );
                                                                //    308           %ROUTINESPEC INITIALISE
#line 308 "regression-compile-tmp/allimpc1-77.imp"
auto void INITIALISE( void );
                                                                //    309           %ROUTINESPEC PSYM(%INTEGER X)
#line 309 "regression-compile-tmp/allimpc1-77.imp"
auto void PSYM( int X );
                                                                //    310                  %ROUTINESPEC COMPARE
#line 310 "regression-compile-tmp/allimpc1-77.imp"
auto void COMPARE( void );
                                                                //    311           %ROUTINESPEC PNAME
#line 311 "regression-compile-tmp/allimpc1-77.imp"
auto void PNAME( void );
                                                                //    312           %ROUTINESPEC CONST(%BYTEINTEGER MODE)
#line 312 "regression-compile-tmp/allimpc1-77.imp"
auto void CONST( unsigned char MODE );
                                                                //    313           %ROUTINESPEC CONSTLIST
#line 313 "regression-compile-tmp/allimpc1-77.imp"
auto void CONSTLIST( void );
                                                                //    314           %ROUTINESPEC TEXTTEXT
#line 314 "regression-compile-tmp/allimpc1-77.imp"
auto void TEXTTEXT( void );
                                                                //    315           %ROUTINESPEC FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)
#line 315 "regression-compile-tmp/allimpc1-77.imp"
auto void FROMAR8( int PTR, double /*name*/*VALUE );
                                                                //    316           %ROUTINESPEC FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)
#line 316 "regression-compile-tmp/allimpc1-77.imp"
auto void FROMAR4( int PTR, int /*name*/*VALUE );
                                                                //    317           %ROUTINESPEC TOAR8(%INTEGER PTR,%LONGREAL VALUE)
#line 317 "regression-compile-tmp/allimpc1-77.imp"
auto void TOAR8( int PTR, double VALUE );
                                                                //    318           %ROUTINESPEC TOAR4(%INTEGER PTR,VALUE)
#line 318 "regression-compile-tmp/allimpc1-77.imp"
auto void TOAR4( int PTR, int VALUE );
                                                                //    319           %ROUTINESPEC CSS(%INTEGER P)
#line 319 "regression-compile-tmp/allimpc1-77.imp"
auto void CSS( int P );
                                                                //    320           %ROUTINESPEC FAULT(%BYTEINTEGER N)
#line 320 "regression-compile-tmp/allimpc1-77.imp"
auto void FAULT( unsigned char N );
                                                                //    321            %ROUTINESPEC FINALISE
#line 321 "regression-compile-tmp/allimpc1-77.imp"
auto void FINALISE( void );
                                                                //    322                  %ROUTINESPEC PRINT NAME (%INTEGER N)
#line 322 "regression-compile-tmp/allimpc1-77.imp"
auto void PRINTNAME( int N );
                                                                //    323  
                                                                //    324           ! Using an alternative RECODE extracted from PSR's IMPI interpreter.
                                                                //    325           %EXTERNALROUTINESPEC RECODE (%INTEGER START,FINISH,CA)
#line 325 "regression-compile-tmp/allimpc1-77.imp"
extern void RECODE( int START, int FINISH, int CA );
                                                                //    326  
                                                                //    327           %ROUTINESPEC READ LINE(%BYTEINTEGER N)
#line 327 "regression-compile-tmp/allimpc1-77.imp"
auto void READLINE( unsigned char N );
                                                                //    328           %on %event 9 {,18} %start
#line 328 "regression-compile-tmp/allimpc1-77.imp"
if (!_imp_on_event(9)) goto L_0006;  /* TO DO: Remove %on %event handler just before L_0006: if present for this block */
                                                                //    329             %if 0=0 {event_event = 9} {TEMP UNTIL RECORD FIELDS WORKING} %then ->INEND
#line 329 "regression-compile-tmp/allimpc1-77.imp"
if (((0) != (0))) goto L_0007;
#line 329 "regression-compile-tmp/allimpc1-77.imp"
goto U_1000;
#line 329 "regression-compile-tmp/allimpc1-77.imp"
L_0007:;
                                                                //    330             ! %if event_event = 18 %then ->SUBSCHAR
                                                                //    331             ! I need to find out which characters were being substituted!
                                                                //    332             ! %signal %event event
                                                                //    333           %finish
#line 333 "regression-compile-tmp/allimpc1-77.imp"
L_0006:;
                                                                //    334   ! START OF COMPILATION
                                                                //    335           INITIALISE
#line 335 "regression-compile-tmp/allimpc1-77.imp"
INITIALISE();
                                                                //    336           LPUT(0,1,1,ADDR(LETT(1)))
#line 336 "regression-compile-tmp/allimpc1-77.imp"
LPUT(0, 1, 1, _imp_ADDR(&LETT[1]));
                                                                //    337  L8:       READLINE(0); Q=1
#line 337 "regression-compile-tmp/allimpc1-77.imp"
U_1001:;
#line 337 "regression-compile-tmp/allimpc1-77.imp"
READLINE(0);
#line 337 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
                                                                //    338  L5:       R=1; P=SS
#line 338 "regression-compile-tmp/allimpc1-77.imp"
U_1002:;
#line 338 "regression-compile-tmp/allimpc1-77.imp"
R = 1;
#line 338 "regression-compile-tmp/allimpc1-77.imp"
P = SS;
                                                                //    339           OLDLINE=LINE; COMPARE
#line 339 "regression-compile-tmp/allimpc1-77.imp"
OLDLINE = LINE;
#line 339 "regression-compile-tmp/allimpc1-77.imp"
COMPARE();
                                                                //    340           FAULT(102) %IF R>ARSIZE
#line 340 "regression-compile-tmp/allimpc1-77.imp"
if (((R) <= (ARSIZE))) goto L_0008;
#line 340 "regression-compile-tmp/allimpc1-77.imp"
FAULT(102);
#line 340 "regression-compile-tmp/allimpc1-77.imp"
L_0008:;
                                                                //    341                 ->L6 %IF HIT=0
#line 341 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_0009;
#line 341 "regression-compile-tmp/allimpc1-77.imp"
goto U_1003;
#line 341 "regression-compile-tmp/allimpc1-77.imp"
L_0009:;
                                                                //    342           STMTS=STMTS+1
#line 342 "regression-compile-tmp/allimpc1-77.imp"
STMTS = (((int)(STMTS)) + (1));
                                                                //    343            CSS(1)
#line 343 "regression-compile-tmp/allimpc1-77.imp"
CSS(1);
                                                                //    344           %IF DCOMP#0 %AND CA>CABUF %THEN %START
#line 344 "regression-compile-tmp/allimpc1-77.imp"
if (((DCOMP) == (0))) goto L_000a;
#line 344 "regression-compile-tmp/allimpc1-77.imp"
if (((CA) <= (CABUF))) goto L_000a;
                                                                //    345           RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF)
#line 345 "regression-compile-tmp/allimpc1-77.imp"
RECODE(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF);
                                                                //    346           NEWLINE
#line 346 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
                                                                //    347           LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0)))
#line 347 "regression-compile-tmp/allimpc1-77.imp"
LPUT(1, (((int)(CA)) - (CABUF)), CABUF, _imp_ADDR(&CODE[0]));
                                                                //    348           PPCURR=0; CABUF=CA; %FINISH
#line 348 "regression-compile-tmp/allimpc1-77.imp"
PPCURR = 0;
#line 348 "regression-compile-tmp/allimpc1-77.imp"
CABUF = CA;
#line 348 "regression-compile-tmp/allimpc1-77.imp"
L_000a:;
                                                                //    349           ->L7 %IF A(1)=13;              ! END OF PROGRAM
#line 349 "regression-compile-tmp/allimpc1-77.imp"
if (((A[3]) != (13))) goto L_000b;
#line 349 "regression-compile-tmp/allimpc1-77.imp"
goto U_1004;
#line 349 "regression-compile-tmp/allimpc1-77.imp"
L_000b:;
                                                                //    350  L9:       ->L8 %IF Q>=LENGTH              ;->L5
#line 350 "regression-compile-tmp/allimpc1-77.imp"
U_1005:;
#line 350 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) < (LENGTH))) goto L_000c;
#line 350 "regression-compile-tmp/allimpc1-77.imp"
goto U_1001;
#line 350 "regression-compile-tmp/allimpc1-77.imp"
L_000c:;
#line 350 "regression-compile-tmp/allimpc1-77.imp"
goto U_1002;
                                                                //    351  L6:             FAULT(100); ->L9
#line 351 "regression-compile-tmp/allimpc1-77.imp"
U_1003:;
#line 351 "regression-compile-tmp/allimpc1-77.imp"
FAULT(100);
#line 351 "regression-compile-tmp/allimpc1-77.imp"
goto U_1005;
                                                                //    352  L7:             !DEAL WITH END OF PROGRAM
#line 352 "regression-compile-tmp/allimpc1-77.imp"
U_1004:;
                                                                //    353            FINALISE
#line 353 "regression-compile-tmp/allimpc1-77.imp"
FINALISE();
                                                                //    354           SET COM(24,0) %IF COMPILER =0 %AND FAULTY=0
#line 354 "regression-compile-tmp/allimpc1-77.imp"
if (((COMPILER) != (0))) goto L_000d;
#line 354 "regression-compile-tmp/allimpc1-77.imp"
if (((FAULTY) != (0))) goto L_000d;
#line 354 "regression-compile-tmp/allimpc1-77.imp"
SETCOM(24, 0);
#line 354 "regression-compile-tmp/allimpc1-77.imp"
L_000d:;
                                                                //    355           %STOP
#line 355 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //    356  INEND:   FAULT(108)
#line 356 "regression-compile-tmp/allimpc1-77.imp"
U_1000:;
#line 356 "regression-compile-tmp/allimpc1-77.imp"
FAULT(108);
                                                                //    357  SUBSCHAR:LINE=LINE+1;FAULT(48)
#line 357 "regression-compile-tmp/allimpc1-77.imp"
U_1006:;
#line 357 "regression-compile-tmp/allimpc1-77.imp"
LINE = (((int)(LINE)) + (1));
#line 357 "regression-compile-tmp/allimpc1-77.imp"
FAULT(48);
                                                                //    358           SPACES(5)
#line 358 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES(5);
                                                                //    359  L15:      READSYMBOL(I); ->L8 %IF I=10
#line 359 "regression-compile-tmp/allimpc1-77.imp"
U_1007:;
#line 359 "regression-compile-tmp/allimpc1-77.imp"
_imp_READSYMBOL(&I);
#line 359 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (10))) goto L_000e;
#line 359 "regression-compile-tmp/allimpc1-77.imp"
goto U_1001;
#line 359 "regression-compile-tmp/allimpc1-77.imp"
L_000e:;
                                                                //    360           PRINTSYMBOL(I); ->L15
#line 360 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(I);
#line 360 "regression-compile-tmp/allimpc1-77.imp"
goto U_1007;
                                                                //    361            %ROUTINE    FINALISE
#line 361 "regression-compile-tmp/allimpc1-77.imp"
void FINALISE( void )
#line 361 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    362           N0=N0+1 %IF N0&1#1
#line 362 "regression-compile-tmp/allimpc1-77.imp"
if (((((N0) & (1))) == (1))) goto L_000f;
#line 362 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (1));
#line 362 "regression-compile-tmp/allimpc1-77.imp"
L_000f:;
                                                                //    363           CNOP(0,8);ST(0)=X'20000'
#line 363 "regression-compile-tmp/allimpc1-77.imp"
CNOP(0, 8);
#line 363 "regression-compile-tmp/allimpc1-77.imp"
ST[0] = 131072;
                                                                //    364           ST(1)=X'10100000'
#line 364 "regression-compile-tmp/allimpc1-77.imp"
ST[1] = 269484032;
                                                                //    365           ST(4)=-1; ST(6)=255
#line 365 "regression-compile-tmp/allimpc1-77.imp"
ST[4] = (-1);
#line 365 "regression-compile-tmp/allimpc1-77.imp"
ST[6] = 255;
                                                                //    366  ST(8)=OWNLINK
#line 366 "regression-compile-tmp/allimpc1-77.imp"
ST[8] = OWNLINK;
                                                                //    367           ST(12)=X'41100000';           ! D'1'
#line 367 "regression-compile-tmp/allimpc1-77.imp"
ST[12] = 1091567616;
                                                                //    368           ST(14)=X'41200000';           ! D'2'
#line 368 "regression-compile-tmp/allimpc1-77.imp"
ST[14] = 1092616192;
                                                                //    369           ST(18)=X'4E000000';           ! FOR IN LINE FLOATING
#line 369 "regression-compile-tmp/allimpc1-77.imp"
ST[18] = 1308622848;
                                                                //    370           ST(20)=-4; ST(21)=-8
#line 370 "regression-compile-tmp/allimpc1-77.imp"
ST[20] = (-4);
#line 370 "regression-compile-tmp/allimpc1-77.imp"
ST[21] = (-8);
                                                                //    371           ST(22)=XREFLINK; XREFLINK=88
#line 371 "regression-compile-tmp/allimpc1-77.imp"
ST[22] = XREFLINK;
#line 371 "regression-compile-tmp/allimpc1-77.imp"
XREFLINK = 88;
                                                                //    372           ST(26)=X'80000000'; ST(27)=X'06492350'; ST(28)=M'ERMA'
#line 372 "regression-compile-tmp/allimpc1-77.imp"
ST[26] = (-2147483648);
#line 372 "regression-compile-tmp/allimpc1-77.imp"
ST[27] = 105456464;
#line 372 "regression-compile-tmp/allimpc1-77.imp"
ST[28] = 1163021633;
                                                                //    373           !!                          ^^^^^^^^^          ^^^^^^           WARNING! Big-endian issue?
                                                                //    374           ST(29)=X'904EB010';           ! ROUTINE ENTRY SUBROUTINE
#line 374 "regression-compile-tmp/allimpc1-77.imp"
ST[29] = (-1873891312);
                                                                //    375           ST(30)= X'5A10D01C'
#line 375 "regression-compile-tmp/allimpc1-77.imp"
ST[30] = 1511051292;
                                                                //    376           ST(31)=X'07F10700'
#line 376 "regression-compile-tmp/allimpc1-77.imp"
ST[31] = 133236480;
                                                                //    377           ST(32)=X'80808080'
#line 377 "regression-compile-tmp/allimpc1-77.imp"
ST[32] = (-2139062272);
                                                                //    378           ST(33)=X'80808080'
#line 378 "regression-compile-tmp/allimpc1-77.imp"
ST[33] = (-2139062272);
                                                                //    379           ST(38)=X'80000000'; ST(39)=X'06532349'; ST(40)=M'OCP '
#line 379 "regression-compile-tmp/allimpc1-77.imp"
ST[38] = (-2147483648);
#line 379 "regression-compile-tmp/allimpc1-77.imp"
ST[39] = 106111817;
#line 379 "regression-compile-tmp/allimpc1-77.imp"
ST[40] = 1329811488;
                                                                //    380           !!                         ^^^^^^^^^^^         ^^^^^^^          WARNING! More Big-endianness?
                                                                //    381           K=CA
#line 381 "regression-compile-tmp/allimpc1-77.imp"
K = CA;
                                                                //    382           LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0))) %UNLESS CA=CABUF
#line 382 "regression-compile-tmp/allimpc1-77.imp"
if (((CA) == (CABUF))) goto L_0010;
#line 382 "regression-compile-tmp/allimpc1-77.imp"
LPUT(1, (((int)(CA)) - (CABUF)), CABUF, _imp_ADDR(&CODE[0]));
#line 382 "regression-compile-tmp/allimpc1-77.imp"
L_0010:;
                                                                //    383           LPUT(2,N0<<2+4,0,ADDR(ST(0)));! GLA
#line 383 "regression-compile-tmp/allimpc1-77.imp"
LPUT(2, (((int)(((N0) << (2)))) + (4)), 0, _imp_ADDR(&ST[0]));
                                                                //    384           FAULT(99) %IF N0>1023
#line 384 "regression-compile-tmp/allimpc1-77.imp"
if (((N0) <= (1023))) goto L_0011;
#line 384 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 384 "regression-compile-tmp/allimpc1-77.imp"
L_0011:;
                                                                //    385           I=X'E2E2E2E2'
#line 385 "regression-compile-tmp/allimpc1-77.imp"
I = (-488447262);
                                                                //    386           LPUT(4,4,SSTL,ADDR(I))
#line 386 "regression-compile-tmp/allimpc1-77.imp"
LPUT(4, 4, SSTL, _imp_ADDR(&I));
                                                                //    387           %IF CONSTPTR&1#0 %THEN PSYM(0)
#line 387 "regression-compile-tmp/allimpc1-77.imp"
if (((((CONSTPTR) & (1))) == (0))) goto L_0012;
#line 387 "regression-compile-tmp/allimpc1-77.imp"
PSYM(0);
#line 387 "regression-compile-tmp/allimpc1-77.imp"
L_0012:;
                                                                //    388           ->L129 %IF FAULTY #0
#line 388 "regression-compile-tmp/allimpc1-77.imp"
if (((FAULTY) == (0))) goto L_0013;
#line 388 "regression-compile-tmp/allimpc1-77.imp"
goto U_1008;
#line 388 "regression-compile-tmp/allimpc1-77.imp"
L_0013:;
                                                                //    389           NEWLINE; WRITE(STMTS,4)
#line 389 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 389 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(STMTS, 4);
                                                                //    390           print string(" STATEMENTS COMPILED SUCCESSFULLY")
#line 390 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED SUCCESSFULLY"));
                                                                //    391  L120:          print string("
#line 391 "regression-compile-tmp/allimpc1-77.imp"
U_1009:;
#line 391 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nCODE OCCUPIES"));
                                                                //    392  CODE OCCUPIES")
                                                                //    393           WRITE(K,3);print string(" BYTES      GLAP")
#line 393 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(K, 3);
#line 393 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES      GLAP"));
                                                                //    394           WRITE(N0<<2,3); print string(" +")
#line 394 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(((N0) << (2)), 3);
#line 394 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" +"));
                                                                //    395           WRITE(CONSTPTR<<2,1); print string(" BYTES      DIAG TABLES")
#line 395 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(((CONSTPTR) << (2)), 1);
#line 395 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES      DIAG TABLES"));
                                                                //    396           WRITE(SSTL+4,4); print string(" BYTES      TOTAL")
#line 396 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE((((int)(SSTL)) + (4)), 4);
#line 396 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES      TOTAL"));
                                                                //    397           ST(0)=CA; ST(1)=N0<<2+4
#line 397 "regression-compile-tmp/allimpc1-77.imp"
ST[0] = CA;
#line 397 "regression-compile-tmp/allimpc1-77.imp"
ST[1] = (((int)(((N0) << (2)))) + (4));
                                                                //    398           ST(2)=(LDPTR<<2+7)&(-8); ST(3)=(SSTL+11)&(-8)
#line 398 "regression-compile-tmp/allimpc1-77.imp"
ST[2] = (((((int)(((LDPTR) << (2)))) + (7))) & ((-8)));
#line 398 "regression-compile-tmp/allimpc1-77.imp"
ST[3] = (((((int)(SSTL)) + (11))) & ((-8)));
                                                                //    399           ST(4)=CONSTPTR<<2
#line 399 "regression-compile-tmp/allimpc1-77.imp"
ST[4] = ((CONSTPTR) << (2));
                                                                //    400           ST(5)=CA+ST(1)+ST(2)+ST(3)+ST(4)
#line 400 "regression-compile-tmp/allimpc1-77.imp"
ST[5] = (((int)((((int)((((int)((((int)(CA)) + (ST[1])))) + (ST[2])))) + (ST[3])))) + (ST[4]));
                                                                //    401           WRITE(ST(5),5); print string(" BYTES")
#line 401 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(ST[5], 5);
#line 401 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" BYTES"));
                                                                //    402           NEWLINE
#line 402 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
                                                                //    403           NEWLINE
#line 403 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
                                                                //    404           LPUT(7,24,0,ADDR(ST(0)))
#line 404 "regression-compile-tmp/allimpc1-77.imp"
LPUT(7, 24, 0, _imp_ADDR(&ST[0]));
                                                                //    405  %RETURN
#line 405 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    406  L129:     print string("
#line 406 "regression-compile-tmp/allimpc1-77.imp"
U_1008:;
#line 406 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\nPROGRAM CONTAINS"));
                                                                //    407  PROGRAM CONTAINS"); WRITE(FAULTY,2); print string(" FAULTS"); ->L120
#line 407 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(FAULTY, 2);
#line 407 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" FAULTS"));
#line 407 "regression-compile-tmp/allimpc1-77.imp"
goto U_1009;
                                                                //    408           %END
#line 408 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block FINALISE at level 2
                                                                //    409           %ROUTINE     READ LINE(%BYTEINTEGER N)
#line 409 "regression-compile-tmp/allimpc1-77.imp"
void READLINE( unsigned char N )
#line 409 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    410           !%SHORTROUTINE
                                                                //    411           %INTEGER DEL
#line 411 "regression-compile-tmp/allimpc1-77.imp"
int DEL;
                                                                //    412           %BYTEINTEGER NP
#line 412 "regression-compile-tmp/allimpc1-77.imp"
unsigned char NP;
                                                                //    413           %COMMENT ABOUT 30% CPU TIME OF COMPILATION IS SPENT IN THIS
                                                                //    414           %COMMENT ROUTINE AS WRITTEN. A HAND CODED VERSION USING I
                                                                //    415           %COMMENT ISO CARD NOT READ SYMBOL IS USED IN PRODUCTION VRSN
                                                                //    416           Q=1; LINE=LINE+1
#line 416 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
#line 416 "regression-compile-tmp/allimpc1-77.imp"
LINE = (((int)(LINE)) + (1));
                                                                //    417           LENGTH=0; DEL=0
#line 417 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = 0;
#line 417 "regression-compile-tmp/allimpc1-77.imp"
DEL = 0;
                                                                //    418  L1:       ->START %UNLESS N=0 %AND NEXT SYMBOL=10;! IGNORE EMPTY LINES
#line 418 "regression-compile-tmp/allimpc1-77.imp"
U_100a:;
#line 418 "regression-compile-tmp/allimpc1-77.imp"
if (((N) != (0))) goto L_0014;
#line 418 "regression-compile-tmp/allimpc1-77.imp"
if (((_imp_NEXTSYMBOL()) == (10))) goto L_0015;
#line 418 "regression-compile-tmp/allimpc1-77.imp"
L_0014:;
#line 418 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 418 "regression-compile-tmp/allimpc1-77.imp"
L_0015:;
                                                                //    419           SKIP SYMBOL; ->L1;                       ! IN PROGRAM MODE ONLY
#line 419 "regression-compile-tmp/allimpc1-77.imp"
_imp_SKIPSYMBOL();
#line 419 "regression-compile-tmp/allimpc1-77.imp"
goto U_100a;
                                                                //    420  START:   ->L2 %IF LIST=0
#line 420 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 420 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) != (0))) goto L_0016;
#line 420 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 420 "regression-compile-tmp/allimpc1-77.imp"
L_0016:;
                                                                //    421           WRITE(LINE,5)
#line 421 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(LINE, 5);
                                                                //    422           PRINT SYMBOL('''') %IF N#0
#line 422 "regression-compile-tmp/allimpc1-77.imp"
if (((N) == (0))) goto L_0017;
#line 422 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(39);
#line 422 "regression-compile-tmp/allimpc1-77.imp"
L_0017:;
                                                                //    423           SPACES(4*LEVEL-N)
#line 423 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES((((unsigned char)((((int)(4)) * (LEVEL)))) - (N)));
                                                                //    424  L2:       READ SYMBOL(I)
#line 424 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 424 "regression-compile-tmp/allimpc1-77.imp"
_imp_READSYMBOL(&I);
                                                                //    425           PRINT SYMBOL(I) %UNLESS LIST=0
#line 425 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) == (0))) goto L_0018;
#line 425 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(I);
#line 425 "regression-compile-tmp/allimpc1-77.imp"
L_0018:;
                                                                //    426           ->L4 %UNLESS N=0
#line 426 "regression-compile-tmp/allimpc1-77.imp"
if (((N) == (0))) goto L_0019;
#line 426 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
#line 426 "regression-compile-tmp/allimpc1-77.imp"
L_0019:;
                                                                //    427           ->L3 %UNLESS I='%'
#line 427 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (37))) goto L_001a;
#line 427 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 427 "regression-compile-tmp/allimpc1-77.imp"
L_001a:;
                                                                //    428           DEL=128; ->L2
#line 428 "regression-compile-tmp/allimpc1-77.imp"
DEL = 128;
#line 428 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
                                                                //    429  L3:       DEL=0 %UNLESS 'A'<=I<='Z'
#line 429 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 429 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (90)))) goto L_001c;
#line 429 "regression-compile-tmp/allimpc1-77.imp"
L_001b:;
#line 429 "regression-compile-tmp/allimpc1-77.imp"
DEL = 0;
#line 429 "regression-compile-tmp/allimpc1-77.imp"
L_001c:;
                                                                //    430           ->L2 %IF I=' '
#line 430 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (32))) goto L_001d;
#line 430 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 430 "regression-compile-tmp/allimpc1-77.imp"
L_001d:;
                                                                //    431  L4:       LENGTH=LENGTH+1
#line 431 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
#line 431 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = (((int)(LENGTH)) + (1));
                                                                //    432           CC(LENGTH)=I!DEL
#line 432 "regression-compile-tmp/allimpc1-77.imp"
CC[LENGTH] = ((I) | (DEL));
                                                                //    433           %IF I='''' %THEN N=1-N
#line 433 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_001e;
#line 433 "regression-compile-tmp/allimpc1-77.imp"
N = ((1) - ((int)(N)));
#line 433 "regression-compile-tmp/allimpc1-77.imp"
L_001e:;
                                                                //    434           ->L2 %UNLESS I=10
#line 434 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (10))) goto L_001f;
#line 434 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 434 "regression-compile-tmp/allimpc1-77.imp"
L_001f:;
                                                                //    435           %RETURN %UNLESS CC(LENGTH-1)= 'C'+128
#line 435 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[(((int)(LENGTH)) - (1))]) == (195))) goto L_0020;
#line 435 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 435 "regression-compile-tmp/allimpc1-77.imp"
L_0020:;
                                                                //    436           LENGTH=LENGTH-1
#line 436 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = (((int)(LENGTH)) - (1));
                                                                //    437           ->L2 %IF LIST=0
#line 437 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) != (0))) goto L_0021;
#line 437 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 437 "regression-compile-tmp/allimpc1-77.imp"
L_0021:;
                                                                //    438           SPACES(5); PRINTSYMBOL('C'); SPACES(4*LEVEL); ->L2
#line 438 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES(5);
#line 438 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(67);
#line 438 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES((((int)(4)) * (LEVEL)));
#line 438 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
                                                                //    439           %END
#line 439 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block READLINE at level 2
                                                                //    440           %ROUTINE     FAULT(%BYTEINTEGER N)
#line 440 "regression-compile-tmp/allimpc1-77.imp"
void FAULT( unsigned char N )
#line 440 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    441           !%SHORTROUTINE
                                                                //    442           %INTEGER I,J,QP
#line 442 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 442 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 442 "regression-compile-tmp/allimpc1-77.imp"
int QP;
                                                                //    443           print string("
#line 443 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\n*"));
                                                                //    444  *");      WRITE(LINE,4); I=3; I=3*LEVEL %IF LIST=0     ; SPACES(I)
#line 444 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(LINE, 4);
#line 444 "regression-compile-tmp/allimpc1-77.imp"
I = 3;
#line 444 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) != (0))) goto L_0022;
#line 444 "regression-compile-tmp/allimpc1-77.imp"
I = (((int)(3)) * (LEVEL));
#line 444 "regression-compile-tmp/allimpc1-77.imp"
L_0022:;
#line 444 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES(I);
                                                                //    445           FAULTY=FAULTY+1
#line 445 "regression-compile-tmp/allimpc1-77.imp"
FAULTY = (((int)(FAULTY)) + (1));
                                                                //    446           ->L9 %IF N=100; print string("FAULT"); WRITE(N,2)
#line 446 "regression-compile-tmp/allimpc1-77.imp"
if (((N) != (100))) goto L_0023;
#line 446 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 446 "regression-compile-tmp/allimpc1-77.imp"
L_0023:;
#line 446 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("FAULT"));
#line 446 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(N, 2);
                                                                //    447           ->L2 %IF N<100; print string(" DISASTER ")
#line 447 "regression-compile-tmp/allimpc1-77.imp"
if (((N) >= (100))) goto L_0024;
#line 447 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 447 "regression-compile-tmp/allimpc1-77.imp"
L_0024:;
#line 447 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" DISASTER "));
                                                                //    448           %MONITOR ; %STOP
#line 448 "regression-compile-tmp/allimpc1-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 448 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //    449  L2:       PRINTNAME(FNAME) %UNLESS 7#N#16; ->L99
#line 449 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 449 "regression-compile-tmp/allimpc1-77.imp"
if ((((7) == (N))) || (((N) != (16)))) goto L_0026;
#line 449 "regression-compile-tmp/allimpc1-77.imp"
L_0025:;
#line 449 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(FNAME);
#line 449 "regression-compile-tmp/allimpc1-77.imp"
L_0026:;
#line 449 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
                                                                //    450  L9:       print string("  SYNTAX   ")
#line 450 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 450 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  SYNTAX   "));
                                                                //    451           ->L11 %IF LINE#OLDLINE
#line 451 "regression-compile-tmp/allimpc1-77.imp"
if (((LINE) == (OLDLINE))) goto L_0027;
#line 451 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 451 "regression-compile-tmp/allimpc1-77.imp"
L_0027:;
                                                                //    452           QP=Q
#line 452 "regression-compile-tmp/allimpc1-77.imp"
QP = Q;
                                                                //    453                 %CYCLE Q=Q,1,LENGTH-1
#line 453 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = Q; _increment = 1; _final = (((int)(LENGTH)) - (1)); Q = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = Q, 1, (((int)(LENGTH)) - (1))");
Q -= _increment; _control -= _increment;
L_0028:;
if (Q == _final) goto L_0029;
Q += _increment; _control += _increment;
if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */
}
                                                                //    454                 %IF CC(Q)&128 # 0 %THEN PRINTSYMBOL(CC(Q)&127-'A'+'a') %ELSE PRINTSYMBOL(CC(Q))
#line 454 "regression-compile-tmp/allimpc1-77.imp"
if (((((CC[Q]) & (128))) == (0))) goto L_002b;
#line 454 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL((((int)((((int)(((CC[Q]) & (127)))) - (65)))) + (97)));
#line 454 "regression-compile-tmp/allimpc1-77.imp"
goto L_002c;
#line 454 "regression-compile-tmp/allimpc1-77.imp"
L_002b:;
#line 454 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(CC[Q]);
#line 454 "regression-compile-tmp/allimpc1-77.imp"
L_002c:;
                                                                //    455                 ->L10 %IF CC(Q)=';'
#line 455 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) != (59))) goto L_002d;
#line 455 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 455 "regression-compile-tmp/allimpc1-77.imp"
L_002d:;
                                                                //    456           %REPEAT
#line 456 "regression-compile-tmp/allimpc1-77.imp"
goto L_0028;
#line 456 "regression-compile-tmp/allimpc1-77.imp"
L_0029:;
                                                                //    457  L10:            Q =Q+1
#line 457 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
#line 457 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    458           ->L99 %IF I+20+Q-QP>120
#line 458 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)((((int)((((int)(I)) + (20)))) + (Q)))) - (QP))) <= (120))) goto L_002e;
#line 458 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
#line 458 "regression-compile-tmp/allimpc1-77.imp"
L_002e:;
                                                                //    459           NEWLINE; SPACES(I+QMAX-QP+17)
#line 459 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 459 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES((((int)((((int)((((int)(I)) + (QMAX)))) - (QP)))) + (17)));
                                                                //    460           PRINTSYMBOL('!')
#line 460 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(33);
                                                                //    461           NEWLINE
#line 461 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
                                                                //    462           ->L99
#line 462 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
                                                                //    463  L11:      print string("
#line 463 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 463 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("\n         TEXT MODE FAILURE "));
                                                                //    464           TEXT MODE FAILURE "); WRITE(LINE-OLDLINE,1)
#line 464 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE((((int)(LINE)) - (OLDLINE)), 1);
                                                                //    465           print string(" LINES LOST ")
#line 465 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" LINES LOST "));
                                                                //    466           NEWLINE; Q=QMAX
#line 466 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 466 "regression-compile-tmp/allimpc1-77.imp"
Q = QMAX;
                                                                //    467  L99:      NEWLINE; %END
#line 467 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
#line 467 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 467 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT at level 2
                                                                //    468                 %ROUTINE COMPARE
#line 468 "regression-compile-tmp/allimpc1-77.imp"
void COMPARE( void )
#line 468 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    469           !%SHORTROUTINE
                                                                //    470           %INTEGER RA,RP,RQ,RR,RS,MARKER
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int RA;
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int RP;
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int RQ;
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int RR;
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int RS;
#line 470 "regression-compile-tmp/allimpc1-77.imp"
int MARKER;
                                                                //    471           %SWITCH BIP(1000:1019)
#line 471 "regression-compile-tmp/allimpc1-77.imp"
static int sw1_BIP_idx;
static const void * /*SWITCH*/ sw1_BIP[20] = { &&sw1_BIP_1000, &&sw1_BIP_1001, &&sw1_BIP_1002, &&sw1_BIP_1003, &&sw1_BIP_1004, &&sw1_BIP_1005, &&sw1_BIP_1006, &&sw1_BIP_1007, &&sw1_BIP_1008, &&sw1_BIP_1009, &&sw1_BIP_1010, &&sw1_BIP_1011, &&sw1_BIP_1012, &&sw1_BIP_1013, &&sw1_BIP_1014, &&sw1_BIP_1015, &&sw1_BIP_1016, &&sw1_BIP_1017, &&sw1_BIP_1018, &&sw1_BIP_1019,  };
                                                                //    472           RP=SYMBOL(P)
#line 472 "regression-compile-tmp/allimpc1-77.imp"
RP = (SYMBOL-1300)[P];
                                                                //    473           RQ=Q; RR=R;                   ! RESET VALUES OF LINE&AR PTRS
#line 473 "regression-compile-tmp/allimpc1-77.imp"
RQ = Q;
#line 473 "regression-compile-tmp/allimpc1-77.imp"
RR = R;
                                                                //    474           A(R)=1;                       ! FIRST ALTERNATIVE TO BE TRIED
#line 474 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 1;
                                                                //    475           P=P+1; RA=SYMBOL(P); RS=P;    ! RA TO NEXT PHRASE ALTERNATIVE
#line 475 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 475 "regression-compile-tmp/allimpc1-77.imp"
RA = (SYMBOL-1300)[P];
#line 475 "regression-compile-tmp/allimpc1-77.imp"
RS = P;
                                                                //    476           %COMMENT  ROUTINE REALLY STARTS HERE
                                                                //    477  L1:       R=R+1
#line 477 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 477 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    478  BIP(1000):L2:                           ! SUCCESS ON TO NEXT ITEM
#line 478 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1000:;
#line 478 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
                                                                //    479           RS=RS+1; ->L8 %IF RS=RA;       ! RS=NEXT ALTERNATIVE MEANS THAT
#line 479 "regression-compile-tmp/allimpc1-77.imp"
RS = (((int)(RS)) + (1));
#line 479 "regression-compile-tmp/allimpc1-77.imp"
if (((RS) != (RA))) goto L_002f;
#line 479 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
#line 479 "regression-compile-tmp/allimpc1-77.imp"
L_002f:;
                                                                //    480                                         ! THIS ALT HAS BEEN COMPLETED SO
                                                                //    481                                         ! EXIT WITH HIT=1
                                                                //    482           ITEM=SYMBOL(RS);              ! NEXT BRICK IN THE CURRENT ALT
#line 482 "regression-compile-tmp/allimpc1-77.imp"
ITEM = (SYMBOL-1300)[RS];
                                                                //    483           ->L4 %IF ITEM>=1300;           ! BRICK IS A PHRASE TYPE
#line 483 "regression-compile-tmp/allimpc1-77.imp"
if (((ITEM) < (1300))) goto L_0030;
#line 483 "regression-compile-tmp/allimpc1-77.imp"
goto U_1011;
#line 483 "regression-compile-tmp/allimpc1-77.imp"
L_0030:;
                                                                //    484           ->L6 %IF ITEM>=1000;           ! BRICK IS BUILT IN PHRASE
#line 484 "regression-compile-tmp/allimpc1-77.imp"
if (((ITEM) < (1000))) goto L_0031;
#line 484 "regression-compile-tmp/allimpc1-77.imp"
goto U_1012;
#line 484 "regression-compile-tmp/allimpc1-77.imp"
L_0031:;
                                                                //    485           %CYCLE J=1,1,CLETT(ITEM);     ! BRICK IS LITERAL
#line 485 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (CLETT-1)[ITEM]; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (CLETT-1)[ITEM]");
J -= _increment; _control -= _increment;
L_0032:;
if (J == _final) goto L_0033;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    486           ->L3 %UNLESS CC(Q)=CLETT(J+ITEM)
#line 486 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == ((CLETT-1)[(((int)(J)) + (ITEM))]))) goto L_0035;
#line 486 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 486 "regression-compile-tmp/allimpc1-77.imp"
L_0035:;
                                                                //    487           Q=Q+1; %REPEAT;               !CHECK IT WITH LITERAL DICT ENTRY
#line 487 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 487 "regression-compile-tmp/allimpc1-77.imp"
goto L_0032;
#line 487 "regression-compile-tmp/allimpc1-77.imp"
L_0033:;
                                                                //    488           ->L2;                          ! MATCHED SUCCESSFULLY
#line 488 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    489  L4:                                     ! PHRASE TYPE ALTERNATE
#line 489 "regression-compile-tmp/allimpc1-77.imp"
U_1011:;
                                                                //    490           P=ITEM; COMPARE;              ! RCALL COMPARE TO RECOGNISE IT
#line 490 "regression-compile-tmp/allimpc1-77.imp"
P = ITEM;
#line 490 "regression-compile-tmp/allimpc1-77.imp"
COMPARE();
                                                                //    491           ->L2 %IF HIT#0;                ! FOUND
#line 491 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) == (0))) goto L_0036;
#line 491 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 491 "regression-compile-tmp/allimpc1-77.imp"
L_0036:;
                                                                //    492  L3:       QMAX=Q %IF Q>QMAX;            ! FAILURE - NOTE POSITION REACHD
#line 492 "regression-compile-tmp/allimpc1-77.imp"
U_1013:;
#line 492 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) <= (QMAX))) goto L_0037;
#line 492 "regression-compile-tmp/allimpc1-77.imp"
QMAX = Q;
#line 492 "regression-compile-tmp/allimpc1-77.imp"
L_0037:;
                                                                //    493           Q=RQ; R=RR;                   ! RESET LINE AND A.R. POINTERS
#line 493 "regression-compile-tmp/allimpc1-77.imp"
Q = RQ;
#line 493 "regression-compile-tmp/allimpc1-77.imp"
R = RR;
                                                                //    494           ->L7 %IF RA=RP;                !TOTAL FAILURE NO ALT LEFT TO TRY
#line 494 "regression-compile-tmp/allimpc1-77.imp"
if (((RA) != (RP))) goto L_0038;
#line 494 "regression-compile-tmp/allimpc1-77.imp"
goto U_1014;
#line 494 "regression-compile-tmp/allimpc1-77.imp"
L_0038:;
                                                                //    495           RS=RA; A(R)=A(R)+1;           ! MOVE TO NEXT ALT OF PHRASE
#line 495 "regression-compile-tmp/allimpc1-77.imp"
RS = RA;
#line 495 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = (((int)(A[((R) + ((int)(2)))])) + (1));
                                                                //    496           RA=SYMBOL(RA); ->L1
#line 496 "regression-compile-tmp/allimpc1-77.imp"
RA = (SYMBOL-1300)[RA];
#line 496 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    497  L8:                                     ! COMPLETE SUCCESS
#line 497 "regression-compile-tmp/allimpc1-77.imp"
U_1010:;
                                                                //    498           HIT=1; %RETURN
#line 498 "regression-compile-tmp/allimpc1-77.imp"
HIT = 1;
#line 498 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    499  L7:                                     ! UTTER FAILURE
#line 499 "regression-compile-tmp/allimpc1-77.imp"
U_1014:;
                                                                //    500           HIT=0; %RETURN
#line 500 "regression-compile-tmp/allimpc1-77.imp"
HIT = 0;
#line 500 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    501  L6:                                     ! BUILT IN PHRASE
#line 501 "regression-compile-tmp/allimpc1-77.imp"
U_1012:;
                                                                //    502           I=CC(Q); ->BIP(ITEM);         ! SO SWITCH TO IT
#line 502 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 502 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_idx = ITEM; if ((1000 <= sw1_BIP_idx) && (sw1_BIP_idx <= 1019)) goto *(sw1_BIP-1000)[sw1_BIP_idx];  /* Bounds=1000:1019 */ else {
   /*_imp_signal(8, 2, sw1_BIP_idx);*/
   fprintf(stderr, "%%SWITCH index BIP(%d) not in range 1000:1019 at %s:%d\n",
           sw1_BIP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    503  BIP(1001):                             ! PHRASE NAME
#line 503 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1001:;
                                                                //    504                 PNAME; ->L1 %IF HIT=1; ->L3
#line 504 "regression-compile-tmp/allimpc1-77.imp"
PNAME();
#line 504 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (1))) goto L_0039;
#line 504 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 504 "regression-compile-tmp/allimpc1-77.imp"
L_0039:;
#line 504 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    505  BIP(1002):                             ! PHRASE U/CODE INSRN
#line 505 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1002:;
                                                                //    506           ->L3 %UNLESS 'A'<=I<='Z'
#line 506 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (90)))) goto L_003a;
#line 506 "regression-compile-tmp/allimpc1-77.imp"
L_0034:;
#line 506 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 506 "regression-compile-tmp/allimpc1-77.imp"
L_003a:;
                                                                //    507           S=I; J=1
#line 507 "regression-compile-tmp/allimpc1-77.imp"
S = I;
#line 507 "regression-compile-tmp/allimpc1-77.imp"
J = 1;
                                                                //    508  L200:     Q=Q+1; I=CC(Q)
#line 508 "regression-compile-tmp/allimpc1-77.imp"
U_1015:;
#line 508 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 508 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    509           ->L201 %UNLESS 'A'<=I<='Z'
#line 509 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (90)))) goto L_003c;
#line 509 "regression-compile-tmp/allimpc1-77.imp"
L_003b:;
#line 509 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
#line 509 "regression-compile-tmp/allimpc1-77.imp"
L_003c:;
                                                                //    510           S=S<<8!I;J=J+1; ->L200
#line 510 "regression-compile-tmp/allimpc1-77.imp"
S = ((((S) << (8))) | (I));
#line 510 "regression-compile-tmp/allimpc1-77.imp"
J = (((int)(J)) + (1));
#line 510 "regression-compile-tmp/allimpc1-77.imp"
goto U_1015;
                                                                //    511  L201:     ->L3 %UNLESS I='_' %AND J<=4
#line 511 "regression-compile-tmp/allimpc1-77.imp"
U_1016:;
#line 511 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (95))) goto L_003d;
#line 511 "regression-compile-tmp/allimpc1-77.imp"
if (((J) <= (4))) goto L_003e;
#line 511 "regression-compile-tmp/allimpc1-77.imp"
L_003d:;
#line 511 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 511 "regression-compile-tmp/allimpc1-77.imp"
L_003e:;
                                                                //    512           Q=Q+1; ->L2
#line 512 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 512 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    513  BIP(1003):                             ! PHRASE CONST
#line 513 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1003:;
                                                                //    514           CONST(0)
#line 514 "regression-compile-tmp/allimpc1-77.imp"
CONST(0);
                                                                //    515                 ->L3 %IF HIT=0
#line 515 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_003f;
#line 515 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 515 "regression-compile-tmp/allimpc1-77.imp"
L_003f:;
                                                                //    516           ->L1 %IF CTYPE=5
#line 516 "regression-compile-tmp/allimpc1-77.imp"
if (((CTYPE) != (5))) goto L_0040;
#line 516 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 516 "regression-compile-tmp/allimpc1-77.imp"
L_0040:;
                                                                //    517           ->L26 %IF CTYPE=2;             ! %REAL
#line 517 "regression-compile-tmp/allimpc1-77.imp"
if (((CTYPE) != (2))) goto L_0041;
#line 517 "regression-compile-tmp/allimpc1-77.imp"
goto U_1017;
#line 517 "regression-compile-tmp/allimpc1-77.imp"
L_0041:;
                                                                //    518           ->L22 %IF S>>12=0
#line 518 "regression-compile-tmp/allimpc1-77.imp"
if ((((int)((((unsigned int)(S)) >> (12)))) != (0))) goto L_0042;
#line 518 "regression-compile-tmp/allimpc1-77.imp"
goto U_1018;
#line 518 "regression-compile-tmp/allimpc1-77.imp"
L_0042:;
                                                                //    519           A(R)=1
#line 519 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 1;
                                                                //    520           TOAR4(R+1,S); R=R+3; ->L2
#line 520 "regression-compile-tmp/allimpc1-77.imp"
TOAR4((((int)(R)) + (1)), S);
#line 520 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (3));
#line 520 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    521  L22:      A(R)=9; R=R+1; A(R)=S; ->L1
#line 521 "regression-compile-tmp/allimpc1-77.imp"
U_1018:;
#line 521 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 9;
#line 521 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
#line 521 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = S;
#line 521 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    522  L26:      A(R)=2; TOAR8(R+1,CVALUE); R=R+5; ->L2
#line 522 "regression-compile-tmp/allimpc1-77.imp"
U_1017:;
#line 522 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 2;
#line 522 "regression-compile-tmp/allimpc1-77.imp"
TOAR8((((int)(R)) + (1)), CVALUE);
#line 522 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (5));
#line 522 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    523  BIP(1005):                             ! PHRASE N
#line 523 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1005:;
                                                                //    524           ->L3 %UNLESS '0'<=I<='9';      ! MUST START WITH DIGIT
#line 524 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0044;
#line 524 "regression-compile-tmp/allimpc1-77.imp"
L_0043:;
#line 524 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 524 "regression-compile-tmp/allimpc1-77.imp"
L_0044:;
                                                                //    525           CONST(2); A(R)=S; ->L1
#line 525 "regression-compile-tmp/allimpc1-77.imp"
CONST(2);
#line 525 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = S;
#line 525 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    526  BIP(1004):                             ! PHRASE CONSTLIST
#line 526 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1004:;
                                                                //    527           CONSTLIST;->L1
#line 527 "regression-compile-tmp/allimpc1-77.imp"
CONSTLIST();
#line 527 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    528  BIP(1006):                             ! PHRASE S=SEPARATOR
#line 528 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1006:;
                                                                //    529           ->L2 %IF I=10
#line 529 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (10))) goto L_0045;
#line 529 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 529 "regression-compile-tmp/allimpc1-77.imp"
L_0045:;
                                                                //    530           ->L3 %UNLESS I=';'
#line 530 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (59))) goto L_0046;
#line 530 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 530 "regression-compile-tmp/allimpc1-77.imp"
L_0046:;
                                                                //    531           Q=Q+1; ->L2
#line 531 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 531 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    532  BIP(1007):L30:                          ! PHRASE TEXT=COMMENT TEXT
#line 532 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1007:;
#line 532 "regression-compile-tmp/allimpc1-77.imp"
U_1019:;
                                                                //    533           ->L1 %UNLESS 10#I#';'
#line 533 "regression-compile-tmp/allimpc1-77.imp"
if ((((10) == (I))) || (((I) != (59)))) goto L_0048;
#line 533 "regression-compile-tmp/allimpc1-77.imp"
L_0047:;
#line 533 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 533 "regression-compile-tmp/allimpc1-77.imp"
L_0048:;
                                                                //    534           Q=Q+1; I=CC(Q); ->L30
#line 534 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 534 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 534 "regression-compile-tmp/allimpc1-77.imp"
goto U_1019;
                                                                //    535  BIP(1008):                             ! PHRASE TEXTTEXT=BETWEEN QUOTES
#line 535 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1008:;
                                                                //    536           TEXTTEXT
#line 536 "regression-compile-tmp/allimpc1-77.imp"
TEXTTEXT();
                                                                //    537           ->L3 %IF HIT=0;->L1
#line 537 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_0049;
#line 537 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 537 "regression-compile-tmp/allimpc1-77.imp"
L_0049:;
#line 537 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    538  BIP(1009):                             ! PHRASE NAMELIST
#line 538 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1009:;
                                                                //    539           ! GIVES AR IN FORM NNAMES,NAME1,....NAMEN
                                                                //    540           U=R; V=1; R=R+1
#line 540 "regression-compile-tmp/allimpc1-77.imp"
U = R;
#line 540 "regression-compile-tmp/allimpc1-77.imp"
V = 1;
#line 540 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    541           PNAME; ->L3 %IF HIT=0
#line 541 "regression-compile-tmp/allimpc1-77.imp"
PNAME();
#line 541 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_004a;
#line 541 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 541 "regression-compile-tmp/allimpc1-77.imp"
L_004a:;
                                                                //    542  L90:      ->L91 %UNLESS CC(Q)=','
#line 542 "regression-compile-tmp/allimpc1-77.imp"
U_101a:;
#line 542 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (44))) goto L_004b;
#line 542 "regression-compile-tmp/allimpc1-77.imp"
goto U_101b;
#line 542 "regression-compile-tmp/allimpc1-77.imp"
L_004b:;
                                                                //    543           Q=Q+1; R=R+1
#line 543 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 543 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    544           I=CC(Q)
#line 544 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    545           PNAME
#line 545 "regression-compile-tmp/allimpc1-77.imp"
PNAME();
                                                                //    546           ->L92 %IF HIT=0; V=V+1; ->L90
#line 546 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_004c;
#line 546 "regression-compile-tmp/allimpc1-77.imp"
goto U_101c;
#line 546 "regression-compile-tmp/allimpc1-77.imp"
L_004c:;
#line 546 "regression-compile-tmp/allimpc1-77.imp"
V = (((int)(V)) + (1));
#line 546 "regression-compile-tmp/allimpc1-77.imp"
goto U_101a;
                                                                //    547  L92:      R=R-1; Q=Q-1
#line 547 "regression-compile-tmp/allimpc1-77.imp"
U_101c:;
#line 547 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) - (1));
#line 547 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) - (1));
                                                                //    548  L91:      A(U)=V; ->L1
#line 548 "regression-compile-tmp/allimpc1-77.imp"
U_101b:;
#line 548 "regression-compile-tmp/allimpc1-77.imp"
A[((U) + ((int)(2)))] = V;
#line 548 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    549  BIP(1010):                             ! PHRASE HOLE
#line 549 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1010:;
                                                                //    550           MARKER=R; ->L1
#line 550 "regression-compile-tmp/allimpc1-77.imp"
MARKER = R;
#line 550 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    551  BIP(1011):                             ! PHRASE MARK
#line 551 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1011:;
                                                                //    552           A(MARKER)=R-MARKER; ->L2
#line 552 "regression-compile-tmp/allimpc1-77.imp"
A[((MARKER) + ((int)(2)))] = (((int)(R)) - (MARKER));
#line 552 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    553  BIP(1012):                             ! PHRASE UCRR=RR FORMAT
#line 553 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1012:;
                                                                //    554           ->L124 %IF S&255='R';          ! LAST LETTER=R
#line 554 "regression-compile-tmp/allimpc1-77.imp"
if (((((S) & (255))) != (82))) goto L_004d;
#line 554 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 554 "regression-compile-tmp/allimpc1-77.imp"
L_004d:;
                                                                //    555           %CYCLE I=0,1,2
#line 555 "regression-compile-tmp/allimpc1-77.imp"
I = (-1);
if ((((2)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 2");
L_004e:;
if (I == 2) goto L_004f;
I += 1;
                                                                //    556           ->L120 %IF S=NEM(I)
#line 556 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0051;
#line 556 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 556 "regression-compile-tmp/allimpc1-77.imp"
L_0051:;
                                                                //    557           %REPEAT; ->L3
#line 557 "regression-compile-tmp/allimpc1-77.imp"
goto L_004e;
#line 557 "regression-compile-tmp/allimpc1-77.imp"
L_004f:;
#line 557 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    558  L120:     A(R)=OPC(I)&63; ->L1
#line 558 "regression-compile-tmp/allimpc1-77.imp"
U_101e:;
#line 558 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = ((OPC[I]) & (63));
#line 558 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    559  L124:       J=S>>8; %CYCLE I=2,1,48
#line 559 "regression-compile-tmp/allimpc1-77.imp"
U_101d:;
#line 559 "regression-compile-tmp/allimpc1-77.imp"
J = (int)((((unsigned int)(S)) >> (8)));
#line 559 "regression-compile-tmp/allimpc1-77.imp"
I = 1;
if ((((48)-(2)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 2, 1, 48");
L_0052:;
if (I == 48) goto L_0053;
I += 1;
                                                                //    560           ->L120 %IF J=NEM(I)
#line 560 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (NEM[I]))) goto L_0055;
#line 560 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 560 "regression-compile-tmp/allimpc1-77.imp"
L_0055:;
                                                                //    561           %REPEAT; ->L3
#line 561 "regression-compile-tmp/allimpc1-77.imp"
goto L_0052;
#line 561 "regression-compile-tmp/allimpc1-77.imp"
L_0053:;
#line 561 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    562  BIP(1013):                             ! PHRASE UCRX=RX FORMAT
#line 562 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1013:;
                                                                //    563           %CYCLE I=18,1,64
#line 563 "regression-compile-tmp/allimpc1-77.imp"
I = 17;
if ((((64)-(18)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 18, 1, 64");
L_0056:;
if (I == 64) goto L_0057;
I += 1;
                                                                //    564           ->L130 %IF S=NEM(I)
#line 564 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0059;
#line 564 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 564 "regression-compile-tmp/allimpc1-77.imp"
L_0059:;
                                                                //    565           %REPEAT; ->L3
#line 565 "regression-compile-tmp/allimpc1-77.imp"
goto L_0056;
#line 565 "regression-compile-tmp/allimpc1-77.imp"
L_0057:;
#line 565 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    566  L130:     A(R)=OPC(I); ->L1
#line 566 "regression-compile-tmp/allimpc1-77.imp"
U_101f:;
#line 566 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = OPC[I];
#line 566 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    567  BIP(1014):                             ! PHRASE UCRS=R,R,DB FORMAT
#line 567 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1014:;
                                                                //    568           %CYCLE I=66,1,69
#line 568 "regression-compile-tmp/allimpc1-77.imp"
I = 65;
if ((((69)-(66)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 66, 1, 69");
L_005a:;
if (I == 69) goto L_005b;
I += 1;
                                                                //    569           ->L130 %IF S=NEM(I)
#line 569 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_005d;
#line 569 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 569 "regression-compile-tmp/allimpc1-77.imp"
L_005d:;
                                                                //    570           %REPEAT; ->L3
#line 570 "regression-compile-tmp/allimpc1-77.imp"
goto L_005a;
#line 570 "regression-compile-tmp/allimpc1-77.imp"
L_005b:;
#line 570 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    571  BIP(1015):                             ! PHRASE UCSI=STORE IMDTE
#line 571 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1015:;
                                                                //    572           %CYCLE I=71,1,83
#line 572 "regression-compile-tmp/allimpc1-77.imp"
I = 70;
if ((((83)-(71)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 71, 1, 83");
L_005e:;
if (I == 83) goto L_005f;
I += 1;
                                                                //    573           ->L130 %IF S=NEM(I)
#line 573 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0061;
#line 573 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 573 "regression-compile-tmp/allimpc1-77.imp"
L_0061:;
                                                                //    574           %REPEAT; ->L3
#line 574 "regression-compile-tmp/allimpc1-77.imp"
goto L_005e;
#line 574 "regression-compile-tmp/allimpc1-77.imp"
L_005f:;
#line 574 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    575  BIP(1016):                             ! PHRASE UCSHIFT=SHIFT INSTRNS
#line 575 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1016:;
                                                                //    576           %CYCLE I=85,1,92
#line 576 "regression-compile-tmp/allimpc1-77.imp"
I = 84;
if ((((92)-(85)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 85, 1, 92");
L_0062:;
if (I == 92) goto L_0063;
I += 1;
                                                                //    577           ->L130 %IF S=NEM(I)
#line 577 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0065;
#line 577 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 577 "regression-compile-tmp/allimpc1-77.imp"
L_0065:;
                                                                //    578           %REPEAT; ->L3
#line 578 "regression-compile-tmp/allimpc1-77.imp"
goto L_0062;
#line 578 "regression-compile-tmp/allimpc1-77.imp"
L_0063:;
#line 578 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    579  BIP(1017):                             ! PHRASE UCSS=STORE TO STORE
#line 579 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1017:;
                                                                //    580           %CYCLE I=94,1,106
#line 580 "regression-compile-tmp/allimpc1-77.imp"
I = 93;
if ((((106)-(94)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 94, 1, 106");
L_0066:;
if (I == 106) goto L_0067;
I += 1;
                                                                //    581           ->L130 %IF S=NEM(I)
#line 581 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0069;
#line 581 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 581 "regression-compile-tmp/allimpc1-77.imp"
L_0069:;
                                                                //    582           %REPEAT; ->L3
#line 582 "regression-compile-tmp/allimpc1-77.imp"
goto L_0066;
#line 582 "regression-compile-tmp/allimpc1-77.imp"
L_0067:;
#line 582 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    583  BIP(1018):                             ! PHRASE UCPD=PACKED DECIMAL
#line 583 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1018:;
                                                                //    584           %CYCLE I=108,1,116
#line 584 "regression-compile-tmp/allimpc1-77.imp"
I = 107;
if ((((116)-(108)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 108, 1, 116");
L_006a:;
if (I == 116) goto L_006b;
I += 1;
                                                                //    585           ->L130 %IF S=NEM(I)
#line 585 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_006d;
#line 585 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 585 "regression-compile-tmp/allimpc1-77.imp"
L_006d:;
                                                                //    586           %REPEAT; ->L3
#line 586 "regression-compile-tmp/allimpc1-77.imp"
goto L_006a;
#line 586 "regression-compile-tmp/allimpc1-77.imp"
L_006b:;
#line 586 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    587  BIP(1019):                             ! PHRASE UCSPEC=THE FUNNIES
#line 587 "regression-compile-tmp/allimpc1-77.imp"
sw1_BIP_1019:;
                                                                //    588           %CYCLE I=118,1,120
#line 588 "regression-compile-tmp/allimpc1-77.imp"
I = 117;
if ((((120)-(118)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 118, 1, 120");
L_006e:;
if (I == 120) goto L_006f;
I += 1;
                                                                //    589           ->L130 %IF S=NEM(I)
#line 589 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (NEM[I]))) goto L_0071;
#line 589 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 589 "regression-compile-tmp/allimpc1-77.imp"
L_0071:;
                                                                //    590           %REPEAT; ->L3
#line 590 "regression-compile-tmp/allimpc1-77.imp"
goto L_006e;
#line 590 "regression-compile-tmp/allimpc1-77.imp"
L_006f:;
#line 590 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    591                 %END                    ;!OF ROUTINE 'COMPARE'
#line 591 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block COMPARE at level 2
                                                                //    592           %INTEGERFN HASH(%INTEGER ADDR)
#line 592 "regression-compile-tmp/allimpc1-77.imp"
int HASH( int ADDR )
#line 592 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    593           %RESULT=NNAMES &(19*BYTE INTEGER(ADDR)+31*BYTE INTEGER(ADDR+1))
#line 593 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((NNAMES) & ((((((19) * (*(int *)(_imp_BYTEINTEGER(ADDR)))))) + (((31) * (*(int *)(_imp_BYTEINTEGER((((int)(ADDR)) + (1))))))))));
                                                                //    594           %END
#line 594 "regression-compile-tmp/allimpc1-77.imp"
} // End of block HASH at level 2
                                                                //    595           %ROUTINE PNAME
#line 595 "regression-compile-tmp/allimpc1-77.imp"
void PNAME( void )
#line 595 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    596           %INTEGER  JJ,KK,LL
#line 596 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 596 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 596 "regression-compile-tmp/allimpc1-77.imp"
int LL;
                                                                //    597           !%SHORTROUTINE
                                                                //    598           HIT=0; I=CC(Q)
#line 598 "regression-compile-tmp/allimpc1-77.imp"
HIT = 0;
#line 598 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    599           ->L3 %UNLESS 'A'<=I<='Z';     ! 1ST CHAR MUST BE LETTER
#line 599 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (90)))) goto L_0072;
#line 599 "regression-compile-tmp/allimpc1-77.imp"
L_0070:;
#line 599 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 599 "regression-compile-tmp/allimpc1-77.imp"
L_0072:;
                                                                //    600           ->L3 %IF CC(Q+1)='''' %AND(I='B' %OR I='X' %OR I='M')
#line 600 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[(((int)(Q)) + (1))]) != (39))) goto L_0073;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (66))) goto L_0074;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (88))) goto L_0074;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (77))) goto L_0073;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
L_0074:;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 600 "regression-compile-tmp/allimpc1-77.imp"
L_0073:;
                                                                //    601           S=2; T=1; ->L10
#line 601 "regression-compile-tmp/allimpc1-77.imp"
S = 2;
#line 601 "regression-compile-tmp/allimpc1-77.imp"
T = 1;
#line 601 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
                                                                //    602  L12:      Q=Q+1; I=CC(Q)
#line 602 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
#line 602 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 602 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    603           ->L101 %UNLESS 'A'<=I<='Z' %OR '0'<=I<='9'
#line 603 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (90)))) goto L_0076;
#line 603 "regression-compile-tmp/allimpc1-77.imp"
L_0075:;
#line 603 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0076;
#line 603 "regression-compile-tmp/allimpc1-77.imp"
L_0077:;
#line 603 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 603 "regression-compile-tmp/allimpc1-77.imp"
L_0076:;
                                                                //    604           T=T+1; S=S+1
#line 604 "regression-compile-tmp/allimpc1-77.imp"
T = (((int)(T)) + (1));
#line 604 "regression-compile-tmp/allimpc1-77.imp"
S = (((int)(S)) + (1));
                                                                //    605  L10:      LETT(NEXT+T)=I; ->L12
#line 605 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 605 "regression-compile-tmp/allimpc1-77.imp"
LETT[(((int)(NEXT)) + (T))] = I;
#line 605 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
                                                                //    606  L101:     LETT(NEXT)=T;                 ! INSERT LENGTH
#line 606 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 606 "regression-compile-tmp/allimpc1-77.imp"
LETT[NEXT] = T;
                                                                //    607           FAULT(108) %IF NEXT+S>DSIZE;  !DICTIONARY OVERFLOW
#line 607 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(NEXT)) + (S))) <= (DSIZE))) goto L_0078;
#line 607 "regression-compile-tmp/allimpc1-77.imp"
FAULT(108);
#line 607 "regression-compile-tmp/allimpc1-77.imp"
L_0078:;
                                                                //    608           JJ=HASH(ADDR(LETT(NEXT)));    !PREPARE TO LOOK UP
#line 608 "regression-compile-tmp/allimpc1-77.imp"
JJ = HASH(_imp_ADDR(&LETT[NEXT]));
                                                                //    609           %CYCLE NUM=JJ,1,JJ+NNAMES
#line 609 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = JJ; _increment = 1; _final = (((int)(JJ)) + (NNAMES)); NUM = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle NUM = JJ, 1, (((int)(JJ)) + (NNAMES))");
NUM -= _increment; _control -= _increment;
L_0079:;
if (NUM == _final) goto L_007a;
NUM += _increment; _control += _increment;
if (NUM != _control) _imp_signal(4,2,0,"Corrupt control variable NUM"); /* FOR loop control variable corrupted */
}
                                                                //    610           KK=NUM&NNAMES;                ! TREAT DICTIONARY AS CYCLIC
#line 610 "regression-compile-tmp/allimpc1-77.imp"
KK = ((NUM) & (NNAMES));
                                                                //    611           LL=WORD(KK)
#line 611 "regression-compile-tmp/allimpc1-77.imp"
LL = WORD[KK];
                                                                //    612           ->L2 %IF LL=0;                ! NAME NOT KNOWN
#line 612 "regression-compile-tmp/allimpc1-77.imp"
if (((LL) != (0))) goto L_007c;
#line 612 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 612 "regression-compile-tmp/allimpc1-77.imp"
L_007c:;
                                                                //    613           %CYCLE JJ=1,1,LETT(LL)
#line 613 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = LETT[LL]; JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, LETT[LL]");
JJ -= _increment; _control -= _increment;
L_007d:;
if (JJ == _final) goto L_007e;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //    614           ->FAIL %UNLESS LETT(NEXT+JJ)=LETT(LL+JJ)
#line 614 "regression-compile-tmp/allimpc1-77.imp"
if (((LETT[(((int)(NEXT)) + (JJ))]) == (LETT[(((int)(LL)) + (JJ))]))) goto L_0080;
#line 614 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
#line 614 "regression-compile-tmp/allimpc1-77.imp"
L_0080:;
                                                                //    615           %REPEAT; ->L41;               ! NAME FOUND
#line 615 "regression-compile-tmp/allimpc1-77.imp"
goto L_007d;
#line 615 "regression-compile-tmp/allimpc1-77.imp"
L_007e:;
#line 615 "regression-compile-tmp/allimpc1-77.imp"
goto U_1011;
                                                                //    616  FAIL:    %REPEAT
#line 616 "regression-compile-tmp/allimpc1-77.imp"
U_1010:;
#line 616 "regression-compile-tmp/allimpc1-77.imp"
goto L_0079;
#line 616 "regression-compile-tmp/allimpc1-77.imp"
L_007a:;
                                                                //    617           FAULT(104);                   ! TOO MANY NAMES
#line 617 "regression-compile-tmp/allimpc1-77.imp"
FAULT(104);
                                                                //    618  L2:       WORD(KK)=NEXT; NEXT=NEXT+S
#line 618 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
#line 618 "regression-compile-tmp/allimpc1-77.imp"
WORD[KK] = NEXT;
#line 618 "regression-compile-tmp/allimpc1-77.imp"
NEXT = (((int)(NEXT)) + (S));
                                                                //    619  L41:      A(R)=KK; HIT=1
#line 619 "regression-compile-tmp/allimpc1-77.imp"
U_1011:;
#line 619 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = KK;
#line 619 "regression-compile-tmp/allimpc1-77.imp"
HIT = 1;
                                                                //    620  L3:       %END
#line 620 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 620 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PNAME at level 2
                                                                //    621           %ROUTINE     CONST(%BYTEINTEGER MODE)
#line 621 "regression-compile-tmp/allimpc1-77.imp"
void CONST( unsigned char MODE )
#line 621 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    622           %COMMENT MODE=0 FOR NORMAL  MODE=2 FOR EXPONENT ETC
                                                                //    623           %INTEGER Z
#line 623 "regression-compile-tmp/allimpc1-77.imp"
int Z;
                                                                //    624           %LONGREAL X
#line 624 "regression-compile-tmp/allimpc1-77.imp"
double X;
                                                                //    625           CVALUE=0; I=CC(Q)
#line 625 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = 0;
#line 625 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    626           !%SHORTROUTINE
                                                                //    627                 S=0; ->N %IF '0'<=I<='9'
#line 627 "regression-compile-tmp/allimpc1-77.imp"
S = 0;
#line 627 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_0081;
#line 627 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 627 "regression-compile-tmp/allimpc1-77.imp"
L_0081:;
                                                                //    628           ->DOT %IF I='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9';! 1 DIDT MIN
#line 628 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (46))) goto L_0082;
#line 628 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_0082;
#line 628 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) > (57)))) goto L_0082;
#line 628 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 628 "regression-compile-tmp/allimpc1-77.imp"
L_0082:;
                                                                //    629           ->PI %IF I='$' %AND MODE=0;! PI was represented back then by the character which now prints as '$'!
#line 629 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (36))) goto L_0083;
#line 629 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_0083;
#line 629 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
#line 629 "regression-compile-tmp/allimpc1-77.imp"
L_0083:;
                                                                //    630           ->L101 %IF I=''''
#line 630 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_0084;
#line 630 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 630 "regression-compile-tmp/allimpc1-77.imp"
L_0084:;
                                                                //    631           ->L150 %UNLESS CC(Q+1)=''''; Q=Q+2
#line 631 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_0085;
#line 631 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 631 "regression-compile-tmp/allimpc1-77.imp"
L_0085:;
#line 631 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (2));
                                                                //    632           ->L102 %IF I='X'; ->MULT %IF I='M'
#line 632 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (88))) goto L_0086;
#line 632 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
#line 632 "regression-compile-tmp/allimpc1-77.imp"
L_0086:;
#line 632 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (77))) goto L_0087;
#line 632 "regression-compile-tmp/allimpc1-77.imp"
goto U_1011;
#line 632 "regression-compile-tmp/allimpc1-77.imp"
L_0087:;
                                                                //    633           ->L104 %IF I='B'
#line 633 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (66))) goto L_0088;
#line 633 "regression-compile-tmp/allimpc1-77.imp"
goto U_1012;
#line 633 "regression-compile-tmp/allimpc1-77.imp"
L_0088:;
                                                                //    634           Q=Q-2; ->L150
#line 634 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) - (2));
#line 634 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    635  PI:
#line 635 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
                                                                //    636           CVALUE=3.14159 26535 89793 23846; Q=Q+1; ->L40
#line 636 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = 3.14159265358979323846;
#line 636 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 636 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
                                                                //    637  L101:     S=R; A(R)=5; R=R+1
#line 637 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 637 "regression-compile-tmp/allimpc1-77.imp"
S = R;
#line 637 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 5;
#line 637 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    638           TEXTTEXT
#line 638 "regression-compile-tmp/allimpc1-77.imp"
TEXTTEXT();
                                                                //    639           ->L24 %IF A(S+1)=0;            ! NULL STRING
#line 639 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) != (0))) goto L_0089;
#line 639 "regression-compile-tmp/allimpc1-77.imp"
goto U_1014;
#line 639 "regression-compile-tmp/allimpc1-77.imp"
L_0089:;
                                                                //    640           ->L27 %IF A(S+1)=1;            ! SINGLE CHAR CONSTANT
#line 640 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) != (1))) goto L_008a;
#line 640 "regression-compile-tmp/allimpc1-77.imp"
goto U_1015;
#line 640 "regression-compile-tmp/allimpc1-77.imp"
L_008a:;
                                                                //    641           CTYPE=5; %RETURN
#line 641 "regression-compile-tmp/allimpc1-77.imp"
CTYPE = 5;
#line 641 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    642  L24:      R=S; S=0; ->L99
#line 642 "regression-compile-tmp/allimpc1-77.imp"
U_1014:;
#line 642 "regression-compile-tmp/allimpc1-77.imp"
R = S;
#line 642 "regression-compile-tmp/allimpc1-77.imp"
S = 0;
#line 642 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
                                                                //    643  L27:      R=S; S=A(S+2); ->L99
#line 643 "regression-compile-tmp/allimpc1-77.imp"
U_1015:;
#line 643 "regression-compile-tmp/allimpc1-77.imp"
R = S;
#line 643 "regression-compile-tmp/allimpc1-77.imp"
S = A[(((unsigned char)((((int)(S)) + (2)))) + (2))];
#line 643 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
                                                                //    644  L102:     I=CC(Q); Q=Q+1;               ! HEX CONSTANTS
#line 644 "regression-compile-tmp/allimpc1-77.imp"
U_1010:;
#line 644 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 644 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    645           ->L99 %IF I=''''
#line 645 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_008b;
#line 645 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
#line 645 "regression-compile-tmp/allimpc1-77.imp"
L_008b:;
                                                                //    646                 ->L5 %IF '0'<=I<='9'
#line 646 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_008c;
#line 646 "regression-compile-tmp/allimpc1-77.imp"
goto U_1017;
#line 646 "regression-compile-tmp/allimpc1-77.imp"
L_008c:;
                                                                //    647           ->L150 %UNLESS 'A'<=I<='F'
#line 647 "regression-compile-tmp/allimpc1-77.imp"
if ((((65) > (I))) || (((I) <= (70)))) goto L_008d;
#line 647 "regression-compile-tmp/allimpc1-77.imp"
L_007b:;
#line 647 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 647 "regression-compile-tmp/allimpc1-77.imp"
L_008d:;
                                                                //    648           S=S<<4!(I-'A'+10); ->L102
#line 648 "regression-compile-tmp/allimpc1-77.imp"
S = ((((S) << (4))) | ((((int)((((int)(I)) - (65)))) + (10))));
#line 648 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
                                                                //    649  L5:       S=S<<4!(I-'0'); ->L102
#line 649 "regression-compile-tmp/allimpc1-77.imp"
U_1017:;
#line 649 "regression-compile-tmp/allimpc1-77.imp"
S = ((((S) << (4))) | ((((int)(I)) - (48))));
#line 649 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
                                                                //    650  MULT:          T=0;                    ! MULTIPLE CONSTANTS
#line 650 "regression-compile-tmp/allimpc1-77.imp"
U_1011:;
#line 650 "regression-compile-tmp/allimpc1-77.imp"
T = 0;
                                                                //    651  L28:            I=CC(Q); Q=Q+1; ->L22 %IF I=''''
#line 651 "regression-compile-tmp/allimpc1-77.imp"
U_1018:;
#line 651 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 651 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 651 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_008e;
#line 651 "regression-compile-tmp/allimpc1-77.imp"
goto U_1019;
#line 651 "regression-compile-tmp/allimpc1-77.imp"
L_008e:;
                                                                //    652  L29:      S=S<<8!I; T=T+1; ->L150 %IF T>=5; ->L28
#line 652 "regression-compile-tmp/allimpc1-77.imp"
U_101a:;
#line 652 "regression-compile-tmp/allimpc1-77.imp"
S = ((((S) << (8))) | (I));
#line 652 "regression-compile-tmp/allimpc1-77.imp"
T = (((int)(T)) + (1));
#line 652 "regression-compile-tmp/allimpc1-77.imp"
if (((T) < (5))) goto L_008f;
#line 652 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 652 "regression-compile-tmp/allimpc1-77.imp"
L_008f:;
#line 652 "regression-compile-tmp/allimpc1-77.imp"
goto U_1018;
                                                                //    653  L22:      ->L99 %UNLESS CC(Q)=''''; Q=Q+1; ->L29
#line 653 "regression-compile-tmp/allimpc1-77.imp"
U_1019:;
#line 653 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (39))) goto L_0090;
#line 653 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
#line 653 "regression-compile-tmp/allimpc1-77.imp"
L_0090:;
#line 653 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 653 "regression-compile-tmp/allimpc1-77.imp"
goto U_101a;
                                                                //    654  L104:     T=Q;                          ! BINARY CONST
#line 654 "regression-compile-tmp/allimpc1-77.imp"
U_1012:;
#line 654 "regression-compile-tmp/allimpc1-77.imp"
T = Q;
                                                                //    655  L32:            I=CC(Q); Q=Q+1
#line 655 "regression-compile-tmp/allimpc1-77.imp"
U_101b:;
#line 655 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 655 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    656                 ->L31 %IF '1'#I#'0'
#line 656 "regression-compile-tmp/allimpc1-77.imp"
if ((((49) == (I))) || (((I) == (48)))) goto L_0091;
#line 656 "regression-compile-tmp/allimpc1-77.imp"
goto U_101c;
#line 656 "regression-compile-tmp/allimpc1-77.imp"
L_0091:;
                                                                //    657                 S=S<<1!(I-'0')
#line 657 "regression-compile-tmp/allimpc1-77.imp"
S = ((((S) << (1))) | ((((int)(I)) - (48))));
                                                                //    658           ->L150 %IF Q-T>=33; ->L32
#line 658 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(Q)) - (T))) < (33))) goto L_0092;
#line 658 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 658 "regression-compile-tmp/allimpc1-77.imp"
L_0092:;
#line 658 "regression-compile-tmp/allimpc1-77.imp"
goto U_101b;
                                                                //    659  L31:      ->L99 %IF I=''''; ->L150
#line 659 "regression-compile-tmp/allimpc1-77.imp"
U_101c:;
#line 659 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_0093;
#line 659 "regression-compile-tmp/allimpc1-77.imp"
goto U_1016;
#line 659 "regression-compile-tmp/allimpc1-77.imp"
L_0093:;
#line 659 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
                                                                //    660  N:       I=I&15; CVALUE=10*CVALUE+I
#line 660 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 660 "regression-compile-tmp/allimpc1-77.imp"
I = ((I) & (15));
/*promote*/#line 660 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = (((int)((((double)(10)) * (CVALUE)))) + (I));
                                                                //    661           Q=Q+1; I=CC(Q)
#line 661 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 661 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    662           ->N %IF '0'<=I<='9'
#line 662 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) > (57)))) goto L_0094;
#line 662 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 662 "regression-compile-tmp/allimpc1-77.imp"
L_0094:;
                                                                //    663           ->ALPHA %UNLESS MODE=0 %AND I='.'
#line 663 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_0095;
#line 663 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (46))) goto L_0096;
#line 663 "regression-compile-tmp/allimpc1-77.imp"
L_0095:;
#line 663 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 663 "regression-compile-tmp/allimpc1-77.imp"
L_0096:;
                                                                //    664  DOT:     Q=Q+1; X=10
#line 664 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 664 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 664 "regression-compile-tmp/allimpc1-77.imp"
X = 10;
                                                                //    665  L45:      I=CC(Q); ->ALPHA %UNLESS '0'<=I<='9'
#line 665 "regression-compile-tmp/allimpc1-77.imp"
U_101e:;
#line 665 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 665 "regression-compile-tmp/allimpc1-77.imp"
if ((((48) > (I))) || (((I) <= (57)))) goto L_0098;
#line 665 "regression-compile-tmp/allimpc1-77.imp"
L_0097:;
#line 665 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 665 "regression-compile-tmp/allimpc1-77.imp"
L_0098:;
                                                                //    666           I=I&15; CVALUE=CVALUE+I/X
#line 666 "regression-compile-tmp/allimpc1-77.imp"
I = ((I) & (15));
#line 666 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = ((CVALUE) + (((double)((double)((float)(I)) / (double)((double)(X))))));
/*promote*/                                                                //    667           X=10*X
#line 667 "regression-compile-tmp/allimpc1-77.imp"
X = (((double)(10)) * (X));
                                                                //    668           Q=Q+1; ->L45
#line 668 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 668 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
                                                                //    669  ALPHA:   %COMMENT TEST FOR EXPONENT
#line 669 "regression-compile-tmp/allimpc1-77.imp"
U_101d:;
                                                                //    670           ->FIX %UNLESS MODE=0 %AND CC(Q)='@'
#line 670 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_0099;
#line 670 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (64))) goto L_009a;
#line 670 "regression-compile-tmp/allimpc1-77.imp"
L_0099:;
#line 670 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 670 "regression-compile-tmp/allimpc1-77.imp"
L_009a:;
                                                                //    671           Q=Q+1; X=CVALUE
#line 671 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 671 "regression-compile-tmp/allimpc1-77.imp"
X = CVALUE;
                                                                //    672           Z=1; ->L39 %IF '+'#CC(Q)#'-'
#line 672 "regression-compile-tmp/allimpc1-77.imp"
Z = 1;
#line 672 "regression-compile-tmp/allimpc1-77.imp"
if ((((43) == (CC[Q]))) || (((CC[Q]) == (45)))) goto L_009b;
#line 672 "regression-compile-tmp/allimpc1-77.imp"
goto U_1020;
#line 672 "regression-compile-tmp/allimpc1-77.imp"
L_009b:;
                                                                //    673           Z=-1 %IF CC(Q)='-'; Q=Q+1
#line 673 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) != (45))) goto L_009c;
#line 673 "regression-compile-tmp/allimpc1-77.imp"
Z = (-1);
#line 673 "regression-compile-tmp/allimpc1-77.imp"
L_009c:;
#line 673 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    674  L39:      CONST(2); ->L150 %IF HIT=0; S=S*Z
#line 674 "regression-compile-tmp/allimpc1-77.imp"
U_1020:;
#line 674 "regression-compile-tmp/allimpc1-77.imp"
CONST(2);
#line 674 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_009d;
#line 674 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 674 "regression-compile-tmp/allimpc1-77.imp"
L_009d:;
#line 674 "regression-compile-tmp/allimpc1-77.imp"
S = (((int)(S)) * (Z));
/*promote*/                                                                //    675           %IF S=-99 %THEN CVALUE=0 %ELSE CVALUE=X*10^^S
#line 675 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != ((-99)))) goto L_009e;
#line 675 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = 0;
#line 675 "regression-compile-tmp/allimpc1-77.imp"
goto L_009f;
#line 675 "regression-compile-tmp/allimpc1-77.imp"
L_009e:;
#line 675 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = ((X) * ((double)(_imp_IEXP(10, S))));
#line 675 "regression-compile-tmp/allimpc1-77.imp"
L_009f:;
                                                                //    676  FIX:     %COMMENT SEE IF IT IS INTEGER
#line 676 "regression-compile-tmp/allimpc1-77.imp"
U_101f:;
                                                                //    677           ->L40 %IF CVALUE>IMAX;         ! TOO BIG
#line 677 "regression-compile-tmp/allimpc1-77.imp"
if (((CVALUE) <= (IMAX))) goto L_00a0;
#line 677 "regression-compile-tmp/allimpc1-77.imp"
goto U_1013;
#line 677 "regression-compile-tmp/allimpc1-77.imp"
L_00a0:;
                                                                //    678           ->L41 %IF {FRACPT(CVALUE)=0}INTPT(CVALUE)=CVALUE
#line 678 "regression-compile-tmp/allimpc1-77.imp"
if (((_imp_INTPT(CVALUE)) != (CVALUE))) goto L_00a1;
#line 678 "regression-compile-tmp/allimpc1-77.imp"
goto U_1021;
#line 678 "regression-compile-tmp/allimpc1-77.imp"
L_00a1:;
                                                                //    679  L40:      CTYPE=2; HIT=1; %RETURN
#line 679 "regression-compile-tmp/allimpc1-77.imp"
U_1013:;
#line 679 "regression-compile-tmp/allimpc1-77.imp"
CTYPE = 2;
#line 679 "regression-compile-tmp/allimpc1-77.imp"
HIT = 1;
#line 679 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    680  L41:      S=INT(CVALUE)
#line 680 "regression-compile-tmp/allimpc1-77.imp"
U_1021:;
#line 680 "regression-compile-tmp/allimpc1-77.imp"
S = _imp_INT(CVALUE);
                                                                //    681  L99:      CTYPE=1; HIT=1; %RETURN
#line 681 "regression-compile-tmp/allimpc1-77.imp"
U_1016:;
#line 681 "regression-compile-tmp/allimpc1-77.imp"
CTYPE = 1;
#line 681 "regression-compile-tmp/allimpc1-77.imp"
HIT = 1;
#line 681 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    682  L150:     HIT=0;                        ! FAILURE
#line 682 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
#line 682 "regression-compile-tmp/allimpc1-77.imp"
HIT = 0;
                                                                //    683                 %END
#line 683 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONST at level 2
                                                                //    684           %ROUTINE CONSTLIST
#line 684 "regression-compile-tmp/allimpc1-77.imp"
void CONSTLIST( void )
#line 684 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    685           !%SHORTROUTINE
                                                                //    686           %INTEGER PRECP,NCONST,RF,J,K,CPW
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int PRECP;
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int NCONST;
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int RF;
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int K;
#line 686 "regression-compile-tmp/allimpc1-77.imp"
int CPW;
                                                                //    687           %INTEGER KK,SIGN,SP,RQ,VALUE
#line 687 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 687 "regression-compile-tmp/allimpc1-77.imp"
int SIGN;
#line 687 "regression-compile-tmp/allimpc1-77.imp"
int SP;
#line 687 "regression-compile-tmp/allimpc1-77.imp"
int RQ;
#line 687 "regression-compile-tmp/allimpc1-77.imp"
int VALUE;
                                                                //    688           %INTEGER TYPEP,ACC,RP,N,JJ
#line 688 "regression-compile-tmp/allimpc1-77.imp"
int TYPEP;
#line 688 "regression-compile-tmp/allimpc1-77.imp"
int ACC;
#line 688 "regression-compile-tmp/allimpc1-77.imp"
int RP;
#line 688 "regression-compile-tmp/allimpc1-77.imp"
int N;
#line 688 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
                                                                //    689           %LONGREAL C
#line 689 "regression-compile-tmp/allimpc1-77.imp"
double C;
                                                                //    690           VALUE=0; NCONST=0
#line 690 "regression-compile-tmp/allimpc1-77.imp"
VALUE = 0;
#line 690 "regression-compile-tmp/allimpc1-77.imp"
NCONST = 0;
                                                                //    691           %IF CONSTPTR&1#0 %THEN PSYM(0)
#line 691 "regression-compile-tmp/allimpc1-77.imp"
if (((((CONSTPTR) & (1))) == (0))) goto L_00a2;
#line 691 "regression-compile-tmp/allimpc1-77.imp"
PSYM(0);
#line 691 "regression-compile-tmp/allimpc1-77.imp"
L_00a2:;
                                                                //    692           A(R+1)=CONSTPTR
#line 692 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(R)) + (1)))) + (2))] = CONSTPTR;
                                                                //    693           RP=R; R=R+2; ACC=0; N=24
#line 693 "regression-compile-tmp/allimpc1-77.imp"
RP = R;
#line 693 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (2));
#line 693 "regression-compile-tmp/allimpc1-77.imp"
ACC = 0;
#line 693 "regression-compile-tmp/allimpc1-77.imp"
N = 24;
                                                                //    694           TYPEP=TYPEFLAG(A(2)); PRECP=TYPEP>>3
#line 694 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = (TYPEFLAG-1)[A[4]];
#line 694 "regression-compile-tmp/allimpc1-77.imp"
PRECP = (int)((((unsigned int)(TYPEP)) >> (3)));
                                                                //    695           TYPEP=TYPEP&7
#line 695 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = ((TYPEP) & (7));
                                                                //    696           %IF TYPEP=5 %THEN ACC=A(4)
#line 696 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (5))) goto L_00a3;
#line 696 "regression-compile-tmp/allimpc1-77.imp"
ACC = A[6];
#line 696 "regression-compile-tmp/allimpc1-77.imp"
L_00a3:;
                                                                //    697           PRECP=3 %IF TYPEP=2 %AND ALL LONG=1
#line 697 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (2))) goto L_00a4;
#line 697 "regression-compile-tmp/allimpc1-77.imp"
if (((ALLLONG) != (1))) goto L_00a4;
#line 697 "regression-compile-tmp/allimpc1-77.imp"
PRECP = 3;
#line 697 "regression-compile-tmp/allimpc1-77.imp"
L_00a4:;
                                                                //    698           CPW=4//BYTES(PRECP)
#line 698 "regression-compile-tmp/allimpc1-77.imp"
CPW = (long)((long)((int)(4)) / (long)((unsigned char)(_Z(BYTES[PRECP]))));
                                                                //    699           CPW=4 %IF TYPEP=5
#line 699 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (5))) goto L_00a5;
#line 699 "regression-compile-tmp/allimpc1-77.imp"
CPW = 4;
#line 699 "regression-compile-tmp/allimpc1-77.imp"
L_00a5:;
                                                                //    700  L6:       RQ=Q; I=CC(Q); SIGN=1; ->L7 %IF I='-'
#line 700 "regression-compile-tmp/allimpc1-77.imp"
U_1019:;
#line 700 "regression-compile-tmp/allimpc1-77.imp"
RQ = Q;
#line 700 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 700 "regression-compile-tmp/allimpc1-77.imp"
SIGN = 1;
#line 700 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (45))) goto L_00a6;
#line 700 "regression-compile-tmp/allimpc1-77.imp"
goto U_101a;
#line 700 "regression-compile-tmp/allimpc1-77.imp"
L_00a6:;
                                                                //    701           ->L8 %IF I='+'; ->L9
#line 701 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (43))) goto L_00a7;
#line 701 "regression-compile-tmp/allimpc1-77.imp"
goto U_101b;
#line 701 "regression-compile-tmp/allimpc1-77.imp"
L_00a7:;
#line 701 "regression-compile-tmp/allimpc1-77.imp"
goto U_101c;
                                                                //    702  L7:       SIGN=-1; ->L99 %IF CPW=4
#line 702 "regression-compile-tmp/allimpc1-77.imp"
U_101a:;
#line 702 "regression-compile-tmp/allimpc1-77.imp"
SIGN = (-1);
#line 702 "regression-compile-tmp/allimpc1-77.imp"
if (((CPW) != (4))) goto L_00a8;
#line 702 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 702 "regression-compile-tmp/allimpc1-77.imp"
L_00a8:;
                                                                //    703  L8:       Q=Q+1; I=CC(Q)
#line 703 "regression-compile-tmp/allimpc1-77.imp"
U_101b:;
#line 703 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 703 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
                                                                //    704  L9:       CONST(0); RF=1
#line 704 "regression-compile-tmp/allimpc1-77.imp"
U_101c:;
#line 704 "regression-compile-tmp/allimpc1-77.imp"
CONST(0);
#line 704 "regression-compile-tmp/allimpc1-77.imp"
RF = 1;
                                                                //    705           ->L98 %IF HIT=0
#line 705 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (0))) goto L_00a9;
#line 705 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 705 "regression-compile-tmp/allimpc1-77.imp"
L_00a9:;
                                                                //    706           ->L1 %UNLESS CC(Q)='('
#line 706 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (40))) goto L_00aa;
#line 706 "regression-compile-tmp/allimpc1-77.imp"
goto U_101f;
#line 706 "regression-compile-tmp/allimpc1-77.imp"
L_00aa:;
                                                                //    707           J=S; Q=Q+1; C=CVALUE
#line 707 "regression-compile-tmp/allimpc1-77.imp"
J = S;
#line 707 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 707 "regression-compile-tmp/allimpc1-77.imp"
C = CVALUE;
                                                                //    708           CONST(2); ->L98 %UNLESS HIT=1 %AND S>0 %AND CC(Q)=')'
#line 708 "regression-compile-tmp/allimpc1-77.imp"
CONST(2);
#line 708 "regression-compile-tmp/allimpc1-77.imp"
if (((HIT) != (1))) goto L_00ab;
#line 708 "regression-compile-tmp/allimpc1-77.imp"
if (((S) <= (0))) goto L_00ab;
#line 708 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (41))) goto L_00ac;
#line 708 "regression-compile-tmp/allimpc1-77.imp"
L_00ab:;
#line 708 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 708 "regression-compile-tmp/allimpc1-77.imp"
L_00ac:;
                                                                //    709           Q=Q+1
#line 709 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    710           CVALUE=C; RF=S; S=J
#line 710 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = C;
#line 710 "regression-compile-tmp/allimpc1-77.imp"
RF = S;
#line 710 "regression-compile-tmp/allimpc1-77.imp"
S = J;
                                                                //    711  L1:       ->L21 %IF TYPEP=2
#line 711 "regression-compile-tmp/allimpc1-77.imp"
U_101f:;
#line 711 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (2))) goto L_00ad;
#line 711 "regression-compile-tmp/allimpc1-77.imp"
goto U_1020;
#line 711 "regression-compile-tmp/allimpc1-77.imp"
L_00ad:;
                                                                //    712           ->L51 %IF TYPEP=5
#line 712 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (5))) goto L_00ae;
#line 712 "regression-compile-tmp/allimpc1-77.imp"
goto U_1021;
#line 712 "regression-compile-tmp/allimpc1-77.imp"
L_00ae:;
                                                                //    713           ->L99 %IF CPW=4 %AND S>255
#line 713 "regression-compile-tmp/allimpc1-77.imp"
if (((CPW) != (4))) goto L_00af;
#line 713 "regression-compile-tmp/allimpc1-77.imp"
if (((S) <= (255))) goto L_00af;
#line 713 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 713 "regression-compile-tmp/allimpc1-77.imp"
L_00af:;
                                                                //    714           ->L99 %IF CPW=2 %AND |S|>>16#0;! SHORT TOO LARGE
#line 714 "regression-compile-tmp/allimpc1-77.imp"
if (((CPW) != (2))) goto L_00b0;
#line 714 "regression-compile-tmp/allimpc1-77.imp"
if (((((((_imp_IMOD(S))) >> (16)))) == (0))) goto L_00b0;
#line 714 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 714 "regression-compile-tmp/allimpc1-77.imp"
L_00b0:;
                                                                //    715           S=S*SIGN
#line 715 "regression-compile-tmp/allimpc1-77.imp"
S = (((int)(S)) * (SIGN));
                                                                //    716           S=S&X'FFFF' %IF CPW=2
#line 716 "regression-compile-tmp/allimpc1-77.imp"
if (((CPW) != (2))) goto L_00b1;
#line 716 "regression-compile-tmp/allimpc1-77.imp"
S = ((S) & (65535));
#line 716 "regression-compile-tmp/allimpc1-77.imp"
L_00b1:;
                                                                //    717            %CYCLE KK=1,1,RF
#line 717 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = RF; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF");
KK -= _increment; _control -= _increment;
L_00b2:;
if (KK == _final) goto L_00b3;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //    718           J=NCONST//CPW
#line 718 "regression-compile-tmp/allimpc1-77.imp"
J = (long)((long)((int)(NCONST)) / (long)((int)(_Z(CPW))));
                                                                //    719           K=NCONST-CPW*J
#line 719 "regression-compile-tmp/allimpc1-77.imp"
K = ((NCONST) - ((int)((((int)(CPW)) * (J)))));
                                                                //    720           SP=S<<(32*(CPW-K-1)//CPW)
#line 720 "regression-compile-tmp/allimpc1-77.imp"
SP = ((S) << (((long)((long)((((32) * ((int)((((int)((((int)(CPW)) - (K)))) - (1))))))) / (long)((int)(_Z(CPW)))))));
                                                                //    721           VALUE=SP!VALUE
#line 721 "regression-compile-tmp/allimpc1-77.imp"
VALUE = ((SP) | (VALUE));
                                                                //    722           NCONST=NCONST+1
#line 722 "regression-compile-tmp/allimpc1-77.imp"
NCONST = (((int)(NCONST)) + (1));
                                                                //    723           ->L5 %UNLESS (CPW-1)&NCONST=0
#line 723 "regression-compile-tmp/allimpc1-77.imp"
if ((((((((int)(CPW)) - (1))) & (NCONST))) == (0))) goto L_00b5;
#line 723 "regression-compile-tmp/allimpc1-77.imp"
goto U_1022;
#line 723 "regression-compile-tmp/allimpc1-77.imp"
L_00b5:;
                                                                //    724           PSYM(VALUE); VALUE=0
#line 724 "regression-compile-tmp/allimpc1-77.imp"
PSYM(VALUE);
#line 724 "regression-compile-tmp/allimpc1-77.imp"
VALUE = 0;
                                                                //    725  L5:       %REPEAT
#line 725 "regression-compile-tmp/allimpc1-77.imp"
U_1022:;
#line 725 "regression-compile-tmp/allimpc1-77.imp"
goto L_00b2;
#line 725 "regression-compile-tmp/allimpc1-77.imp"
L_00b3:;
                                                                //    726           L11:   ->L99 %UNLESS CC(Q)=','; Q=Q+1
#line 726 "regression-compile-tmp/allimpc1-77.imp"
U_1023:;
#line 726 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (44))) goto L_00b6;
#line 726 "regression-compile-tmp/allimpc1-77.imp"
goto U_101d;
#line 726 "regression-compile-tmp/allimpc1-77.imp"
L_00b6:;
#line 726 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    727           ->L6 %UNLESS CC(Q)=10
#line 727 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[Q]) == (10))) goto L_00b7;
#line 727 "regression-compile-tmp/allimpc1-77.imp"
goto U_1019;
#line 727 "regression-compile-tmp/allimpc1-77.imp"
L_00b7:;
                                                                //    728           READLINE(0); Q=1; ->L6
#line 728 "regression-compile-tmp/allimpc1-77.imp"
READLINE(0);
#line 728 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
#line 728 "regression-compile-tmp/allimpc1-77.imp"
goto U_1019;
                                                                //    729  L21:      %IF CTYPE=1 %THEN CVALUE=S
#line 729 "regression-compile-tmp/allimpc1-77.imp"
U_1020:;
#line 729 "regression-compile-tmp/allimpc1-77.imp"
if (((CTYPE) != (1))) goto L_00b8;
#line 729 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = S;
#line 729 "regression-compile-tmp/allimpc1-77.imp"
L_00b8:;
/*promote*/                                                                //    730           CVALUE=SIGN*CVALUE
#line 730 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = (((double)(SIGN)) * (CVALUE));
                                                                //    731           J=INTEGER(ADDR(CVALUE))
#line 731 "regression-compile-tmp/allimpc1-77.imp"
J = *_imp_INTEGER(_imp_ADDR(&CVALUE));
                                                                //    732           K=INTEGER(ADDR(CVALUE)+4)
#line 732 "regression-compile-tmp/allimpc1-77.imp"
K = *_imp_INTEGER((((int)(_imp_ADDR(&CVALUE))) + (4)));
                                                                //    733           %CYCLE KK=1,1,RF; NCONST=NCONST+1
#line 733 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = RF; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF");
KK -= _increment; _control -= _increment;
L_00b9:;
if (KK == _final) goto L_00ba;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
#line 733 "regression-compile-tmp/allimpc1-77.imp"
NCONST = (((int)(NCONST)) + (1));
                                                                //    734           PSYM(J); PSYM(K) %IF PRECP=3
#line 734 "regression-compile-tmp/allimpc1-77.imp"
PSYM(J);
#line 734 "regression-compile-tmp/allimpc1-77.imp"
if (((PRECP) != (3))) goto L_00bc;
#line 734 "regression-compile-tmp/allimpc1-77.imp"
PSYM(K);
#line 734 "regression-compile-tmp/allimpc1-77.imp"
L_00bc:;
                                                                //    735           %REPEAT; ->L11
#line 735 "regression-compile-tmp/allimpc1-77.imp"
goto L_00b9;
#line 735 "regression-compile-tmp/allimpc1-77.imp"
L_00ba:;
#line 735 "regression-compile-tmp/allimpc1-77.imp"
goto U_1023;
                                                                //    736  L51:      ->L52 %IF CTYPE=5
#line 736 "regression-compile-tmp/allimpc1-77.imp"
U_1021:;
#line 736 "regression-compile-tmp/allimpc1-77.imp"
if (((CTYPE) != (5))) goto L_00bd;
#line 736 "regression-compile-tmp/allimpc1-77.imp"
goto U_1024;
#line 736 "regression-compile-tmp/allimpc1-77.imp"
L_00bd:;
                                                                //    737           ->L98 %UNLESS CTYPE=1 %AND S<=127
#line 737 "regression-compile-tmp/allimpc1-77.imp"
if (((CTYPE) != (1))) goto L_00bb;
#line 737 "regression-compile-tmp/allimpc1-77.imp"
if (((S) <= (127))) goto L_00be;
#line 737 "regression-compile-tmp/allimpc1-77.imp"
L_00bb:;
#line 737 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 737 "regression-compile-tmp/allimpc1-77.imp"
L_00be:;
                                                                //    738           A(RP+3)=1; A(RP+4)=S
#line 738 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(RP)) + (3)))) + (2))] = 1;
#line 738 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(RP)) + (4)))) + (2))] = S;
                                                                //    739  L52:      ->L98 %UNLESS SIGN=1 %AND ACC>=A(RP+3)
#line 739 "regression-compile-tmp/allimpc1-77.imp"
U_1024:;
#line 739 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) != (1))) goto L_00bf;
#line 739 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) >= (A[(((unsigned char)((((int)(RP)) + (3)))) + (2))]))) goto L_00c0;
#line 739 "regression-compile-tmp/allimpc1-77.imp"
L_00bf:;
#line 739 "regression-compile-tmp/allimpc1-77.imp"
goto U_101e;
#line 739 "regression-compile-tmp/allimpc1-77.imp"
L_00c0:;
                                                                //    740           %CYCLE KK=1,1,RF
#line 740 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = RF; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF");
KK -= _increment; _control -= _increment;
L_00c1:;
if (KK == _final) goto L_00c2;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //    741           %CYCLE JJ=0,1,ACC
#line 741 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = ACC; JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, ACC");
JJ -= _increment; _control -= _increment;
L_00c4:;
if (JJ == _final) goto L_00c5;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //    742           S=A(RP+JJ+3)&127
#line 742 "regression-compile-tmp/allimpc1-77.imp"
S = ((A[(((unsigned char)((((int)((((int)(RP)) + (JJ)))) + (3)))) + (2))]) & (127));
                                                                //    743           SP=S<<N
#line 743 "regression-compile-tmp/allimpc1-77.imp"
SP = ((S) << (N));
                                                                //    744           VALUE=SP!VALUE; N=N-8
#line 744 "regression-compile-tmp/allimpc1-77.imp"
VALUE = ((SP) | (VALUE));
#line 744 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) - (8));
                                                                //    745           ->L55 %UNLESS N<0
#line 745 "regression-compile-tmp/allimpc1-77.imp"
if (((N) < (0))) goto L_00c7;
#line 745 "regression-compile-tmp/allimpc1-77.imp"
goto U_1025;
#line 745 "regression-compile-tmp/allimpc1-77.imp"
L_00c7:;
                                                                //    746           PSYM(VALUE); N=24; VALUE=0
#line 746 "regression-compile-tmp/allimpc1-77.imp"
PSYM(VALUE);
#line 746 "regression-compile-tmp/allimpc1-77.imp"
N = 24;
#line 746 "regression-compile-tmp/allimpc1-77.imp"
VALUE = 0;
                                                                //    747  L55:      %REPEAT
#line 747 "regression-compile-tmp/allimpc1-77.imp"
U_1025:;
#line 747 "regression-compile-tmp/allimpc1-77.imp"
goto L_00c4;
#line 747 "regression-compile-tmp/allimpc1-77.imp"
L_00c5:;
                                                                //    748           NCONST=NCONST+1
#line 748 "regression-compile-tmp/allimpc1-77.imp"
NCONST = (((int)(NCONST)) + (1));
                                                                //    749           %REPEAT; R=RP+2; ->L11
#line 749 "regression-compile-tmp/allimpc1-77.imp"
goto L_00c1;
#line 749 "regression-compile-tmp/allimpc1-77.imp"
L_00c2:;
#line 749 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(RP)) + (2));
#line 749 "regression-compile-tmp/allimpc1-77.imp"
goto U_1023;
                                                                //    750  L98:      Q=RQ
#line 750 "regression-compile-tmp/allimpc1-77.imp"
U_101e:;
#line 750 "regression-compile-tmp/allimpc1-77.imp"
Q = RQ;
                                                                //    751  L99:      R=RP; A(R)=NCONST
#line 751 "regression-compile-tmp/allimpc1-77.imp"
U_101d:;
#line 751 "regression-compile-tmp/allimpc1-77.imp"
R = RP;
#line 751 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = NCONST;
                                                                //    752  PSYM(VALUE) %IF(TYPEP=5%AND N#24)%OR(TYPEP#5 %AND(CPW-1)&NCONST#0)
#line 752 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (5))) goto L_00c8;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
if (((N) != (24))) goto L_00c3;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
L_00c8:;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) == (5))) goto L_00c9;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
if ((((((((int)(CPW)) - (1))) & (NCONST))) == (0))) goto L_00c9;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
L_00c3:;
#line 752 "regression-compile-tmp/allimpc1-77.imp"
PSYM(VALUE);
#line 752 "regression-compile-tmp/allimpc1-77.imp"
L_00c9:;
                                                                //    753           %END
#line 753 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONSTLIST at level 2
                                                                //    754           %ROUTINE TEXTTEXT
#line 754 "regression-compile-tmp/allimpc1-77.imp"
void TEXTTEXT( void )
#line 754 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    755           !%SHORTROUTINE
                                                                //    756           %INTEGER S,J
#line 756 "regression-compile-tmp/allimpc1-77.imp"
int S;
#line 756 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //    757           S=R; R=R+1
#line 757 "regression-compile-tmp/allimpc1-77.imp"
S = R;
#line 757 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    758           ->L98 %UNLESS I=''''          ;!FAIL UNLESS  INITIAL QUOTE
#line 758 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (39))) goto L_00ca;
#line 758 "regression-compile-tmp/allimpc1-77.imp"
goto U_100a;
#line 758 "regression-compile-tmp/allimpc1-77.imp"
L_00ca:;
                                                                //    759           Q=Q+1
#line 759 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //    760  L1:       I=CC(Q);A(R)=I;R=R+1
#line 760 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 760 "regression-compile-tmp/allimpc1-77.imp"
I = CC[Q];
#line 760 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = I;
#line 760 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
                                                                //    761           ->L31 %IF I=''''
#line 761 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (39))) goto L_00cb;
#line 761 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 761 "regression-compile-tmp/allimpc1-77.imp"
L_00cb:;
                                                                //    762           ->L32 %IF I=10
#line 762 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (10))) goto L_00cc;
#line 762 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
#line 762 "regression-compile-tmp/allimpc1-77.imp"
L_00cc:;
                                                                //    763           Q=Q+1;FAULT(106) %IF R-S>256
#line 763 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 763 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(R)) - (S))) <= (256))) goto L_00cd;
#line 763 "regression-compile-tmp/allimpc1-77.imp"
FAULT(106);
#line 763 "regression-compile-tmp/allimpc1-77.imp"
L_00cd:;
                                                                //    764           ->L1
#line 764 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
                                                                //    765  L32:      READ LINE(1);Q=1;->L1
#line 765 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
#line 765 "regression-compile-tmp/allimpc1-77.imp"
READLINE(1);
#line 765 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
#line 765 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
                                                                //    766  L31:      ->L35 %UNLESS CC(Q+1)=''''
#line 766 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 766 "regression-compile-tmp/allimpc1-77.imp"
if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_00ce;
#line 766 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
#line 766 "regression-compile-tmp/allimpc1-77.imp"
L_00ce:;
                                                                //    767           Q=Q+2;->L1
#line 767 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (2));
#line 767 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
                                                                //    768  L35:      R=R-2;J=R-S;->L36 %UNLESS J&1=0
#line 768 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 768 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) - (2));
#line 768 "regression-compile-tmp/allimpc1-77.imp"
J = (((int)(R)) - (S));
#line 768 "regression-compile-tmp/allimpc1-77.imp"
if (((((J) & (1))) == (0))) goto L_00cf;
#line 768 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 768 "regression-compile-tmp/allimpc1-77.imp"
L_00cf:;
                                                                //    769           R=R+1;A(R)=0
#line 769 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (1));
#line 769 "regression-compile-tmp/allimpc1-77.imp"
A[((R) + ((int)(2)))] = 0;
                                                                //    770  L36:      A(S)=J;Q=Q+1;HIT=1;->L99
#line 770 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
#line 770 "regression-compile-tmp/allimpc1-77.imp"
A[((S) + ((int)(2)))] = J;
#line 770 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 770 "regression-compile-tmp/allimpc1-77.imp"
HIT = 1;
#line 770 "regression-compile-tmp/allimpc1-77.imp"
goto U_1010;
                                                                //    771  L98:      HIT=0
#line 771 "regression-compile-tmp/allimpc1-77.imp"
U_100a:;
#line 771 "regression-compile-tmp/allimpc1-77.imp"
HIT = 0;
                                                                //    772  L99:      %END
#line 772 "regression-compile-tmp/allimpc1-77.imp"
U_1010:;
#line 772 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TEXTTEXT at level 2
                                                                //    773           %ROUTINE SET UP LIST
#line 773 "regression-compile-tmp/allimpc1-77.imp"
void SETUPLIST( void )
#line 773 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    774           !%SHORTROUTINE
                                                                //    775           %INTEGER J,K
#line 775 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 775 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //    776           %CYCLE J=0,8,ASL-16
#line 776 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 8; _final = (((int)(ASL)) - (16)); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 8, (((int)(ASL)) - (16))");
J -= _increment; _control -= _increment;
L_00d0:;
if (J == _final) goto L_00d1;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    777           SET SHORT INTEGER(ADDR(ASLIST(J))+14, J)
#line 777 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(_imp_ADDR(&ASLIST[J]))) + (14)), J);
                                                                //    778           %REPEAT
#line 778 "regression-compile-tmp/allimpc1-77.imp"
goto L_00d0;
#line 778 "regression-compile-tmp/allimpc1-77.imp"
L_00d1:;
                                                                //    779           INTEGER(ADDR(ASLIST(0)))=-1;  !   INITIALISE BOTTOM CELL
#line 779 "regression-compile-tmp/allimpc1-77.imp"
*_imp_INTEGER(_imp_ADDR(&ASLIST[0])) = (-1);
                                                                //    780           INTEGER(ADDR(ASLIST(4)))=X'FFFF0000'
#line 780 "regression-compile-tmp/allimpc1-77.imp"
*_imp_INTEGER(_imp_ADDR(&ASLIST[4])) = (-65536);
                                                                //    781           ASL=ASL-8
#line 781 "regression-compile-tmp/allimpc1-77.imp"
ASL = (((int)(ASL)) - (8));
                                                                //    782           %END
#line 782 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETUPLIST at level 2
                                                                //    783  %ROUTINE INITIALISE
#line 783 "regression-compile-tmp/allimpc1-77.imp"
void INITIALISE( void )
#line 783 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    784           !%SHORTROUTINE
                                                                //    785           %OWNBYTEINTEGERARRAY ILETT(1:320)=11,
#line 785 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char ILETT[320] = { 11, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 12, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 7, 78, 69, 87, 76, 73, 78, 69, 5, 83, 80, 65, 67, 69, 10, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 6, 82, 85, 78, 79, 85, 84, 8, 78, 69, 87, 76, 73, 78, 69, 83, 6, 83, 80, 65, 67, 69, 83, 10, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 11, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 4, 82, 69, 65, 68, 5, 87, 82, 73, 84, 69, 7, 78, 69, 87, 80, 65, 71, 69, 4, 65, 68, 68, 82, 6, 65, 82, 67, 83, 73, 78, 3, 73, 78, 84, 5, 73, 78, 84, 80, 84, 6, 70, 82, 65, 67, 80, 84, 5, 80, 82, 73, 78, 84, 7, 80, 82, 73, 78, 84, 70, 76, 4, 82, 69, 65, 76, 7, 73, 78, 84, 69, 71, 69, 82, 3, 77, 79, 68, 6, 65, 82, 67, 67, 79, 83, 4, 83, 81, 82, 84, 3, 76, 79, 71, 3, 83, 73, 78, 3, 67, 79, 83, 3, 84, 65, 78, 3, 69, 88, 80, 9, 77, 65, 80, 82, 69, 67, 79, 82, 68, 11, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 12, 83, 72, 79, 82, 84, 73, 78, 84, 69, 71, 69, 82, 6, 82, 65, 68, 73, 85, 83, 6, 65, 82, 67, 84, 65, 78, 6, 80, 65, 82, 73, 84, 89, 11, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 2, 78, 76, 8, 76, 79, 78, 71, 82, 69, 65, 76, 7, 80, 82, 73, 78, 84, 67, 72, 6, 82, 69, 65, 68, 67, 72, 6, 83, 84, 82, 73, 78, 71,  };
                                                                //    786                 'S','E','L','E','C','T','I','N','P','U','T',
                                                                //    787                 12,'S','E','L','E','C','T','O','U','T','P','U','T',
                                                                //    788                 7,'N','E','W','L','I','N','E',
                                                                //    789                 5,'S','P','A','C','E',
                                                                //    790                 10,'S','K','I','P','S','Y','M','B','O','L',
                                                                //    791                 6,'R','U','N','O','U','T',
                                                                //    792                 8,'N','E','W','L','I','N','E','S',
                                                                //    793                 6,'S','P','A','C','E','S',
                                                                //    794                 10,'N','E','X','T','S','Y','M','B','O','L',
                                                                //    795                 11,'P','R','I','N','T','S','Y','M','B','O','L',
                                                                //    796                 10,'R','E','A','D','S','Y','M','B','O','L',
                                                                //    797                 4,'R','E','A','D',
                                                                //    798                 5,'W','R','I','T','E',
                                                                //    799                 7,'N','E','W','P','A','G','E',
                                                                //    800                 4,'A','D','D','R',
                                                                //    801                 6,'A','R','C','S','I','N',
                                                                //    802                 3,'I','N','T',
                                                                //    803                 5,'I','N','T','P','T',
                                                                //    804                 6,'F','R','A','C','P','T',
                                                                //    805                 5,'P','R','I','N','T',
                                                                //    806                 7,'P','R','I','N','T','F','L',
                                                                //    807                 4,'R','E','A','L',
                                                                //    808                 7,'I','N','T','E','G','E','R',
                                                                //    809                 3,'M','O','D',
                                                                //    810                 6,'A','R','C','C','O','S',
                                                                //    811                 4,'S','Q','R','T',
                                                                //    812                 3,'L','O','G',
                                                                //    813                 3,'S','I','N',
                                                                //    814                 3,'C','O','S',
                                                                //    815                 3,'T','A','N',
                                                                //    816                 3,'E','X','P',
                                                                //    817                 9,'M','A','P','R','E','C','O','R','D' ,
                                                                //    818                 11,'B','Y','T','E','I','N','T','E','G','E','R',
                                                                //    819                 12,'S','H','O','R','T','I','N','T','E','G','E','R',
                                                                //    820                 6,'R','A','D','I','U','S',
                                                                //    821                 6,'A','R','C','T','A','N',
                                                                //    822                 6,'P','A','R','I','T','Y',
                                                                //    823                11,'P','R','I','N','T','S','T','R','I','N','G',
                                                                //    824                 2,'N','L',
                                                                //    825                 8,'L','O','N','G','R','E','A','L',
                                                                //    826                 7,'P','R','I','N','T','C','H',
                                                                //    827                 6,'R','E','A','D','C','H',
                                                                //    828           6,'S','T','R','I','N','G'
                                                                //    829           %OWNSHORTINTEGERARRAY IWORD(0:42)=1,
#line 829 "regression-compile-tmp/allimpc1-77.imp"
static short IWORD[43] = { 1, 13, 26, 34, 40, 51, 58, 67, 74, 85, 97, 108, 113, 119, 127, 132, 139, 143, 149, 156, 162, 170, 175, 183, 187, 194, 199, 203, 207, 211, 215, 219, 229, 241, 254, 261, 268, 275, 287, 290, 299, 307, 314,  };
                                                                //    830                 13,26,34,40,51,58,67,74,85,97,
                                                                //    831                 108,113,119,127,132,139,143,149,156,162,
                                                                //    832                 170,175,183,187,194,199,203,207,211,215,
                                                                //    833                 219,229,241,254,261,268,275,287,290,299,307,
                                                                //    834           314
                                                                //    835           %INTEGER I
#line 835 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //    836  
                                                                //    837           open input(1, "TEST.imp")
#line 837 "regression-compile-tmp/allimpc1-77.imp"
_imp_OPENINPUT(1, _imp_str_literal("TEST.imp"));
                                                                //    838           select input(1)
#line 838 "regression-compile-tmp/allimpc1-77.imp"
_imp_SELECTINPUT(1);
                                                                //    839  
                                                                //    840           CABUF=0; PPCURR=0; QPREAL=0; OLDLINE=0
#line 840 "regression-compile-tmp/allimpc1-77.imp"
CABUF = 0;
#line 840 "regression-compile-tmp/allimpc1-77.imp"
PPCURR = 0;
#line 840 "regression-compile-tmp/allimpc1-77.imp"
QPREAL = 0;
#line 840 "regression-compile-tmp/allimpc1-77.imp"
OLDLINE = 0;
                                                                //    841           LINE=0; RLEVEL=0; NMAX=0; CONSTPTR=0
#line 841 "regression-compile-tmp/allimpc1-77.imp"
LINE = 0;
#line 841 "regression-compile-tmp/allimpc1-77.imp"
RLEVEL = 0;
#line 841 "regression-compile-tmp/allimpc1-77.imp"
NMAX = 0;
#line 841 "regression-compile-tmp/allimpc1-77.imp"
CONSTPTR = 0;
                                                                //    842           LEVEL=0; CA=0; AFLAG=0; FFLAG=0; SBFLAG=0
#line 842 "regression-compile-tmp/allimpc1-77.imp"
LEVEL = 0;
#line 842 "regression-compile-tmp/allimpc1-77.imp"
CA = 0;
#line 842 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 842 "regression-compile-tmp/allimpc1-77.imp"
FFLAG = 0;
#line 842 "regression-compile-tmp/allimpc1-77.imp"
SBFLAG = 0;
                                                                //    843           FAULTY=0; PERM=0; MCSWITCH=0; ALL LONG=0
#line 843 "regression-compile-tmp/allimpc1-77.imp"
FAULTY = 0;
#line 843 "regression-compile-tmp/allimpc1-77.imp"
PERM = 0;
#line 843 "regression-compile-tmp/allimpc1-77.imp"
MCSWITCH = 0;
#line 843 "regression-compile-tmp/allimpc1-77.imp"
ALLLONG = 0;
                                                                //    844           DCOMP=0; COMPILER=0; CPRMODE=0; PRINT MAP=0
#line 844 "regression-compile-tmp/allimpc1-77.imp"
DCOMP = 0;
#line 844 "regression-compile-tmp/allimpc1-77.imp"
COMPILER = 0;
#line 844 "regression-compile-tmp/allimpc1-77.imp"
CPRMODE = 0;
#line 844 "regression-compile-tmp/allimpc1-77.imp"
PRINTMAP = 0;
                                                                //    845           NEXT=1; NR=0; LDPTR=0; NEPS=0; EPLINK=0
#line 845 "regression-compile-tmp/allimpc1-77.imp"
NEXT = 1;
#line 845 "regression-compile-tmp/allimpc1-77.imp"
NR = 0;
#line 845 "regression-compile-tmp/allimpc1-77.imp"
LDPTR = 0;
#line 845 "regression-compile-tmp/allimpc1-77.imp"
NEPS = 0;
#line 845 "regression-compile-tmp/allimpc1-77.imp"
EPLINK = 0;
                                                                //    846           RBASE=0; STRINST=0
#line 846 "regression-compile-tmp/allimpc1-77.imp"
RBASE = 0;
#line 846 "regression-compile-tmp/allimpc1-77.imp"
STRINST = 0;
                                                                //    847           IMAX=(-1)>>1;PLABEL=24999
#line 847 "regression-compile-tmp/allimpc1-77.imp"
IMAX = (int)((((unsigned int)((-1))) >> (1)));
#line 847 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = 24999;
                                                                //    848           SSTL=0; STMTS=0; SNUM=0
#line 848 "regression-compile-tmp/allimpc1-77.imp"
SSTL = 0;
#line 848 "regression-compile-tmp/allimpc1-77.imp"
STMTS = 0;
#line 848 "regression-compile-tmp/allimpc1-77.imp"
SNUM = 0;
                                                                //    849           LABSET=3<<30;LETT(0)=0
#line 849 "regression-compile-tmp/allimpc1-77.imp"
LABSET = ((3) << (30));
#line 849 "regression-compile-tmp/allimpc1-77.imp"
LETT[0] = 0;
                                                                //    850           N0=41; N=12
#line 850 "regression-compile-tmp/allimpc1-77.imp"
N0 = 41;
#line 850 "regression-compile-tmp/allimpc1-77.imp"
N = 12;
                                                                //    851           CHECKSP=1 ;  CHECKS=1
#line 851 "regression-compile-tmp/allimpc1-77.imp"
CHECKSP = 1;
#line 851 "regression-compile-tmp/allimpc1-77.imp"
CHECKS = 1;
                                                                //    852           LINENOS=1; DIAGS1=1; QU=1; MONE=1
#line 852 "regression-compile-tmp/allimpc1-77.imp"
LINENOS = 1;
#line 852 "regression-compile-tmp/allimpc1-77.imp"
DIAGS1 = 1;
#line 852 "regression-compile-tmp/allimpc1-77.imp"
QU = 1;
#line 852 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
                                                                //    853           LIST=1; SFLABEL=20999; UNASS=1
#line 853 "regression-compile-tmp/allimpc1-77.imp"
LIST = 1;
#line 853 "regression-compile-tmp/allimpc1-77.imp"
SFLABEL = 20999;
#line 853 "regression-compile-tmp/allimpc1-77.imp"
UNASS = 1;
                                                                //    854           OWNLINK=0; XREFLINK=136
#line 854 "regression-compile-tmp/allimpc1-77.imp"
OWNLINK = 0;
#line 854 "regression-compile-tmp/allimpc1-77.imp"
XREFLINK = 136;
                                                                //    855           I=COM(24)
#line 855 "regression-compile-tmp/allimpc1-77.imp"
I = COM(24);
                                                                //    856           LIST=0 %IF I&2#0
#line 856 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (2))) == (0))) goto L_00d3;
#line 856 "regression-compile-tmp/allimpc1-77.imp"
LIST = 0;
#line 856 "regression-compile-tmp/allimpc1-77.imp"
L_00d3:;
                                                                //    857           LINENOS=0 %IF I&4#0
#line 857 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (4))) == (0))) goto L_00d4;
#line 857 "regression-compile-tmp/allimpc1-77.imp"
LINENOS = 0;
#line 857 "regression-compile-tmp/allimpc1-77.imp"
L_00d4:;
                                                                //    858           UNASS=0 %IF I&16#0
#line 858 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (16))) == (0))) goto L_00d5;
#line 858 "regression-compile-tmp/allimpc1-77.imp"
UNASS = 0;
#line 858 "regression-compile-tmp/allimpc1-77.imp"
L_00d5:;
                                                                //    859           CHECKS=0 %IF I&32#0
#line 859 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (32))) == (0))) goto L_00d6;
#line 859 "regression-compile-tmp/allimpc1-77.imp"
CHECKS = 0;
#line 859 "regression-compile-tmp/allimpc1-77.imp"
L_00d6:;
                                                                //    860           PRINTMAP=1 %IF I&X'8000'#0
#line 860 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (32768))) == (0))) goto L_00d7;
#line 860 "regression-compile-tmp/allimpc1-77.imp"
PRINTMAP = 1;
#line 860 "regression-compile-tmp/allimpc1-77.imp"
L_00d7:;
                                                                //    861           DIAGS1=0 %IF I&64#0
#line 861 "regression-compile-tmp/allimpc1-77.imp"
if (((((I) & (64))) == (0))) goto L_00d8;
#line 861 "regression-compile-tmp/allimpc1-77.imp"
DIAGS1 = 0;
#line 861 "regression-compile-tmp/allimpc1-77.imp"
L_00d8:;
                                                                //    862           %CYCLE I=0,1,MAXLEVELS
#line 862 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = MAXLEVELS; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, MAXLEVELS");
I -= _increment; _control -= _increment;
L_00d9:;
if (I == _final) goto L_00da;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    863           SET(I)=0; CODEBASE(I)=0; FREG(I)=0; RAL(I)=0
#line 863 "regression-compile-tmp/allimpc1-77.imp"
SET[I] = 0;
#line 863 "regression-compile-tmp/allimpc1-77.imp"
CODEBASE[I] = 0;
#line 863 "regression-compile-tmp/allimpc1-77.imp"
FREG[I] = 0;
#line 863 "regression-compile-tmp/allimpc1-77.imp"
RAL[I] = 0;
                                                                //    864           LWSP(I)=0; MDARR(I)=0; RNEXT(I)=0; STRWSP(I)=0
#line 864 "regression-compile-tmp/allimpc1-77.imp"
LWSP[I] = 0;
#line 864 "regression-compile-tmp/allimpc1-77.imp"
MDARR[I] = 0;
#line 864 "regression-compile-tmp/allimpc1-77.imp"
RNEXT[I] = 0;
#line 864 "regression-compile-tmp/allimpc1-77.imp"
STRWSP[I] = 0;
                                                                //    865           CYCLE(I)=0; JUMP(I)=0; NAME(I)=0
#line 865 "regression-compile-tmp/allimpc1-77.imp"
CYCLE[I] = 0;
#line 865 "regression-compile-tmp/allimpc1-77.imp"
JUMP[I] = 0;
#line 865 "regression-compile-tmp/allimpc1-77.imp"
NAME[I] = 0;
                                                                //    866           LABEL(I)=0; FLAG(I)=0; SBR(I)=0; WSP(I)=0
#line 866 "regression-compile-tmp/allimpc1-77.imp"
LABEL[I] = 0;
#line 866 "regression-compile-tmp/allimpc1-77.imp"
FLAG[I] = 0;
#line 866 "regression-compile-tmp/allimpc1-77.imp"
SBR[I] = 0;
#line 866 "regression-compile-tmp/allimpc1-77.imp"
WSP[I] = 0;
                                                                //    867           %REPEAT
#line 867 "regression-compile-tmp/allimpc1-77.imp"
goto L_00d9;
#line 867 "regression-compile-tmp/allimpc1-77.imp"
L_00da:;
                                                                //    868           %CYCLE I=0,1,50
#line 868 "regression-compile-tmp/allimpc1-77.imp"
I = (-1);
if ((((50)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 50");
L_00dc:;
if (I == 50) goto L_00dd;
I += 1;
                                                                //    869           ST(I)=0; PAGENOS(I)=0
#line 869 "regression-compile-tmp/allimpc1-77.imp"
ST[I] = 0;
#line 869 "regression-compile-tmp/allimpc1-77.imp"
PAGENOS[I] = 0;
                                                                //    870           REGISTER(I)=0 %IF I<16
#line 870 "regression-compile-tmp/allimpc1-77.imp"
if (((I) >= (16))) goto L_00df;
#line 870 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[I] = 0;
#line 870 "regression-compile-tmp/allimpc1-77.imp"
L_00df:;
                                                                //    871           UVARREG(I)=0 %IF 5<=I<=8
#line 871 "regression-compile-tmp/allimpc1-77.imp"
if ((((5) > (I))) || (((I) > (8)))) goto L_00e0;
#line 871 "regression-compile-tmp/allimpc1-77.imp"
UVARREG[(((int)(I)) - (5))] = 0;
#line 871 "regression-compile-tmp/allimpc1-77.imp"
L_00e0:;
                                                                //    872           %REPEAT; PAGENOS(1)=10
#line 872 "regression-compile-tmp/allimpc1-77.imp"
goto L_00dc;
#line 872 "regression-compile-tmp/allimpc1-77.imp"
L_00dd:;
#line 872 "regression-compile-tmp/allimpc1-77.imp"
PAGENOS[1] = 10;
                                                                //    873           %CYCLE I=0,1,NNAMES
#line 873 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = NNAMES; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NNAMES");
I -= _increment; _control -= _increment;
L_00e1:;
if (I == _final) goto L_00e2;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    874           WORD(I)=0; TAGS(I)=0
#line 874 "regression-compile-tmp/allimpc1-77.imp"
WORD[I] = 0;
#line 874 "regression-compile-tmp/allimpc1-77.imp"
TAGS[I] = 0;
                                                                //    875           %REPEAT
#line 875 "regression-compile-tmp/allimpc1-77.imp"
goto L_00e1;
#line 875 "regression-compile-tmp/allimpc1-77.imp"
L_00e2:;
                                                                //    876           SET UP LIST
#line 876 "regression-compile-tmp/allimpc1-77.imp"
SETUPLIST();
                                                                //    877           PCLOD(0);                     !  ST 12,28(GLA)--L 12,92(GLA)
#line 877 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(0);
                                                                //    878           PCLOD(5);                     !  ST 15,60(11)--BAL 15,RTI
#line 878 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(5);
                                                                //    879           A(1)=28
#line 879 "regression-compile-tmp/allimpc1-77.imp"
A[3] = 28;
                                                                //    880           %CYCLE I=0,1,42
#line 880 "regression-compile-tmp/allimpc1-77.imp"
I = (-1);
if ((((42)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 42");
L_00e4:;
if (I == 42) goto L_00e5;
I += 1;
                                                                //    881           J=IWORD(I)
#line 881 "regression-compile-tmp/allimpc1-77.imp"
J = IWORD[I];
                                                                //    882           %CYCLE K=1,1,ILETT(J)
#line 882 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (ILETT-1)[J]; K = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, (ILETT-1)[J]");
K -= _increment; _control -= _increment;
L_00e7:;
if (K == _final) goto L_00e8;
K += _increment; _control += _increment;
if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */
}
                                                                //    883           CC(K)=ILETT(J+K);             ! COPY SPECIAL NAMES TO SOURCE
#line 883 "regression-compile-tmp/allimpc1-77.imp"
CC[K] = (ILETT-1)[(((int)(J)) + (K))];
                                                                //    884           %REPEAT; CC(K+1)=';'
#line 884 "regression-compile-tmp/allimpc1-77.imp"
goto L_00e7;
#line 884 "regression-compile-tmp/allimpc1-77.imp"
L_00e8:;
#line 884 "regression-compile-tmp/allimpc1-77.imp"
CC[(((int)(K)) + (1))] = 59;
                                                                //    885           R=2;Q=1; PNAME;               ! SPECIAL NAME TO DICTIONARY
#line 885 "regression-compile-tmp/allimpc1-77.imp"
R = 2;
#line 885 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
#line 885 "regression-compile-tmp/allimpc1-77.imp"
PNAME();
                                                                //    886           CSS(1); %REPEAT;              ! AND COMPILED
#line 886 "regression-compile-tmp/allimpc1-77.imp"
CSS(1);
#line 886 "regression-compile-tmp/allimpc1-77.imp"
goto L_00e4;
#line 886 "regression-compile-tmp/allimpc1-77.imp"
L_00e5:;
                                                                //    887           A(1)=12; CSS(1);              ! COMPILE A BEGIN
#line 887 "regression-compile-tmp/allimpc1-77.imp"
A[3] = 12;
#line 887 "regression-compile-tmp/allimpc1-77.imp"
CSS(1);
                                                                //    888           %END
#line 888 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block INITIALISE at level 2
                                                                //    889  !
                                                                //    890           %COMMENT THE NEXT 4 ROUTINES CAN BE MACROISED USING MVC
                                                                //    891  !
                                                                //    892           %ROUTINE     TOAR4(%INTEGER PTR,VALUE)
#line 892 "regression-compile-tmp/allimpc1-77.imp"
void TOAR4( int PTR, int VALUE )
#line 892 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    893           %INTEGER AD; AD=ADDR(VALUE)
#line 893 "regression-compile-tmp/allimpc1-77.imp"
int AD;
#line 893 "regression-compile-tmp/allimpc1-77.imp"
AD = _imp_ADDR(&VALUE);
                                                                //    894           A(PTR)<-SHORT INTEGER(AD)
#line 894 "regression-compile-tmp/allimpc1-77.imp"
A[((PTR) + ((int)(2)))] = *_imp_SHORTINTEGER(AD);
                                                                //    895           A(PTR+1)<-SHORT INTEGER (AD+2)
#line 895 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (2)));
                                                                //    896           %END
#line 896 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TOAR4 at level 2
                                                                //    897           %ROUTINE     TOAR8(%INTEGER PTR,%LONGREAL VALUE)
#line 897 "regression-compile-tmp/allimpc1-77.imp"
void TOAR8( int PTR, double VALUE )
#line 897 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    898           %INTEGER AD; AD=ADDR(VALUE)
#line 898 "regression-compile-tmp/allimpc1-77.imp"
int AD;
#line 898 "regression-compile-tmp/allimpc1-77.imp"
AD = _imp_ADDR(&VALUE);
                                                                //    899           A(PTR)<-SHORT INTEGER(AD)
#line 899 "regression-compile-tmp/allimpc1-77.imp"
A[((PTR) + ((int)(2)))] = *_imp_SHORTINTEGER(AD);
                                                                //    900           A(PTR+1)<-SHORT INTEGER(AD+2)
#line 900 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (2)));
                                                                //    901           A(PTR+2)<-SHORT INTEGER(AD+4)
#line 901 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(PTR)) + (2)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (4)));
                                                                //    902           A(PTR+3)<-SHORT INTEGER(AD+6)
#line 902 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(PTR)) + (3)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (6)));
                                                                //    903           %END
#line 903 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TOAR8 at level 2
                                                                //    904           %ROUTINE     FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)
#line 904 "regression-compile-tmp/allimpc1-77.imp"
void FROMAR4( int PTR, int /*name*/*VALUE )
#line 904 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    905           %INTEGER AD; AD=ADDR(VALUE)
#line 905 "regression-compile-tmp/allimpc1-77.imp"
int AD;
#line 905 "regression-compile-tmp/allimpc1-77.imp"
AD = _imp_ADDR(VALUE);
                                                                //    906           SET SHORT INTEGER(AD, A(PTR))
#line 906 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER(AD, A[((PTR) + ((int)(2)))]);
                                                                //    907           SET SHORT INTEGER(AD+2, A(PTR+1))
#line 907 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(AD)) + (2)), A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))]);
                                                                //    908           %END
#line 908 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROMAR4 at level 2
                                                                //    909           %ROUTINE     FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)
#line 909 "regression-compile-tmp/allimpc1-77.imp"
void FROMAR8( int PTR, double /*name*/*VALUE )
#line 909 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    910           %INTEGER AD; AD=ADDR(VALUE)
#line 910 "regression-compile-tmp/allimpc1-77.imp"
int AD;
#line 910 "regression-compile-tmp/allimpc1-77.imp"
AD = _imp_ADDR(VALUE);
                                                                //    911           SET SHORT INTEGER(AD,  A(PTR))
#line 911 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER(AD, A[((PTR) + ((int)(2)))]);
                                                                //    912           SET SHORT INTEGER(AD+2, A(PTR+1))
#line 912 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(AD)) + (2)), A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))]);
                                                                //    913           SET SHORT INTEGER(AD+4, A(PTR+2))
#line 913 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(AD)) + (4)), A[(((unsigned char)((((int)(PTR)) + (2)))) + (2))]);
                                                                //    914           SET SHORT INTEGER(AD+6, A(PTR+3))
#line 914 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(AD)) + (6)), A[(((unsigned char)((((int)(PTR)) + (3)))) + (2))]);
                                                                //    915           %END
#line 915 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROMAR8 at level 2
                                                                //    916                 %ROUTINE PRINTNAME (%INTEGER N)
#line 916 "regression-compile-tmp/allimpc1-77.imp"
void PRINTNAME( int N )
#line 916 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    917           !%SHORTROUTINE
                                                                //    918           %INTEGER J,V
#line 918 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 918 "regression-compile-tmp/allimpc1-77.imp"
int V;
                                                                //    919           ->L4 %IF N>=0; N=-N
#line 919 "regression-compile-tmp/allimpc1-77.imp"
if (((N) < (0))) goto L_00ea;
#line 919 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 919 "regression-compile-tmp/allimpc1-77.imp"
L_00ea:;
#line 919 "regression-compile-tmp/allimpc1-77.imp"
N = (-(N));
                                                                //    920           ->L5 %UNLESS 16384<=N<=16384+NNAMES
#line 920 "regression-compile-tmp/allimpc1-77.imp"
if ((((16384) > (N))) || (((N) <= ((((int)(16384)) + (NNAMES)))))) goto L_00eb;
#line 920 "regression-compile-tmp/allimpc1-77.imp"
L_00e6:;
#line 920 "regression-compile-tmp/allimpc1-77.imp"
goto U_100d;
#line 920 "regression-compile-tmp/allimpc1-77.imp"
L_00eb:;
                                                                //    921           N=N-16384; ->L4
#line 921 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) - (16384));
#line 921 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
                                                                //    922  L5:       WRITE(N,1); ->L3
#line 922 "regression-compile-tmp/allimpc1-77.imp"
U_100d:;
#line 922 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(N, 1);
#line 922 "regression-compile-tmp/allimpc1-77.imp"
goto U_100e;
                                                                //    923  L4:       SPACE; V=WORD(N)
#line 923 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 923 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACE();
#line 923 "regression-compile-tmp/allimpc1-77.imp"
V = WORD[N];
                                                                //    924           %CYCLE J=1,1,LETT(V)
#line 924 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = LETT[V]; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, LETT[V]");
J -= _increment; _control -= _increment;
L_00ec:;
if (J == _final) goto L_00ed;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    925           PRINT SYMBOL(LETT(V+J))
#line 925 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(LETT[(((int)(V)) + (J))]);
                                                                //    926           %REPEAT
#line 926 "regression-compile-tmp/allimpc1-77.imp"
goto L_00ec;
#line 926 "regression-compile-tmp/allimpc1-77.imp"
L_00ed:;
                                                                //    927  L3:             %END
#line 927 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 927 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTNAME at level 2
                                                                //    928           %ROUTINE     PCLOD(%INTEGER PTR)
#line 928 "regression-compile-tmp/allimpc1-77.imp"
void PCLOD( int PTR )
#line 928 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    929           %INTEGER I
#line 929 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //    930           %CYCLE I=PTR+1,1,PTR+CLODS(PTR)
#line 930 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(PTR)) + (1)); _increment = 1; _final = ((PTR) + ((int)(CLODS[PTR]))); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(PTR)) + (1)), 1, ((PTR) + ((int)(CLODS[PTR])))");
I -= _increment; _control -= _increment;
L_00ef:;
if (I == _final) goto L_00f0;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    931           PLANT(CLODS(I))
#line 931 "regression-compile-tmp/allimpc1-77.imp"
PLANT(CLODS[I]);
                                                                //    932           %REPEAT
#line 932 "regression-compile-tmp/allimpc1-77.imp"
goto L_00ef;
#line 932 "regression-compile-tmp/allimpc1-77.imp"
L_00f0:;
                                                                //    933           %END
#line 933 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PCLOD at level 2
                                                                //    934           %ROUTINE     PACLOD(%INTEGER PTR,AT,VALUE)
#line 934 "regression-compile-tmp/allimpc1-77.imp"
void PACLOD( int PTR, int AT, int VALUE )
#line 934 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    935           %INTEGER I,J,K
#line 935 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 935 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 935 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //    936           J=CLODS(PTR); AT=AT+PTR
#line 936 "regression-compile-tmp/allimpc1-77.imp"
J = CLODS[PTR];
#line 936 "regression-compile-tmp/allimpc1-77.imp"
AT = (((int)(AT)) + (PTR));
                                                                //    937           %CYCLE I=PTR+1,1,PTR+J
#line 937 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(PTR)) + (1)); _increment = 1; _final = (((int)(PTR)) + (J)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(PTR)) + (1)), 1, (((int)(PTR)) + (J))");
I -= _increment; _control -= _increment;
L_00f2:;
if (I == _final) goto L_00f3;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //    938           K=CLODS(I)
#line 938 "regression-compile-tmp/allimpc1-77.imp"
K = CLODS[I];
                                                                //    939           K=K!VALUE %IF I=AT
#line 939 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (AT))) goto L_00f5;
#line 939 "regression-compile-tmp/allimpc1-77.imp"
K = ((K) | (VALUE));
#line 939 "regression-compile-tmp/allimpc1-77.imp"
L_00f5:;
                                                                //    940           PLANT(K);%REPEAT
#line 940 "regression-compile-tmp/allimpc1-77.imp"
PLANT(K);
#line 940 "regression-compile-tmp/allimpc1-77.imp"
goto L_00f2;
#line 940 "regression-compile-tmp/allimpc1-77.imp"
L_00f3:;
                                                                //    941           %END
#line 941 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PACLOD at level 2
                                                                //    942           %ROUTINE     PLANT(%INTEGER VALUE)
#line 942 "regression-compile-tmp/allimpc1-77.imp"
void PLANT( int VALUE )
#line 942 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    943           !%SHORTROUTINE
                                                                //    944           CODE(PPCURR)<-VALUE
#line 944 "regression-compile-tmp/allimpc1-77.imp"
CODE[PPCURR] = VALUE;
                                                                //    945     PPCURR=PPCURR+1; CA=CA+2
#line 945 "regression-compile-tmp/allimpc1-77.imp"
PPCURR = (((int)(PPCURR)) + (1));
#line 945 "regression-compile-tmp/allimpc1-77.imp"
CA = (((int)(CA)) + (2));
                                                                //    946           %RETURN %UNLESS PPCURR=192
#line 946 "regression-compile-tmp/allimpc1-77.imp"
if (((PPCURR) == (192))) goto L_00f6;
#line 946 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 946 "regression-compile-tmp/allimpc1-77.imp"
L_00f6:;
                                                                //    947           LPUT(1,384,CABUF,ADDR(CODE(0)))
#line 947 "regression-compile-tmp/allimpc1-77.imp"
LPUT(1, 384, CABUF, _imp_ADDR(&CODE[0]));
                                                                //    948           PPCURR=0; CABUF=CA
#line 948 "regression-compile-tmp/allimpc1-77.imp"
PPCURR = 0;
#line 948 "regression-compile-tmp/allimpc1-77.imp"
CABUF = CA;
                                                                //    949           %END
#line 949 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANT at level 2
                                                                //    950           %ROUTINE     PRR (%INTEGER OPCODE,R1,R2)
#line 950 "regression-compile-tmp/allimpc1-77.imp"
void PRR( int OPCODE, int R1, int R2 )
#line 950 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    951           PLANT(OPCODE<<8!R1<<4!R2)
#line 951 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((((OPCODE) << (8))) | (((R1) << (4))))) | (R2)));
                                                                //    952           %END
#line 952 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRR at level 2
                                                                //    953           %ROUTINE     PRX(%INTEGER OPCODE,R1,R2,BASE,DISP)
#line 953 "regression-compile-tmp/allimpc1-77.imp"
void PRX( int OPCODE, int R1, int R2, int BASE, int DISP )
#line 953 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    954           PLANT(OPCODE<<8!R1<<4!R2)
#line 954 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((((OPCODE) << (8))) | (((R1) << (4))))) | (R2)));
                                                                //    955           PLANT(BASE<<12!DISP)
#line 955 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((BASE) << (12))) | (DISP)));
                                                                //    956           %END
#line 956 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRX at level 2
                                                                //    957           %ROUTINE     PSI(%INTEGER OPCODE,J,BASE,DISP)
#line 957 "regression-compile-tmp/allimpc1-77.imp"
void PSI( int OPCODE, int J, int BASE, int DISP )
#line 957 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    958           PLANT(OPCODE<<8!J)
#line 958 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((OPCODE) << (8))) | (J)));
                                                                //    959           PLANT(BASE<<12!DISP)
#line 959 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((BASE) << (12))) | (DISP)));
                                                                //    960           %END
#line 960 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PSI at level 2
                                                                //    961           %ROUTINE     PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q)
#line 961 "regression-compile-tmp/allimpc1-77.imp"
void PSS( int OPCODE, int N, int BASE, int DISP, int P, int Q )
#line 961 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    962           PLANT(OPCODE<<8!(N-1))
#line 962 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((OPCODE) << (8))) | ((((int)(N)) - (1)))));
                                                                //    963           PLANT(BASE<<12!DISP)
#line 963 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((BASE) << (12))) | (DISP)));
                                                                //    964           PLANT(P<<12!Q)
#line 964 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((P) << (12))) | (Q)));
                                                                //    965           %END
#line 965 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PSS at level 2
                                                                //    966           %ROUTINE     PCONST(%INTEGER X)
#line 966 "regression-compile-tmp/allimpc1-77.imp"
void PCONST( int X )
#line 966 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    967           PLANT(X>>16); PLANT(X&X'FFFF')
#line 967 "regression-compile-tmp/allimpc1-77.imp"
PLANT((int)((((unsigned int)(X)) >> (16))));
#line 967 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((X) & (65535)));
                                                                //    968           %END
#line 968 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PCONST at level 2
                                                                //    969           %ROUTINE     CNOP(%INTEGER I,J)
#line 969 "regression-compile-tmp/allimpc1-77.imp"
void CNOP( int I, int J )
#line 969 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    970           J=J-1
#line 970 "regression-compile-tmp/allimpc1-77.imp"
J = (((int)(J)) - (1));
                                                                //    971  L1:       ->L9 %IF CA&J=I; PLANT(X'0700'); ->L1
#line 971 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 971 "regression-compile-tmp/allimpc1-77.imp"
if (((((CA) & (J))) != (I))) goto L_00f7;
#line 971 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
#line 971 "regression-compile-tmp/allimpc1-77.imp"
L_00f7:;
#line 971 "regression-compile-tmp/allimpc1-77.imp"
PLANT(1792);
#line 971 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
                                                                //    972  L9:       %END
#line 972 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 972 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CNOP at level 2
                                                                //    973           %ROUTINE     PSYM(%INTEGER X)
#line 973 "regression-compile-tmp/allimpc1-77.imp"
void PSYM( int X )
#line 973 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    974           LPUT(5,4,CONSTPTR<<2,ADDR(X))
#line 974 "regression-compile-tmp/allimpc1-77.imp"
LPUT(5, 4, ((CONSTPTR) << (2)), _imp_ADDR(&X));
                                                                //    975           CONSTPTR=CONSTPTR+1
#line 975 "regression-compile-tmp/allimpc1-77.imp"
CONSTPTR = (((int)(CONSTPTR)) + (1));
                                                                //    976           %END
#line 976 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PSYM at level 2
                                                                //    977           %ROUTINE     PLUG(%INTEGER J,K)
#line 977 "regression-compile-tmp/allimpc1-77.imp"
void PLUG( int J, int K )
#line 977 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    978           !%SHORTROUTINE
                                                                //    979           ->INBUF %IF J>=CABUF
#line 979 "regression-compile-tmp/allimpc1-77.imp"
if (((J) < (CABUF))) goto L_00f8;
#line 979 "regression-compile-tmp/allimpc1-77.imp"
goto U_100b;
#line 979 "regression-compile-tmp/allimpc1-77.imp"
L_00f8:;
                                                                //    980           LPUT(1,2,J,ADDR(K)+2)    ; ->L99
#line 980 "regression-compile-tmp/allimpc1-77.imp"
LPUT(1, 2, J, (((int)(_imp_ADDR(&K))) + (2)));
#line 980 "regression-compile-tmp/allimpc1-77.imp"
goto U_100c;
                                                                //    981  INBUF:   CODE((J-CABUF)>>1)<-K
#line 981 "regression-compile-tmp/allimpc1-77.imp"
U_100b:;
#line 981 "regression-compile-tmp/allimpc1-77.imp"
CODE[(((((((int)(J)) - (CABUF)))) >> (1)))] = K;
                                                                //    982  L99:      %END
#line 982 "regression-compile-tmp/allimpc1-77.imp"
U_100c:;
#line 982 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLUG at level 2
                                                                //    983           %ROUTINE     PRHEX(%INTEGER VALUE,PLACES)
#line 983 "regression-compile-tmp/allimpc1-77.imp"
void PRHEX( int VALUE, int PLACES )
#line 983 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    984           %OWNBYTEINTEGERARRAY HEX(0:15)='0','1','2','3','4',
#line 984 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char HEX[16] = { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70,  };
                                                                //    985                 '5','6','7','8','9','A','B','C','D','E','F';
                                                                //    986           %INTEGER I
#line 986 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //    987           %CYCLE I=PLACES<<2-4,-4,0
#line 987 "regression-compile-tmp/allimpc1-77.imp"
I = (((unsigned char)((((int)(((PLACES) << (2)))) - (4)))) + (4));
if ((((0)-((((int)(((PLACES) << (2)))) - (4)))) % ((-4))) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(((PLACES) << (2)))) - (4)), (-4), 0");
L_00f9:;
if (I == 0) goto L_00fa;
I += (-4);
                                                                //    988           PRINT SYMBOL(HEX(VALUE>>I&15))
#line 988 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSYMBOL(HEX[(((int)((((unsigned int)(VALUE)) >> (I)))) & (15))]);
                                                                //    989           %REPEAT
#line 989 "regression-compile-tmp/allimpc1-77.imp"
goto L_00f9;
#line 989 "regression-compile-tmp/allimpc1-77.imp"
L_00fa:;
                                                                //    990           %END
#line 990 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRHEX at level 2
                                                                //    991           %ROUTINE SIZES
#line 991 "regression-compile-tmp/allimpc1-77.imp"
void SIZES( void )
#line 991 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //    992           !%SHORTROUTINE
                                                                //    993           %ROUTINESPEC SUM(%INTEGER I)
#line 993 "regression-compile-tmp/allimpc1-77.imp"
auto void SUM( int I );
                                                                //    994           %INTEGER I,J,FREE,TOTAL
#line 994 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 994 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 994 "regression-compile-tmp/allimpc1-77.imp"
int FREE;
#line 994 "regression-compile-tmp/allimpc1-77.imp"
int TOTAL;
                                                                //    995  
                                                                //    996           free=20000
#line 996 "regression-compile-tmp/allimpc1-77.imp"
FREE = 20000;
                                                                //    997           sum(5)
#line 997 "regression-compile-tmp/allimpc1-77.imp"
SUM(5);
                                                                //    998           %if debug=1 %start
#line 998 "regression-compile-tmp/allimpc1-77.imp"
if (((0) != (1))) goto L_00fc;
                                                                //    999           print string("NNAMES="); write(NNAMES,0);
#line 999 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("NNAMES="));
#line 999 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(NNAMES, 0);
                                                                //   1000           print string("  CCSIZE="); write(CCSIZE,0);
#line 1000 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  CCSIZE="));
#line 1000 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(CCSIZE, 0);
                                                                //   1001           print string("  NROUTS="); write(NROUTS,0);
#line 1001 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  NROUTS="));
#line 1001 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(NROUTS, 0);
                                                                //   1002           print string("  ASL="); write(ASL,0);
#line 1002 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  ASL="));
#line 1002 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(ASL, 0);
                                                                //   1003           print string("  ARSIZE="); write(ARSIZE,0);
#line 1003 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  ARSIZE="));
#line 1003 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(ARSIZE, 0);
                                                                //   1004           print string("  DSIZE="); write(DSIZE,0);
#line 1004 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  DSIZE="));
#line 1004 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(DSIZE, 0);
                                                                //   1005           print string("  TOTAL="); write(TOTAL,0);
#line 1005 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("  TOTAL="));
#line 1005 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(TOTAL, 0);
                                                                //   1006           newlines(2)
#line 1006 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINES(2);
                                                                //   1007           %finish
#line 1007 "regression-compile-tmp/allimpc1-77.imp"
L_00fc:;
                                                                //   1008           
                                                                //   1009           !!I=COM(2)
                                                                //   1010           !!FREE=INTEGER(I+4);            !TOP OF STORE
                                                                //   1011           !!FREE=FREE-ADDR(TOTAL)-10000
                                                                //   1012           ! TOTAL IS CURRENT TOP OF STACK - 10K FOR COMPARE
                                                                //   1013           !!%CYCLE J=0,1,5; SUM(J)
                                                                //   1014           !!->L1 %IF TOTAL>FREE
                                                                //   1015           !!%REPEAT
                                                                //   1016           %RETURN
#line 1016 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1017  L1:       ->L2 %UNLESS J=0
#line 1017 "regression-compile-tmp/allimpc1-77.imp"
U_100e:;
#line 1017 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == (0))) goto L_00fd;
#line 1017 "regression-compile-tmp/allimpc1-77.imp"
goto U_100f;
#line 1017 "regression-compile-tmp/allimpc1-77.imp"
L_00fd:;
                                                                //   1018           print string("NOT ENOUGH CORE ALLOCATED FOR IMP")
#line 1018 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("NOT ENOUGH CORE ALLOCATED FOR IMP"));
                                                                //   1019           %MONITOR ; %STOP
#line 1019 "regression-compile-tmp/allimpc1-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 1019 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //   1020  L2:       SUM(J-1)
#line 1020 "regression-compile-tmp/allimpc1-77.imp"
U_100f:;
#line 1020 "regression-compile-tmp/allimpc1-77.imp"
SUM((((int)(J)) - (1)));
                                                                //   1021           %RETURN
#line 1021 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1022           %ROUTINE     SUM(%INTEGER I)
#line 1022 "regression-compile-tmp/allimpc1-77.imp"
void SUM( int I )
#line 1022 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1023           NNAMES=128*2^^I-1
#line 1023 "regression-compile-tmp/allimpc1-77.imp"
NNAMES = (((int)(((128) * ((int)(_imp_IEXP(2, I)))))) - (1));
                                                                //   1024           CCSIZE=200+40*I
#line 1024 "regression-compile-tmp/allimpc1-77.imp"
CCSIZE = ((200) + ((int)((((int)(40)) * (I)))));
                                                                //   1025           NROUTS=NNAMES//2
#line 1025 "regression-compile-tmp/allimpc1-77.imp"
NROUTS = (long)((long)((int)(NNAMES)) / (long)((int)(2)));
                                                                //   1026           ASL   =24*NNAMES
#line 1026 "regression-compile-tmp/allimpc1-77.imp"
ASL = (((int)(24)) * (NNAMES));
                                                                //   1027           ASL=32760 %IF ASL>32760;      ! MAX FOR 16BIT LINKS
#line 1027 "regression-compile-tmp/allimpc1-77.imp"
if (((ASL) <= (32760))) goto L_00fe;
#line 1027 "regression-compile-tmp/allimpc1-77.imp"
ASL = 32760;
#line 1027 "regression-compile-tmp/allimpc1-77.imp"
L_00fe:;
                                                                //   1028           ARSIZE=300+50*I
#line 1028 "regression-compile-tmp/allimpc1-77.imp"
ARSIZE = ((300) + ((int)((((int)(50)) * (I)))));
                                                                //   1029           DSIZE= 6*NNAMES
#line 1029 "regression-compile-tmp/allimpc1-77.imp"
DSIZE = (((int)(6)) * (NNAMES));
                                                                //   1030           TOTAL=CCSIZE+ASL+2*(NROUTS+ARSIZE+DSIZE)
#line 1030 "regression-compile-tmp/allimpc1-77.imp"
TOTAL = ((((((int)(CCSIZE)) + (ASL)))) + (((2) * ((int)((((short)((((short)(NROUTS)) + (ARSIZE)))) + (DSIZE)))))));
                                                                //   1031           %END
#line 1031 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SUM at level 3
                                                                //   1032           %END
#line 1032 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SIZES at level 2
                                                                //   1033  !
                                                                //   1034           %ROUTINE CSS (%INTEGER P)
#line 1034 "regression-compile-tmp/allimpc1-77.imp"
void CSS( int P )
#line 1034 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1035         %ROUTINESPEC REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS)
#line 1035 "regression-compile-tmp/allimpc1-77.imp"
auto void REDEFINEEP( int TYPEP, int /*arrayname*/*PARAMS );
                                                                //   1036           %ROUTINESPEC CIOCP(%INTEGER N)
#line 1036 "regression-compile-tmp/allimpc1-77.imp"
auto void CIOCP( int N );
                                                                //   1037           %ROUTINESPEC DEFINE EP(%INTEGER MODE, NAME, ADDR)
#line 1037 "regression-compile-tmp/allimpc1-77.imp"
auto void DEFINEEP( int MODE, int NAME, int ADDR );
                                                                //   1038           %ROUTINESPEC LOAD DATA
#line 1038 "regression-compile-tmp/allimpc1-77.imp"
auto void LOADDATA( void );
                                                                //   1039           %ROUTINESPEC P LOCAL JUMP(%INTEGER MASK,LAB)
#line 1039 "regression-compile-tmp/allimpc1-77.imp"
auto void PLOCALJUMP( int MASK, int LAB );
                                                                //   1040           %ROUTINESPEC FILL LOCAL JUMPS
#line 1040 "regression-compile-tmp/allimpc1-77.imp"
auto void FILLLOCALJUMPS( void );
                                                                //   1041           %ROUTINESPEC CLEAR LIST (%SHORTINTEGERNAME OPHEAD)     ; ! Care needed with short conversion!
#line 1041 "regression-compile-tmp/allimpc1-77.imp"
auto void CLEARLIST( short /*name*/*OPHEAD );
                                                                //   1042           %ROUTINESPEC STORE STRING(%INTEGER Z,FROM,TO,BML,DML)
#line 1042 "regression-compile-tmp/allimpc1-77.imp"
auto void STORESTRING( int Z, int FROM, int TO, int BML, int DML );
                                                                //   1043           %ROUTINESPEC CEND(%INTEGER KKK)
#line 1043 "regression-compile-tmp/allimpc1-77.imp"
auto void CEND( int KKK );
                                                                //   1044           %ROUTINESPEC CBPAIR(%INTEGERNAME LB,UB)
#line 1044 "regression-compile-tmp/allimpc1-77.imp"
auto void CBPAIR( int /*name*/*LB, int /*name*/*UB );
                                                                //   1045           %ROUTINESPEC UNDCRF (%SHORTINTEGERNAME OPHEAD)     ; ! Care needed with short conversion!
#line 1045 "regression-compile-tmp/allimpc1-77.imp"
auto void UNDCRF( short /*name*/*OPHEAD );
                                                                //   1046            %ROUTINESPEC CCOND(%INTEGER IU,REG,ADDR)
#line 1046 "regression-compile-tmp/allimpc1-77.imp"
auto void CCOND( int IU, int REG, int ADDR );
                                                                //   1047           %ROUTINESPEC FILL JUMPS(%INTEGER LEVEL)
#line 1047 "regression-compile-tmp/allimpc1-77.imp"
auto void FILLJUMPS( int LEVEL );
                                                                //   1048                 %ROUTINESPEC SET LINE
#line 1048 "regression-compile-tmp/allimpc1-77.imp"
auto void SETLINE( void );
                                                                //   1049           %ROUTINESPEC CUI(%BYTEINTEGER CODE)
#line 1049 "regression-compile-tmp/allimpc1-77.imp"
auto void CUI( unsigned char CODE );
                                                                //   1050           %ROUTINESPEC SET80(%INTEGER WHERE,N)
#line 1050 "regression-compile-tmp/allimpc1-77.imp"
auto void SET80( int WHERE, int N );
                                                                //   1051           %ROUTINESPEC CVDECLN
#line 1051 "regression-compile-tmp/allimpc1-77.imp"
auto void CVDECLN( void );
                                                                //   1052           %ROUTINESPEC CSEXP(%INTEGER REG,%BYTEINTEGER MODE)
#line 1052 "regression-compile-tmp/allimpc1-77.imp"
auto void CSEXP( int REG, unsigned char MODE );
                                                                //   1053           %ROUTINESPEC CSTREXP(%INTEGER REG)
#line 1053 "regression-compile-tmp/allimpc1-77.imp"
auto void CSTREXP( int REG );
                                                                //   1054                 %ROUTINESPEC CHECK RF
#line 1054 "regression-compile-tmp/allimpc1-77.imp"
auto void CHECKRF( void );
                                                                //   1055           %ROUTINESPEC ASSIGN (%INTEGER P1,P2)
#line 1055 "regression-compile-tmp/allimpc1-77.imp"
auto void ASSIGN( int P1, int P2 );
                                                                //   1056           %INTEGERFNSPEC COPY RECORD TAG
#line 1056 "regression-compile-tmp/allimpc1-77.imp"
auto int COPYRECORDTAG( void );
                                                                //   1057           %INTEGERFNSPEC COUNT APS
#line 1057 "regression-compile-tmp/allimpc1-77.imp"
auto int COUNTAPS( void );
                                                                //   1058           %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK)
#line 1058 "regression-compile-tmp/allimpc1-77.imp"
auto int DISPLACEMENT( int LINK );
                                                                //   1059           %ROUTINESPEC LOADAD(%INTEGER REG,BASE,X,DISP)
#line 1059 "regression-compile-tmp/allimpc1-77.imp"
auto void LOADAD( int REG, int BASE, int X, int DISP );
                                                                //   1060                  %ROUTINESPEC SKIP APP
#line 1060 "regression-compile-tmp/allimpc1-77.imp"
auto void SKIPAPP( void );
                                                                //   1061           %ROUTINESPEC CQUERY(%INTEGER REG)
#line 1061 "regression-compile-tmp/allimpc1-77.imp"
auto void CQUERY( int REG );
                                                                //   1062           %ROUTINESPEC CRFORMAT
#line 1062 "regression-compile-tmp/allimpc1-77.imp"
auto void CRFORMAT( void );
                                                                //   1063           %ROUTINESPEC CADCLN(%BYTEINTEGER MODE)
#line 1063 "regression-compile-tmp/allimpc1-77.imp"
auto void CADCLN( unsigned char MODE );
                                                                //   1064           %ROUTINESPEC CQN(%INTEGER P)
#line 1064 "regression-compile-tmp/allimpc1-77.imp"
auto void CQN( int P );
                                                                //   1065           %ROUTINESPEC CLT
#line 1065 "regression-compile-tmp/allimpc1-77.imp"
auto void CLT( void );
                                                                //   1066                 %ROUTINESPEC MOVE R(%INTEGER R,N)
#line 1066 "regression-compile-tmp/allimpc1-77.imp"
auto void MOVER( int R, int N );
                                                                //   1067           %INTEGERFNSPEC GET ARR WSP
#line 1067 "regression-compile-tmp/allimpc1-77.imp"
auto int GETARRWSP( void );
                                                                //   1068           %INTEGERFNSPEC GET DBLE WRD
#line 1068 "regression-compile-tmp/allimpc1-77.imp"
auto int GETDBLEWRD( void );
                                                                //   1069           %ROUTINESPEC CRCALL (%INTEGER CLINK)
#line 1069 "regression-compile-tmp/allimpc1-77.imp"
auto void CRCALL( int CLINK );
                                                                //   1070           %ROUTINESPEC CNAME(%INTEGER Z,REG)
#line 1070 "regression-compile-tmp/allimpc1-77.imp"
auto void CNAME( int Z, int REG );
                                                                //   1071           %ROUTINESPEC CRNAME(%INTEGER Z,MODE,CLINK,BS,DP)
#line 1071 "regression-compile-tmp/allimpc1-77.imp"
auto void CRNAME( int Z, int MODE, int CLINK, int BS, int DP );
                                                                //   1072           %ROUTINESPEC CANAME(%INTEGER Z,BS,DP,LINK,BSRF,DPRF)
#line 1072 "regression-compile-tmp/allimpc1-77.imp"
auto void CANAME( int Z, int BS, int DP, int LINK, int BSRF, int DPRF );
                                                                //   1073           %ROUTINESPEC CENAME(%INTEGER Z,MODE,BS,DP)
#line 1073 "regression-compile-tmp/allimpc1-77.imp"
auto void CENAME( int Z, int MODE, int BS, int DP );
                                                                //   1074           %ROUTINESPEC INSERTAFTER(%SHORTINTEGERNAME STAD,%INTEGER S1,S2)     ; ! Care needed with short conversion!
#line 1074 "regression-compile-tmp/allimpc1-77.imp"
auto void INSERTAFTER( short /*name*/*STAD, int S1, int S2 );
                                                                //   1075           %ROUTINESPEC FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2)
#line 1075 "regression-compile-tmp/allimpc1-77.imp"
auto void FROMLIST( int CELL, int /*name*/*S1, int /*name*/*S2 );
                                                                //   1076           %ROUTINESPEC POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)     ; ! Care needed with short conversion!
#line 1076 "regression-compile-tmp/allimpc1-77.imp"
auto void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 );
                                                                //   1077           %ROUTINESPEC PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)     ; ! Care needed with short conversion!
#line 1077 "regression-compile-tmp/allimpc1-77.imp"
auto void PUSH( short /*name*/*CELL, int S1, int S2 );
                                                                //   1078           %INTEGERFNSPEC FIND(%INTEGER LAB,LIST)
#line 1078 "regression-compile-tmp/allimpc1-77.imp"
auto int FIND( int LAB, int LIST );
                                                                //   1079           %ROUTINESPEC MLINK(%INTEGERNAME CELL)
#line 1079 "regression-compile-tmp/allimpc1-77.imp"
auto void MLINK( int /*name*/*CELL );
                                                                //   1080           %ROUTINESPEC REPLACE2(%INTEGER CELL,S2)
#line 1080 "regression-compile-tmp/allimpc1-77.imp"
auto void REPLACE2( int CELL, int S2 );
                                                                //   1081           %ROUTINESPEC REPLACE1(%INTEGER CELL,S1)
#line 1081 "regression-compile-tmp/allimpc1-77.imp"
auto void REPLACE1( int CELL, int S1 );
                                                                //   1082           %ROUTINESPEC REPLACE BOTH(%INTEGER CELL,S1,S2)
#line 1082 "regression-compile-tmp/allimpc1-77.imp"
auto void REPLACEBOTH( int CELL, int S1, int S2 );
                                                                //   1083           %ROUTINESPEC FROM2(%INTEGER CELL,%INTEGERNAME S2)
#line 1083 "regression-compile-tmp/allimpc1-77.imp"
auto void FROM2( int CELL, int /*name*/*S2 );
                                                                //   1084           %ROUTINESPEC FROM1(%INTEGER CELL,%INTEGERNAME S1)
#line 1084 "regression-compile-tmp/allimpc1-77.imp"
auto void FROM1( int CELL, int /*name*/*S1 );
                                                                //   1085           %ROUTINESPEC CRES(%INTEGER MODE,LAB)
#line 1085 "regression-compile-tmp/allimpc1-77.imp"
auto void CRES( int MODE, int LAB );
                                                                //   1086                 %INTEGERFNSPEC NEWCELL
#line 1086 "regression-compile-tmp/allimpc1-77.imp"
auto int NEWCELL( void );
                                                                //   1087                 %ROUTINESPEC COPY TAG (%INTEGER KK)
#line 1087 "regression-compile-tmp/allimpc1-77.imp"
auto void COPYTAG( int KK );
                                                                //   1088           %ROUTINESPEC CSNAME(%INTEGER Z,REG)
#line 1088 "regression-compile-tmp/allimpc1-77.imp"
auto void CSNAME( int Z, int REG );
                                                                //   1089                 %ROUTINESPEC REPLACE TAG (%INTEGER KK)
#line 1089 "regression-compile-tmp/allimpc1-77.imp"
auto void REPLACETAG( int KK );
                                                                //   1090                 %INTEGERFNSPEC PARK(%INTEGER REG)
#line 1090 "regression-compile-tmp/allimpc1-77.imp"
auto int PARK( int REG );
                                                                //   1091           %INTEGERFN %SPEC PARKF (%INTEGER REG,PREC)
#line 1091 "regression-compile-tmp/allimpc1-77.imp"
auto int PARKF( int REG, int PREC );
                                                                //   1092           %INTEGERFNSPEC  CLAIMABLE REG
#line 1092 "regression-compile-tmp/allimpc1-77.imp"
auto int CLAIMABLEREG( void );
                                                                //   1093                 %INTEGERFNSPEC       FIND PP
#line 1093 "regression-compile-tmp/allimpc1-77.imp"
auto int FINDPP( void );
                                                                //   1094           %INTEGERFNSPEC GET STR WSP
#line 1094 "regression-compile-tmp/allimpc1-77.imp"
auto int GETSTRWSP( void );
                                                                //   1095           %ROUTINESPEC SETEX
#line 1095 "regression-compile-tmp/allimpc1-77.imp"
auto void SETEX( void );
                                                                //   1096           %ROUTINESPEC GXREF(%INTEGER NAME,HASH)
#line 1096 "regression-compile-tmp/allimpc1-77.imp"
auto void GXREF( int NAME, int HASH );
                                                                //   1097           %ROUTINESPEC UNPARK(%INTEGER OPCODE,REG,Q)
#line 1097 "regression-compile-tmp/allimpc1-77.imp"
auto void UNPARK( int OPCODE, int REG, int Q );
                                                                //   1098           %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK)
#line 1098 "regression-compile-tmp/allimpc1-77.imp"
auto void STORETAG( int KK, int SLINK );
                                                                //   1099           %INTEGERFNSPEC PAGENO(%INTEGER N)
#line 1099 "regression-compile-tmp/allimpc1-77.imp"
auto int PAGENO( int N );
                                                                //   1100                 %ROUTINESPEC TESTNST
#line 1100 "regression-compile-tmp/allimpc1-77.imp"
auto void TESTNST( void );
                                                                //   1101                 %ROUTINESPEC CUCI
#line 1101 "regression-compile-tmp/allimpc1-77.imp"
auto void CUCI( void );
                                                                //   1102                 %ROUTINESPEC SKIP EXP
#line 1102 "regression-compile-tmp/allimpc1-77.imp"
auto void SKIPEXP( void );
                                                                //   1103                 %ROUTINESPEC UNPACK
#line 1103 "regression-compile-tmp/allimpc1-77.imp"
auto void UNPACK( void );
                                                                //   1104           %INTEGERFNSPEC SORT CONST(%INTEGER P,LONG,TYPE)
#line 1104 "regression-compile-tmp/allimpc1-77.imp"
auto int SORTCONST( int P, int LONG, int TYPE );
                                                                //   1105           %ROUTINESPEC PACK(%INTEGERNAME PTYPE)
#line 1105 "regression-compile-tmp/allimpc1-77.imp"
auto void PACK( int /*name*/*PTYPE );
                                                                //   1106           %ROUTINESPEC CRSPEC (%BYTEINTEGER M)
#line 1106 "regression-compile-tmp/allimpc1-77.imp"
auto void CRSPEC( unsigned char M );
                                                                //   1107           %ROUTINESPEC DUMP(%INTEGER CODE,REG,DIS,X,LEVEL)
#line 1107 "regression-compile-tmp/allimpc1-77.imp"
auto void DUMP( int CODE, int REG, int DIS, int X, int LEVEL );
                                                                //   1108           %ROUTINESPEC RHEAD(%INTEGER KK)
#line 1108 "regression-compile-tmp/allimpc1-77.imp"
auto void RHEAD( int KK );
                                                                //   1109           %ROUTINESPEC TEST ASS(%INTEGER REG)
#line 1109 "regression-compile-tmp/allimpc1-77.imp"
auto void TESTASS( int REG );
                                                                //   1110                 %ROUTINESPEC PJ(%INTEGER MASK,STAD)
#line 1110 "regression-compile-tmp/allimpc1-77.imp"
auto void PJ( int MASK, int STAD );
                                                                //   1111           %ROUTINESPEC COMPILE FORMAL PARAMETER
#line 1111 "regression-compile-tmp/allimpc1-77.imp"
auto void COMPILEFORMALPARAMETER( void );
                                                                //   1112           %ROUTINESPEC PPJ(%BYTEINTEGER N)
#line 1112 "regression-compile-tmp/allimpc1-77.imp"
auto void PPJ( unsigned char N );
                                                                //   1113                 %ROUTINESPEC PLAB(%INTEGER M)
#line 1113 "regression-compile-tmp/allimpc1-77.imp"
auto void PLAB( int M );
                                                                //   1114           %ROUTINESPEC CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)
#line 1114 "regression-compile-tmp/allimpc1-77.imp"
auto void CHECKCAPACITY( int REG, int DIS, int X, int LEVEL );
                                                                //   1115                 %INTEGERFNSPEC TSEXP(%INTEGERNAME CODE)
#line 1115 "regression-compile-tmp/allimpc1-77.imp"
auto int TSEXP( int /*name*/*CODE );
                                                                //   1116           %SWITCH SW(1:45)
#line 1116 "regression-compile-tmp/allimpc1-77.imp"
static int sw2_SW_idx;
static const void * /*SWITCH*/ sw2_SW[45] = { &&sw2_SW_1, &&sw2_SW_2, &&sw2_SW_3, &&sw2_SW_4, &&sw2_SW_5, &&sw2_SW_6, &&sw2_SW_7, &&sw2_SW_8, &&sw2_SW_9, &&sw2_SW_10, &&sw2_SW_11, &&sw2_SW_12, &&sw2_SW_13, &&sw2_SW_14, &&sw2_SW_15, &&sw2_SW_16, &&sw2_SW_17, &&sw2_SW_18, &&sw2_SW_19, &&sw2_SW_20, &&sw2_SW_21, &&sw2_SW_22, &&sw2_SW_23, &&sw2_SW_24, &&sw2_SW_25, &&sw2_SW_26, &&sw2_SW_27, &&sw2_SW_28, &&sw2_SW_29, &&sw2_SW_30, &&sw2_SW_31, &&sw2_SW_32, &&sw2_SW_33, &&sw2_SW_34, &&sw2_SW_35, &&sw2_SW_36, &&sw2_SW_37, &&sw2_SW_38, &&sw2_SW_39, &&sw2_SW_40, &&sw2_SW_41, &&sw2_SW_42, &&sw2_SW_43, &&sw2_SW_44, &&sw2_SW_45,  };
                                                                //   1117           %INTEGER INC,INCP,BXLE,ACC
#line 1117 "regression-compile-tmp/allimpc1-77.imp"
int INC;
#line 1117 "regression-compile-tmp/allimpc1-77.imp"
int INCP;
#line 1117 "regression-compile-tmp/allimpc1-77.imp"
int BXLE;
#line 1117 "regression-compile-tmp/allimpc1-77.imp"
int ACC;
                                                                //   1118           %SHORTINTEGER OPHEAD
#line 1118 "regression-compile-tmp/allimpc1-77.imp"
short OPHEAD;
                                                                //   1119           %INTEGER JJ,JJJ,KK,KKK,Q,QQ,EXTRN
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int KKK;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
#line 1119 "regression-compile-tmp/allimpc1-77.imp"
int EXTRN;
                                                                //   1120           %INTEGER BASE,DISP,VALUE,INDEX
#line 1120 "regression-compile-tmp/allimpc1-77.imp"
int BASE;
#line 1120 "regression-compile-tmp/allimpc1-77.imp"
int DISP;
#line 1120 "regression-compile-tmp/allimpc1-77.imp"
int VALUE;
#line 1120 "regression-compile-tmp/allimpc1-77.imp"
int INDEX;
                                                                //   1121           %INTEGER LOCAL BASE, LOCAL ADDR
#line 1121 "regression-compile-tmp/allimpc1-77.imp"
int LOCALBASE;
#line 1121 "regression-compile-tmp/allimpc1-77.imp"
int LOCALADDR;
                                                                //   1122           %SHORTINTEGER LOCAL JUMP,LOCAL LABEL
#line 1122 "regression-compile-tmp/allimpc1-77.imp"
short LOCALJUMP;
#line 1122 "regression-compile-tmp/allimpc1-77.imp"
short LOCALLABEL;
                                                                //   1123           %BYTEINTEGER ROUT,NAM,ARR,PREC,TYPE,PRECP
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char ROUT;
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char NAM;
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char ARR;
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char PREC;
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char TYPE;
#line 1123 "regression-compile-tmp/allimpc1-77.imp"
unsigned char PRECP;
                                                                //   1124           %INTEGER PTYPE,I,J,K,OLDI,INREG
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int PTYPE;
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int K;
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int OLDI;
#line 1124 "regression-compile-tmp/allimpc1-77.imp"
int INREG;
                                                                //   1125           %INTEGER PTYPEP,SAVE13,CHNGE13
#line 1125 "regression-compile-tmp/allimpc1-77.imp"
int PTYPEP;
#line 1125 "regression-compile-tmp/allimpc1-77.imp"
int SAVE13;
#line 1125 "regression-compile-tmp/allimpc1-77.imp"
int CHNGE13;
                                                                //   1126           LOCAL JUMP=0;LOCAL LABEL=0
#line 1126 "regression-compile-tmp/allimpc1-77.imp"
LOCALJUMP = 0;
#line 1126 "regression-compile-tmp/allimpc1-77.imp"
LOCALLABEL = 0;
                                                                //   1127           LOCAL BASE=0
#line 1127 "regression-compile-tmp/allimpc1-77.imp"
LOCALBASE = 0;
                                                                //   1128           OLDI=0; ->SW(A(P))
#line 1128 "regression-compile-tmp/allimpc1-77.imp"
OLDI = 0;
#line 1128 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw2_SW_idx) && (sw2_SW_idx <= 45)) goto *(sw2_SW-1)[sw2_SW_idx];  /* Bounds=1:45 */ else {
   /*_imp_signal(8, 2, sw2_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:45 at %s:%d\n",
           sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1129  SW(1):   MARKER2=P+1+A(P+1); SET LINE
#line 1129 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_1:;
#line 1129 "regression-compile-tmp/allimpc1-77.imp"
MARKER2 = (((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]));
#line 1129 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
                                                                //   1130           P=P+2; ->L101 %IF A(MARKER2)=2
#line 1130 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1130 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((MARKER2) + ((int)(2)))]) != (2))) goto L_00ff;
#line 1130 "regression-compile-tmp/allimpc1-77.imp"
goto U_1026;
#line 1130 "regression-compile-tmp/allimpc1-77.imp"
L_00ff:;
                                                                //   1131           MASK=15; CUI(0); ->L1
#line 1131 "regression-compile-tmp/allimpc1-77.imp"
MASK = 15;
#line 1131 "regression-compile-tmp/allimpc1-77.imp"
CUI(0);
#line 1131 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1132  L101:     Q=P
#line 1132 "regression-compile-tmp/allimpc1-77.imp"
U_1026:;
#line 1132 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
                                                                //   1133           FAULT(54) %IF A(P)=9;         ! START
#line 1133 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_0100;
#line 1133 "regression-compile-tmp/allimpc1-77.imp"
FAULT(54);
#line 1133 "regression-compile-tmp/allimpc1-77.imp"
L_0100:;
                                                                //   1134           SAVE13=R13; CHNGE13=0
#line 1134 "regression-compile-tmp/allimpc1-77.imp"
SAVE13 = R13;
#line 1134 "regression-compile-tmp/allimpc1-77.imp"
CHNGE13 = 0;
                                                                //   1135           ->L103 %IF A(P)=3;   ! UI =JUMP
#line 1135 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (3))) goto L_0101;
#line 1135 "regression-compile-tmp/allimpc1-77.imp"
goto U_1028;
#line 1135 "regression-compile-tmp/allimpc1-77.imp"
L_0101:;
                                                                //   1136           PLABEL=PLABEL-2; JJJ=PLABEL+1
#line 1136 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (2));
#line 1136 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)(PLABEL)) + (1));
                                                                //   1137           KKK=PLABEL; P=MARKER2+2
#line 1137 "regression-compile-tmp/allimpc1-77.imp"
KKK = PLABEL;
#line 1137 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(MARKER2)) + (2));
                                                                //   1138           CCOND(A(P-1)-1,JJJ,KKK)
#line 1138 "regression-compile-tmp/allimpc1-77.imp"
CCOND((((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))])) - (1)), JJJ, KKK);
                                                                //   1139           PLOCAL JUMP(MASK,KKK)
#line 1139 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, KKK);
                                                                //   1140           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1140 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_00fb;
#line 1140 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_0102;
#line 1140 "regression-compile-tmp/allimpc1-77.imp"
L_00fb:;
#line 1140 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1140 "regression-compile-tmp/allimpc1-77.imp"
L_0102:;
                                                                //   1141           PUSH(LOCAL LABEL,CA,JJJ)
#line 1141 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, JJJ);
                                                                //   1142           P=Q; CUI(1)
#line 1142 "regression-compile-tmp/allimpc1-77.imp"
P = Q;
#line 1142 "regression-compile-tmp/allimpc1-77.imp"
CUI(1);
                                                                //   1143  L104:     PUSH(LOCAL LABEL,CA,KKK)
#line 1143 "regression-compile-tmp/allimpc1-77.imp"
U_1029:;
#line 1143 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, KKK);
                                                                //   1144           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1144 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_0103;
#line 1144 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_0104;
#line 1144 "regression-compile-tmp/allimpc1-77.imp"
L_0103:;
#line 1144 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1144 "regression-compile-tmp/allimpc1-77.imp"
L_0104:;
                                                                //   1145  L102:     REGISTER(LOCAL BASE)=0 %UNLESS LOCAL BASE=10 %OR LOCALBASE=0
#line 1145 "regression-compile-tmp/allimpc1-77.imp"
U_102a:;
#line 1145 "regression-compile-tmp/allimpc1-77.imp"
if (((LOCALBASE) == (10))) goto L_0105;
#line 1145 "regression-compile-tmp/allimpc1-77.imp"
if (((LOCALBASE) == (0))) goto L_0105;
#line 1145 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[LOCALBASE] = 0;
#line 1145 "regression-compile-tmp/allimpc1-77.imp"
L_0105:;
                                                                //   1146           FILL LOCAL JUMPS; ->L1
#line 1146 "regression-compile-tmp/allimpc1-77.imp"
FILLLOCALJUMPS();
#line 1146 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1147  L103:     PLABEL=PLABEL-1; JJJ=PLABEL
#line 1147 "regression-compile-tmp/allimpc1-77.imp"
U_1028:;
#line 1147 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 1147 "regression-compile-tmp/allimpc1-77.imp"
JJJ = PLABEL;
                                                                //   1148           NMDECS(LEVEL)=1
#line 1148 "regression-compile-tmp/allimpc1-77.imp"
NMDECS[LEVEL] = 1;
                                                                //   1149           KKK=A(P+2)+(A(P+1)-1)<<14
#line 1149 "regression-compile-tmp/allimpc1-77.imp"
KKK = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   1150           P=MARKER2+2; CCOND(2-A(P-1),JJJ,KKK)
#line 1150 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(MARKER2)) + (2));
#line 1150 "regression-compile-tmp/allimpc1-77.imp"
CCOND(((2) - ((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))]))), JJJ, KKK);
                                                                //   1151           PLOCAL JUMP(MASK,KKK)
#line 1151 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, KKK);
                                                                //   1152           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1152 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_0106;
#line 1152 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_0107;
#line 1152 "regression-compile-tmp/allimpc1-77.imp"
L_0106:;
#line 1152 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1152 "regression-compile-tmp/allimpc1-77.imp"
L_0107:;
                                                                //   1153           PUSH(LOCAL LABEL,CA,JJJ); ->L102
#line 1153 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, JJJ);
#line 1153 "regression-compile-tmp/allimpc1-77.imp"
goto U_102a;
                                                                //   1154  !
                                                                //   1155  SW(2):   SET LINE;P=P+1; BXLE=0; CNAME(3,4)
#line 1155 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_2:;
#line 1155 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1155 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1155 "regression-compile-tmp/allimpc1-77.imp"
BXLE = 0;
#line 1155 "regression-compile-tmp/allimpc1-77.imp"
CNAME(3, 4);
                                                                //   1156           INC=N; N=N+12
#line 1156 "regression-compile-tmp/allimpc1-77.imp"
INC = N;
#line 1156 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (12));
                                                                //   1157                 FAULT(25) %UNLESS TYPE=1 %AND PREC=0
#line 1157 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_0108;
#line 1157 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (0))) goto L_0109;
#line 1157 "regression-compile-tmp/allimpc1-77.imp"
L_0108:;
#line 1157 "regression-compile-tmp/allimpc1-77.imp"
FAULT(25);
#line 1157 "regression-compile-tmp/allimpc1-77.imp"
L_0109:;
                                                                //   1158           Q=P; SKIP EXP; REGISTER(4)=1
#line 1158 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
#line 1158 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 1158 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 1;
                                                                //   1159           JJ=P; BXLE=1 %IF 3900>CA-CODEBASE(LEVEL)%AND 1<=TSEXP(JJJ)<=2
#line 1159 "regression-compile-tmp/allimpc1-77.imp"
JJ = P;
#line 1159 "regression-compile-tmp/allimpc1-77.imp"
if (((3900) <= ((((int)(CA)) - (CODEBASE[LEVEL]))))) goto L_010a;
#line 1159 "regression-compile-tmp/allimpc1-77.imp"
if (({int tmp1 = 1, tmp2 = TSEXP(&JJJ), tmp3 = 2; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_010a;
#line 1159 "regression-compile-tmp/allimpc1-77.imp"
BXLE = 1;
#line 1159 "regression-compile-tmp/allimpc1-77.imp"
L_010a:;
                                                                //   1160           P=JJ; CSEXP(2,1);             ! INTEGER TO REG2
#line 1160 "regression-compile-tmp/allimpc1-77.imp"
P = JJ;
#line 1160 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
                                                                //   1161           JJJ=P; KKK=TSEXP(QQ); P=JJJ
#line 1161 "regression-compile-tmp/allimpc1-77.imp"
JJJ = P;
#line 1161 "regression-compile-tmp/allimpc1-77.imp"
KKK = TSEXP(&QQ);
#line 1161 "regression-compile-tmp/allimpc1-77.imp"
P = JJJ;
                                                                //   1162           DUMP(1,2,INC,0,RBASE) %IF KKK=0
#line 1162 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (0))) goto L_010b;
#line 1162 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, 2, INC, 0, RBASE);
#line 1162 "regression-compile-tmp/allimpc1-77.imp"
L_010b:;
                                                                //   1163           CSEXP(3,1)
#line 1163 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(3, 1);
                                                                //   1164           %IF KKK=0 %THEN PRX(X'90',3,4,RBASE,INC+4) %ELSE %C
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (0))) goto L_010c;
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 3, 4, RBASE, (((int)(INC)) + (4)));
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
goto L_010d;
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
L_010c:;
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 2, 4, RBASE, INC);
#line 1164 "regression-compile-tmp/allimpc1-77.imp"
L_010d:;
                                                                //   1165  PRX(X'90',2,4,RBASE,INC)
                                                                //   1166           P=Q; CSEXP(1,1)
#line 1166 "regression-compile-tmp/allimpc1-77.imp"
P = Q;
#line 1166 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
                                                                //   1167           ->L202 %IF CHECKSP=0
#line 1167 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (0))) goto L_010e;
#line 1167 "regression-compile-tmp/allimpc1-77.imp"
goto U_102b;
#line 1167 "regression-compile-tmp/allimpc1-77.imp"
L_010e:;
                                                                //   1168           DUMP(0,2,INC,0,RBASE); PPJ(17)
#line 1168 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 2, INC, 0, RBASE);
#line 1168 "regression-compile-tmp/allimpc1-77.imp"
PPJ(17);
                                                                //   1169  L202:     PLAB(-1); REGISTER(4)=0
#line 1169 "regression-compile-tmp/allimpc1-77.imp"
U_102b:;
#line 1169 "regression-compile-tmp/allimpc1-77.imp"
PLAB((-1));
#line 1169 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 0;
                                                                //   1170           DUMP(1,1,0,0,4)
#line 1170 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, 1, 0, 0, 4);
                                                                //   1171           PUSH(CYCLE(LEVEL),K,INC+4096*BXLE)
#line 1171 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&CYCLE[LEVEL], K, ((INC) + ((int)((((int)(4096)) * (BXLE))))));
                                                                //   1172           ->L1
#line 1172 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1173  !
                                                                //   1174   SW(3):        !REPEAT
#line 1174 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_3:;
                                                                //   1175           SET LINE
#line 1175 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
                                                                //   1176                 POP(CYCLE(LEVEL),J,K)
#line 1176 "regression-compile-tmp/allimpc1-77.imp"
POP(&CYCLE[LEVEL], &J, &K);
                                                                //   1177           ->L302 %UNLESS J=-1
#line 1177 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == ((-1)))) goto L_010f;
#line 1177 "regression-compile-tmp/allimpc1-77.imp"
goto U_102c;
#line 1177 "regression-compile-tmp/allimpc1-77.imp"
L_010f:;
                                                                //   1178           FAULT(1); ->L1
#line 1178 "regression-compile-tmp/allimpc1-77.imp"
FAULT(1);
#line 1178 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1179  L302:     BXLE=K>>12; K=K&4095
#line 1179 "regression-compile-tmp/allimpc1-77.imp"
U_102c:;
#line 1179 "regression-compile-tmp/allimpc1-77.imp"
BXLE = (int)((((unsigned int)(K)) >> (12)));
#line 1179 "regression-compile-tmp/allimpc1-77.imp"
K = ((K) & (4095));
                                                                //   1180           PRX(X'98',2,4,RBASE,K);       ! LM 2,4,?
#line 1180 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 2, 4, RBASE, K);
                                                                //   1181           DUMP(2,1,0,0,4); ->L301 %IF BXLE=1
#line 1181 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, 0, 0, 4);
#line 1181 "regression-compile-tmp/allimpc1-77.imp"
if (((BXLE) != (1))) goto L_0110;
#line 1181 "regression-compile-tmp/allimpc1-77.imp"
goto U_102d;
#line 1181 "regression-compile-tmp/allimpc1-77.imp"
L_0110:;
                                                                //   1182           PLANT(X'1A12');               ! AR 1,2
#line 1182 "regression-compile-tmp/allimpc1-77.imp"
PLANT(6674);
                                                                //   1183           PCONST(X'59304000');          !  C 3,0(4)
#line 1183 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1496334336);
                                                                //   1184           K=J; PJ(7,K); ->L1
#line 1184 "regression-compile-tmp/allimpc1-77.imp"
K = J;
#line 1184 "regression-compile-tmp/allimpc1-77.imp"
PJ(7, K);
#line 1184 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1185  L301:     I=FIND(J,LABEL(LEVEL))
#line 1185 "regression-compile-tmp/allimpc1-77.imp"
U_102d:;
#line 1185 "regression-compile-tmp/allimpc1-77.imp"
I = FIND(J, LABEL[LEVEL]);
                                                                //   1186           PRX(X'87',1,2,10,I-CODEBASE(LEVEL)); ->L1;! BXLE 1,2,ADDR
#line 1186 "regression-compile-tmp/allimpc1-77.imp"
PRX(135, 1, 2, 10, (((int)(I)) - (CODEBASE[LEVEL])));
#line 1186 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1187  SW(4):                                 ! (LABEL)':'
#line 1187 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_4:;
                                                                //   1188           K=A(P+2)+(A(P+1)-1)<<14
#line 1188 "regression-compile-tmp/allimpc1-77.imp"
K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   1189          ->L402 %IF FIND(K,LABEL(LEVEL))=-1
#line 1189 "regression-compile-tmp/allimpc1-77.imp"
if (((FIND(K, LABEL[LEVEL])) != ((-1)))) goto L_0111;
#line 1189 "regression-compile-tmp/allimpc1-77.imp"
goto U_102e;
#line 1189 "regression-compile-tmp/allimpc1-77.imp"
L_0111:;
                                                                //   1190           FAULT(2); ->L1
#line 1190 "regression-compile-tmp/allimpc1-77.imp"
FAULT(2);
#line 1190 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1191  L402:     PLAB(K); ->L1
#line 1191 "regression-compile-tmp/allimpc1-77.imp"
U_102e:;
#line 1191 "regression-compile-tmp/allimpc1-77.imp"
PLAB(K);
#line 1191 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1192  SW(5):   Q=P+1; MARKER2=P+3+A (P+2);
#line 1192 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_5:;
#line 1192 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(P)) + (1));
#line 1192 "regression-compile-tmp/allimpc1-77.imp"
MARKER2 = (((short)((((int)(P)) + (3)))) + (A[(((unsigned char)((((int)(P)) + (2)))) + (2))]));
                                                                //   1193           SET LINE; P=MARKER2
#line 1193 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1193 "regression-compile-tmp/allimpc1-77.imp"
P = MARKER2;
                                                                //   1194           SAVE13=R13; CHNGE13=0
#line 1194 "regression-compile-tmp/allimpc1-77.imp"
SAVE13 = R13;
#line 1194 "regression-compile-tmp/allimpc1-77.imp"
CHNGE13 = 0;
                                                                //   1195           ->L510 %IF A(P)=3;   ! UI=JUMP
#line 1195 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (3))) goto L_0112;
#line 1195 "regression-compile-tmp/allimpc1-77.imp"
goto U_102f;
#line 1195 "regression-compile-tmp/allimpc1-77.imp"
L_0112:;
                                                                //   1196           ->L520 %IF A(P)=9;   ! UI =START
#line 1196 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_0113;
#line 1196 "regression-compile-tmp/allimpc1-77.imp"
goto U_1030;
#line 1196 "regression-compile-tmp/allimpc1-77.imp"
L_0113:;
                                                                //   1197           PLABEL=PLABEL-2; JJJ=PLABEL+1; KKK=PLABEL
#line 1197 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (2));
#line 1197 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)(PLABEL)) + (1));
#line 1197 "regression-compile-tmp/allimpc1-77.imp"
KKK = PLABEL;
                                                                //   1198           P=Q+2; CCOND(A(Q)-1,JJJ,KKK)
#line 1198 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(Q)) + (2));
#line 1198 "regression-compile-tmp/allimpc1-77.imp"
CCOND((((int)(A[((Q) + ((int)(2)))])) - (1)), JJJ, KKK);
                                                                //   1199           P LOCAL JUMP(MASK,KKK)
#line 1199 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, KKK);
                                                                //   1200           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1200 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_0114;
#line 1200 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_0115;
#line 1200 "regression-compile-tmp/allimpc1-77.imp"
L_0114:;
#line 1200 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1200 "regression-compile-tmp/allimpc1-77.imp"
L_0115:;
                                                                //   1201           PUSH(LOCAL LABEL,CA,JJJ)
#line 1201 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, JJJ);
                                                                //   1202           P=MARKER2; CUI(1)
#line 1202 "regression-compile-tmp/allimpc1-77.imp"
P = MARKER2;
#line 1202 "regression-compile-tmp/allimpc1-77.imp"
CUI(1);
                                                                //   1203           ->L104 %UNLESS A(P)=1;         ! %ELSE FOLLOWS
#line 1203 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (1))) goto L_0116;
#line 1203 "regression-compile-tmp/allimpc1-77.imp"
goto U_1029;
#line 1203 "regression-compile-tmp/allimpc1-77.imp"
L_0116:;
                                                                //   1204           P=P+1; ->L107 %IF A(P)=9;      ! UI=START
#line 1204 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1204 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_0117;
#line 1204 "regression-compile-tmp/allimpc1-77.imp"
goto U_1031;
#line 1204 "regression-compile-tmp/allimpc1-77.imp"
L_0117:;
                                                                //   1205           PLABEL=PLABEL-1; JJJ=PLABEL
#line 1205 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 1205 "regression-compile-tmp/allimpc1-77.imp"
JJJ = PLABEL;
                                                                //   1206           P LOCAL JUMP(15,JJJ)
#line 1206 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(15, JJJ);
                                                                //   1207           PUSH(LOCAL LABEL,CA,KKK)
#line 1207 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, KKK);
                                                                //   1208           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1208 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_0118;
#line 1208 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_0119;
#line 1208 "regression-compile-tmp/allimpc1-77.imp"
L_0118:;
#line 1208 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1208 "regression-compile-tmp/allimpc1-77.imp"
L_0119:;
                                                                //   1209           MASK=15; CUI(2); KKK=JJJ; ->L104
#line 1209 "regression-compile-tmp/allimpc1-77.imp"
MASK = 15;
#line 1209 "regression-compile-tmp/allimpc1-77.imp"
CUI(2);
#line 1209 "regression-compile-tmp/allimpc1-77.imp"
KKK = JJJ;
#line 1209 "regression-compile-tmp/allimpc1-77.imp"
goto U_1029;
                                                                //   1210  L107:     PJ(15,SFLABEL-1)
#line 1210 "regression-compile-tmp/allimpc1-77.imp"
U_1031:;
#line 1210 "regression-compile-tmp/allimpc1-77.imp"
PJ(15, (((int)(SFLABEL)) - (1)));
                                                                //   1211           CUI(2); ->L104
#line 1211 "regression-compile-tmp/allimpc1-77.imp"
CUI(2);
#line 1211 "regression-compile-tmp/allimpc1-77.imp"
goto U_1029;
                                                                //   1212  L510:     PLABEL=PLABEL-1; JJJ=PLABEL
#line 1212 "regression-compile-tmp/allimpc1-77.imp"
U_102f:;
#line 1212 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 1212 "regression-compile-tmp/allimpc1-77.imp"
JJJ = PLABEL;
                                                                //   1213           NMDECS(LEVEL)=1
#line 1213 "regression-compile-tmp/allimpc1-77.imp"
NMDECS[LEVEL] = 1;
                                                                //   1214           KKK=A(P+2)+(A(P+1)-1)<<14
#line 1214 "regression-compile-tmp/allimpc1-77.imp"
KKK = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   1215           P=Q+2; CCOND(2-A(Q),JJJ,KKK)
#line 1215 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(Q)) + (2));
#line 1215 "regression-compile-tmp/allimpc1-77.imp"
CCOND(((2) - ((int)(A[((Q) + ((int)(2)))]))), JJJ, KKK);
                                                                //   1216           PLOCAL JUMP(MASK,KKK)
#line 1216 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, KKK);
                                                                //   1217           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1217 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_011a;
#line 1217 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_011b;
#line 1217 "regression-compile-tmp/allimpc1-77.imp"
L_011a:;
#line 1217 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1217 "regression-compile-tmp/allimpc1-77.imp"
L_011b:;
                                                                //   1218           PUSH(LOCAL LABEL,CA,JJJ)
#line 1218 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, JJJ);
                                                                //   1219           P=MARKER2+3; ->L102 %UNLESS A(P)=1
#line 1219 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(MARKER2)) + (3));
#line 1219 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (1))) goto L_011c;
#line 1219 "regression-compile-tmp/allimpc1-77.imp"
goto U_102a;
#line 1219 "regression-compile-tmp/allimpc1-77.imp"
L_011c:;
                                                                //   1220           P=P+1; MASK=15; CUI(0); ->L102
#line 1220 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1220 "regression-compile-tmp/allimpc1-77.imp"
MASK = 15;
#line 1220 "regression-compile-tmp/allimpc1-77.imp"
CUI(0);
#line 1220 "regression-compile-tmp/allimpc1-77.imp"
goto U_102a;
                                                                //   1221  L520:     PLABEL=PLABEL-1; JJJ=PLABEL
#line 1221 "regression-compile-tmp/allimpc1-77.imp"
U_1030:;
#line 1221 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 1221 "regression-compile-tmp/allimpc1-77.imp"
JJJ = PLABEL;
                                                                //   1222          KKK=SFLABEL-1
#line 1222 "regression-compile-tmp/allimpc1-77.imp"
KKK = (((int)(SFLABEL)) - (1));
                                                                //   1223           P=Q+2; CCOND(A(Q)-1,JJJ,KKK)
#line 1223 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(Q)) + (2));
#line 1223 "regression-compile-tmp/allimpc1-77.imp"
CCOND((((int)(A[((Q) + ((int)(2)))])) - (1)), JJJ, KKK);
                                                                //   1224           P LOCAL JUMP(MASK,KKK)
#line 1224 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, KKK);
                                                                //   1225           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 1225 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_011d;
#line 1225 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_011e;
#line 1225 "regression-compile-tmp/allimpc1-77.imp"
L_011d:;
#line 1225 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1225 "regression-compile-tmp/allimpc1-77.imp"
L_011e:;
                                                                //   1226           PUSH(LOCAL LABEL,CA,JJJ)
#line 1226 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, JJJ);
                                                                //   1227           P=MARKER2; CUI(1); P=P+1
#line 1227 "regression-compile-tmp/allimpc1-77.imp"
P = MARKER2;
#line 1227 "regression-compile-tmp/allimpc1-77.imp"
CUI(1);
#line 1227 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   1228           FAULT(53) %IF A(P)=1; ->L102
#line 1228 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_011f;
#line 1228 "regression-compile-tmp/allimpc1-77.imp"
FAULT(53);
#line 1228 "regression-compile-tmp/allimpc1-77.imp"
L_011f:;
#line 1228 "regression-compile-tmp/allimpc1-77.imp"
goto U_102a;
                                                                //   1229  SW(6):L1:                               ! %COMMENT
#line 1229 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_6:;
#line 1229 "regression-compile-tmp/allimpc1-77.imp"
U_1027:;
                                                                //   1230           %RETURN
#line 1230 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1231  SW(7):                                 ! SIMPLE DECLN
#line 1231 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_7:;
                                                                //   1232           FAULT(57) %UNLESS LEVEL>=2
#line 1232 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) >= (2))) goto L_0120;
#line 1232 "regression-compile-tmp/allimpc1-77.imp"
FAULT(57);
#line 1232 "regression-compile-tmp/allimpc1-77.imp"
L_0120:;
                                                                //   1233           FAULT(40) %IF NMDECS(LEVEL)#0
#line 1233 "regression-compile-tmp/allimpc1-77.imp"
if (((NMDECS[LEVEL]) == (0))) goto L_0121;
#line 1233 "regression-compile-tmp/allimpc1-77.imp"
FAULT(40);
#line 1233 "regression-compile-tmp/allimpc1-77.imp"
L_0121:;
                                                                //   1234           P=P+1;CLT;ROUT=0
#line 1234 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1234 "regression-compile-tmp/allimpc1-77.imp"
CLT();
#line 1234 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
                                                                //   1235           FAULT(70) %IF TYPE=5 %AND ACC=0
#line 1235 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0122;
#line 1235 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) != (0))) goto L_0122;
#line 1235 "regression-compile-tmp/allimpc1-77.imp"
FAULT(70);
#line 1235 "regression-compile-tmp/allimpc1-77.imp"
L_0122:;
                                                                //   1236           ->SCALAR %IF A(P)=1
#line 1236 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0123;
#line 1236 "regression-compile-tmp/allimpc1-77.imp"
goto U_1032;
#line 1236 "regression-compile-tmp/allimpc1-77.imp"
L_0123:;
                                                                //   1237           ->VECTOR %IF A(P)=3
#line 1237 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (3))) goto L_0124;
#line 1237 "regression-compile-tmp/allimpc1-77.imp"
goto U_1033;
#line 1237 "regression-compile-tmp/allimpc1-77.imp"
L_0124:;
                                                                //   1238           ARR=1; NAM=(2-A(P+1))<<1;     ! NAME ARRAY BIT
#line 1238 "regression-compile-tmp/allimpc1-77.imp"
ARR = 1;
#line 1238 "regression-compile-tmp/allimpc1-77.imp"
NAM = ((((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) << (1));
                                                                //   1239           PACK(PTYPE); P=P+2; SET LINE
#line 1239 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
#line 1239 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1239 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
                                                                //   1240           ACC=4 %IF NAM#0;CADCLN(0);->L1
#line 1240 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (0))) goto L_0125;
#line 1240 "regression-compile-tmp/allimpc1-77.imp"
ACC = 4;
#line 1240 "regression-compile-tmp/allimpc1-77.imp"
L_0125:;
#line 1240 "regression-compile-tmp/allimpc1-77.imp"
CADCLN(0);
#line 1240 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1241  VECTOR:  ARR=2; NAM=0; PACK(PTYPE)
#line 1241 "regression-compile-tmp/allimpc1-77.imp"
U_1033:;
#line 1241 "regression-compile-tmp/allimpc1-77.imp"
ARR = 2;
#line 1241 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 1241 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1242           P=P+1; SET LINE; CVDECLN; ->L1
#line 1242 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1242 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1242 "regression-compile-tmp/allimpc1-77.imp"
CVDECLN();
#line 1242 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1243  SCALAR:  J=0;ROUT=0;CQN(P+1);P=P+2
#line 1243 "regression-compile-tmp/allimpc1-77.imp"
U_1032:;
#line 1243 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1243 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
#line 1243 "regression-compile-tmp/allimpc1-77.imp"
CQN((((int)(P)) + (1)));
#line 1243 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   1244           INC=N
#line 1244 "regression-compile-tmp/allimpc1-77.imp"
INC = N;
                                                                //   1245           QQ=ACC;ACC=4 %IF TYPE=5;JJ=0
#line 1245 "regression-compile-tmp/allimpc1-77.imp"
QQ = ACC;
#line 1245 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0126;
#line 1245 "regression-compile-tmp/allimpc1-77.imp"
ACC = 4;
#line 1245 "regression-compile-tmp/allimpc1-77.imp"
L_0126:;
#line 1245 "regression-compile-tmp/allimpc1-77.imp"
JJ = 0;
                                                                //   1246           ->L701 %UNLESS ACC=8 %AND N&7#0
#line 1246 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) != (8))) goto L_0127;
#line 1246 "regression-compile-tmp/allimpc1-77.imp"
if (((((N) & (7))) != (0))) goto L_0128;
#line 1246 "regression-compile-tmp/allimpc1-77.imp"
L_0127:;
#line 1246 "regression-compile-tmp/allimpc1-77.imp"
goto U_1034;
#line 1246 "regression-compile-tmp/allimpc1-77.imp"
L_0128:;
                                                                //   1247           PUSH(WSP(LEVEL),0,N);N=N+4    ;!DOUBLE WORD BOUNDARY
#line 1247 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, N);
#line 1247 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
                                                                //   1248  L701:     SET LINE %IF TYPE=5
#line 1248 "regression-compile-tmp/allimpc1-77.imp"
U_1034:;
#line 1248 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0129;
#line 1248 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1248 "regression-compile-tmp/allimpc1-77.imp"
L_0129:;
                                                                //   1249           PACK(PTYPE)
#line 1249 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1250           %CYCLE KK=1,1,A(P)
#line 1250 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, A[((P) + ((int)(2)))]");
KK -= _increment; _control -= _increment;
L_012a:;
if (KK == _final) goto L_012b;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   1251           K=A(P+KK);TESTNST
#line 1251 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (KK)))) + (2))];
#line 1251 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1252           STORE TAG(K,N)
#line 1252 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
                                                                //   1253           ->L705 %UNLESS TYPE=5
#line 1253 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_012d;
#line 1253 "regression-compile-tmp/allimpc1-77.imp"
goto U_1035;
#line 1253 "regression-compile-tmp/allimpc1-77.imp"
L_012d:;
                                                                //   1254           JJ=JJ+QQ
#line 1254 "regression-compile-tmp/allimpc1-77.imp"
JJ = (((int)(JJ)) + (QQ));
                                                                //   1255           PSS(X'D2',2,WSPR,0,GLA,128) %IF UNASS=1
#line 1255 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_012e;
#line 1255 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 2, WSPR, 0, GLA, 128);
#line 1255 "regression-compile-tmp/allimpc1-77.imp"
L_012e:;
                                                                //   1256           PRX(X'50',WSPR,RBASE,0,N)     ;!STORE POINTER
#line 1256 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, WSPR, RBASE, 0, N);
                                                                //   1257           PSI(X'92',QQ-1,RBASE,N)       ;!STORE MAX LENGTH
#line 1257 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, (((int)(QQ)) - (1)), RBASE, N);
                                                                //   1258           %IF KK=A(P) %THEN QQ=QQ+(JJ+7)&(-8)-JJ
#line 1258 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (A[((P) + ((int)(2)))]))) goto L_012f;
#line 1258 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(((QQ) + ((int)((((((int)(JJ)) + (7))) & ((-8)))))))) - (JJ));
#line 1258 "regression-compile-tmp/allimpc1-77.imp"
L_012f:;
                                                                //   1259           PRX(X'41',WSPR,WSPR,0,QQ)     ;!ADVANCE WORK SPACE
#line 1259 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, WSPR, WSPR, 0, QQ);
                                                                //   1260  L705:     N=N+ACC;%REPEAT
#line 1260 "regression-compile-tmp/allimpc1-77.imp"
U_1035:;
#line 1260 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (ACC));
#line 1260 "regression-compile-tmp/allimpc1-77.imp"
goto L_012a;
#line 1260 "regression-compile-tmp/allimpc1-77.imp"
L_012b:;
                                                                //   1261           N=N+3; N=N&(-4)
#line 1261 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (3));
#line 1261 "regression-compile-tmp/allimpc1-77.imp"
N = ((N) & ((-4)));
                                                                //   1262           SET80(INC,N-INC) %IF UNASS=1 %AND TYPE#5
#line 1262 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0130;
#line 1262 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0130;
#line 1262 "regression-compile-tmp/allimpc1-77.imp"
SET80(INC, (((int)(N)) - (INC)));
#line 1262 "regression-compile-tmp/allimpc1-77.imp"
L_0130:;
                                                                //   1263           ->L1
#line 1263 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1264  SW(8):                                 ! %END
#line 1264 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_8:;
                                                                //   1265           CEND(FLAG(LEVEL))
#line 1265 "regression-compile-tmp/allimpc1-77.imp"
CEND(FLAG[LEVEL]);
                                                                //   1266                ->L1
#line 1266 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1267  SW(9):   P=P+1; MARKER1=A(P)+P;    !(SEX)(RT)(SPEC')(NAME)(FPP)
#line 1267 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_9:;
#line 1267 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1267 "regression-compile-tmp/allimpc1-77.imp"
MARKER1 = (((int)(A[((P) + ((int)(2)))])) + (P));
                                                                //   1268  L900:     Q=P; KKK=A(MARKER1+1);        !KKK ON NAME
#line 1268 "regression-compile-tmp/allimpc1-77.imp"
U_1036:;
#line 1268 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
#line 1268 "regression-compile-tmp/allimpc1-77.imp"
KKK = A[(((unsigned char)((((int)(MARKER1)) + (1)))) + (2))];
                                                                //   1269           EXTRN=A(P+1)
#line 1269 "regression-compile-tmp/allimpc1-77.imp"
EXTRN = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
                                                                //   1270           ->L902 %IF A(MARKER1)=2
#line 1270 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((MARKER1) + ((int)(2)))]) != (2))) goto L_0131;
#line 1270 "regression-compile-tmp/allimpc1-77.imp"
goto U_1037;
#line 1270 "regression-compile-tmp/allimpc1-77.imp"
L_0131:;
                                                                //   1271           P=P+1; CRSPEC(0); ->L1 %IF EXTRN=3
#line 1271 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1271 "regression-compile-tmp/allimpc1-77.imp"
CRSPEC(0);
#line 1271 "regression-compile-tmp/allimpc1-77.imp"
if (((EXTRN) != (3))) goto L_0132;
#line 1271 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
#line 1271 "regression-compile-tmp/allimpc1-77.imp"
L_0132:;
                                                                //   1272           N0=N0-1; KK='S'*(2-EXTRN)
#line 1272 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) - (1));
#line 1272 "regression-compile-tmp/allimpc1-77.imp"
KK = ((83) * ((int)((((int)(2)) - (EXTRN)))));
                                                                //   1273           GXREF(KKK,KK); JJ=TAGS(KKK)
#line 1273 "regression-compile-tmp/allimpc1-77.imp"
GXREF(KKK, KK);
#line 1273 "regression-compile-tmp/allimpc1-77.imp"
JJ = TAGS[KKK];
                                                                //   1274           FROM1(JJ,Q)
#line 1274 "regression-compile-tmp/allimpc1-77.imp"
FROM1(JJ, &Q);
                                                                //   1275           REPLACE1(JJ,Q&(-2)); ->L1
#line 1275 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(JJ, ((Q) & ((-2))));
#line 1275 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1276  L902:     FILL JUMPS(LEVEL)
#line 1276 "regression-compile-tmp/allimpc1-77.imp"
U_1037:;
#line 1276 "regression-compile-tmp/allimpc1-77.imp"
FILLJUMPS(LEVEL);
                                                                //   1277           KK=KKK
#line 1277 "regression-compile-tmp/allimpc1-77.imp"
KK = KKK;
                                                                //   1278           COPY TAG(KKK); ->L939 %IF OLDI#LEVEL
#line 1278 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(KKK);
#line 1278 "regression-compile-tmp/allimpc1-77.imp"
if (((OLDI) == (LEVEL))) goto L_0133;
#line 1278 "regression-compile-tmp/allimpc1-77.imp"
goto U_1038;
#line 1278 "regression-compile-tmp/allimpc1-77.imp"
L_0133:;
                                                                //   1279           %UNLESS EXTRN=3 %THEN %START
#line 1279 "regression-compile-tmp/allimpc1-77.imp"
if (((EXTRN) == (3))) goto L_0134;
                                                                //   1280           CPRMODE=2 %IF CPRMODE=0
#line 1280 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (0))) goto L_0135;
#line 1280 "regression-compile-tmp/allimpc1-77.imp"
CPRMODE = 2;
#line 1280 "regression-compile-tmp/allimpc1-77.imp"
L_0135:;
                                                                //   1281                 FAULT(55) %UNLESS CPRMODE=2 %AND LEVEL=1
#line 1281 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_00e9;
#line 1281 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) == (1))) goto L_0136;
#line 1281 "regression-compile-tmp/allimpc1-77.imp"
L_00e9:;
#line 1281 "regression-compile-tmp/allimpc1-77.imp"
FAULT(55);
#line 1281 "regression-compile-tmp/allimpc1-77.imp"
L_0136:;
                                                                //   1282           DEFINE EP(EXTRN,KKK,CA)
#line 1282 "regression-compile-tmp/allimpc1-77.imp"
DEFINEEP(EXTRN, KKK, CA);
                                                                //   1283                 PCLOD(0);               !  ST 12,28(GLA)--L 12,=A(PERM)
#line 1283 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(0);
                                                                //   1284           %FINISH
#line 1284 "regression-compile-tmp/allimpc1-77.imp"
L_0134:;
                                                                //   1285           ->L908 %IF A(P+2)=1; ROUT=1
#line 1285 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (1))) goto L_0137;
#line 1285 "regression-compile-tmp/allimpc1-77.imp"
goto U_1039;
#line 1285 "regression-compile-tmp/allimpc1-77.imp"
L_0137:;
#line 1285 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 1;
                                                                //   1286           P=P+3
#line 1286 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   1287           CLT;ARR=0;NAM=(A(P)-1)<<1;    ! SET NAME ARRAY BIT FOR MAPS
#line 1287 "regression-compile-tmp/allimpc1-77.imp"
CLT();
#line 1287 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
#line 1287 "regression-compile-tmp/allimpc1-77.imp"
NAM = (((((int)(A[((P) + ((int)(2)))])) - (1))) << (1));
                                                                //   1288           PACK(KKK); ->L909
#line 1288 "regression-compile-tmp/allimpc1-77.imp"
PACK(&KKK);
#line 1288 "regression-compile-tmp/allimpc1-77.imp"
goto U_103a;
                                                                //   1289  L908:     KKK=10000
#line 1289 "regression-compile-tmp/allimpc1-77.imp"
U_1039:;
#line 1289 "regression-compile-tmp/allimpc1-77.imp"
KKK = 10000;
                                                                //   1290  L909:     ->L940 %IF J=15 %AND PTYPE=KKK
#line 1290 "regression-compile-tmp/allimpc1-77.imp"
U_103a:;
#line 1290 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (15))) goto L_0138;
#line 1290 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (KKK))) goto L_0138;
#line 1290 "regression-compile-tmp/allimpc1-77.imp"
goto U_103b;
#line 1290 "regression-compile-tmp/allimpc1-77.imp"
L_0138:;
                                                                //   1291           FNAME=KK; FAULT(7) %UNLESS PTYPE&7=7
#line 1291 "regression-compile-tmp/allimpc1-77.imp"
FNAME = KK;
#line 1291 "regression-compile-tmp/allimpc1-77.imp"
if (((((PTYPE) & (7))) == (7))) goto L_0139;
#line 1291 "regression-compile-tmp/allimpc1-77.imp"
FAULT(7);
#line 1291 "regression-compile-tmp/allimpc1-77.imp"
L_0139:;
                                                                //   1292  L939:     P=Q+1; CRSPEC(0); P=Q; ->L900
#line 1292 "regression-compile-tmp/allimpc1-77.imp"
U_1038:;
#line 1292 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(Q)) + (1));
#line 1292 "regression-compile-tmp/allimpc1-77.imp"
CRSPEC(0);
#line 1292 "regression-compile-tmp/allimpc1-77.imp"
P = Q;
#line 1292 "regression-compile-tmp/allimpc1-77.imp"
goto U_1036;
                                                                //   1293  L940:     J=0; REPLACETAG(KK); JJ=K;   ! CHANGE TAG TO ROUT SPECIFIED AND DESCRIBED
#line 1293 "regression-compile-tmp/allimpc1-77.imp"
U_103b:;
#line 1293 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1293 "regression-compile-tmp/allimpc1-77.imp"
REPLACETAG(KK);
#line 1293 "regression-compile-tmp/allimpc1-77.imp"
JJ = K;
                                                                //   1294           PLABEL=PLABEL-1
#line 1294 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
                                                                //   1295           PJ(15,PLABEL) %UNLESS COMPILER=1 %OR(CPRMODE=2 %AND LEVEL=1)
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
if (((COMPILER) == (1))) goto L_013a;
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_012c;
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) == (1))) goto L_013a;
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
L_012c:;
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
PJ(15, PLABEL);
#line 1295 "regression-compile-tmp/allimpc1-77.imp"
L_013a:;
                                                                //   1296           RAL(LEVEL)=NMAX<<16!SBFLAG<<15!N
#line 1296 "regression-compile-tmp/allimpc1-77.imp"
RAL[LEVEL] = ((((((NMAX) << (16))) | (((SBFLAG) << (15))))) | (N));
                                                                //   1297           RHEAD(KK)
#line 1297 "regression-compile-tmp/allimpc1-77.imp"
RHEAD(KK);
                                                                //   1298           PPJ(40) %UNLESS EXTRN=3;      ! TO RELOCATE OWNS
#line 1298 "regression-compile-tmp/allimpc1-77.imp"
if (((EXTRN) == (3))) goto L_013b;
#line 1298 "regression-compile-tmp/allimpc1-77.imp"
PPJ(40);
#line 1298 "regression-compile-tmp/allimpc1-77.imp"
L_013b:;
                                                                //   1299           FLAG(LEVEL)=PTYPE
#line 1299 "regression-compile-tmp/allimpc1-77.imp"
FLAG[LEVEL] = PTYPE;
                                                                //   1300           P=MARKER1+1
#line 1300 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(MARKER1)) + (1));
                                                                //   1301           ->L942 %IF A(P+1)=2
#line 1301 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_013c;
#line 1301 "regression-compile-tmp/allimpc1-77.imp"
goto U_103c;
#line 1301 "regression-compile-tmp/allimpc1-77.imp"
L_013c:;
                                                                //   1302  L943:     P=P+2; COMPILE FORMAL PARAMETER
#line 1302 "regression-compile-tmp/allimpc1-77.imp"
U_103d:;
#line 1302 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1302 "regression-compile-tmp/allimpc1-77.imp"
COMPILEFORMALPARAMETER();
                                                                //   1303           %CYCLE BXLE=1,1,A(P)
#line 1303 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; BXLE = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle BXLE = 1, 1, A[((P) + ((int)(2)))]");
BXLE -= _increment; _control -= _increment;
L_013d:;
if (BXLE == _final) goto L_013e;
BXLE += _increment; _control += _increment;
if (BXLE != _control) _imp_signal(4,2,0,"Corrupt control variable BXLE"); /* FOR loop control variable corrupted */
}
                                                                //   1304           MLINK(JJ); ->L945 %UNLESS JJ=0
#line 1304 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&JJ);
#line 1304 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) == (0))) goto L_0140;
#line 1304 "regression-compile-tmp/allimpc1-77.imp"
goto U_103e;
#line 1304 "regression-compile-tmp/allimpc1-77.imp"
L_0140:;
                                                                //   1305           FAULT(8); ->L946
#line 1305 "regression-compile-tmp/allimpc1-77.imp"
FAULT(8);
#line 1305 "regression-compile-tmp/allimpc1-77.imp"
goto U_103f;
                                                                //   1306  L945:     FROM LIST(JJ,J,JJJ)
#line 1306 "regression-compile-tmp/allimpc1-77.imp"
U_103e:;
#line 1306 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(JJ, &J, &JJJ);
                                                                //   1307           ->L946 %IF J=PTYPE %AND(PTYPE#5 %OR JJJ=ACC)
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (PTYPE))) goto L_0141;
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (5))) goto L_0142;
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
if (((JJJ) != (ACC))) goto L_0141;
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
L_0142:;
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
goto U_103f;
#line 1307 "regression-compile-tmp/allimpc1-77.imp"
L_0141:;
                                                                //   1308           FAULT(9); PRINT NAME(A(P+BXLE))
#line 1308 "regression-compile-tmp/allimpc1-77.imp"
FAULT(9);
#line 1308 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(A[(((unsigned char)((((int)(P)) + (BXLE)))) + (2))]);
                                                                //   1309  L946:     K=A(P+BXLE); TESTNST
#line 1309 "regression-compile-tmp/allimpc1-77.imp"
U_103f:;
#line 1309 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (BXLE)))) + (2))];
#line 1309 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1310           OPHEAD=0; UNPACK
#line 1310 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = 0;
#line 1310 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   1311           ->L947 %IF ROUT=1;             ! RT TYPES
#line 1311 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_0143;
#line 1311 "regression-compile-tmp/allimpc1-77.imp"
goto U_1040;
#line 1311 "regression-compile-tmp/allimpc1-77.imp"
L_0143:;
                                                                //   1312           ->L9040 %IF PTYPE=5; J=JJJ
#line 1312 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (5))) goto L_0144;
#line 1312 "regression-compile-tmp/allimpc1-77.imp"
goto U_1041;
#line 1312 "regression-compile-tmp/allimpc1-77.imp"
L_0144:;
#line 1312 "regression-compile-tmp/allimpc1-77.imp"
J = JJJ;
                                                                //   1313           ->L948 %IF TYPE=3;             !RECORDS
#line 1313 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0145;
#line 1313 "regression-compile-tmp/allimpc1-77.imp"
goto U_1042;
#line 1313 "regression-compile-tmp/allimpc1-77.imp"
L_0145:;
                                                                //   1314           R=N; ->L950 %IF ARR=1
#line 1314 "regression-compile-tmp/allimpc1-77.imp"
R = N;
#line 1314 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_0146;
#line 1314 "regression-compile-tmp/allimpc1-77.imp"
goto U_1043;
#line 1314 "regression-compile-tmp/allimpc1-77.imp"
L_0146:;
                                                                //   1315           ->L949 %IF PREC=3 %AND NAM=0;  ! LONG
#line 1315 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_0147;
#line 1315 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (0))) goto L_0147;
#line 1315 "regression-compile-tmp/allimpc1-77.imp"
goto U_1044;
#line 1315 "regression-compile-tmp/allimpc1-77.imp"
L_0147:;
                                                                //   1316           N=N+4-ACC; R=N
#line 1316 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)((((int)(N)) + (4)))) - (ACC));
#line 1316 "regression-compile-tmp/allimpc1-77.imp"
R = N;
                                                                //   1317  L950:     STORE TAG(K,N)
#line 1317 "regression-compile-tmp/allimpc1-77.imp"
U_1043:;
#line 1317 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
                                                                //   1318           N=R+ACC; ->L999
#line 1318 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(R)) + (ACC));
#line 1318 "regression-compile-tmp/allimpc1-77.imp"
goto U_1045;
                                                                //   1319  L947:     PUSH(OPHEAD,N,1000);          !SET DUMMY SIDECHAIN FOR RT TYPES
#line 1319 "regression-compile-tmp/allimpc1-77.imp"
U_1040:;
#line 1319 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&OPHEAD, N, 1000);
                                                                //   1320           J=13
#line 1320 "regression-compile-tmp/allimpc1-77.imp"
J = 13;
                                                                //   1321  L951:     KK=OPHEAD
#line 1321 "regression-compile-tmp/allimpc1-77.imp"
U_1046:;
#line 1321 "regression-compile-tmp/allimpc1-77.imp"
KK = OPHEAD;
                                                                //   1322           R=N; N=KK; ->L950
#line 1322 "regression-compile-tmp/allimpc1-77.imp"
R = N;
#line 1322 "regression-compile-tmp/allimpc1-77.imp"
N = KK;
#line 1322 "regression-compile-tmp/allimpc1-77.imp"
goto U_1043;
                                                                //   1323  L9040:    PRX(X'41',1,0,RBASE,N+4);     ! STRING VALUE SET PTR
#line 1323 "regression-compile-tmp/allimpc1-77.imp"
U_1041:;
#line 1323 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, RBASE, (((int)(N)) + (4)));
                                                                //   1324           PRX(X'50',1,0,RBASE,N)
#line 1324 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, 1, 0, RBASE, N);
                                                                //   1325           PSI(X'92',JJJ-1,RBASE,N)
#line 1325 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, (((int)(JJJ)) - (1)), RBASE, N);
                                                                //   1326           STORE TAG(K,N)
#line 1326 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
                                                                //   1327           N=N+(ACC+7)&(-4); ->L999
#line 1327 "regression-compile-tmp/allimpc1-77.imp"
N = ((N) + ((int)((((((int)(ACC)) + (7))) & ((-4))))));
#line 1327 "regression-compile-tmp/allimpc1-77.imp"
goto U_1045;
                                                                //   1328  L948:     PUSH(OPHEAD,0,N); J=0; ->L951; ! DUMMY SIDECHAIN FOR RECORD
#line 1328 "regression-compile-tmp/allimpc1-77.imp"
U_1042:;
#line 1328 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&OPHEAD, 0, N);
#line 1328 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1328 "regression-compile-tmp/allimpc1-77.imp"
goto U_1046;
                                                                //   1329  L949:     R=N; ->L950 %IF N&7=0
#line 1329 "regression-compile-tmp/allimpc1-77.imp"
U_1044:;
#line 1329 "regression-compile-tmp/allimpc1-77.imp"
R = N;
#line 1329 "regression-compile-tmp/allimpc1-77.imp"
if (((((N) & (7))) != (0))) goto L_0148;
#line 1329 "regression-compile-tmp/allimpc1-77.imp"
goto U_1043;
#line 1329 "regression-compile-tmp/allimpc1-77.imp"
L_0148:;
                                                                //   1330           PUSH(WSP(LEVEL),0,N)
#line 1330 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, N);
                                                                //   1331           N=N+4; R=N; ->L950;            !ALLIGN ON D W BOUNDARY
#line 1331 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
#line 1331 "regression-compile-tmp/allimpc1-77.imp"
R = N;
#line 1331 "regression-compile-tmp/allimpc1-77.imp"
goto U_1043;
                                                                //   1332  L999:     %REPEAT
#line 1332 "regression-compile-tmp/allimpc1-77.imp"
U_1045:;
#line 1332 "regression-compile-tmp/allimpc1-77.imp"
goto L_013d;
#line 1332 "regression-compile-tmp/allimpc1-77.imp"
L_013e:;
                                                                //   1333           P=P+1+BXLE; ->L943 %IF A(P)=1
#line 1333 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)((((int)(P)) + (1)))) + (BXLE));
#line 1333 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0149;
#line 1333 "regression-compile-tmp/allimpc1-77.imp"
goto U_103d;
#line 1333 "regression-compile-tmp/allimpc1-77.imp"
L_0149:;
                                                                //   1334  L942:     MLINK(JJ); FAULT(10) %UNLESS JJ=0; ->L1202
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
U_103c:;
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&JJ);
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) == (0))) goto L_014a;
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
FAULT(10);
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
L_014a:;
#line 1334 "regression-compile-tmp/allimpc1-77.imp"
goto U_1047;
                                                                //   1335  !
                                                                //   1336   SW(10):       ! COMMENT
#line 1336 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_10:;
                                                                //   1337                 ->L1
#line 1337 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1338  !
                                                                //   1339  SW(11):                                !REALS(LN)
#line 1339 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_11:;
                                                                //   1340           ALL LONG=A(P+1)&1;->L1
#line 1340 "regression-compile-tmp/allimpc1-77.imp"
ALLLONG = ((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (1));
#line 1340 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1341  SW(12):                                !%BEGIN
#line 1341 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_12:;
                                                                //   1342           FILL JUMPS(LEVEL)
#line 1342 "regression-compile-tmp/allimpc1-77.imp"
FILLJUMPS(LEVEL);
                                                                //   1343           RAL(LEVEL)=SBFLAG<<15!N
#line 1343 "regression-compile-tmp/allimpc1-77.imp"
RAL[LEVEL] = ((((SBFLAG) << (15))) | (N));
                                                                //   1344           PTYPE=0; RHEAD(-1)
#line 1344 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 0;
#line 1344 "regression-compile-tmp/allimpc1-77.imp"
RHEAD((-1));
                                                                //   1345           FLAG(LEVEL)=0
#line 1345 "regression-compile-tmp/allimpc1-77.imp"
FLAG[LEVEL] = 0;
                                                                //   1346           ->L1 %IF LEVEL=1=RLEVEL
#line 1346 "regression-compile-tmp/allimpc1-77.imp"
if ((((LEVEL) != (1))) || (((1) != (RLEVEL)))) goto L_014b;
#line 1346 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
#line 1346 "regression-compile-tmp/allimpc1-77.imp"
L_014b:;
                                                                //   1347           ->L1202 %UNLESS LEVEL=2
#line 1347 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) == (2))) goto L_014c;
#line 1347 "regression-compile-tmp/allimpc1-77.imp"
goto U_1047;
#line 1347 "regression-compile-tmp/allimpc1-77.imp"
L_014c:;
                                                                //   1348           CPRMODE=1 %IF CPRMODE=0
#line 1348 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (0))) goto L_014d;
#line 1348 "regression-compile-tmp/allimpc1-77.imp"
CPRMODE = 1;
#line 1348 "regression-compile-tmp/allimpc1-77.imp"
L_014d:;
                                                                //   1349           DEFINE EP(0,0,0)
#line 1349 "regression-compile-tmp/allimpc1-77.imp"
DEFINEEP(0, 0, 0);
                                                                //   1350           FAULT(55) %UNLESS CPRMODE=1
#line 1350 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) == (1))) goto L_014e;
#line 1350 "regression-compile-tmp/allimpc1-77.imp"
FAULT(55);
#line 1350 "regression-compile-tmp/allimpc1-77.imp"
L_014e:;
                                                                //   1351  L1202:    PLANT(X'05A0'); CODEBASE(LEVEL)=CA; ->L1
#line 1351 "regression-compile-tmp/allimpc1-77.imp"
U_1047:;
#line 1351 "regression-compile-tmp/allimpc1-77.imp"
PLANT(1440);
#line 1351 "regression-compile-tmp/allimpc1-77.imp"
CODEBASE[LEVEL] = CA;
#line 1351 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1352  SW(13):                                ! %ENDOFPROGRAM
#line 1352 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_13:;
                                                                //   1353           FAULT(15) %UNLESS LEVEL=2
#line 1353 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) == (2))) goto L_014f;
#line 1353 "regression-compile-tmp/allimpc1-77.imp"
FAULT(15);
#line 1353 "regression-compile-tmp/allimpc1-77.imp"
L_014f:;
                                                                //   1354           FAULT(56) %UNLESS CPRMODE=1
#line 1354 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) == (1))) goto L_0150;
#line 1354 "regression-compile-tmp/allimpc1-77.imp"
FAULT(56);
#line 1354 "regression-compile-tmp/allimpc1-77.imp"
L_0150:;
                                                                //   1355           PERM=0; CEND(1)
#line 1355 "regression-compile-tmp/allimpc1-77.imp"
PERM = 0;
#line 1355 "regression-compile-tmp/allimpc1-77.imp"
CEND(1);
                                                                //   1356           LOAD DATA; ->L1
#line 1356 "regression-compile-tmp/allimpc1-77.imp"
LOADDATA();
#line 1356 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1357  SW(14):  %BEGIN;                       !SWITCH LABEL
#line 1357 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_14:;
#line 1357 "regression-compile-tmp/allimpc1-77.imp"
void _BLOCK_1_LEVEL_2_(void) {
                                                                //   1358           !%SHORTROUTINE
                                                                //   1359           R13=0;MONE=1
#line 1359 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1359 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
                                                                //   1360           COPYTAG(A(P+1))
#line 1360 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
                                                                //   1361           ->L1401 %IF OLDI=LEVEL %AND TYPE=6
#line 1361 "regression-compile-tmp/allimpc1-77.imp"
if (((OLDI) != (LEVEL))) goto L_0151;
#line 1361 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (6))) goto L_0151;
#line 1361 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1361 "regression-compile-tmp/allimpc1-77.imp"
L_0151:;
                                                                //   1362           FAULT(4); ->L1
#line 1362 "regression-compile-tmp/allimpc1-77.imp"
FAULT(4);
#line 1362 "regression-compile-tmp/allimpc1-77.imp"
goto U_1049;
                                                                //   1363  L1401:    FROM LIST(K,ACC,KKK)
#line 1363 "regression-compile-tmp/allimpc1-77.imp"
U_1048:;
#line 1363 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(K, &ACC, &KKK);
                                                                //   1364           MLINK(K); FROM LIST(K,QQ,KK); ! UB & BIT LIST PART 1
#line 1364 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&K);
#line 1364 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(K, &QQ, &KK);
                                                                //   1365           ->L1411 %UNLESS A(P+3)&7=1
#line 1365 "regression-compile-tmp/allimpc1-77.imp"
if (((((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) & (7))) == (1))) goto L_0152;
#line 1365 "regression-compile-tmp/allimpc1-77.imp"
goto U_104a;
#line 1365 "regression-compile-tmp/allimpc1-77.imp"
L_0152:;
                                                                //   1366           %IF A(P+3)=9 %THEN JJ=A(P+4) %ELSE %START
#line 1366 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (9))) goto L_0153;
#line 1366 "regression-compile-tmp/allimpc1-77.imp"
JJ = A[(((unsigned char)((((int)(P)) + (4)))) + (2))];
#line 1366 "regression-compile-tmp/allimpc1-77.imp"
goto L_0154;
#line 1366 "regression-compile-tmp/allimpc1-77.imp"
L_0153:;
                                                                //   1367           FROMAR4(P+4,JJ); P=P+1; %FINISH
#line 1367 "regression-compile-tmp/allimpc1-77.imp"
FROMAR4((((int)(P)) + (4)), &JJ);
#line 1367 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1367 "regression-compile-tmp/allimpc1-77.imp"
L_0154:;
                                                                //   1368           JJ=-JJ %IF A(P+2)=2
#line 1368 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (2))) goto L_0155;
#line 1368 "regression-compile-tmp/allimpc1-77.imp"
JJ = (-(JJ));
#line 1368 "regression-compile-tmp/allimpc1-77.imp"
L_0155:;
                                                                //   1369           ->L1402 %IF KKK<=JJ<=KK
#line 1369 "regression-compile-tmp/allimpc1-77.imp"
if ((((KKK) > (JJ))) || (((JJ) > (KK)))) goto L_0156;
#line 1369 "regression-compile-tmp/allimpc1-77.imp"
goto U_104b;
#line 1369 "regression-compile-tmp/allimpc1-77.imp"
L_0156:;
                                                                //   1370  L1411:    FAULT(5); ->L1
#line 1370 "regression-compile-tmp/allimpc1-77.imp"
U_104a:;
#line 1370 "regression-compile-tmp/allimpc1-77.imp"
FAULT(5);
#line 1370 "regression-compile-tmp/allimpc1-77.imp"
goto U_1049;
                                                                //   1371  L1402:    Q=JJ-KKK
#line 1371 "regression-compile-tmp/allimpc1-77.imp"
U_104b:;
#line 1371 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(JJ)) - (KKK));
                                                                //   1372  L1404:    ->L1403 %IF 31>=Q
#line 1372 "regression-compile-tmp/allimpc1-77.imp"
U_104c:;
#line 1372 "regression-compile-tmp/allimpc1-77.imp"
if (((31) < (Q))) goto L_0157;
#line 1372 "regression-compile-tmp/allimpc1-77.imp"
goto U_104d;
#line 1372 "regression-compile-tmp/allimpc1-77.imp"
L_0157:;
                                                                //   1373           MLINK(K); Q=Q-32
#line 1373 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&K);
#line 1373 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) - (32));
                                                                //   1374           FROM LIST(K,QQ,JJJ); ->L1404
#line 1374 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(K, &QQ, &JJJ);
#line 1374 "regression-compile-tmp/allimpc1-77.imp"
goto U_104c;
                                                                //   1375  L1403:    JJJ=1<<Q; FAULT(6) %UNLESS JJJ&QQ=0
#line 1375 "regression-compile-tmp/allimpc1-77.imp"
U_104d:;
#line 1375 "regression-compile-tmp/allimpc1-77.imp"
JJJ = ((1) << (Q));
#line 1375 "regression-compile-tmp/allimpc1-77.imp"
if (((((JJJ) & (QQ))) == (0))) goto L_0158;
#line 1375 "regression-compile-tmp/allimpc1-77.imp"
FAULT(6);
#line 1375 "regression-compile-tmp/allimpc1-77.imp"
L_0158:;
                                                                //   1376           REPLACE1(K,QQ!JJJ);           ! UPDATE BIT LIST
#line 1376 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(K, ((QQ) | (JJJ)));
                                                                //   1377           Q=CA-CODEBASE(LEVEL)
#line 1377 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(CA)) - (CODEBASE[LEVEL]));
                                                                //   1378           ->L1407 %IF PREC#0
#line 1378 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (0))) goto L_0159;
#line 1378 "regression-compile-tmp/allimpc1-77.imp"
goto U_104e;
#line 1378 "regression-compile-tmp/allimpc1-77.imp"
L_0159:;
                                                                //   1379           QQ=ACC+8+(JJ-KKK)<<2;         ! WHERE TO PLUG
#line 1379 "regression-compile-tmp/allimpc1-77.imp"
QQ = ((((((int)(ACC)) + (8)))) + ((((((int)(JJ)) - (KKK))) << (2))));
                                                                //   1380           PLUG(QQ,Q>>16) %UNLESS Q>>16=0
#line 1380 "regression-compile-tmp/allimpc1-77.imp"
if ((((int)((((unsigned int)(Q)) >> (16)))) == (0))) goto L_015a;
#line 1380 "regression-compile-tmp/allimpc1-77.imp"
PLUG(QQ, (int)((((unsigned int)(Q)) >> (16))));
#line 1380 "regression-compile-tmp/allimpc1-77.imp"
L_015a:;
                                                                //   1381  L1406:    PLUG(QQ+2,Q&X'FFFF'); ->L1
#line 1381 "regression-compile-tmp/allimpc1-77.imp"
U_104f:;
#line 1381 "regression-compile-tmp/allimpc1-77.imp"
PLUG((((int)(QQ)) + (2)), ((Q) & (65535)));
#line 1381 "regression-compile-tmp/allimpc1-77.imp"
goto U_1049;
                                                                //   1382  L1407:    QQ=ACC+6+(JJ-KKK)<<1
#line 1382 "regression-compile-tmp/allimpc1-77.imp"
U_104e:;
#line 1382 "regression-compile-tmp/allimpc1-77.imp"
QQ = ((((((int)(ACC)) + (6)))) + ((((((int)(JJ)) - (KKK))) << (1))));
                                                                //   1383           FAULT(99) %IF Q>X'7FFF';->L1406
#line 1383 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) <= (32767))) goto L_015b;
#line 1383 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 1383 "regression-compile-tmp/allimpc1-77.imp"
L_015b:;
#line 1383 "regression-compile-tmp/allimpc1-77.imp"
goto U_104f;
                                                                //   1384  !
                                                                //   1385  L1:       %END;->L1
#line 1385 "regression-compile-tmp/allimpc1-77.imp"
U_1049:;
#line 1385 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block _BLOCK_1_LEVEL_2_ at level 3
_BLOCK_1_LEVEL_2_();
#line 1385 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1386  SW(15):  %BEGIN;                       !SWITCH (SWITCH LIST)
#line 1386 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_15:;
#line 1386 "regression-compile-tmp/allimpc1-77.imp"
void _BLOCK_2_LEVEL_2_(void) {
                                                                //   1387           !%SHORTROUTINE
                                                                //   1388           %INTEGER BP,QQQ
#line 1388 "regression-compile-tmp/allimpc1-77.imp"
int BP;
#line 1388 "regression-compile-tmp/allimpc1-77.imp"
int QQQ;
                                                                //   1389           Q=P;CNOP(0,4);PJ(15,PLABEL-1)
#line 1389 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
#line 1389 "regression-compile-tmp/allimpc1-77.imp"
CNOP(0, 4);
#line 1389 "regression-compile-tmp/allimpc1-77.imp"
PJ(15, (((int)(PLABEL)) - (1)));
                                                                //   1390           FAULT(56) %UNLESS LEVEL>=2
#line 1390 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) >= (2))) goto L_015c;
#line 1390 "regression-compile-tmp/allimpc1-77.imp"
FAULT(56);
#line 1390 "regression-compile-tmp/allimpc1-77.imp"
L_015c:;
                                                                //   1391  L1528:    P=Q+A(Q+1)+2
#line 1391 "regression-compile-tmp/allimpc1-77.imp"
U_104a:;
#line 1391 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(((Q) + ((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]))))) + (2));
                                                                //   1392           CBPAIR(KKK,KK);               ! LB TO KKK, UB TO KK
#line 1392 "regression-compile-tmp/allimpc1-77.imp"
CBPAIR(&KKK, &KK);
                                                                //   1393           ->L1501 %UNLESS |KKK|<X'7FFF'>|KK|
#line 1393 "regression-compile-tmp/allimpc1-77.imp"
if ((((_imp_IMOD(KKK)) >= (32767))) || (((32767) > (_imp_IMOD(KK))))) goto L_015d;
#line 1393 "regression-compile-tmp/allimpc1-77.imp"
L_013f:;
#line 1393 "regression-compile-tmp/allimpc1-77.imp"
goto U_104b;
#line 1393 "regression-compile-tmp/allimpc1-77.imp"
L_015d:;
                                                                //   1394           ->L1535 %IF KKK<=KK; FAULT(27); KK=KKK
#line 1394 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) > (KK))) goto L_015e;
#line 1394 "regression-compile-tmp/allimpc1-77.imp"
goto U_104c;
#line 1394 "regression-compile-tmp/allimpc1-77.imp"
L_015e:;
#line 1394 "regression-compile-tmp/allimpc1-77.imp"
FAULT(27);
#line 1394 "regression-compile-tmp/allimpc1-77.imp"
KK = KKK;
                                                                //   1395  L1535:    %CYCLE QQ=1,1,A(Q+1)
#line 1395 "regression-compile-tmp/allimpc1-77.imp"
U_104c:;
#line 1395 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]; QQ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle QQ = 1, 1, A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]");
QQ -= _increment; _control -= _increment;
L_015f:;
if (QQ == _final) goto L_0160;
QQ += _increment; _control += _increment;
if (QQ != _control) _imp_signal(4,2,0,"Corrupt control variable QQ"); /* FOR loop control variable corrupted */
}
                                                                //   1396           K=A(Q+QQ+1);TEST NST
#line 1396 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)((((int)(Q)) + (QQ)))) + (1)))) + (2))];
#line 1396 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1397           PREC=0
#line 1397 "regression-compile-tmp/allimpc1-77.imp"
PREC = 0;
                                                                //   1398           PREC=2 %IF SBFLAG=1 %OR COMPILER=1
#line 1398 "regression-compile-tmp/allimpc1-77.imp"
if (((SBFLAG) == (1))) goto L_0162;
#line 1398 "regression-compile-tmp/allimpc1-77.imp"
if (((COMPILER) != (1))) goto L_0163;
#line 1398 "regression-compile-tmp/allimpc1-77.imp"
L_0162:;
#line 1398 "regression-compile-tmp/allimpc1-77.imp"
PREC = 2;
#line 1398 "regression-compile-tmp/allimpc1-77.imp"
L_0163:;
                                                                //   1399           TYPE=6; ROUT=0; NAM=0; ARR=1; PACK(PTYPE)
#line 1399 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 6;
#line 1399 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
#line 1399 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 1399 "regression-compile-tmp/allimpc1-77.imp"
ARR = 1;
#line 1399 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1400           OPHEAD=NEWCELL; JJ=OPHEAD
#line 1400 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = NEWCELL();
#line 1400 "regression-compile-tmp/allimpc1-77.imp"
JJ = OPHEAD;
                                                                //   1401           J=0;STORE TAG(K,OPHEAD);R=KKK
#line 1401 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1401 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, OPHEAD);
#line 1401 "regression-compile-tmp/allimpc1-77.imp"
R = KKK;
                                                                //   1402           INSERT AFTER (OPHEAD,0,KK)
#line 1402 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, 0, KK);
                                                                //   1403  L1503:    ->L1504 %IF KK-R<32
#line 1403 "regression-compile-tmp/allimpc1-77.imp"
U_104d:;
#line 1403 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(KK)) - (R))) >= (32))) goto L_0164;
#line 1403 "regression-compile-tmp/allimpc1-77.imp"
goto U_104e;
#line 1403 "regression-compile-tmp/allimpc1-77.imp"
L_0164:;
                                                                //   1404           INSERT AFTER(OPHEAD,0,0)
#line 1404 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, 0, 0);
                                                                //   1405           R=R+32; ->L1503;               ! SET UP BIT LIST
#line 1405 "regression-compile-tmp/allimpc1-77.imp"
R = (((int)(R)) + (32));
#line 1405 "regression-compile-tmp/allimpc1-77.imp"
goto U_104d;
                                                                //   1406  L1504:    REPLACE BOTH(JJ,CA,KKK)
#line 1406 "regression-compile-tmp/allimpc1-77.imp"
U_104e:;
#line 1406 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(JJ, CA, KKK);
                                                                //   1407           PCONST(KKK&X'FFFFFF'!PREC<<24)
#line 1407 "regression-compile-tmp/allimpc1-77.imp"
PCONST(((((KKK) & (16777215))) | (((PREC) << (24)))));
                                                                //   1408           PCONST(KK)
#line 1408 "regression-compile-tmp/allimpc1-77.imp"
PCONST(KK);
                                                                //   1409           JJJ=KK-KKK
#line 1409 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)(KK)) - (KKK));
                                                                //   1410           JJJ=(JJJ+1)//2 %IF PREC=2
#line 1410 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (2))) goto L_0165;
#line 1410 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (long)((long)(((((int)(JJJ)) + (1)))) / (long)((int)(2)));
#line 1410 "regression-compile-tmp/allimpc1-77.imp"
L_0165:;
                                                                //   1411           %CYCLE I=0,1,JJJ
#line 1411 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = JJJ; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, JJJ");
I -= _increment; _control -= _increment;
L_0166:;
if (I == _final) goto L_0167;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   1412           PCONST(0);%REPEAT
#line 1412 "regression-compile-tmp/allimpc1-77.imp"
PCONST(0);
#line 1412 "regression-compile-tmp/allimpc1-77.imp"
goto L_0166;
#line 1412 "regression-compile-tmp/allimpc1-77.imp"
L_0167:;
                                                                //   1413           %REPEAT
#line 1413 "regression-compile-tmp/allimpc1-77.imp"
goto L_015f;
#line 1413 "regression-compile-tmp/allimpc1-77.imp"
L_0160:;
                                                                //   1414           Q=P; ->L1528 %UNLESS A(Q)=2
#line 1414 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
#line 1414 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((Q) + ((int)(2)))]) == (2))) goto L_0169;
#line 1414 "regression-compile-tmp/allimpc1-77.imp"
goto U_104a;
#line 1414 "regression-compile-tmp/allimpc1-77.imp"
L_0169:;
                                                                //   1415           PLAB(-1); ->L1
#line 1415 "regression-compile-tmp/allimpc1-77.imp"
PLAB((-1));
#line 1415 "regression-compile-tmp/allimpc1-77.imp"
goto U_104f;
                                                                //   1416  L1501:    FAULT(18); KK=0; KKK=0; ->L1535
#line 1416 "regression-compile-tmp/allimpc1-77.imp"
U_104b:;
#line 1416 "regression-compile-tmp/allimpc1-77.imp"
FAULT(18);
#line 1416 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
#line 1416 "regression-compile-tmp/allimpc1-77.imp"
KKK = 0;
#line 1416 "regression-compile-tmp/allimpc1-77.imp"
goto U_104c;
                                                                //   1417  L1:       %END;->L1
#line 1417 "regression-compile-tmp/allimpc1-77.imp"
U_104f:;
#line 1417 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block _BLOCK_2_LEVEL_2_ at level 3
_BLOCK_2_LEVEL_2_();
#line 1417 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1418  SW(16):  QU=\A(P+1)&1; P=P+2; ->L1
#line 1418 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_16:;
#line 1418 "regression-compile-tmp/allimpc1-77.imp"
QU = (((~(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) & (1));
#line 1418 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1418 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1419  !
                                                                //   1420  SW(17):                                ! '%REGISTER' (NAME)
#line 1420 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_17:;
                                                                //   1421           KK=CLAIMABLE REG
#line 1421 "regression-compile-tmp/allimpc1-77.imp"
KK = CLAIMABLEREG();
                                                                //   1422           ->L1999 %IF KK=0
#line 1422 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (0))) goto L_016a;
#line 1422 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1422 "regression-compile-tmp/allimpc1-77.imp"
L_016a:;
                                                                //   1423           REGISTER(KK)=-LEVEL
#line 1423 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[KK] = (-(LEVEL));
                                                                //   1424           UVARREG(KK)=LEVEL
#line 1424 "regression-compile-tmp/allimpc1-77.imp"
UVARREG[(((int)(KK)) - (5))] = LEVEL;
                                                                //   1425           PTYPE=8; J=0
#line 1425 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 8;
#line 1425 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
                                                                //   1426           K=A(P+1); TESTNST
#line 1426 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 1426 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1427           STORE TAG(K,KK); ->L1
#line 1427 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, KK);
#line 1427 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1428  SW(18):                                ! '%OWN' (TYPE)(OWNDEC)
#line 1428 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_18:;
                                                                //   1429           %BEGIN
#line 1429 "regression-compile-tmp/allimpc1-77.imp"
void _BLOCK_3_LEVEL_2_(void) {
                                                                //   1430           !%SHORTROUTINE
                                                                //   1431           %INTEGER WSP1,LENGTH,BP,PP,SIGN
#line 1431 "regression-compile-tmp/allimpc1-77.imp"
int WSP1;
#line 1431 "regression-compile-tmp/allimpc1-77.imp"
int LENGTH;
#line 1431 "regression-compile-tmp/allimpc1-77.imp"
int BP;
#line 1431 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 1431 "regression-compile-tmp/allimpc1-77.imp"
int SIGN;
                                                                //   1432           %INTEGERNAME VAR
#line 1432 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*VAR;
                                                                //   1433           FAULT(40) %UNLESS NMDECS(LEVEL)=0
#line 1433 "regression-compile-tmp/allimpc1-77.imp"
if (((NMDECS[LEVEL]) == (0))) goto L_016b;
#line 1433 "regression-compile-tmp/allimpc1-77.imp"
FAULT(40);
#line 1433 "regression-compile-tmp/allimpc1-77.imp"
L_016b:;
                                                                //   1434           P=P+1; CLT
#line 1434 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1434 "regression-compile-tmp/allimpc1-77.imp"
CLT();
                                                                //   1435           FAULT(70) %IF TYPE=5 %AND ACC=0
#line 1435 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_016c;
#line 1435 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) != (0))) goto L_016c;
#line 1435 "regression-compile-tmp/allimpc1-77.imp"
FAULT(70);
#line 1435 "regression-compile-tmp/allimpc1-77.imp"
L_016c:;
                                                                //   1436           NAM=0; ROUT=0; ARR=A(P)-1; PACK(PTYPE)
#line 1436 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 1436 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
#line 1436 "regression-compile-tmp/allimpc1-77.imp"
ARR = (((int)(A[((P) + ((int)(2)))])) - (1));
#line 1436 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1437           PP=P+1; P=P+2; ->NONSCALAR %UNLESS ARR=0
#line 1437 "regression-compile-tmp/allimpc1-77.imp"
PP = (((int)(P)) + (1));
#line 1437 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1437 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (0))) goto L_016d;
#line 1437 "regression-compile-tmp/allimpc1-77.imp"
goto U_104f;
#line 1437 "regression-compile-tmp/allimpc1-77.imp"
L_016d:;
                                                                //   1438           ->L1801 %UNLESS A(P)=2;        ! NO CONST
#line 1438 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_016e;
#line 1438 "regression-compile-tmp/allimpc1-77.imp"
goto U_1050;
#line 1438 "regression-compile-tmp/allimpc1-77.imp"
L_016e:;
                                                                //   1439           A(P+1)=4; A(P+2)=9; A(P+3)=0; ! 0== NULL STRING ALSO
#line 1439 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (1)))) + (2))] = 4;
#line 1439 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = 9;
#line 1439 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (3)))) + (2))] = 0;
                                                                //   1440  L1801:    SIGN=A(P+1); ->L1820 %IF TYPE=5;! STRING
#line 1440 "regression-compile-tmp/allimpc1-77.imp"
U_1050:;
#line 1440 "regression-compile-tmp/allimpc1-77.imp"
SIGN = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 1440 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_016f;
#line 1440 "regression-compile-tmp/allimpc1-77.imp"
goto U_1051;
#line 1440 "regression-compile-tmp/allimpc1-77.imp"
L_016f:;
                                                                //   1441           JJ= SORT CONST(P+2,PREC&1,TYPE)
#line 1441 "regression-compile-tmp/allimpc1-77.imp"
JJ = SORTCONST((((int)(P)) + (2)), ((PREC) & (1)), TYPE);
                                                                //   1442           ->L1810 %IF TYPE=2
#line 1442 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0170;
#line 1442 "regression-compile-tmp/allimpc1-77.imp"
goto U_1052;
#line 1442 "regression-compile-tmp/allimpc1-77.imp"
L_0170:;
                                                                //   1443           VAR==ST(N0-1)
#line 1443 "regression-compile-tmp/allimpc1-77.imp"
VAR = &ST[(((int)(N0)) - (1))];
                                                                //   1444           FAULT(44)%IF(PREC=1 %AND VAR>255)%OR(PREC=2 %AND |VAR|>>16#0)
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (1))) goto L_0171;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
if (((*VAR) > (255))) goto L_0161;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
L_0171:;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (2))) goto L_0172;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
if (((((((_imp_IMOD(*VAR))) >> (16)))) == (0))) goto L_0172;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
L_0161:;
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 1444 "regression-compile-tmp/allimpc1-77.imp"
L_0172:;
                                                                //   1445           FAULT(44) %IF A(P+2)&7=2;     ! REAL CONST FOR INTEGER VARIABLE
#line 1445 "regression-compile-tmp/allimpc1-77.imp"
if (((((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) & (7))) != (2))) goto L_0173;
#line 1445 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 1445 "regression-compile-tmp/allimpc1-77.imp"
L_0173:;
                                                                //   1446           %IF SIGN=2 %THEN VAR=-VAR
#line 1446 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) != (2))) goto L_0174;
#line 1446 "regression-compile-tmp/allimpc1-77.imp"
*VAR = (-(*VAR));
#line 1446 "regression-compile-tmp/allimpc1-77.imp"
L_0174:;
                                                                //   1447           %IF SIGN=3 %THEN VAR=\VAR
#line 1447 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) != (3))) goto L_0175;
#line 1447 "regression-compile-tmp/allimpc1-77.imp"
*VAR = (~(*VAR));
#line 1447 "regression-compile-tmp/allimpc1-77.imp"
L_0175:;
                                                                //   1448  L1803:    K=A(PP); TESTNST
#line 1448 "regression-compile-tmp/allimpc1-77.imp"
U_1053:;
#line 1448 "regression-compile-tmp/allimpc1-77.imp"
K = A[((PP) + ((int)(2)))];
#line 1448 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1449           JJ=JJ+4-BYTES(PREC) %UNLESS PREC=3
#line 1449 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (3))) goto L_0176;
#line 1449 "regression-compile-tmp/allimpc1-77.imp"
JJ = (((unsigned char)((((int)(JJ)) + (4)))) - (BYTES[PREC]));
#line 1449 "regression-compile-tmp/allimpc1-77.imp"
L_0176:;
                                                                //   1450           PUSH(TAGS(K),PTYPE<<16!LEVEL<<8!GLA<<4,JJ)
#line 1450 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&TAGS[K], ((((((PTYPE) << (16))) | (((LEVEL) << (8))))) | (((GLA) << (4)))), JJ);
                                                                //   1451           PUSH(NAME(LEVEL),0,K); ->L99
#line 1451 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&NAME[LEVEL], 0, K);
#line 1451 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
                                                                //   1452  L1810:    FAULT(44) %IF SIGN=3;         ! \ WITH REAL
#line 1452 "regression-compile-tmp/allimpc1-77.imp"
U_1052:;
#line 1452 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) != (3))) goto L_0177;
#line 1452 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 1452 "regression-compile-tmp/allimpc1-77.imp"
L_0177:;
                                                                //   1453           ->L1803 %UNLESS SIGN=2
#line 1453 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) == (2))) goto L_0178;
#line 1453 "regression-compile-tmp/allimpc1-77.imp"
goto U_1053;
#line 1453 "regression-compile-tmp/allimpc1-77.imp"
L_0178:;
                                                                //   1454           ST(JJ>>2)=ST(JJ>>2)!X'80000000';! OR IN SIGN BIT
#line 1454 "regression-compile-tmp/allimpc1-77.imp"
ST[(int)((((unsigned int)(JJ)) >> (2)))] = ((ST[(int)((((unsigned int)(JJ)) >> (2)))]) | ((-2147483648)));
                                                                //   1455           ->L1803
#line 1455 "regression-compile-tmp/allimpc1-77.imp"
goto U_1053;
                                                                //   1456  L1820:                                  ! STRINGS
#line 1456 "regression-compile-tmp/allimpc1-77.imp"
U_1051:;
                                                                //   1457           ->L1822 %UNLESS A(P+2)=9 %AND A(P+3)<127
#line 1457 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (9))) goto L_0179;
#line 1457 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) < (127))) goto L_017a;
#line 1457 "regression-compile-tmp/allimpc1-77.imp"
L_0179:;
#line 1457 "regression-compile-tmp/allimpc1-77.imp"
goto U_1055;
#line 1457 "regression-compile-tmp/allimpc1-77.imp"
L_017a:;
                                                                //   1458           A(P+2)=5; A(P+4)=A(P+3); A(P+3)=1
#line 1458 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = 5;
#line 1458 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (4)))) + (2))] = A[(((unsigned char)((((int)(P)) + (3)))) + (2))];
#line 1458 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (3)))) + (2))] = 1;
                                                                //   1459  L1822:    FAULT(44) %UNLESS SIGN=4 %AND A(P+2)=5 %AND A(P+3)<ACC
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
U_1055:;
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
if (((SIGN) != (4))) goto L_017b;
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (5))) goto L_017b;
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) < (ACC))) goto L_017c;
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
L_017b:;
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 1459 "regression-compile-tmp/allimpc1-77.imp"
L_017c:;
                                                                //   1460           QQ=CONSTPTR<<2
#line 1460 "regression-compile-tmp/allimpc1-77.imp"
QQ = ((CONSTPTR) << (2));
                                                                //   1461           %CYCLE JJ=0,4,(ACC-1)&(-4)
#line 1461 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 4; _final = (((((int)(ACC)) - (1))) & ((-4))); JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 4, (((((int)(ACC)) - (1))) & ((-4)))");
JJ -= _increment; _control -= _increment;
L_017d:;
if (JJ == _final) goto L_017e;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //   1462           WSP1=A(P+JJ+3)<<8!A(P+JJ+4)&255;! COLLECT THE SYMBOLS FROM
#line 1462 "regression-compile-tmp/allimpc1-77.imp"
WSP1 = ((((A[(((unsigned char)((((int)((((int)(P)) + (JJ)))) + (3)))) + (2))]) << (8))) | (((A[(((unsigned char)((((int)((((int)(P)) + (JJ)))) + (4)))) + (2))]) & (255))));
                                                                //   1463           WSP1=WSP1<<8!A(P+JJ+5)&255;   ! A.R AND ASSEMBLE INTO FOURS
#line 1463 "regression-compile-tmp/allimpc1-77.imp"
WSP1 = ((((WSP1) << (8))) | (((A[(((unsigned char)((((int)((((int)(P)) + (JJ)))) + (5)))) + (2))]) & (255))));
                                                                //   1464           WSP1=WSP1<<8!A(P+JJ+6)&255
#line 1464 "regression-compile-tmp/allimpc1-77.imp"
WSP1 = ((((WSP1) << (8))) | (((A[(((unsigned char)((((int)((((int)(P)) + (JJ)))) + (6)))) + (2))]) & (255))));
                                                                //   1465           PSYM(WSP1);                   ! THEN ADD TO SYMBOL TABLES
#line 1465 "regression-compile-tmp/allimpc1-77.imp"
PSYM(WSP1);
                                                                //   1466           %REPEAT
#line 1466 "regression-compile-tmp/allimpc1-77.imp"
goto L_017d;
#line 1466 "regression-compile-tmp/allimpc1-77.imp"
L_017e:;
                                                                //   1467                 PRX(X'58',2,0,GLA,8);   ! BASE OF ST TO REG2
#line 1467 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 2, 0, GLA, 8);
                                                                //   1468                 LOADAD(1,2,GLA,QQ);     ! ABSOLUTE ADDR OF STING
#line 1468 "regression-compile-tmp/allimpc1-77.imp"
LOADAD(1, 2, GLA, QQ);
                                                                //   1469                 PRX(X'50',1,0,RBASE,N); ! STUFF IT OFF
#line 1469 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, 1, 0, RBASE, N);
                                                                //   1470                 PSI(X'92',ACC-1,RBASE,N);                               !
#line 1470 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, (((int)(ACC)) - (1)), RBASE, N);
                                                                //   1471           K=A(PP); TESTNST
#line 1471 "regression-compile-tmp/allimpc1-77.imp"
K = A[((PP) + ((int)(2)))];
#line 1471 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1472           J=0;STORE TAG(K,N)
#line 1472 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1472 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
                                                                //   1473           N=N+4; ->L99
#line 1473 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
#line 1473 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
                                                                //   1474  NONSCALAR:CBPAIR(KK,KKK)
#line 1474 "regression-compile-tmp/allimpc1-77.imp"
U_104f:;
#line 1474 "regression-compile-tmp/allimpc1-77.imp"
CBPAIR(&KK, &KKK);
                                                                //   1475           %IF TYPE=5 %THEN BP=ACC %ELSE BP=BYTES(PREC)
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0180;
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
BP = ACC;
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
goto L_0181;
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
L_0180:;
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
BP = BYTES[PREC];
#line 1475 "regression-compile-tmp/allimpc1-77.imp"
L_0181:;
                                                                //   1476           LENGTH=KKK-KK+1
#line 1476 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = (((int)((((int)(KKK)) - (KK)))) + (1));
                                                                //   1477           %IF A(P+1)=0 %THEN ->L3;       ! NO CONSTLIST
#line 1477 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (0))) goto L_0182;
#line 1477 "regression-compile-tmp/allimpc1-77.imp"
goto U_1056;
#line 1477 "regression-compile-tmp/allimpc1-77.imp"
L_0182:;
                                                                //   1478  L1:       FAULT(45) %UNLESS KKK>=KK %AND LENGTH=A(P+1)
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
U_1057:;
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) < (KK))) goto L_017f;
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
if (((LENGTH) == (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) goto L_0183;
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
L_017f:;
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
FAULT(45);
#line 1478 "regression-compile-tmp/allimpc1-77.imp"
L_0183:;
                                                                //   1479           QQ=CONSTPTR<<2
#line 1479 "regression-compile-tmp/allimpc1-77.imp"
QQ = ((CONSTPTR) << (2));
                                                                //   1480           JJ=A(P+2)<<2
#line 1480 "regression-compile-tmp/allimpc1-77.imp"
JJ = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) << (2));
                                                                //   1481           %COMMENT OUTPUT AN ARRAYHEAD RELATIVE TO QQ
                                                                //   1482           ST(N0)=JJ-KK*BP
#line 1482 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = ((JJ) - ((int)((((int)(KK)) * (BP)))));
                                                                //   1483           ST(N0+1)=JJ
#line 1483 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = JJ;
                                                                //   1484           ST(N0+2)=QQ
#line 1484 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = QQ;
                                                                //   1485           ST(N0+3)=OWNLINK
#line 1485 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (3))] = OWNLINK;
                                                                //   1486           %COMMENT NOW OUTPUT DOPE VECTOR
                                                                //   1487           PSYM(1<<16!BP)
#line 1487 "regression-compile-tmp/allimpc1-77.imp"
PSYM(((((1) << (16))) | (BP)));
                                                                //   1488           PSYM(KK)
#line 1488 "regression-compile-tmp/allimpc1-77.imp"
PSYM(KK);
                                                                //   1489           PSYM(KKK)
#line 1489 "regression-compile-tmp/allimpc1-77.imp"
PSYM(KKK);
                                                                //   1490           %COMMENT NOW PLANT CODE
                                                                //   1491           K=A(PP); J=1; TEST NST
#line 1491 "regression-compile-tmp/allimpc1-77.imp"
K = A[((PP) + ((int)(2)))];
#line 1491 "regression-compile-tmp/allimpc1-77.imp"
J = 1;
#line 1491 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1492           OWNLINK=N0<<2
#line 1492 "regression-compile-tmp/allimpc1-77.imp"
OWNLINK = ((N0) << (2));
                                                                //   1493           RBASE=GLA; STORETAG(K,OWNLINK)
#line 1493 "regression-compile-tmp/allimpc1-77.imp"
RBASE = GLA;
#line 1493 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, OWNLINK);
                                                                //   1494           RBASE=10-RLEVEL; N0=N0+4; ->L99
#line 1494 "regression-compile-tmp/allimpc1-77.imp"
RBASE = (((int)(10)) - (RLEVEL));
#line 1494 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (4));
#line 1494 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
                                                                //   1495  L3:       A(P+2)=CONSTPTR
#line 1495 "regression-compile-tmp/allimpc1-77.imp"
U_1056:;
#line 1495 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = CONSTPTR;
                                                                //   1496           A(P+1)=LENGTH; ->L1 %IF LENGTH<1
#line 1496 "regression-compile-tmp/allimpc1-77.imp"
A[(((unsigned char)((((int)(P)) + (1)))) + (2))] = LENGTH;
#line 1496 "regression-compile-tmp/allimpc1-77.imp"
if (((LENGTH) >= (1))) goto L_0184;
#line 1496 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
#line 1496 "regression-compile-tmp/allimpc1-77.imp"
L_0184:;
                                                                //   1497           %CYCLE JJ=1,1,(LENGTH*BP+3)//4
#line 1497 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = ((long)((long)(((((int)((((int)(LENGTH)) * (BP)))) + (3)))) / (long)((int)(4)))); JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, ((long)((long)(((((int)((((int)(LENGTH)) * (BP)))) + (3)))) / (long)((int)(4))))");
JJ -= _increment; _control -= _increment;
L_0185:;
if (JJ == _final) goto L_0186;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //   1498           PSYM(0); %REPEAT; ->L1
#line 1498 "regression-compile-tmp/allimpc1-77.imp"
PSYM(0);
#line 1498 "regression-compile-tmp/allimpc1-77.imp"
goto L_0185;
#line 1498 "regression-compile-tmp/allimpc1-77.imp"
L_0186:;
#line 1498 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
                                                                //   1499  L99:      %END; ->L1
#line 1499 "regression-compile-tmp/allimpc1-77.imp"
U_1054:;
#line 1499 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block _BLOCK_3_LEVEL_2_ at level 3
_BLOCK_3_LEVEL_2_();
#line 1499 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1500  SW(19):                                ! %CLAIM/RELEASE ETC
#line 1500 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_19:;
                                                                //   1501           COPY TAG(A(P+3))
#line 1501 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[(((unsigned char)((((int)(P)) + (3)))) + (2))]);
                                                                //   1502           ->L1910 %IF A(P+2)=1;          ! '%ARRAY'
#line 1502 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (1))) goto L_0188;
#line 1502 "regression-compile-tmp/allimpc1-77.imp"
goto U_1049;
#line 1502 "regression-compile-tmp/allimpc1-77.imp"
L_0188:;
                                                                //   1503           ->L1999 %UNLESS ARR=0 %AND TYPE=3
#line 1503 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0187;
#line 1503 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (3))) goto L_0189;
#line 1503 "regression-compile-tmp/allimpc1-77.imp"
L_0187:;
#line 1503 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1503 "regression-compile-tmp/allimpc1-77.imp"
L_0189:;
                                                                //   1504           FROM2(K,K); ->L1920
#line 1504 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &K);
#line 1504 "regression-compile-tmp/allimpc1-77.imp"
goto U_104a;
                                                                //   1505  L1910:    ->L1999 %UNLESS ARR=1 %AND TYPE<=3 %AND J<=2
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
U_1049:;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_018a;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) > (3))) goto L_018a;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
if (((J) <= (2))) goto L_018b;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
L_018a:;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1505 "regression-compile-tmp/allimpc1-77.imp"
L_018b:;
                                                                //   1506  L1920:    ->L1930 %IF A(P+1)=2;          ! %RELEASE
#line 1506 "regression-compile-tmp/allimpc1-77.imp"
U_104a:;
#line 1506 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_018c;
#line 1506 "regression-compile-tmp/allimpc1-77.imp"
goto U_104b;
#line 1506 "regression-compile-tmp/allimpc1-77.imp"
L_018c:;
                                                                //   1507           KK=CLAIMABLE REG; ->L1999 %IF KK=0
#line 1507 "regression-compile-tmp/allimpc1-77.imp"
KK = CLAIMABLEREG();
#line 1507 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (0))) goto L_018d;
#line 1507 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1507 "regression-compile-tmp/allimpc1-77.imp"
L_018d:;
                                                                //   1508           REGISTER(KK)=A(P+3)+1
#line 1508 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[KK] = (((int)(A[(((unsigned char)((((int)(P)) + (3)))) + (2))])) + (1));
                                                                //   1509           PRX(X'58',KK,0,I,K);          ! LOAD THE REGISTER
#line 1509 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, KK, 0, I, K);
                                                                //   1510           JJ=TAGS(A(P+3))
#line 1510 "regression-compile-tmp/allimpc1-77.imp"
JJ = TAGS[A[(((unsigned char)((((int)(P)) + (3)))) + (2))]];
                                                                //   1511           FROM1(JJ,JJJ)
#line 1511 "regression-compile-tmp/allimpc1-77.imp"
FROM1(JJ, &JJJ);
                                                                //   1512           JJJ=JJJ!KK<<12
#line 1512 "regression-compile-tmp/allimpc1-77.imp"
JJJ = ((JJJ) | (((KK) << (12))));
                                                                //   1513  L1925:    REPLACE1(JJ,JJJ); ->L1
#line 1513 "regression-compile-tmp/allimpc1-77.imp"
U_104c:;
#line 1513 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(JJ, JJJ);
#line 1513 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1514  L1930:    ->L1999 %UNLESS INREG#0 %AND REGISTER(INREG)=A(P+3)+1
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
U_104b:;
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_018e;
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[INREG]) == ((((int)(A[(((unsigned char)((((int)(P)) + (3)))) + (2))])) + (1))))) goto L_018f;
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
L_018e:;
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
goto U_1048;
#line 1514 "regression-compile-tmp/allimpc1-77.imp"
L_018f:;
                                                                //   1515           REGISTER(INREG)=0; JJ=TAGS(A(P+3))
#line 1515 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[INREG] = 0;
#line 1515 "regression-compile-tmp/allimpc1-77.imp"
JJ = TAGS[A[(((unsigned char)((((int)(P)) + (3)))) + (2))]];
                                                                //   1516           FROM1(JJ,JJJ)
#line 1516 "regression-compile-tmp/allimpc1-77.imp"
FROM1(JJ, &JJJ);
                                                                //   1517           JJJ=JJJ&X'FFFF0FFF'; ->L1925
#line 1517 "regression-compile-tmp/allimpc1-77.imp"
JJJ = ((JJJ) & ((-61441)));
#line 1517 "regression-compile-tmp/allimpc1-77.imp"
goto U_104c;
                                                                //   1518  L1999:    FAULT(58); ->L1
#line 1518 "regression-compile-tmp/allimpc1-77.imp"
U_1048:;
#line 1518 "regression-compile-tmp/allimpc1-77.imp"
FAULT(58);
#line 1518 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1519  SW(26):  COMPILER=1; UNASS=0; ->L1
#line 1519 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_26:;
#line 1519 "regression-compile-tmp/allimpc1-77.imp"
COMPILER = 1;
#line 1519 "regression-compile-tmp/allimpc1-77.imp"
UNASS = 0;
#line 1519 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1520  SW(27):                                ! '%SPEC' FPP
#line 1520 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_27:;
                                                                //   1521           P=P+1; ->L2701 %IF A(P+1)=1
#line 1521 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1521 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_0190;
#line 1521 "regression-compile-tmp/allimpc1-77.imp"
goto U_104d;
#line 1521 "regression-compile-tmp/allimpc1-77.imp"
L_0190:;
                                                                //   1522           CRSPEC(2); ->L1
#line 1522 "regression-compile-tmp/allimpc1-77.imp"
CRSPEC(2);
#line 1522 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1523  L2701:    COPY TAG(A(P))
#line 1523 "regression-compile-tmp/allimpc1-77.imp"
U_104d:;
#line 1523 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((P) + ((int)(2)))]);
                                                                //   1524           ->L3901 %UNLESS PTYPE=4 %AND A(P+4)=2=A(P+3)
#line 1524 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (4))) goto L_0191;
#line 1524 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (3)))) + (2))])))) goto L_0192;
#line 1524 "regression-compile-tmp/allimpc1-77.imp"
L_0191:;
#line 1524 "regression-compile-tmp/allimpc1-77.imp"
goto U_104e;
#line 1524 "regression-compile-tmp/allimpc1-77.imp"
L_0192:;
                                                                //   1525           P=P+2; K=DISPLACEMENT(TAGS(A(P-2)))
#line 1525 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1525 "regression-compile-tmp/allimpc1-77.imp"
K = DISPLACEMENT(TAGS[A[(((unsigned char)((((int)(P)) - (2)))) + (2))]]);
                                                                //   1526           ->L1 %IF K=-1; OPHEAD=K;
#line 1526 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != ((-1)))) goto L_0193;
#line 1526 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
#line 1526 "regression-compile-tmp/allimpc1-77.imp"
L_0193:;
#line 1526 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = K;
                                                                //   1527           P=P+2; CRSPEC(3); ->L1
#line 1527 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1527 "regression-compile-tmp/allimpc1-77.imp"
CRSPEC(3);
#line 1527 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1528  SW(20):  MCSWITCH=1; PERM=1; ->L1;       ! %MCODE
#line 1528 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_20:;
#line 1528 "regression-compile-tmp/allimpc1-77.imp"
MCSWITCH = 1;
#line 1528 "regression-compile-tmp/allimpc1-77.imp"
PERM = 1;
#line 1528 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1529  SW(21):  SBFLAG=1; ->L1
#line 1529 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_21:;
#line 1529 "regression-compile-tmp/allimpc1-77.imp"
SBFLAG = 1;
#line 1529 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1530  SW(22):  P=2; CUCI; ->L1;                ! *UCI(S)
#line 1530 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_22:;
#line 1530 "regression-compile-tmp/allimpc1-77.imp"
P = 2;
#line 1530 "regression-compile-tmp/allimpc1-77.imp"
CUCI();
#line 1530 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1531  SW(23):                                ! %FAULT FAULTLIST
#line 1531 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_23:;
                                                                //   1532           FAULT(26) %UNLESS LEVEL=2 %AND CPRMODE#2
#line 1532 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) != (2))) goto L_0194;
#line 1532 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_0195;
#line 1532 "regression-compile-tmp/allimpc1-77.imp"
L_0194:;
#line 1532 "regression-compile-tmp/allimpc1-77.imp"
FAULT(26);
#line 1532 "regression-compile-tmp/allimpc1-77.imp"
L_0195:;
                                                                //   1533           P=P+1; Q=P+1
#line 1533 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1533 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(P)) + (1));
                                                                //   1534  L2302:    %IF A(Q)=2 %THEN ->L2303
#line 1534 "regression-compile-tmp/allimpc1-77.imp"
U_104f:;
#line 1534 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((Q) + ((int)(2)))]) != (2))) goto L_0196;
#line 1534 "regression-compile-tmp/allimpc1-77.imp"
goto U_1050;
#line 1534 "regression-compile-tmp/allimpc1-77.imp"
L_0196:;
                                                                //   1535           Q=Q+2; ->L2302
#line 1535 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (2));
#line 1535 "regression-compile-tmp/allimpc1-77.imp"
goto U_104f;
                                                                //   1536  L2303:    K=A(Q+2)+(A(Q+1)-1)<<14
#line 1536 "regression-compile-tmp/allimpc1-77.imp"
U_1050:;
#line 1536 "regression-compile-tmp/allimpc1-77.imp"
K = ((A[(((unsigned char)((((int)(Q)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   1537           KKK=A(P);PCONST(X'41100000'!KKK)
#line 1537 "regression-compile-tmp/allimpc1-77.imp"
KKK = A[((P) + ((int)(2)))];
#line 1537 "regression-compile-tmp/allimpc1-77.imp"
PCONST(((1091567616) | (KKK)));
                                                                //   1538           FAULT(36) %IF KKK>32 %OR KKK=0 %OR KKK=29 %OR 12<=KKK<=13
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) > (32))) goto L_0197;
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) == (0))) goto L_0197;
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) == (29))) goto L_0197;
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
if ((((12) > (KKK))) || (((KKK) > (13)))) goto L_0198;
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
L_0197:;
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
FAULT(36);
#line 1538 "regression-compile-tmp/allimpc1-77.imp"
L_0198:;
                                                                //   1539           PPJ(20); QQ=CA
#line 1539 "regression-compile-tmp/allimpc1-77.imp"
PPJ(20);
#line 1539 "regression-compile-tmp/allimpc1-77.imp"
QQ = CA;
                                                                //   1540           PJ(15,K);                     ! JUMP TO LABEL
#line 1540 "regression-compile-tmp/allimpc1-77.imp"
PJ(15, K);
                                                                //   1541           PCONST(X'07000700') %UNLESS CA=QQ+8;! JUMP MUST BE 8 BYTES
#line 1541 "regression-compile-tmp/allimpc1-77.imp"
if (((CA) == ((((int)(QQ)) + (8))))) goto L_0199;
#line 1541 "regression-compile-tmp/allimpc1-77.imp"
PCONST(117442304);
#line 1541 "regression-compile-tmp/allimpc1-77.imp"
L_0199:;
                                                                //   1542           P=P+2; ->L2303 %IF A(P-1)=1
#line 1542 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1542 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_019a;
#line 1542 "regression-compile-tmp/allimpc1-77.imp"
goto U_1050;
#line 1542 "regression-compile-tmp/allimpc1-77.imp"
L_019a:;
                                                                //   1543           ->L1 %IF A(P+2)=2
#line 1543 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (2))) goto L_019b;
#line 1543 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
#line 1543 "regression-compile-tmp/allimpc1-77.imp"
L_019b:;
                                                                //   1544           P=P+3; Q=P+1; ->L2302
#line 1544 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 1544 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(P)) + (1));
#line 1544 "regression-compile-tmp/allimpc1-77.imp"
goto U_104f;
                                                                //   1545  SW(24):  FAULT(56) %UNLESS CPRMODE=2 %AND RLEVEL=1
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_24:;
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_019c;
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
if (((RLEVEL) == (1))) goto L_019d;
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
L_019c:;
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
FAULT(56);
#line 1545 "regression-compile-tmp/allimpc1-77.imp"
L_019d:;
                                                                //   1546           LOAD DATA;FINALISE
#line 1546 "regression-compile-tmp/allimpc1-77.imp"
LOADDATA();
#line 1546 "regression-compile-tmp/allimpc1-77.imp"
FINALISE();
                                                                //   1547           %STOP
#line 1547 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //   1548  SW(25):  MCSWITCH=0; PERM=0; ->L1;       ! %ENDOFMCODE
#line 1548 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_25:;
#line 1548 "regression-compile-tmp/allimpc1-77.imp"
MCSWITCH = 0;
#line 1548 "regression-compile-tmp/allimpc1-77.imp"
PERM = 0;
#line 1548 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1549  SW(28):                                !%NAME - SPECIAL NAME
#line 1549 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_28:;
                                                                //   1550           J=0; PTYPE=10006
#line 1550 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1550 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 10006;
                                                                //   1551           STORE TAG(A(P+1),SNUM)
#line 1551 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))], SNUM);
                                                                //   1552           SNUM=SNUM+1;->L1
#line 1552 "regression-compile-tmp/allimpc1-77.imp"
SNUM = (((int)(SNUM)) + (1));
#line 1552 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1553  SW(29):  LIST=1; ->L1;                   ! %LIST
#line 1553 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_29:;
#line 1553 "regression-compile-tmp/allimpc1-77.imp"
LIST = 1;
#line 1553 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1554  SW(30):   LIST=0; ->L1
#line 1554 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_30:;
#line 1554 "regression-compile-tmp/allimpc1-77.imp"
LIST = 0;
#line 1554 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1555  SW(31):                      ! %CONTROL CONST
#line 1555 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_31:;
                                                                //   1556           %IF A(P+1)=9 %THEN J=A(P+2) %ELSE FROMAR4(P+2,J)
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_019e;
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
J = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
goto L_019f;
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
L_019e:;
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
FROMAR4((((int)(P)) + (2)), &J);
#line 1556 "regression-compile-tmp/allimpc1-77.imp"
L_019f:;
                                                                //   1557           K=J&15; LINENOS=K %UNLESS K=15
#line 1557 "regression-compile-tmp/allimpc1-77.imp"
K = ((J) & (15));
#line 1557 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a0;
#line 1557 "regression-compile-tmp/allimpc1-77.imp"
LINENOS = K;
#line 1557 "regression-compile-tmp/allimpc1-77.imp"
L_01a0:;
                                                                //   1558           K=J>>4&15; DIAGS1=K %UNLESS K=15
#line 1558 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)((((unsigned int)(J)) >> (4)))) & (15));
#line 1558 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a1;
#line 1558 "regression-compile-tmp/allimpc1-77.imp"
DIAGS1 = K;
#line 1558 "regression-compile-tmp/allimpc1-77.imp"
L_01a1:;
                                                                //   1559           K=J>>8&15
#line 1559 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)((((unsigned int)(J)) >> (8)))) & (15));
                                                                //   1560           CHECKS=K %UNLESS K=15
#line 1560 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a2;
#line 1560 "regression-compile-tmp/allimpc1-77.imp"
CHECKS = K;
#line 1560 "regression-compile-tmp/allimpc1-77.imp"
L_01a2:;
                                                                //   1561           CHECKSP=K&14 %UNLESS K=15
#line 1561 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a3;
#line 1561 "regression-compile-tmp/allimpc1-77.imp"
CHECKSP = ((K) & (14));
#line 1561 "regression-compile-tmp/allimpc1-77.imp"
L_01a3:;
                                                                //   1562           K=J>>12&15
#line 1562 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)((((unsigned int)(J)) >> (12)))) & (15));
                                                                //   1563           UNASS=K %UNLESS K=15
#line 1563 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a4;
#line 1563 "regression-compile-tmp/allimpc1-77.imp"
UNASS = K;
#line 1563 "regression-compile-tmp/allimpc1-77.imp"
L_01a4:;
                                                                //   1564           K=J>>28
#line 1564 "regression-compile-tmp/allimpc1-77.imp"
K = (int)((((unsigned int)(J)) >> (28)));
                                                                //   1565           DCOMP=K %UNLESS K=15
#line 1565 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (15))) goto L_01a5;
#line 1565 "regression-compile-tmp/allimpc1-77.imp"
DCOMP = K;
#line 1565 "regression-compile-tmp/allimpc1-77.imp"
L_01a5:;
                                                                //   1566           ->L1
#line 1566 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1567  SW(32):  POP(SBR(LEVEL),J,K);           ! FINISH (ELSE')
#line 1567 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_32:;
#line 1567 "regression-compile-tmp/allimpc1-77.imp"
POP(&SBR[LEVEL], &J, &K);
                                                                //   1568           ->L321 %UNLESS J=-1; FAULT(51); ->L1
#line 1568 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == ((-1)))) goto L_01a6;
#line 1568 "regression-compile-tmp/allimpc1-77.imp"
goto U_1051;
#line 1568 "regression-compile-tmp/allimpc1-77.imp"
L_01a6:;
#line 1568 "regression-compile-tmp/allimpc1-77.imp"
FAULT(51);
#line 1568 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1569  L321:     POP(CYCLE(LEVEL),JJ,KK)
#line 1569 "regression-compile-tmp/allimpc1-77.imp"
U_1051:;
#line 1569 "regression-compile-tmp/allimpc1-77.imp"
POP(&CYCLE[LEVEL], &JJ, &KK);
                                                                //   1570           ->L322 %IF 0>=JJ
#line 1570 "regression-compile-tmp/allimpc1-77.imp"
if (((0) < (JJ))) goto L_01a7;
#line 1570 "regression-compile-tmp/allimpc1-77.imp"
goto U_1052;
#line 1570 "regression-compile-tmp/allimpc1-77.imp"
L_01a7:;
                                                                //   1571           FAULT(52); ->L321
#line 1571 "regression-compile-tmp/allimpc1-77.imp"
FAULT(52);
#line 1571 "regression-compile-tmp/allimpc1-77.imp"
goto U_1051;
                                                                //   1572  L322:     ->L402 %UNLESS A(2)=1;         ! ELSE FOLLOWS
#line 1572 "regression-compile-tmp/allimpc1-77.imp"
U_1052:;
#line 1572 "regression-compile-tmp/allimpc1-77.imp"
if (((A[4]) == (1))) goto L_01a8;
#line 1572 "regression-compile-tmp/allimpc1-77.imp"
goto U_102e;
#line 1572 "regression-compile-tmp/allimpc1-77.imp"
L_01a8:;
                                                                //   1573            FAULT(47) %UNLESS J=1
#line 1573 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == (1))) goto L_01a9;
#line 1573 "regression-compile-tmp/allimpc1-77.imp"
FAULT(47);
#line 1573 "regression-compile-tmp/allimpc1-77.imp"
L_01a9:;
                                                                //   1574           P=P+2; KK=K
#line 1574 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1574 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
                                                                //   1575           MONE=0;R13=0;SET LINE         ;!CLEAR AFTER FINISH
#line 1575 "regression-compile-tmp/allimpc1-77.imp"
MONE = 0;
#line 1575 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1575 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
                                                                //   1576           %IF A(P)=9 %THEN JJ=SFLABEL-1 %ELSE JJ=PLABEL-1
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_01aa;
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
JJ = (((int)(SFLABEL)) - (1));
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
goto L_01ab;
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
L_01aa:;
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
JJ = (((int)(PLABEL)) - (1));
#line 1576 "regression-compile-tmp/allimpc1-77.imp"
L_01ab:;
                                                                //   1577           PJ(15,JJ); PLAB(KK); CUI(2); PLAB(-1); ->L1
#line 1577 "regression-compile-tmp/allimpc1-77.imp"
PJ(15, JJ);
#line 1577 "regression-compile-tmp/allimpc1-77.imp"
PLAB(KK);
#line 1577 "regression-compile-tmp/allimpc1-77.imp"
CUI(2);
#line 1577 "regression-compile-tmp/allimpc1-77.imp"
PLAB((-1));
#line 1577 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1578  SW(33):                                !RECORD FORMAT
#line 1578 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_33:;
                                                                //   1579           FAULT(56) %UNLESS LEVEL>=2
#line 1579 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) >= (2))) goto L_01ac;
#line 1579 "regression-compile-tmp/allimpc1-77.imp"
FAULT(56);
#line 1579 "regression-compile-tmp/allimpc1-77.imp"
L_01ac:;
                                                                //   1580           SET LINE; CRFORMAT; ->L1
#line 1580 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1580 "regression-compile-tmp/allimpc1-77.imp"
CRFORMAT();
#line 1580 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1581  SW(34):                                !RECORDS
#line 1581 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_34:;
                                                                //   1582           %BEGIN
#line 1582 "regression-compile-tmp/allimpc1-77.imp"
void _BLOCK_4_LEVEL_2_(void) {
                                                                //   1583           !%SHORTROUTINE
                                                                //   1584           %ROUTINESPEC TEST AND SET
#line 1584 "regression-compile-tmp/allimpc1-77.imp"
auto void TESTANDSET( void );
                                                                //   1585           SET LINE; P=P+1; MARKER1=P+A(P)
#line 1585 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1585 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1585 "regression-compile-tmp/allimpc1-77.imp"
MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))])));
                                                                //   1586           FAULT(57) %UNLESS LEVEL>=2
#line 1586 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) >= (2))) goto L_01ad;
#line 1586 "regression-compile-tmp/allimpc1-77.imp"
FAULT(57);
#line 1586 "regression-compile-tmp/allimpc1-77.imp"
L_01ad:;
                                                                //   1587           FAULT(40) %IF NMDECS(LEVEL)#0
#line 1587 "regression-compile-tmp/allimpc1-77.imp"
if (((NMDECS[LEVEL]) == (0))) goto L_01ae;
#line 1587 "regression-compile-tmp/allimpc1-77.imp"
FAULT(40);
#line 1587 "regression-compile-tmp/allimpc1-77.imp"
L_01ae:;
                                                                //   1588           CHECK RF;->L1 %IF K=-1
#line 1588 "regression-compile-tmp/allimpc1-77.imp"
CHECKRF();
#line 1588 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != ((-1)))) goto L_01af;
#line 1588 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
#line 1588 "regression-compile-tmp/allimpc1-77.imp"
L_01af:;
                                                                //   1589           TYPE=3;PREC=0;ROUT=0
#line 1589 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 3;
#line 1589 "regression-compile-tmp/allimpc1-77.imp"
PREC = 0;
#line 1589 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
                                                                //   1590           ->SCALAR %IF A(P+1)=1
#line 1590 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01b0;
#line 1590 "regression-compile-tmp/allimpc1-77.imp"
goto U_1055;
#line 1590 "regression-compile-tmp/allimpc1-77.imp"
L_01b0:;
                                                                //   1591           FAULT(41) %UNLESS A(P+2)=2;   ! RECORD NAME ARRAYS FAULTED
#line 1591 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (2))) goto L_01b1;
#line 1591 "regression-compile-tmp/allimpc1-77.imp"
FAULT(41);
#line 1591 "regression-compile-tmp/allimpc1-77.imp"
L_01b1:;
                                                                //   1592           NAM=0; ARR=1; PACK(PTYPE)
#line 1592 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 1592 "regression-compile-tmp/allimpc1-77.imp"
ARR = 1;
#line 1592 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1593           P=P+3
#line 1593 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   1594  L3401:    QQ=P+1
#line 1594 "regression-compile-tmp/allimpc1-77.imp"
U_1056:;
#line 1594 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(P)) + (1));
                                                                //   1595           PSS(X'D2',4,WSPR,0,4,0); ! MVC FOR LENGTH
#line 1595 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, WSPR, 0, 4, 0);
                                                                //   1596           CADCLN(2)
#line 1596 "regression-compile-tmp/allimpc1-77.imp"
CADCLN(2);
                                                                //   1597           %CYCLE Q=1,1,A(QQ)
#line 1597 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; Q = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = 1, 1, A[((QQ) + ((int)(2)))]");
Q -= _increment; _control -= _increment;
L_01b2:;
if (Q == _final) goto L_01b3;
Q += _increment; _control += _increment;
if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */
}
                                                                //   1598           K=A(Q+QQ)
#line 1598 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(Q)) + (QQ)))) + (2))];
                                                                //   1599           TEST AND SET
#line 1599 "regression-compile-tmp/allimpc1-77.imp"
TESTANDSET();
                                                                //   1600           PPJ(13)
#line 1600 "regression-compile-tmp/allimpc1-77.imp"
PPJ(13);
                                                                //   1601           PRX(X'90',0,3,RBASE,N)
#line 1601 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 3, RBASE, N);
                                                                //   1602           N=N+16
#line 1602 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (16));
                                                                //   1603           %REPEAT
#line 1603 "regression-compile-tmp/allimpc1-77.imp"
goto L_01b2;
#line 1603 "regression-compile-tmp/allimpc1-77.imp"
L_01b3:;
                                                                //   1604           ->L1 %IF A(P)=2
#line 1604 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_01b5;
#line 1604 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
#line 1604 "regression-compile-tmp/allimpc1-77.imp"
L_01b5:;
                                                                //   1605           P=P+1;CHECK RF;->L3401
#line 1605 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1605 "regression-compile-tmp/allimpc1-77.imp"
CHECKRF();
#line 1605 "regression-compile-tmp/allimpc1-77.imp"
goto U_1056;
                                                                //   1606  SCALAR:  CQN(P+2);P=P+3;J=0
#line 1606 "regression-compile-tmp/allimpc1-77.imp"
U_1055:;
#line 1606 "regression-compile-tmp/allimpc1-77.imp"
CQN((((int)(P)) + (2)));
#line 1606 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 1606 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
                                                                //   1607           PACK(PTYPE)
#line 1607 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1608           %CYCLE Q=1,1,A(P)
#line 1608 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; Q = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = 1, 1, A[((P) + ((int)(2)))]");
Q -= _increment; _control -= _increment;
L_01b6:;
if (Q == _final) goto L_01b7;
Q += _increment; _control += _increment;
if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */
}
                                                                //   1609           K=A(P+Q)
#line 1609 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (Q)))) + (2))];
                                                                //   1610           TEST AND SET
#line 1610 "regression-compile-tmp/allimpc1-77.imp"
TESTANDSET();
                                                                //   1611           %IF NAM=1 %THEN PSS(X'D2',4,RBASE,N,GLA,128) %ELSE %C
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (1))) goto L_01b9;
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, RBASE, N, GLA, 128);
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
goto L_01ba;
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
L_01b9:;
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(18, 2, ((((RBASE) << (12))) | (N)));
#line 1611 "regression-compile-tmp/allimpc1-77.imp"
L_01ba:;
                                                                //   1612                 PACLOD(18,2,RBASE<<12!N)
                                                                //   1613  %COMMENT = ST WSP,? - AH WSP,LENGTH - LA WSP,7(WSP) - N WSP,=F'-8'
                                                                //   1614           N=N+4; %REPEAT; ->L1
#line 1614 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
#line 1614 "regression-compile-tmp/allimpc1-77.imp"
goto L_01b6;
#line 1614 "regression-compile-tmp/allimpc1-77.imp"
L_01b7:;
#line 1614 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
                                                                //   1615           %ROUTINE TEST AND SET
#line 1615 "regression-compile-tmp/allimpc1-77.imp"
void TESTANDSET( void )
#line 1615 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1616           TEST NST
#line 1616 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   1617           JJJ=NEWCELL
#line 1617 "regression-compile-tmp/allimpc1-77.imp"
JJJ = NEWCELL();
                                                                //   1618           STORE TAG(K,JJJ)
#line 1618 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, JJJ);
                                                                //   1619           REPLACE BOTH(JJJ,TAGS(A(MARKER1)),N)
#line 1619 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(JJJ, TAGS[A[((MARKER1) + ((int)(2)))]], N);
                                                                //   1620           %END
#line 1620 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TESTANDSET at level 4
                                                                //   1621  L1:       %END;->L1
#line 1621 "regression-compile-tmp/allimpc1-77.imp"
U_1054:;
#line 1621 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block _BLOCK_4_LEVEL_2_ at level 3
_BLOCK_4_LEVEL_2_();
#line 1621 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1622  SW(35):                                ! (RT)'%NAME'(NAMELIST)
#line 1622 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_35:;
                                                                //   1623           P=P+1; MARKER1=P+A(P)
#line 1623 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1623 "regression-compile-tmp/allimpc1-77.imp"
MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))])));
                                                                //   1624           ->L3801 %IF A(P+1)=1
#line 1624 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01bb;
#line 1624 "regression-compile-tmp/allimpc1-77.imp"
goto U_1053;
#line 1624 "regression-compile-tmp/allimpc1-77.imp"
L_01bb:;
                                                                //   1625           ROUT=1; P=P+2;CLT
#line 1625 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 1;
#line 1625 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1625 "regression-compile-tmp/allimpc1-77.imp"
CLT();
                                                                //   1626           ARR=2-A(P+1);NAM=(A(P+2)-1)<<1
#line 1626 "regression-compile-tmp/allimpc1-77.imp"
ARR = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])));
#line 1626 "regression-compile-tmp/allimpc1-77.imp"
NAM = (((((int)(A[(((unsigned char)((((int)(P)) + (2)))) + (2))])) - (1))) << (1));
                                                                //   1627           PACK(PTYPE); ->L3802
#line 1627 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
#line 1627 "regression-compile-tmp/allimpc1-77.imp"
goto U_1054;
                                                                //   1628  L3801:    PTYPE=11000
#line 1628 "regression-compile-tmp/allimpc1-77.imp"
U_1053:;
#line 1628 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 11000;
                                                                //   1629  L3802:    J=0;%CYCLE KK=1,1,A(MARKER1)
#line 1629 "regression-compile-tmp/allimpc1-77.imp"
U_1054:;
#line 1629 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 1629 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((MARKER1) + ((int)(2)))]; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, A[((MARKER1) + ((int)(2)))]");
KK -= _increment; _control -= _increment;
L_01bc:;
if (KK == _final) goto L_01bd;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   1630           K=A(MARKER1+KK)
#line 1630 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(MARKER1)) + (KK)))) + (2))];
                                                                //   1631           TESTNST; OPHEAD=0
#line 1631 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
#line 1631 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = 0;
                                                                //   1632           PUSH(OPHEAD,N,1000);          ! SIDE CHAIN AS RT PARAM
#line 1632 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&OPHEAD, N, 1000);
                                                                //   1633           STORE TAG(K,OPHEAD);          !LINK IN SIDE CHAIN
#line 1633 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, OPHEAD);
                                                                //   1634           N=N+40; %REPEAT; ->L1
#line 1634 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (40));
#line 1634 "regression-compile-tmp/allimpc1-77.imp"
goto L_01bc;
#line 1634 "regression-compile-tmp/allimpc1-77.imp"
L_01bd:;
#line 1634 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1635  SW(36):                                ! RECORD SPEC
#line 1635 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_36:;
                                                                //   1636           P=P+1; MARKER1=P+A(P)
#line 1636 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1636 "regression-compile-tmp/allimpc1-77.imp"
MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))])));
                                                                //   1637           CHECK RF; ->L1 %IF K=-1
#line 1637 "regression-compile-tmp/allimpc1-77.imp"
CHECKRF();
#line 1637 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != ((-1)))) goto L_01bf;
#line 1637 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
#line 1637 "regression-compile-tmp/allimpc1-77.imp"
L_01bf:;
                                                                //   1638           P=P+1; COPYTAG(A(P))
#line 1638 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1638 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((P) + ((int)(2)))]);
                                                                //   1639           ->L3910 %IF A(P+1)=1
#line 1639 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01c0;
#line 1639 "regression-compile-tmp/allimpc1-77.imp"
goto U_1055;
#line 1639 "regression-compile-tmp/allimpc1-77.imp"
L_01c0:;
                                                                //   1640           ->L3902 %IF TYPE=3 %AND NAM=1
#line 1640 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_01c1;
#line 1640 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (1))) goto L_01c1;
#line 1640 "regression-compile-tmp/allimpc1-77.imp"
goto U_1056;
#line 1640 "regression-compile-tmp/allimpc1-77.imp"
L_01c1:;
                                                                //   1641  L3901:    FAULT(63); ->L1
#line 1641 "regression-compile-tmp/allimpc1-77.imp"
U_104e:;
#line 1641 "regression-compile-tmp/allimpc1-77.imp"
FAULT(63);
#line 1641 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1642  L3902:    FROM1(K,Q)
#line 1642 "regression-compile-tmp/allimpc1-77.imp"
U_1056:;
#line 1642 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &Q);
                                                                //   1643           FAULT(63) %UNLESS Q=0
#line 1643 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) == (0))) goto L_01c2;
#line 1643 "regression-compile-tmp/allimpc1-77.imp"
FAULT(63);
#line 1643 "regression-compile-tmp/allimpc1-77.imp"
L_01c2:;
                                                                //   1644           REPLACE1(K,TAGS(A(MARKER1))); ->L1
#line 1644 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(K, TAGS[A[((MARKER1) + ((int)(2)))]]);
#line 1644 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1645  L3910:
#line 1645 "regression-compile-tmp/allimpc1-77.imp"
U_1055:;
                                                                //   1646           P=P+2; K=DISPLACEMENT(TAGS(A(P-2)))
#line 1646 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1646 "regression-compile-tmp/allimpc1-77.imp"
K = DISPLACEMENT(TAGS[A[(((unsigned char)((((int)(P)) - (2)))) + (2))]]);
                                                                //   1647           ->L3901 %IF K=-1; ->L3902
#line 1647 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != ((-1)))) goto L_01c3;
#line 1647 "regression-compile-tmp/allimpc1-77.imp"
goto U_104e;
#line 1647 "regression-compile-tmp/allimpc1-77.imp"
L_01c3:;
#line 1647 "regression-compile-tmp/allimpc1-77.imp"
goto U_1056;
                                                                //   1648  SW(37):  ->L1;                          ! (S)
#line 1648 "regression-compile-tmp/allimpc1-77.imp"
sw2_SW_37:;
#line 1648 "regression-compile-tmp/allimpc1-77.imp"
goto U_1027;
                                                                //   1649  !
                                                                //   1650           %ROUTINE CEND (%INTEGER KKK)
#line 1650 "regression-compile-tmp/allimpc1-77.imp"
void CEND( int KKK )
#line 1650 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1651           !%SHORT %ROUTINE
                                                                //   1652           %INTEGER DPTR,LNUM,W1,W2
#line 1652 "regression-compile-tmp/allimpc1-77.imp"
int DPTR;
#line 1652 "regression-compile-tmp/allimpc1-77.imp"
int LNUM;
#line 1652 "regression-compile-tmp/allimpc1-77.imp"
int W1;
#line 1652 "regression-compile-tmp/allimpc1-77.imp"
int W2;
                                                                //   1653           %INTEGERARRAY DD(0:300)
#line 1653 "regression-compile-tmp/allimpc1-77.imp"
int DD[301];
                                                                //   1654           SET LINE; R13=0; MONE=1
#line 1654 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
#line 1654 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1654 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
                                                                //   1655  L1:       FROM LIST (SBR(LEVEL),J,K)
#line 1655 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 1655 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(SBR[LEVEL], &J, &K);
                                                                //   1656           ->L2 %IF J=-1; FAULT(53);     ! FINISH MISSING
#line 1656 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_01c4;
#line 1656 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1656 "regression-compile-tmp/allimpc1-77.imp"
L_01c4:;
#line 1656 "regression-compile-tmp/allimpc1-77.imp"
FAULT(53);
                                                                //   1657           A(2)=32; A(3)=2; CSS(2);      ! SO COMPILE IT IN
#line 1657 "regression-compile-tmp/allimpc1-77.imp"
A[4] = 32;
#line 1657 "regression-compile-tmp/allimpc1-77.imp"
A[5] = 2;
#line 1657 "regression-compile-tmp/allimpc1-77.imp"
CSS(2);
                                                                //   1658           ->L1
#line 1658 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1659  L2:       FILL JUMPS(LEVEL)
#line 1659 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 1659 "regression-compile-tmp/allimpc1-77.imp"
FILLJUMPS(LEVEL);
                                                                //   1660           NMAX=N %IF N>NMAX;            ! WORK SPACE POINTER
#line 1660 "regression-compile-tmp/allimpc1-77.imp"
if (((N) <= (NMAX))) goto L_01c5;
#line 1660 "regression-compile-tmp/allimpc1-77.imp"
NMAX = N;
#line 1660 "regression-compile-tmp/allimpc1-77.imp"
L_01c5:;
                                                                //   1661           POP (JUMP(LEVEL),J,K)
#line 1661 "regression-compile-tmp/allimpc1-77.imp"
POP(&JUMP[LEVEL], &J, &K);
                                                                //   1662           ->L3 %IF J=-1
#line 1662 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_01c6;
#line 1662 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 1662 "regression-compile-tmp/allimpc1-77.imp"
L_01c6:;
                                                                //   1663           ->L2 %IF K>=SFLABEL; FAULT(11)
#line 1663 "regression-compile-tmp/allimpc1-77.imp"
if (((K) < (SFLABEL))) goto L_01c7;
#line 1663 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1663 "regression-compile-tmp/allimpc1-77.imp"
L_01c7:;
#line 1663 "regression-compile-tmp/allimpc1-77.imp"
FAULT(11);
                                                                //   1664           %IF K<16384 %THEN WRITE(K,4) %ELSE PRINTNAME(K-16384); ->L2;
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
if (((K) >= (16384))) goto L_01c8;
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(K, 4);
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
goto L_01c9;
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
L_01c8:;
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME((((int)(K)) - (16384)));
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
L_01c9:;
#line 1664 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   1665  L3:       CLEAR LIST(LABEL(LEVEL))
#line 1665 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 1665 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&LABEL[LEVEL]);
                                                                //   1666           CLEAR LIST (WSP (LEVEL))
#line 1666 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&WSP[LEVEL]);
                                                                //   1667           CLEAR LIST(LWSP(LEVEL))
#line 1667 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&LWSP[LEVEL]);
                                                                //   1668           CLEAR LIST(MDARR(LEVEL))
#line 1668 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&MDARR[LEVEL]);
                                                                //   1669           CLEAR LIST(STR WSP(LEVEL))
#line 1669 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&STRWSP[LEVEL]);
                                                                //   1670           %COMMENT CLEAR DECLARATIONS -PLANT DIAGNOSTICS IF REQUIRED
                                                                //   1671           ->L10 %IF DIAGS1=0
#line 1671 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (0))) goto L_01ca;
#line 1671 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1671 "regression-compile-tmp/allimpc1-77.imp"
L_01ca:;
                                                                //   1672           LNUM=LETT(M(LEVEL))
#line 1672 "regression-compile-tmp/allimpc1-77.imp"
LNUM = LETT[M[LEVEL]];
                                                                //   1673           DD(0)=X'C2C2C2C2'
#line 1673 "regression-compile-tmp/allimpc1-77.imp"
DD[0] = (-1027423550);
                                                                //   1674           DD(1)=L(LEVEL)<<16!RBASE<<8!LNUM
#line 1674 "regression-compile-tmp/allimpc1-77.imp"
DD[1] = ((((((L[LEVEL]) << (16))) | (((RBASE) << (8))))) | (LNUM));
                                                                //   1675           DPTR=3; ->L9 %UNLESS LNUM=0
#line 1675 "regression-compile-tmp/allimpc1-77.imp"
DPTR = 3;
#line 1675 "regression-compile-tmp/allimpc1-77.imp"
if (((LNUM) == (0))) goto L_01cb;
#line 1675 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 1675 "regression-compile-tmp/allimpc1-77.imp"
L_01cb:;
                                                                //   1676           DD(2)=L(LEVEL-1); ->L10
#line 1676 "regression-compile-tmp/allimpc1-77.imp"
DD[2] = L[(((int)(LEVEL)) - (1))];
#line 1676 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   1677  L9:       W1=M(LEVEL)
#line 1677 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 1677 "regression-compile-tmp/allimpc1-77.imp"
W1 = M[LEVEL];
                                                                //   1678           %CYCLE W2=1,1,LNUM
#line 1678 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = LNUM; W2 = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W2 = 1, 1, LNUM");
W2 -= _increment; _control -= _increment;
L_01cc:;
if (W2 == _final) goto L_01cd;
W2 += _increment; _control += _increment;
if (W2 != _control) _imp_signal(4,2,0,"Corrupt control variable W2"); /* FOR loop control variable corrupted */
}
                                                                //   1679           BYTE INTEGER(ADDR(DD(0))+7+W2)=LETT(W1+W2);! MOVE IN RT NAME
#line 1679 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&DD[0]))) + (7)))) + (W2))) = LETT[(((int)(W1)) + (W2))];
                                                                //   1680           %REPEAT
#line 1680 "regression-compile-tmp/allimpc1-77.imp"
goto L_01cc;
#line 1680 "regression-compile-tmp/allimpc1-77.imp"
L_01cd:;
                                                                //   1681           DPTR=DPTR+(LNUM-1)>>2
#line 1681 "regression-compile-tmp/allimpc1-77.imp"
DPTR = ((DPTR) + ((int)((((((((int)(LNUM)) - (1)))) >> (2))))));
                                                                //   1682  L10:      POP(NAME(LEVEL),J,JJ)
#line 1682 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 1682 "regression-compile-tmp/allimpc1-77.imp"
POP(&NAME[LEVEL], &J, &JJ);
                                                                //   1683           ->L20 %IF J=-1
#line 1683 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_01cf;
#line 1683 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 1683 "regression-compile-tmp/allimpc1-77.imp"
L_01cf:;
                                                                //   1684           COPY TAG(JJ);POP(TAGS(JJ),KK,KK)
#line 1684 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(JJ);
#line 1684 "regression-compile-tmp/allimpc1-77.imp"
POP(&TAGS[JJ], &KK, &KK);
                                                                //   1685           %IF PTYPE=8 %THEN %START
#line 1685 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (8))) goto L_01d0;
                                                                //   1686           REGISTER(K)=0; UVARREG(K)=0; %FINISH;!RELEASE REGISTERS
#line 1686 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[K] = 0;
#line 1686 "regression-compile-tmp/allimpc1-77.imp"
UVARREG[(((int)(K)) - (5))] = 0;
#line 1686 "regression-compile-tmp/allimpc1-77.imp"
L_01d0:;
                                                                //   1687           %IF INREG#0 %THEN REGISTER(INREG) =0
#line 1687 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_01d1;
#line 1687 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[INREG] = 0;
#line 1687 "regression-compile-tmp/allimpc1-77.imp"
L_01d1:;
                                                                //   1688           ->L12 %UNLESS J=15
#line 1688 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == (15))) goto L_01d2;
#line 1688 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 1688 "regression-compile-tmp/allimpc1-77.imp"
L_01d2:;
                                                                //   1689           FAULT(28); PRINT NAME (JJ)
#line 1689 "regression-compile-tmp/allimpc1-77.imp"
FAULT(28);
#line 1689 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(JJ);
                                                                //   1690  L12:      OPHEAD=K; ->L13 %IF TYPE=4
#line 1690 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 1690 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = K;
#line 1690 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (4))) goto L_01d3;
#line 1690 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 1690 "regression-compile-tmp/allimpc1-77.imp"
L_01d3:;
                                                                //   1691           ->L14 %UNLESS ROUT=1 %OR TYPE=3 %OR TYPE=6 %OR ARR=2
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (1))) goto L_01d4;
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (3))) goto L_01d4;
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (6))) goto L_01d4;
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (2))) goto L_01d4;
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 1691 "regression-compile-tmp/allimpc1-77.imp"
L_01d4:;
                                                                //   1692           CLEAR LIST(OPHEAD); ->L10
#line 1692 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&OPHEAD);
#line 1692 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   1693  L13:      UNDCRF (OPHEAD)
#line 1693 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 1693 "regression-compile-tmp/allimpc1-77.imp"
UNDCRF(&OPHEAD);
                                                                //   1694           ->L10
#line 1694 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   1695  L14:      ->L10 %UNLESS TYPE=1 %OR TYPE=2 %OR TYPE=5
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (1))) goto L_01d5;
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (2))) goto L_01d5;
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_01d5;
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1695 "regression-compile-tmp/allimpc1-77.imp"
L_01d5:;
                                                                //   1696           ->L10 %UNLESS ARR=0 %AND DIAGS1=1 %AND ROUT=0
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_01ce;
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (1))) goto L_01ce;
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (0))) goto L_01d6;
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
L_01ce:;
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1696 "regression-compile-tmp/allimpc1-77.imp"
L_01d6:;
                                                                //   1697           ->L10 %IF DPTR>297
#line 1697 "regression-compile-tmp/allimpc1-77.imp"
if (((DPTR) <= (297))) goto L_01d7;
#line 1697 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1697 "regression-compile-tmp/allimpc1-77.imp"
L_01d7:;
                                                                //   1698           Q=WORD(JJ);LNUM=LETT(Q)
#line 1698 "regression-compile-tmp/allimpc1-77.imp"
Q = WORD[JJ];
#line 1698 "regression-compile-tmp/allimpc1-77.imp"
LNUM = LETT[Q];
                                                                //   1699           LNUM=8 %IF LNUM>8;            ! TRUNCATE NAMES TO 8 CHARS
#line 1699 "regression-compile-tmp/allimpc1-77.imp"
if (((LNUM) <= (8))) goto L_01d8;
#line 1699 "regression-compile-tmp/allimpc1-77.imp"
LNUM = 8;
#line 1699 "regression-compile-tmp/allimpc1-77.imp"
L_01d8:;
                                                                //   1700           PTYPE= NAM<<6!PREC<<3!TYPE
#line 1700 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = ((((((NAM) << (6))) | (((PREC) << (3))))) | (TYPE));
                                                                //   1701           DD(DPTR)=PTYPE<<24!I<<20!K<<8!LNUM
#line 1701 "regression-compile-tmp/allimpc1-77.imp"
DD[DPTR] = ((((((((PTYPE) << (24))) | (((I) << (20))))) | (((K) << (8))))) | (LNUM));
                                                                //   1702           %CYCLE W1=1,1,LNUM
#line 1702 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = LNUM; W1 = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W1 = 1, 1, LNUM");
W1 -= _increment; _control -= _increment;
L_01d9:;
if (W1 == _final) goto L_01da;
W1 += _increment; _control += _increment;
if (W1 != _control) _imp_signal(4,2,0,"Corrupt control variable W1"); /* FOR loop control variable corrupted */
}
                                                                //   1703           BYTE INTEGER(ADDR(DD(DPTR))+W1+3)=LETT(W1+Q)
#line 1703 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&DD[DPTR]))) + (W1)))) + (3))) = LETT[(((int)(W1)) + (Q))];
                                                                //   1704           %REPEAT
#line 1704 "regression-compile-tmp/allimpc1-77.imp"
goto L_01d9;
#line 1704 "regression-compile-tmp/allimpc1-77.imp"
L_01da:;
                                                                //   1705           DPTR=DPTR+1+(LNUM+3)>>2;->L10
#line 1705 "regression-compile-tmp/allimpc1-77.imp"
DPTR = ((((((int)(DPTR)) + (1)))) + ((((((((int)(LNUM)) + (3)))) >> (2)))));
#line 1705 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   1706  L20:      ->L21 %IF DIAGS 1=0
#line 1706 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 1706 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (0))) goto L_01dc;
#line 1706 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 1706 "regression-compile-tmp/allimpc1-77.imp"
L_01dc:;
                                                                //   1707           DD(DPTR)=-1
#line 1707 "regression-compile-tmp/allimpc1-77.imp"
DD[DPTR] = (-1);
                                                                //   1708           LPUT(4,DPTR<<2+4,SSTL,ADDR(DD(0)))
#line 1708 "regression-compile-tmp/allimpc1-77.imp"
LPUT(4, (((int)(((DPTR) << (2)))) + (4)), SSTL, _imp_ADDR(&DD[0]));
                                                                //   1709           SSTL=SSTL+DPTR<<2+4
#line 1709 "regression-compile-tmp/allimpc1-77.imp"
SSTL = (((int)(((SSTL) + ((int)(((DPTR) << (2))))))) + (4));
                                                                //   1710           %COMMENT CHECK CYCLE-REPEATS
                                                                //   1711  L21:      ->L22 %IF CYCLE(LEVEL)=0
#line 1711 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 1711 "regression-compile-tmp/allimpc1-77.imp"
if (((CYCLE[LEVEL]) != (0))) goto L_01dd;
#line 1711 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1711 "regression-compile-tmp/allimpc1-77.imp"
L_01dd:;
                                                                //   1712           FROM2(CYCLE(LEVEL),J)
#line 1712 "regression-compile-tmp/allimpc1-77.imp"
FROM2(CYCLE[LEVEL], &J);
                                                                //   1713           ->L22 %IF J=0
#line 1713 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (0))) goto L_01de;
#line 1713 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1713 "regression-compile-tmp/allimpc1-77.imp"
L_01de:;
                                                                //   1714           POP(CYCLE(LEVEL),I,I)
#line 1714 "regression-compile-tmp/allimpc1-77.imp"
POP(&CYCLE[LEVEL], &I, &I);
                                                                //   1715           FAULT(13); ->L21
#line 1715 "regression-compile-tmp/allimpc1-77.imp"
FAULT(13);
#line 1715 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
                                                                //   1716  L22:      %COMMENT GARBAGE COLECT DICTIONARY
#line 1716 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
                                                                //   1717           NEXT=RNEXT(LEVEL)
#line 1717 "regression-compile-tmp/allimpc1-77.imp"
NEXT = RNEXT[LEVEL];
                                                                //   1718           %CYCLE W1=0,1,NNAMES
#line 1718 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = NNAMES; W1 = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W1 = 0, 1, NNAMES");
W1 -= _increment; _control -= _increment;
L_01df:;
if (W1 == _final) goto L_01e0;
W1 += _increment; _control += _increment;
if (W1 != _control) _imp_signal(4,2,0,"Corrupt control variable W1"); /* FOR loop control variable corrupted */
}
                                                                //   1719           WORD(W1)=0 %IF WORD(W1)>NEXT
#line 1719 "regression-compile-tmp/allimpc1-77.imp"
if (((WORD[W1]) <= (NEXT))) goto L_01e2;
#line 1719 "regression-compile-tmp/allimpc1-77.imp"
WORD[W1] = 0;
#line 1719 "regression-compile-tmp/allimpc1-77.imp"
L_01e2:;
                                                                //   1720           %REPEAT
#line 1720 "regression-compile-tmp/allimpc1-77.imp"
goto L_01df;
#line 1720 "regression-compile-tmp/allimpc1-77.imp"
L_01e0:;
                                                                //   1721           %COMMENT PLANT ANY NECESSARY CODE
                                                                //   1722           NMAX=(NMAX+7)&(-8)
#line 1722 "regression-compile-tmp/allimpc1-77.imp"
NMAX = (((((int)(NMAX)) + (7))) & ((-8)));
                                                                //   1723           FAULT(99) %IF NMAX>4092
#line 1723 "regression-compile-tmp/allimpc1-77.imp"
if (((NMAX) <= (4092))) goto L_01e3;
#line 1723 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 1723 "regression-compile-tmp/allimpc1-77.imp"
L_01e3:;
                                                                //   1724           PLUG(SET(RLEVEL),NMAX) %IF KKK>=10000 %OR KKK=1
#line 1724 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) >= (10000))) goto L_01e1;
#line 1724 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (1))) goto L_01e4;
#line 1724 "regression-compile-tmp/allimpc1-77.imp"
L_01e1:;
#line 1724 "regression-compile-tmp/allimpc1-77.imp"
PLUG(SET[RLEVEL], NMAX);
#line 1724 "regression-compile-tmp/allimpc1-77.imp"
L_01e4:;
                                                                //   1725           ->L23 %IF KKK=10000
#line 1725 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (10000))) goto L_01e5;
#line 1725 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 1725 "regression-compile-tmp/allimpc1-77.imp"
L_01e5:;
                                                                //   1726           ->L24 %IF KKK=0
#line 1726 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (0))) goto L_01e6;
#line 1726 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 1726 "regression-compile-tmp/allimpc1-77.imp"
L_01e6:;
                                                                //   1727           %IF KKK>10000 %AND COMPILER =0 %THEN %START
#line 1727 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) <= (10000))) goto L_01e7;
#line 1727 "regression-compile-tmp/allimpc1-77.imp"
if (((COMPILER) != (0))) goto L_01e7;
                                                                //   1728           PCONST(X'4100000B')           ;!LA 0,11  --- FAULT 11
#line 1728 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1090519051);
                                                                //   1729           PPJ(21);%FINISH               ;! *->RTF1
#line 1729 "regression-compile-tmp/allimpc1-77.imp"
PPJ(21);
#line 1729 "regression-compile-tmp/allimpc1-77.imp"
L_01e7:;
                                                                //   1730           PPJ(6) %IF KKK=1; ->L30;       ! 'STOP' AT END OF PROGRAM
#line 1730 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (1))) goto L_01e8;
#line 1730 "regression-compile-tmp/allimpc1-77.imp"
PPJ(6);
#line 1730 "regression-compile-tmp/allimpc1-77.imp"
L_01e8:;
#line 1730 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   1731  L23:      P=P+1; A(P)=5; CUI(0); ->L30;  ! COMPILE '%RTURN' FOR ROUTINES
#line 1731 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 1731 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1731 "regression-compile-tmp/allimpc1-77.imp"
A[((P) + ((int)(2)))] = 5;
#line 1731 "regression-compile-tmp/allimpc1-77.imp"
CUI(0);
#line 1731 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   1732  L24:      JJ=X'FFF'&RAL(LEVEL-1)
#line 1732 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 1732 "regression-compile-tmp/allimpc1-77.imp"
JJ = ((4095) & (RAL[(((int)(LEVEL)) - (1))]));
                                                                //   1733           PRX(X'98',10,11,RBASE,JJ);    ! RESTORE R11&12
#line 1733 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 10, 11, RBASE, JJ);
                                                                //   1734           PSS(X'D2',4,GLA,20,RBASE,JJ+8) %IF DIAGS1=1
#line 1734 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (1))) goto L_01e9;
#line 1734 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, GLA, 20, RBASE, (((int)(JJ)) + (8)));
#line 1734 "regression-compile-tmp/allimpc1-77.imp"
L_01e9:;
                                                                //   1735  L30:      ->L99 %IF KKK=2; NEWLINE
#line 1735 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 1735 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (2))) goto L_01ea;
#line 1735 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 1735 "regression-compile-tmp/allimpc1-77.imp"
L_01ea:;
#line 1735 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
                                                                //   1736           %IF PRINTMAP=1 %AND LIST=1 %AND KKK#0 %THEN %START
#line 1736 "regression-compile-tmp/allimpc1-77.imp"
if (((PRINTMAP) != (1))) goto L_01eb;
#line 1736 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) != (1))) goto L_01eb;
#line 1736 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) == (0))) goto L_01eb;
                                                                //   1737           print string(" LOCALS EXTEND TO ")
#line 1737 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" LOCALS EXTEND TO "));
                                                                //   1738           WRITE(NMAX,2); NEWLINE; %FINISH
#line 1738 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(NMAX, 2);
#line 1738 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 1738 "regression-compile-tmp/allimpc1-77.imp"
L_01eb:;
                                                                //   1739           ->L31 %IF LIST#0; WRITE(LINE,5)
#line 1739 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) == (0))) goto L_01ec;
#line 1739 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 1739 "regression-compile-tmp/allimpc1-77.imp"
L_01ec:;
#line 1739 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(LINE, 5);
                                                                //   1740           SPACES(3*LEVEL-3); print string("END")
#line 1740 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES((((int)((((int)(3)) * (LEVEL)))) - (3)));
#line 1740 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("END"));
                                                                //   1741  L31:      ->L33 %IF LEVEL>2 %OR PERM=1 %OR CPRMODE=2
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) > (2))) goto L_01ed;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
if (((PERM) == (1))) goto L_01ed;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_01ee;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
L_01ed:;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 1741 "regression-compile-tmp/allimpc1-77.imp"
L_01ee:;
                                                                //   1742           ->L32 %IF KKK=1
#line 1742 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (1))) goto L_01ef;
#line 1742 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 1742 "regression-compile-tmp/allimpc1-77.imp"
L_01ef:;
                                                                //   1743           FAULT(14); A(1)=13; ->L99;     ! TOO MANY ENDS
#line 1743 "regression-compile-tmp/allimpc1-77.imp"
FAULT(14);
#line 1743 "regression-compile-tmp/allimpc1-77.imp"
A[3] = 13;
#line 1743 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
                                                                //   1744  L32:      KKK=2
#line 1744 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 1744 "regression-compile-tmp/allimpc1-77.imp"
KKK = 2;
                                                                //   1745  L33:      LEVEL=LEVEL-1
#line 1745 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 1745 "regression-compile-tmp/allimpc1-77.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //   1746           RLEVEL=RLEVEL-1 %IF KKK>=10000
#line 1746 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) < (10000))) goto L_01f0;
#line 1746 "regression-compile-tmp/allimpc1-77.imp"
RLEVEL = (((int)(RLEVEL)) - (1));
#line 1746 "regression-compile-tmp/allimpc1-77.imp"
L_01f0:;
                                                                //   1747           RBASE=10-RLEVEL; REGISTER (9-RLEVEL)=0
#line 1747 "regression-compile-tmp/allimpc1-77.imp"
RBASE = (((int)(10)) - (RLEVEL));
#line 1747 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[(((int)(9)) - (RLEVEL))] = 0;
                                                                //   1748           N=RAL(LEVEL); SBFLAG=N>>15&1
#line 1748 "regression-compile-tmp/allimpc1-77.imp"
N = RAL[LEVEL];
#line 1748 "regression-compile-tmp/allimpc1-77.imp"
SBFLAG = (((int)((((unsigned int)(N)) >> (15)))) & (1));
                                                                //   1749           NMAX=N>>16 %IF KKK>=10000; N=N&4095
#line 1749 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) < (10000))) goto L_01f1;
#line 1749 "regression-compile-tmp/allimpc1-77.imp"
NMAX = (int)((((unsigned int)(N)) >> (16)));
#line 1749 "regression-compile-tmp/allimpc1-77.imp"
L_01f1:;
#line 1749 "regression-compile-tmp/allimpc1-77.imp"
N = ((N) & (4095));
                                                                //   1750           ->L2 %IF KKK=2;                ! ROUND AGAIN FOR 'ENDOFPROGRAM'
#line 1750 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) != (2))) goto L_01f2;
#line 1750 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1750 "regression-compile-tmp/allimpc1-77.imp"
L_01f2:;
                                                                //   1751           ->L99 %IF RLEVEL=1 %AND CPRMODE=2
#line 1751 "regression-compile-tmp/allimpc1-77.imp"
if (((RLEVEL) != (1))) goto L_01f3;
#line 1751 "regression-compile-tmp/allimpc1-77.imp"
if (((CPRMODE) != (2))) goto L_01f3;
#line 1751 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 1751 "regression-compile-tmp/allimpc1-77.imp"
L_01f3:;
                                                                //   1752           ->L99 %IF KKK=0 %OR COMPILER=1
#line 1752 "regression-compile-tmp/allimpc1-77.imp"
if (((KKK) == (0))) goto L_01f4;
#line 1752 "regression-compile-tmp/allimpc1-77.imp"
if (((COMPILER) != (1))) goto L_01f5;
#line 1752 "regression-compile-tmp/allimpc1-77.imp"
L_01f4:;
#line 1752 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 1752 "regression-compile-tmp/allimpc1-77.imp"
L_01f5:;
                                                                //   1753           FROM2(JUMP(LEVEL),J)    ; PLAB(J)
#line 1753 "regression-compile-tmp/allimpc1-77.imp"
FROM2(JUMP[LEVEL], &J);
#line 1753 "regression-compile-tmp/allimpc1-77.imp"
PLAB(J);
                                                                //   1754  L99:      %END
#line 1754 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 1754 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CEND at level 3
                                                                //   1755           %ROUTINE     CRSPEC (%BYTEINTEGER M)
#line 1755 "regression-compile-tmp/allimpc1-77.imp"
void CRSPEC( unsigned char M )
#line 1755 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1756           !%SHORTROUTINE
                                                                //   1757           %INTEGER PP,KK,JJ,JJJ,Q,TYPEP
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 1757 "regression-compile-tmp/allimpc1-77.imp"
int TYPEP;
                                                                //   1758           ->L12 %IF M=3
#line 1758 "regression-compile-tmp/allimpc1-77.imp"
if (((M) != (3))) goto L_01f6;
#line 1758 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1758 "regression-compile-tmp/allimpc1-77.imp"
L_01f6:;
                                                                //   1759           PP=P; ->L2 %UNLESS M=2
#line 1759 "regression-compile-tmp/allimpc1-77.imp"
PP = P;
#line 1759 "regression-compile-tmp/allimpc1-77.imp"
if (((M) == (2))) goto L_01f7;
#line 1759 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 1759 "regression-compile-tmp/allimpc1-77.imp"
L_01f7:;
                                                                //   1760           KK=A(P); P=P+1; COPYTAG(KK)
#line 1760 "regression-compile-tmp/allimpc1-77.imp"
KK = A[((P) + ((int)(2)))];
#line 1760 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1760 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(KK);
                                                                //   1761           ->L1 %IF OLDI=LEVEL %AND 10006#PTYPE>=10000
#line 1761 "regression-compile-tmp/allimpc1-77.imp"
if (((OLDI) != (LEVEL))) goto L_01f8;
#line 1761 "regression-compile-tmp/allimpc1-77.imp"
if ((((10006) == (PTYPE))) || (((PTYPE) < (10000)))) goto L_01f8;
#line 1761 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1761 "regression-compile-tmp/allimpc1-77.imp"
L_01f8:;
                                                                //   1762           FAULT(3); ->L99
#line 1762 "regression-compile-tmp/allimpc1-77.imp"
FAULT(3);
#line 1762 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   1763  L1:       FROM LIST(K,JJ,Q); OPHEAD=K
#line 1763 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 1763 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(K, &JJ, &Q);
#line 1763 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = K;
                                                                //   1764           ->L12 %IF Q=1000; ->L10
#line 1764 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (1000))) goto L_01f9;
#line 1764 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1764 "regression-compile-tmp/allimpc1-77.imp"
L_01f9:;
#line 1764 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   1765  L2:       ->L3 %IF A(PP+1)=2
#line 1765 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 1765 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(PP)) + (1)))) + (2))]) != (2))) goto L_01fa;
#line 1765 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 1765 "regression-compile-tmp/allimpc1-77.imp"
L_01fa:;
                                                                //   1766           TYPEP=10000; P=PP+3; ->L4
#line 1766 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = 10000;
#line 1766 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(PP)) + (3));
#line 1766 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
                                                                //   1767  L3:       ROUT=1;ARR=0;P=PP+2;CLT
#line 1767 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 1767 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 1;
#line 1767 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
#line 1767 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(PP)) + (2));
#line 1767 "regression-compile-tmp/allimpc1-77.imp"
CLT();
                                                                //   1768           NAM=(A(P)-1)*2; PACK(TYPEP); P=P+2
#line 1768 "regression-compile-tmp/allimpc1-77.imp"
NAM = (((int)((((int)(A[((P) + ((int)(2)))])) - (1)))) * (2));
#line 1768 "regression-compile-tmp/allimpc1-77.imp"
PACK(&TYPEP);
#line 1768 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   1769  L4:       KK=A(P); COPYTAG(KK)
#line 1769 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 1769 "regression-compile-tmp/allimpc1-77.imp"
KK = A[((P) + ((int)(2)))];
#line 1769 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(KK);
                                                                //   1770           ->L11 %IF OLDI#LEVEL
#line 1770 "regression-compile-tmp/allimpc1-77.imp"
if (((OLDI) == (LEVEL))) goto L_01fb;
#line 1770 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 1770 "regression-compile-tmp/allimpc1-77.imp"
L_01fb:;
                                                                //   1771           ->L1 %IF PTYPE=TYPEP %OR |PTYPE-TYPEP|=1000
#line 1771 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (TYPEP))) goto L_01fc;
#line 1771 "regression-compile-tmp/allimpc1-77.imp"
if (((_imp_IMOD((((int)(PTYPE)) - (TYPEP)))) != (1000))) goto L_01fd;
#line 1771 "regression-compile-tmp/allimpc1-77.imp"
L_01fc:;
#line 1771 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1771 "regression-compile-tmp/allimpc1-77.imp"
L_01fd:;
                                                                //   1772  L10:      FNAME=KK;FAULT(7) %UNLESS PTYPE=7
#line 1772 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 1772 "regression-compile-tmp/allimpc1-77.imp"
FNAME = KK;
#line 1772 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (7))) goto L_01fe;
#line 1772 "regression-compile-tmp/allimpc1-77.imp"
FAULT(7);
#line 1772 "regression-compile-tmp/allimpc1-77.imp"
L_01fe:;
                                                                //   1773           ->L99 %IF M=2
#line 1773 "regression-compile-tmp/allimpc1-77.imp"
if (((M) != (2))) goto L_01ff;
#line 1773 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 1773 "regression-compile-tmp/allimpc1-77.imp"
L_01ff:;
                                                                //   1774  L11:      JJ=NR; NR=NR+1; RA(JJ)=4*N0; N0=N0+1
#line 1774 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 1774 "regression-compile-tmp/allimpc1-77.imp"
JJ = NR;
#line 1774 "regression-compile-tmp/allimpc1-77.imp"
NR = (((int)(NR)) + (1));
#line 1774 "regression-compile-tmp/allimpc1-77.imp"
RA[JJ] = (((int)(4)) * (N0));
#line 1774 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (1));
                                                                //   1775           FAULT(109) %IF NR>NROUTS
#line 1775 "regression-compile-tmp/allimpc1-77.imp"
if (((NR) <= (NROUTS))) goto L_0200;
#line 1775 "regression-compile-tmp/allimpc1-77.imp"
FAULT(109);
#line 1775 "regression-compile-tmp/allimpc1-77.imp"
L_0200:;
                                                                //   1776           OPHEAD=NEWCELL;J=15;PTYPE=TYPEP
#line 1776 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = NEWCELL();
#line 1776 "regression-compile-tmp/allimpc1-77.imp"
J = 15;
#line 1776 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = TYPEP;
                                                                //   1777           STORE TAG(KK,OPHEAD)
#line 1777 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(KK, OPHEAD);
                                                                //   1778  L12:      JJJ=OPHEAD; Q=0; ->L24 %IF A(P+1)=2;     ! NO FORMAL PARAMS
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
JJJ = OPHEAD;
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
Q = 0;
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0201;
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 1778 "regression-compile-tmp/allimpc1-77.imp"
L_0201:;
                                                                //   1779  L13:      P=P+2; COMPILE FORMAL PARAMETER
#line 1779 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 1779 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1779 "regression-compile-tmp/allimpc1-77.imp"
COMPILEFORMALPARAMETER();
                                                                //   1780           %CYCLE PP=1,1,A(P)
#line 1780 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; PP = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle PP = 1, 1, A[((P) + ((int)(2)))]");
PP -= _increment; _control -= _increment;
L_0202:;
if (PP == _final) goto L_0203;
PP += _increment; _control += _increment;
if (PP != _control) _imp_signal(4,2,0,"Corrupt control variable PP"); /* FOR loop control variable corrupted */
}
                                                                //   1781           KK=0; KK=ACC %IF PTYPE=5
#line 1781 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
#line 1781 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (5))) goto L_0205;
#line 1781 "regression-compile-tmp/allimpc1-77.imp"
KK = ACC;
#line 1781 "regression-compile-tmp/allimpc1-77.imp"
L_0205:;
                                                                //   1782           INSERT AFTER(OPHEAD,PTYPE,KK);! FOR STRINGS PUSH IN LMAX
#line 1782 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, PTYPE, KK);
                                                                //   1783           Q=Q+1; %REPEAT
#line 1783 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 1783 "regression-compile-tmp/allimpc1-77.imp"
goto L_0202;
#line 1783 "regression-compile-tmp/allimpc1-77.imp"
L_0203:;
                                                                //   1784           P=P+PP+1; ->L13 %IF A(P)=1
#line 1784 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)((((int)(P)) + (PP)))) + (1));
#line 1784 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0206;
#line 1784 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1784 "regression-compile-tmp/allimpc1-77.imp"
L_0206:;
                                                                //   1785  L24:      REPLACE2(JJJ,Q)
#line 1785 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 1785 "regression-compile-tmp/allimpc1-77.imp"
REPLACE2(JJJ, Q);
                                                                //   1786           ->L99 %IF M=3
#line 1786 "regression-compile-tmp/allimpc1-77.imp"
if (((M) != (3))) goto L_0207;
#line 1786 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 1786 "regression-compile-tmp/allimpc1-77.imp"
L_0207:;
                                                                //   1787           REPLACE1(JJJ,JJ)
#line 1787 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(JJJ, JJ);
                                                                //   1788  L99:      %END
#line 1788 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 1788 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRSPEC at level 3
                                                                //   1789           %ROUTINE     COMPILE FORMAL PARAMETER
#line 1789 "regression-compile-tmp/allimpc1-77.imp"
void COMPILEFORMALPARAMETER( void )
#line 1789 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1790           !%SHORT %ROUTINE
                                                                //   1791           %SWITCH FPD(1:5)
#line 1791 "regression-compile-tmp/allimpc1-77.imp"
static int sw3_FPD_idx;
static const void * /*SWITCH*/ sw3_FPD[5] = { &&sw3_FPD_1, &&sw3_FPD_2, &&sw3_FPD_3, &&sw3_FPD_4, &&sw3_FPD_5,  };
                                                                //   1792           ->FPD(A(P))
#line 1792 "regression-compile-tmp/allimpc1-77.imp"
sw3_FPD_idx = A[((P) + ((int)(2)))]; if ((1 <= sw3_FPD_idx) && (sw3_FPD_idx <= 5)) goto *(sw3_FPD-1)[sw3_FPD_idx];  /* Bounds=1:5 */ else {
   /*_imp_signal(8, 2, sw3_FPD_idx);*/
   fprintf(stderr, "%%SWITCH index FPD(%d) not in range 1:5 at %s:%d\n",
           sw3_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1793  FPD(1):  !(RT)
#line 1793 "regression-compile-tmp/allimpc1-77.imp"
sw3_FPD_1:;
                                                                //   1794           ACC=16;ROUT=1;NAM=1
#line 1794 "regression-compile-tmp/allimpc1-77.imp"
ACC = 16;
#line 1794 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 1;
#line 1794 "regression-compile-tmp/allimpc1-77.imp"
NAM = 1;
                                                                //   1795           ARR=0
#line 1795 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
                                                                //   1796           ->L1 %UNLESS A(P+1)=1
#line 1796 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0208;
#line 1796 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 1796 "regression-compile-tmp/allimpc1-77.imp"
L_0208:;
                                                                //   1797           PREC=0;TYPE=0;P=P+3; ->L98
#line 1797 "regression-compile-tmp/allimpc1-77.imp"
PREC = 0;
#line 1797 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 0;
#line 1797 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 1797 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   1798  L1:       P=P+2; CLT;NAM =2*(A(P)-1)+1
#line 1798 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 1798 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1798 "regression-compile-tmp/allimpc1-77.imp"
CLT();
#line 1798 "regression-compile-tmp/allimpc1-77.imp"
NAM = (((int)(((2) * ((int)((((int)(A[((P) + ((int)(2)))])) - (1))))))) + (1));
                                                                //   1799           P=P+2; ACC=16; ->L98
#line 1799 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1799 "regression-compile-tmp/allimpc1-77.imp"
ACC = 16;
#line 1799 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   1800  FPD(2):  !(LENGTH')(TYPE)(ARRAY')(NAME)
#line 1800 "regression-compile-tmp/allimpc1-77.imp"
sw3_FPD_2:;
                                                                //   1801           P=P+1; CLT
#line 1801 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1801 "regression-compile-tmp/allimpc1-77.imp"
CLT();
                                                                //   1802           CQN(P); ROUT=0
#line 1802 "regression-compile-tmp/allimpc1-77.imp"
CQN(P);
#line 1802 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
                                                                //   1803           FAULT(70) %IF TYPE=5 %AND ACC=0
#line 1803 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0209;
#line 1803 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) != (0))) goto L_0209;
#line 1803 "regression-compile-tmp/allimpc1-77.imp"
FAULT(70);
#line 1803 "regression-compile-tmp/allimpc1-77.imp"
L_0209:;
                                                                //   1804           P=P+1; ->L98
#line 1804 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1804 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   1805  FPD(3):  !%NAME
#line 1805 "regression-compile-tmp/allimpc1-77.imp"
sw3_FPD_3:;
                                                                //   1806           TYPE=0
#line 1806 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 0;
                                                                //   1807  L31:      NAM=1; ARR=2-A(P+1); ROUT=0
#line 1807 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 1807 "regression-compile-tmp/allimpc1-77.imp"
NAM = 1;
#line 1807 "regression-compile-tmp/allimpc1-77.imp"
ARR = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])));
#line 1807 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
                                                                //   1808           ACC=4+12*ARR
#line 1808 "regression-compile-tmp/allimpc1-77.imp"
ACC = ((4) + ((int)(((12) * ((int)(ARR))))));
                                                                //   1809           PREC=0; P=P+2; ->L98
#line 1809 "regression-compile-tmp/allimpc1-77.imp"
PREC = 0;
#line 1809 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1809 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   1810  FPD(4):  TYPE=3; ->L31
#line 1810 "regression-compile-tmp/allimpc1-77.imp"
sw3_FPD_4:;
#line 1810 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 3;
#line 1810 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   1811  L98:      PACK(PTYPE)
#line 1811 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 1811 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   1812           %END
#line 1812 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw3_FPD_5:;
/*_imp_signal(6,3,sw3_FPD_idx,"SWITCH LABEL NOT SET - sw3_FPD");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_FPD(%d): at line %s:%d", sw3_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block COMPILEFORMALPARAMETER at level 3
                                                                //   1813           %ROUTINE ASSIGN (%INTEGER P1,P2)
#line 1813 "regression-compile-tmp/allimpc1-77.imp"
void ASSIGN( int P1, int P2 )
#line 1813 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1814           !%SHORTROUTINE
                                                                //   1815           %INTEGER Q,ASSOP,KK,REG,PRECP,Z,ZP,TYPEP
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int ASSOP;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int REG;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int PRECP;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int Z;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int ZP;
#line 1815 "regression-compile-tmp/allimpc1-77.imp"
int TYPEP;
                                                                //   1816           %INTEGER JJJ
#line 1816 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
                                                                //   1817           %SWITCH SW(1:4), S(0:15)
#line 1817 "regression-compile-tmp/allimpc1-77.imp"
static int sw4_SW_idx;
static const void * /*SWITCH*/ sw4_SW[4] = { &&sw4_SW_1, &&sw4_SW_2, &&sw4_SW_3, &&sw4_SW_4,  };
#line 1817 "regression-compile-tmp/allimpc1-77.imp"
static int sw5_S_idx;
static const void * /*SWITCH*/ sw5_S[16] = { &&sw5_S_0, &&sw5_S_1, &&sw5_S_2, &&sw5_S_3, &&sw5_S_4, &&sw5_S_5, &&sw5_S_6, &&sw5_S_7, &&sw5_S_8, &&sw5_S_9, &&sw5_S_10, &&sw5_S_11, &&sw5_S_12, &&sw5_S_13, &&sw5_S_14, &&sw5_S_15,  };
                                                                //   1818           ASSOP=A(P2); ->SW(ASSOP);     !P2 ON ASSOP
#line 1818 "regression-compile-tmp/allimpc1-77.imp"
ASSOP = A[((P2) + ((int)(2)))];
#line 1818 "regression-compile-tmp/allimpc1-77.imp"
sw4_SW_idx = ASSOP; if ((1 <= sw4_SW_idx) && (sw4_SW_idx <= 4)) goto *(sw4_SW-1)[sw4_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw4_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw4_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1819  SW(2):SW(3):   COPYTAG(A(P1+1)); P=P2+1
#line 1819 "regression-compile-tmp/allimpc1-77.imp"
sw4_SW_2:;
#line 1819 "regression-compile-tmp/allimpc1-77.imp"
sw4_SW_3:;
#line 1819 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[(((unsigned char)((((int)(P1)) + (1)))) + (2))]);
#line 1819 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
                                                                //   1820           ->REGVAR %IF TYPE=8
#line 1820 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (8))) goto L_020a;
#line 1820 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 1820 "regression-compile-tmp/allimpc1-77.imp"
L_020a:;
                                                                //   1821           ->MAPS %IF ROUT=1
#line 1821 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_020b;
#line 1821 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 1821 "regression-compile-tmp/allimpc1-77.imp"
L_020b:;
                                                                //   1822           ->L34 %IF TYPE=2
#line 1822 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_020c;
#line 1822 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 1822 "regression-compile-tmp/allimpc1-77.imp"
L_020c:;
                                                                //   1823           ->L50 %IF TYPE=5
#line 1823 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_020d;
#line 1823 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1823 "regression-compile-tmp/allimpc1-77.imp"
L_020d:;
                                                                //   1824           ->L35 %IF TYPE=3
#line 1824 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_020e;
#line 1824 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 1824 "regression-compile-tmp/allimpc1-77.imp"
L_020e:;
                                                                //   1825           ->L32 %IF NAM=0 %AND TYPE=1 %AND ARR=0
#line 1825 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (0))) goto L_020f;
#line 1825 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_020f;
#line 1825 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_020f;
#line 1825 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 1825 "regression-compile-tmp/allimpc1-77.imp"
L_020f:;
                                                                //   1826  L33:      P=P2+1
#line 1826 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 1826 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
                                                                //   1827           KK=0; KK=4 %UNLESS ARR=0 %AND ROUT=0 %AND 1>=TYPE
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0204;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (0))) goto L_0204;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
if (((1) >= (TYPE))) goto L_0210;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
L_0204:;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
KK = 4;
#line 1827 "regression-compile-tmp/allimpc1-77.imp"
L_0210:;
                                                                //   1828  L36:      %IF KK=4 %AND REGISTER(4)#0 %THEN KK=14
#line 1828 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 1828 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (4))) goto L_0211;
#line 1828 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[4]) == (0))) goto L_0211;
#line 1828 "regression-compile-tmp/allimpc1-77.imp"
KK = 14;
#line 1828 "regression-compile-tmp/allimpc1-77.imp"
L_0211:;
                                                                //   1829           CSEXP(KK,1); REG=NEST;KK=P
#line 1829 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(KK, 1);
#line 1829 "regression-compile-tmp/allimpc1-77.imp"
REG = NEST;
#line 1829 "regression-compile-tmp/allimpc1-77.imp"
KK = P;
                                                                //   1830           REGISTER(REG)=1 %IF REGISTER(REG)=0
#line 1830 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[REG]) != (0))) goto L_0212;
#line 1830 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[REG] = 1;
#line 1830 "regression-compile-tmp/allimpc1-77.imp"
L_0212:;
                                                                //   1831           P=P1+1; CNAME((ASSOP-1)*(ASSOP-1),REG)
#line 1831 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1831 "regression-compile-tmp/allimpc1-77.imp"
CNAME(((((((int)(ASSOP)) - (1)))) * ((((int)(ASSOP)) - (1)))), REG);
                                                                //   1832           REGISTER(REG)=0 %IF REGISTER(REG)>0
#line 1832 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[REG]) <= (0))) goto L_0213;
#line 1832 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[REG] = 0;
#line 1832 "regression-compile-tmp/allimpc1-77.imp"
L_0213:;
                                                                //   1833  L30:
#line 1833 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
                                                                //   1834           P=KK; %IF A(P)=1=QU  %THEN CQUERY (REG)
#line 1834 "regression-compile-tmp/allimpc1-77.imp"
P = KK;
#line 1834 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0214;
#line 1834 "regression-compile-tmp/allimpc1-77.imp"
CQUERY(REG);
#line 1834 "regression-compile-tmp/allimpc1-77.imp"
L_0214:;
                                                                //   1835           P=P+1; ->L1
#line 1835 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1835 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1836  L31:      print string(" CRUNCH "); %MONITOR ; %STOP
#line 1836 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 1836 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal(" CRUNCH "));
#line 1836 "regression-compile-tmp/allimpc1-77.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 1836 "regression-compile-tmp/allimpc1-77.imp"
exit(0);
                                                                //   1837  L32:      ->L33 %IF ROUT=1 %OR A(P1+2)=1 %OR A(P1+3)=1;! ACTUAL PARAMS
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (1))) goto L_0215;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) == (1))) goto L_0215;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P1)) + (3)))) + (2))]) != (1))) goto L_0216;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
L_0215:;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 1837 "regression-compile-tmp/allimpc1-77.imp"
L_0216:;
                                                                //   1838           ->L33 %IF UNASS =1
#line 1838 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0217;
#line 1838 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 1838 "regression-compile-tmp/allimpc1-77.imp"
L_0217:;
                                                                //   1839           PRECP=PREC; TYPEP=PTYPE
#line 1839 "regression-compile-tmp/allimpc1-77.imp"
PRECP = PREC;
#line 1839 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = PTYPE;
                                                                //   1840           KK=K; REG=I; Q=TSEXP(JJJ)
#line 1840 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 1840 "regression-compile-tmp/allimpc1-77.imp"
REG = I;
#line 1840 "regression-compile-tmp/allimpc1-77.imp"
Q = TSEXP(&JJJ);
                                                                //   1841           PTYPE=TYPEP; UNPACK
#line 1841 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = TYPEP;
#line 1841 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   1842           ->L33 %IF Q=0 %OR A(P)=1=QU
#line 1842 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) == (0))) goto L_0218;
#line 1842 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0219;
#line 1842 "regression-compile-tmp/allimpc1-77.imp"
L_0218:;
#line 1842 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 1842 "regression-compile-tmp/allimpc1-77.imp"
L_0219:;
                                                                //   1843           ->L37 %IF 10<=Q<=12 %AND Q-10=PRECP
#line 1843 "regression-compile-tmp/allimpc1-77.imp"
if ((((10) > (Q))) || (((Q) > (12)))) goto L_021a;
#line 1843 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(Q)) - (10))) != (PRECP))) goto L_021a;
#line 1843 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 1843 "regression-compile-tmp/allimpc1-77.imp"
L_021a:;
                                                                //   1844           ->L33 %UNLESS Q=1 %AND PRECP=1
#line 1844 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (1))) goto L_021b;
#line 1844 "regression-compile-tmp/allimpc1-77.imp"
if (((PRECP) == (1))) goto L_021c;
#line 1844 "regression-compile-tmp/allimpc1-77.imp"
L_021b:;
#line 1844 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 1844 "regression-compile-tmp/allimpc1-77.imp"
L_021c:;
                                                                //   1845           PSI(X'92',JJJ,REG,KK);        ! MVI TO SET BYTE
#line 1845 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, JJJ, REG, KK);
                                                                //   1846           P=P+1;->L1;                     ! SKIP QUERY IF ANY
#line 1846 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1846 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1847  L37:      PSS(X'D2',BYTES(PRECP),REG,KK,I,K); ! MVC IF POSSIBL
#line 1847 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 1847 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, BYTES[PRECP], REG, KK, I, K);
                                                                //   1848           P=P+1; ->L1
#line 1848 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1848 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1849  L34:      Q=2; Q=3 %IF PREC=3
#line 1849 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 1849 "regression-compile-tmp/allimpc1-77.imp"
Q = 2;
#line 1849 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_021d;
#line 1849 "regression-compile-tmp/allimpc1-77.imp"
Q = 3;
#line 1849 "regression-compile-tmp/allimpc1-77.imp"
L_021d:;
                                                                //   1850           %IF A(P1+2)=1 %THEN %START
#line 1850 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) != (1))) goto L_021e;
                                                                //   1851           P=P1+2; FFLAG=0; SKIP APP; ->L55 %IF FFLAG#0
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (2));
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
FFLAG = 0;
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
if (((FFLAG) == (0))) goto L_021f;
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 1851 "regression-compile-tmp/allimpc1-77.imp"
L_021f:;
                                                                //   1852           P=P2+1; %FINISH
#line 1852 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
#line 1852 "regression-compile-tmp/allimpc1-77.imp"
L_021e:;
                                                                //   1853           CSEXP(0,Q); KK=P
#line 1853 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, Q);
#line 1853 "regression-compile-tmp/allimpc1-77.imp"
KK = P;
                                                                //   1854           FREG(NEST)=1; REG=NEST
#line 1854 "regression-compile-tmp/allimpc1-77.imp"
FREG[NEST] = 1;
#line 1854 "regression-compile-tmp/allimpc1-77.imp"
REG = NEST;
                                                                //   1855           P=P1+1; CNAME(1,NEST)
#line 1855 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1855 "regression-compile-tmp/allimpc1-77.imp"
CNAME(1, NEST);
                                                                //   1856           FREG(REG)=0
#line 1856 "regression-compile-tmp/allimpc1-77.imp"
FREG[REG] = 0;
                                                                //   1857           ->L30
#line 1857 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   1858  L35:      P=P1+1; Q=COPY RECORD TAG
#line 1858 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 1858 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1858 "regression-compile-tmp/allimpc1-77.imp"
Q = COPYRECORDTAG();
                                                                //   1859           P=P2+1
#line 1859 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
                                                                //   1860           TYPE=1 %UNLESS TYPE=2 %OR TYPE=5
#line 1860 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (2))) goto L_0220;
#line 1860 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0220;
#line 1860 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
#line 1860 "regression-compile-tmp/allimpc1-77.imp"
L_0220:;
                                                                //   1861           ->L50 %IF TYPE=5
#line 1861 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0221;
#line 1861 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1861 "regression-compile-tmp/allimpc1-77.imp"
L_0221:;
                                                                //   1862           KK=4; ->L36 %IF TYPE=1; ->L34
#line 1862 "regression-compile-tmp/allimpc1-77.imp"
KK = 4;
#line 1862 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_0222;
#line 1862 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 1862 "regression-compile-tmp/allimpc1-77.imp"
L_0222:;
#line 1862 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
                                                                //   1863  L50:      CSTREXP(4);KK=P
#line 1863 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 1863 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(4);
#line 1863 "regression-compile-tmp/allimpc1-77.imp"
KK = P;
                                                                //   1864           REGISTER(4)=1
#line 1864 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 1;
                                                                //   1865           P=P1+1;
#line 1865 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
                                                                //   1866           CNAME((ASSOP-1)^^2,4)
#line 1866 "regression-compile-tmp/allimpc1-77.imp"
CNAME(_imp_IEXP((((int)(ASSOP)) - (1)), 2), 4);
                                                                //   1867           REGISTER(4)=0
#line 1867 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 0;
                                                                //   1868           REG=4; ->L30
#line 1868 "regression-compile-tmp/allimpc1-77.imp"
REG = 4;
#line 1868 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   1869  MAPS:    %IF PTYPE=10006 %THEN %START
#line 1869 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 1869 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (10006))) goto L_0223;
                                                                //   1870           TYPE=TSNAME(K);PREC=TYPE>>3
#line 1870 "regression-compile-tmp/allimpc1-77.imp"
TYPE = TSNAME[K];
#line 1870 "regression-compile-tmp/allimpc1-77.imp"
PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3)));
                                                                //   1871           TYPE=TYPE&7; %FINISH
#line 1871 "regression-compile-tmp/allimpc1-77.imp"
TYPE = ((TYPE) & (7));
#line 1871 "regression-compile-tmp/allimpc1-77.imp"
L_0223:;
                                                                //   1872           ->L33 %IF TYPE=1;              ! NORMAL CHANNELS FOR INT MAPS
#line 1872 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_0224;
#line 1872 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 1872 "regression-compile-tmp/allimpc1-77.imp"
L_0224:;
                                                                //   1873           ->L50 %IF TYPE=5;              ! STRING MAPS
#line 1873 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0225;
#line 1873 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 1873 "regression-compile-tmp/allimpc1-77.imp"
L_0225:;
                                                                //   1874  L55:      P=P2+1; PRECP=PREC
#line 1874 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 1874 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
#line 1874 "regression-compile-tmp/allimpc1-77.imp"
PRECP = PREC;
                                                                //   1875           CSEXP(0,2+PREC&1)
#line 1875 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, ((2) + ((int)(((PREC) & (1))))));
                                                                //   1876           Q=PARKF(NEST,3)
#line 1876 "regression-compile-tmp/allimpc1-77.imp"
Q = PARKF(NEST, 3);
                                                                //   1877           KK=P; P=P1+1; CNAME(3,1);     ! ADDR TO GR1
#line 1877 "regression-compile-tmp/allimpc1-77.imp"
KK = P;
#line 1877 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1877 "regression-compile-tmp/allimpc1-77.imp"
CNAME(3, 1);
                                                                //   1878           DUMP(16,0,Q,0,RBASE);         ! PICK UP TO FR0
#line 1878 "regression-compile-tmp/allimpc1-77.imp"
DUMP(16, 0, Q, 0, RBASE);
                                                                //   1879           DUMP(9+2*PREC,0,0,0,1);       ! STUFF IT OFF
#line 1879 "regression-compile-tmp/allimpc1-77.imp"
DUMP(((9) + ((int)(((2) * ((int)(PREC)))))), 0, 0, 0, 1);
                                                                //   1880           PUSH(LWSP(LEVEL),0,Q); ->L30;  ! TO QUERY PRINT
#line 1880 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LWSP[LEVEL], 0, Q);
#line 1880 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   1881  REGVAR:  FAULT(59) %UNLESS A(P1+2)=2=A(P1+3)
#line 1881 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 1881 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P1)) + (3)))) + (2))])))) goto L_0227;
#line 1881 "regression-compile-tmp/allimpc1-77.imp"
L_0226:;
#line 1881 "regression-compile-tmp/allimpc1-77.imp"
FAULT(59);
#line 1881 "regression-compile-tmp/allimpc1-77.imp"
L_0227:;
                                                                //   1882           KK=K; CSEXP(KK,1)
#line 1882 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 1882 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(KK, 1);
                                                                //   1883           REGISTER(KK)=-1
#line 1883 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[KK] = (-1);
                                                                //   1884           %IF A(P)=1=QU %THEN CQUERY(REG)
#line 1884 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0228;
#line 1884 "regression-compile-tmp/allimpc1-77.imp"
CQUERY(REG);
#line 1884 "regression-compile-tmp/allimpc1-77.imp"
L_0228:;
                                                                //   1885           P=P+1; ->L1
#line 1885 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1885 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1886  SW(4):                                  !ASSOP=->L
#line 1886 "regression-compile-tmp/allimpc1-77.imp"
sw4_SW_4:;
                                                                //   1887           P=P1+1; CNAME(2,1)
#line 1887 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1887 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, 1);
                                                                //   1888           P=P2+1
#line 1888 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
                                                                //   1889           CRES(0,0)
#line 1889 "regression-compile-tmp/allimpc1-77.imp"
CRES(0, 0);
                                                                //   1890           P=P+1;->L1
#line 1890 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1890 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1891  SW(1):   !ASSOP='=='
#line 1891 "regression-compile-tmp/allimpc1-77.imp"
sw4_SW_1:;
                                                                //   1892           P=P1+1; COPYTAG(A(P))
#line 1892 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1892 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((P) + ((int)(2)))]);
                                                                //   1893           ->L9 %IF I=-1;Q=1
#line 1893 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != ((-1)))) goto L_0229;
#line 1893 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 1893 "regression-compile-tmp/allimpc1-77.imp"
L_0229:;
#line 1893 "regression-compile-tmp/allimpc1-77.imp"
Q = 1;
                                                                //   1894           %IF TYPE=3 %THEN Q=COPY RECORD TAG
#line 1894 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_022a;
#line 1894 "regression-compile-tmp/allimpc1-77.imp"
Q = COPYRECORDTAG();
#line 1894 "regression-compile-tmp/allimpc1-77.imp"
L_022a:;
                                                                //   1895           ->L201 %IF Q=0
#line 1895 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (0))) goto L_022b;
#line 1895 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
#line 1895 "regression-compile-tmp/allimpc1-77.imp"
L_022b:;
                                                                //   1896           FAULT(81) %UNLESS A(P2+1)=4 %AND A(P2+2)=1
#line 1896 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P2)) + (1)))) + (2))]) != (4))) goto L_022c;
#line 1896 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P2)) + (2)))) + (2))]) == (1))) goto L_022d;
#line 1896 "regression-compile-tmp/allimpc1-77.imp"
L_022c:;
#line 1896 "regression-compile-tmp/allimpc1-77.imp"
FAULT(81);
#line 1896 "regression-compile-tmp/allimpc1-77.imp"
L_022d:;
                                                                //   1897           ->L101 %IF ROUT=1; NEST=4
#line 1897 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_022e;
#line 1897 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
#line 1897 "regression-compile-tmp/allimpc1-77.imp"
L_022e:;
#line 1897 "regression-compile-tmp/allimpc1-77.imp"
NEST = 4;
                                                                //   1898           ->S((NAM&2+ARR)<<2!(NAM&1)*2!(2-A(P+1)))
#line 1898 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_idx = (((((((((unsigned char)(((NAM) & (2)))) + (ARR))) << (2))) | ((((int)(((NAM) & (1)))) * (2))))) | (((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))))); if ((0 <= sw5_S_idx) && (sw5_S_idx <= 15)) goto *sw5_S[sw5_S_idx]; else {
   /*_imp_signal(8, 2, sw5_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 0:15 at %s:%d\n",
           sw5_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1899  L9:       FNAME=A(P); FAULT(16)
#line 1899 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 1899 "regression-compile-tmp/allimpc1-77.imp"
FNAME = A[((P) + ((int)(2)))];
#line 1899 "regression-compile-tmp/allimpc1-77.imp"
FAULT(16);
                                                                //   1900  S(0):S(1):S(3):S(4):S(5):
#line 1900 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_0:;
#line 1900 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_1:;
#line 1900 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_3:;
#line 1900 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_4:;
#line 1900 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_5:;
                                                                //   1901  S(7):S(8):S(10):S(11):S(12):
#line 1901 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_7:;
#line 1901 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_8:;
#line 1901 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_10:;
#line 1901 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_11:;
#line 1901 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_12:;
                                                                //   1902  L10:      FAULT(82)
#line 1902 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 1902 "regression-compile-tmp/allimpc1-77.imp"
FAULT(82);
                                                                //   1903           P=P2+1; SKIPEXP; P=P+1; ->L1
#line 1903 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (1));
#line 1903 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 1903 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1903 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1904  S(2): ! NAM=1; S(9):!NAMARR + APP; S(15):! NAMARR +NAM+APP; S(13):
#line 1904 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_2:;
                                                                //   1905           Z=3; ZP=6
#line 1905 "regression-compile-tmp/allimpc1-77.imp"
Z = 3;
#line 1905 "regression-compile-tmp/allimpc1-77.imp"
ZP = 6;
                                                                //   1906  L12:      P=P2+3; CNAME(Z,4)
#line 1906 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 1906 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (3));
#line 1906 "regression-compile-tmp/allimpc1-77.imp"
CNAME(Z, 4);
                                                                //   1907           ->L10 %UNLESS A(P)=2; PRECP=PREC
#line 1907 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_022f;
#line 1907 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 1907 "regression-compile-tmp/allimpc1-77.imp"
L_022f:;
#line 1907 "regression-compile-tmp/allimpc1-77.imp"
PRECP = PREC;
                                                                //   1908           TYPEP=TYPE
#line 1908 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = TYPE;
                                                                //   1909           KK=P+2; P=P1+1; CNAME(ZP,4)
#line 1909 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)(P)) + (2));
#line 1909 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1909 "regression-compile-tmp/allimpc1-77.imp"
CNAME(ZP, 4);
                                                                //   1910  L14:
#line 1910 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
                                                                //   1911           P=KK;     ->L1 %IF PREC=PRECP %AND TYPE=TYPEP
#line 1911 "regression-compile-tmp/allimpc1-77.imp"
P = KK;
#line 1911 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (PRECP))) goto L_0230;
#line 1911 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (TYPEP))) goto L_0230;
#line 1911 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 1911 "regression-compile-tmp/allimpc1-77.imp"
L_0230:;
                                                                //   1912           FAULT(83); ->L1
#line 1912 "regression-compile-tmp/allimpc1-77.imp"
FAULT(83);
#line 1912 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   1913  S(6):    ! ARRAYNAME-NO APP
#line 1913 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_6:;
                                                                //   1914  S(14):   !NAMARRAYNAME-NO APP
#line 1914 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_14:;
                                                                //   1915           Z=12; ZP=11; ->L12
#line 1915 "regression-compile-tmp/allimpc1-77.imp"
Z = 12;
#line 1915 "regression-compile-tmp/allimpc1-77.imp"
ZP = 11;
#line 1915 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   1916  L201:
#line 1916 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
                                                                //   1917           ->S(6) %IF ARR=1 %AND NAM=1 %AND A(P+1)=2
#line 1917 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_0231;
#line 1917 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (1))) goto L_0231;
#line 1917 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0231;
#line 1917 "regression-compile-tmp/allimpc1-77.imp"
sw5_S_idx = 6; goto *sw5_S[sw5_S_idx]; 
#line 1917 "regression-compile-tmp/allimpc1-77.imp"
L_0231:;
                                                                //   1918           Z=15; ZP=14; ->L12
#line 1918 "regression-compile-tmp/allimpc1-77.imp"
Z = 15;
#line 1918 "regression-compile-tmp/allimpc1-77.imp"
ZP = 14;
#line 1918 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   1919  L101:     P=P1+1; CNAME(13,1);          ! ASSIGNMENTS TO RECORDNAMES
#line 1919 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 1919 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P1)) + (1));
#line 1919 "regression-compile-tmp/allimpc1-77.imp"
CNAME(13, 1);
                                                                //   1920           PRECP=PREC; TYPEP=TYPE; JJJ=K;
#line 1920 "regression-compile-tmp/allimpc1-77.imp"
PRECP = PREC;
#line 1920 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = TYPE;
#line 1920 "regression-compile-tmp/allimpc1-77.imp"
JJJ = K;
                                                                //   1921           ->L10 %UNLESS J=0 %AND NAM=1
#line 1921 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (0))) goto L_0232;
#line 1921 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (1))) goto L_0233;
#line 1921 "regression-compile-tmp/allimpc1-77.imp"
L_0232:;
#line 1921 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 1921 "regression-compile-tmp/allimpc1-77.imp"
L_0233:;
                                                                //   1922           REG=FINDPP; ->L31 %IF REG=0
#line 1922 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDPP();
#line 1922 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) != (0))) goto L_0234;
#line 1922 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 1922 "regression-compile-tmp/allimpc1-77.imp"
L_0234:;
                                                                //   1923           DUMP(0,REG,DISP,INDEX,BASE);  ! ADDRESS OF LHS TO SAFE PLACE
#line 1923 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, REG, DISP, INDEX, BASE);
                                                                //   1924           P=P2+3; CNAME(13,1);          ! RHSIDE
#line 1924 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P2)) + (3));
#line 1924 "regression-compile-tmp/allimpc1-77.imp"
CNAME(13, 1);
                                                                //   1925           ->L102 %IF BASE=GLA %AND J=0;  ! COMMON OR GARDEN ROUTINE
#line 1925 "regression-compile-tmp/allimpc1-77.imp"
if (((BASE) != (GLA))) goto L_0235;
#line 1925 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (0))) goto L_0235;
#line 1925 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 1925 "regression-compile-tmp/allimpc1-77.imp"
L_0235:;
                                                                //   1926           PSS(X'D2',16,REG,0,BASE,DISP)
#line 1926 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 16, REG, 0, BASE, DISP);
                                                                //   1927           ->L103 %IF J=14;     ! EXTERNAL ROUTINE
#line 1927 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (14))) goto L_0236;
#line 1927 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 1927 "regression-compile-tmp/allimpc1-77.imp"
L_0236:;
                                                                //   1928  L110:     REGISTER(REG)=0; KK=P+2
#line 1928 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 1928 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[REG] = 0;
#line 1928 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)(P)) + (2));
                                                                //   1929           FROM2(JJJ,Z); FROM2(K,ZP)
#line 1929 "regression-compile-tmp/allimpc1-77.imp"
FROM2(JJJ, &Z);
#line 1929 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &ZP);
                                                                //   1930           FAULT(83) %UNLESS Z=ZP
#line 1930 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (ZP))) goto L_0237;
#line 1930 "regression-compile-tmp/allimpc1-77.imp"
FAULT(83);
#line 1930 "regression-compile-tmp/allimpc1-77.imp"
L_0237:;
                                                                //   1931           ->L14
#line 1931 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   1932  L102:     DUMP(2,2,DISP,INDEX,BASE);      ! PICK UP RT ADDR
#line 1932 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 1932 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 2, DISP, INDEX, BASE);
                                                                //   1933           PRX(X'5A',2,0,GLA,28);        ! RELOCATE
#line 1933 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, 2, 0, GLA, 28);
                                                                //   1934           PCONST(X'180C181D');          ! LR 0,12 LR1,13 PERM AND GLA
#line 1934 "regression-compile-tmp/allimpc1-77.imp"
PCONST(403445789);
                                                                //   1935           PRR(X'18',3,REG);             ! CUNNING PTR TO ENVRMNT
#line 1935 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 3, REG);
                                                                //   1936           PRX(X'90',0,9,REG,0); ->L110;  ! STUFF OFF + ENVRMNT
#line 1936 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 9, REG, 0);
#line 1936 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   1937  L103:     PRX(X'50',9,0,REG,12); ->L110; ! EXTRNS DUMMY ENVRMNT
#line 1937 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 1937 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, 9, 0, REG, 12);
#line 1937 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   1938  L1:       %END
#line 1938 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 1938 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw5_S_9:;
sw5_S_13:;
sw5_S_15:;
/*_imp_signal(6,3,sw5_S_idx,"SWITCH LABEL NOT SET - sw5_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw5_S(%d): at line %s:%d", sw5_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block ASSIGN at level 3
                                                                //   1939           %ROUTINE     CUI(%BYTEINTEGER CODE)
#line 1939 "regression-compile-tmp/allimpc1-77.imp"
void CUI( unsigned char CODE )
#line 1939 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   1940           !%SHORTROUTINE
                                                                //   1941           %INTEGER KK,JJ,QQ
#line 1941 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 1941 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 1941 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
                                                                //   1942           %SWITCH SW(1:11)
#line 1942 "regression-compile-tmp/allimpc1-77.imp"
static int sw6_SW_idx;
static const void * /*SWITCH*/ sw6_SW[11] = { &&sw6_SW_1, &&sw6_SW_2, &&sw6_SW_3, &&sw6_SW_4, &&sw6_SW_5, &&sw6_SW_6, &&sw6_SW_7, &&sw6_SW_8, &&sw6_SW_9, &&sw6_SW_10, &&sw6_SW_11,  };
                                                                //   1943                 ->SW(A(P))
#line 1943 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw6_SW_idx) && (sw6_SW_idx <= 11)) goto *(sw6_SW-1)[sw6_SW_idx];  /* Bounds=1:11 */ else {
   /*_imp_signal(8, 2, sw6_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:11 at %s:%d\n",
           sw6_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1944  SW(1):   P=P+1; MARKER1=P+A(P);      !(NAME)(APP)(RESTOFUI)
#line 1944 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_1:;
#line 1944 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1944 "regression-compile-tmp/allimpc1-77.imp"
MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))])));
                                                                //   1945                 ->L3 %IF A(MARKER 1)=1
#line 1945 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((MARKER1) + ((int)(2)))]) != (1))) goto L_0238;
#line 1945 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 1945 "regression-compile-tmp/allimpc1-77.imp"
L_0238:;
                                                                //   1946           P=P+1; CNAME(0,0); P=P+1; ->L1
#line 1946 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1946 "regression-compile-tmp/allimpc1-77.imp"
CNAME(0, 0);
#line 1946 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1946 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1947  L3:       ASSIGN(P,MARKER1+1); ->L1
#line 1947 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 1947 "regression-compile-tmp/allimpc1-77.imp"
ASSIGN(P, (((int)(MARKER1)) + (1)));
#line 1947 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1948  SW(2):   !->L<NAME><EXRN>
#line 1948 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_2:;
                                                                //   1949           NMDECS(LEVEL)=1
#line 1949 "regression-compile-tmp/allimpc1-77.imp"
NMDECS[LEVEL] = 1;
                                                                //   1950                 COPY TAG(A(P+1))
#line 1950 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
                                                                //   1951           PTYPEP=PTYPE
#line 1951 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
                                                                //   1952           KK=K; P=P+2
#line 1952 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 1952 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   1953           ->L200 %IF OLDI=LEVEL %AND TYPE=6
#line 1953 "regression-compile-tmp/allimpc1-77.imp"
if (((OLDI) != (LEVEL))) goto L_0239;
#line 1953 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (6))) goto L_0239;
#line 1953 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 1953 "regression-compile-tmp/allimpc1-77.imp"
L_0239:;
                                                                //   1954           FAULT(4);SKIP EXP; ->L1
#line 1954 "regression-compile-tmp/allimpc1-77.imp"
FAULT(4);
#line 1954 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 1954 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1955  L200:     CSEXP(1,1);PTYPE=PTYPEP; UNPACK
#line 1955 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 1955 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 1955 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 1955 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   1956           FROM LIST(KK,QQ,JJ)
#line 1956 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(KK, &QQ, &JJ);
                                                                //   1957           QQ=QQ-CODEBASE(LEVEL)
#line 1957 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(QQ)) - (CODEBASE[LEVEL]));
                                                                //   1958           ->L205 %IF CHECKSP=0
#line 1958 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (0))) goto L_023a;
#line 1958 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 1958 "regression-compile-tmp/allimpc1-77.imp"
L_023a:;
                                                                //   1959  L201:     LOADAD( 2,10,0,QQ);PPJ(7); ->L1
#line 1959 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 1959 "regression-compile-tmp/allimpc1-77.imp"
LOADAD(2, 10, 0, QQ);
#line 1959 "regression-compile-tmp/allimpc1-77.imp"
PPJ(7);
#line 1959 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1960  L205:     JJ=8+QQ-JJ*BYTES(PREC);       !@ SW(0)
#line 1960 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 1960 "regression-compile-tmp/allimpc1-77.imp"
JJ = ((((((int)(8)) + (QQ)))) - (((JJ) * ((int)(BYTES[PREC])))));
                                                                //   1961           ->L201 %UNLESS 0<=JJ<=4095
#line 1961 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) > (JJ))) || (((JJ) <= (4095)))) goto L_023c;
#line 1961 "regression-compile-tmp/allimpc1-77.imp"
L_023b:;
#line 1961 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 1961 "regression-compile-tmp/allimpc1-77.imp"
L_023c:;
                                                                //   1962           ->L210 %IF PREC=0
#line 1962 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (0))) goto L_023d;
#line 1962 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 1962 "regression-compile-tmp/allimpc1-77.imp"
L_023d:;
                                                                //   1963           PLANT(X'1A11');KK= X'48';     !AR_1,1
#line 1963 "regression-compile-tmp/allimpc1-77.imp"
PLANT(6673);
#line 1963 "regression-compile-tmp/allimpc1-77.imp"
KK = 72;
                                                                //   1964  L207:     PRX(KK,1,1,10,JJ);            !L(H)_1,JJ(1,10)
#line 1964 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 1964 "regression-compile-tmp/allimpc1-77.imp"
PRX(KK, 1, 1, 10, JJ);
                                                                //   1965           PCONST(X'47F1A000');->L1;      !BC_15,0(1,10)
#line 1965 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1207017472);
#line 1965 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1966  L210:     PCONST(X'89100002');KK= X'58';->L207;! SLL_1,2
#line 1966 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 1966 "regression-compile-tmp/allimpc1-77.imp"
PCONST((-1995440126));
#line 1966 "regression-compile-tmp/allimpc1-77.imp"
KK = 88;
#line 1966 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   1967  SW(3):                                 ! '->L'(LABEL)
#line 1967 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_3:;
                                                                //   1968           NMDECS(LEVEL)=1
#line 1968 "regression-compile-tmp/allimpc1-77.imp"
NMDECS[LEVEL] = 1;
                                                                //   1969           K=A(P+2)+(A(P+1)-1)<<14
#line 1969 "regression-compile-tmp/allimpc1-77.imp"
K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   1970           PJ(MASK,K); P=P+3; ->L1
#line 1970 "regression-compile-tmp/allimpc1-77.imp"
PJ(MASK, K);
#line 1970 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 1970 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1971   SW(4):        !PRINT TEXT
#line 1971 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_4:;
                                                                //   1972           K=(A(P+1)+2)//2; P=P+1; PPJ(30)
#line 1972 "regression-compile-tmp/allimpc1-77.imp"
K = (long)((long)(((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) + (2)))) / (long)((int)(2)));
#line 1972 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1972 "regression-compile-tmp/allimpc1-77.imp"
PPJ(30);
                                                                //   1973           %CYCLE KK=1,1,K; PLANT(A(P)<<8!A(P+1))
#line 1973 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = K; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, K");
KK -= _increment; _control -= _increment;
L_023e:;
if (KK == _final) goto L_023f;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
#line 1973 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((A[((P) + ((int)(2)))]) << (8))) | (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])));
                                                                //   1974           P=P+2; %REPEAT; ->L1
#line 1974 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 1974 "regression-compile-tmp/allimpc1-77.imp"
goto L_023e;
#line 1974 "regression-compile-tmp/allimpc1-77.imp"
L_023f:;
#line 1974 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1975   SW(5):        !RETURN
#line 1975 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_5:;
                                                                //   1976           FAULT(30) %UNLESS FLAG(LEVEL)=10000 %OR PERM=1
#line 1976 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAG[LEVEL]) == (10000))) goto L_0241;
#line 1976 "regression-compile-tmp/allimpc1-77.imp"
if (((PERM) == (1))) goto L_0241;
#line 1976 "regression-compile-tmp/allimpc1-77.imp"
FAULT(30);
#line 1976 "regression-compile-tmp/allimpc1-77.imp"
L_0241:;
                                                                //   1977                 P=P+1
#line 1977 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   1978  L6:       PSS(X'D2',4,GLA,20,RBASE,0) %IF DIAGS1=1
#line 1978 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 1978 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (1))) goto L_0242;
#line 1978 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, GLA, 20, RBASE, 0);
#line 1978 "regression-compile-tmp/allimpc1-77.imp"
L_0242:;
                                                                //   1979           %COMMENT CHECK FOR REGISTER VARS & UPDATE CORE COPY
                                                                //   1980           %CYCLE KK=5,1,8
#line 1980 "regression-compile-tmp/allimpc1-77.imp"
KK = 4;
if ((((8)-(5)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 5, 1, 8");
L_0243:;
if (KK == 8) goto L_0244;
KK += 1;
                                                                //   1981           %IF 0#UVARREG(KK)<LEVEL %THEN PRX(X'50',KK,0,RBASE,KK<<2)
#line 1981 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) == (UVARREG[(((int)(KK)) - (5))]))) || (((UVARREG[(((int)(KK)) - (5))]) >= (LEVEL)))) goto L_0246;
#line 1981 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, KK, 0, RBASE, ((KK) << (2)));
#line 1981 "regression-compile-tmp/allimpc1-77.imp"
L_0246:;
                                                                //   1982           %REPEAT
#line 1982 "regression-compile-tmp/allimpc1-77.imp"
goto L_0243;
#line 1982 "regression-compile-tmp/allimpc1-77.imp"
L_0244:;
                                                                //   1983           PRX(X'98',4,15,RBASE,16);     ! LM OLD REGISTERS
#line 1983 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 4, 15, RBASE, 16);
                                                                //   1984           R13=0; PRR(7,15,LINK); ->L1;   ! BR LINK
#line 1984 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 1984 "regression-compile-tmp/allimpc1-77.imp"
PRR(7, 15, LINK);
#line 1984 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1985  SW(6):   ! %RESULT =EXPR
#line 1985 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_6:;
                                                                //   1986           P=P+1; KK=FLAG(LEVEL)
#line 1986 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1986 "regression-compile-tmp/allimpc1-77.imp"
KK = FLAG[LEVEL];
                                                                //   1987           FAULT(31) %UNLESS KK>10000
#line 1987 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) > (10000))) goto L_0247;
#line 1987 "regression-compile-tmp/allimpc1-77.imp"
FAULT(31);
#line 1987 "regression-compile-tmp/allimpc1-77.imp"
L_0247:;
                                                                //   1988           ->L61 %IF KK=10002
#line 1988 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (10002))) goto L_0248;
#line 1988 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 1988 "regression-compile-tmp/allimpc1-77.imp"
L_0248:;
                                                                //   1989           ->L62 %IF KK=10032
#line 1989 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (10032))) goto L_0249;
#line 1989 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 1989 "regression-compile-tmp/allimpc1-77.imp"
L_0249:;
                                                                //   1990           ->L63 %IF KK=10005
#line 1990 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (10005))) goto L_024a;
#line 1990 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 1990 "regression-compile-tmp/allimpc1-77.imp"
L_024a:;
                                                                //   1991           CSEXP(1,1); ->L6
#line 1991 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 1991 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
                                                                //   1992  L61:      CSEXP(2,2); ->L6
#line 1992 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 1992 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 2);
#line 1992 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
                                                                //   1993  L62:      CSEXP(2,3); ->L6
#line 1993 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 1993 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 3);
#line 1993 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
                                                                //   1994  L63:      CSTREXP(1); ->L6
#line 1994 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 1994 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(1);
#line 1994 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
                                                                //   1995  SW(7):SW(8):   ! STOP & MONITORSTOP
#line 1995 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_7:;
#line 1995 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_8:;
                                                                //   1996           PPJ(6*(A(P)-6)); P=P+1; ->L1
#line 1996 "regression-compile-tmp/allimpc1-77.imp"
PPJ(((6) * ((int)((((int)(A[((P) + ((int)(2)))])) - (6))))));
#line 1996 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 1996 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   1997  SW(9):  SFLABEL=SFLABEL-1
#line 1997 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_9:;
#line 1997 "regression-compile-tmp/allimpc1-77.imp"
SFLABEL = (((int)(SFLABEL)) - (1));
                                                                //   1998          PUSH(SBR(LEVEL),CODE,SFLABEL)
#line 1998 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&SBR[LEVEL], CODE, SFLABEL);
                                                                //   1999           PUSH(CYCLE(LEVEL),0,0)
#line 1999 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&CYCLE[LEVEL], 0, 0);
                                                                //   2000           ->L1
#line 2000 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   2001  SW(11):                                ! %QUERIES (ONOFF)
#line 2001 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_11:;
                                                                //   2002           KK=2-A(P+1); P=P+2
#line 2002 "regression-compile-tmp/allimpc1-77.imp"
KK = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])));
#line 2002 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   2003           PSI(X'92',KK,GLA,1); ->L1
#line 2003 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, KK, GLA, 1);
#line 2003 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   2004  SW(10):  PPJ(31); P=P+1; ;             ! %MONITOR
#line 2004 "regression-compile-tmp/allimpc1-77.imp"
sw6_SW_10:;
#line 2004 "regression-compile-tmp/allimpc1-77.imp"
PPJ(31);
#line 2004 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2005  L1:            %END
#line 2005 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 2005 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CUI at level 3
                                                                //   2006           %ROUTINE     CRFORMAT
#line 2006 "regression-compile-tmp/allimpc1-77.imp"
void CRFORMAT( void )
#line 2006 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2007           !%SHORTROUTINE
                                                                //   2008           %INTEGER LENGTHP,QQQ,REP,CODE
#line 2008 "regression-compile-tmp/allimpc1-77.imp"
int LENGTHP;
#line 2008 "regression-compile-tmp/allimpc1-77.imp"
int QQQ;
#line 2008 "regression-compile-tmp/allimpc1-77.imp"
int REP;
#line 2008 "regression-compile-tmp/allimpc1-77.imp"
int CODE;
                                                                //   2009           K=A(P+1);TEST NST
#line 2009 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 2009 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   2010           J=0;PTYPE=4;OPHEAD=NEWCELL
#line 2010 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 2010 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 4;
#line 2010 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = NEWCELL();
                                                                //   2011           JJJ=OPHEAD;STORE TAG(K,JJJ)
#line 2011 "regression-compile-tmp/allimpc1-77.imp"
JJJ = OPHEAD;
#line 2011 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, JJJ);
                                                                //   2012           P=3;Q=0;INC=4;INCP=0
#line 2012 "regression-compile-tmp/allimpc1-77.imp"
P = 3;
#line 2012 "regression-compile-tmp/allimpc1-77.imp"
Q = 0;
#line 2012 "regression-compile-tmp/allimpc1-77.imp"
INC = 4;
#line 2012 "regression-compile-tmp/allimpc1-77.imp"
INCP = 0;
                                                                //   2013  ! INC COUNTS ALONG RECORD FORMAT DOPEVECTOR..INCP BYTES FROM RECORDHD
                                                                //   2014           ->L101 %IF A(P)=2;             ! NO FPP
#line 2014 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_024b;
#line 2014 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 2014 "regression-compile-tmp/allimpc1-77.imp"
L_024b:;
                                                                //   2015  L1:       P=P+1; COMPILE FORMAL PARAMETER
#line 2015 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 2015 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2015 "regression-compile-tmp/allimpc1-77.imp"
COMPILEFORMALPARAMETER();
                                                                //   2016           LENGTHP=ACC-1; LENGTHP=3 %IF ACC>8
#line 2016 "regression-compile-tmp/allimpc1-77.imp"
LENGTHP = (((int)(ACC)) - (1));
#line 2016 "regression-compile-tmp/allimpc1-77.imp"
if (((ACC) <= (8))) goto L_024c;
#line 2016 "regression-compile-tmp/allimpc1-77.imp"
LENGTHP = 3;
#line 2016 "regression-compile-tmp/allimpc1-77.imp"
L_024c:;
                                                                //   2017  L2:       ->L3 %IF INCP&LENGTHP=0; INCP=INCP+1; ->L2
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
if (((((INCP) & (LENGTHP))) != (0))) goto L_024d;
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
L_024d:;
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
INCP = (((int)(INCP)) + (1));
#line 2017 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   2018  L3:       %CYCLE REP=1,1,A(P); P=P+1
#line 2018 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 2018 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; REP = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle REP = 1, 1, A[((P) + ((int)(2)))]");
REP -= _increment; _control -= _increment;
L_024e:;
if (REP == _final) goto L_024f;
REP += _increment; _control += _increment;
if (REP != _control) _imp_signal(4,2,0,"Corrupt control variable REP"); /* FOR loop control variable corrupted */
}
#line 2018 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2019           CODE=255; LENGTHP=ACC
#line 2019 "regression-compile-tmp/allimpc1-77.imp"
CODE = 255;
#line 2019 "regression-compile-tmp/allimpc1-77.imp"
LENGTHP = ACC;
                                                                //   2020           ->L11 %IF ROUT=1
#line 2020 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_0251;
#line 2020 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2020 "regression-compile-tmp/allimpc1-77.imp"
L_0251:;
                                                                //   2021           ->L12 %IF TYPE=3;QQQ=INCP
#line 2021 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0252;
#line 2021 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 2021 "regression-compile-tmp/allimpc1-77.imp"
L_0252:;
#line 2021 "regression-compile-tmp/allimpc1-77.imp"
QQQ = INCP;
                                                                //   2022           ->L4 %UNLESS TYPE=5
#line 2022 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0253;
#line 2022 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2022 "regression-compile-tmp/allimpc1-77.imp"
L_0253:;
                                                                //   2023           CODE=250; LENGTHP=ACC-1; QQQ=INC
#line 2023 "regression-compile-tmp/allimpc1-77.imp"
CODE = 250;
#line 2023 "regression-compile-tmp/allimpc1-77.imp"
LENGTHP = (((int)(ACC)) - (1));
#line 2023 "regression-compile-tmp/allimpc1-77.imp"
QQQ = INC;
                                                                //   2024  L4:       INSERT AFTER(OPHEAD,PTYPE<<4!A(P)<<20,QQQ)
#line 2024 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 2024 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, ((((PTYPE) << (4))) | (((A[((P) + ((int)(2)))]) << (20)))), QQQ);
                                                                //   2025           PSI(X'92',CODE,RBASE,N+INC)
#line 2025 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, CODE, RBASE, (((int)(N)) + (INC)));
                                                                //   2026           PSI(X'92',LENGTHP,RBASE,N+INC+1)
#line 2026 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, LENGTHP, RBASE, (((int)((((int)(N)) + (INC)))) + (1)));
                                                                //   2027           Q=Q+1
#line 2027 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   2028           INC=INC+4; INCP=INCP+ACC
#line 2028 "regression-compile-tmp/allimpc1-77.imp"
INC = (((int)(INC)) + (4));
#line 2028 "regression-compile-tmp/allimpc1-77.imp"
INCP = (((int)(INCP)) + (ACC));
                                                                //   2029           ->L15
#line 2029 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   2030  L11:      QQQ=NEWCELL; REPLACE BOTH(QQQ,INCP,100)
#line 2030 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 2030 "regression-compile-tmp/allimpc1-77.imp"
QQQ = NEWCELL();
#line 2030 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(QQQ, INCP, 100);
                                                                //   2031           FAULT(41) %UNLESS PTYPE=11000;! FUNCTIONS TOO DICEY AT PRESENT
#line 2031 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (11000))) goto L_0254;
#line 2031 "regression-compile-tmp/allimpc1-77.imp"
FAULT(41);
#line 2031 "regression-compile-tmp/allimpc1-77.imp"
L_0254:;
                                                                //   2032           ACC=40; LENGTHP=ACC; ->L4;     ! RT NAME MUST CARRY ENVRMNT
#line 2032 "regression-compile-tmp/allimpc1-77.imp"
ACC = 40;
#line 2032 "regression-compile-tmp/allimpc1-77.imp"
LENGTHP = ACC;
#line 2032 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   2033  L12:      QQQ=NEWCELL; REPLACE BOTH(QQQ,0,INCP); ->L4
#line 2033 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 2033 "regression-compile-tmp/allimpc1-77.imp"
QQQ = NEWCELL();
#line 2033 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(QQQ, 0, INCP);
#line 2033 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   2034  L15:      %REPEAT
#line 2034 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 2034 "regression-compile-tmp/allimpc1-77.imp"
goto L_024e;
#line 2034 "regression-compile-tmp/allimpc1-77.imp"
L_024f:;
                                                                //   2035           P=P+1;                        ! P ON REST OF FP LIST
#line 2035 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2036           ->L101 %IF A(P)=2; P=P+1; ->L1
#line 2036 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0255;
#line 2036 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 2036 "regression-compile-tmp/allimpc1-77.imp"
L_0255:;
#line 2036 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2036 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
                                                                //   2037  L101:     P=P+1
#line 2037 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 2037 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2038  L102:     ->L201 %IF A(P)=2;             ! NO ARRAYS
#line 2038 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 2038 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0256;
#line 2038 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 2038 "regression-compile-tmp/allimpc1-77.imp"
L_0256:;
                                                                //   2039           P=P+2; CLT
#line 2039 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2039 "regression-compile-tmp/allimpc1-77.imp"
CLT();
                                                                //   2040           NAM= 2*(2-A(P))
#line 2040 "regression-compile-tmp/allimpc1-77.imp"
NAM = ((2) * ((int)(((2) - ((int)(A[((P) + ((int)(2)))]))))));
                                                                //   2041           ACC=4 %IF NAM#0;P=P+1
#line 2041 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (0))) goto L_0257;
#line 2041 "regression-compile-tmp/allimpc1-77.imp"
ACC = 4;
#line 2041 "regression-compile-tmp/allimpc1-77.imp"
L_0257:;
#line 2041 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2042           ROUT=0; ARR=1; PACK(PTYPE)
#line 2042 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
#line 2042 "regression-compile-tmp/allimpc1-77.imp"
ARR = 1;
#line 2042 "regression-compile-tmp/allimpc1-77.imp"
PACK(&PTYPE);
                                                                //   2043  L103:
#line 2043 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
                                                                //   2044           PSI(X'92',0,RBASE,N+INC);     ! FLAG FOR ARRAYS
#line 2044 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, 0, RBASE, (((int)(N)) + (INC)));
                                                                //   2045           DUMP(1,WSPR,N+INC+8,0,RBASE); ! PTR TO DOPE VECTOR
#line 2045 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, WSPR, (((int)((((int)(N)) + (INC)))) + (8)), 0, RBASE);
                                                                //   2046           QQ=P; CADCLN(1)
#line 2046 "regression-compile-tmp/allimpc1-77.imp"
QQ = P;
#line 2046 "regression-compile-tmp/allimpc1-77.imp"
CADCLN(1);
                                                                //   2047           JJ=P; P=QQ+2
#line 2047 "regression-compile-tmp/allimpc1-77.imp"
JJ = P;
#line 2047 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(QQ)) + (2));
                                                                //   2048           REP=P+A(P-1);                 ! AFTER LAST NAME
#line 2048 "regression-compile-tmp/allimpc1-77.imp"
REP = ((P) + ((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))])));
                                                                //   2049  L105:     INSERT AFTER(OPHEAD,J!PTYPE<<4!A(P)<<20,INC)
#line 2049 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 2049 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, ((((J) | (((PTYPE) << (4))))) | (((A[((P) + ((int)(2)))]) << (20)))), INC);
                                                                //   2050           INC=INC+16; Q=Q+1
#line 2050 "regression-compile-tmp/allimpc1-77.imp"
INC = (((int)(INC)) + (16));
#line 2050 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
                                                                //   2051           P=P+1; ->L106 %IF P=REP
#line 2051 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2051 "regression-compile-tmp/allimpc1-77.imp"
if (((P) != (REP))) goto L_0258;
#line 2051 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 2051 "regression-compile-tmp/allimpc1-77.imp"
L_0258:;
                                                                //   2052           PSS(X'D2',16,RBASE,N+INC,RBASE,N+INC-16); ->L105
#line 2052 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 16, RBASE, (((int)(N)) + (INC)), RBASE, (((int)((((int)(N)) + (INC)))) - (16)));
#line 2052 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
                                                                //   2053  L106:     P=JJ+2
#line 2053 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 2053 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(JJ)) + (2));
                                                                //   2054           ->L103 %IF A(P-1)=1; ->L102;    ! P ON RESTOFARRAYLIST
#line 2054 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_0259;
#line 2054 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 2054 "regression-compile-tmp/allimpc1-77.imp"
L_0259:;
#line 2054 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
                                                                //   2055  L201:     REPLACE BOTH(JJJ,N,Q)
#line 2055 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 2055 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(JJJ, N, Q);
                                                                //   2056           PRX(X'41',1,0,0,Q);           ! LA 1,ITEMS
#line 2056 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, 0, Q);
                                                                //   2057           DUMP(5,1,N,0,RBASE);         !STH
#line 2057 "regression-compile-tmp/allimpc1-77.imp"
DUMP(5, 1, N, 0, RBASE);
                                                                //   2058           DUMP(0,1,N,0,RBASE)
#line 2058 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 1, N, 0, RBASE);
                                                                //   2059           PPJ(25); N=N+INC
#line 2059 "regression-compile-tmp/allimpc1-77.imp"
PPJ(25);
#line 2059 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (INC));
                                                                //   2060           %END
#line 2060 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRFORMAT at level 3
                                                                //   2061           %ROUTINE     CADCLN(%BYTEINTEGER MODE)
#line 2061 "regression-compile-tmp/allimpc1-77.imp"
void CADCLN( unsigned char MODE )
#line 2061 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2062           !%SHORTROUTINE
                                                                //   2063  ! MODE=0 NORMAL DECN, =1 IN RECORD FORMAY, =2 RECORD ARRAY
                                                                //   2064  ! P POINTS TO NAMELIST -1
                                                                //   2065           %INTEGER Q,QQ,KK,S,JJ,JJJ
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int S;
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 2065 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
                                                                //   2066           Q=P; PTYPEP=PTYPE
#line 2066 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
#line 2066 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
                                                                //   2067  L1:       P=A(Q+1)+Q+1
#line 2067 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 2067 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) + (Q)))) + (1));
                                                                //   2068           KK=0;  %IF MODE=1 %THEN ->L4
#line 2068 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
#line 2068 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_025a;
#line 2068 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2068 "regression-compile-tmp/allimpc1-77.imp"
L_025a:;
                                                                //   2069           PRX(X'50',WSPR,0,GLA,36);     ! PTR TO DOPE VECTOR INTO GLA
#line 2069 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, WSPR, 0, GLA, 36);
                                                                //   2070           PSI(X'92',1,GLA,36) %IF UNASS=1;! FLAG TO FILL WITH X'000'
#line 2070 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_025b;
#line 2070 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, 1, GLA, 36);
#line 2070 "regression-compile-tmp/allimpc1-77.imp"
L_025b:;
                                                                //   2071  L4:       P=P+2; JJ=P; KK=KK+1
#line 2071 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 2071 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2071 "regression-compile-tmp/allimpc1-77.imp"
JJ = P;
#line 2071 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)(KK)) + (1));
                                                                //   2072           SKIP EXP; QQ=TSEXP(JJJ); P=JJ
#line 2072 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 2072 "regression-compile-tmp/allimpc1-77.imp"
QQ = TSEXP(&JJJ);
#line 2072 "regression-compile-tmp/allimpc1-77.imp"
P = JJ;
                                                                //   2073           %IF QQ=0 %THEN CSEXP(4,1) %ELSE CSEXP(1,1)
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
if (((QQ) != (0))) goto L_025c;
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(4, 1);
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
goto L_025d;
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
L_025c:;
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 2073 "regression-compile-tmp/allimpc1-77.imp"
L_025d:;
                                                                //   2074           REGISTER(4)=1; CSEXP(2,1); REGISTER(4)=0
#line 2074 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 1;
#line 2074 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
#line 2074 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 0;
                                                                //   2075           PRR(X'18',1,4) %IF QQ=0;      ! BOUND PAIR NOW IN R1 & R2
#line 2075 "regression-compile-tmp/allimpc1-77.imp"
if (((QQ) != (0))) goto L_025e;
#line 2075 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, 4);
#line 2075 "regression-compile-tmp/allimpc1-77.imp"
L_025e:;
                                                                //   2076           ->L41 %UNLESS KK=1; S=1
#line 2076 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) == (1))) goto L_025f;
#line 2076 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 2076 "regression-compile-tmp/allimpc1-77.imp"
L_025f:;
#line 2076 "regression-compile-tmp/allimpc1-77.imp"
S = 1;
                                                                //   2077           %UNLESS MODE=2 %THEN %START
#line 2077 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (2))) goto L_0260;
                                                                //   2078           S=0; PRX(X'41',0,0,0,ACC); %FINISH;
#line 2078 "regression-compile-tmp/allimpc1-77.imp"
S = 0;
#line 2078 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 0, 0, 0, ACC);
#line 2078 "regression-compile-tmp/allimpc1-77.imp"
L_0260:;
                                                                //   2079           PRX(X'90',S,2,WSPR,4*S); !      STM TO DUMP BOUND PAIR & R0
#line 2079 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, S, 2, WSPR, (((int)(4)) * (S)));
                                                                //   2080           PSI(X'92',3-A(P),WSPR,1);     ! MVI TO SET DIMENSION
#line 2080 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, ((3) - ((int)(A[((P) + ((int)(2)))]))), WSPR, 1);
                                                                //   2081           MOVER(WSPR,16); ->L42
#line 2081 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, 16);
#line 2081 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   2082  L41:      S=(KK&1)<<2
#line 2082 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 2082 "regression-compile-tmp/allimpc1-77.imp"
S = ((((KK) & (1))) << (2));
                                                                //   2083           %IF S=0 %THEN JJJ=8*A(P) %ELSE JJJ=16
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (0))) goto L_0261;
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
JJJ = ((8) * ((int)(A[((P) + ((int)(2)))])));
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
goto L_0262;
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
L_0261:;
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 16;
#line 2083 "regression-compile-tmp/allimpc1-77.imp"
L_0262:;
                                                                //   2084           PRX(X'90',1,2,WSPR,S)
#line 2084 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 1, 2, WSPR, S);
                                                                //   2085           MOVER(WSPR,JJJ)
#line 2085 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, JJJ);
                                                                //   2086  L42:      ->L4 %IF A(P)=1;               ! FOR NEXT BOUND PAIR
#line 2086 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 2086 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0263;
#line 2086 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2086 "regression-compile-tmp/allimpc1-77.imp"
L_0263:;
                                                                //   2087           ->L5 %IF KK<=2
#line 2087 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) > (2))) goto L_0264;
#line 2087 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 2087 "regression-compile-tmp/allimpc1-77.imp"
L_0264:;
                                                                //   2088           FAULT(37) %IF KK>6
#line 2088 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) <= (6))) goto L_0265;
#line 2088 "regression-compile-tmp/allimpc1-77.imp"
FAULT(37);
#line 2088 "regression-compile-tmp/allimpc1-77.imp"
L_0265:;
                                                                //   2089                 PACLOD(27,3,KK);        !  L 1,=A(DV)--MVI 1(1),KK
#line 2089 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(27, 3, KK);
                                                                //   2090  L5:       QQ=Q+1; J=KK; PTYPE=PTYPEP; ->L9 %IF MODE >=1
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(Q)) + (1));
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
J = KK;
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) < (1))) goto L_0266;
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 2090 "regression-compile-tmp/allimpc1-77.imp"
L_0266:;
                                                                //   2091           %CYCLE JJJ=1,1,A(QQ)
#line 2091 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; JJJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 1, 1, A[((QQ) + ((int)(2)))]");
JJJ -= _increment; _control -= _increment;
L_0267:;
if (JJJ == _final) goto L_0268;
JJJ += _increment; _control += _increment;
if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */
}
                                                                //   2092           K=A(QQ+JJJ); TESTNST; J=KK
#line 2092 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(QQ)) + (JJJ)))) + (2))];
#line 2092 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
#line 2092 "regression-compile-tmp/allimpc1-77.imp"
J = KK;
                                                                //   2093           STORE TAG(K,N);PPJ(13)
#line 2093 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
#line 2093 "regression-compile-tmp/allimpc1-77.imp"
PPJ(13);
                                                                //   2094           PRX(X'90',0,3,RBASE,N);       ! STM 0,3--SAVE ARRAYHEAD
#line 2094 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 3, RBASE, N);
                                                                //   2095           N=N+16; %REPEAT
#line 2095 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (16));
#line 2095 "regression-compile-tmp/allimpc1-77.imp"
goto L_0267;
#line 2095 "regression-compile-tmp/allimpc1-77.imp"
L_0268:;
                                                                //   2096           Q=P+2; ->L1 %IF A(Q-1)=1
#line 2096 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(P)) + (2));
#line 2096 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(Q)) - (1)))) + (2))]) != (1))) goto L_026a;
#line 2096 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 2096 "regression-compile-tmp/allimpc1-77.imp"
L_026a:;
                                                                //   2097  L9:       %END
#line 2097 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 2097 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CADCLN at level 3
                                                                //   2098           %ROUTINE     CVDECLN
#line 2098 "regression-compile-tmp/allimpc1-77.imp"
void CVDECLN( void )
#line 2098 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2099           !%SHORTROUTINE
                                                                //   2100           %INTEGER LB,UB,ADV,Q,QQ,RANGE,JJJ,KK,DISP0,DISP1
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int LB;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int UB;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int ADV;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int RANGE;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int DISP0;
#line 2100 "regression-compile-tmp/allimpc1-77.imp"
int DISP1;
                                                                //   2101           Q=P
#line 2101 "regression-compile-tmp/allimpc1-77.imp"
Q = P;
                                                                //   2102           P=A(Q+1)+Q+2
#line 2102 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) + (Q)))) + (2));
                                                                //   2103           CBPAIR(LB,UB)
#line 2103 "regression-compile-tmp/allimpc1-77.imp"
CBPAIR(&LB, &UB);
                                                                //   2104           ADV=N0
#line 2104 "regression-compile-tmp/allimpc1-77.imp"
ADV = N0;
                                                                //   2105           ST(N0)=1<<16!ACC
#line 2105 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = ((((1) << (16))) | (ACC));
                                                                //   2106           ST(N0+1)=LB
#line 2106 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = LB;
                                                                //   2107           ST(N0+2)=UB
#line 2107 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = UB;
                                                                //   2108           RANGE=UB-LB+1
#line 2108 "regression-compile-tmp/allimpc1-77.imp"
RANGE = (((int)((((int)(UB)) - (LB)))) + (1));
                                                                //   2109           ST(N0+3)=RANGE; N0=N0+4
#line 2109 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (3))] = RANGE;
#line 2109 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (4));
                                                                //   2110           FAULT(44) %IF LB>UB
#line 2110 "regression-compile-tmp/allimpc1-77.imp"
if (((LB) <= (UB))) goto L_026b;
#line 2110 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 2110 "regression-compile-tmp/allimpc1-77.imp"
L_026b:;
                                                                //   2111           PRX(X'41',2,0,GLA,ADV<<2)
#line 2111 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 2, 0, GLA, ((ADV) << (2)));
                                                                //   2112           PRX(X'41',3,0,0,RANGE)
#line 2112 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 3, 0, 0, RANGE);
                                                                //   2113           QQ=Q+1; J=1
#line 2113 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(Q)) + (1));
#line 2113 "regression-compile-tmp/allimpc1-77.imp"
J = 1;
                                                                //   2114           %CYCLE JJJ=1,1,A(QQ)
#line 2114 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; JJJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 1, 1, A[((QQ) + ((int)(2)))]");
JJJ -= _increment; _control -= _increment;
L_026c:;
if (JJJ == _final) goto L_026d;
JJJ += _increment; _control += _increment;
if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */
}
                                                                //   2115           N=(N+7)&(-8)
#line 2115 "regression-compile-tmp/allimpc1-77.imp"
N = (((((int)(N)) + (7))) & ((-8)));
                                                                //   2116           DISP1=N+16
#line 2116 "regression-compile-tmp/allimpc1-77.imp"
DISP1 = (((int)(N)) + (16));
                                                                //   2117           DISP0=DISP1-LB*ACC; FAULT(44) %UNLESS 0<DISP0<4095
#line 2117 "regression-compile-tmp/allimpc1-77.imp"
DISP0 = ((DISP1) - ((int)((((int)(LB)) * (ACC)))));
#line 2117 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) >= (DISP0))) || (((DISP0) < (4095)))) goto L_026f;
#line 2117 "regression-compile-tmp/allimpc1-77.imp"
L_0168:;
#line 2117 "regression-compile-tmp/allimpc1-77.imp"
FAULT(44);
#line 2117 "regression-compile-tmp/allimpc1-77.imp"
L_026f:;
                                                                //   2118           KK=NEWCELL; REPLACE BOTH(KK,DISP0,N)
#line 2118 "regression-compile-tmp/allimpc1-77.imp"
KK = NEWCELL();
#line 2118 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(KK, DISP0, N);
                                                                //   2119           PRX(X'41',0,0,RBASE,DISP0)
#line 2119 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 0, 0, RBASE, DISP0);
                                                                //   2120           PRX(X'41',1,0,RBASE,DISP1)
#line 2120 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, RBASE, DISP1);
                                                                //   2121           K=A(QQ+JJJ); TESTNST
#line 2121 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(QQ)) + (JJJ)))) + (2))];
#line 2121 "regression-compile-tmp/allimpc1-77.imp"
TESTNST();
                                                                //   2122           STORE TAG(K,KK)
#line 2122 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, KK);
                                                                //   2123           PRX(X'90',0,3,RBASE,N)
#line 2123 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 3, RBASE, N);
                                                                //   2124           SET80(DISP1,ACC*RANGE) %IF UNASS=1
#line 2124 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0270;
#line 2124 "regression-compile-tmp/allimpc1-77.imp"
SET80(DISP1, (((int)(ACC)) * (RANGE)));
#line 2124 "regression-compile-tmp/allimpc1-77.imp"
L_0270:;
                                                                //   2125           N=DISP1+ACC*RANGE
#line 2125 "regression-compile-tmp/allimpc1-77.imp"
N = ((DISP1) + ((int)((((int)(ACC)) * (RANGE)))));
                                                                //   2126           %REPEAT
#line 2126 "regression-compile-tmp/allimpc1-77.imp"
goto L_026c;
#line 2126 "regression-compile-tmp/allimpc1-77.imp"
L_026d:;
                                                                //   2127           P=P+1; %IF A(P-1)=1 %THEN CVDECLN
#line 2127 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2127 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_0271;
#line 2127 "regression-compile-tmp/allimpc1-77.imp"
CVDECLN();
#line 2127 "regression-compile-tmp/allimpc1-77.imp"
L_0271:;
                                                                //   2128           N=(N+3)&(-4)
#line 2128 "regression-compile-tmp/allimpc1-77.imp"
N = (((((int)(N)) + (3))) & ((-4)));
                                                                //   2129           %END
#line 2129 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CVDECLN at level 3
                                                                //   2130           %ROUTINE     CSEXP(%INTEGER REG,%BYTEINTEGER MODE)
#line 2130 "regression-compile-tmp/allimpc1-77.imp"
void CSEXP( int REG, unsigned char MODE )
#line 2130 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2131           %COMMENT MODE=1 FOR %INTEGER, =2REAL, =3LONG,=0INTEGER %IF PNS
                                                                //   2132           %INTEGER C,D,QP,NOP,X,JJ,OPCODE
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int C;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int D;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int QP;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int NOP;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int X;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 2132 "regression-compile-tmp/allimpc1-77.imp"
int OPCODE;
                                                                //   2133           %INTEGER EVALUATE,OPND
#line 2133 "regression-compile-tmp/allimpc1-77.imp"
int EVALUATE;
#line 2133 "regression-compile-tmp/allimpc1-77.imp"
int OPND;
                                                                //   2134           %SHORTINTEGER OPHEAD
#line 2134 "regression-compile-tmp/allimpc1-77.imp"
short OPHEAD;
                                                                //   2135           %BYTEINTEGER REAL,LONGREAL,REALOP
#line 2135 "regression-compile-tmp/allimpc1-77.imp"
unsigned char REAL;
#line 2135 "regression-compile-tmp/allimpc1-77.imp"
unsigned char LONGREAL;
#line 2135 "regression-compile-tmp/allimpc1-77.imp"
unsigned char REALOP;
                                                                //   2136           %INTEGER OPERATOR,NOPS,LASTOP
#line 2136 "regression-compile-tmp/allimpc1-77.imp"
int OPERATOR;
#line 2136 "regression-compile-tmp/allimpc1-77.imp"
int NOPS;
#line 2136 "regression-compile-tmp/allimpc1-77.imp"
int LASTOP;
                                                                //   2137           %INTEGERARRAY BS,PT,DP(1:2)
#line 2137 "regression-compile-tmp/allimpc1-77.imp"
int BS[2];
#line 2137 "regression-compile-tmp/allimpc1-77.imp"
int PT[2];
#line 2137 "regression-compile-tmp/allimpc1-77.imp"
int DP[2];
                                                                //   2138                 %INTEGERARRAY OP,OPPREC(0:5)
#line 2138 "regression-compile-tmp/allimpc1-77.imp"
int OP[6];
#line 2138 "regression-compile-tmp/allimpc1-77.imp"
int OPPREC[6];
                                                                //   2139           %ROUTINESPEC TEST(%INTEGER N)
#line 2139 "regression-compile-tmp/allimpc1-77.imp"
auto void TEST( int N );
                                                                //   2140           %ROUTINESPEC PLANT(%INTEGER A,B,C)
#line 2140 "regression-compile-tmp/allimpc1-77.imp"
auto void PLANT( int A, int B, int C );
                                                                //   2141           %INTEGERFNSPEC FINDR
#line 2141 "regression-compile-tmp/allimpc1-77.imp"
auto int FINDR( void );
                                                                //   2142           %ROUTINESPEC LOAD(%INTEGERNAME N,%INTEGER REG,MODE)
#line 2142 "regression-compile-tmp/allimpc1-77.imp"
auto void LOAD( int /*name*/*N, int REG, int MODE );
                                                                //   2143           %ROUTINESPEC PRINT ORDERS
#line 2143 "regression-compile-tmp/allimpc1-77.imp"
auto void PRINTORDERS( void );
                                                                //   2144           %OWNINTEGER N0=1024
#line 2144 "regression-compile-tmp/allimpc1-77.imp"
static int N0 = 1024;
                                                                //   2145           QP=0; OPHEAD=0; OPCODE=0
#line 2145 "regression-compile-tmp/allimpc1-77.imp"
QP = 0;
#line 2145 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = 0;
#line 2145 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = 0;
                                                                //   2146           REAL=0; LONGREAL=0; REALOP=0
#line 2146 "regression-compile-tmp/allimpc1-77.imp"
REAL = 0;
#line 2146 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 0;
#line 2146 "regression-compile-tmp/allimpc1-77.imp"
REALOP = 0;
                                                                //   2147           NOPS=0; LASTOP=0
#line 2147 "regression-compile-tmp/allimpc1-77.imp"
NOPS = 0;
#line 2147 "regression-compile-tmp/allimpc1-77.imp"
LASTOP = 0;
                                                                //   2148           %BEGIN
#line 2148 "regression-compile-tmp/allimpc1-77.imp"
void _BLOCK_5_LEVEL_3_(void) {
                                                                //   2149           !%SHORTROUTINE
                                                                //   2150           %SWITCH S,SW(1:4)
#line 2150 "regression-compile-tmp/allimpc1-77.imp"
static int sw7_S_idx;
static const void * /*SWITCH*/ sw7_S[4] = { &&sw7_S_1, &&sw7_S_2, &&sw7_S_3, &&sw7_S_4,  };
#line 2150 "regression-compile-tmp/allimpc1-77.imp"
static int sw8_SW_idx;
static const void * /*SWITCH*/ sw8_SW[4] = { &&sw8_SW_1, &&sw8_SW_2, &&sw8_SW_3, &&sw8_SW_4,  };
                                                                //   2151           AFLAG=0; NOP=N0
#line 2151 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2151 "regression-compile-tmp/allimpc1-77.imp"
NOP = N0;
                                                                //   2152           OP(0)=0; OPPREC(0)=0
#line 2152 "regression-compile-tmp/allimpc1-77.imp"
OP[0] = 0;
#line 2152 "regression-compile-tmp/allimpc1-77.imp"
OPPREC[0] = 0;
                                                                //   2153           ->S(A(P));                    !SWITCH ON PHRASE (+1)
#line 2153 "regression-compile-tmp/allimpc1-77.imp"
sw7_S_idx = A[((P) + ((int)(2)))]; if ((1 <= sw7_S_idx) && (sw7_S_idx <= 4)) goto *(sw7_S-1)[sw7_S_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw7_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 1:4 at %s:%d\n",
           sw7_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2154  S(2):                                  !NEGATE
#line 2154 "regression-compile-tmp/allimpc1-77.imp"
sw7_S_2:;
                                                                //   2155           OP(1)=11;
#line 2155 "regression-compile-tmp/allimpc1-77.imp"
OP[1] = 11;
                                                                //   2156  L101:     OPPREC(1)=2+OP(1)//6; QP=1; ->L1
#line 2156 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 2156 "regression-compile-tmp/allimpc1-77.imp"
OPPREC[1] = ((2) + (((long)((long)((int)(OP[1])) / (long)((int)(6))))));
#line 2156 "regression-compile-tmp/allimpc1-77.imp"
QP = 1;
#line 2156 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   2157  S(3):    OP(1)=23; ->L101;              !INITIAL NOT
#line 2157 "regression-compile-tmp/allimpc1-77.imp"
sw7_S_3:;
#line 2157 "regression-compile-tmp/allimpc1-77.imp"
OP[1] = 23;
#line 2157 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   2158  S(1):S(4):L1:                           ! PLUS OR NULL ALTERNATIVE
#line 2158 "regression-compile-tmp/allimpc1-77.imp"
sw7_S_1:;
#line 2158 "regression-compile-tmp/allimpc1-77.imp"
sw7_S_4:;
#line 2158 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
                                                                //   2159           OPND=A(P+1); P=P+2; QP=QP+1
#line 2159 "regression-compile-tmp/allimpc1-77.imp"
OPND = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 2159 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2159 "regression-compile-tmp/allimpc1-77.imp"
QP = (((int)(QP)) + (1));
                                                                //   2160           ->SW(OPND);         ! SWITCH ON OPERAND
#line 2160 "regression-compile-tmp/allimpc1-77.imp"
sw8_SW_idx = OPND; if ((1 <= sw8_SW_idx) && (sw8_SW_idx <= 4)) goto *(sw8_SW-1)[sw8_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw8_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw8_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2161  SW(1):                                 !NAME
#line 2161 "regression-compile-tmp/allimpc1-77.imp"
sw8_SW_1:;
                                                                //   2162           COPYTAG(A(P))
#line 2162 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((P) + ((int)(2)))]);
                                                                //   2163           ->REGVAR %IF TYPE=8
#line 2163 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (8))) goto L_0272;
#line 2163 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 2163 "regression-compile-tmp/allimpc1-77.imp"
L_0272:;
                                                                //   2164           ->L19 %IF TYPE=3 %AND ARR=0 %AND INREG#0
#line 2164 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0273;
#line 2164 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0273;
#line 2164 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_0273;
#line 2164 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 2164 "regression-compile-tmp/allimpc1-77.imp"
L_0273:;
                                                                //   2165           ->L171 %IF ARR=2 %AND A(P+1)=1
#line 2165 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (2))) goto L_0274;
#line 2165 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_0274;
#line 2165 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
#line 2165 "regression-compile-tmp/allimpc1-77.imp"
L_0274:;
                                                                //   2166           ->L17 %IF 1<=TYPE<=2 %AND ARR=0 %AND ROUT=0 %AND A(P+1)=2=A(P+2)
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0275;
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0275;
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (0))) goto L_0275;
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0275;
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2166 "regression-compile-tmp/allimpc1-77.imp"
L_0275:;
                                                                //   2167  L10:
#line 2167 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
                                                                //   2168           ->L14 %UNLESS TYPE=1 %OR(ROUT=1%AND TYPE=6%AND TSNAME(K)&7=1)
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (1))) goto L_0276;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_026e;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (6))) goto L_026e;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
if (((((TSNAME[K]) & (7))) == (1))) goto L_0276;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
L_026e:;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2168 "regression-compile-tmp/allimpc1-77.imp"
L_0276:;
                                                                //   2169           C=P; ->L11 %IF QP>1
#line 2169 "regression-compile-tmp/allimpc1-77.imp"
C = P;
#line 2169 "regression-compile-tmp/allimpc1-77.imp"
if (((QP) <= (1))) goto L_0277;
#line 2169 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2169 "regression-compile-tmp/allimpc1-77.imp"
L_0277:;
                                                                //   2170           P=P+1; SKIPAPP; ->L11 %UNLESS A(P)=A(P+1)=2
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[((P) + ((int)(2)))]) != (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) || (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (2)))) goto L_0279;
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
L_0278:;
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2170 "regression-compile-tmp/allimpc1-77.imp"
L_0279:;
                                                                //   2171           P=C; C=REG
#line 2171 "regression-compile-tmp/allimpc1-77.imp"
P = C;
#line 2171 "regression-compile-tmp/allimpc1-77.imp"
C = REG;
                                                                //   2172           %IF REG<=0 %THEN %START
#line 2172 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) > (0))) goto L_027a;
                                                                //   2173           C=FINDR; REGISTER(C)=0
#line 2173 "regression-compile-tmp/allimpc1-77.imp"
C = FINDR();
#line 2173 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[C] = 0;
                                                                //   2174           %FINISH
#line 2174 "regression-compile-tmp/allimpc1-77.imp"
L_027a:;
                                                                //   2175           CNAME(2,C); NEST=C; ->L80;     ! ONE OPND EXPR
#line 2175 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, C);
#line 2175 "regression-compile-tmp/allimpc1-77.imp"
NEST = C;
#line 2175 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2176  L11:      P=C
#line 2176 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2176 "regression-compile-tmp/allimpc1-77.imp"
P = C;
                                                                //   2177           C=FINDPP; ->L14 %IF C=0
#line 2177 "regression-compile-tmp/allimpc1-77.imp"
C = FINDPP();
#line 2177 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != (0))) goto L_027b;
#line 2177 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2177 "regression-compile-tmp/allimpc1-77.imp"
L_027b:;
                                                                //   2178           CNAME(2,C); NEST=C
#line 2178 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, C);
#line 2178 "regression-compile-tmp/allimpc1-77.imp"
NEST = C;
                                                                //   2179           ->L80 %IF QP=1 %AND A(P)=2;P=P+1;   ! ONE OPND EXPR
#line 2179 "regression-compile-tmp/allimpc1-77.imp"
if (((QP) != (1))) goto L_027c;
#line 2179 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_027c;
#line 2179 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2179 "regression-compile-tmp/allimpc1-77.imp"
L_027c:;
#line 2179 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2180  L12:      ST(N0)=9; ST(N0+1)=C; N0=N0+3
#line 2180 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2180 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 9;
#line 2180 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = C;
#line 2180 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
                                                                //   2181           REGISTER(C)=1
#line 2181 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[C] = 1;
                                                                //   2182           ->L50
#line 2182 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2183  L14:      %COMMENT OPERAND MUST BE FETCHED AND STORED
#line 2183 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
                                                                //   2184           CNAME (2,2);NEST =2
#line 2184 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, 2);
#line 2184 "regression-compile-tmp/allimpc1-77.imp"
NEST = 2;
                                                                //   2185           %IF TYPE=5 %THEN %START; FAULT(42); TYPE=1; %FINISH;
#line 2185 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_027d;
#line 2185 "regression-compile-tmp/allimpc1-77.imp"
FAULT(42);
#line 2185 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
#line 2185 "regression-compile-tmp/allimpc1-77.imp"
L_027d:;
                                                                //   2186           %IF TYPE=2 %THEN FREG(2)=1 %ELSE REGISTER(2)=1
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_027e;
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
FREG[2] = 1;
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
goto L_027f;
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
L_027e:;
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[2] = 1;
#line 2186 "regression-compile-tmp/allimpc1-77.imp"
L_027f:;
                                                                //   2187           NAM=0;ARR=0;ROUT=0
#line 2187 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 2187 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
#line 2187 "regression-compile-tmp/allimpc1-77.imp"
ROUT = 0;
                                                                //   2188           LONGREAL=1 %IF PREC=3
#line 2188 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_0280;
#line 2188 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2188 "regression-compile-tmp/allimpc1-77.imp"
L_0280:;
                                                                //   2189           ->L80 %IF QP=1 %AND A(P)=2
#line 2189 "regression-compile-tmp/allimpc1-77.imp"
if (((QP) != (1))) goto L_0281;
#line 2189 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0281;
#line 2189 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2189 "regression-compile-tmp/allimpc1-77.imp"
L_0281:;
                                                                //   2190  L16:      ->L15 %IF TYPE=1
#line 2190 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2190 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_0282;
#line 2190 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 2190 "regression-compile-tmp/allimpc1-77.imp"
L_0282:;
                                                                //   2191           REAL=1; LONGREAL=1 %IF PREC=3
#line 2191 "regression-compile-tmp/allimpc1-77.imp"
REAL = 1;
#line 2191 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_0283;
#line 2191 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2191 "regression-compile-tmp/allimpc1-77.imp"
L_0283:;
                                                                //   2192           ->L161 %IF A(P)=2;             ! EXPRESSION ENDED
#line 2192 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0284;
#line 2192 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
#line 2192 "regression-compile-tmp/allimpc1-77.imp"
L_0284:;
                                                                //   2193           C=PARKF(NEST,PREC)
#line 2193 "regression-compile-tmp/allimpc1-77.imp"
C = PARKF(NEST, PREC);
                                                                //   2194           FREG(NEST)=0
#line 2194 "regression-compile-tmp/allimpc1-77.imp"
FREG[NEST] = 0;
                                                                //   2195  L13:      ST(N0)=10; P=P+1
#line 2195 "regression-compile-tmp/allimpc1-77.imp"
U_1085:;
#line 2195 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 10;
#line 2195 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2196           ST(N0+1)=RBASE!(TYPE!PREC<<3!NAM<<6)<<8
#line 2196 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = ((RBASE) | (((((((TYPE) | (((PREC) << (3))))) | (((NAM) << (6))))) << (8))));
                                                                //   2197           ST(N0+2)=C; N0=N0+3; ->L50
#line 2197 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = C;
#line 2197 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2197 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2198  L161:     ST(N0)=8; ST(N0+1)=NEST+512+PREC<<11
#line 2198 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
#line 2198 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 8;
#line 2198 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = ((((((int)(NEST)) + (512)))) + (((PREC) << (11))));
                                                                //   2199           FREG(NEST)=1
#line 2199 "regression-compile-tmp/allimpc1-77.imp"
FREG[NEST] = 1;
                                                                //   2200           N0=N0+3; P=P+1; ->L50
#line 2200 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2200 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2200 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2201  L15:      C=NEST
#line 2201 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2201 "regression-compile-tmp/allimpc1-77.imp"
C = NEST;
                                                                //   2202           C=PARK(NEST)
#line 2202 "regression-compile-tmp/allimpc1-77.imp"
C = PARK(NEST);
                                                                //   2203           REGISTER(NEST)=0 %UNLESS NEST=C
#line 2203 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) == (C))) goto L_0285;
#line 2203 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[NEST] = 0;
#line 2203 "regression-compile-tmp/allimpc1-77.imp"
L_0285:;
                                                                //   2204           ->L18 %IF C>0;     ! IN GENERAL REGISTER
#line 2204 "regression-compile-tmp/allimpc1-77.imp"
if (((C) <= (0))) goto L_0286;
#line 2204 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 2204 "regression-compile-tmp/allimpc1-77.imp"
L_0286:;
                                                                //   2205           C=|C|; PREC=0; ->L13;          ! IN CORE EQUIVALENT TO INTEGER
#line 2205 "regression-compile-tmp/allimpc1-77.imp"
C = _imp_IMOD(C);
#line 2205 "regression-compile-tmp/allimpc1-77.imp"
PREC = 0;
#line 2205 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
                                                                //   2206  L18:      P=P+1; ->L12
#line 2206 "regression-compile-tmp/allimpc1-77.imp"
U_1086:;
#line 2206 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2206 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2207  L17:      %COMMENT OPND HAS BASE REGISTER COVER
#line 2207 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
                                                                //   2208           ST(N0)=2; ST(N0+1)=I!(TYPE!PREC<<3!NAM<<6)<<8
#line 2208 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 2;
#line 2208 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = ((I) | (((((((TYPE) | (((PREC) << (3))))) | (((NAM) << (6))))) << (8))));
                                                                //   2209           ST(N0+2)=K; P=P+4; N0=N0+3
#line 2209 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = K;
#line 2209 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (4));
#line 2209 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
                                                                //   2210           REAL=1 %IF TYPE=2
#line 2210 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0287;
#line 2210 "regression-compile-tmp/allimpc1-77.imp"
REAL = 1;
#line 2210 "regression-compile-tmp/allimpc1-77.imp"
L_0287:;
                                                                //   2211           LONGREAL=1 %IF PREC=3
#line 2211 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_0288;
#line 2211 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2211 "regression-compile-tmp/allimpc1-77.imp"
L_0288:;
                                                                //   2212           ->L50 %UNLESS UNASS=1 %AND(PREC=0 %OR PREC=3)
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0289;
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (0))) goto L_028a;
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (3))) goto L_028a;
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
L_0289:;
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2212 "regression-compile-tmp/allimpc1-77.imp"
L_028a:;
                                                                //   2213           ->L50 %IF NAM=1
#line 2213 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (1))) goto L_028b;
#line 2213 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2213 "regression-compile-tmp/allimpc1-77.imp"
L_028b:;
                                                                //   2214           PSS(X'D5',BYTES(PREC),I,K,GLA,128);      ! CLC V,=X'80808080'
#line 2214 "regression-compile-tmp/allimpc1-77.imp"
PSS(213, BYTES[PREC], I, K, GLA, 128);
                                                                //   2215           PRX(X'47',8,0,CODER,40); ->L50;;! CHECK ASSIGNED
#line 2215 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, 8, 0, CODER, 40);
#line 2215 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2216  L171:     ->L10 %UNLESS A(P+2)=4 %AND A(P+3)=2 %AND A(P+4)=9
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (4))) goto L_028c;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) goto L_028c;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) == (9))) goto L_028d;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
L_028c:;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2216 "regression-compile-tmp/allimpc1-77.imp"
L_028d:;
                                                                //   2217           ->L10 %UNLESS A(P+5)<256 %AND A(P+6)=2 %AND A(P+7)=2=A(P+8)
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) >= (256))) goto L_028e;
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) goto L_028e;
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (8)))) + (2))])))) goto L_028f;
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
L_028e:;
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2217 "regression-compile-tmp/allimpc1-77.imp"
L_028f:;
                                                                //   2218           FROM1(K,C); C=C+BYTES(PREC)*A(P+5)
#line 2218 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &C);
#line 2218 "regression-compile-tmp/allimpc1-77.imp"
C = ((C) + ((int)((((short)(BYTES[PREC])) * (A[(((unsigned char)((((int)(P)) + (5)))) + (2))])))));
                                                                //   2219           ->L10 %UNLESS 0<C<4096; K=C; P=P+6; ->L17
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) >= (C))) || (((C) < (4096)))) goto L_0291;
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
L_0290:;
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
L_0291:;
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
K = C;
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 2219 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   2220  L19:      ->L14 %UNLESS A(P+1)=2 %AND A(P+2)=1;    ! NO APP BIUT ENAME
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0292;
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (1))) goto L_0293;
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
L_0292:;
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2220 "regression-compile-tmp/allimpc1-77.imp"
L_0293:;
                                                                //   2221           P=P+3; FROM1(K,FNAME); I=INREG
#line 2221 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 2221 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &FNAME);
#line 2221 "regression-compile-tmp/allimpc1-77.imp"
I = INREG;
                                                                //   2222           K=DISPLACEMENT(FNAME)
#line 2222 "regression-compile-tmp/allimpc1-77.imp"
K = DISPLACEMENT(FNAME);
                                                                //   2223           ->L191 %IF I=-1; UNPACK
#line 2223 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != ((-1)))) goto L_0294;
#line 2223 "regression-compile-tmp/allimpc1-77.imp"
goto U_1087;
#line 2223 "regression-compile-tmp/allimpc1-77.imp"
L_0294:;
#line 2223 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   2224           ->L17 %IF ARR=0 %AND ROUT=0 %AND 1<=TYPE<=2 %AND A(P+1)=2%C
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0295;
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (0))) goto L_0295;
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0295;
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0295;
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2224 "regression-compile-tmp/allimpc1-77.imp"
L_0295:;
                                                                //   2225           =A(P+2);                      ! NO APP OR SECOND ENAME
                                                                //   2226  L191:     P=P-3; ->L14
#line 2226 "regression-compile-tmp/allimpc1-77.imp"
U_1087:;
#line 2226 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (3));
#line 2226 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
                                                                //   2227  REGVAR:  ->L14 %UNLESS A(P+1)=2=A(P+2);! NO APP OR ENAME
#line 2227 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 2227 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0297;
#line 2227 "regression-compile-tmp/allimpc1-77.imp"
L_0296:;
#line 2227 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2227 "regression-compile-tmp/allimpc1-77.imp"
L_0297:;
                                                                //   2228           P=P+4; ST(N0)=9; ST(N0+1)=K
#line 2228 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (4));
#line 2228 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 9;
#line 2228 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = K;
                                                                //   2229           N0=N0+3; ->L50
#line 2229 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2229 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2230  SW(2):                                 !CONSTANT
#line 2230 "regression-compile-tmp/allimpc1-77.imp"
sw8_SW_2:;
                                                                //   2231           C=A(P); ST(N0+1)=P; ST(N0+2)=A(P+1)
#line 2231 "regression-compile-tmp/allimpc1-77.imp"
C = A[((P) + ((int)(2)))];
#line 2231 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = P;
#line 2231 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
                                                                //   2232           ->L24 %IF C&7=2
#line 2232 "regression-compile-tmp/allimpc1-77.imp"
if (((((C) & (7))) != (2))) goto L_0298;
#line 2232 "regression-compile-tmp/allimpc1-77.imp"
goto U_1088;
#line 2232 "regression-compile-tmp/allimpc1-77.imp"
L_0298:;
                                                                //   2233           %IF C=5 %THEN %START
#line 2233 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != (5))) goto L_0299;
                                                                //   2234           FAULT(42); P=P+A(P+1)&X'FE'+1
#line 2234 "regression-compile-tmp/allimpc1-77.imp"
FAULT(42);
#line 2234 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(((P) + ((int)(((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (254))))))) + (1));
                                                                //   2235           C=9; %FINISH
#line 2235 "regression-compile-tmp/allimpc1-77.imp"
C = 9;
#line 2235 "regression-compile-tmp/allimpc1-77.imp"
L_0299:;
                                                                //   2236           ->L22 %UNLESS C>8;             !GO UNLESS IMMEDIATE
#line 2236 "regression-compile-tmp/allimpc1-77.imp"
if (((C) > (8))) goto L_029a;
#line 2236 "regression-compile-tmp/allimpc1-77.imp"
goto U_1089;
#line 2236 "regression-compile-tmp/allimpc1-77.imp"
L_029a:;
                                                                //   2237           ST(N0)=0
#line 2237 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 0;
                                                                //   2238  L21:      N0=N0+3; P=P+3;
#line 2238 "regression-compile-tmp/allimpc1-77.imp"
U_108a:;
#line 2238 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2238 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   2239           ->L50
#line 2239 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2240  L22:      ST(N0)=1; P=P+1; ->L21
#line 2240 "regression-compile-tmp/allimpc1-77.imp"
U_1089:;
#line 2240 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = 1;
#line 2240 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2240 "regression-compile-tmp/allimpc1-77.imp"
goto U_108a;
                                                                //   2241  L24:      REAL=1; P=P+2; ->L22
#line 2241 "regression-compile-tmp/allimpc1-77.imp"
U_1088:;
#line 2241 "regression-compile-tmp/allimpc1-77.imp"
REAL = 1;
#line 2241 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2241 "regression-compile-tmp/allimpc1-77.imp"
goto U_1089;
                                                                //   2242  SW(3):SW(4):                 ! SUB EXPRESSION
#line 2242 "regression-compile-tmp/allimpc1-77.imp"
sw8_SW_3:;
#line 2242 "regression-compile-tmp/allimpc1-77.imp"
sw8_SW_4:;
                                                                //   2243           D=0; D=1 %IF MODE=1 %OR LASTOP=12;! INTEGER EXPONENTS
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
D = 0;
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (1))) goto L_029b;
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
if (((LASTOP) != (12))) goto L_029c;
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
L_029b:;
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
D = 1;
#line 2243 "regression-compile-tmp/allimpc1-77.imp"
L_029c:;
                                                                //   2244           CSEXP(0,D)
#line 2244 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, D);
                                                                //   2245           ->L32 %UNLESS OPND=4
#line 2245 "regression-compile-tmp/allimpc1-77.imp"
if (((OPND) == (4))) goto L_029d;
#line 2245 "regression-compile-tmp/allimpc1-77.imp"
goto U_108b;
#line 2245 "regression-compile-tmp/allimpc1-77.imp"
L_029d:;
                                                                //   2246           D=16*TYPE
#line 2246 "regression-compile-tmp/allimpc1-77.imp"
D = ((16) * ((int)(TYPE)));
                                                                //   2247           D=48 %IF TYPE=2 %AND PREC=0
#line 2247 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_029e;
#line 2247 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (0))) goto L_029e;
#line 2247 "regression-compile-tmp/allimpc1-77.imp"
D = 48;
#line 2247 "regression-compile-tmp/allimpc1-77.imp"
L_029e:;
                                                                //   2248           PRR(D,NEST,NEST);             !DEAL WITH MOD SIGNS
#line 2248 "regression-compile-tmp/allimpc1-77.imp"
PRR(D, NEST, NEST);
                                                                //   2249  L32:      LONGREAL=1 %IF PREC=3
#line 2249 "regression-compile-tmp/allimpc1-77.imp"
U_108b:;
#line 2249 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_029f;
#line 2249 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2249 "regression-compile-tmp/allimpc1-77.imp"
L_029f:;
                                                                //   2250           ->L80 %IF QP=1 %AND A(P)=2;    !ONE OPD EXPRESSION
#line 2250 "regression-compile-tmp/allimpc1-77.imp"
if (((QP) != (1))) goto L_02a0;
#line 2250 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_02a0;
#line 2250 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2250 "regression-compile-tmp/allimpc1-77.imp"
L_02a0:;
                                                                //   2251           ->L16 ;                        !TO STORE RESULT
#line 2251 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
                                                                //   2252  L50:      %COMMENT DEAL WITH OPERATOR
#line 2252 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
                                                                //   2253           ->L60 %IF A(P-1)=2;            !EXPRESSION FINISHED
#line 2253 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_02a1;
#line 2253 "regression-compile-tmp/allimpc1-77.imp"
goto U_108c;
#line 2253 "regression-compile-tmp/allimpc1-77.imp"
L_02a1:;
                                                                //   2254           OPERATOR=A(P)
#line 2254 "regression-compile-tmp/allimpc1-77.imp"
OPERATOR = A[((P) + ((int)(2)))];
                                                                //   2255           %IF OPERATOR=12 %THEN %START; ! '.'
#line 2255 "regression-compile-tmp/allimpc1-77.imp"
if (((OPERATOR) != (12))) goto L_02a2;
                                                                //   2256           FAULT(42); OPERATOR=2; %FINISH;!   CHANGE TO +
#line 2256 "regression-compile-tmp/allimpc1-77.imp"
FAULT(42);
#line 2256 "regression-compile-tmp/allimpc1-77.imp"
OPERATOR = 2;
#line 2256 "regression-compile-tmp/allimpc1-77.imp"
L_02a2:;
                                                                //   2257           OPERATOR = 6 %IF OPERATOR=13;     !%NULL == *
#line 2257 "regression-compile-tmp/allimpc1-77.imp"
if (((OPERATOR) != (13))) goto L_02a3;
#line 2257 "regression-compile-tmp/allimpc1-77.imp"
OPERATOR = 6;
#line 2257 "regression-compile-tmp/allimpc1-77.imp"
L_02a3:;
                                                                //   2258           REALOP=1 %IF OPERATOR=1 %OR OPERATOR=8
#line 2258 "regression-compile-tmp/allimpc1-77.imp"
if (((OPERATOR) == (1))) goto L_02a4;
#line 2258 "regression-compile-tmp/allimpc1-77.imp"
if (((OPERATOR) != (8))) goto L_02a5;
#line 2258 "regression-compile-tmp/allimpc1-77.imp"
L_02a4:;
#line 2258 "regression-compile-tmp/allimpc1-77.imp"
REALOP = 1;
#line 2258 "regression-compile-tmp/allimpc1-77.imp"
L_02a5:;
                                                                //   2259           OPERATOR=12 %IF OPERATOR=1
#line 2259 "regression-compile-tmp/allimpc1-77.imp"
if (((OPERATOR) != (1))) goto L_02a6;
#line 2259 "regression-compile-tmp/allimpc1-77.imp"
OPERATOR = 12;
#line 2259 "regression-compile-tmp/allimpc1-77.imp"
L_02a6:;
                                                                //   2260           NOPS=NOPS+1; LASTOP=OPERATOR
#line 2260 "regression-compile-tmp/allimpc1-77.imp"
NOPS = (((int)(NOPS)) + (1));
#line 2260 "regression-compile-tmp/allimpc1-77.imp"
LASTOP = OPERATOR;
                                                                //   2261           C=PRECEDENCE(OPERATOR)
#line 2261 "regression-compile-tmp/allimpc1-77.imp"
C = (PRECEDENCE-1)[OPERATOR];
                                                                //   2262  L51:      ->L52 %IF C>OPPREC(QP-1);      !OPERATOR MAY BE STORED
#line 2262 "regression-compile-tmp/allimpc1-77.imp"
U_108d:;
#line 2262 "regression-compile-tmp/allimpc1-77.imp"
if (((C) <= (OPPREC[(((int)(QP)) - (1))]))) goto L_02a7;
#line 2262 "regression-compile-tmp/allimpc1-77.imp"
goto U_108e;
#line 2262 "regression-compile-tmp/allimpc1-77.imp"
L_02a7:;
                                                                //   2263           QP=QP-1
#line 2263 "regression-compile-tmp/allimpc1-77.imp"
QP = (((int)(QP)) - (1));
                                                                //   2264           ST(N0)=OP(QP)
#line 2264 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = OP[QP];
                                                                //   2265           N0=N0+3; ->L51;                !UNLOAD STACK
#line 2265 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2265 "regression-compile-tmp/allimpc1-77.imp"
goto U_108d;
                                                                //   2266  L52:      OP(QP)=10+OPERATOR
#line 2266 "regression-compile-tmp/allimpc1-77.imp"
U_108e:;
#line 2266 "regression-compile-tmp/allimpc1-77.imp"
OP[QP] = (((int)(10)) + (OPERATOR));
                                                                //   2267           OPPREC(QP)=C; ->L1;            !FOR NEXT OPERAND
#line 2267 "regression-compile-tmp/allimpc1-77.imp"
OPPREC[QP] = C;
#line 2267 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   2268  L60:      %COMMENT - END OF EXPRESSION
#line 2268 "regression-compile-tmp/allimpc1-77.imp"
U_108c:;
                                                                //   2269           %CYCLE JJ=QP-1,-1,0
#line 2269 "regression-compile-tmp/allimpc1-77.imp"
JJ = (((unsigned char)((((int)(QP)) - (1)))) + (1));
if ((((0)-((((int)(QP)) - (1)))) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = (((int)(QP)) - (1)), (-1), 0");
L_02a8:;
if (JJ == 0) goto L_02a9;
JJ += (-1);
                                                                //   2270           ST(N0)=OP(JJ)
#line 2270 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = OP[JJ];
                                                                //   2271           N0=N0+3; %REPEAT;             !EMPTY OPERATOR STACK
#line 2271 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
#line 2271 "regression-compile-tmp/allimpc1-77.imp"
goto L_02a8;
#line 2271 "regression-compile-tmp/allimpc1-77.imp"
L_02a9:;
                                                                //   2272           REAL=1 %IF MODE#1 %AND REALOP=1
#line 2272 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (1))) goto L_02ab;
#line 2272 "regression-compile-tmp/allimpc1-77.imp"
if (((REALOP) != (1))) goto L_02ab;
#line 2272 "regression-compile-tmp/allimpc1-77.imp"
REAL = 1;
#line 2272 "regression-compile-tmp/allimpc1-77.imp"
L_02ab:;
                                                                //   2273           ->L70 %IF REAL=1
#line 2273 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (1))) goto L_02ac;
#line 2273 "regression-compile-tmp/allimpc1-77.imp"
goto U_108f;
#line 2273 "regression-compile-tmp/allimpc1-77.imp"
L_02ac:;
                                                                //   2274           %COMMENT - CAN EVALUATE AS INTEGER
                                                                //   2275           PRINT ORDERS
#line 2275 "regression-compile-tmp/allimpc1-77.imp"
PRINTORDERS();
                                                                //   2276  L61:      ->L71 %IF MODE>=2
#line 2276 "regression-compile-tmp/allimpc1-77.imp"
U_1090:;
#line 2276 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) < (2))) goto L_02ad;
#line 2276 "regression-compile-tmp/allimpc1-77.imp"
goto U_1091;
#line 2276 "regression-compile-tmp/allimpc1-77.imp"
L_02ad:;
                                                                //   2277  L72:      D=1; REG=REG-1 %IF 0>=REG
#line 2277 "regression-compile-tmp/allimpc1-77.imp"
U_1092:;
#line 2277 "regression-compile-tmp/allimpc1-77.imp"
D = 1;
#line 2277 "regression-compile-tmp/allimpc1-77.imp"
if (((0) < (REG))) goto L_02ae;
#line 2277 "regression-compile-tmp/allimpc1-77.imp"
REG = (((int)(REG)) - (1));
#line 2277 "regression-compile-tmp/allimpc1-77.imp"
L_02ae:;
                                                                //   2278           LOAD(D,REG,REAL) %UNLESS REAL=0 %AND 0>REG %AND DP(1)<0 %C
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (0))) goto L_02aa;
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02aa;
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[0]) >= (0))) goto L_02aa;
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BS[0]]) < (0))) goto L_02af;
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
L_02aa:;
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&D, REG, REAL);
#line 2278 "regression-compile-tmp/allimpc1-77.imp"
L_02af:;
                                                                //   2279           %AND REGISTER(BS(1))<0;       ! RESULT IN LOCKED REG
                                                                //   2280           NEST=BS(1)
#line 2280 "regression-compile-tmp/allimpc1-77.imp"
NEST = BS[0];
                                                                //   2281           %IF REAL=1 %THEN FREG(NEST)=0 %ELSE %START
#line 2281 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (1))) goto L_02b0;
#line 2281 "regression-compile-tmp/allimpc1-77.imp"
FREG[NEST] = 0;
#line 2281 "regression-compile-tmp/allimpc1-77.imp"
goto L_02b1;
#line 2281 "regression-compile-tmp/allimpc1-77.imp"
L_02b0:;
                                                                //   2282           REGISTER(NEST)=0 %IF REGISTER(NEST)>0; %FINISH
#line 2282 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[NEST]) <= (0))) goto L_02b2;
#line 2282 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[NEST] = 0;
#line 2282 "regression-compile-tmp/allimpc1-77.imp"
L_02b2:;
#line 2282 "regression-compile-tmp/allimpc1-77.imp"
L_02b1:;
                                                                //   2283           PTYPE=1+30*LONGREAL+REAL
#line 2283 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = (((unsigned char)(((1) + ((int)(((30) * ((int)(LONGREAL)))))))) + (REAL));
                                                                //   2284           N0=NOP; UNPACK; ->L99
#line 2284 "regression-compile-tmp/allimpc1-77.imp"
N0 = NOP;
#line 2284 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 2284 "regression-compile-tmp/allimpc1-77.imp"
goto U_1093;
                                                                //   2285  L70:      %COMMENT EVALUATE AS REAL
#line 2285 "regression-compile-tmp/allimpc1-77.imp"
U_108f:;
                                                                //   2286           FAULT(24) %IF MODE=1;         ! REAL IN INTEGER EXPRN
#line 2286 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_02b3;
#line 2286 "regression-compile-tmp/allimpc1-77.imp"
FAULT(24);
#line 2286 "regression-compile-tmp/allimpc1-77.imp"
L_02b3:;
                                                                //   2287           LONGREAL=1 %IF MODE=3
#line 2287 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (3))) goto L_02b4;
#line 2287 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2287 "regression-compile-tmp/allimpc1-77.imp"
L_02b4:;
                                                                //   2288           EVALUATE=16*LONGREAL
#line 2288 "regression-compile-tmp/allimpc1-77.imp"
EVALUATE = ((16) * ((int)(LONGREAL)));
                                                                //   2289           PRINT ORDERS
#line 2289 "regression-compile-tmp/allimpc1-77.imp"
PRINTORDERS();
                                                                //   2290           ->L72
#line 2290 "regression-compile-tmp/allimpc1-77.imp"
goto U_1092;
                                                                //   2291  L71:      LONGREAL=1 %IF MODE=3
#line 2291 "regression-compile-tmp/allimpc1-77.imp"
U_1091:;
#line 2291 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (3))) goto L_02b5;
#line 2291 "regression-compile-tmp/allimpc1-77.imp"
LONGREAL = 1;
#line 2291 "regression-compile-tmp/allimpc1-77.imp"
L_02b5:;
                                                                //   2292           REAL=1
#line 2292 "regression-compile-tmp/allimpc1-77.imp"
REAL = 1;
                                                                //   2293           EVALUATE=16*LONGREAL
#line 2293 "regression-compile-tmp/allimpc1-77.imp"
EVALUATE = ((16) * ((int)(LONGREAL)));
                                                                //   2294           ->L72
#line 2294 "regression-compile-tmp/allimpc1-77.imp"
goto U_1092;
                                                                //   2295  L80:      %COMMENT SINGLE OPERAND EXPRESSION
#line 2295 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
                                                                //   2296           BS(1)=NEST; DP(1)=-1
#line 2296 "regression-compile-tmp/allimpc1-77.imp"
BS[0] = NEST;
#line 2296 "regression-compile-tmp/allimpc1-77.imp"
DP[0] = (-1);
                                                                //   2297           PT(1)=PREC<<3!TYPE
#line 2297 "regression-compile-tmp/allimpc1-77.imp"
PT[0] = ((((PREC) << (3))) | (TYPE));
                                                                //   2298           AFLAG=0; P=P+1
#line 2298 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2298 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2299           FAULT(24) %IF TYPE=2 %AND MODE=1
#line 2299 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_02b6;
#line 2299 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_02b6;
#line 2299 "regression-compile-tmp/allimpc1-77.imp"
FAULT(24);
#line 2299 "regression-compile-tmp/allimpc1-77.imp"
L_02b6:;
                                                                //   2300           ->L61 %IF TYPE=1; ->L71
#line 2300 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_02b7;
#line 2300 "regression-compile-tmp/allimpc1-77.imp"
goto U_1090;
#line 2300 "regression-compile-tmp/allimpc1-77.imp"
L_02b7:;
#line 2300 "regression-compile-tmp/allimpc1-77.imp"
goto U_1091;
                                                                //   2301  L99:      %END;->L99
#line 2301 "regression-compile-tmp/allimpc1-77.imp"
U_1093:;
#line 2301 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block _BLOCK_5_LEVEL_3_ at level 4
_BLOCK_5_LEVEL_3_();
#line 2301 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2302           %INTEGERFN FINDR
#line 2302 "regression-compile-tmp/allimpc1-77.imp"
int FINDR( void )
#line 2302 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2303           !%SHORTROUTINE
                                                                //   2304           %INTEGER I
#line 2304 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   2305           ->L2 %IF 0>=REG
#line 2305 "regression-compile-tmp/allimpc1-77.imp"
if (((0) < (REG))) goto L_02b8;
#line 2305 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
#line 2305 "regression-compile-tmp/allimpc1-77.imp"
L_02b8:;
                                                                //   2306           I=REG; ->L1 %IF REGISTER(I)=0
#line 2306 "regression-compile-tmp/allimpc1-77.imp"
I = REG;
#line 2306 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[I]) != (0))) goto L_02b9;
#line 2306 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2306 "regression-compile-tmp/allimpc1-77.imp"
L_02b9:;
                                                                //   2307  L2:       %CYCLE I=1,1,RBASE-1
#line 2307 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 2307 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = (((int)(RBASE)) - (1)); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, (((int)(RBASE)) - (1))");
I -= _increment; _control -= _increment;
L_02ba:;
if (I == _final) goto L_02bb;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   2308           ->L1 %IF REGISTER(I)=0
#line 2308 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[I]) != (0))) goto L_02bd;
#line 2308 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2308 "regression-compile-tmp/allimpc1-77.imp"
L_02bd:;
                                                                //   2309           %REPEAT; FAULT(241)
#line 2309 "regression-compile-tmp/allimpc1-77.imp"
goto L_02ba;
#line 2309 "regression-compile-tmp/allimpc1-77.imp"
L_02bb:;
#line 2309 "regression-compile-tmp/allimpc1-77.imp"
FAULT(241);
                                                                //   2310  L1:       REGISTER(I)=1; %RESULT=I; %END
#line 2310 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 2310 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[I] = 1;
#line 2310 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
#line 2310 "regression-compile-tmp/allimpc1-77.imp"
} // End of block FINDR at level 4
                                                                //   2311           %INTEGERFN FINDPR
#line 2311 "regression-compile-tmp/allimpc1-77.imp"
int FINDPR( void )
#line 2311 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2312           %INTEGER I
#line 2312 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   2313           %CYCLE I=0,2,6
#line 2313 "regression-compile-tmp/allimpc1-77.imp"
I = (-2);
if ((((6)-(0)) % (2)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 2, 6");
L_02be:;
if (I == 6) goto L_02bf;
I += 2;
                                                                //   2314           ->FOUND %IF REGISTER(I)=0 %AND REGISTER(I+1)=0
#line 2314 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[I]) != (0))) goto L_02c1;
#line 2314 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[(((int)(I)) + (1))]) != (0))) goto L_02c1;
#line 2314 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2314 "regression-compile-tmp/allimpc1-77.imp"
L_02c1:;
                                                                //   2315           %REPEAT
#line 2315 "regression-compile-tmp/allimpc1-77.imp"
goto L_02be;
#line 2315 "regression-compile-tmp/allimpc1-77.imp"
L_02bf:;
                                                                //   2316           FAULT(242)
#line 2316 "regression-compile-tmp/allimpc1-77.imp"
FAULT(242);
                                                                //   2317  FOUND:   REGISTER(I)=1
#line 2317 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 2317 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[I] = 1;
                                                                //   2318           REGISTER(I+1)=1
#line 2318 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[(((int)(I)) + (1))] = 1;
                                                                //   2319           %RESULT=I
#line 2319 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
                                                                //   2320           %END
#line 2320 "regression-compile-tmp/allimpc1-77.imp"
} // End of block FINDPR at level 4
                                                                //   2321           %INTEGERFN FIND FR
#line 2321 "regression-compile-tmp/allimpc1-77.imp"
int FINDFR( void )
#line 2321 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2322           !%SHORTROUTINE
                                                                //   2323           %INTEGER I
#line 2323 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   2324           %CYCLE I=6,-2,0
#line 2324 "regression-compile-tmp/allimpc1-77.imp"
I = 8;
if ((((0)-(6)) % ((-2))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 6, (-2), 0");
L_02c2:;
if (I == 0) goto L_02c3;
I += (-2);
                                                                //   2325           ->L1 %IF FREG (I)=0
#line 2325 "regression-compile-tmp/allimpc1-77.imp"
if (((FREG[I]) != (0))) goto L_02c5;
#line 2325 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 2325 "regression-compile-tmp/allimpc1-77.imp"
L_02c5:;
                                                                //   2326           %REPEAT; FAULT(242)
#line 2326 "regression-compile-tmp/allimpc1-77.imp"
goto L_02c2;
#line 2326 "regression-compile-tmp/allimpc1-77.imp"
L_02c3:;
#line 2326 "regression-compile-tmp/allimpc1-77.imp"
FAULT(242);
                                                                //   2327  L1:       FREG(I)=1; %RESULT=I
#line 2327 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 2327 "regression-compile-tmp/allimpc1-77.imp"
FREG[I] = 1;
#line 2327 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
                                                                //   2328           %END
#line 2328 "regression-compile-tmp/allimpc1-77.imp"
} // End of block FINDFR at level 4
                                                                //   2329           %ROUTINE     LOAD(%INTEGERNAME N,%INTEGER REG,MODE)
#line 2329 "regression-compile-tmp/allimpc1-77.imp"
void LOAD( int /*name*/*N, int REG, int MODE )
#line 2329 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2330           !%SHORTROUTINE
                                                                //   2331           %INTEGER I,X
#line 2331 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 2331 "regression-compile-tmp/allimpc1-77.imp"
int X;
                                                                //   2332           %INTEGERNAME BSI,DPI,PTI
#line 2332 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*BSI;
#line 2332 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*DPI;
#line 2332 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*PTI;
                                                                //   2333           I=N; ->NOCHOICE %UNLESS I=0
#line 2333 "regression-compile-tmp/allimpc1-77.imp"
I = *N;
#line 2333 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (0))) goto L_02c6;
#line 2333 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2333 "regression-compile-tmp/allimpc1-77.imp"
L_02c6:;
                                                                //   2334           I=1; ->CHOSEN %IF DP(1)<0 %AND REGISTER(BS(1))>=0
#line 2334 "regression-compile-tmp/allimpc1-77.imp"
I = 1;
#line 2334 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[0]) >= (0))) goto L_02c7;
#line 2334 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BS[0]]) < (0))) goto L_02c7;
#line 2334 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2334 "regression-compile-tmp/allimpc1-77.imp"
L_02c7:;
                                                                //   2335           I=2; ->CHOSEN %IF DP(2)<0 %AND REGISTER(BS(2))>=0
#line 2335 "regression-compile-tmp/allimpc1-77.imp"
I = 2;
#line 2335 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[1]) >= (0))) goto L_02c8;
#line 2335 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BS[1]]) < (0))) goto L_02c8;
#line 2335 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2335 "regression-compile-tmp/allimpc1-77.imp"
L_02c8:;
                                                                //   2336           ->CHOSEN %IF MODE=0 %AND (PT(2)=255 %OR PT(2)&24=8)
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_02c9;
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[1]) == (255))) goto L_02c4;
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
if (((((PT[1]) & (24))) != (8))) goto L_02c9;
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
L_02c4:;
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2336 "regression-compile-tmp/allimpc1-77.imp"
L_02c9:;
                                                                //   2337           ->CHOSEN %IF MODE=1 %AND (PT(2)&7=1 %OR (EVALUATE>0 %AND  %C
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_02ca;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
if (((((PT[1]) & (7))) == (1))) goto L_02cb;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
if (((EVALUATE) <= (0))) goto L_02ca;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
if (((((PT[1]) & (24))) != (0))) goto L_02ca;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
L_02cb:;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2337 "regression-compile-tmp/allimpc1-77.imp"
L_02ca:;
                                                                //   2338           PT(2)&24=0)); I=1
#line 2338 "regression-compile-tmp/allimpc1-77.imp"
I = 1;
                                                                //   2339  CHOSEN:  N=I
#line 2339 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2339 "regression-compile-tmp/allimpc1-77.imp"
*N = I;
                                                                //   2340  NOCHOICE:BSI==BS(I);DPI==DP(I);PTI==PT(I)
#line 2340 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2340 "regression-compile-tmp/allimpc1-77.imp"
BSI = &BS[(((int)(I)) - (1))];
#line 2340 "regression-compile-tmp/allimpc1-77.imp"
DPI = &DP[(((int)(I)) - (1))];
#line 2340 "regression-compile-tmp/allimpc1-77.imp"
PTI = &PT[(((int)(I)) - (1))];
                                                                //   2341           ->SHORT CONST %IF MODE=0 %AND PTI=255
#line 2341 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_02cc;
#line 2341 "regression-compile-tmp/allimpc1-77.imp"
if (((*PTI) != (255))) goto L_02cc;
#line 2341 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2341 "regression-compile-tmp/allimpc1-77.imp"
L_02cc:;
                                                                //   2342           TEST(I) %IF MODE=1 %OR PTI&64#0
#line 2342 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (1))) goto L_02cd;
#line 2342 "regression-compile-tmp/allimpc1-77.imp"
if (((((*PTI) & (64))) == (0))) goto L_02ce;
#line 2342 "regression-compile-tmp/allimpc1-77.imp"
L_02cd:;
#line 2342 "regression-compile-tmp/allimpc1-77.imp"
TEST(I);
#line 2342 "regression-compile-tmp/allimpc1-77.imp"
L_02ce:;
                                                                //   2343           ->INREG %IF DPI<0
#line 2343 "regression-compile-tmp/allimpc1-77.imp"
if (((*DPI) >= (0))) goto L_02cf;
#line 2343 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
#line 2343 "regression-compile-tmp/allimpc1-77.imp"
L_02cf:;
                                                                //   2344           ->NOFIND %IF REG>=0
#line 2344 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) < (0))) goto L_02d0;
#line 2344 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 2344 "regression-compile-tmp/allimpc1-77.imp"
L_02d0:;
                                                                //   2345           %IF MODE=0 %THEN REG=FINDR %ELSE REG=FINDFR
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_02d1;
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDR();
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
goto L_02d2;
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
L_02d1:;
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDFR();
#line 2345 "regression-compile-tmp/allimpc1-77.imp"
L_02d2:;
                                                                //   2346  NOFIND:  X=MODE<<3! (PTI>>2&6)+2
#line 2346 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2346 "regression-compile-tmp/allimpc1-77.imp"
X = (((int)(((((MODE) << (3))) | ((((int)(((*(unsigned int *)(PTI)) >> (2)))) & (6)))))) + (2));
                                                                //   2347           DUMP(X,REG,DPI,0,BSI) ; ->L98 ;! PICK UP VARIABLE
#line 2347 "regression-compile-tmp/allimpc1-77.imp"
DUMP(X, REG, *DPI, 0, *BSI);
#line 2347 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
                                                                //   2348  INREG:   ->L90 %IF MODE=1
#line 2348 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2348 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_02d3;
#line 2348 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
#line 2348 "regression-compile-tmp/allimpc1-77.imp"
L_02d3:;
                                                                //   2349           ->L99 %IF BSI=REG
#line 2349 "regression-compile-tmp/allimpc1-77.imp"
if (((*BSI) != (REG))) goto L_02d4;
#line 2349 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 2349 "regression-compile-tmp/allimpc1-77.imp"
L_02d4:;
                                                                //   2350           ->LOCKED %IF REGISTER(BSI)<0
#line 2350 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[*BSI]) >= (0))) goto L_02d5;
#line 2350 "regression-compile-tmp/allimpc1-77.imp"
goto U_1087;
#line 2350 "regression-compile-tmp/allimpc1-77.imp"
L_02d5:;
                                                                //   2351           ->L99 %IF 0>REG
#line 2351 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02d6;
#line 2351 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 2351 "regression-compile-tmp/allimpc1-77.imp"
L_02d6:;
                                                                //   2352           REGISTER(BSI)=0
#line 2352 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[*BSI] = 0;
                                                                //   2353  SWOP:    PRR(X'18',REG,BSI); ->L98
#line 2353 "regression-compile-tmp/allimpc1-77.imp"
U_1088:;
#line 2353 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, *BSI);
#line 2353 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
                                                                //   2354  LOCKED:  REG=FINDR %IF 0>REG; ->SWOP
#line 2354 "regression-compile-tmp/allimpc1-77.imp"
U_1087:;
#line 2354 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02d7;
#line 2354 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDR();
#line 2354 "regression-compile-tmp/allimpc1-77.imp"
L_02d7:;
#line 2354 "regression-compile-tmp/allimpc1-77.imp"
goto U_1088;
                                                                //   2355  L90:      ->L91 %IF BSI=0;             !CURRENTLY CAN LEAVE NOTHING INFR0
#line 2355 "regression-compile-tmp/allimpc1-77.imp"
U_1085:;
#line 2355 "regression-compile-tmp/allimpc1-77.imp"
if (((*BSI) != (0))) goto L_02d8;
#line 2355 "regression-compile-tmp/allimpc1-77.imp"
goto U_1089;
#line 2355 "regression-compile-tmp/allimpc1-77.imp"
L_02d8:;
                                                                //   2356           ->L99 %IF BSI=REG %OR 0>REG
#line 2356 "regression-compile-tmp/allimpc1-77.imp"
if (((*BSI) == (REG))) goto L_02d9;
#line 2356 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02da;
#line 2356 "regression-compile-tmp/allimpc1-77.imp"
L_02d9:;
#line 2356 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 2356 "regression-compile-tmp/allimpc1-77.imp"
L_02da:;
                                                                //   2357  L91:
#line 2357 "regression-compile-tmp/allimpc1-77.imp"
U_1089:;
                                                                //   2358           REG=FINDFR %IF 0>REG
#line 2358 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02db;
#line 2358 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDFR();
#line 2358 "regression-compile-tmp/allimpc1-77.imp"
L_02db:;
                                                                //   2359           PRR(X'38'-EVALUATE,REG,BSI)
#line 2359 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(56)) - (EVALUATE)), REG, *BSI);
                                                                //   2360           FREG(BSI)=0; ->L98
#line 2360 "regression-compile-tmp/allimpc1-77.imp"
FREG[*BSI] = 0;
#line 2360 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
                                                                //   2361  SHORT CONST:   REG=FINDR %IF 0>REG
#line 2361 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2361 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (REG))) goto L_02dc;
#line 2361 "regression-compile-tmp/allimpc1-77.imp"
REG = FINDR();
#line 2361 "regression-compile-tmp/allimpc1-77.imp"
L_02dc:;
                                                                //   2362               DUMP(0,REG,DPI,0,0);      !LOAD ADDRESS
#line 2362 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, REG, *DPI, 0, 0);
                                                                //   2363  L98:      BSI=REG; DPI=-2
#line 2363 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
#line 2363 "regression-compile-tmp/allimpc1-77.imp"
*BSI = REG;
#line 2363 "regression-compile-tmp/allimpc1-77.imp"
*DPI = (-2);
                                                                //   2364  L99:      %END
#line 2364 "regression-compile-tmp/allimpc1-77.imp"
U_1086:;
#line 2364 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOAD at level 4
                                                                //   2365           %ROUTINE PLANT(%INTEGER OPCODE,R1,R2)
#line 2365 "regression-compile-tmp/allimpc1-77.imp"
void PLANT( int OPCODE, int R1, int R2 )
#line 2365 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2366           !%SHORTROUTINE
                                                                //   2367           %INTEGER BSR2
#line 2367 "regression-compile-tmp/allimpc1-77.imp"
int BSR2;
                                                                //   2368           BSR2=BS(R2);R1=BS(R1)
#line 2368 "regression-compile-tmp/allimpc1-77.imp"
BSR2 = BS[(((int)(R2)) - (1))];
#line 2368 "regression-compile-tmp/allimpc1-77.imp"
R1 = BS[(((int)(R1)) - (1))];
                                                                //   2369           ->RROP %IF DP(R2)<0
#line 2369 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[(((int)(R2)) - (1))]) >= (0))) goto L_02dd;
#line 2369 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2369 "regression-compile-tmp/allimpc1-77.imp"
L_02dd:;
                                                                //   2370           %IF PT(R2)&24=16 %AND X'5A'<=OPCODE<=X'5B' %THEN   %C
#line 2370 "regression-compile-tmp/allimpc1-77.imp"
if (((((PT[(((int)(R2)) - (1))]) & (24))) != (16))) goto L_02de;
#line 2370 "regression-compile-tmp/allimpc1-77.imp"
if ((((90) > (OPCODE))) || (((OPCODE) > (91)))) goto L_02de;
#line 2370 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = (((int)(OPCODE)) - (16));
#line 2370 "regression-compile-tmp/allimpc1-77.imp"
L_02de:;
                                                                //   2371           OPCODE=OPCODE-16;             ! CAN PLANT HALF LENGTH OP
                                                                //   2372           PRX(OPCODE,R1,0,BSR2,DP(R2));->L99
#line 2372 "regression-compile-tmp/allimpc1-77.imp"
PRX(OPCODE, R1, 0, BSR2, DP[(((int)(R2)) - (1))]);
#line 2372 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   2373  RROP:    PRR(OPCODE-64,R1,BSR2)
#line 2373 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 2373 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(OPCODE)) - (64)), R1, BSR2);
                                                                //   2374           %IF REAL=1 %THEN FREG(BSR2)=0
#line 2374 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (1))) goto L_02df;
#line 2374 "regression-compile-tmp/allimpc1-77.imp"
FREG[BSR2] = 0;
#line 2374 "regression-compile-tmp/allimpc1-77.imp"
L_02df:;
                                                                //   2375           %IF REAL=0 %AND REGISTER(BSR2)>0 %THEN REGISTER(BSR2)=0
#line 2375 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (0))) goto L_02e0;
#line 2375 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BSR2]) <= (0))) goto L_02e0;
#line 2375 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[BSR2] = 0;
#line 2375 "regression-compile-tmp/allimpc1-77.imp"
L_02e0:;
                                                                //   2376  L99:      %END
#line 2376 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 2376 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLANT at level 4
                                                                //   2377           %ROUTINE TEST(%INTEGER N)
#line 2377 "regression-compile-tmp/allimpc1-77.imp"
void TEST( int N )
#line 2377 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2378           !%SHORTROUTINE
                                                                //   2379           %COMMENT INSPECTS OPERAND - MAKES TYPE CONVERSIONS ETC.
                                                                //   2380           %INTEGER X
#line 2380 "regression-compile-tmp/allimpc1-77.imp"
int X;
                                                                //   2381           %INTEGERNAME LBASE,LDISP,LPTYPE
#line 2381 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*LBASE;
#line 2381 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*LDISP;
#line 2381 "regression-compile-tmp/allimpc1-77.imp"
int /*name*/*LPTYPE;
                                                                //   2382           %BYTEINTEGER LPREC
#line 2382 "regression-compile-tmp/allimpc1-77.imp"
unsigned char LPREC;
                                                                //   2383           LPTYPE==PT(N); LDISP==DP(N)
#line 2383 "regression-compile-tmp/allimpc1-77.imp"
LPTYPE = &PT[(((int)(N)) - (1))];
#line 2383 "regression-compile-tmp/allimpc1-77.imp"
LDISP = &DP[(((int)(N)) - (1))];
                                                                //   2384           LBASE==BS(N); LPREC=LPTYPE>>3&3
#line 2384 "regression-compile-tmp/allimpc1-77.imp"
LBASE = &BS[(((int)(N)) - (1))];
#line 2384 "regression-compile-tmp/allimpc1-77.imp"
LPREC = (((int)(((*(unsigned int *)(LPTYPE)) >> (3)))) & (3));
                                                                //   2385           ->SHORTCONST %IF LPTYPE=255
#line 2385 "regression-compile-tmp/allimpc1-77.imp"
if (((*LPTYPE) != (255))) goto L_02e1;
#line 2385 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2385 "regression-compile-tmp/allimpc1-77.imp"
L_02e1:;
                                                                //   2386           ->START %UNLESS LPTYPE&64 #0 ;! GO UNLESS NAME TYPE
#line 2386 "regression-compile-tmp/allimpc1-77.imp"
if (((((*LPTYPE) & (64))) != (0))) goto L_02e2;
#line 2386 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2386 "regression-compile-tmp/allimpc1-77.imp"
L_02e2:;
                                                                //   2387           RP13=R13;R13=LBASE<<12!LDISP
#line 2387 "regression-compile-tmp/allimpc1-77.imp"
RP13 = R13;
#line 2387 "regression-compile-tmp/allimpc1-77.imp"
R13 = ((((*LBASE) << (12))) | (*LDISP));
                                                                //   2388           PRX(X'58',LINK,0,LBASE,LDISP) %UNLESS R13=RP13
#line 2388 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) == (RP13))) goto L_02e3;
#line 2388 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, LINK, 0, *LBASE, *LDISP);
#line 2388 "regression-compile-tmp/allimpc1-77.imp"
L_02e3:;
                                                                //   2389           LPTYPE=LPTYPE&31; LBASE=LINK;LDISP=0
#line 2389 "regression-compile-tmp/allimpc1-77.imp"
*LPTYPE = ((*LPTYPE) & (31));
#line 2389 "regression-compile-tmp/allimpc1-77.imp"
*LBASE = LINK;
#line 2389 "regression-compile-tmp/allimpc1-77.imp"
*LDISP = 0;
                                                                //   2390  START:   ->FLOATING %IF REAL#0
#line 2390 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2390 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) == (0))) goto L_02e4;
#line 2390 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2390 "regression-compile-tmp/allimpc1-77.imp"
L_02e4:;
                                                                //   2391           ->FINISH %IF LPREC=0 %OR (LPREC=2 %AND 12<=OPCODE<=13)
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
if (((LPREC) == (0))) goto L_02e5;
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
if (((LPREC) != (2))) goto L_02e6;
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
if ((((12) > (OPCODE))) || (((OPCODE) > (13)))) goto L_02e6;
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
L_02e5:;
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2391 "regression-compile-tmp/allimpc1-77.imp"
L_02e6:;
                                                                //   2392  PICKUP:  LOAD(N,-1,0)
#line 2392 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2392 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&N, (-1), 0);
                                                                //   2393           LPREC=0; ->FINISH
#line 2393 "regression-compile-tmp/allimpc1-77.imp"
LPREC = 0;
#line 2393 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2394  SHORTCONST:    LPREC=0; ->PICK UP %IF REAL=0
#line 2394 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 2394 "regression-compile-tmp/allimpc1-77.imp"
LPREC = 0;
#line 2394 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (0))) goto L_02e7;
#line 2394 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2394 "regression-compile-tmp/allimpc1-77.imp"
L_02e7:;
                                                                //   2395                 ->INGLA %IF 0<=LDISP<=2;! THESE 3 ALWAYS IN THE GLA
#line 2395 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) > (*LDISP))) || (((*LDISP) > (2)))) goto L_02e8;
#line 2395 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
#line 2395 "regression-compile-tmp/allimpc1-77.imp"
L_02e8:;
                                                                //   2396           A(-2)=9; A(-1)=LDISP
#line 2396 "regression-compile-tmp/allimpc1-77.imp"
A[0] = 9;
#line 2396 "regression-compile-tmp/allimpc1-77.imp"
A[1] = *LDISP;
                                                                //   2397           LDISP= SORT CONST(-2,LONGREAL,2);! COMPILE TIME FLOAT
#line 2397 "regression-compile-tmp/allimpc1-77.imp"
*LDISP = SORTCONST((-2), LONGREAL, 2);
                                                                //   2398  L1:       LBASE=GLA; ->FINISH
#line 2398 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2398 "regression-compile-tmp/allimpc1-77.imp"
*LBASE = GLA;
#line 2398 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2399  INGLA:   LDISP= 8*LDISP+40; ->L1
#line 2399 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2399 "regression-compile-tmp/allimpc1-77.imp"
*LDISP = (((int)((((int)(8)) * (*LDISP)))) + (40));
#line 2399 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
                                                                //   2400  FLOATING:->FLOAT IT %IF LPTYPE&7=1     ;! INTEGER - RUN TIME FLOAT
#line 2400 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2400 "regression-compile-tmp/allimpc1-77.imp"
if (((((*LPTYPE) & (7))) != (1))) goto L_02e9;
#line 2400 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
#line 2400 "regression-compile-tmp/allimpc1-77.imp"
L_02e9:;
                                                                //   2401           ->FINISH %IF LPREC=3 %OR EVALUATE=0
#line 2401 "regression-compile-tmp/allimpc1-77.imp"
if (((LPREC) == (3))) goto L_02ea;
#line 2401 "regression-compile-tmp/allimpc1-77.imp"
if (((EVALUATE) != (0))) goto L_02eb;
#line 2401 "regression-compile-tmp/allimpc1-77.imp"
L_02ea:;
#line 2401 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2401 "regression-compile-tmp/allimpc1-77.imp"
L_02eb:;
                                                                //   2402           %COMMENT MUST STRETCH A 32 BIT REAL
                                                                //   2403           FREG(LBASE)=1 %IF LDISP<0
#line 2403 "regression-compile-tmp/allimpc1-77.imp"
if (((*LDISP) >= (0))) goto L_02ec;
#line 2403 "regression-compile-tmp/allimpc1-77.imp"
FREG[*LBASE] = 1;
#line 2403 "regression-compile-tmp/allimpc1-77.imp"
L_02ec:;
                                                                //   2404           X=FINDFR;PRR(X'2B',X,X);      !FIND AND CLEAR REGISTER
#line 2404 "regression-compile-tmp/allimpc1-77.imp"
X = FINDFR();
#line 2404 "regression-compile-tmp/allimpc1-77.imp"
PRR(43, X, X);
                                                                //   2405           %IF LDISP<0 %THEN %START
#line 2405 "regression-compile-tmp/allimpc1-77.imp"
if (((*LDISP) >= (0))) goto L_02ed;
                                                                //   2406           PRR(X'38',X,LBASE);           ! LER_X,LBASE
#line 2406 "regression-compile-tmp/allimpc1-77.imp"
PRR(56, X, *LBASE);
                                                                //   2407           FREG(LBASE)=0;
#line 2407 "regression-compile-tmp/allimpc1-77.imp"
FREG[*LBASE] = 0;
                                                                //   2408           %FINISH %ELSE PRX(X'78',X,0,LBASE,LDISP)
#line 2408 "regression-compile-tmp/allimpc1-77.imp"
goto L_02ee;
#line 2408 "regression-compile-tmp/allimpc1-77.imp"
L_02ed:;
#line 2408 "regression-compile-tmp/allimpc1-77.imp"
PRX(120, X, 0, *LBASE, *LDISP);
#line 2408 "regression-compile-tmp/allimpc1-77.imp"
L_02ee:;
                                                                //   2409           LBASE=X;LDISP=-2; ->FINISH
#line 2409 "regression-compile-tmp/allimpc1-77.imp"
*LBASE = X;
#line 2409 "regression-compile-tmp/allimpc1-77.imp"
*LDISP = (-2);
#line 2409 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2410  FLOATIT: LOAD(N,1,0);PPJ(43); REGISTER(1)=0
#line 2410 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
#line 2410 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&N, 1, 0);
#line 2410 "regression-compile-tmp/allimpc1-77.imp"
PPJ(43);
#line 2410 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[1] = 0;
                                                                //   2411           LBASE=0; LDISP=-2
#line 2411 "regression-compile-tmp/allimpc1-77.imp"
*LBASE = 0;
#line 2411 "regression-compile-tmp/allimpc1-77.imp"
*LDISP = (-2);
                                                                //   2412  FINISH:  LPTYPE=(1+REAL)!LPREC<<3
#line 2412 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2412 "regression-compile-tmp/allimpc1-77.imp"
*LPTYPE = ((((1) + ((int)(REAL)))) | (((LPREC) << (3))));
                                                                //   2413           %IF LONGREAL=1 %AND REAL=1 %THEN LPTYPE=LPTYPE!24
#line 2413 "regression-compile-tmp/allimpc1-77.imp"
if (((LONGREAL) != (1))) goto L_02ef;
#line 2413 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (1))) goto L_02ef;
#line 2413 "regression-compile-tmp/allimpc1-77.imp"
*LPTYPE = ((*LPTYPE) | (24));
#line 2413 "regression-compile-tmp/allimpc1-77.imp"
L_02ef:;
                                                                //   2414           %END
#line 2414 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TEST at level 4
                                                                //   2415           %ROUTINE     MULT(%INTEGERNAME RESULT)
#line 2415 "regression-compile-tmp/allimpc1-77.imp"
void MULT( int /*name*/*RESULT )
#line 2415 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2416           !%SHORTROUTINE
                                                                //   2417           %INTEGER I,K
#line 2417 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 2417 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //   2418           %CYCLE I=1,1,2
#line 2418 "regression-compile-tmp/allimpc1-77.imp"
I = 0;
if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 2");
L_02f0:;
if (I == 2) goto L_02f1;
I += 1;
                                                                //   2419           ->L30 %IF PT(I)=255 %AND DP(I)=2
#line 2419 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[(((int)(I)) - (1))]) != (255))) goto L_02f3;
#line 2419 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[(((int)(I)) - (1))]) != (2))) goto L_02f3;
#line 2419 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2419 "regression-compile-tmp/allimpc1-77.imp"
L_02f3:;
                                                                //   2420           ->L1 %IF DP(I)<0 %AND REGISTER(BS(I))>=0
#line 2420 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[(((int)(I)) - (1))]) >= (0))) goto L_02f4;
#line 2420 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BS[(((int)(I)) - (1))]]) < (0))) goto L_02f4;
#line 2420 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2420 "regression-compile-tmp/allimpc1-77.imp"
L_02f4:;
                                                                //   2421  L5:       %REPEAT
#line 2421 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 2421 "regression-compile-tmp/allimpc1-77.imp"
goto L_02f0;
#line 2421 "regression-compile-tmp/allimpc1-77.imp"
L_02f1:;
                                                                //   2422           I=1; K=FINDPR
#line 2422 "regression-compile-tmp/allimpc1-77.imp"
I = 1;
#line 2422 "regression-compile-tmp/allimpc1-77.imp"
K = FINDPR();
                                                                //   2423           LOAD(I,K+1,0); ->L11
#line 2423 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&I, (((int)(K)) + (1)), 0);
#line 2423 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
                                                                //   2424  L1:       ->L14 %IF BS(I)&1=1 %AND I>0 %AND REGISTER(BS(I)-1)=0
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
if (((((BS[(((int)(I)) - (1))]) & (1))) != (1))) goto L_02f5;
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
if (((I) <= (0))) goto L_02f5;
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[(((int)(BS[(((int)(I)) - (1))])) - (1))]) != (0))) goto L_02f5;
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2424 "regression-compile-tmp/allimpc1-77.imp"
L_02f5:;
                                                                //   2425           ->L12 %IF BS(I)&1=0 %AND REGISTER(BS(I)+1)=0
#line 2425 "regression-compile-tmp/allimpc1-77.imp"
if (((((BS[(((int)(I)) - (1))]) & (1))) != (0))) goto L_02f6;
#line 2425 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[(((int)(BS[(((int)(I)) - (1))])) + (1))]) != (0))) goto L_02f6;
#line 2425 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2425 "regression-compile-tmp/allimpc1-77.imp"
L_02f6:;
                                                                //   2426           ->L5
#line 2426 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
                                                                //   2427  L12:      K=BS(I); REGISTER(K+1)=1
#line 2427 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2427 "regression-compile-tmp/allimpc1-77.imp"
K = BS[(((int)(I)) - (1))];
#line 2427 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[(((int)(K)) + (1))] = 1;
                                                                //   2428           PRR(X'18',K+1,K); ->L13
#line 2428 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, (((int)(K)) + (1)), K);
#line 2428 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2429  L14:      REGISTER(BS(I)-1)=1
#line 2429 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2429 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[(((int)(BS[(((int)(I)) - (1))])) - (1))] = 1;
                                                                //   2430  L11:      BS(I)=BS(I)-1
#line 2430 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2430 "regression-compile-tmp/allimpc1-77.imp"
BS[(((int)(I)) - (1))] = (((int)(BS[(((int)(I)) - (1))])) - (1));
                                                                //   2431  L13:      TEST(3-I); PLANT(X'5C',I,3-I);! MULTIPLY
#line 2431 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2431 "regression-compile-tmp/allimpc1-77.imp"
TEST((((int)(3)) - (I)));
#line 2431 "regression-compile-tmp/allimpc1-77.imp"
PLANT(92, I, (((int)(3)) - (I)));
                                                                //   2432           ->L15 %IF CHECKSP=0
#line 2432 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (0))) goto L_02f7;
#line 2432 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
#line 2432 "regression-compile-tmp/allimpc1-77.imp"
L_02f7:;
                                                                //   2433           PRX(X'8F',BS(I),0,0,32);      ! SLDA ?,32
#line 2433 "regression-compile-tmp/allimpc1-77.imp"
PRX(143, BS[(((int)(I)) - (1))], 0, 0, 32);
                                                                //   2434  L15:      RESULT=257+BS(I)-CHECKSP
#line 2434 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2434 "regression-compile-tmp/allimpc1-77.imp"
*RESULT = (((unsigned char)((((int)(257)) + (BS[(((int)(I)) - (1))])))) - (CHECKSP));
                                                                //   2435           REGISTER(BS(I)+CHECKSP)=0
#line 2435 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[((BS[(((int)(I)) - (1))]) + ((int)(CHECKSP)))] = 0;
                                                                //   2436           AFLAG=CHECKS
#line 2436 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = CHECKS;
                                                                //   2437           ->L99
#line 2437 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
                                                                //   2438  L30:      K= 3-I; LOAD(K,-1,0)
#line 2438 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 2438 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(3)) - (I));
#line 2438 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&K, (-1), 0);
                                                                //   2439           PRR(X'1A',BS(K),BS(K))
#line 2439 "regression-compile-tmp/allimpc1-77.imp"
PRR(26, BS[(((int)(K)) - (1))], BS[(((int)(K)) - (1))]);
                                                                //   2440           AFLAG=1; RESULT=256+BS(K)
#line 2440 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 1;
#line 2440 "regression-compile-tmp/allimpc1-77.imp"
*RESULT = (((int)(256)) + (BS[(((int)(K)) - (1))]));
                                                                //   2441  L99:      %END
#line 2441 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2441 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MULT at level 4
                                                                //   2442           %ROUTINE     DIV(%INTEGERNAME RESULT)
#line 2442 "regression-compile-tmp/allimpc1-77.imp"
void DIV( int /*name*/*RESULT )
#line 2442 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2443           !%SHORTROUTINE
                                                                //   2444           %INTEGER I,K
#line 2444 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 2444 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //   2445           ->L3 %IF DP(1)<0
#line 2445 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[0]) >= (0))) goto L_02f8;
#line 2445 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2445 "regression-compile-tmp/allimpc1-77.imp"
L_02f8:;
                                                                //   2446  L1:       K=FIND PR
#line 2446 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 2446 "regression-compile-tmp/allimpc1-77.imp"
K = FINDPR();
                                                                //   2447  L2:       I=1; LOAD(I,K,0); ->L10
#line 2447 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2447 "regression-compile-tmp/allimpc1-77.imp"
I = 1;
#line 2447 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&I, K, 0);
#line 2447 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2448  L3:       ->L4 %IF BS(1)&1=0 %AND REGISTER(BS(1)+1)=0
#line 2448 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 2448 "regression-compile-tmp/allimpc1-77.imp"
if (((((BS[0]) & (1))) != (0))) goto L_02f9;
#line 2448 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[(((int)(BS[0])) + (1))]) != (0))) goto L_02f9;
#line 2448 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2448 "regression-compile-tmp/allimpc1-77.imp"
L_02f9:;
                                                                //   2449           K=FINDPR; ->L2
#line 2449 "regression-compile-tmp/allimpc1-77.imp"
K = FINDPR();
#line 2449 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
                                                                //   2450  L4:       ->L1 %IF REGISTER(BS(1))<0;    !A CLAIMED REGISTER
#line 2450 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2450 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[BS[0]]) >= (0))) goto L_02fa;
#line 2450 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2450 "regression-compile-tmp/allimpc1-77.imp"
L_02fa:;
                                                                //   2451           REGISTER(BS(1)+1)=1; K=BS(1)
#line 2451 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[(((int)(BS[0])) + (1))] = 1;
#line 2451 "regression-compile-tmp/allimpc1-77.imp"
K = BS[0];
                                                                //   2452  L10:      PRX(X'8E',K,0,0,32);          ! SRDA K,32
#line 2452 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2452 "regression-compile-tmp/allimpc1-77.imp"
PRX(142, K, 0, 0, 32);
                                                                //   2453           TEST(2); PLANT(X'5D',1,2);    ! DIVIDE
#line 2453 "regression-compile-tmp/allimpc1-77.imp"
TEST(2);
#line 2453 "regression-compile-tmp/allimpc1-77.imp"
PLANT(93, 1, 2);
                                                                //   2454           ->L20 %IF CHECKSP=0
#line 2454 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (0))) goto L_02fb;
#line 2454 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2454 "regression-compile-tmp/allimpc1-77.imp"
L_02fb:;
                                                                //   2455           ->L20 %IF OPCODE=17; PRR(X'12',K,K);     ! LTR
#line 2455 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (17))) goto L_02fc;
#line 2455 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2455 "regression-compile-tmp/allimpc1-77.imp"
L_02fc:;
#line 2455 "regression-compile-tmp/allimpc1-77.imp"
PRR(18, K, K);
                                                                //   2456           PRX(X'47',7,0,CODER,64);         ! BC 7,64(CODE)
#line 2456 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, 7, 0, CODER, 64);
                                                                //   2457  L20:      REGISTER(K)=0
#line 2457 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2457 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[K] = 0;
                                                                //   2458           AFLAG=0;RESULT=K+257
#line 2458 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2458 "regression-compile-tmp/allimpc1-77.imp"
*RESULT = (((int)(K)) + (257));
                                                                //   2459           %END
#line 2459 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DIV at level 4
                                                                //   2460           %ROUTINE PRINT ORDERS
#line 2460 "regression-compile-tmp/allimpc1-77.imp"
void PRINTORDERS( void )
#line 2460 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2461           !%SHORTROUTINE
                                                                //   2462           %SWITCH S(0:49)
#line 2462 "regression-compile-tmp/allimpc1-77.imp"
static int sw9_S_idx;
static const void * /*SWITCH*/ sw9_S[50] = { &&sw9_S_0, &&sw9_S_1, &&sw9_S_2, &&sw9_S_3, &&sw9_S_4, &&sw9_S_5, &&sw9_S_6, &&sw9_S_7, &&sw9_S_8, &&sw9_S_9, &&sw9_S_10, &&sw9_S_11, &&sw9_S_12, &&sw9_S_13, &&sw9_S_14, &&sw9_S_15, &&sw9_S_16, &&sw9_S_17, &&sw9_S_18, &&sw9_S_19, &&sw9_S_20, &&sw9_S_21, &&sw9_S_22, &&sw9_S_23, &&sw9_S_24, &&sw9_S_25, &&sw9_S_26, &&sw9_S_27, &&sw9_S_28, &&sw9_S_29, &&sw9_S_30, &&sw9_S_31, &&sw9_S_32, &&sw9_S_33, &&sw9_S_34, &&sw9_S_35, &&sw9_S_36, &&sw9_S_37, &&sw9_S_38, &&sw9_S_39, &&sw9_S_40, &&sw9_S_41, &&sw9_S_42, &&sw9_S_43, &&sw9_S_44, &&sw9_S_45, &&sw9_S_46, &&sw9_S_47, &&sw9_S_48, &&sw9_S_49,  };
                                                                //   2463           %INTEGER C,D,LAST,KK
#line 2463 "regression-compile-tmp/allimpc1-77.imp"
int C;
#line 2463 "regression-compile-tmp/allimpc1-77.imp"
int D;
#line 2463 "regression-compile-tmp/allimpc1-77.imp"
int LAST;
#line 2463 "regression-compile-tmp/allimpc1-77.imp"
int KK;
                                                                //   2464           LAST=N0-6
#line 2464 "regression-compile-tmp/allimpc1-77.imp"
LAST = (((int)(N0)) - (6));
                                                                //   2465           %CYCLE JJ=NOP,3,LAST
#line 2465 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = NOP; _increment = 3; _final = LAST; JJ = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = NOP, 3, LAST");
JJ -= _increment; _control -= _increment;
L_02fd:;
if (JJ == _final) goto L_02fe;
JJ += _increment; _control += _increment;
if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */
}
                                                                //   2466           OPCODE=ST(JJ)
#line 2466 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = ST[JJ];
                                                                //   2467           ->SKIP %IF 10>=OPCODE %OR OPCODE=24
#line 2467 "regression-compile-tmp/allimpc1-77.imp"
if (((10) >= (OPCODE))) goto L_0300;
#line 2467 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (24))) goto L_0301;
#line 2467 "regression-compile-tmp/allimpc1-77.imp"
L_0300:;
#line 2467 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2467 "regression-compile-tmp/allimpc1-77.imp"
L_0301:;
                                                                //   2468           %IF OPCODE=11 %OR OPCODE=23 %THEN KK=1 %ELSE KK=2
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) == (11))) goto L_0302;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (23))) goto L_0303;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
L_0302:;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
KK = 1;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
goto L_0304;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
L_0303:;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
KK = 2;
#line 2468 "regression-compile-tmp/allimpc1-77.imp"
L_0304:;
                                                                //   2469           %CYCLE KK=KK,-1,1
#line 2469 "regression-compile-tmp/allimpc1-77.imp"
KK = ((KK) + ((int)(1)));
if ((((1)-(KK)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle KK = KK, (-1), 1");
L_0305:;
if (KK == 1) goto L_0306;
KK += (-1);
                                                                //   2470           POP(OPHEAD,C,DP(KK))
#line 2470 "regression-compile-tmp/allimpc1-77.imp"
POP(&OPHEAD, &C, &DP[(((int)(KK)) - (1))]);
                                                                //   2471           PT(KK)=C>>8; BS(KK)=C&15
#line 2471 "regression-compile-tmp/allimpc1-77.imp"
PT[(((int)(KK)) - (1))] = (int)((((unsigned int)(C)) >> (8)));
#line 2471 "regression-compile-tmp/allimpc1-77.imp"
BS[(((int)(KK)) - (1))] = ((C) & (15));
                                                                //   2472           %REPEAT
#line 2472 "regression-compile-tmp/allimpc1-77.imp"
goto L_0305;
#line 2472 "regression-compile-tmp/allimpc1-77.imp"
L_0306:;
                                                                //   2473  SKIP:    ->S(OPCODE+25*REAL)
#line 2473 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2473 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_idx = ((OPCODE) + ((int)(((25) * ((int)(REAL)))))); if ((0 <= sw9_S_idx) && (sw9_S_idx <= 49)) goto *sw9_S[sw9_S_idx]; else {
   /*_imp_signal(8, 2, sw9_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 0:49 at %s:%d\n",
           sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2474  S(0):                                  ! INTEGER CONST<4096 IN INT EXP
#line 2474 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_0:;
                                                                //   2475  S(25):                                 ! INT CONST<4096 IN REAL EXRRN
#line 2475 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_25:;
                                                                //   2476           D=X'FF00'; C=ST(JJ+2);->L99
#line 2476 "regression-compile-tmp/allimpc1-77.imp"
D = 65280;
#line 2476 "regression-compile-tmp/allimpc1-77.imp"
C = ST[(((int)(JJ)) + (2))];
#line 2476 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2477  S(1):                                  ! LONG INT CONST IN INT EXPRN
#line 2477 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_1:;
                                                                //   2478           C=SORT CONST(ST(JJ+1),0,1)
#line 2478 "regression-compile-tmp/allimpc1-77.imp"
C = SORTCONST(ST[(((int)(JJ)) + (1))], 0, 1);
                                                                //   2479           D=256+GLA;->L99
#line 2479 "regression-compile-tmp/allimpc1-77.imp"
D = (((int)(256)) + (GLA));
#line 2479 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2480  S(26):                                 ! LONG ICONST IN EXPRN
#line 2480 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_26:;
                                                                //   2481           D=512+GLA; D=D+3<<11 %IF LONGREAL=1
#line 2481 "regression-compile-tmp/allimpc1-77.imp"
D = (((int)(512)) + (GLA));
#line 2481 "regression-compile-tmp/allimpc1-77.imp"
if (((LONGREAL) != (1))) goto L_0308;
#line 2481 "regression-compile-tmp/allimpc1-77.imp"
D = ((D) + ((int)(((3) << (11)))));
#line 2481 "regression-compile-tmp/allimpc1-77.imp"
L_0308:;
                                                                //   2482           C=SORT CONST(ST(JJ+1),LONGREAL,2);->L99
#line 2482 "regression-compile-tmp/allimpc1-77.imp"
C = SORTCONST(ST[(((int)(JJ)) + (1))], LONGREAL, 2);
#line 2482 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2483  S(2):    S(27):                        !LOCAL VARIABLE
#line 2483 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_2:;
#line 2483 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_27:;
                                                                //   2484           D=ST(JJ+1); C=ST(JJ+2); ->L99
#line 2484 "regression-compile-tmp/allimpc1-77.imp"
D = ST[(((int)(JJ)) + (1))];
#line 2484 "regression-compile-tmp/allimpc1-77.imp"
C = ST[(((int)(JJ)) + (2))];
#line 2484 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2485  S(33):                            ! REAL IN FR
#line 2485 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_33:;
                                                                //   2486           D=ST(JJ+1); C=-2; ->L99
#line 2486 "regression-compile-tmp/allimpc1-77.imp"
D = ST[(((int)(JJ)) + (1))];
#line 2486 "regression-compile-tmp/allimpc1-77.imp"
C = (-2);
#line 2486 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2487  S(9):    S(34):                        !(INTEGER)  IN G.R.
#line 2487 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_9:;
#line 2487 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_34:;
                                                                //   2488           D=256+ST(JJ+1); C=-2; ->L99
#line 2488 "regression-compile-tmp/allimpc1-77.imp"
D = (((int)(256)) + (ST[(((int)(JJ)) + (1))]));
#line 2488 "regression-compile-tmp/allimpc1-77.imp"
C = (-2);
#line 2488 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2489  S(10):   S(35):                        !PARKED IN CORE
#line 2489 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_10:;
#line 2489 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_35:;
                                                                //   2490           C=ST(JJ+2);D=ST(JJ+1)
#line 2490 "regression-compile-tmp/allimpc1-77.imp"
C = ST[(((int)(JJ)) + (2))];
#line 2490 "regression-compile-tmp/allimpc1-77.imp"
D = ST[(((int)(JJ)) + (1))];
                                                                //   2491           %IF REAL=1 %AND D>>8&24=24 %THEN PUSH(LWSP(LEVEL),0,C) %ELSE %C
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (1))) goto L_0309;
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)((((unsigned int)(D)) >> (8)))) & (24))) != (24))) goto L_0309;
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LWSP[LEVEL], 0, C);
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
goto L_030a;
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
L_0309:;
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, C);
#line 2491 "regression-compile-tmp/allimpc1-77.imp"
L_030a:;
                                                                //   2492           PUSH(WSP(LEVEL),0,C); ->L99
#line 2492 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2493  S(11):                                 ! NEGATE IN INTEGER EXPRN
#line 2493 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_11:;
                                                                //   2494           ->L109 %UNLESS PT(1)=255 %AND DP(1)=1
#line 2494 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[0]) != (255))) goto L_0307;
#line 2494 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[0]) == (1))) goto L_030b;
#line 2494 "regression-compile-tmp/allimpc1-77.imp"
L_0307:;
#line 2494 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 2494 "regression-compile-tmp/allimpc1-77.imp"
L_030b:;
                                                                //   2495           AFLAG=0; D=256+GLA; C=16; ->L99 ;! OPTIMISE (-1)
#line 2495 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2495 "regression-compile-tmp/allimpc1-77.imp"
D = (((int)(256)) + (GLA));
#line 2495 "regression-compile-tmp/allimpc1-77.imp"
C = 16;
#line 2495 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2496  S(36):                                 ! NEGATE IN REAL EXPRN
#line 2496 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_36:;
                                                                //   2497  L109:     C=1; D=X'13'+REAL*(32-EVALUATE)
#line 2497 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2497 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2497 "regression-compile-tmp/allimpc1-77.imp"
D = ((19) + ((int)(((REAL) * ((unsigned char)((((int)(32)) - (EVALUATE))))))));
                                                                //   2498           LOAD(C,-1,REAL)
#line 2498 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), REAL);
                                                                //   2499           AFLAG=1
#line 2499 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 1;
                                                                //   2500           PRR(D,BS(1),BS(1));           ! LCR,LCER,LCDR
#line 2500 "regression-compile-tmp/allimpc1-77.imp"
PRR(D, BS[0], BS[0]);
                                                                //   2501  L111:     D=(REAL+1+24*LONGREAL)<<8!BS(C)
#line 2501 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2501 "regression-compile-tmp/allimpc1-77.imp"
D = ((((((((((int)(REAL)) + (1)))) + (((24) * ((int)(LONGREAL)))))) << (8))) | (BS[(((int)(C)) - (1))]));
                                                                //   2502           C=-2; ->L99
#line 2502 "regression-compile-tmp/allimpc1-77.imp"
C = (-2);
#line 2502 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2503  S(23):                                 !INITIAL NOT
#line 2503 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_23:;
                                                                //   2504           C=1; AFLAG=2; LOAD(C,-1,0)
#line 2504 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2504 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 2;
#line 2504 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 0);
                                                                //   2505           PRX(X'57',BS(1),0,GLA,16); ->L111
#line 2505 "regression-compile-tmp/allimpc1-77.imp"
PRX(87, BS[0], 0, GLA, 16);
#line 2505 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2506  S(12):   S(37):                        !ADDITION
#line 2506 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_12:;
#line 2506 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_37:;
                                                                //   2507           AFLAG=1;D=X'5A'
#line 2507 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 1;
#line 2507 "regression-compile-tmp/allimpc1-77.imp"
D = 90;
                                                                //   2508  L125:     C=0
#line 2508 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2508 "regression-compile-tmp/allimpc1-77.imp"
C = 0;
                                                                //   2509  L126:     LOAD(C,-1,REAL); TEST(3-C)
#line 2509 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2509 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), REAL);
#line 2509 "regression-compile-tmp/allimpc1-77.imp"
TEST((((int)(3)) - (C)));
                                                                //   2510           D=D+REAL*(X'20'-EVALUATE)
#line 2510 "regression-compile-tmp/allimpc1-77.imp"
D = ((D) + ((int)(((REAL) * ((unsigned char)((((int)(32)) - (EVALUATE))))))));
                                                                //   2511           PLANT(D,C,3-C);->L111
#line 2511 "regression-compile-tmp/allimpc1-77.imp"
PLANT(D, C, (((int)(3)) - (C)));
#line 2511 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2512  S(13):   S(38):                        !SUBTRACTION
#line 2512 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_13:;
#line 2512 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_38:;
                                                                //   2513           AFLAG=1; D=X'5B';C=1
#line 2513 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 1;
#line 2513 "regression-compile-tmp/allimpc1-77.imp"
D = 91;
#line 2513 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
                                                                //   2514           ->L126 %UNLESS REAL=0 %AND PT(2)=255 %AND 1<=DP(2)<=2
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
if (((REAL) != (0))) goto L_030c;
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[1]) != (255))) goto L_030c;
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (DP[1]))) || (((DP[1]) <= (2)))) goto L_030d;
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
L_030c:;
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 2514 "regression-compile-tmp/allimpc1-77.imp"
L_030d:;
                                                                //   2515           AFLAG=0; LOAD(C,-1,0)
#line 2515 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2515 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 0);
                                                                //   2516           PRR(6,BS(1),0) %IF DP(2)=2
#line 2516 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[1]) != (2))) goto L_030e;
#line 2516 "regression-compile-tmp/allimpc1-77.imp"
PRR(6, BS[0], 0);
#line 2516 "regression-compile-tmp/allimpc1-77.imp"
L_030e:;
                                                                //   2517           PRR(6,BS(1),0);->L111          ;!BCTR TO SUBTRACT 1 OR 2
#line 2517 "regression-compile-tmp/allimpc1-77.imp"
PRR(6, BS[0], 0);
#line 2517 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2518  S(14):   D=X'57';                      !EXCLUSIVE OR
#line 2518 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_14:;
#line 2518 "regression-compile-tmp/allimpc1-77.imp"
D = 87;
                                                                //   2519  L141:     AFLAG=2; ->L125
#line 2519 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
#line 2519 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 2;
#line 2519 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
                                                                //   2520  S(15):   D=X'56';->L141;                !OR
#line 2520 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_15:;
#line 2520 "regression-compile-tmp/allimpc1-77.imp"
D = 86;
#line 2520 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
                                                                //   2521  S(16):   MULT(D); C=-2; ->L99
#line 2521 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_16:;
#line 2521 "regression-compile-tmp/allimpc1-77.imp"
MULT(&D);
#line 2521 "regression-compile-tmp/allimpc1-77.imp"
C = (-2);
#line 2521 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2522  S(17):S(18):   DIV(D); C=-2; ->L99
#line 2522 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_17:;
#line 2522 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_18:;
#line 2522 "regression-compile-tmp/allimpc1-77.imp"
DIV(&D);
#line 2522 "regression-compile-tmp/allimpc1-77.imp"
C = (-2);
#line 2522 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   2523  S(19):   D=X'54';->L141;                !AND
#line 2523 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_19:;
#line 2523 "regression-compile-tmp/allimpc1-77.imp"
D = 84;
#line 2523 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
                                                                //   2524  S(20):S(21):                           !SLL(21) AND SLR
#line 2524 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_20:;
#line 2524 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_21:;
                                                                //   2525           D=0
#line 2525 "regression-compile-tmp/allimpc1-77.imp"
D = 0;
                                                                //   2526           C=1; LOAD(C,-1,0)
#line 2526 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2526 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 0);
                                                                //   2527           D=1 %IF PT(2)=255
#line 2527 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[1]) != (255))) goto L_030f;
#line 2527 "regression-compile-tmp/allimpc1-77.imp"
D = 1;
#line 2527 "regression-compile-tmp/allimpc1-77.imp"
L_030f:;
                                                                //   2528           C=2; LOAD(C,-1,0) %IF D=0
#line 2528 "regression-compile-tmp/allimpc1-77.imp"
C = 2;
#line 2528 "regression-compile-tmp/allimpc1-77.imp"
if (((D) != (0))) goto L_0310;
#line 2528 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 0);
#line 2528 "regression-compile-tmp/allimpc1-77.imp"
L_0310:;
                                                                //   2529           PRX(X'89'+OPCODE-21,BS(1),0,BS(2),D*DP(2))
#line 2529 "regression-compile-tmp/allimpc1-77.imp"
PRX((((int)((((int)(137)) + (OPCODE)))) - (21)), BS[0], 0, BS[1], (((int)(D)) * (DP[1])));
                                                                //   2530           REGISTER(BS(2))=0 %IF D=0
#line 2530 "regression-compile-tmp/allimpc1-77.imp"
if (((D) != (0))) goto L_0311;
#line 2530 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[BS[1]] = 0;
#line 2530 "regression-compile-tmp/allimpc1-77.imp"
L_0311:;
                                                                //   2531           C=1; AFLAG=0; ->L111
#line 2531 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2531 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2531 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2532  S(22):   %CYCLE C=1,1,2
#line 2532 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_22:;
#line 2532 "regression-compile-tmp/allimpc1-77.imp"
C = 0;
if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle C = 1, 1, 2");
L_0312:;
if (C == 2) goto L_0313;
C += 1;
                                                                //   2533           LOAD(C,-1,0)
#line 2533 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 0);
                                                                //   2534           DUMP(1,BS(C),28+4*C,0,GLA)
#line 2534 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, BS[(((int)(C)) - (1))], ((28) + ((int)((((int)(4)) * (C))))), 0, GLA);
                                                                //   2535           REGISTER(BS(C))=0; %REPEAT
#line 2535 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[BS[(((int)(C)) - (1))]] = 0;
#line 2535 "regression-compile-tmp/allimpc1-77.imp"
goto L_0312;
#line 2535 "regression-compile-tmp/allimpc1-77.imp"
L_0313:;
                                                                //   2536           ->L221 %IF REGISTER(0)#0
#line 2536 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[0]) == (0))) goto L_0315;
#line 2536 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
#line 2536 "regression-compile-tmp/allimpc1-77.imp"
L_0315:;
                                                                //   2537           C=2; AFLAG=0
#line 2537 "regression-compile-tmp/allimpc1-77.imp"
C = 2;
#line 2537 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
                                                                //   2538           REGISTER(0)=1
#line 2538 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[0] = 1;
                                                                //   2539           PPJ(15); BS(2)=0; ->L111;      ! RESULT IN R0
#line 2539 "regression-compile-tmp/allimpc1-77.imp"
PPJ(15);
#line 2539 "regression-compile-tmp/allimpc1-77.imp"
BS[1] = 0;
#line 2539 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2540  L221:     C=FINDR; D=FINDR; PRR(X'18',C,0)
#line 2540 "regression-compile-tmp/allimpc1-77.imp"
U_1085:;
#line 2540 "regression-compile-tmp/allimpc1-77.imp"
C = FINDR();
#line 2540 "regression-compile-tmp/allimpc1-77.imp"
D = FINDR();
#line 2540 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, C, 0);
                                                                //   2541           PPJ(15); PRR(X'18',D,0); PRR(X'18',0,C)
#line 2541 "regression-compile-tmp/allimpc1-77.imp"
PPJ(15);
#line 2541 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, D, 0);
#line 2541 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 0, C);
                                                                //   2542           REGISTER(C)=0; C=2; AFLAG=0; BS(2)=D; ->L111
#line 2542 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[C] = 0;
#line 2542 "regression-compile-tmp/allimpc1-77.imp"
C = 2;
#line 2542 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2542 "regression-compile-tmp/allimpc1-77.imp"
BS[1] = D;
#line 2542 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2543  S(39):S(40):S(42):S(44):S(45):S(46):S(48):  !INTEGER OP IN REAL
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_39:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_40:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_42:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_44:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_45:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_46:;
#line 2543 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_48:;
                                                                //   2544           FAULT(24);                    ! INTEGER OP IN REAL
#line 2544 "regression-compile-tmp/allimpc1-77.imp"
FAULT(24);
                                                                //   2545           %IF OPCODE=23 %THEN OPCODE=36 %ELSE OPCODE=37;! \ ->L - ...
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (23))) goto L_0316;
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = 36;
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
goto L_0317;
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
L_0316:;
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = 37;
#line 2545 "regression-compile-tmp/allimpc1-77.imp"
L_0317:;
                                                                //   2546           ->S(OPCODE);                  ! ! TREAT OTHERS AS +
#line 2546 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_idx = OPCODE; if ((0 <= sw9_S_idx) && (sw9_S_idx <= 49)) goto *sw9_S[sw9_S_idx]; else {
   /*_imp_signal(8, 2, sw9_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 0:49 at %s:%d\n",
           sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2547  S(41):                                 !REAL MULT
#line 2547 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_41:;
                                                                //   2548           D=X'5C';C=0
#line 2548 "regression-compile-tmp/allimpc1-77.imp"
D = 92;
#line 2548 "regression-compile-tmp/allimpc1-77.imp"
C = 0;
                                                                //   2549  L410:     AFLAG=0; ->L126
#line 2549 "regression-compile-tmp/allimpc1-77.imp"
U_1086:;
#line 2549 "regression-compile-tmp/allimpc1-77.imp"
AFLAG = 0;
#line 2549 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
                                                                //   2550  S(43):                                 ! REAL DIVISION
#line 2550 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_43:;
                                                                //   2551           D=X'5D';C=1;->L410
#line 2551 "regression-compile-tmp/allimpc1-77.imp"
D = 93;
#line 2551 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2551 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   2552  S(47):                                 !REAL EXPONENTIATION
#line 2552 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_47:;
                                                                //   2553           C=1; LOAD(C,-1,1)
#line 2553 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2553 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, (-1), 1);
                                                                //   2554           ->L222 %IF PT(2)=255 %AND DP(2)=2;       ! OPTIMISE **2
#line 2554 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[1]) != (255))) goto L_0318;
#line 2554 "regression-compile-tmp/allimpc1-77.imp"
if (((DP[1]) != (2))) goto L_0318;
#line 2554 "regression-compile-tmp/allimpc1-77.imp"
goto U_1087;
#line 2554 "regression-compile-tmp/allimpc1-77.imp"
L_0318:;
                                                                //   2555           PRR(X'38'-EVALUATE,0,BS(1))
#line 2555 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(56)) - (EVALUATE)), 0, BS[0]);
                                                                //   2556           C=2; FAULT(39) %UNLESS PT(2)=255 %OR PT(2)&7<=1
#line 2556 "regression-compile-tmp/allimpc1-77.imp"
C = 2;
#line 2556 "regression-compile-tmp/allimpc1-77.imp"
if (((PT[1]) == (255))) goto L_0319;
#line 2556 "regression-compile-tmp/allimpc1-77.imp"
if (((((PT[1]) & (7))) <= (1))) goto L_0319;
#line 2556 "regression-compile-tmp/allimpc1-77.imp"
FAULT(39);
#line 2556 "regression-compile-tmp/allimpc1-77.imp"
L_0319:;
                                                                //   2557           LOAD(C,1,0); PPJ(36)
#line 2557 "regression-compile-tmp/allimpc1-77.imp"
LOAD(&C, 1, 0);
#line 2557 "regression-compile-tmp/allimpc1-77.imp"
PPJ(36);
                                                                //   2558           REGISTER(1)=0
#line 2558 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[1] = 0;
                                                                //   2559           PRR(X'38'-EVALUATE,BS(1),0)
#line 2559 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(56)) - (EVALUATE)), BS[0], 0);
                                                                //   2560           C=1;->L111
#line 2560 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2560 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2561  L222:     PRR(X'3C'-EVALUATE,BS(1),BS(1))
#line 2561 "regression-compile-tmp/allimpc1-77.imp"
U_1087:;
#line 2561 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(60)) - (EVALUATE)), BS[0], BS[0]);
                                                                //   2562           C=1; ->L111
#line 2562 "regression-compile-tmp/allimpc1-77.imp"
C = 1;
#line 2562 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
                                                                //   2563  L99:      PUSH(OPHEAD,D,C) %UNLESS JJ=LAST
#line 2563 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2563 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) == (LAST))) goto L_031a;
#line 2563 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&OPHEAD, D, C);
#line 2563 "regression-compile-tmp/allimpc1-77.imp"
L_031a:;
                                                                //   2564  S(24):S(49): %REPEAT
#line 2564 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_24:;
#line 2564 "regression-compile-tmp/allimpc1-77.imp"
sw9_S_49:;
#line 2564 "regression-compile-tmp/allimpc1-77.imp"
goto L_02fd;
#line 2564 "regression-compile-tmp/allimpc1-77.imp"
L_02fe:;
                                                                //   2565           DP(1)=C;PT(1)=D>>8;BS(1)=D&15 ;! FINAL RESULT
#line 2565 "regression-compile-tmp/allimpc1-77.imp"
DP[0] = C;
#line 2565 "regression-compile-tmp/allimpc1-77.imp"
PT[0] = (int)((((unsigned int)(D)) >> (8)));
#line 2565 "regression-compile-tmp/allimpc1-77.imp"
BS[0] = ((D) & (15));
                                                                //   2566           %END
#line 2566 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw9_S_3:;
sw9_S_4:;
sw9_S_5:;
sw9_S_6:;
sw9_S_7:;
sw9_S_8:;
sw9_S_28:;
sw9_S_29:;
sw9_S_30:;
sw9_S_31:;
sw9_S_32:;
/*_imp_signal(6,3,sw9_S_idx,"SWITCH LABEL NOT SET - sw9_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw9_S(%d): at line %s:%d", sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block PRINTORDERS at level 4
                                                                //   2567  L99:      %END;               ! OF ROUTINE CSEXP
#line 2567 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 2567 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSEXP at level 3
                                                                //   2568           %INTEGERFN SORT CONST(%INTEGER P,LONG,TYPE)
#line 2568 "regression-compile-tmp/allimpc1-77.imp"
int SORTCONST( int P, int LONG, int TYPE )
#line 2568 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2569           !%SHORTROUTINE
                                                                //   2570           %LONGREAL CVALUE
#line 2570 "regression-compile-tmp/allimpc1-77.imp"
double CVALUE;
                                                                //   2571           %INTEGER I,K
#line 2571 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 2571 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //   2572           ->L50 %IF TYPE=2
#line 2572 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_031b;
#line 2572 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 2572 "regression-compile-tmp/allimpc1-77.imp"
L_031b:;
                                                                //   2573  {         FAULT(24) %IF A(P)&7#1   ; ! This is faulting erroneously on the sparc
                                                                //   2574           %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I)
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_031c;
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
goto L_031d;
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
L_031c:;
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
FROMAR4((((int)(P)) + (1)), &I);
#line 2574 "regression-compile-tmp/allimpc1-77.imp"
L_031d:;
                                                                //   2575  L40:      K=N0
#line 2575 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 2575 "regression-compile-tmp/allimpc1-77.imp"
K = N0;
                                                                //   2576           ST(K)=I; N0=N0+1
#line 2576 "regression-compile-tmp/allimpc1-77.imp"
ST[K] = I;
#line 2576 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (1));
                                                                //   2577           %RESULT =K<<2
#line 2577 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((K) << (2));
                                                                //   2578  L50:      CVALUE=0
#line 2578 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 2578 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = 0;
                                                                //   2579           ->L60 %UNLESS A(P)&7=1
#line 2579 "regression-compile-tmp/allimpc1-77.imp"
if (((((A[((P) + ((int)(2)))]) & (7))) == (1))) goto L_031e;
#line 2579 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2579 "regression-compile-tmp/allimpc1-77.imp"
L_031e:;
                                                                //   2580           %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I)
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_031f;
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
goto L_0320;
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
L_031f:;
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
FROMAR4((((int)(P)) + (1)), &I);
#line 2580 "regression-compile-tmp/allimpc1-77.imp"
L_0320:;
                                                                //   2581           CVALUE=I;->L70
#line 2581 "regression-compile-tmp/allimpc1-77.imp"
CVALUE = I;
#line 2581 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   2582  L60:      FROMAR8(P+1,CVALUE)
#line 2582 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 2582 "regression-compile-tmp/allimpc1-77.imp"
FROMAR8((((int)(P)) + (1)), &CVALUE);
                                                                //   2583  L70:      ->L75 %IF LONG#0
#line 2583 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 2583 "regression-compile-tmp/allimpc1-77.imp"
if (((LONG) == (0))) goto L_0321;
#line 2583 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2583 "regression-compile-tmp/allimpc1-77.imp"
L_0321:;
                                                                //   2584           I=INTEGER(ADDR(CVALUE)); ->L40
#line 2584 "regression-compile-tmp/allimpc1-77.imp"
I = *_imp_INTEGER(_imp_ADDR(&CVALUE));
#line 2584 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   2585  L75:      K=(N0+1)&(-2)
#line 2585 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 2585 "regression-compile-tmp/allimpc1-77.imp"
K = (((((int)(N0)) + (1))) & ((-2)));
                                                                //   2586           ST(K)=INTEGER(ADDR(CVALUE))
#line 2586 "regression-compile-tmp/allimpc1-77.imp"
ST[K] = *_imp_INTEGER(_imp_ADDR(&CVALUE));
                                                                //   2587           ST(K+1)=INTEGER(ADDR(CVALUE)+4)
#line 2587 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(K)) + (1))] = *_imp_INTEGER((((int)(_imp_ADDR(&CVALUE))) + (4)));
                                                                //   2588           N0=K+2
#line 2588 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(K)) + (2));
                                                                //   2589           %RESULT=K<<2
#line 2589 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((K) << (2));
                                                                //   2590           %END
#line 2590 "regression-compile-tmp/allimpc1-77.imp"
} // End of block SORTCONST at level 3
                                                                //   2591           %ROUTINE CSTREXP(%INTEGER REG)
#line 2591 "regression-compile-tmp/allimpc1-77.imp"
void CSTREXP( int REG )
#line 2591 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2592           !%SHORTROUTINE
                                                                //   2593           %COMMENT EVALUATES STRING EXPR USING CURRENT
                                                                //   2594           %COMMENT WORKAREA AND 1 SUBROUTINES LEAVES ADDR IN
                                                                //   2595           %COMMENT REG -VE IF STRING MUST BE MOVED TO WK.ARREA
                                                                //   2596           %INTEGER JJ,QQ,KK,WKAREA,PP
#line 2596 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 2596 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
#line 2596 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 2596 "regression-compile-tmp/allimpc1-77.imp"
int WKAREA;
#line 2596 "regression-compile-tmp/allimpc1-77.imp"
int PP;
                                                                //   2597           SETEX %UNLESS STRINST#0
#line 2597 "regression-compile-tmp/allimpc1-77.imp"
if (((STRINST) != (0))) goto L_0322;
#line 2597 "regression-compile-tmp/allimpc1-77.imp"
SETEX();
#line 2597 "regression-compile-tmp/allimpc1-77.imp"
L_0322:;
                                                                //   2598           PP=P
#line 2598 "regression-compile-tmp/allimpc1-77.imp"
PP = P;
                                                                //   2599           JJ=TSEXP(QQ); ->L71 %IF JJ=20 %AND REG>=0
#line 2599 "regression-compile-tmp/allimpc1-77.imp"
JJ = TSEXP(&QQ);
#line 2599 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) != (20))) goto L_0323;
#line 2599 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) < (0))) goto L_0323;
#line 2599 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 2599 "regression-compile-tmp/allimpc1-77.imp"
L_0323:;
                                                                //   2600           P=PP; REG=|REG|
#line 2600 "regression-compile-tmp/allimpc1-77.imp"
P = PP;
#line 2600 "regression-compile-tmp/allimpc1-77.imp"
REG = _imp_IMOD(REG);
                                                                //   2601           WKAREA=GET STR WSP
#line 2601 "regression-compile-tmp/allimpc1-77.imp"
WKAREA = GETSTRWSP();
                                                                //   2602           PSI(X'92',0,RBASE,WKAREA);    ! CLEAR WORK AREA
#line 2602 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, 0, RBASE, WKAREA);
                                                                //   2603           ->L2 %IF A(P)=4
#line 2603 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (4))) goto L_0324;
#line 2603 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 2603 "regression-compile-tmp/allimpc1-77.imp"
L_0324:;
                                                                //   2604  L1:       FAULT(71)
#line 2604 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 2604 "regression-compile-tmp/allimpc1-77.imp"
FAULT(71);
                                                                //   2605  L4:       P=PP; SKIP EXP; ->L99
#line 2605 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 2605 "regression-compile-tmp/allimpc1-77.imp"
P = PP;
#line 2605 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 2605 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   2606  L5:       FAULT(72); ->L4
#line 2606 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 2606 "regression-compile-tmp/allimpc1-77.imp"
FAULT(72);
#line 2606 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   2607  L2:       ->L10 %IF A(P+1)=2
#line 2607 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 2607 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0325;
#line 2607 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 2607 "regression-compile-tmp/allimpc1-77.imp"
L_0325:;
                                                                //   2608           ->L1 %UNLESS A(P+1)=1          ;!NAME
#line 2608 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0326;
#line 2608 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2608 "regression-compile-tmp/allimpc1-77.imp"
L_0326:;
                                                                //   2609           P=P+2; CNAME(2,1)
#line 2609 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2609 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, 1);
                                                                //   2610           ->L1 %UNLESS TYPE=5;->L20
#line 2610 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0327;
#line 2610 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2610 "regression-compile-tmp/allimpc1-77.imp"
L_0327:;
#line 2610 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
                                                                //   2611  L10:      P=P+2;->L14 %IF A(P)=5
#line 2611 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 2611 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2611 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (5))) goto L_0328;
#line 2611 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 2611 "regression-compile-tmp/allimpc1-77.imp"
L_0328:;
                                                                //   2612           ->L1 %UNLESS A(P)=9 %AND A(P+1)<127
#line 2612 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (9))) goto L_02ff;
#line 2612 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) < (127))) goto L_0329;
#line 2612 "regression-compile-tmp/allimpc1-77.imp"
L_02ff:;
#line 2612 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 2612 "regression-compile-tmp/allimpc1-77.imp"
L_0329:;
                                                                //   2613           ->L11 %IF A(P+1)=0
#line 2613 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (0))) goto L_032a;
#line 2613 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 2613 "regression-compile-tmp/allimpc1-77.imp"
L_032a:;
                                                                //   2614                 PRX(X'41',1,0,0,A(P+1))
#line 2614 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, 0, A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
                                                                //   2615           P=P+2;->L20
#line 2615 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2615 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
                                                                //   2616  L11:      P=P+2; ->L21;                  ! NULL STRING
#line 2616 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 2616 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2616 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2617  L14:      %COMMENT STRING CONSTANT PUT IN CODE CF (TEXTTEXT)
#line 2617 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
                                                                //   2618           KK=(CA+6+A(P+1)-CODEBASE(LEVEL))&(-2)
#line 2618 "regression-compile-tmp/allimpc1-77.imp"
KK = (((((int)((((short)((((int)(CA)) + (6)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) - (CODEBASE[LEVEL]))) & ((-2)));
                                                                //   2619           QQ=0;->L15 %IF KK<4095
#line 2619 "regression-compile-tmp/allimpc1-77.imp"
QQ = 0;
#line 2619 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) >= (4095))) goto L_032b;
#line 2619 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 2619 "regression-compile-tmp/allimpc1-77.imp"
L_032b:;
                                                                //   2620           KK=KK+4;QQ=1
#line 2620 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)(KK)) + (4));
#line 2620 "regression-compile-tmp/allimpc1-77.imp"
QQ = 1;
                                                                //   2621           PRX(X'58',1,GLA,0,PAGENO(KK)<<2)
#line 2621 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 1, GLA, 0, ((PAGENO(KK)) << (2)));
                                                                //   2622  L15:      PRX(X'45',1,10,QQ,KK&4095)
#line 2622 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 2622 "regression-compile-tmp/allimpc1-77.imp"
PRX(69, 1, 10, QQ, ((KK) & (4095)));
                                                                //   2623           P=P+1; %CYCLE KK=1,1,(A(P)+2)//2
#line 2623 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2623 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = ((long)((long)(((((int)(A[((P) + ((int)(2)))])) + (2)))) / (long)((int)(2)))); KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, ((long)((long)(((((int)(A[((P) + ((int)(2)))])) + (2)))) / (long)((int)(2))))");
KK -= _increment; _control -= _increment;
L_032c:;
if (KK == _final) goto L_032d;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   2624           PLANT(A(P)<<8!A(P+1))
#line 2624 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((((A[((P) + ((int)(2)))]) << (8))) | (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])));
                                                                //   2625           P=P+2;%REPEAT
#line 2625 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2625 "regression-compile-tmp/allimpc1-77.imp"
goto L_032c;
#line 2625 "regression-compile-tmp/allimpc1-77.imp"
L_032d:;
                                                                //   2626  L20:      PRX(X'41',2,RBASE,0,WKAREA)
#line 2626 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 2626 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 2, RBASE, 0, WKAREA);
                                                                //   2627           PPJ(26)
#line 2627 "regression-compile-tmp/allimpc1-77.imp"
PPJ(26);
                                                                //   2628  L21:      ->L90 %IF A(P)=2;              ! END OF EXPRN
#line 2628 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 2628 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_032f;
#line 2628 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2628 "regression-compile-tmp/allimpc1-77.imp"
L_032f:;
                                                                //   2629           ->L5 %UNLESS A(P+1)=12
#line 2629 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (12))) goto L_0330;
#line 2629 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 2629 "regression-compile-tmp/allimpc1-77.imp"
L_0330:;
                                                                //   2630           P=P+1;->L2
#line 2630 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2630 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   2631  L71:      DUMP(2,REG,K,I,0); ->L99
#line 2631 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 2631 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, REG, K, I, 0);
#line 2631 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   2632  L90:      P=P+1
#line 2632 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 2632 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2633           PUSH(STR WSP(LEVEL),0,WKAREA)
#line 2633 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&STRWSP[LEVEL], 0, WKAREA);
                                                                //   2634           PRX(X'41',REG,0,RBASE,WKAREA)
#line 2634 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, REG, 0, RBASE, WKAREA);
                                                                //   2635  L99:      PTYPE=5; UNPACK; %END
#line 2635 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 2635 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 5;
#line 2635 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 2635 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSTREXP at level 3
                                                                //   2636           %ROUTINE     CRES(%INTEGER MODE,LAB)
#line 2636 "regression-compile-tmp/allimpc1-77.imp"
void CRES( int MODE, int LAB )
#line 2636 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2637           %ROUTINESPEC SKIP NAME
#line 2637 "regression-compile-tmp/allimpc1-77.imp"
auto void SKIPNAME( void );
                                                                //   2638           %ROUTINESPEC FAIL(%INTEGER MASK)
#line 2638 "regression-compile-tmp/allimpc1-77.imp"
auto void FAIL( int MASK );
                                                                //   2639           !%SHORTROUTINE
                                                                //   2640           %INTEGER P1,P2,P3,W,SEXPRN
#line 2640 "regression-compile-tmp/allimpc1-77.imp"
int P1;
#line 2640 "regression-compile-tmp/allimpc1-77.imp"
int P2;
#line 2640 "regression-compile-tmp/allimpc1-77.imp"
int P3;
#line 2640 "regression-compile-tmp/allimpc1-77.imp"
int W;
#line 2640 "regression-compile-tmp/allimpc1-77.imp"
int SEXPRN;
                                                                //   2641           %COMMENT MODE=0 UNCONDITIONAL # 0 CONDITIONAL
                                                                //   2642           %COMMENT ENTER WITH ADDR OF LHS IN R1 AND P ON PLUS''
                                                                //   2643           SEXPRN=0;W=GET DBLE WRD
#line 2643 "regression-compile-tmp/allimpc1-77.imp"
SEXPRN = 0;
#line 2643 "regression-compile-tmp/allimpc1-77.imp"
W = GETDBLEWRD();
                                                                //   2644           P1=P;->L1 %IF A(P)=4
#line 2644 "regression-compile-tmp/allimpc1-77.imp"
P1 = P;
#line 2644 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (4))) goto L_0331;
#line 2644 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 2644 "regression-compile-tmp/allimpc1-77.imp"
L_0331:;
                                                                //   2645  L1000:    P=P1;SKIP EXP
#line 2645 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 2645 "regression-compile-tmp/allimpc1-77.imp"
P = P1;
#line 2645 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   2646           FAULT(74);->L99
#line 2646 "regression-compile-tmp/allimpc1-77.imp"
FAULT(74);
#line 2646 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   2647  L1:       ->L1000 %UNLESS TYPE=5
#line 2647 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 2647 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0332;
#line 2647 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2647 "regression-compile-tmp/allimpc1-77.imp"
L_0332:;
                                                                //   2648           PRR(X'1B',2,2)                ;!SR_2,2
#line 2648 "regression-compile-tmp/allimpc1-77.imp"
PRR(27, 2, 2);
                                                                //   2649           PRX(X'90',1,2,RBASE,W)        ;!STM_1,2,W(RBASE)
#line 2649 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 1, 2, RBASE, W);
                                                                //   2650           P2=-1;P=P+2
#line 2650 "regression-compile-tmp/allimpc1-77.imp"
P2 = (-1);
#line 2650 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   2651           ->L10 %IF A(P-1)=3             ;!SUB EXPRESSION
#line 2651 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (3))) goto L_0333;
#line 2651 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 2651 "regression-compile-tmp/allimpc1-77.imp"
L_0333:;
                                                                //   2652           ->L1000 %UNLESS A(P-1)=1
#line 2652 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) == (1))) goto L_0334;
#line 2652 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2652 "regression-compile-tmp/allimpc1-77.imp"
L_0334:;
                                                                //   2653  L3:       P2=P;SKIP NAME
#line 2653 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 2653 "regression-compile-tmp/allimpc1-77.imp"
P2 = P;
#line 2653 "regression-compile-tmp/allimpc1-77.imp"
SKIPNAME();
                                                                //   2654           ->L50 %IF A(P)=2               ;!END
#line 2654 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0335;
#line 2654 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 2654 "regression-compile-tmp/allimpc1-77.imp"
L_0335:;
                                                                //   2655           ->L1000 %UNLESS A(P+1)=12      ;!ONLY - PERMITTED
#line 2655 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (12))) goto L_0336;
#line 2655 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2655 "regression-compile-tmp/allimpc1-77.imp"
L_0336:;
                                                                //   2656           ->L1000 %UNLESS A(P+2)=3; P=P+3
#line 2656 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (3))) goto L_0337;
#line 2656 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2656 "regression-compile-tmp/allimpc1-77.imp"
L_0337:;
#line 2656 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   2657  L10:      CSTREXP(-4);          ! STRING MUST GO TO WK.AREA
#line 2657 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 2657 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP((-4));
                                                                //   2658                                 ! IN CASE OF SIDE EFFECTS
                                                                //   2659           SEXPRN=SEXPRN+1
#line 2659 "regression-compile-tmp/allimpc1-77.imp"
SEXPRN = (((int)(SEXPRN)) + (1));
                                                                //   2660           PRX(X'98',1,2,RBASE,W)
#line 2660 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 1, 2, RBASE, W);
                                                                //   2661           PPJ(27)
#line 2661 "regression-compile-tmp/allimpc1-77.imp"
PPJ(27);
                                                                //   2662           FAIL(7)
#line 2662 "regression-compile-tmp/allimpc1-77.imp"
FAIL(7);
                                                                //   2663           PRX(X'90',1,2,RBASE,W);       ! SAVE R1 AND R2 FOR LATER
#line 2663 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 1, 2, RBASE, W);
                                                                //   2664           ->L15 %IF P2<0
#line 2664 "regression-compile-tmp/allimpc1-77.imp"
if (((P2) >= (0))) goto L_0338;
#line 2664 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 2664 "regression-compile-tmp/allimpc1-77.imp"
L_0338:;
                                                                //   2665           P3=P;P=P2
#line 2665 "regression-compile-tmp/allimpc1-77.imp"
P3 = P;
#line 2665 "regression-compile-tmp/allimpc1-77.imp"
P = P2;
                                                                //   2666           CNAME(1,4)
#line 2666 "regression-compile-tmp/allimpc1-77.imp"
CNAME(1, 4);
                                                                //   2667           FAULT(71) %UNLESS TYPE=5
#line 2667 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_0339;
#line 2667 "regression-compile-tmp/allimpc1-77.imp"
FAULT(71);
#line 2667 "regression-compile-tmp/allimpc1-77.imp"
L_0339:;
                                                                //   2668           P=P3
#line 2668 "regression-compile-tmp/allimpc1-77.imp"
P = P3;
                                                                //   2669  L12:      ->L1000 %UNLESS A(P)=1 %AND A(P+1)=12 %AND A(P+2)=1
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_032e;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (12))) goto L_032e;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (1))) goto L_033a;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
L_032e:;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2669 "regression-compile-tmp/allimpc1-77.imp"
L_033a:;
                                                                //   2670           P=P+3;->L3
#line 2670 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 2670 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
                                                                //   2671  L15:      PSI(X'95',0,4,0)
#line 2671 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 2671 "regression-compile-tmp/allimpc1-77.imp"
PSI(149, 0, 4, 0);
                                                                //   2672           FAIL(7);->L12
#line 2672 "regression-compile-tmp/allimpc1-77.imp"
FAIL(7);
#line 2672 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2673  L50:      ->L1000 %IF SEXPRN=0
#line 2673 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 2673 "regression-compile-tmp/allimpc1-77.imp"
if (((SEXPRN) != (0))) goto L_033b;
#line 2673 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 2673 "regression-compile-tmp/allimpc1-77.imp"
L_033b:;
                                                                //   2674           PRX(X'98',1,2,RBASE,W);       ! SAVE R1 AND R2 FOR LATER
#line 2674 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 1, 2, RBASE, W);
                                                                //   2675           PPJ(37)
#line 2675 "regression-compile-tmp/allimpc1-77.imp"
PPJ(37);
                                                                //   2676           P3=P;P=P2
#line 2676 "regression-compile-tmp/allimpc1-77.imp"
P3 = P;
#line 2676 "regression-compile-tmp/allimpc1-77.imp"
P = P2;
                                                                //   2677           CNAME(1,4)
#line 2677 "regression-compile-tmp/allimpc1-77.imp"
CNAME(1, 4);
                                                                //   2678           FAULT(71) %UNLESS TYPE=5
#line 2678 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_033c;
#line 2678 "regression-compile-tmp/allimpc1-77.imp"
FAULT(71);
#line 2678 "regression-compile-tmp/allimpc1-77.imp"
L_033c:;
                                                                //   2679           P=P3+1
#line 2679 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P3)) + (1));
                                                                //   2680  L99:      PUSH(LWSP(LEVEL),0,W)
#line 2680 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 2680 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LWSP[LEVEL], 0, W);
                                                                //   2681           %RETURN
#line 2681 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2682           %ROUTINE SKIP NAME
#line 2682 "regression-compile-tmp/allimpc1-77.imp"
void SKIPNAME( void )
#line 2682 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2683  L1:       P=P+1;SKIP APP
#line 2683 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 2683 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2683 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
                                                                //   2684           P=P+1;%RETURN %IF A(P-1)=2
#line 2684 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2684 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_033d;
#line 2684 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2684 "regression-compile-tmp/allimpc1-77.imp"
L_033d:;
                                                                //   2685           P=P+1;->L1
#line 2685 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2685 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2686           %END
#line 2686 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block SKIPNAME at level 4
                                                                //   2687           %ROUTINE FAIL(%INTEGER MASK)
#line 2687 "regression-compile-tmp/allimpc1-77.imp"
void FAIL( int MASK )
#line 2687 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2688           %IF MODE=0 %THEN PRX(X'47',MASK,0,CODER,152) %ELSE %C
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_033e;
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, 0, CODER, 152);
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
goto L_033f;
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
L_033e:;
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, LAB);
#line 2688 "regression-compile-tmp/allimpc1-77.imp"
L_033f:;
                                                                //   2689  P LOCAL JUMP(MASK,LAB)
                                                                //   2690           %END
#line 2690 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAIL at level 4
                                                                //   2691           %END
#line 2691 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRES at level 3
                                                                //   2692           %ROUTINE CCOND(%INTEGER IU,NEARLAB,FARLAB)
#line 2692 "regression-compile-tmp/allimpc1-77.imp"
void CCOND( int IU, int NEARLAB, int FARLAB )
#line 2692 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2693                 %COMMENT IU=0 FOR IF =1 FOR UNLESS
                                                                //   2694                 %ROUTINESPEC CCC
#line 2694 "regression-compile-tmp/allimpc1-77.imp"
auto void CCC( void );
                                                                //   2695           %ROUTINESPEC CSC(%INTEGERNAME FLAB)
#line 2695 "regression-compile-tmp/allimpc1-77.imp"
auto void CSC( int /*name*/*FLAB );
                                                                //   2696           %COMMENT  P ON ALT OF (SC)
                                                                //   2697           %INTEGER T,C,FAILPT,BASE,DISP
#line 2697 "regression-compile-tmp/allimpc1-77.imp"
int T;
#line 2697 "regression-compile-tmp/allimpc1-77.imp"
int C;
#line 2697 "regression-compile-tmp/allimpc1-77.imp"
int FAILPT;
#line 2697 "regression-compile-tmp/allimpc1-77.imp"
int BASE;
#line 2697 "regression-compile-tmp/allimpc1-77.imp"
int DISP;
                                                                //   2698           %INTEGER JNPORFP,TP,CLAUSES
#line 2698 "regression-compile-tmp/allimpc1-77.imp"
int JNPORFP;
#line 2698 "regression-compile-tmp/allimpc1-77.imp"
int TP;
#line 2698 "regression-compile-tmp/allimpc1-77.imp"
int CLAUSES;
                                                                //   2699           CLAUSES=0
#line 2699 "regression-compile-tmp/allimpc1-77.imp"
CLAUSES = 0;
                                                                //   2700           T=A(P+1+A(P+1))
#line 2700 "regression-compile-tmp/allimpc1-77.imp"
T = A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))];
                                                                //   2701           T=0 %IF T=3;                  !0=SC  1=%AND 2=%OR
#line 2701 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (3))) goto L_0340;
#line 2701 "regression-compile-tmp/allimpc1-77.imp"
T = 0;
#line 2701 "regression-compile-tmp/allimpc1-77.imp"
L_0340:;
                                                                //   2702           TP=T ; TP=TP+1 %IF T=0
#line 2702 "regression-compile-tmp/allimpc1-77.imp"
TP = T;
#line 2702 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (0))) goto L_0341;
#line 2702 "regression-compile-tmp/allimpc1-77.imp"
TP = (((int)(TP)) + (1));
#line 2702 "regression-compile-tmp/allimpc1-77.imp"
L_0341:;
                                                                //   2703           %IF IU!!(TP-1)=0 %THEN JNPORFP=FARLAB %ELSE JNPORFP=NEARLAB
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
if (((((IU) ^ ((((int)(TP)) - (1))))) != (0))) goto L_0342;
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
JNPORFP = FARLAB;
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
goto L_0343;
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
L_0342:;
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
JNPORFP = NEARLAB;
#line 2703 "regression-compile-tmp/allimpc1-77.imp"
L_0343:;
                                                                //   2704           FAILPT = 0; CCC ;  ->L99
#line 2704 "regression-compile-tmp/allimpc1-77.imp"
FAILPT = 0;
#line 2704 "regression-compile-tmp/allimpc1-77.imp"
CCC();
#line 2704 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
                                                                //   2705                 %ROUTINE CCOMP(%INTEGER C)
#line 2705 "regression-compile-tmp/allimpc1-77.imp"
void CCOMP( int C )
#line 2705 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2706           !%SHORTROUTINE
                                                                //   2707                 ! C=1 FIRST TIME, 2 SECOND
                                                                //   2708           %INTEGER M,L,Q,R,T
#line 2708 "regression-compile-tmp/allimpc1-77.imp"
int M;
#line 2708 "regression-compile-tmp/allimpc1-77.imp"
int L;
#line 2708 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 2708 "regression-compile-tmp/allimpc1-77.imp"
int R;
#line 2708 "regression-compile-tmp/allimpc1-77.imp"
int T;
                                                                //   2709           %OWNBYTEINTEGERARRAY FCOMP(1:7)=8,10,2,7,12,4,7;
#line 2709 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char FCOMP[7] = { 8, 10, 2, 7, 12, 4, 7,  };
                                                                //   2710           %OWNBYTEINTEGERARRAY BCOMP(1:7)=8,12,4,7,10,2,7;
#line 2710 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char BCOMP[7] = { 8, 12, 4, 7, 10, 2, 7,  };
                                                                //   2711           %SWITCH SW(-10:2)
#line 2711 "regression-compile-tmp/allimpc1-77.imp"
static int sw10_SW_idx;
static const void * /*SWITCH*/ sw10_SW[13] = { &&sw10_SW_M_10, &&sw10_SW_M_9, &&sw10_SW_M_8, &&sw10_SW_M_7, &&sw10_SW_M_6, &&sw10_SW_M_5, &&sw10_SW_M_4, &&sw10_SW_M_3, &&sw10_SW_M_2, &&sw10_SW_M_1, &&sw10_SW_0, &&sw10_SW_1, &&sw10_SW_2,  };
                                                                //   2712           M=A(P)
#line 2712 "regression-compile-tmp/allimpc1-77.imp"
M = A[((P) + ((int)(2)))];
                                                                //   2713           P=P+1; ->SW(C) %UNLESS M=8
#line 2713 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2713 "regression-compile-tmp/allimpc1-77.imp"
if (((M) == (8))) goto L_0344;
#line 2713 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_idx = C; if ((-10 <= sw10_SW_idx) && (sw10_SW_idx <= 2)) goto *(sw10_SW+10)[sw10_SW_idx];  /* Bounds=-10:2 */ else {
   /*_imp_signal(8, 2, sw10_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range -10:2 at %s:%d\n",
           sw10_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 2713 "regression-compile-tmp/allimpc1-77.imp"
L_0344:;
                                                                //   2714           FAULT(73); SKIP EXP; ->L1
#line 2714 "regression-compile-tmp/allimpc1-77.imp"
FAULT(73);
#line 2714 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 2714 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   2715  SW(-10):                               ! FIRST OPERAND SIMPLE STRING
#line 2715 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_10:;
                                                                //   2716           CSTREXP(1); NEST=1; DUMP(2,2,DISP,0,BASE); ->L161
#line 2716 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(1);
#line 2716 "regression-compile-tmp/allimpc1-77.imp"
NEST = 1;
#line 2716 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 2, DISP, 0, BASE);
#line 2716 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
                                                                //   2717  SW(-9):  T=P; R=TSEXP(Q)
#line 2717 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_9:;
#line 2717 "regression-compile-tmp/allimpc1-77.imp"
T = P;
#line 2717 "regression-compile-tmp/allimpc1-77.imp"
R = TSEXP(&Q);
                                                                //   2718           ->REG1 %IF R=10 %AND A(P)=2
#line 2718 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (10))) goto L_0345;
#line 2718 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0345;
#line 2718 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 2718 "regression-compile-tmp/allimpc1-77.imp"
L_0345:;
                                                                //   2719           ->REG2 %IF R=11 %AND A(P)=2
#line 2719 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (11))) goto L_0346;
#line 2719 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0346;
#line 2719 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
#line 2719 "regression-compile-tmp/allimpc1-77.imp"
L_0346:;
                                                                //   2720           P=T; CSEXP(0,0)
#line 2720 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2720 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
                                                                //   2721           ->REG3 %IF TYPE=2
#line 2721 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0347;
#line 2721 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
#line 2721 "regression-compile-tmp/allimpc1-77.imp"
L_0347:;
                                                                //   2722           PRR(X'19',DISP,NEST); ->L20;   !CR
#line 2722 "regression-compile-tmp/allimpc1-77.imp"
PRR(25, DISP, NEST);
#line 2722 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2723  REG1:    Q=X'59'; ->RCOM
#line 2723 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 2723 "regression-compile-tmp/allimpc1-77.imp"
Q = 89;
#line 2723 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   2724  REG2:    Q=X'49'
#line 2724 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 2724 "regression-compile-tmp/allimpc1-77.imp"
Q = 73;
                                                                //   2725  RCOM:    PRX(Q,DISP,0,I,K); ->L20;      !C OR CH
#line 2725 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 2725 "regression-compile-tmp/allimpc1-77.imp"
PRX(Q, DISP, 0, I, K);
#line 2725 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2726  REG3:    PRR(X'18',1,DISP); ->L37 ;     !TO FLOAT ETC
#line 2726 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 2726 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, DISP);
#line 2726 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   2727  SW(-5):                                !FIRST OPERAND LONG REAL
#line 2727 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_5:;
                                                                //   2728           CSEXP(0,3); Q=X'69';          ! COMPILE LONG
#line 2728 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 3);
#line 2728 "regression-compile-tmp/allimpc1-77.imp"
Q = 105;
                                                                //   2729  L51:      PRX(Q,NEST,0,BASE,DISP); ->L21
#line 2729 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 2729 "regression-compile-tmp/allimpc1-77.imp"
PRX(Q, NEST, 0, BASE, DISP);
#line 2729 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   2730  SW(-4):                                !FIRST OPERAND SHORT REAL
#line 2730 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_4:;
                                                                //   2731           Q=X'79'; CSEXP(0,2)
#line 2731 "regression-compile-tmp/allimpc1-77.imp"
Q = 121;
#line 2731 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 2);
                                                                //   2732  L40:      ->L51 %IF PREC=0;              !SHORT EXPRESSION
#line 2732 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 2732 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (0))) goto L_0348;
#line 2732 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2732 "regression-compile-tmp/allimpc1-77.imp"
L_0348:;
                                                                //   2733           PRR(X'2B',0,0)
#line 2733 "regression-compile-tmp/allimpc1-77.imp"
PRR(43, 0, 0);
                                                                //   2734           PRX(X'78',0,0,BASE,DISP);     !STETCH IST OPN
#line 2734 "regression-compile-tmp/allimpc1-77.imp"
PRX(120, 0, 0, BASE, DISP);
                                                                //   2735           PRR(X'29',0,NEST); ->L20
#line 2735 "regression-compile-tmp/allimpc1-77.imp"
PRR(41, 0, NEST);
#line 2735 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2736  SW(-3):                                !FIRST OPERAND ASHORT CONSTANY
#line 2736 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_3:;
                                                                //   2737           CSEXP(0,0)
#line 2737 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
                                                                //   2738           ->L30 %IF VALUE=0
#line 2738 "regression-compile-tmp/allimpc1-77.imp"
if (((VALUE) != (0))) goto L_0349;
#line 2738 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
#line 2738 "regression-compile-tmp/allimpc1-77.imp"
L_0349:;
                                                                //   2739           ->L36 %IF TYPE=2
#line 2739 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_034a;
#line 2739 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2739 "regression-compile-tmp/allimpc1-77.imp"
L_034a:;
                                                                //   2740           R=2
#line 2740 "regression-compile-tmp/allimpc1-77.imp"
R = 2;
                                                                //   2741           R=1 %IF NEST=2
#line 2741 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) != (2))) goto L_034b;
#line 2741 "regression-compile-tmp/allimpc1-77.imp"
R = 1;
#line 2741 "regression-compile-tmp/allimpc1-77.imp"
L_034b:;
                                                                //   2742           DUMP(0,R,VALUE,0,0);          !LOAD ADDR FOR CONSTANT
#line 2742 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, R, VALUE, 0, 0);
                                                                //   2743  L29:      PRR(X'19',R,NEST); ->L20;      !CR2,1
#line 2743 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 2743 "regression-compile-tmp/allimpc1-77.imp"
PRR(25, R, NEST);
#line 2743 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2744  L30:                                    !COMPARISONS WITH ZERO
#line 2744 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
                                                                //   2745           ->L35 %IF TYPE=5
#line 2745 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_034c;
#line 2745 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2745 "regression-compile-tmp/allimpc1-77.imp"
L_034c:;
                                                                //   2746           ->L32 %IF AFLAG=1
#line 2746 "regression-compile-tmp/allimpc1-77.imp"
if (((AFLAG) != (1))) goto L_034d;
#line 2746 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2746 "regression-compile-tmp/allimpc1-77.imp"
L_034d:;
                                                                //   2747           ->L31 %IF TYPE=2
#line 2747 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_034e;
#line 2747 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2747 "regression-compile-tmp/allimpc1-77.imp"
L_034e:;
                                                                //   2748           ->L32 %IF AFLAG=2 %AND 7<=FCOMP(M)<=8
#line 2748 "regression-compile-tmp/allimpc1-77.imp"
if (((AFLAG) != (2))) goto L_034f;
#line 2748 "regression-compile-tmp/allimpc1-77.imp"
if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) > (8)))) goto L_034f;
#line 2748 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2748 "regression-compile-tmp/allimpc1-77.imp"
L_034f:;
                                                                //   2749  L31:      PRR((TYPE-1)*(2-PREC&1)*16+X'12',NEST,NEST);   !LTR,LTER,LTDR
#line 2749 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2749 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)((((int)(((((((int)(TYPE)) - (1)))) * (((2) - ((int)(((PREC) & (1))))))))) * (16)))) + (18)), NEST, NEST);
                                                                //   2750  L32:      ->L21 %IF C=-3; ->L20
#line 2750 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2750 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != ((-3)))) goto L_0350;
#line 2750 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 2750 "regression-compile-tmp/allimpc1-77.imp"
L_0350:;
#line 2750 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2751  L35:      PSI(X'95',0,NEST,0); ->L20;    ! NULL STRING LENGTH=0
#line 2751 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 2751 "regression-compile-tmp/allimpc1-77.imp"
PSI(149, 0, NEST, 0);
#line 2751 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2752  L36:      DUMP(0,1,VALUE,0,0);
#line 2752 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 2752 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 1, VALUE, 0, 0);
                                                                //   2753  L37:      PPJ(43);
#line 2753 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 2753 "regression-compile-tmp/allimpc1-77.imp"
PPJ(43);
                                                                //   2754           PRR((1-PREC&1)*16+X'29',0,NEST);        ! CDR OR CER
#line 2754 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)((((int)(((1) - ((int)(((PREC) & (1))))))) * (16)))) + (41)), 0, NEST);
                                                                //   2755           ->L20
#line 2755 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2756  SW(-2):  Q=X'49';                      !OPERAND SHORT
#line 2756 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_2:;
#line 2756 "regression-compile-tmp/allimpc1-77.imp"
Q = 73;
                                                                //   2757  L24:      CSEXP(0,0); ->L25 %IF TYPE=2
#line 2757 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 2757 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
#line 2757 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0351;
#line 2757 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 2757 "regression-compile-tmp/allimpc1-77.imp"
L_0351:;
                                                                //   2758            PRX(Q,NEST,0,BASE,DISP); ->L21;          ! C OR CH
#line 2758 "regression-compile-tmp/allimpc1-77.imp"
PRX(Q, NEST, 0, BASE, DISP);
#line 2758 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   2759  L25:      R=2; R=6 %IF Q=X'49';         ! HERE FOR REALS
#line 2759 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
#line 2759 "regression-compile-tmp/allimpc1-77.imp"
R = 2;
#line 2759 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (73))) goto L_0352;
#line 2759 "regression-compile-tmp/allimpc1-77.imp"
R = 6;
#line 2759 "regression-compile-tmp/allimpc1-77.imp"
L_0352:;
                                                                //   2760  L26:      DUMP(R,1,DISP,0,BASE); ->L37
#line 2760 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 2760 "regression-compile-tmp/allimpc1-77.imp"
DUMP(R, 1, DISP, 0, BASE);
#line 2760 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   2761  SW(-1):  ! FIRST OPERAND A BYTE
#line 2761 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_M_1:;
                                                                //   2762           T=P; R=TSEXP(Q); L=1
#line 2762 "regression-compile-tmp/allimpc1-77.imp"
T = P;
#line 2762 "regression-compile-tmp/allimpc1-77.imp"
R = TSEXP(&Q);
#line 2762 "regression-compile-tmp/allimpc1-77.imp"
L = 1;
                                                                //   2763           ->L18 %IF R=11 %AND A(P)=2
#line 2763 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (11))) goto L_0353;
#line 2763 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0353;
#line 2763 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 2763 "regression-compile-tmp/allimpc1-77.imp"
L_0353:;
                                                                //   2764           ->L19 %IF R=1 %AND A(P)=2
#line 2764 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (1))) goto L_0354;
#line 2764 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0354;
#line 2764 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
#line 2764 "regression-compile-tmp/allimpc1-77.imp"
L_0354:;
                                                                //   2765           P=T;CSEXP(0,0); ->L14 %IF TYPE=2
#line 2765 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2765 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
#line 2765 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0355;
#line 2765 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
#line 2765 "regression-compile-tmp/allimpc1-77.imp"
L_0355:;
                                                                //   2766           R=2; R=1 %IF NEST=2
#line 2766 "regression-compile-tmp/allimpc1-77.imp"
R = 2;
#line 2766 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) != (2))) goto L_0356;
#line 2766 "regression-compile-tmp/allimpc1-77.imp"
R = 1;
#line 2766 "regression-compile-tmp/allimpc1-77.imp"
L_0356:;
                                                                //   2767           DUMP(4,R,DISP,0,BASE); ->L29
#line 2767 "regression-compile-tmp/allimpc1-77.imp"
DUMP(4, R, DISP, 0, BASE);
#line 2767 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   2768  L14:      R=4; ->L26
#line 2768 "regression-compile-tmp/allimpc1-77.imp"
U_1085:;
#line 2768 "regression-compile-tmp/allimpc1-77.imp"
R = 4;
#line 2768 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
                                                                //   2769  L18:      PSS(X'D5',L,BASE,DISP,I,K); ->L20;       ! CLC COMPARISONS
#line 2769 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
#line 2769 "regression-compile-tmp/allimpc1-77.imp"
PSS(213, L, BASE, DISP, I, K);
#line 2769 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2770  L19:      PSI(X'95',Q,BASE,DISP);->L20;  !CLI FOR BYTE/INTEGER
#line 2770 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
#line 2770 "regression-compile-tmp/allimpc1-77.imp"
PSI(149, Q, BASE, DISP);
#line 2770 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2771  SW(0):                                 !FIRST OPERAND INTEGER
#line 2771 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_0:;
                                                                //   2772           T=P; R=TSEXP(Q); L=4
#line 2772 "regression-compile-tmp/allimpc1-77.imp"
T = P;
#line 2772 "regression-compile-tmp/allimpc1-77.imp"
R = TSEXP(&Q);
#line 2772 "regression-compile-tmp/allimpc1-77.imp"
L = 4;
                                                                //   2773           ->RSTORE %UNLESS R=10 %AND A(P)=2
#line 2773 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (10))) goto L_0357;
#line 2773 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_0358;
#line 2773 "regression-compile-tmp/allimpc1-77.imp"
L_0357:;
#line 2773 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 2773 "regression-compile-tmp/allimpc1-77.imp"
L_0358:;
                                                                //   2774           ->L18 %IF 7<=FCOMP(M)<=8
#line 2774 "regression-compile-tmp/allimpc1-77.imp"
if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) > (8)))) goto L_0359;
#line 2774 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 2774 "regression-compile-tmp/allimpc1-77.imp"
L_0359:;
                                                                //   2775  RSTORE:  P=T; Q=X'59'; ->L24
#line 2775 "regression-compile-tmp/allimpc1-77.imp"
U_1086:;
#line 2775 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2775 "regression-compile-tmp/allimpc1-77.imp"
Q = 89;
#line 2775 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2776  SW(1):                                 !FIRST OPERAND EXPRESSION
#line 2776 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_1:;
                                                                //   2777  SW(2):                                 !2ND HALT OF DOUBLE SEDED
#line 2777 "regression-compile-tmp/allimpc1-77.imp"
sw10_SW_2:;
                                                                //   2778           T=P; PTYPEP=PTYPE; R=TSEXP(VALUE)
#line 2778 "regression-compile-tmp/allimpc1-77.imp"
T = P;
#line 2778 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
#line 2778 "regression-compile-tmp/allimpc1-77.imp"
R = TSEXP(&VALUE);
                                                                //   2779           PTYPE=PTYPEP;UNPACK
#line 2779 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 2779 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   2780           ->L30 %IF R=1 %AND VALUE=0 %AND(A(P)=2 %OR C=2)
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (1))) goto L_035a;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
if (((VALUE) != (0))) goto L_035a;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_035b;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != (2))) goto L_035a;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
L_035b:;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
#line 2780 "regression-compile-tmp/allimpc1-77.imp"
L_035a:;
                                                                //   2781           ->L160 %IF TYPE=5
#line 2781 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_035c;
#line 2781 "regression-compile-tmp/allimpc1-77.imp"
goto U_1087;
#line 2781 "regression-compile-tmp/allimpc1-77.imp"
L_035c:;
                                                                //   2782           ->L150 %IF TYPE=2
#line 2782 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_035d;
#line 2782 "regression-compile-tmp/allimpc1-77.imp"
goto U_1088;
#line 2782 "regression-compile-tmp/allimpc1-77.imp"
L_035d:;
                                                                //   2783           ->L120 %IF R=0 %OR 14<=R<=15 %OR(A(P)=1 %AND C=1)
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
if (((R) == (0))) goto L_035e;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
if ((((14) > (R))) || (((R) <= (15)))) goto L_035e;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
L_035f:;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0360;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != (1))) goto L_0360;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
L_035e:;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
goto U_1089;
#line 2783 "regression-compile-tmp/allimpc1-77.imp"
L_0360:;
                                                                //   2784           ->L130 %IF UNASS=1 %OR R=100 %OR R=11 %OR R<=2
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) == (1))) goto L_0361;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
if (((R) == (100))) goto L_0361;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
if (((R) == (11))) goto L_0361;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
if (((R) > (2))) goto L_0362;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
L_0361:;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
goto U_108a;
#line 2784 "regression-compile-tmp/allimpc1-77.imp"
L_0362:;
                                                                //   2785           ->L131 %IF R=50;               ! REGISTER VARIABLE
#line 2785 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (50))) goto L_0363;
#line 2785 "regression-compile-tmp/allimpc1-77.imp"
goto U_108b;
#line 2785 "regression-compile-tmp/allimpc1-77.imp"
L_0363:;
                                                                //   2786           Q=X'59'; Q=X'49' %IF R=12
#line 2786 "regression-compile-tmp/allimpc1-77.imp"
Q = 89;
#line 2786 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (12))) goto L_0364;
#line 2786 "regression-compile-tmp/allimpc1-77.imp"
Q = 73;
#line 2786 "regression-compile-tmp/allimpc1-77.imp"
L_0364:;
                                                                //   2787           PRX(Q,NEST,0,I,K); ->L20
#line 2787 "regression-compile-tmp/allimpc1-77.imp"
PRX(Q, NEST, 0, I, K);
#line 2787 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2788  L130:     !1ST OPND INTEGER IN NEST-2ND OPN SIMPLE INTEGER EXPRN
#line 2788 "regression-compile-tmp/allimpc1-77.imp"
U_108a:;
                                                                //   2789           R=NEST; REGISTER(R)=1 %IF REGISTER(R)=0
#line 2789 "regression-compile-tmp/allimpc1-77.imp"
R = NEST;
#line 2789 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[R]) != (0))) goto L_0365;
#line 2789 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[R] = 1;
#line 2789 "regression-compile-tmp/allimpc1-77.imp"
L_0365:;
                                                                //   2790           P=T; CSEXP(0,1)
#line 2790 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2790 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 1);
                                                                //   2791           REGISTER(R)=0 %IF REGISTER(R)>0; ->L29
#line 2791 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[R]) <= (0))) goto L_0366;
#line 2791 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[R] = 0;
#line 2791 "regression-compile-tmp/allimpc1-77.imp"
L_0366:;
#line 2791 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   2792  L131:      PRR(X'19',NEST,K); ->L20
#line 2792 "regression-compile-tmp/allimpc1-77.imp"
U_108b:;
#line 2792 "regression-compile-tmp/allimpc1-77.imp"
PRR(25, NEST, K);
#line 2792 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2793  L120:     !1ST OPND INTEGER EXPRN IN NEST-SECOND OPND UNKNOWN
#line 2793 "regression-compile-tmp/allimpc1-77.imp"
U_1089:;
                                                                //   2794           Q=PARK(NEST); P=T
#line 2794 "regression-compile-tmp/allimpc1-77.imp"
Q = PARK(NEST);
#line 2794 "regression-compile-tmp/allimpc1-77.imp"
P = T;
                                                                //   2795           CSEXP(0,0); ->L122 %IF TYPE=2
#line 2795 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
#line 2795 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_0367;
#line 2795 "regression-compile-tmp/allimpc1-77.imp"
goto U_108c;
#line 2795 "regression-compile-tmp/allimpc1-77.imp"
L_0367:;
                                                                //   2796           UNPARK(X'59',NEST,Q); ->L21
#line 2796 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(89, NEST, Q);
#line 2796 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   2797  L122:     UNPARK(X'58',1,Q); ->L37;       ! TO FLOAT FIRST OPERAND
#line 2797 "regression-compile-tmp/allimpc1-77.imp"
U_108c:;
#line 2797 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(88, 1, Q);
#line 2797 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   2798  L150:     P=T; Q=PARKF(NEST,PREC);      !
#line 2798 "regression-compile-tmp/allimpc1-77.imp"
U_1088:;
#line 2798 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2798 "regression-compile-tmp/allimpc1-77.imp"
Q = PARKF(NEST, PREC);
                                                                //   2799           ->L155 %IF PREC=0
#line 2799 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (0))) goto L_0368;
#line 2799 "regression-compile-tmp/allimpc1-77.imp"
goto U_108d;
#line 2799 "regression-compile-tmp/allimpc1-77.imp"
L_0368:;
                                                                //   2800           CSEXP(0,3);                   !1ST OPND LONG REAL EXPR
#line 2800 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 3);
                                                                //   2801           PUSH(LWSP(LEVEL),0,Q)
#line 2801 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LWSP[LEVEL], 0, Q);
                                                                //   2802           BASE=RBASE
#line 2802 "regression-compile-tmp/allimpc1-77.imp"
BASE = RBASE;
                                                                //   2803           DISP=Q; Q=X'69'; ->L51
#line 2803 "regression-compile-tmp/allimpc1-77.imp"
DISP = Q;
#line 2803 "regression-compile-tmp/allimpc1-77.imp"
Q = 105;
#line 2803 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   2804  L155:     CSEXP(0,2);                   !1ST OPND SHORT REAL EXPRN
#line 2804 "regression-compile-tmp/allimpc1-77.imp"
U_108d:;
#line 2804 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 2);
                                                                //   2805           PUSH(WSP(LEVEL),0,Q)
#line 2805 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, Q);
                                                                //   2806           BASE=RBASE;DISP=Q
#line 2806 "regression-compile-tmp/allimpc1-77.imp"
BASE = RBASE;
#line 2806 "regression-compile-tmp/allimpc1-77.imp"
DISP = Q;
                                                                //   2807           Q=X'79'; ->L40
#line 2807 "regression-compile-tmp/allimpc1-77.imp"
Q = 121;
#line 2807 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   2808  L160:     %COMMENT 1ST OPERAND A STRING EXPRESSION PTR IN NEST
#line 2808 "regression-compile-tmp/allimpc1-77.imp"
U_1087:;
                                                                //   2809           P=T; POP(STR WSP(LEVEL),R,T);! RMEOVE WKAREA WITH STRING%C
#line 2809 "regression-compile-tmp/allimpc1-77.imp"
P = T;
#line 2809 "regression-compile-tmp/allimpc1-77.imp"
POP(&STRWSP[LEVEL], &R, &T);
                                                                //   2810  !FROM FREE LIST TO PREVENT CORRUPTION
                                                                //   2811           R=PARK(NEST)
#line 2811 "regression-compile-tmp/allimpc1-77.imp"
R = PARK(NEST);
                                                                //   2812           CSTREXP(1); NEST=1
#line 2812 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(1);
#line 2812 "regression-compile-tmp/allimpc1-77.imp"
NEST = 1;
                                                                //   2813           UNPARK(X'58',2,R)
#line 2813 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(88, 2, R);
                                                                //   2814           PUSH(STR WSP(LEVEL),0,T)
#line 2814 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&STRWSP[LEVEL], 0, T);
                                                                //   2815  L161:     ->L162 %UNLESS 7<=FCOMP(M)<=8; ! OPTIMISE = & \=
#line 2815 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 2815 "regression-compile-tmp/allimpc1-77.imp"
if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) <= (8)))) goto L_036a;
#line 2815 "regression-compile-tmp/allimpc1-77.imp"
L_0369:;
#line 2815 "regression-compile-tmp/allimpc1-77.imp"
goto U_108e;
#line 2815 "regression-compile-tmp/allimpc1-77.imp"
L_036a:;
                                                                //   2816           PRX(X'43',3,0,1,0);           ! IC TO SET UP FOR EX
#line 2816 "regression-compile-tmp/allimpc1-77.imp"
PRX(67, 3, 0, 1, 0);
                                                                //   2817           PRX(X'44',3,0,GLA,STRINST+6); ->L20;     ! EX_3,COMPARISON
#line 2817 "regression-compile-tmp/allimpc1-77.imp"
PRX(68, 3, 0, GLA, (((int)(STRINST)) + (6)));
#line 2817 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2818  L162:     PPJ(35);                      ! GO TO SUBROUTINE FOR COMPARISON
#line 2818 "regression-compile-tmp/allimpc1-77.imp"
U_108e:;
#line 2818 "regression-compile-tmp/allimpc1-77.imp"
PPJ(35);
                                                                //   2819  L20:      MASK=FCOMP(M); ->L1;           ! MASK FOR NORMAL COMPARISON
#line 2819 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 2819 "regression-compile-tmp/allimpc1-77.imp"
MASK = (FCOMP-1)[M];
#line 2819 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   2820  L21:      MASK=BCOMP(M);                ! BACKWARDS COMPARISON
#line 2820 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 2820 "regression-compile-tmp/allimpc1-77.imp"
MASK = (BCOMP-1)[M];
                                                                //   2821  L1:             %END
#line 2821 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 2821 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw10_SW_M_8:;
sw10_SW_M_7:;
sw10_SW_M_6:;
/*_imp_signal(6,3,sw10_SW_idx,"SWITCH LABEL NOT SET - sw10_SW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw10_SW(%d): at line %s:%d", sw10_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CCOMP at level 4
                                                                //   2822           %ROUTINE CCC
#line 2822 "regression-compile-tmp/allimpc1-77.imp"
void CCC( void )
#line 2822 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2823           !%SHORTROUTINE
                                                                //   2824           %INTEGER LINE,FLAB
#line 2824 "regression-compile-tmp/allimpc1-77.imp"
int LINE;
#line 2824 "regression-compile-tmp/allimpc1-77.imp"
int FLAB;
                                                                //   2825           CSC(FLAB)
#line 2825 "regression-compile-tmp/allimpc1-77.imp"
CSC(&FLAB);
                                                                //   2826           C=A(P) ; P=P+1
#line 2826 "regression-compile-tmp/allimpc1-77.imp"
C = A[((P) + ((int)(2)))];
#line 2826 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2827           CLAUSES=CLAUSES+1
#line 2827 "regression-compile-tmp/allimpc1-77.imp"
CLAUSES = (((int)(CLAUSES)) + (1));
                                                                //   2828           ->L10 %IF T=0       %OR(CLAUSES>1 %AND C=2)
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
if (((T) == (0))) goto L_036b;
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
if (((CLAUSES) <= (1))) goto L_036c;
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
if (((C) != (2))) goto L_036c;
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
L_036b:;
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 2828 "regression-compile-tmp/allimpc1-77.imp"
L_036c:;
                                                                //   2829           ->L2 %IF FAILPT#0
#line 2829 "regression-compile-tmp/allimpc1-77.imp"
if (((FAILPT) == (0))) goto L_036d;
#line 2829 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2829 "regression-compile-tmp/allimpc1-77.imp"
L_036d:;
                                                                //   2830           FAILPT=1 ; LINE=1 ; ->L3
#line 2830 "regression-compile-tmp/allimpc1-77.imp"
FAILPT = 1;
#line 2830 "regression-compile-tmp/allimpc1-77.imp"
LINE = 1;
#line 2830 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   2831  L2:       LINE=0
#line 2831 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 2831 "regression-compile-tmp/allimpc1-77.imp"
LINE = 0;
                                                                //   2832  L3:
#line 2832 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
                                                                //   2833           PLOCAL JUMP(MASK,JNPORFP)
#line 2833 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(MASK, JNPORFP);
                                                                //   2834           %UNLESS FLAB=0 %THEN %START
#line 2834 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAB) == (0))) goto L_036e;
                                                                //   2835           PUSH(LOCAL LABEL,CA,FLAB)
#line 2835 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALLABEL, CA, FLAB);
                                                                //   2836           R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0
#line 2836 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (SAVE13))) goto L_0314;
#line 2836 "regression-compile-tmp/allimpc1-77.imp"
if (((CHNGE13) == (0))) goto L_036f;
#line 2836 "regression-compile-tmp/allimpc1-77.imp"
L_0314:;
#line 2836 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 2836 "regression-compile-tmp/allimpc1-77.imp"
L_036f:;
                                                                //   2837           %FINISH
#line 2837 "regression-compile-tmp/allimpc1-77.imp"
L_036e:;
                                                                //   2838           CCC;                          !FIX NEXT CLAUSE
#line 2838 "regression-compile-tmp/allimpc1-77.imp"
CCC();
                                                                //   2839           ->L10 %IF LINE=0
#line 2839 "regression-compile-tmp/allimpc1-77.imp"
if (((LINE) != (0))) goto L_0370;
#line 2839 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 2839 "regression-compile-tmp/allimpc1-77.imp"
L_0370:;
                                                                //   2840           MASK=MASK!!15 %IF JNPORFP=NEARLAB
#line 2840 "regression-compile-tmp/allimpc1-77.imp"
if (((JNPORFP) != (NEARLAB))) goto L_0371;
#line 2840 "regression-compile-tmp/allimpc1-77.imp"
MASK = ((MASK) ^ (15));
#line 2840 "regression-compile-tmp/allimpc1-77.imp"
L_0371:;
                                                                //   2841  L10:      %END
#line 2841 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 2841 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CCC at level 4
                                                                //   2842           %ROUTINE CSC(%INTEGERNAME FLAB)
#line 2842 "regression-compile-tmp/allimpc1-77.imp"
void CSC( int /*name*/*FLAB )
#line 2842 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2843           !%SHORTROUTINE
                                                                //   2844           %INTEGER LINE,Q,R,S,TP,NEAR
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int LINE;
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int R;
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int S;
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int TP;
#line 2844 "regression-compile-tmp/allimpc1-77.imp"
int NEAR;
                                                                //   2845           FLAB=0
#line 2845 "regression-compile-tmp/allimpc1-77.imp"
*FLAB = 0;
                                                                //   2846           S=A(P+1+A(P+1))
#line 2846 "regression-compile-tmp/allimpc1-77.imp"
S = A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))];
                                                                //   2847           LINE=S
#line 2847 "regression-compile-tmp/allimpc1-77.imp"
LINE = S;
                                                                //   2848           NEAR=NEARLAB
#line 2848 "regression-compile-tmp/allimpc1-77.imp"
NEAR = NEARLAB;
                                                                //   2849           ->START %IF T=0 %OR(S=2 %AND CLAUSES>0)
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
if (((T) == (0))) goto L_0372;
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
if (((S) != (2))) goto L_0373;
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
if (((CLAUSES) <= (0))) goto L_0373;
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
L_0372:;
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 2849 "regression-compile-tmp/allimpc1-77.imp"
L_0373:;
                                                                //   2850           PLABEL=PLABEL-1; NEAR=PLABEL
#line 2850 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 2850 "regression-compile-tmp/allimpc1-77.imp"
NEAR = PLABEL;
                                                                //   2851  START:   ->L1 %IF A(P)=1
#line 2851 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 2851 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0374;
#line 2851 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 2851 "regression-compile-tmp/allimpc1-77.imp"
L_0374:;
                                                                //   2852           P=P+2
#line 2852 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   2853           ->REDUND %IF T=0
#line 2853 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (0))) goto L_0375;
#line 2853 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 2853 "regression-compile-tmp/allimpc1-77.imp"
L_0375:;
                                                                //   2854           ->REDUND2 %IF T=A(P+1+A(P+1))
#line 2854 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))]))) goto L_0376;
#line 2854 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 2854 "regression-compile-tmp/allimpc1-77.imp"
L_0376:;
                                                                //   2855           FLAB=NEAR %UNLESS NEAR=NEARLAB
#line 2855 "regression-compile-tmp/allimpc1-77.imp"
if (((NEAR) == (NEARLAB))) goto L_0377;
#line 2855 "regression-compile-tmp/allimpc1-77.imp"
*FLAB = NEAR;
#line 2855 "regression-compile-tmp/allimpc1-77.imp"
L_0377:;
                                                                //   2856           TP=T-1; ->LAST %IF NEAR=NEARLAB
#line 2856 "regression-compile-tmp/allimpc1-77.imp"
TP = (((int)(T)) - (1));
#line 2856 "regression-compile-tmp/allimpc1-77.imp"
if (((NEAR) != (NEARLAB))) goto L_0378;
#line 2856 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 2856 "regression-compile-tmp/allimpc1-77.imp"
L_0378:;
                                                                //   2857           CCOND(TP,NEAR,FARLAB); ->L9
#line 2857 "regression-compile-tmp/allimpc1-77.imp"
CCOND(TP, NEAR, FARLAB);
#line 2857 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   2858  REDUND:CCOND(IU,NEARLAB,FARLAB); ->L9
#line 2858 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 2858 "regression-compile-tmp/allimpc1-77.imp"
CCOND(IU, NEARLAB, FARLAB);
#line 2858 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   2859  REDUND2: CCOND(IU,NEARLAB,FARLAB)
#line 2859 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 2859 "regression-compile-tmp/allimpc1-77.imp"
CCOND(IU, NEARLAB, FARLAB);
                                                                //   2860           MASK=MASK!!15 %IF JNPORFP=NEARLAB       ;->L9
#line 2860 "regression-compile-tmp/allimpc1-77.imp"
if (((JNPORFP) != (NEARLAB))) goto L_0379;
#line 2860 "regression-compile-tmp/allimpc1-77.imp"
MASK = ((MASK) ^ (15));
#line 2860 "regression-compile-tmp/allimpc1-77.imp"
L_0379:;
#line 2860 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   2861  LAST:    CCOND(IU,NEAR,FARLAB)
#line 2861 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 2861 "regression-compile-tmp/allimpc1-77.imp"
CCOND(IU, NEAR, FARLAB);
                                                                //   2862           NEARLAB=0; ->L9
#line 2862 "regression-compile-tmp/allimpc1-77.imp"
NEARLAB = 0;
#line 2862 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   2863  L1:       %COMMENT CLASSIFY SIMPLE CONDITION AND ACT ACCORDINGLY
#line 2863 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
                                                                //   2864           P=P+2; S=P; SKIP EXP
#line 2864 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2864 "regression-compile-tmp/allimpc1-77.imp"
S = P;
#line 2864 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   2865           ->L21 %IF A(P)=8;              ! RESOLUTION (ALL OCCURRENCES)
#line 2865 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (8))) goto L_037a;
#line 2865 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
#line 2865 "regression-compile-tmp/allimpc1-77.imp"
L_037a:;
                                                                //   2866           P=P+1; Q=TSEXP(R);            ! TEST MIDDLE OPERAND FIRST
#line 2866 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2866 "regression-compile-tmp/allimpc1-77.imp"
Q = TSEXP(&R);
                                                                //   2867           %IF TYPE=3 %THEN %START
#line 2867 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_037b;
                                                                //   2868           P=P+2; R=COPY RECORD TAG; %FINISH
#line 2868 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2868 "regression-compile-tmp/allimpc1-77.imp"
R = COPYRECORDTAG();
#line 2868 "regression-compile-tmp/allimpc1-77.imp"
L_037b:;
                                                                //   2869           ->STR %IF TYPE=5
#line 2869 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_037c;
#line 2869 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 2869 "regression-compile-tmp/allimpc1-77.imp"
L_037c:;
                                                                //   2870           ->ZERO %IF Q=1 %AND R=0 %AND A(P)=2;! ! NOT DOUBLE SIDED
#line 2870 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (1))) goto L_037d;
#line 2870 "regression-compile-tmp/allimpc1-77.imp"
if (((R) != (0))) goto L_037d;
#line 2870 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_037d;
#line 2870 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
#line 2870 "regression-compile-tmp/allimpc1-77.imp"
L_037d:;
                                                                //   2871           P=S; Q=TSEXP(R);              ! TEST LHS
#line 2871 "regression-compile-tmp/allimpc1-77.imp"
P = S;
#line 2871 "regression-compile-tmp/allimpc1-77.imp"
Q = TSEXP(&R);
                                                                //   2872           ->CONST %IF 1<=Q<=2
#line 2872 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (Q))) || (((Q) > (2)))) goto L_037e;
#line 2872 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
#line 2872 "regression-compile-tmp/allimpc1-77.imp"
L_037e:;
                                                                //   2873           ->SIMPLE %IF Q=20
#line 2873 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (20))) goto L_037f;
#line 2873 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2873 "regression-compile-tmp/allimpc1-77.imp"
L_037f:;
                                                                //   2874           ->REGVAR %IF Q=50
#line 2874 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (50))) goto L_0380;
#line 2874 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 2874 "regression-compile-tmp/allimpc1-77.imp"
L_0380:;
                                                                //   2875           ->STR %IF TYPE=5
#line 2875 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0381;
#line 2875 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 2875 "regression-compile-tmp/allimpc1-77.imp"
L_0381:;
                                                                //   2876           ->NORMAL %UNLESS UNASS=0 %AND 10<=Q<=15
#line 2876 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (0))) goto L_0382;
#line 2876 "regression-compile-tmp/allimpc1-77.imp"
if ((((10) > (Q))) || (((Q) <= (15)))) goto L_0383;
#line 2876 "regression-compile-tmp/allimpc1-77.imp"
L_0382:;
#line 2876 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 2876 "regression-compile-tmp/allimpc1-77.imp"
L_0383:;
                                                                //   2877  SIMPLE:  BASE=I; DISP=K; CCOMP(10-Q); ->L8
#line 2877 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 2877 "regression-compile-tmp/allimpc1-77.imp"
BASE = I;
#line 2877 "regression-compile-tmp/allimpc1-77.imp"
DISP = K;
#line 2877 "regression-compile-tmp/allimpc1-77.imp"
CCOMP((((int)(10)) - (Q)));
#line 2877 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   2878  REGVAR:  DISP=K; CCOMP(-9); ->L8
#line 2878 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 2878 "regression-compile-tmp/allimpc1-77.imp"
DISP = K;
#line 2878 "regression-compile-tmp/allimpc1-77.imp"
CCOMP((-9));
#line 2878 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   2879  STR:     P=S; CSTREXP(1); NEST=1; CCOMP(1); ->L8
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
P = S;
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(1);
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
NEST = 1;
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
CCOMP(1);
#line 2879 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   2880  CONST:   VALUE=R; CCOMP(-3); ->L8
#line 2880 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 2880 "regression-compile-tmp/allimpc1-77.imp"
VALUE = R;
#line 2880 "regression-compile-tmp/allimpc1-77.imp"
CCOMP((-3));
#line 2880 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   2881  L21:      P=S+2; ->L22 %UNLESS A(S)=4 %AND A(S+1)=1
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(S)) + (2));
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((S) + ((int)(2)))]) != (4))) goto L_0384;
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) == (1))) goto L_0385;
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
L_0384:;
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 2881 "regression-compile-tmp/allimpc1-77.imp"
L_0385:;
                                                                //   2882           CNAME(2,1)
#line 2882 "regression-compile-tmp/allimpc1-77.imp"
CNAME(2, 1);
                                                                //   2883           ->L23 %IF A(P)=2 %AND TYPE=5
#line 2883 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0386;
#line 2883 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0386;
#line 2883 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 2883 "regression-compile-tmp/allimpc1-77.imp"
L_0386:;
                                                                //   2884  L22:      P=S; SKIP EXP
#line 2884 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 2884 "regression-compile-tmp/allimpc1-77.imp"
P = S;
#line 2884 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   2885  L28:      P=P+1; SKIP EXP
#line 2885 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 2885 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2885 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   2886           FAULT(73); ->L8
#line 2886 "regression-compile-tmp/allimpc1-77.imp"
FAULT(73);
#line 2886 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   2887  L23:      P=P+2
#line 2887 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 2887 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   2888           FLAB=NEAR %UNLESS NEAR=NEARLAB
#line 2888 "regression-compile-tmp/allimpc1-77.imp"
if (((NEAR) == (NEARLAB))) goto L_0387;
#line 2888 "regression-compile-tmp/allimpc1-77.imp"
*FLAB = NEAR;
#line 2888 "regression-compile-tmp/allimpc1-77.imp"
L_0387:;
                                                                //   2889           %IF T#2 %THEN R=JNPORFP %ELSE %START
#line 2889 "regression-compile-tmp/allimpc1-77.imp"
if (((T) == (2))) goto L_0388;
#line 2889 "regression-compile-tmp/allimpc1-77.imp"
R = JNPORFP;
#line 2889 "regression-compile-tmp/allimpc1-77.imp"
goto L_0389;
#line 2889 "regression-compile-tmp/allimpc1-77.imp"
L_0388:;
                                                                //   2890           %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0  %C
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
if (((JNPORFP) == (FARLAB))) goto L_038a;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
if (((LINE) != (2))) goto L_038a;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
if (((CLAUSES) <= (0))) goto L_038a;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
R = FARLAB;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
goto L_038b;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
L_038a:;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
R = NEAR;
#line 2890 "regression-compile-tmp/allimpc1-77.imp"
L_038b:;
                                                                //   2891           %THEN R=FARLAB %ELSE R=NEAR
                                                                //   2892           %FINISH
#line 2892 "regression-compile-tmp/allimpc1-77.imp"
L_0389:;
                                                                //   2893           CRES(1,R)
#line 2893 "regression-compile-tmp/allimpc1-77.imp"
CRES(1, R);
                                                                //   2894           ->L28 %UNLESS A(P)=2           ;! NO DOUBLE SIDED RESOLUTION
#line 2894 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_038c;
#line 2894 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 2894 "regression-compile-tmp/allimpc1-77.imp"
L_038c:;
                                                                //   2895           P=P+1;
#line 2895 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2896           MASK=15; ->L10
#line 2896 "regression-compile-tmp/allimpc1-77.imp"
MASK = 15;
#line 2896 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
                                                                //   2897  ZERO:    P=S; Q=TSEXP(R); ->SIMPLE %IF Q=11;    ! CLI FOR BYTE/ZERO
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
P = S;
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
Q = TSEXP(&R);
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != (11))) goto L_038d;
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 2897 "regression-compile-tmp/allimpc1-77.imp"
L_038d:;
                                                                //   2898           ->STR %IF TYPE=5
#line 2898 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_038e;
#line 2898 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 2898 "regression-compile-tmp/allimpc1-77.imp"
L_038e:;
                                                                //   2899  NORMAL:  P=S; CSEXP(0,0); CCOMP(1)
#line 2899 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 2899 "regression-compile-tmp/allimpc1-77.imp"
P = S;
#line 2899 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 0);
#line 2899 "regression-compile-tmp/allimpc1-77.imp"
CCOMP(1);
                                                                //   2900  L8:       P=P+1
#line 2900 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
#line 2900 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   2901                 ->L10 %IF A(P-1)=2;      ! GO UNLESS DOUBLESIDED
#line 2901 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_038f;
#line 2901 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 2901 "regression-compile-tmp/allimpc1-77.imp"
L_038f:;
                                                                //   2902           FLAB=NEAR %UNLESS NEAR=NEARLAB
#line 2902 "regression-compile-tmp/allimpc1-77.imp"
if (((NEAR) == (NEARLAB))) goto L_0390;
#line 2902 "regression-compile-tmp/allimpc1-77.imp"
*FLAB = NEAR;
#line 2902 "regression-compile-tmp/allimpc1-77.imp"
L_0390:;
                                                                //   2903           ->ORCOND %IF T=2
#line 2903 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (2))) goto L_0391;
#line 2903 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 2903 "regression-compile-tmp/allimpc1-77.imp"
L_0391:;
                                                                //   2904           R=JNPORFP; ->L7
#line 2904 "regression-compile-tmp/allimpc1-77.imp"
R = JNPORFP;
#line 2904 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
                                                                //   2905  ORCOND:  %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0 %THEN %C
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
if (((JNPORFP) == (FARLAB))) goto L_0392;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
if (((LINE) != (2))) goto L_0392;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
if (((CLAUSES) <= (0))) goto L_0392;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
R = FARLAB;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
goto L_0393;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
L_0392:;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
R = NEAR;
#line 2905 "regression-compile-tmp/allimpc1-77.imp"
L_0393:;
                                                                //   2906  R=FARLAB %ELSE R=NEAR
                                                                //   2907  %COMMENT LAST DOUBLESIDED IN OR CONDITION IS SPECIAL
                                                                //   2908  L7:
#line 2908 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
                                                                //   2909           PLOCAL JUMP(MASK!!15,R)
#line 2909 "regression-compile-tmp/allimpc1-77.imp"
PLOCALJUMP(((MASK) ^ (15)), R);
                                                                //   2910           CCOMP(2)
#line 2910 "regression-compile-tmp/allimpc1-77.imp"
CCOMP(2);
                                                                //   2911  L10:      MASK=MASK!!15 %IF T=1 %OR(T=0 %AND IU=0)
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
if (((T) == (1))) goto L_0394;
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != (0))) goto L_0395;
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
if (((IU) != (0))) goto L_0395;
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
L_0394:;
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
MASK = ((MASK) ^ (15));
#line 2911 "regression-compile-tmp/allimpc1-77.imp"
L_0395:;
                                                                //   2912  L9:       %END
#line 2912 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 2912 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CSC at level 4
                                                                //   2913  L99:           %END                    ;!OF CCOND
#line 2913 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 2913 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CCOND at level 3
                                                                //   2914           %ROUTINE FILL LOCAL JUMPS
#line 2914 "regression-compile-tmp/allimpc1-77.imp"
void FILLLOCALJUMPS( void )
#line 2914 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2915           !%SHORTROUTINE
                                                                //   2916           %INTEGER T,C,J
#line 2916 "regression-compile-tmp/allimpc1-77.imp"
int T;
#line 2916 "regression-compile-tmp/allimpc1-77.imp"
int C;
#line 2916 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   2917  L1:       POP(LOCAL JUMP,T,C)
#line 2917 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 2917 "regression-compile-tmp/allimpc1-77.imp"
POP(&LOCALJUMP, &T, &C);
                                                                //   2918           ->L98 %IF T=-1
#line 2918 "regression-compile-tmp/allimpc1-77.imp"
if (((T) != ((-1)))) goto L_0396;
#line 2918 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 2918 "regression-compile-tmp/allimpc1-77.imp"
L_0396:;
                                                                //   2919           J=FIND(C,LOCAL LABEL)
#line 2919 "regression-compile-tmp/allimpc1-77.imp"
J = FIND(C, LOCALLABEL);
                                                                //   2920           FAULT(233) %IF J=-1
#line 2920 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_0397;
#line 2920 "regression-compile-tmp/allimpc1-77.imp"
FAULT(233);
#line 2920 "regression-compile-tmp/allimpc1-77.imp"
L_0397:;
                                                                //   2921           J=J-LOCAL ADDR
#line 2921 "regression-compile-tmp/allimpc1-77.imp"
J = (((int)(J)) - (LOCALADDR));
                                                                //   2922           PLUG(T+2,J); ->L1
#line 2922 "regression-compile-tmp/allimpc1-77.imp"
PLUG((((int)(T)) + (2)), J);
#line 2922 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   2923  L98:      CLEAR LIST(LOCAL LABEL)
#line 2923 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 2923 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&LOCALLABEL);
                                                                //   2924           %END
#line 2924 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FILLLOCALJUMPS at level 3
                                                                //   2925           %ROUTINE P LOCAL JUMP(%INTEGER MASK,LABEL)
#line 2925 "regression-compile-tmp/allimpc1-77.imp"
void PLOCALJUMP( int MASK, int LABEL )
#line 2925 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2926           !%SHORTROUTINE
                                                                //   2927           %RETURN %IF MASK=0
#line 2927 "regression-compile-tmp/allimpc1-77.imp"
if (((MASK) != (0))) goto L_0398;
#line 2927 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2927 "regression-compile-tmp/allimpc1-77.imp"
L_0398:;
                                                                //   2928           CHNGE13=1 %UNLESS SAVE13=R13
#line 2928 "regression-compile-tmp/allimpc1-77.imp"
if (((SAVE13) == (R13))) goto L_0399;
#line 2928 "regression-compile-tmp/allimpc1-77.imp"
CHNGE13 = 1;
#line 2928 "regression-compile-tmp/allimpc1-77.imp"
L_0399:;
                                                                //   2929           ->L1 %IF LABEL>21000
#line 2929 "regression-compile-tmp/allimpc1-77.imp"
if (((LABEL) <= (21000))) goto L_039a;
#line 2929 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 2929 "regression-compile-tmp/allimpc1-77.imp"
L_039a:;
                                                                //   2930           PJ(MASK,LABEL); ->L99
#line 2930 "regression-compile-tmp/allimpc1-77.imp"
PJ(MASK, LABEL);
#line 2930 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   2931  L1:       ->L2 %UNLESS LOCAL BASE=0
#line 2931 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 2931 "regression-compile-tmp/allimpc1-77.imp"
if (((LOCALBASE) == (0))) goto L_039b;
#line 2931 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 2931 "regression-compile-tmp/allimpc1-77.imp"
L_039b:;
                                                                //   2932           LOCAL BASE=10; LOCAL ADDR=CODEBASE(LEVEL)
#line 2932 "regression-compile-tmp/allimpc1-77.imp"
LOCALBASE = 10;
#line 2932 "regression-compile-tmp/allimpc1-77.imp"
LOCALADDR = CODEBASE[LEVEL];
                                                                //   2933           ->L2 %IF SBFLAG=1 %OR 3000+800*COMPILER>CA-CODEBASE(LEVEL)
#line 2933 "regression-compile-tmp/allimpc1-77.imp"
if (((SBFLAG) == (1))) goto L_039c;
#line 2933 "regression-compile-tmp/allimpc1-77.imp"
if (((((3000) + ((int)(((800) * ((int)(COMPILER))))))) <= ((((int)(CA)) - (CODEBASE[LEVEL]))))) goto L_039d;
#line 2933 "regression-compile-tmp/allimpc1-77.imp"
L_039c:;
#line 2933 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 2933 "regression-compile-tmp/allimpc1-77.imp"
L_039d:;
                                                                //   2934           LOCAL BASE=FIND PP
#line 2934 "regression-compile-tmp/allimpc1-77.imp"
LOCALBASE = FINDPP();
                                                                //   2935           FAULT(231) %IF LOCAL BASE<=0
#line 2935 "regression-compile-tmp/allimpc1-77.imp"
if (((LOCALBASE) > (0))) goto L_039e;
#line 2935 "regression-compile-tmp/allimpc1-77.imp"
FAULT(231);
#line 2935 "regression-compile-tmp/allimpc1-77.imp"
L_039e:;
                                                                //   2936           PRR(5,LOCAL BASE,0); LOCAL ADDR=CA
#line 2936 "regression-compile-tmp/allimpc1-77.imp"
PRR(5, LOCALBASE, 0);
#line 2936 "regression-compile-tmp/allimpc1-77.imp"
LOCALADDR = CA;
                                                                //   2937  L2:       PUSH(LOCAL JUMP,CA,LABEL)
#line 2937 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 2937 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LOCALJUMP, CA, LABEL);
                                                                //   2938           PRX(X'47',MASK,LOCAL BASE,0,0)
#line 2938 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, LOCALBASE, 0, 0);
                                                                //   2939  L99:      %END
#line 2939 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 2939 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLOCALJUMP at level 3
                                                                //   2940           %ROUTINE     CSNAME(%INTEGER Z,REG)
#line 2940 "regression-compile-tmp/allimpc1-77.imp"
void CSNAME( int Z, int REG )
#line 2940 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   2941           %INTEGERARRAY B(0:5)
#line 2941 "regression-compile-tmp/allimpc1-77.imp"
int B[6];
                                                                //   2942           %OWNBYTEINTEGERARRAY PLABEL(0:45)=9,9,3,3,
#line 2942 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char PLABEL[46] = { 9, 9, 3, 3, 1, 14, 14, 14, 2, 3, 1, 18, 4, 3, 12, 12, 33, 42, 34, 35, 32, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 5, 12, 12, 12, 12, 12, 12, 12, 12,  };
                                                                //   2943                 1,14(3),2,3,1,18,4,3,12(2),
                                                                //   2944           33,42,34,35,32,12(16),5,12(8);
                                                                //   2945           %OWNBYTEINTEGERARRAY MODE(0:45)=16(2),
#line 2945 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char MODE[46] = { 16, 16, 0, 0, 0, 16, 16, 16, 2, 16, 16, 31, 32, 0, 18, 31, 18, 18, 18, 63, 47, 23, 23, 18, 31, 31, 31, 31, 31, 31, 31, 31, 23, 23, 47, 47, 18, 16, 2, 23, 16, 16, 23, 0, 0, 0,  };
                                                                //   2946           0(3),16(3),2,16(2),31,32,0,
                                                                //   2947           18,31,18(3),63,47,23(2),18,31(7),
                                                                //   2948           31,23(2),47(2),18,16,2,23,16(2),
                                                                //   2949           23,0(3);
                                                                //   2950           ! TOP 4 BITS OF MODE = NO OF PARAMS BOTTOM 4 ALLOWED Z VALUE
                                                                //   2951           %SWITCH SW(0:45)
#line 2951 "regression-compile-tmp/allimpc1-77.imp"
static int sw11_SW_idx;
static const void * /*SWITCH*/ sw11_SW[46] = { &&sw11_SW_0, &&sw11_SW_1, &&sw11_SW_2, &&sw11_SW_3, &&sw11_SW_4, &&sw11_SW_5, &&sw11_SW_6, &&sw11_SW_7, &&sw11_SW_8, &&sw11_SW_9, &&sw11_SW_10, &&sw11_SW_11, &&sw11_SW_12, &&sw11_SW_13, &&sw11_SW_14, &&sw11_SW_15, &&sw11_SW_16, &&sw11_SW_17, &&sw11_SW_18, &&sw11_SW_19, &&sw11_SW_20, &&sw11_SW_21, &&sw11_SW_22, &&sw11_SW_23, &&sw11_SW_24, &&sw11_SW_25, &&sw11_SW_26, &&sw11_SW_27, &&sw11_SW_28, &&sw11_SW_29, &&sw11_SW_30, &&sw11_SW_31, &&sw11_SW_32, &&sw11_SW_33, &&sw11_SW_34, &&sw11_SW_35, &&sw11_SW_36, &&sw11_SW_37, &&sw11_SW_38, &&sw11_SW_39, &&sw11_SW_40, &&sw11_SW_41, &&sw11_SW_42, &&sw11_SW_43, &&sw11_SW_44, &&sw11_SW_45,  };
                                                                //   2952           %INTEGER PL,KK,PP,V,JJ
#line 2952 "regression-compile-tmp/allimpc1-77.imp"
int PL;
#line 2952 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 2952 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 2952 "regression-compile-tmp/allimpc1-77.imp"
int V;
#line 2952 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
                                                                //   2953           KK=K; JJ=COUNTAPS
#line 2953 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 2953 "regression-compile-tmp/allimpc1-77.imp"
JJ = COUNTAPS();
                                                                //   2954           PL=PLABEL(KK); PP=P+1; V=MODE(K)
#line 2954 "regression-compile-tmp/allimpc1-77.imp"
PL = PLABEL[KK];
#line 2954 "regression-compile-tmp/allimpc1-77.imp"
PP = (((int)(P)) + (1));
#line 2954 "regression-compile-tmp/allimpc1-77.imp"
V = MODE[K];
                                                                //   2955           P=P+1; P=P+1 %IF V>>4#0
#line 2955 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2955 "regression-compile-tmp/allimpc1-77.imp"
if ((((int)((((unsigned int)(V)) >> (4)))) == (0))) goto L_039f;
#line 2955 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2955 "regression-compile-tmp/allimpc1-77.imp"
L_039f:;
                                                                //   2956           ->L1010 %IF V&15=15
#line 2956 "regression-compile-tmp/allimpc1-77.imp"
if (((((V) & (15))) != (15))) goto L_03a0;
#line 2956 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 2956 "regression-compile-tmp/allimpc1-77.imp"
L_03a0:;
                                                                //   2957           ->L1001 %IF V>>4#JJ; V=V&15
#line 2957 "regression-compile-tmp/allimpc1-77.imp"
if ((((int)((((unsigned int)(V)) >> (4)))) == (JJ))) goto L_03a1;
#line 2957 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 2957 "regression-compile-tmp/allimpc1-77.imp"
L_03a1:;
#line 2957 "regression-compile-tmp/allimpc1-77.imp"
V = ((V) & (15));
                                                                //   2958           ->L1002 %IF V=0 %AND Z#0;      ! ROUTINE CALL IN EXPRESSION
#line 2958 "regression-compile-tmp/allimpc1-77.imp"
if (((V) != (0))) goto L_03a2;
#line 2958 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (0))) goto L_03a2;
#line 2958 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 2958 "regression-compile-tmp/allimpc1-77.imp"
L_03a2:;
                                                                //   2959           ->L1003 %IF V=2 %AND Z#2;      ! FN CALLED INCORRECTLY
#line 2959 "regression-compile-tmp/allimpc1-77.imp"
if (((V) != (2))) goto L_03a3;
#line 2959 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (2))) goto L_03a3;
#line 2959 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 2959 "regression-compile-tmp/allimpc1-77.imp"
L_03a3:;
                                                                //   2960           ->L1005 %IF Z=0 %AND V#0
#line 2960 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (0))) goto L_03a4;
#line 2960 "regression-compile-tmp/allimpc1-77.imp"
if (((V) == (0))) goto L_03a4;
#line 2960 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 2960 "regression-compile-tmp/allimpc1-77.imp"
L_03a4:;
                                                                //   2961  L1010:    ->SW(KK)
#line 2961 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 2961 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_idx = KK; if ((0 <= sw11_SW_idx) && (sw11_SW_idx <= 45)) goto *sw11_SW[sw11_SW_idx]; else {
   /*_imp_signal(8, 2, sw11_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:45 at %s:%d\n",
           sw11_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2962  L1001:    FAULT(19); PRINTNAME(FNAME)
#line 2962 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 2962 "regression-compile-tmp/allimpc1-77.imp"
FAULT(19);
#line 2962 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(FNAME);
                                                                //   2963  L1000:    P=PP; SKIP APP; P=P-1; ->L99
#line 2963 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 2963 "regression-compile-tmp/allimpc1-77.imp"
P = PP;
#line 2963 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 2963 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (1));
#line 2963 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2964  L1002:    FAULT(23); ->L1000
#line 2964 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 2964 "regression-compile-tmp/allimpc1-77.imp"
FAULT(23);
#line 2964 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2965  L1003:    FAULT(29); ->L1000
#line 2965 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 2965 "regression-compile-tmp/allimpc1-77.imp"
FAULT(29);
#line 2965 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2966  L1004:    FAULT(22); ->L1000
#line 2966 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 2966 "regression-compile-tmp/allimpc1-77.imp"
FAULT(22);
#line 2966 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2967  L1005:    FAULT(17); ->L1000
#line 2967 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 2967 "regression-compile-tmp/allimpc1-77.imp"
FAULT(17);
#line 2967 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   2968  L1:       PPJ(PL); ->L99
#line 2968 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 2968 "regression-compile-tmp/allimpc1-77.imp"
PPJ(PL);
#line 2968 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2969  SW(4):   CIOCP(1); ->L99;               ! SKIP SYMBOL
#line 2969 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_4:;
#line 2969 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(1);
#line 2969 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2970  SW(2):   V=10;                         ! NEWLINE
#line 2970 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_2:;
#line 2970 "regression-compile-tmp/allimpc1-77.imp"
V = 10;
                                                                //   2971           PRX(X'41',1,0,0,V)
#line 2971 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, 0, V);
                                                                //   2972  L23:      CIOCP(3); ->L99
#line 2972 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 2972 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(3);
#line 2972 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2973  L21:      PRX(X'41',1,0,0,V); ->L1
#line 2973 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 2973 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, 0, V);
#line 2973 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   2974  SW(3):   V=32; ->L21;                   ! SPACE
#line 2974 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_3:;
#line 2974 "regression-compile-tmp/allimpc1-77.imp"
V = 32;
#line 2974 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   2975  SW(5):   V=0;                          ! RUNOUT
#line 2975 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_5:;
#line 2975 "regression-compile-tmp/allimpc1-77.imp"
V = 0;
                                                                //   2976  L51:      CSEXP(2,1); ->L21
#line 2976 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 2976 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
#line 2976 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   2977  SW(6):   V=10; ->L51;                   ! NEWLINES(N)
#line 2977 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_6:;
#line 2977 "regression-compile-tmp/allimpc1-77.imp"
V = 10;
#line 2977 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   2978  SW(7):   V=32; ->L51;                   ! SPACES(N)
#line 2978 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_7:;
#line 2978 "regression-compile-tmp/allimpc1-77.imp"
V = 32;
#line 2978 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   2979  SW(0):SW(1):                           ! SELECT INPUT AND OUTPUT
#line 2979 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_0:;
#line 2979 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_1:;
                                                                //   2980           CSEXP(1,1); CIOCP(KK+8)
#line 2980 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 2980 "regression-compile-tmp/allimpc1-77.imp"
CIOCP((((int)(KK)) + (8)));
                                                                //   2981           ->L99
#line 2981 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2982  SW(9):                                 ! PRINTSYMBOL
#line 2982 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_9:;
                                                                //   2983           CSEXP(1,1); ->L23
#line 2983 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 2983 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
                                                                //   2984  SW(8):   CIOCP(2);                     ! NEXT SYMBOL
#line 2984 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_8:;
#line 2984 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(2);
                                                                //   2985  L81:      %UNLESS REG=1 %THEN PRR(X'18',REG,1)
#line 2985 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 2985 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (1))) goto L_03a5;
#line 2985 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, 1);
#line 2985 "regression-compile-tmp/allimpc1-77.imp"
L_03a5:;
                                                                //   2986  L82:      PTYPE=10001;UNPACK; ->L99
#line 2986 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 2986 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 10001;
#line 2986 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 2986 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2987  SW(10):  CIOCP(1);                     ! READ SYMBOL
#line 2987 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_10:;
#line 2987 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(1);
                                                                //   2988  L106:     ->L1004 %UNLESS A(P)=4 %AND A(P+1)=1
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (4))) goto L_03a6;
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_03a7;
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
L_03a6:;
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2988 "regression-compile-tmp/allimpc1-77.imp"
L_03a7:;
                                                                //   2989           P=P+2; COPYTAG(A(P)); UNPACK
#line 2989 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 2989 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((P) + ((int)(2)))]);
#line 2989 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   2990           ->L104 %UNLESS TYPE=1 %AND ARR=0 %AND ROUT=0
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_03a8;
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_03a8;
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (0))) goto L_03a9;
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
L_03a8:;
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 2990 "regression-compile-tmp/allimpc1-77.imp"
L_03a9:;
                                                                //   2991           CNAME(1,1)
#line 2991 "regression-compile-tmp/allimpc1-77.imp"
CNAME(1, 1);
                                                                //   2992  L102:     ->L1004 %UNLESS A(P)=2; P=P+1; ->L99
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_03aa;
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
L_03aa:;
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 2992 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   2993  L104:     PLANT(X'1841'); REGISTER(4)=1
#line 2993 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 2993 "regression-compile-tmp/allimpc1-77.imp"
PLANT(6209);
#line 2993 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 1;
                                                                //   2994           CNAME(1,4); REGISTER(4)=0
#line 2994 "regression-compile-tmp/allimpc1-77.imp"
CNAME(1, 4);
#line 2994 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[4] = 0;
                                                                //   2995           ->L1004 %UNLESS TYPE=1; ->L102
#line 2995 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (1))) goto L_03ab;
#line 2995 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2995 "regression-compile-tmp/allimpc1-77.imp"
L_03ab:;
#line 2995 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   2996  SW(11):                                ! READ
#line 2996 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_11:;
                                                                //   2997           B(0)=1; B(1)=1000
#line 2997 "regression-compile-tmp/allimpc1-77.imp"
B[0] = 1;
#line 2997 "regression-compile-tmp/allimpc1-77.imp"
B[1] = 1000;
                                                                //   2998  L110:     JJ=10000; ->L1004 %IF 0#Z#13; ->L302
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
JJ = 10000;
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) == (Z))) || (((Z) == (13)))) goto L_03ac;
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
L_03ac:;
#line 2998 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   2999  SW(12):                                ! WRITE
#line 2999 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_12:;
                                                                //   3000           CSEXP(1,1); P=P+1
#line 3000 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 3000 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3001           JJ=P; V=TSEXP(KK)
#line 3001 "regression-compile-tmp/allimpc1-77.imp"
JJ = P;
#line 3001 "regression-compile-tmp/allimpc1-77.imp"
V = TSEXP(&KK);
                                                                //   3002           ->L121 %UNLESS V=0
#line 3002 "regression-compile-tmp/allimpc1-77.imp"
if (((V) == (0))) goto L_03ad;
#line 3002 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
#line 3002 "regression-compile-tmp/allimpc1-77.imp"
L_03ad:;
                                                                //   3003           V=PARK(1); CSEXP(2,1)
#line 3003 "regression-compile-tmp/allimpc1-77.imp"
V = PARK(1);
#line 3003 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
                                                                //   3004           UNPARK(X'58',1,V)
#line 3004 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(88, 1, V);
                                                                //   3005  L120:     PPJ(PL); ->L99
#line 3005 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 3005 "regression-compile-tmp/allimpc1-77.imp"
PPJ(PL);
#line 3005 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3006  L121:     P=JJ; REGISTER(1)=1
#line 3006 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 3006 "regression-compile-tmp/allimpc1-77.imp"
P = JJ;
#line 3006 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[1] = 1;
                                                                //   3007           CSEXP(2,1); REGISTER(1)=0; ->L120
#line 3007 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
#line 3007 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[1] = 0;
#line 3007 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   3008  SW(13):                                ! NEWPAGE
#line 3008 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_13:;
                                                                //   3009           PRX(X'41',1,0,0,12);          ! LA 0,12
#line 3009 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, 0, 12);
                                                                //   3010           CIOCP(5); ->L99
#line 3010 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(5);
#line 3010 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3011  SW(14):  ->L1004 %UNLESS A(P)=4 %AND A(P+1)=1;! ADDR
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_14:;
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (4))) goto L_03ae;
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_03af;
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
L_03ae:;
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3011 "regression-compile-tmp/allimpc1-77.imp"
L_03af:;
                                                                //   3012           P=P+2
#line 3012 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   3013           CNAME(3,REG); ->L1004 %UNLESS A(P)=2
#line 3013 "regression-compile-tmp/allimpc1-77.imp"
CNAME(3, REG);
#line 3013 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_03b0;
#line 3013 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3013 "regression-compile-tmp/allimpc1-77.imp"
L_03b0:;
                                                                //   3014           P=P+1; ->L82
#line 3014 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3014 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3015  SW(16):                                ! INT
#line 3015 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_16:;
                                                                //   3016  SW(17):                                ! INTPT
#line 3016 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_17:;
                                                                //   3017           CSEXP(0,3)
#line 3017 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 3);
                                                                //   3018           PRR(X'28',0,NEST)%UNLESS NEST=0
#line 3018 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) == (0))) goto L_03b1;
#line 3018 "regression-compile-tmp/allimpc1-77.imp"
PRR(40, 0, NEST);
#line 3018 "regression-compile-tmp/allimpc1-77.imp"
L_03b1:;
                                                                //   3019           PPJ(PL); ->L81
#line 3019 "regression-compile-tmp/allimpc1-77.imp"
PPJ(PL);
#line 3019 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
                                                                //   3020  SW(18):        CSEXP(6,3)      ;       ! FRACPT
#line 3020 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_18:;
#line 3020 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(6, 3);
                                                                //   3021                 PCLOD(32);              !INSERT FRACPT SR IN LINE
#line 3021 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(32);
                                                                //   3022           PRR(X'28',REG,2) %UNLESS REG=2
#line 3022 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (2))) goto L_03b2;
#line 3022 "regression-compile-tmp/allimpc1-77.imp"
PRR(40, REG, 2);
#line 3022 "regression-compile-tmp/allimpc1-77.imp"
L_03b2:;
                                                                //   3023           PTYPE=10032; UNPACK; ->L99
#line 3023 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 10032;
#line 3023 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 3023 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3024  SW(19):                                ! PRINT
#line 3024 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_19:;
                                                                //   3025           B(0)=3;B(3)=1
#line 3025 "regression-compile-tmp/allimpc1-77.imp"
B[0] = 3;
#line 3025 "regression-compile-tmp/allimpc1-77.imp"
B[3] = 1;
                                                                //   3026  L191:     B(1)=32;B(2)=1;->L110
#line 3026 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 3026 "regression-compile-tmp/allimpc1-77.imp"
B[1] = 32;
#line 3026 "regression-compile-tmp/allimpc1-77.imp"
B[2] = 1;
#line 3026 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
                                                                //   3027  SW(20):                                ! PRINTFL
#line 3027 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_20:;
                                                                //   3028           QPREAL=N0<<2+4
#line 3028 "regression-compile-tmp/allimpc1-77.imp"
QPREAL = (((int)(((N0) << (2)))) + (4));
                                                                //   3029           B(0)=2;->L191
#line 3029 "regression-compile-tmp/allimpc1-77.imp"
B[0] = 2;
#line 3029 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   3030  SW(39):  JJ=11032; ->L210;              ! LONGREAL
#line 3030 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_39:;
#line 3030 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11032;
#line 3030 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3031  SW(21):  JJ=11002;                     ! REAL
#line 3031 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_21:;
#line 3031 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11002;
                                                                //   3032  L210:     CSEXP(0,1); P=P+1
#line 3032 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 3032 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 1);
#line 3032 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3033           ->L212 %UNLESS NEST=0
#line 3033 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) == (0))) goto L_03b3;
#line 3033 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 3033 "regression-compile-tmp/allimpc1-77.imp"
L_03b3:;
                                                                //   3034           PLANT(X'1810'); NEST=1
#line 3034 "regression-compile-tmp/allimpc1-77.imp"
PLANT(6160);
#line 3034 "regression-compile-tmp/allimpc1-77.imp"
NEST = 1;
                                                                //   3035  L212:     PTYPE=JJ; UNPACK; ->L99
#line 3035 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 3035 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = JJ;
#line 3035 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 3035 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3036  SW(22):  JJ=11001; ->L210;              ! INTEGER
#line 3036 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_22:;
#line 3036 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11001;
#line 3036 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3037  SW(23):  CSEXP(REG,3);                 ! MOD
#line 3037 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_23:;
#line 3037 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(REG, 3);
                                                                //   3038           PRR(X'20',REG,REG); ->L99;     ! LPDR
#line 3038 "regression-compile-tmp/allimpc1-77.imp"
PRR(32, REG, REG);
#line 3038 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3039  SW(25):SW(26):SW(27):                  ! SQRT,LOG,SIN
#line 3039 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_25:;
#line 3039 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_26:;
#line 3039 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_27:;
                                                                //   3040  SW(28):SW(29):SW (30):                 ! COS,TAN,EXP
#line 3040 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_28:;
#line 3040 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_29:;
#line 3040 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_30:;
                                                                //   3041           B(0)=1
#line 3041 "regression-compile-tmp/allimpc1-77.imp"
B[0] = 1;
                                                                //   3042  L301:     B(1)=32;JJ=10032;
#line 3042 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
#line 3042 "regression-compile-tmp/allimpc1-77.imp"
B[1] = 32;
#line 3042 "regression-compile-tmp/allimpc1-77.imp"
JJ = 10032;
                                                                //   3043           ->L1004 %IF 2#Z#13
#line 3043 "regression-compile-tmp/allimpc1-77.imp"
if ((((2) == (Z))) || (((Z) == (13)))) goto L_03b4;
#line 3043 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3043 "regression-compile-tmp/allimpc1-77.imp"
L_03b4:;
                                                                //   3044  L302:     REDEFINE EP(JJ,B)
#line 3044 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 3044 "regression-compile-tmp/allimpc1-77.imp"
REDEFINEEP(JJ, &B[-(0)]);
                                                                //   3045           CNAME(Z,REG);P=P-2;->L99
#line 3045 "regression-compile-tmp/allimpc1-77.imp"
CNAME(Z, REG);
#line 3045 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (2));
#line 3045 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3046  SW(31):  ! MAP RECORD
#line 3046 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_31:;
                                                                //   3047           CSEXP(REG,1); FAULT(84) %UNLESS Z=15
#line 3047 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(REG, 1);
#line 3047 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (15))) goto L_03b5;
#line 3047 "regression-compile-tmp/allimpc1-77.imp"
FAULT(84);
#line 3047 "regression-compile-tmp/allimpc1-77.imp"
L_03b5:;
                                                                //   3048           PTYPE=3; UNPACK
#line 3048 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 3;
#line 3048 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3049           ->L99
#line 3049 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3050  SW(32):  JJ=11011; ->L210;              ! BYTEINTEGER
#line 3050 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_32:;
#line 3050 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11011;
#line 3050 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3051  SW(33):  JJ=11021; ->L210;              ! SHORT INTEGER
#line 3051 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_33:;
#line 3051 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11021;
#line 3051 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3052  SW(34):SW(35):                         !RADIUS & ARCTAN
#line 3052 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_34:;
#line 3052 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_35:;
                                                                //   3053           B(0)=2; B(2)=32; ->L301
#line 3053 "regression-compile-tmp/allimpc1-77.imp"
B[0] = 2;
#line 3053 "regression-compile-tmp/allimpc1-77.imp"
B[2] = 32;
#line 3053 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   3054  SW(36):                                ! %INTEGERFN PARITY
#line 3054 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_36:;
                                                                //   3055                 CSEXP(REG,1)
#line 3055 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(REG, 1);
                                                                //   3056                 PRX(X'89',REG,0,0,31);  ! SLL REL,31
#line 3056 "regression-compile-tmp/allimpc1-77.imp"
PRX(137, REG, 0, 0, 31);
                                                                //   3057                 PRX(X'8A',REG,0,0,30);  ! SRA REG,30
#line 3057 "regression-compile-tmp/allimpc1-77.imp"
PRX(138, REG, 0, 0, 30);
                                                                //   3058                 PRX(X'5B',REG,0,GLA,16);! S_REG,,=F'-1'
#line 3058 "regression-compile-tmp/allimpc1-77.imp"
PRX(91, REG, 0, GLA, 16);
                                                                //   3059           ->L99
#line 3059 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3060  SW(37):  CSTREXP(1); CIOCP(7); ->L99;   ! PRINT STRING
#line 3060 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_37:;
#line 3060 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(1);
#line 3060 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(7);
#line 3060 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3061  SW(38):  PRX(X'41',REG,0,0,10); ->L82
#line 3061 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_38:;
#line 3061 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, REG, 0, 0, 10);
#line 3061 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3062  SW(40):                                ! PRINTCH
#line 3062 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_40:;
                                                                //   3063           CSEXP(1,1); CIOCP(5); ->L99
#line 3063 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 3063 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(5);
#line 3063 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3064  SW(41):                                ! READ CH
#line 3064 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_41:;
                                                                //   3065           CIOCP(4); ->L106
#line 3065 "regression-compile-tmp/allimpc1-77.imp"
CIOCP(4);
#line 3065 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
                                                                //   3066  SW(42):  JJ=11005; ->L210;              ! STRING
#line 3066 "regression-compile-tmp/allimpc1-77.imp"
sw11_SW_42:;
#line 3066 "regression-compile-tmp/allimpc1-77.imp"
JJ = 11005;
#line 3066 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3067  L99:      %END
#line 3067 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 3067 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw11_SW_15:;
sw11_SW_24:;
sw11_SW_43:;
sw11_SW_44:;
sw11_SW_45:;
/*_imp_signal(6,3,sw11_SW_idx,"SWITCH LABEL NOT SET - sw11_SW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw11_SW(%d): at line %s:%d", sw11_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CSNAME at level 3
                                                                //   3068           %ROUTINE     CIOCP(%INTEGER N)
#line 3068 "regression-compile-tmp/allimpc1-77.imp"
void CIOCP( int N )
#line 3068 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3069           PRX(X'41',0,0,0,N);           ! LA 0,N
#line 3069 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 0, 0, 0, N);
                                                                //   3070           PRX(X'90',4,1,11,16);         ! STM 4,1,16(11)
#line 3070 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 4, 1, 11, 16);
                                                                //   3071           PRX(X'98',12,14,GLA,140);     ! LM 12,14,=V(IOCP)
#line 3071 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 12, 14, GLA, 140);
                                                                //   3072           PRR(X'05',15,14);             ! BALR 15,14
#line 3072 "regression-compile-tmp/allimpc1-77.imp"
PRR(5, 15, 14);
                                                                //   3073           R13=0
#line 3073 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
                                                                //   3074           %END
#line 3074 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CIOCP at level 3
                                                                //   3075           %ROUTINE     CANAME(%INTEGER Z,BS,DP,CLINK,BSRF,DPRF)
#line 3075 "regression-compile-tmp/allimpc1-77.imp"
void CANAME( int Z, int BS, int DP, int CLINK, int BSRF, int DPRF )
#line 3075 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3076           ! BS& DP FOR ARRAY HEAD BSRF & DPRF POINT TO MULTIPLIER
                                                                //   3077           ! IN RECORD FORMAT FOR RECORD ARRAYS LINK POINTS TO LP CELL HOLDING
                                                                //   3078           ! DIMENSION OF ARRAY IN CASE THIS HAS TO BE DEDUCED & INSERTED
                                                                //   3079           !%SHORTROUTINE
                                                                //   3080           %SWITCH S(0:3)
#line 3080 "regression-compile-tmp/allimpc1-77.imp"
static int sw12_S_idx;
static const void * /*SWITCH*/ sw12_S[4] = { &&sw12_S_0, &&sw12_S_1, &&sw12_S_2, &&sw12_S_3,  };
                                                                //   3081           %INTEGER PTYPEP,KK,RR,PP,JJ,JJJ
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int PTYPEP;
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int RR;
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 3081 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
                                                                //   3082           %INTEGER KKK,DIS,Q,PRECP,CHECKSP
#line 3082 "regression-compile-tmp/allimpc1-77.imp"
int KKK;
#line 3082 "regression-compile-tmp/allimpc1-77.imp"
int DIS;
#line 3082 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 3082 "regression-compile-tmp/allimpc1-77.imp"
int PRECP;
#line 3082 "regression-compile-tmp/allimpc1-77.imp"
int CHECKSP;
                                                                //   3083           %INTEGER BASEREG,ARRP,BASIC DISP
#line 3083 "regression-compile-tmp/allimpc1-77.imp"
int BASEREG;
#line 3083 "regression-compile-tmp/allimpc1-77.imp"
int ARRP;
#line 3083 "regression-compile-tmp/allimpc1-77.imp"
int BASICDISP;
                                                                //   3084           CHECKSP=CHECKS; CHECKSP=1 %IF TYPE=0; ! NO TYPE MUST GO TO PERM
#line 3084 "regression-compile-tmp/allimpc1-77.imp"
CHECKSP = CHECKS;
#line 3084 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (0))) goto L_03b6;
#line 3084 "regression-compile-tmp/allimpc1-77.imp"
CHECKSP = 1;
#line 3084 "regression-compile-tmp/allimpc1-77.imp"
L_03b6:;
                                                                //   3085           PP=P; BASEREG=LINK
#line 3085 "regression-compile-tmp/allimpc1-77.imp"
PP = P;
#line 3085 "regression-compile-tmp/allimpc1-77.imp"
BASEREG = LINK;
                                                                //   3086           %IF INREG#0 %THEN %START
#line 3086 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_03b7;
                                                                //   3087           CHECKSP=0 %IF TYPE#0; BASEREG=INREG
#line 3087 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (0))) goto L_03b8;
#line 3087 "regression-compile-tmp/allimpc1-77.imp"
CHECKSP = 0;
#line 3087 "regression-compile-tmp/allimpc1-77.imp"
L_03b8:;
#line 3087 "regression-compile-tmp/allimpc1-77.imp"
BASEREG = INREG;
                                                                //   3088           %FINISH
#line 3088 "regression-compile-tmp/allimpc1-77.imp"
L_03b7:;
                                                                //   3089           JJ=J; PTYPEP=PTYPE
#line 3089 "regression-compile-tmp/allimpc1-77.imp"
JJ = J;
#line 3089 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
                                                                //   3090           ARRP=ARR
#line 3090 "regression-compile-tmp/allimpc1-77.imp"
ARRP = ARR;
                                                                //   3091           Q=COUNT APS; ->L1 %UNLESS JJ=0
#line 3091 "regression-compile-tmp/allimpc1-77.imp"
Q = COUNTAPS();
#line 3091 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) == (0))) goto L_03b9;
#line 3091 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 3091 "regression-compile-tmp/allimpc1-77.imp"
L_03b9:;
                                                                //   3092           FROM1(CLINK,JJ)
#line 3092 "regression-compile-tmp/allimpc1-77.imp"
FROM1(CLINK, &JJ);
                                                                //   3093           REPLACE1(CLINK,JJ!Q); JJ=Q
#line 3093 "regression-compile-tmp/allimpc1-77.imp"
REPLACE1(CLINK, ((JJ) | (Q)));
#line 3093 "regression-compile-tmp/allimpc1-77.imp"
JJ = Q;
                                                                //   3094  L1:       ->L4 %IF JJ=Q#0
#line 3094 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 3094 "regression-compile-tmp/allimpc1-77.imp"
if ((((JJ) != (Q))) || (((Q) == (0)))) goto L_03ba;
#line 3094 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 3094 "regression-compile-tmp/allimpc1-77.imp"
L_03ba:;
                                                                //   3095           FAULT(19); PRINTNAME(FNAME)
#line 3095 "regression-compile-tmp/allimpc1-77.imp"
FAULT(19);
#line 3095 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(FNAME);
                                                                //   3096           P=P+1; SKIP APP; ->L99
#line 3096 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3096 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 3096 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
                                                                //   3097  L4:
#line 3097 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
                                                                //   3098           %IF ARRP=2 %THEN FROM LIST(K,BASIC DISP,DP)
#line 3098 "regression-compile-tmp/allimpc1-77.imp"
if (((ARRP) != (2))) goto L_03bb;
#line 3098 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(K, &BASICDISP, &DP);
#line 3098 "regression-compile-tmp/allimpc1-77.imp"
L_03bb:;
                                                                //   3099           ->L12 %UNLESS CHECKSP=0 %AND JJ=1 %AND Z#3
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (0))) goto L_03bc;
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) != (1))) goto L_03bc;
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (3))) goto L_03bd;
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
L_03bc:;
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3099 "regression-compile-tmp/allimpc1-77.imp"
L_03bd:;
                                                                //   3100           ->L12 %UNLESS 2>=TYPE
#line 3100 "regression-compile-tmp/allimpc1-77.imp"
if (((2) >= (TYPE))) goto L_03be;
#line 3100 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3100 "regression-compile-tmp/allimpc1-77.imp"
L_03be:;
                                                                //   3101           PRECP=PREC; KKK=0; P=PP+2; JJJ=TSEXP(KKK)
#line 3101 "regression-compile-tmp/allimpc1-77.imp"
PRECP = PREC;
#line 3101 "regression-compile-tmp/allimpc1-77.imp"
KKK = 0;
#line 3101 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(PP)) + (2));
#line 3101 "regression-compile-tmp/allimpc1-77.imp"
JJJ = TSEXP(&KKK);
                                                                //   3102           %IF 3<=JJJ<=99 %THEN DIS=0 %ELSE DIS=KKK*BYTES(PRECP)
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
if ((((3) > (JJJ))) || (((JJJ) > (99)))) goto L_03bf;
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
DIS = 0;
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
goto L_03c0;
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
L_03bf:;
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
DIS = ((KKK) * ((int)(BYTES[PRECP])));
#line 3102 "regression-compile-tmp/allimpc1-77.imp"
L_03c0:;
                                                                //   3103           ->L12 %IF DIS>4095 %OR (ARRP=2 %AND DIS+BASIC DISP>4095)
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
if (((DIS) > (4095))) goto L_03c1;
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
if (((ARRP) != (2))) goto L_03c2;
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
if ((((((int)(DIS)) + (BASICDISP))) <= (4095))) goto L_03c2;
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
L_03c1:;
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3103 "regression-compile-tmp/allimpc1-77.imp"
L_03c2:;
                                                                //   3104           ->REGVAR %IF JJJ=50 %AND PRECP=1
#line 3104 "regression-compile-tmp/allimpc1-77.imp"
if (((JJJ) != (50))) goto L_03c3;
#line 3104 "regression-compile-tmp/allimpc1-77.imp"
if (((PRECP) != (1))) goto L_03c3;
#line 3104 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 3104 "regression-compile-tmp/allimpc1-77.imp"
L_03c3:;
                                                                //   3105           ->RDISP %IF JJJ=101
#line 3105 "regression-compile-tmp/allimpc1-77.imp"
if (((JJJ) != (101))) goto L_03c4;
#line 3105 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 3105 "regression-compile-tmp/allimpc1-77.imp"
L_03c4:;
                                                                //   3106           ->CONST %IF 1<=JJJ<=2
#line 3106 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (JJJ))) || (((JJJ) > (2)))) goto L_03c5;
#line 3106 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
#line 3106 "regression-compile-tmp/allimpc1-77.imp"
L_03c5:;
                                                                //   3107           ->L12 %UNLESS JJJ=100
#line 3107 "regression-compile-tmp/allimpc1-77.imp"
if (((JJJ) == (100))) goto L_03c6;
#line 3107 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3107 "regression-compile-tmp/allimpc1-77.imp"
L_03c6:;
                                                                //   3108           DUMP(2+2*PREC,1,K,0,I); P=P+1; ->L9
#line 3108 "regression-compile-tmp/allimpc1-77.imp"
DUMP(((2) + ((int)(((2) * ((int)(PREC)))))), 1, K, 0, I);
#line 3108 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3108 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
                                                                //   3109  REGVAR:  JJJ=K; P=P+1; ->L8;            !CAN ONLY OPTIMISE BYTES
#line 3109 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 3109 "regression-compile-tmp/allimpc1-77.imp"
JJJ = K;
#line 3109 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3109 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   3110  RDISP:   ->REGVAR %IF PRECP=1
#line 3110 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 3110 "regression-compile-tmp/allimpc1-77.imp"
if (((PRECP) != (1))) goto L_03c7;
#line 3110 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 3110 "regression-compile-tmp/allimpc1-77.imp"
L_03c7:;
                                                                //   3111           PRR(X'18',1,K); P=P+1; ->L9
#line 3111 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, K);
#line 3111 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3111 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
                                                                //   3112  L12:      P=PP+2; DIS=0
#line 3112 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 3112 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(PP)) + (2));
#line 3112 "regression-compile-tmp/allimpc1-77.imp"
DIS = 0;
                                                                //   3113           ->L21 %UNLESS JJ=1
#line 3113 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) == (1))) goto L_03c8;
#line 3113 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
#line 3113 "regression-compile-tmp/allimpc1-77.imp"
L_03c8:;
                                                                //   3114           CSEXP(1,1);P=P+1
#line 3114 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 3114 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3115           ->L10 %IF CHECKSP=1
#line 3115 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) != (1))) goto L_03c9;
#line 3115 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
#line 3115 "regression-compile-tmp/allimpc1-77.imp"
L_03c9:;
                                                                //   3116  L9:       JJJ=1
#line 3116 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 3116 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
                                                                //   3117  L8:       %IF BASEREG#LINK %THEN ->L5
#line 3117 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 3117 "regression-compile-tmp/allimpc1-77.imp"
if (((BASEREG) == (LINK))) goto L_03ca;
#line 3117 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 3117 "regression-compile-tmp/allimpc1-77.imp"
L_03ca:;
                                                                //   3118           ->VECTOR %IF ARRP=2
#line 3118 "regression-compile-tmp/allimpc1-77.imp"
if (((ARRP) != (2))) goto L_03cb;
#line 3118 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
#line 3118 "regression-compile-tmp/allimpc1-77.imp"
L_03cb:;
                                                                //   3119           RP13=R13; R13=BS<<12!DP
#line 3119 "regression-compile-tmp/allimpc1-77.imp"
RP13 = R13;
#line 3119 "regression-compile-tmp/allimpc1-77.imp"
R13 = ((((BS) << (12))) | (DP));
                                                                //   3120           PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13; ! ADDR A0
#line 3120 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) == (RP13))) goto L_03cc;
#line 3120 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, LINK, 0, BS, DP);
#line 3120 "regression-compile-tmp/allimpc1-77.imp"
L_03cc:;
                                                                //   3121           ->L5
#line 3121 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   3122  VECTOR:  DIS=DIS+BASIC DISP; BASEREG=BS
#line 3122 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 3122 "regression-compile-tmp/allimpc1-77.imp"
DIS = (((int)(DIS)) + (BASICDISP));
#line 3122 "regression-compile-tmp/allimpc1-77.imp"
BASEREG = BS;
                                                                //   3123  L5:       PTYPE=PTYPEP; UNPACK
#line 3123 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 3123 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 3123 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3124           ->L6 %IF JJJ=0
#line 3124 "regression-compile-tmp/allimpc1-77.imp"
if (((JJJ) != (0))) goto L_03cd;
#line 3124 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 3124 "regression-compile-tmp/allimpc1-77.imp"
L_03cd:;
                                                                //   3125           ->STR %IF TYPE=5
#line 3125 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_03ce;
#line 3125 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
#line 3125 "regression-compile-tmp/allimpc1-77.imp"
L_03ce:;
                                                                //   3126           ->S(PREC) %UNLESS TYPE=3;     ! RECORDS
#line 3126 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (3))) goto L_03cf;
#line 3126 "regression-compile-tmp/allimpc1-77.imp"
sw12_S_idx = PREC; if ((0 <= sw12_S_idx) && (sw12_S_idx <= 3)) goto *sw12_S[sw12_S_idx]; else {
   /*_imp_signal(8, 2, sw12_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 0:3 at %s:%d\n",
           sw12_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 3126 "regression-compile-tmp/allimpc1-77.imp"
L_03cf:;
                                                                //   3127  L3:       PRX(X'4C',1,0,BSRF,DPRF); ->L6
#line 3127 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 3127 "regression-compile-tmp/allimpc1-77.imp"
PRX(76, 1, 0, BSRF, DPRF);
#line 3127 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   3128  STR:     PRX(X'58',2,0,BS,DP+8);       ! ADDR OF DV
#line 3128 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
#line 3128 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 2, 0, BS, (((int)(DP)) + (8)));
                                                                //   3129           BSRF=2; DPRF=2; ->L3
#line 3129 "regression-compile-tmp/allimpc1-77.imp"
BSRF = 2;
#line 3129 "regression-compile-tmp/allimpc1-77.imp"
DPRF = 2;
#line 3129 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   3130  S(3):                                  !LONG REAL
#line 3130 "regression-compile-tmp/allimpc1-77.imp"
sw12_S_3:;
                                                                //   3131  S(0):    ! %INTEGER
#line 3131 "regression-compile-tmp/allimpc1-77.imp"
sw12_S_0:;
                                                                //   3132                 PCONST(X'89100002'! PREC); ->L6;   ! SLL 1,2 OR 3
#line 3132 "regression-compile-tmp/allimpc1-77.imp"
PCONST((((-1995440126)) | (PREC)));
#line 3132 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   3133  S(2):    ! %SHORT
#line 3133 "regression-compile-tmp/allimpc1-77.imp"
sw12_S_2:;
                                                                //   3134                 PLANT(X'1A11');         ! AR 1,1
#line 3134 "regression-compile-tmp/allimpc1-77.imp"
PLANT(6673);
                                                                //   3135  S(1):L6:  DISP=DIS; INDEX=JJJ; BASE=BASEREG; ->L99
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
sw12_S_1:;
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
DISP = DIS;
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
INDEX = JJJ;
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
BASE = BASEREG;
#line 3135 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
                                                                //   3136  CONST:   JJJ=0; P=P+1;                 ! 1 D WITH A CONSTANT SUFFIX
#line 3136 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 3136 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 0;
#line 3136 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3137           ->L8
#line 3137 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
                                                                //   3138  L10:      ! 1 DIMENSION PLUS CHECKS
#line 3138 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
                                                                //   3139           DUMP(0,3,DP,0,BS);         ! ADDR ARRAYHEAD
#line 3139 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 3, DP, 0, BS);
                                                                //   3140           PPJ(22+JJ); JJJ=1;            ! PERM CHECKS BOUNDS AND SHIFTS
#line 3140 "regression-compile-tmp/allimpc1-77.imp"
PPJ((((int)(22)) + (JJ)));
#line 3140 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
                                                                //   3141  L11:      PTYPE=PTYPEP; UNPACK
#line 3141 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 3141 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 3141 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3142           ->L6
#line 3142 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
                                                                //   3143  L21:      ! TWO DIMENSIONS
#line 3143 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
                                                                //   3144           ->L31 %UNLESS JJ=2 %AND CHECKSP=0
#line 3144 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) != (2))) goto L_03d0;
#line 3144 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKSP) == (0))) goto L_03d1;
#line 3144 "regression-compile-tmp/allimpc1-77.imp"
L_03d0:;
#line 3144 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 3144 "regression-compile-tmp/allimpc1-77.imp"
L_03d1:;
                                                                //   3145           CSEXP(2,1);JJJ=2;P=P+1
#line 3145 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(2, 1);
#line 3145 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 2;
#line 3145 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3146           KK=P;Q=TSEXP(PP);P=KK
#line 3146 "regression-compile-tmp/allimpc1-77.imp"
KK = P;
#line 3146 "regression-compile-tmp/allimpc1-77.imp"
Q = TSEXP(&PP);
#line 3146 "regression-compile-tmp/allimpc1-77.imp"
P = KK;
                                                                //   3147           ->L22 %UNLESS Q=0
#line 3147 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) == (0))) goto L_03d2;
#line 3147 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 3147 "regression-compile-tmp/allimpc1-77.imp"
L_03d2:;
                                                                //   3148           JJJ=PARK(2)
#line 3148 "regression-compile-tmp/allimpc1-77.imp"
JJJ = PARK(2);
                                                                //   3149  L22:      CSEXP(1,1);P=P+1
#line 3149 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
#line 3149 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(1, 1);
#line 3149 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3150           PRX(X'4C',1,0,BS,DP+14);      ! MH 1,MULTIPLIER
#line 3150 "regression-compile-tmp/allimpc1-77.imp"
PRX(76, 1, 0, BS, (((int)(DP)) + (14)));
                                                                //   3151           UNPARK(X'5A',1,JJJ);          !ADD 1ST SUFFIX
#line 3151 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(90, 1, JJJ);
                                                                //   3152           ->L9
#line 3152 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
                                                                //   3153  L31:      !MULTIDIMENSION - ALWAYS VIA PERM
#line 3153 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
                                                                //   3154           RR=GET ARR WSP
#line 3154 "regression-compile-tmp/allimpc1-77.imp"
RR = GETARRWSP();
                                                                //   3155           %CYCLE PP=0,1,JJ-1
#line 3155 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 0; _increment = 1; _final = (((int)(JJ)) - (1)); PP = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle PP = 0, 1, (((int)(JJ)) - (1))");
PP -= _increment; _control -= _increment;
L_03d3:;
if (PP == _final) goto L_03d4;
PP += _increment; _control += _increment;
if (PP != _control) _imp_signal(4,2,0,"Corrupt control variable PP"); /* FOR loop control variable corrupted */
}
                                                                //   3156           CSEXP(0,1);P=P+1
#line 3156 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 1);
#line 3156 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3157           DUMP(1,NEST,RR+PP<<2,0,RBASE)
#line 3157 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, NEST, ((RR) + ((int)(((PP) << (2))))), 0, RBASE);
                                                                //   3158           %REPEAT
#line 3158 "regression-compile-tmp/allimpc1-77.imp"
goto L_03d3;
#line 3158 "regression-compile-tmp/allimpc1-77.imp"
L_03d4:;
                                                                //   3159           DUMP(0,1,RR+PP<<2,0,RBASE);   !LA  1,2
#line 3159 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 1, ((RR) + ((int)(((PP) << (2))))), 0, RBASE);
                                                                //   3160           DUMP(0,2,DP,0,BS)             ;!LA  2,ARRAY HEAD
#line 3160 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 2, DP, 0, BS);
                                                                //   3161           PPJ(24);JJJ=1;
#line 3161 "regression-compile-tmp/allimpc1-77.imp"
PPJ(24);
#line 3161 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
                                                                //   3162           PUSH(MDARR(LEVEL),0,RR)       ;!FREE WORK SPACE
#line 3162 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&MDARR[LEVEL], 0, RR);
                                                                //   3163           ->L11
#line 3163 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   3164  L99:      J=JJ; %END
#line 3164 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 3164 "regression-compile-tmp/allimpc1-77.imp"
J = JJ;
#line 3164 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CANAME at level 3
                                                                //   3165           %ROUTINE     CENAME(%INTEGER Z,MODE,BS,DP)
#line 3165 "regression-compile-tmp/allimpc1-77.imp"
void CENAME( int Z, int MODE, int BS, int DP )
#line 3165 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3166           !%SHORTROUTINE
                                                                //   3167           %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP
                                                                //   3168           %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH
                                                                //   3169           %COMMENT MODE=2 RECORD REG CLAIMED
                                                                //   3170  ! P POINTS TO (ENAME)***** FNAME HOLD FORMAT NAME
                                                                //   3171           %INTEGER Q,QQQ,BSRF,DPRF
#line 3171 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 3171 "regression-compile-tmp/allimpc1-77.imp"
int QQQ;
#line 3171 "regression-compile-tmp/allimpc1-77.imp"
int BSRF;
#line 3171 "regression-compile-tmp/allimpc1-77.imp"
int DPRF;
                                                                //   3172           ->L2 %IF A(P)=1
#line 3172 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_03d6;
#line 3172 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 3172 "regression-compile-tmp/allimpc1-77.imp"
L_03d6:;
                                                                //   3173           ->L1 %IF Z>=14; FAULT(64)
#line 3173 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) < (14))) goto L_03d7;
#line 3173 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 3173 "regression-compile-tmp/allimpc1-77.imp"
L_03d7:;
#line 3173 "regression-compile-tmp/allimpc1-77.imp"
FAULT(64);
                                                                //   3174            P=P-2
#line 3174 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (2));
                                                                //   3175           PTYPE=1; UNPACK; ->L99
#line 3175 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 1;
#line 3175 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 3175 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3176  L1:       BASE=BS; DISP=DP
#line 3176 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 3176 "regression-compile-tmp/allimpc1-77.imp"
BASE = BS;
#line 3176 "regression-compile-tmp/allimpc1-77.imp"
DISP = DP;
                                                                //   3177           DISP=-1 %IF MODE#0
#line 3177 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (0))) goto L_03d8;
#line 3177 "regression-compile-tmp/allimpc1-77.imp"
DISP = (-1);
#line 3177 "regression-compile-tmp/allimpc1-77.imp"
L_03d8:;
                                                                //   3178           INDEX=0; ->L99
#line 3178 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3178 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3179  L2:       P=P+1; Q=DISPLACEMENT(FNAME); UNPACK
#line 3179 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 3179 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3179 "regression-compile-tmp/allimpc1-77.imp"
Q = DISPLACEMENT(FNAME);
#line 3179 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3180           ! K POINTS TO CELL HOLD ING DETAILS FOR THOS CELL
                                                                //   3181           ->L98 %IF Q=-1; ->L50 %IF TYPE =3
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((-1)))) goto L_03d9;
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
L_03d9:;
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_03da;
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 3181 "regression-compile-tmp/allimpc1-77.imp"
L_03da:;
                                                                //   3182           ->L20 %IF ARR=1
#line 3182 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_03db;
#line 3182 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 3182 "regression-compile-tmp/allimpc1-77.imp"
L_03db:;
                                                                //   3183           ->L30 %IF TYPE=5
#line 3183 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_03dc;
#line 3183 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 3183 "regression-compile-tmp/allimpc1-77.imp"
L_03dc:;
                                                                //   3184           ->L11 %IF MODE#0
#line 3184 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (0))) goto L_03dd;
#line 3184 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3184 "regression-compile-tmp/allimpc1-77.imp"
L_03dd:;
                                                                //   3185           RP13=R13; R13=BS<<12!DP
#line 3185 "regression-compile-tmp/allimpc1-77.imp"
RP13 = R13;
#line 3185 "regression-compile-tmp/allimpc1-77.imp"
R13 = ((((BS) << (12))) | (DP));
                                                                //   3186           PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13
#line 3186 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) == (RP13))) goto L_03de;
#line 3186 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, LINK, 0, BS, DP);
#line 3186 "regression-compile-tmp/allimpc1-77.imp"
L_03de:;
                                                                //   3187           BASE=LINK
#line 3187 "regression-compile-tmp/allimpc1-77.imp"
BASE = LINK;
                                                                //   3188  L7:       INDEX=0; DISP=Q
#line 3188 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 3188 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3188 "regression-compile-tmp/allimpc1-77.imp"
DISP = Q;
                                                                //   3189           %IF ROUT=1 %THEN FROM1(Q,DISP); ->L99
#line 3189 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_03df;
#line 3189 "regression-compile-tmp/allimpc1-77.imp"
FROM1(Q, &DISP);
#line 3189 "regression-compile-tmp/allimpc1-77.imp"
L_03df:;
#line 3189 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3190  L11:      BASE=BS; ->L7
#line 3190 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 3190 "regression-compile-tmp/allimpc1-77.imp"
BASE = BS;
#line 3190 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   3191  L20:      ! DEAL WITH ARRAY IN RECORD
#line 3191 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
                                                                //   3192           FROM LIST(FNAME,BSRF,QQQ)
#line 3192 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(FNAME, &BSRF, &QQQ);
                                                                //   3193           BSRF=BSRF>>4&15
#line 3193 "regression-compile-tmp/allimpc1-77.imp"
BSRF = (((int)((((unsigned int)(BSRF)) >> (4)))) & (15));
                                                                //   3194           FROM1(QQQ,DPRF)
#line 3194 "regression-compile-tmp/allimpc1-77.imp"
FROM1(QQQ, &DPRF);
                                                                //   3195           ->L21 %IF Z<10 %OR A(P+1)=1; K=DPRF+Q
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) < (10))) goto L_03d5;
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_03e0;
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
L_03d5:;
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
L_03e0:;
#line 3195 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(DPRF)) + (Q));
                                                                //   3196           I=BSRF;                       ! SS5V1
#line 3196 "regression-compile-tmp/allimpc1-77.imp"
I = BSRF;
                                                                //   3197           DUMP(2,1,DP,0,BS) %IF MODE=0; ->L99;    ! R1 NOW POINTS TO REORD
#line 3197 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03e1;
#line 3197 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, DP, 0, BS);
#line 3197 "regression-compile-tmp/allimpc1-77.imp"
L_03e1:;
#line 3197 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3198  L21:      ->L22 %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED?
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03e2;
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
if (((BS) < (4))) goto L_03e3;
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
L_03e2:;
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3198 "regression-compile-tmp/allimpc1-77.imp"
L_03e3:;
                                                                //   3199           DUMP(2,1,DP,0,BS); MODE=1; BS=1;        ! YES-- SO SAVE IT
#line 3199 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, DP, 0, BS);
#line 3199 "regression-compile-tmp/allimpc1-77.imp"
MODE = 1;
#line 3199 "regression-compile-tmp/allimpc1-77.imp"
BS = 1;
                                                                //   3200  L22:      QQQ=PARK(1) %IF MODE=1
#line 3200 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 3200 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_03e4;
#line 3200 "regression-compile-tmp/allimpc1-77.imp"
QQQ = PARK(1);
#line 3200 "regression-compile-tmp/allimpc1-77.imp"
L_03e4:;
                                                                //   3201           CANAME(3,BSRF,DPRF+Q,K,0,0)
#line 3201 "regression-compile-tmp/allimpc1-77.imp"
CANAME(3, BSRF, (((int)(DPRF)) + (Q)), K, 0, 0);
                                                                //   3202           R13=0
#line 3202 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
                                                                //   3203           %IF MODE=0 %THEN PRX(X'5A',INDEX,BS,0,DP)
#line 3203 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03e5;
#line 3203 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, INDEX, BS, 0, DP);
#line 3203 "regression-compile-tmp/allimpc1-77.imp"
L_03e5:;
                                                                //   3204           %IF MODE=1 %THEN UNPARK(X'5A',INDEX,QQQ)
#line 3204 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_03e6;
#line 3204 "regression-compile-tmp/allimpc1-77.imp"
UNPARK(90, INDEX, QQQ);
#line 3204 "regression-compile-tmp/allimpc1-77.imp"
L_03e6:;
                                                                //   3205           %IF MODE=2 %THEN PRR(X'1A',INDEX,BS)
#line 3205 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (2))) goto L_03e7;
#line 3205 "regression-compile-tmp/allimpc1-77.imp"
PRR(26, INDEX, BS);
#line 3205 "regression-compile-tmp/allimpc1-77.imp"
L_03e7:;
                                                                //   3206           I=BSRF; K=DPRF+Q
#line 3206 "regression-compile-tmp/allimpc1-77.imp"
I = BSRF;
#line 3206 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(DPRF)) + (Q));
                                                                //   3207           ->L99
#line 3207 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3208  L30:      FROMLIST(FNAME,BSRF,QQQ)
#line 3208 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 3208 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(FNAME, &BSRF, &QQQ);
                                                                //   3209           FROM1(QQQ,DPRF); BSRF=BSRF>>4&15
#line 3209 "regression-compile-tmp/allimpc1-77.imp"
FROM1(QQQ, &DPRF);
#line 3209 "regression-compile-tmp/allimpc1-77.imp"
BSRF = (((int)((((unsigned int)(BSRF)) >> (4)))) & (15));
                                                                //   3210           PRR(X'18',1,BS) %IF MODE#0 %AND BS#1
#line 3210 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (0))) goto L_03e8;
#line 3210 "regression-compile-tmp/allimpc1-77.imp"
if (((BS) == (1))) goto L_03e8;
#line 3210 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, BS);
#line 3210 "regression-compile-tmp/allimpc1-77.imp"
L_03e8:;
                                                                //   3211           PRX(X'58',1,BS,0,DP) %IF MODE=0
#line 3211 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03e9;
#line 3211 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 1, BS, 0, DP);
#line 3211 "regression-compile-tmp/allimpc1-77.imp"
L_03e9:;
                                                                //   3212           PRX(X'5A',1,BSRF,0,DPRF+Q)
#line 3212 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, 1, BSRF, 0, (((int)(DPRF)) + (Q)));
                                                                //   3213           BASE=1; INDEX=0; DISP=0
#line 3213 "regression-compile-tmp/allimpc1-77.imp"
BASE = 1;
#line 3213 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3213 "regression-compile-tmp/allimpc1-77.imp"
DISP = 0;
                                                                //   3214           I=BSRF; K=DPRF+Q; ->L99
#line 3214 "regression-compile-tmp/allimpc1-77.imp"
I = BSRF;
#line 3214 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(DPRF)) + (Q));
#line 3214 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3215  L50:      ! RECORDNAME IN RECORD--Q POINTS TO SIDECHAIN
#line 3215 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
                                                                //   3216           DUMP(2,1,DP,0,BS) %IF MODE=0;! LOAD PTR TO FIRST RECORD
#line 3216 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03ea;
#line 3216 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, DP, 0, BS);
#line 3216 "regression-compile-tmp/allimpc1-77.imp"
L_03ea:;
                                                                //   3217           PRR(X'18',1,BS) %IF MODE#0
#line 3217 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) == (0))) goto L_03eb;
#line 3217 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, BS);
#line 3217 "regression-compile-tmp/allimpc1-77.imp"
L_03eb:;
                                                                //   3218           FROM2(Q,QQQ)
#line 3218 "regression-compile-tmp/allimpc1-77.imp"
FROM2(Q, &QQQ);
                                                                //   3219           CRNAME(Z,1,K,1,QQQ); ->L99
#line 3219 "regression-compile-tmp/allimpc1-77.imp"
CRNAME(Z, 1, K, 1, QQQ);
#line 3219 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3220  L98:      P=P+1; SKIP APP; P=P-2
#line 3220 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 3220 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3220 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 3220 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (2));
                                                                //   3221  L99:      %END
#line 3221 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 3221 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CENAME at level 3
                                                                //   3222           %ROUTINE     CRNAME(%INTEGER Z,MODE,CLINK,BS,DP)
#line 3222 "regression-compile-tmp/allimpc1-77.imp"
void CRNAME( int Z, int MODE, int CLINK, int BS, int DP )
#line 3222 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3223           !%SHORTROUTINE
                                                                //   3224  %COMMENT DEALS WITH RECORD NAME CALLING CENAME TO COMPILE SUBFIELDS
                                                                //   3225           %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP
                                                                //   3226           %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH
                                                                //   3227  %COMMENT CLINK POINTS TO CELL CONTAING NAME DETAILS
                                                                //   3228           %INTEGER KK,JJ,Q,QQ
#line 3228 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3228 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 3228 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 3228 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
                                                                //   3229           FROM2(CLINK,Q)
#line 3229 "regression-compile-tmp/allimpc1-77.imp"
FROM2(CLINK, &Q);
                                                                //   3230           FROM1(Q,FNAME)
#line 3230 "regression-compile-tmp/allimpc1-77.imp"
FROM1(Q, &FNAME);
                                                                //   3231           ->L50 %IF ARR=0
#line 3231 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_03ec;
#line 3231 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 3231 "regression-compile-tmp/allimpc1-77.imp"
L_03ec:;
                                                                //   3232           I=BS; K=DP;
#line 3232 "regression-compile-tmp/allimpc1-77.imp"
I = BS;
#line 3232 "regression-compile-tmp/allimpc1-77.imp"
K = DP;
                                                                //   3233           ->L99 %IF 11<=Z<=12 %AND A(P+1)=2           ;! FETCH ARRAYHEAD
#line 3233 "regression-compile-tmp/allimpc1-77.imp"
if ((((11) > (Z))) || (((Z) > (12)))) goto L_03ed;
#line 3233 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_03ed;
#line 3233 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 3233 "regression-compile-tmp/allimpc1-77.imp"
L_03ed:;
                                                                //   3234           FROM LIST(FNAME,KK,JJ)
#line 3234 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(FNAME, &KK, &JJ);
                                                                //   3235           KK=KK>>4&15;                  ! BASE REG OF FORMAT
#line 3235 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)((((unsigned int)(KK)) >> (4)))) & (15));
                                                                //   3236           FROM1(JJ,JJ)
#line 3236 "regression-compile-tmp/allimpc1-77.imp"
FROM1(JJ, &JJ);
                                                                //   3237           %IF MODE=2 %THEN PRR(X'1A',INDEX,BS)
#line 3237 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (2))) goto L_03ee;
#line 3237 "regression-compile-tmp/allimpc1-77.imp"
PRR(26, INDEX, BS);
#line 3237 "regression-compile-tmp/allimpc1-77.imp"
L_03ee:;
                                                                //   3238           ->L3  %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED?
#line 3238 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (0))) goto L_03ef;
#line 3238 "regression-compile-tmp/allimpc1-77.imp"
if (((BS) < (4))) goto L_03f0;
#line 3238 "regression-compile-tmp/allimpc1-77.imp"
L_03ef:;
#line 3238 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
#line 3238 "regression-compile-tmp/allimpc1-77.imp"
L_03f0:;
                                                                //   3239           DUMP(2,1,DP,0,BS); MODE=1; BS=1;        ! YES-- SO SAVE IT
#line 3239 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, DP, 0, BS);
#line 3239 "regression-compile-tmp/allimpc1-77.imp"
MODE = 1;
#line 3239 "regression-compile-tmp/allimpc1-77.imp"
BS = 1;
                                                                //   3240  L3:
#line 3240 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
                                                                //   3241           QQ=BS; QQ=PARK(BS) %IF MODE=1
#line 3241 "regression-compile-tmp/allimpc1-77.imp"
QQ = BS;
#line 3241 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_03f1;
#line 3241 "regression-compile-tmp/allimpc1-77.imp"
QQ = PARK(BS);
#line 3241 "regression-compile-tmp/allimpc1-77.imp"
L_03f1:;
                                                                //   3242           CANAME(Z,QQ,DP,CLINK,KK,JJ+2)
#line 3242 "regression-compile-tmp/allimpc1-77.imp"
CANAME(Z, QQ, DP, CLINK, KK, (((int)(JJ)) + (2)));
                                                                //   3243           FROM1(Q,FNAME)
#line 3243 "regression-compile-tmp/allimpc1-77.imp"
FROM1(Q, &FNAME);
                                                                //   3244           REGISTER(QQ)=0 %IF MODE=1
#line 3244 "regression-compile-tmp/allimpc1-77.imp"
if (((MODE) != (1))) goto L_03f2;
#line 3244 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[QQ] = 0;
#line 3244 "regression-compile-tmp/allimpc1-77.imp"
L_03f2:;
                                                                //   3245           PRR(X'1A',1,LINK)
#line 3245 "regression-compile-tmp/allimpc1-77.imp"
PRR(26, 1, LINK);
                                                                //   3246           CENAME(Z,1,1,0); ->L99
#line 3246 "regression-compile-tmp/allimpc1-77.imp"
CENAME(Z, 1, 1, 0);
#line 3246 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   3247  L50:      P=P+1; ->L51 %IF A(P)=2
#line 3247 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 3247 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3247 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_03f3;
#line 3247 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 3247 "regression-compile-tmp/allimpc1-77.imp"
L_03f3:;
                                                                //   3248           FAULT(19); SKIP APP
#line 3248 "regression-compile-tmp/allimpc1-77.imp"
FAULT(19);
#line 3248 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
                                                                //   3249  L51:      P=P+1
#line 3249 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 3249 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3250           %IF INREG=0 %OR Z=14 %THEN CENAME(Z,0,BS,DP) %ELSE %C
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_03f4;
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (14))) goto L_03f5;
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
L_03f4:;
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
CENAME(Z, 0, BS, DP);
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
goto L_03f6;
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
L_03f5:;
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
CENAME(Z, 2, INREG, 0);
#line 3250 "regression-compile-tmp/allimpc1-77.imp"
L_03f6:;
                                                                //   3251           CENAME(Z,2,INREG,0)
                                                                //   3252  L99:      %END
#line 3252 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 3252 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRNAME at level 3
                                                                //   3253           %ROUTINE     CNAME(%INTEGER Z,REG)
#line 3253 "regression-compile-tmp/allimpc1-77.imp"
void CNAME( int Z, int REG )
#line 3253 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3254           %INTEGER JJ,JJJ,KK,RR,PTYPEP,LEVELP
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int RR;
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int PTYPEP;
#line 3254 "regression-compile-tmp/allimpc1-77.imp"
int LEVELP;
                                                                //   3255           %INTEGER DISPP
#line 3255 "regression-compile-tmp/allimpc1-77.imp"
int DISPP;
                                                                //   3256           %COMMENT Z=0-RTCALL, Z=1 STORE(=), Z=2 FETCH, Z=3 FETCH ADDR, Z=4 STORE(<-), Z=6 STORE PTR, Z=12 FETCH ARRAYHEAD, Z=11 STORE ARRAY HEAD
                                                                //   3257           %SWITCH S,FUNNY(10:15)
#line 3257 "regression-compile-tmp/allimpc1-77.imp"
static int sw13_S_idx;
static const void * /*SWITCH*/ sw13_S[6] = { &&sw13_S_10, &&sw13_S_11, &&sw13_S_12, &&sw13_S_13, &&sw13_S_14, &&sw13_S_15,  };
#line 3257 "regression-compile-tmp/allimpc1-77.imp"
static int sw14_FUNNY_idx;
static const void * /*SWITCH*/ sw14_FUNNY[6] = { &&sw14_FUNNY_10, &&sw14_FUNNY_11, &&sw14_FUNNY_12, &&sw14_FUNNY_13, &&sw14_FUNNY_14, &&sw14_FUNNY_15,  };
                                                                //   3258           %SWITCH SW(0:8),MOD(0:31)
#line 3258 "regression-compile-tmp/allimpc1-77.imp"
static int sw15_SW_idx;
static const void * /*SWITCH*/ sw15_SW[9] = { &&sw15_SW_0, &&sw15_SW_1, &&sw15_SW_2, &&sw15_SW_3, &&sw15_SW_4, &&sw15_SW_5, &&sw15_SW_6, &&sw15_SW_7, &&sw15_SW_8,  };
#line 3258 "regression-compile-tmp/allimpc1-77.imp"
static int sw16_MOD_idx;
static const void * /*SWITCH*/ sw16_MOD[32] = { &&sw16_MOD_0, &&sw16_MOD_1, &&sw16_MOD_2, &&sw16_MOD_3, &&sw16_MOD_4, &&sw16_MOD_5, &&sw16_MOD_6, &&sw16_MOD_7, &&sw16_MOD_8, &&sw16_MOD_9, &&sw16_MOD_10, &&sw16_MOD_11, &&sw16_MOD_12, &&sw16_MOD_13, &&sw16_MOD_14, &&sw16_MOD_15, &&sw16_MOD_16, &&sw16_MOD_17, &&sw16_MOD_18, &&sw16_MOD_19, &&sw16_MOD_20, &&sw16_MOD_21, &&sw16_MOD_22, &&sw16_MOD_23, &&sw16_MOD_24, &&sw16_MOD_25, &&sw16_MOD_26, &&sw16_MOD_27, &&sw16_MOD_28, &&sw16_MOD_29, &&sw16_MOD_30, &&sw16_MOD_31,  };
                                                                //   3259           FNAME=A(P); COPYTAG(FNAME)
#line 3259 "regression-compile-tmp/allimpc1-77.imp"
FNAME = A[((P) + ((int)(2)))];
#line 3259 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(FNAME);
                                                                //   3260                 ->L3 %UNLESS I=-1;
#line 3260 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == ((-1)))) goto L_03f7;
#line 3260 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 3260 "regression-compile-tmp/allimpc1-77.imp"
L_03f7:;
                                                                //   3261  { FAULT(16)   ;! Generating erroneous fault
                                                                //   3262                 I=LEVEL; J=0; K=FNAME
#line 3262 "regression-compile-tmp/allimpc1-77.imp"
I = LEVEL;
#line 3262 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 3262 "regression-compile-tmp/allimpc1-77.imp"
K = FNAME;
                                                                //   3263           PTYPE=7;STORE TAG(K,N)
#line 3263 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 7;
#line 3263 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(K, N);
                                                                //   3264           K=N; N=N+4; UNPACK
#line 3264 "regression-compile-tmp/allimpc1-77.imp"
K = N;
#line 3264 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
#line 3264 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3265  L3:       JJ=J; JJ=0 %IF JJ=15
#line 3265 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 3265 "regression-compile-tmp/allimpc1-77.imp"
JJ = J;
#line 3265 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) != (15))) goto L_03f8;
#line 3265 "regression-compile-tmp/allimpc1-77.imp"
JJ = 0;
#line 3265 "regression-compile-tmp/allimpc1-77.imp"
L_03f8:;
                                                                //   3266           LEVELP=I; DISPP=K
#line 3266 "regression-compile-tmp/allimpc1-77.imp"
LEVELP = I;
#line 3266 "regression-compile-tmp/allimpc1-77.imp"
DISPP = K;
                                                                //   3267           ->L502 %IF TYPE=7
#line 3267 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (7))) goto L_03f9;
#line 3267 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
#line 3267 "regression-compile-tmp/allimpc1-77.imp"
L_03f9:;
                                                                //   3268           ->L500 %IF Z=0 %AND (ROUT#1 %OR 0#TYPE#6)
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (0))) goto L_03fa;
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_03fb;
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) == (TYPE))) || (((TYPE) == (6)))) goto L_03fa;
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
L_03fb:;
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3268 "regression-compile-tmp/allimpc1-77.imp"
L_03fa:;
                                                                //   3269           ->FUNNY(Z) %IF Z>=10
#line 3269 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) < (10))) goto L_03fc;
#line 3269 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_idx = Z; if ((10 <= sw14_FUNNY_idx) && (sw14_FUNNY_idx <= 15)) goto *(sw14_FUNNY-10)[sw14_FUNNY_idx];  /* Bounds=10:15 */ else {
   /*_imp_signal(8, 2, sw14_FUNNY_idx);*/
   fprintf(stderr, "%%SWITCH index FUNNY(%d) not in range 10:15 at %s:%d\n",
           sw14_FUNNY_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 3269 "regression-compile-tmp/allimpc1-77.imp"
L_03fc:;
                                                                //   3270           ->L501 %IF ROUT=1
#line 3270 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_03fd;
#line 3270 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 3270 "regression-compile-tmp/allimpc1-77.imp"
L_03fd:;
                                                                //   3271           ->SW(TYPE)
#line 3271 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = TYPE; if ((0 <= sw15_SW_idx) && (sw15_SW_idx <= 8)) goto *sw15_SW[sw15_SW_idx]; else {
   /*_imp_signal(8, 2, sw15_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:8 at %s:%d\n",
           sw15_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3272  L500:     ->SW(3) %IF TYPE=3
#line 3272 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 3272 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_03fe;
#line 3272 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; 
#line 3272 "regression-compile-tmp/allimpc1-77.imp"
L_03fe:;
                                                                //   3273           FAULT(17) %UNLESS TYPE=7; ->L502
#line 3273 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (7))) goto L_03ff;
#line 3273 "regression-compile-tmp/allimpc1-77.imp"
FAULT(17);
#line 3273 "regression-compile-tmp/allimpc1-77.imp"
L_03ff:;
#line 3273 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
                                                                //   3274  SW(6):   ->L661 %UNLESS Z=3 %AND ARR=1
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_6:;
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (3))) goto L_0400;
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (1))) goto L_0401;
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
L_0400:;
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 3274 "regression-compile-tmp/allimpc1-77.imp"
L_0401:;
                                                                //   3275           K=K<<2; ARR=0; I=10; ->L600
#line 3275 "regression-compile-tmp/allimpc1-77.imp"
K = ((K) << (2));
#line 3275 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
#line 3275 "regression-compile-tmp/allimpc1-77.imp"
I = 10;
#line 3275 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
                                                                //   3276  SW(4):                                 !RECORD FORMAT NAME
#line 3276 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_4:;
                                                                //   3277  L661:     FAULT(20)
#line 3277 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 3277 "regression-compile-tmp/allimpc1-77.imp"
FAULT(20);
                                                                //   3278  SW(7):L502:     P=P+1;                  ! NAME NOT SET
#line 3278 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_7:;
#line 3278 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 3278 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3279           PTYPE=1; UNPACK; ->L6 %IF A(P)=2; ->L102
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 1;
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0402;
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
L_0402:;
#line 3279 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
                                                                //   3280  FUNNY(11): ->L1011 %IF TYPE=3
#line 3280 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_11:;
#line 3280 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0403;
#line 3280 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 3280 "regression-compile-tmp/allimpc1-77.imp"
L_0403:;
                                                                //   3281           FAULT(17) %UNLESS ARR=1 %AND NAM=1 %AND K>>12=0
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_0404;
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (1))) goto L_0404;
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
if ((((int)((((unsigned int)(K)) >> (12)))) == (0))) goto L_0405;
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
L_0404:;
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
FAULT(17);
#line 3281 "regression-compile-tmp/allimpc1-77.imp"
L_0405:;
                                                                //   3282           PRX(X'90',0,3,I,K); ->L91
#line 3282 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 3, I, K);
#line 3282 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3283  L1011:          PCLOD(44);->SW(3);      !STM 0,3,0(11) - LA 11,16(11)
#line 3283 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 3283 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(44);
#line 3283 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; 
                                                                //   3284  S(11):   MOVER(WSPR,-16)
#line 3284 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_11:;
#line 3284 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, (-16));
                                                                //   3285           PSS(X'D2',16,1,0,WSPR,0); ->L91
#line 3285 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 16, 1, 0, WSPR, 0);
#line 3285 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3286  FUNNY(12):     ->SW(3) %IF TYPE=3
#line 3286 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_12:;
#line 3286 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0406;
#line 3286 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; 
#line 3286 "regression-compile-tmp/allimpc1-77.imp"
L_0406:;
                                                                //   3287           ->L1202 %IF ARR=2;             ! VECTORS
#line 3287 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (2))) goto L_0407;
#line 3287 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 3287 "regression-compile-tmp/allimpc1-77.imp"
L_0407:;
                                                                //   3288           FAULT(17) %UNLESS ARR=1
#line 3288 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (1))) goto L_0408;
#line 3288 "regression-compile-tmp/allimpc1-77.imp"
FAULT(17);
#line 3288 "regression-compile-tmp/allimpc1-77.imp"
L_0408:;
                                                                //   3289  L1201:    PRX(X'98',0,3,I,K&4095); ->L91
#line 3289 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 3289 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 0, 3, I, ((K) & (4095)));
#line 3289 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3290  L1202:    FROM2(K,K); ->L1201
#line 3290 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 3290 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &K);
#line 3290 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3291  S(12):   ->L1201 %IF TYPE=3 %AND ARR=1
#line 3291 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_12:;
#line 3291 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0409;
#line 3291 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_0409;
#line 3291 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3291 "regression-compile-tmp/allimpc1-77.imp"
L_0409:;
                                                                //   3292           PRR(X'18',0,1)
#line 3292 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 0, 1);
                                                                //   3293           PRX(X'5A',0,0,I,K)
#line 3293 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, 0, 0, I, K);
                                                                //   3294           PRX(X'5A',1,0,I,K+4)
#line 3294 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, 1, 0, I, (((int)(K)) + (4)));
                                                                //   3295           PRX(X'98',2,3,I,K+8); ->L91
#line 3295 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 2, 3, I, (((int)(K)) + (8)));
#line 3295 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3296  FUNNY(13):     ! SET BASE & DISP FOR ROUTINE ADDR
#line 3296 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_13:;
                                                                //   3297           ->SW(3) %IF TYPE=3
#line 3297 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_040a;
#line 3297 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; 
#line 3297 "regression-compile-tmp/allimpc1-77.imp"
L_040a:;
                                                                //   3298           ->L1302 %IF PTYPE=10006
#line 3298 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (10006))) goto L_040b;
#line 3298 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 3298 "regression-compile-tmp/allimpc1-77.imp"
L_040b:;
                                                                //   3299           ->L1301 %IF ROUT=1 %AND NAM&1=1
#line 3299 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_040c;
#line 3299 "regression-compile-tmp/allimpc1-77.imp"
if (((((NAM) & (1))) != (1))) goto L_040c;
#line 3299 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 3299 "regression-compile-tmp/allimpc1-77.imp"
L_040c:;
                                                                //   3300           BASE=GLA; FROM1(K,DISP)
#line 3300 "regression-compile-tmp/allimpc1-77.imp"
BASE = GLA;
#line 3300 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &DISP);
                                                                //   3301           INDEX=0; DISP=RA(DISP)
#line 3301 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3301 "regression-compile-tmp/allimpc1-77.imp"
DISP = RA[DISP];
                                                                //   3302           DISP=DISP+4 %IF J=14;         ! EXTERNAL ROUTINES SKIP LINK
#line 3302 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (14))) goto L_040d;
#line 3302 "regression-compile-tmp/allimpc1-77.imp"
DISP = (((int)(DISP)) + (4));
#line 3302 "regression-compile-tmp/allimpc1-77.imp"
L_040d:;
                                                                //   3303  L1300:    ->L500 %UNLESS ROUT=1
#line 3303 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 3303 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (1))) goto L_040e;
#line 3303 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3303 "regression-compile-tmp/allimpc1-77.imp"
L_040e:;
                                                                //   3304           ->L91
#line 3304 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3305  L1301:    BASE=I; FROM1(K,DISP)
#line 3305 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 3305 "regression-compile-tmp/allimpc1-77.imp"
BASE = I;
#line 3305 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &DISP);
                                                                //   3306           INDEX=0; ->L91
#line 3306 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3306 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3307  L1302:    CSNAME(Z,REG); ->L6
#line 3307 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 3307 "regression-compile-tmp/allimpc1-77.imp"
CSNAME(Z, REG);
#line 3307 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   3308  S(13):   FROM2(K,K); ->L1300
#line 3308 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_13:;
#line 3308 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &K);
#line 3308 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
                                                                //   3309  FUNNY(15):                             ! FETCH RECORD NAME
#line 3309 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_15:;
                                                                //   3310           ->L1501 %IF PTYPE=10006
#line 3310 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (10006))) goto L_040f;
#line 3310 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
#line 3310 "regression-compile-tmp/allimpc1-77.imp"
L_040f:;
                                                                //   3311  FUNNY(14):     ! STORE INTO RECORD NAME
#line 3311 "regression-compile-tmp/allimpc1-77.imp"
sw14_FUNNY_14:;
                                                                //   3312           RR=0; %IF ARR=0 %AND INREG#0 %AND A(P+1)=2=A(P+2)%THEN RR=INREG
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
RR = 0;
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0410;
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_0410;
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0410;
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
RR = INREG;
#line 3312 "regression-compile-tmp/allimpc1-77.imp"
L_0410:;
                                                                //   3313           ->SW(3) %IF TYPE=3; ->L661
#line 3313 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0411;
#line 3313 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; 
#line 3313 "regression-compile-tmp/allimpc1-77.imp"
L_0411:;
#line 3313 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
                                                                //   3314  S(14):   FAULT(20) %UNLESS TYPE=3 %AND NAM=1
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_14:;
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0412;
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (1))) goto L_0413;
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
L_0412:;
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
FAULT(20);
#line 3314 "regression-compile-tmp/allimpc1-77.imp"
L_0413:;
                                                                //   3315           PRR(X'18',RR,REG) %IF REG#RR#0
#line 3315 "regression-compile-tmp/allimpc1-77.imp"
if ((((REG) == (RR))) || (((RR) == (0)))) goto L_0414;
#line 3315 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, RR, REG);
#line 3315 "regression-compile-tmp/allimpc1-77.imp"
L_0414:;
                                                                //   3316           DISP=0 %IF DISP<0
#line 3316 "regression-compile-tmp/allimpc1-77.imp"
if (((DISP) >= (0))) goto L_0415;
#line 3316 "regression-compile-tmp/allimpc1-77.imp"
DISP = 0;
#line 3316 "regression-compile-tmp/allimpc1-77.imp"
L_0415:;
                                                                //   3317           R13=0 %IF R13=BASE<<12!DISP
#line 3317 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (((((BASE) << (12))) | (DISP))))) goto L_0416;
#line 3317 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 3317 "regression-compile-tmp/allimpc1-77.imp"
L_0416:;
                                                                //   3318  L1401:    DUMP(Z-13,REG,DISP,INDEX,BASE)
#line 3318 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 3318 "regression-compile-tmp/allimpc1-77.imp"
DUMP((((int)(Z)) - (13)), REG, DISP, INDEX, BASE);
                                                                //   3319           P=P+1; ->L9005
#line 3319 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3319 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3320  S(15):   ->L661 %UNLESS TYPE=3
#line 3320 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_15:;
#line 3320 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (3))) goto L_0417;
#line 3320 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 3320 "regression-compile-tmp/allimpc1-77.imp"
L_0417:;
                                                                //   3321           ->L1401 %IF DISP>=0
#line 3321 "regression-compile-tmp/allimpc1-77.imp"
if (((DISP) < (0))) goto L_0418;
#line 3321 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 3321 "regression-compile-tmp/allimpc1-77.imp"
L_0418:;
                                                                //   3322           DUMP(0,REG,0,INDEX,BASE); P=P+1; ->L9005
#line 3322 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, REG, 0, INDEX, BASE);
#line 3322 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3322 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3323  L1501:    CSNAME(Z,REG)
#line 3323 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 3323 "regression-compile-tmp/allimpc1-77.imp"
CSNAME(Z, REG);
                                                                //   3324           FAULT(22) %UNLESS A(P)=2 %AND A(P+1)=2; P=P+2; ->L9005
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0419;
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (2))) goto L_041a;
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
L_0419:;
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
FAULT(22);
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
L_041a:;
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3324 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3325  SW(3):   ! RECORD
#line 3325 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_3:;
                                                                //   3326           FROM2(K,JJJ)
#line 3326 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &JJJ);
                                                                //   3327           CRNAME(Z,0,TAGS(A(P)),I,JJJ)
#line 3327 "regression-compile-tmp/allimpc1-77.imp"
CRNAME(Z, 0, TAGS[A[((P) + ((int)(2)))]], I, JJJ);
                                                                //   3328           ->S(Z) %IF Z>=10
#line 3328 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) < (10))) goto L_041b;
#line 3328 "regression-compile-tmp/allimpc1-77.imp"
sw13_S_idx = Z; if ((10 <= sw13_S_idx) && (sw13_S_idx <= 15)) goto *(sw13_S-10)[sw13_S_idx];  /* Bounds=10:15 */ else {
   /*_imp_signal(8, 2, sw13_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 10:15 at %s:%d\n",
           sw13_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 3328 "regression-compile-tmp/allimpc1-77.imp"
L_041b:;
                                                                //   3329           ->L5020 %IF TYPE=5
#line 3329 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_041c;
#line 3329 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
#line 3329 "regression-compile-tmp/allimpc1-77.imp"
L_041c:;
                                                                //   3330           ->L601 %UNLESS Z=0
#line 3330 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (0))) goto L_041d;
#line 3330 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 3330 "regression-compile-tmp/allimpc1-77.imp"
L_041d:;
                                                                //   3331           ->L500 %UNLESS ROUT=1 %AND NAM=1
#line 3331 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_041e;
#line 3331 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (1))) goto L_041f;
#line 3331 "regression-compile-tmp/allimpc1-77.imp"
L_041e:;
#line 3331 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3331 "regression-compile-tmp/allimpc1-77.imp"
L_041f:;
                                                                //   3332           LEVELP=PARK(BASE); RR=DISP
#line 3332 "regression-compile-tmp/allimpc1-77.imp"
LEVELP = PARK(BASE);
#line 3332 "regression-compile-tmp/allimpc1-77.imp"
RR = DISP;
                                                                //   3333           PTYPEP=PTYPE; FROM2(K,JJ)
#line 3333 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
#line 3333 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &JJ);
                                                                //   3334           FROM2(JJ,K); ->L22
#line 3334 "regression-compile-tmp/allimpc1-77.imp"
FROM2(JJ, &K);
#line 3334 "regression-compile-tmp/allimpc1-77.imp"
goto U_1076;
                                                                //   3335  SW(5):                                 !STRINGS
#line 3335 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_5:;
                                                                //   3336           BASE=I; INDEX=0; DISP=K
#line 3336 "regression-compile-tmp/allimpc1-77.imp"
BASE = I;
#line 3336 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3336 "regression-compile-tmp/allimpc1-77.imp"
DISP = K;
                                                                //   3337           JJJ=2; ->L5000 %UNLESS ARR=1
#line 3337 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 2;
#line 3337 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (1))) goto L_0420;
#line 3337 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 3337 "regression-compile-tmp/allimpc1-77.imp"
L_0420:;
                                                                //   3338           CANAME(Z,I,K,TAGS(FNAME),0,0)
#line 3338 "regression-compile-tmp/allimpc1-77.imp"
CANAME(Z, I, K, TAGS[FNAME], 0, 0);
                                                                //   3339  L4998:    NAM=NAM>>1;JJJ=0
#line 3339 "regression-compile-tmp/allimpc1-77.imp"
U_107a:;
#line 3339 "regression-compile-tmp/allimpc1-77.imp"
NAM = (unsigned char)((((unsigned char)(NAM)) >> (1)));
#line 3339 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 0;
                                                                //   3340           ->L5000 %UNLESS Z=3
#line 3340 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (3))) goto L_0421;
#line 3340 "regression-compile-tmp/allimpc1-77.imp"
goto U_1077;
#line 3340 "regression-compile-tmp/allimpc1-77.imp"
L_0421:;
                                                                //   3341           DUMP(0,REG,DISP,INDEX,BASE)
#line 3341 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, REG, DISP, INDEX, BASE);
                                                                //   3342           PRX (X'58',2,0,LEVELP,DISPP+8) %IF CHECKS#0
#line 3342 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) == (0))) goto L_0422;
#line 3342 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 2, 0, LEVELP, (((int)(DISPP)) + (8)));
#line 3342 "regression-compile-tmp/allimpc1-77.imp"
L_0422:;
                                                                //   3343           PACLOD(10,6,REG<<4); ->L9
#line 3343 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(10, 6, ((REG) << (4)));
#line 3343 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   3344           %COMMENT L 2,LMAX. BCTR 2,0. SLL 2,24. OR REG,2
                                                                //   3345  L5000:    ->L605 %IF 2<=Z<=3
#line 3345 "regression-compile-tmp/allimpc1-77.imp"
U_1077:;
#line 3345 "regression-compile-tmp/allimpc1-77.imp"
if ((((2) > (Z))) || (((Z) > (3)))) goto L_0423;
#line 3345 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
#line 3345 "regression-compile-tmp/allimpc1-77.imp"
L_0423:;
                                                                //   3346           PRR(X'18',4,REG) %UNLESS REG=4
#line 3346 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (4))) goto L_0424;
#line 3346 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 4, REG);
#line 3346 "regression-compile-tmp/allimpc1-77.imp"
L_0424:;
                                                                //   3347           DUMP(JJJ,1,DISP,INDEX,BASE)
#line 3347 "regression-compile-tmp/allimpc1-77.imp"
DUMP(JJJ, 1, DISP, INDEX, BASE);
                                                                //   3348           ->L5001 %IF ARR=0
#line 3348 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0425;
#line 3348 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
#line 3348 "regression-compile-tmp/allimpc1-77.imp"
L_0425:;
                                                                //   3349           PRX(X'58',2,0,LEVELP,DISPP+8) %IF Z=4 %OR CHECKS#0
#line 3349 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (4))) goto L_0426;
#line 3349 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) == (0))) goto L_0427;
#line 3349 "regression-compile-tmp/allimpc1-77.imp"
L_0426:;
#line 3349 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, 2, 0, LEVELP, (((int)(DISPP)) + (8)));
#line 3349 "regression-compile-tmp/allimpc1-77.imp"
L_0427:;
                                                                //   3350           I=2; K=3
#line 3350 "regression-compile-tmp/allimpc1-77.imp"
I = 2;
#line 3350 "regression-compile-tmp/allimpc1-77.imp"
K = 3;
                                                                //   3351  L5001:    STORE STRING(Z,4,1,I,K);->L9
#line 3351 "regression-compile-tmp/allimpc1-77.imp"
U_107d:;
#line 3351 "regression-compile-tmp/allimpc1-77.imp"
STORESTRING(Z, 4, 1, I, K);
#line 3351 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   3352  L5020:    ! STRINGS IN RE CORDS
#line 3352 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
                                                                //   3353           ->L5025 %IF ARR=1
#line 3353 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_0428;
#line 3353 "regression-compile-tmp/allimpc1-77.imp"
goto U_107e;
#line 3353 "regression-compile-tmp/allimpc1-77.imp"
L_0428:;
                                                                //   3354           ->L9 %IF 2<=Z<=3
#line 3354 "regression-compile-tmp/allimpc1-77.imp"
if ((((2) > (Z))) || (((Z) > (3)))) goto L_0429;
#line 3354 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 3354 "regression-compile-tmp/allimpc1-77.imp"
L_0429:;
                                                                //   3355           PRR(X'18',4,REG) %UNLESS REG=4; ->L5001
#line 3355 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (4))) goto L_042a;
#line 3355 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 4, REG);
#line 3355 "regression-compile-tmp/allimpc1-77.imp"
L_042a:;
#line 3355 "regression-compile-tmp/allimpc1-77.imp"
goto U_107d;
                                                                //   3356  L5025:    ! STRING ARRAYS IN RECORDS
#line 3356 "regression-compile-tmp/allimpc1-77.imp"
U_107e:;
                                                                //   3357           LEVELP=I; DISPP=K; ->L4998
#line 3357 "regression-compile-tmp/allimpc1-77.imp"
LEVELP = I;
#line 3357 "regression-compile-tmp/allimpc1-77.imp"
DISPP = K;
#line 3357 "regression-compile-tmp/allimpc1-77.imp"
goto U_107a;
                                                                //   3358  SW(8):                                 !REGISTER VARIABLE
#line 3358 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_8:;
                                                                //   3359           FAULT(29) %UNLESS 1<=Z<=2 %OR Z=4
#line 3359 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (Z))) || (((Z) <= (2)))) goto L_042c;
#line 3359 "regression-compile-tmp/allimpc1-77.imp"
L_042b:;
#line 3359 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (4))) goto L_042c;
#line 3359 "regression-compile-tmp/allimpc1-77.imp"
FAULT(29);
#line 3359 "regression-compile-tmp/allimpc1-77.imp"
L_042c:;
                                                                //   3360           ->L9 %IF K=REG
#line 3360 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != (REG))) goto L_042d;
#line 3360 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
#line 3360 "regression-compile-tmp/allimpc1-77.imp"
L_042d:;
                                                                //   3361           %IF Z=2 %THEN PRR(X'18',REG,K) %ELSE PRR(X'18',K,REG)
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (2))) goto L_042e;
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, K);
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
goto L_042f;
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
L_042e:;
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, K, REG);
#line 3361 "regression-compile-tmp/allimpc1-77.imp"
L_042f:;
                                                                //   3362           ->L9
#line 3362 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   3363  SW(0):   %UNLESS Z=3 %OR Z>10 %THEN %START
#line 3363 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_0:;
#line 3363 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (3))) goto L_0430;
#line 3363 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) > (10))) goto L_0430;
                                                                //   3364           FAULT(12); TYPE=1; PTYPE=PTYPE+1; %FINISH
#line 3364 "regression-compile-tmp/allimpc1-77.imp"
FAULT(12);
#line 3364 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
#line 3364 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = (((int)(PTYPE)) + (1));
#line 3364 "regression-compile-tmp/allimpc1-77.imp"
L_0430:;
                                                                //   3365  SW(2):                                 !REAL
#line 3365 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_2:;
                                                                //   3366  SW(1):   ->L600 %IF ARR=0;              ! TYPE 1 = %INTEGER
#line 3366 "regression-compile-tmp/allimpc1-77.imp"
sw15_SW_1:;
#line 3366 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_0431;
#line 3366 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3366 "regression-compile-tmp/allimpc1-77.imp"
L_0431:;
                                                                //   3367           CANAME(Z,I,K,TAGS(FNAME),0,0)
#line 3367 "regression-compile-tmp/allimpc1-77.imp"
CANAME(Z, I, K, TAGS[FNAME], 0, 0);
                                                                //   3368           TYPE=1 %IF TYPE=0;            ! IN CASE OF ABUSE OF ARRAYNAME
#line 3368 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (0))) goto L_0432;
#line 3368 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
#line 3368 "regression-compile-tmp/allimpc1-77.imp"
L_0432:;
                                                                //   3369           NAM=NAM>>1; ->L601
#line 3369 "regression-compile-tmp/allimpc1-77.imp"
NAM = (unsigned char)((((unsigned char)(NAM)) >> (1)));
#line 3369 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
                                                                //   3370  L501:     ->L503 %UNLESS Z#0 %AND PTYPE=10000;!     ROUTINES
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (0))) goto L_0433;
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (10000))) goto L_0434;
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
L_0433:;
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
#line 3370 "regression-compile-tmp/allimpc1-77.imp"
L_0434:;
                                                                //   3371           FAULT(23); PRINTNAME(A(P)); ->L503
#line 3371 "regression-compile-tmp/allimpc1-77.imp"
FAULT(23);
#line 3371 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(A[((P) + ((int)(2)))]);
#line 3371 "regression-compile-tmp/allimpc1-77.imp"
goto U_107f;
                                                                //   3372  L503:     PTYPEP=PTYPE
#line 3372 "regression-compile-tmp/allimpc1-77.imp"
U_107f:;
#line 3372 "regression-compile-tmp/allimpc1-77.imp"
PTYPEP = PTYPE;
                                                                //   3373           ->L20 %UNLESS PTYPE=10006
#line 3373 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (10006))) goto L_0435;
#line 3373 "regression-compile-tmp/allimpc1-77.imp"
goto U_1080;
#line 3373 "regression-compile-tmp/allimpc1-77.imp"
L_0435:;
                                                                //   3374           CSNAME(Z,REG)
#line 3374 "regression-compile-tmp/allimpc1-77.imp"
CSNAME(Z, REG);
                                                                //   3375           ->L202 %IF ROUT=1 %AND NAM>=1 %AND Z#0; ->L6; ! MAPS
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_0436;
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) < (1))) goto L_0436;
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (0))) goto L_0436;
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
goto U_1081;
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
L_0436:;
#line 3375 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
                                                                //   3376  L20:      KK=K; FROM LIST(KK,RR,K)
#line 3376 "regression-compile-tmp/allimpc1-77.imp"
U_1080:;
#line 3376 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 3376 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(KK, &RR, &K);
                                                                //   3377  L22:      ->L21 %UNLESS K=1000; FAULT(21); ->L502
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
U_1076:;
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (1000))) goto L_0437;
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
goto U_1082;
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
L_0437:;
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
FAULT(21);
#line 3377 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
                                                                //   3378  L21:      CRCALL(KK)
#line 3378 "regression-compile-tmp/allimpc1-77.imp"
U_1082:;
#line 3378 "regression-compile-tmp/allimpc1-77.imp"
CRCALL(KK);
                                                                //   3379           PTYPE=PTYPEP; UNPACK
#line 3379 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = PTYPEP;
#line 3379 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3380           ->L37 %IF NAM&1=1
#line 3380 "regression-compile-tmp/allimpc1-77.imp"
if (((((NAM) & (1))) != (1))) goto L_0438;
#line 3380 "regression-compile-tmp/allimpc1-77.imp"
goto U_1083;
#line 3380 "regression-compile-tmp/allimpc1-77.imp"
L_0438:;
                                                                //   3381           ->L36 %IF JJ=14
#line 3381 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) != (14))) goto L_0439;
#line 3381 "regression-compile-tmp/allimpc1-77.imp"
goto U_1084;
#line 3381 "regression-compile-tmp/allimpc1-77.imp"
L_0439:;
                                                                //   3382           DUMP(2,1,RA(RR),0,GLA)        ;! RT ADDR TO REG1
#line 3382 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 1, RA[RR], 0, GLA);
                                                                //   3383           PRX(X'45',LINK,0,GLA,116);    ! BAL 15,SR IN PERM
#line 3383 "regression-compile-tmp/allimpc1-77.imp"
PRX(69, LINK, 0, GLA, 116);
                                                                //   3384  L371:     MONE=1; R13=0
#line 3384 "regression-compile-tmp/allimpc1-77.imp"
U_1085:;
#line 3384 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
#line 3384 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
                                                                //   3385           P=P+1
#line 3385 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3386           ->L1 %IF PTYPE=10000 %OR PTYPE=11000;    ! ROUTINE OR RTNAME
#line 3386 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) == (10000))) goto L_043a;
#line 3386 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (11000))) goto L_043b;
#line 3386 "regression-compile-tmp/allimpc1-77.imp"
L_043a:;
#line 3386 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 3386 "regression-compile-tmp/allimpc1-77.imp"
L_043b:;
                                                                //   3387           ->L201 %IF NAM>1;              !MAPS
#line 3387 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) <= (1))) goto L_043c;
#line 3387 "regression-compile-tmp/allimpc1-77.imp"
goto U_1087;
#line 3387 "regression-compile-tmp/allimpc1-77.imp"
L_043c:;
                                                                //   3388           FAULT(29) %UNLESS Z=2;        !FN OUT OF CONTEXT
#line 3388 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) == (2))) goto L_043d;
#line 3388 "regression-compile-tmp/allimpc1-77.imp"
FAULT(29);
#line 3388 "regression-compile-tmp/allimpc1-77.imp"
L_043d:;
                                                                //   3389           ->L43 %IF TYPE=2
#line 3389 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_043e;
#line 3389 "regression-compile-tmp/allimpc1-77.imp"
goto U_1088;
#line 3389 "regression-compile-tmp/allimpc1-77.imp"
L_043e:;
                                                                //   3390  L44:      PRR(X'18',REG,1) %UNLESS REG=1; ->L1
#line 3390 "regression-compile-tmp/allimpc1-77.imp"
U_1089:;
#line 3390 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (1))) goto L_043f;
#line 3390 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, 1);
#line 3390 "regression-compile-tmp/allimpc1-77.imp"
L_043f:;
#line 3390 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3391  L43:      PRR(X'28',REG,2) %UNLESS REG=2; ->L1
#line 3391 "regression-compile-tmp/allimpc1-77.imp"
U_1088:;
#line 3391 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (2))) goto L_0440;
#line 3391 "regression-compile-tmp/allimpc1-77.imp"
PRR(40, REG, 2);
#line 3391 "regression-compile-tmp/allimpc1-77.imp"
L_0440:;
#line 3391 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3392  L36:      ! CALL OF EXTERNAL ROUTINE
#line 3392 "regression-compile-tmp/allimpc1-77.imp"
U_1084:;
                                                                //   3393                 PACLOD(55,4,RA(RR)+4);  !STM 4,14 - LM 12,14-BALR 13,14
#line 3393 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(55, 4, (((int)(RA[RR])) + (4)));
                                                                //   3394           ->L371
#line 3394 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
                                                                //   3395  L37:       ! CALL OF RT PARAM******** REGISTERS MUST BE RESET
#line 3395 "regression-compile-tmp/allimpc1-77.imp"
U_1083:;
                                                                //   3396           REGISTER(LEVELP)=0 %IF LEVELP<RBASE
#line 3396 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVELP) >= (RBASE))) goto L_0441;
#line 3396 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[LEVELP] = 0;
#line 3396 "regression-compile-tmp/allimpc1-77.imp"
L_0441:;
                                                                //   3397                 PACLOD(61,4,LEVELP<<12!RR)
#line 3397 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(61, 4, ((((LEVELP) << (12))) | (RR)));
                                                                //   3398  %COMMENT STM 4,14,?--LM 12,15 ? -- LM 5,9,20(15) -- BALR 15,14
                                                                //   3399           ->L371
#line 3399 "regression-compile-tmp/allimpc1-77.imp"
goto U_1085;
                                                                //   3400  L201:     %COMMENT - REAL MAPS AND INTEGER MAPS
#line 3400 "regression-compile-tmp/allimpc1-77.imp"
U_1087:;
                                                                //   3401           NEST=1
#line 3401 "regression-compile-tmp/allimpc1-77.imp"
NEST = 1;
                                                                //   3402  L202:
#line 3402 "regression-compile-tmp/allimpc1-77.imp"
U_1081:;
                                                                //   3403           ->L205 %IF TYPE=5;             ! STRING MAPS
#line 3403 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0442;
#line 3403 "regression-compile-tmp/allimpc1-77.imp"
goto U_108a;
#line 3403 "regression-compile-tmp/allimpc1-77.imp"
L_0442:;
                                                                //   3404           ->L203 %IF Z=3
#line 3404 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (3))) goto L_0443;
#line 3404 "regression-compile-tmp/allimpc1-77.imp"
goto U_108b;
#line 3404 "regression-compile-tmp/allimpc1-77.imp"
L_0443:;
                                                                //   3405           JJJ=Z; JJJ=1 %IF Z=4
#line 3405 "regression-compile-tmp/allimpc1-77.imp"
JJJ = Z;
#line 3405 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (4))) goto L_0444;
#line 3405 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
#line 3405 "regression-compile-tmp/allimpc1-77.imp"
L_0444:;
                                                                //   3406           JJJ=TYPE<<3+PREC<<1-8+JJJ
#line 3406 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ));
                                                                //   3407           DUMP(JJJ,REG,0,0,NEST)
#line 3407 "regression-compile-tmp/allimpc1-77.imp"
DUMP(JJJ, REG, 0, 0, NEST);
                                                                //   3408           CHECK CAPACITY(REG,0,0,NEST) %IF Z=1 %AND CHECKS=1
#line 3408 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (1))) goto L_0445;
#line 3408 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) != (1))) goto L_0445;
#line 3408 "regression-compile-tmp/allimpc1-77.imp"
CHECKCAPACITY(REG, 0, 0, NEST);
#line 3408 "regression-compile-tmp/allimpc1-77.imp"
L_0445:;
                                                                //   3409           TEST ASS(REG) %IF Z=2 %AND UNASS=1
#line 3409 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (2))) goto L_0446;
#line 3409 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0446;
#line 3409 "regression-compile-tmp/allimpc1-77.imp"
TESTASS(REG);
#line 3409 "regression-compile-tmp/allimpc1-77.imp"
L_0446:;
                                                                //   3410           ->L1
#line 3410 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3411  L203:     PRR(X'18',REG,NEST) %UNLESS REG=NEST; ->L1
#line 3411 "regression-compile-tmp/allimpc1-77.imp"
U_108b:;
#line 3411 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (NEST))) goto L_0447;
#line 3411 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, NEST);
#line 3411 "regression-compile-tmp/allimpc1-77.imp"
L_0447:;
#line 3411 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3412  L205:     %COMMENT STRING MAPS
#line 3412 "regression-compile-tmp/allimpc1-77.imp"
U_108a:;
                                                                //   3413           %IF NEST#1 %THEN PRR(X'18',1,NEST)
#line 3413 "regression-compile-tmp/allimpc1-77.imp"
if (((NEST) == (1))) goto L_0448;
#line 3413 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, NEST);
#line 3413 "regression-compile-tmp/allimpc1-77.imp"
L_0448:;
                                                                //   3414           ->L206 %IF 2<=Z<=3
#line 3414 "regression-compile-tmp/allimpc1-77.imp"
if ((((2) > (Z))) || (((Z) > (3)))) goto L_0449;
#line 3414 "regression-compile-tmp/allimpc1-77.imp"
goto U_108c;
#line 3414 "regression-compile-tmp/allimpc1-77.imp"
L_0449:;
                                                                //   3415           STORE STRING(Z,REG,1,0,255); ->L1
#line 3415 "regression-compile-tmp/allimpc1-77.imp"
STORESTRING(Z, REG, 1, 0, 255);
#line 3415 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3416  L206:           PCLOD(69);->L44;         ! LA 0,255--SLL 0,24 OR 1,0
#line 3416 "regression-compile-tmp/allimpc1-77.imp"
U_108c:;
#line 3416 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(69);
#line 3416 "regression-compile-tmp/allimpc1-77.imp"
goto U_1089;
                                                                //   3417                 !ARR=0
                                                                //   3418  L600:     BASE=I; INDEX=0; DISP=K
#line 3418 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 3418 "regression-compile-tmp/allimpc1-77.imp"
BASE = I;
#line 3418 "regression-compile-tmp/allimpc1-77.imp"
INDEX = 0;
#line 3418 "regression-compile-tmp/allimpc1-77.imp"
DISP = K;
                                                                //   3419  L601:     ->L602 %IF Z=6
#line 3419 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 3419 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (6))) goto L_044a;
#line 3419 "regression-compile-tmp/allimpc1-77.imp"
goto U_108d;
#line 3419 "regression-compile-tmp/allimpc1-77.imp"
L_044a:;
                                                                //   3420           ->MOD(NAM<<4!PREC<<2!Z&3)
#line 3420 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_idx = ((((((NAM) << (4))) | (((PREC) << (2))))) | (((Z) & (3)))); if ((0 <= sw16_MOD_idx) && (sw16_MOD_idx <= 31)) goto *sw16_MOD[sw16_MOD_idx]; else {
   /*_imp_signal(8, 2, sw16_MOD_idx);*/
   fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:31 at %s:%d\n",
           sw16_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3421  L602:     FAULT(17) %IF NAM=0
#line 3421 "regression-compile-tmp/allimpc1-77.imp"
U_108d:;
#line 3421 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) != (0))) goto L_044b;
#line 3421 "regression-compile-tmp/allimpc1-77.imp"
FAULT(17);
#line 3421 "regression-compile-tmp/allimpc1-77.imp"
L_044b:;
                                                                //   3422           R13=0 %IF R13=BASE<<12!DISP
#line 3422 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (((((BASE) << (12))) | (DISP))))) goto L_044c;
#line 3422 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 3422 "regression-compile-tmp/allimpc1-77.imp"
L_044c:;
                                                                //   3423           JJJ=1; ->L605
#line 3423 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
#line 3423 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   3424  MOD(1):  ! INTEGER STORE (=)
#line 3424 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_1:;
                                                                //   3425  MOD(0):  ! INTEGER STORE(<-)
#line 3425 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_0:;
                                                                //   3426  MOD(5):  ! BYTE STORE(=)
#line 3426 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_5:;
                                                                //   3427  MOD(4):  ! BYTE STORE(<-)
#line 3427 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_4:;
                                                                //   3428  MOD(9):  ! SHORT STORE(=)
#line 3428 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_9:;
                                                                //   3429  MOD(8):  ! SHORT STORE(<-)
#line 3429 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_8:;
                                                                //   3430  MOD(12):                               !LONG REAL STORE (<-)
#line 3430 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_12:;
                                                                //   3431  MOD(13):                               !LONG REAL STORE (=)
#line 3431 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_13:;
                                                                //   3432  MOD(2):                                !INTEGER OR REAL FETCH
#line 3432 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_2:;
                                                                //   3433  MOD(14):                               !LONGREAL FETCH
#line 3433 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_14:;
                                                                //   3434           JJJ=Z; JJJ=1 %IF Z=4
#line 3434 "regression-compile-tmp/allimpc1-77.imp"
JJJ = Z;
#line 3434 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (4))) goto L_044d;
#line 3434 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
#line 3434 "regression-compile-tmp/allimpc1-77.imp"
L_044d:;
                                                                //   3435           JJJ=TYPE<<3+PREC<<1-8+JJJ
#line 3435 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ));
                                                                //   3436  L605:     DUMP(JJJ,REG,DISP,INDEX,BASE)
#line 3436 "regression-compile-tmp/allimpc1-77.imp"
U_107c:;
#line 3436 "regression-compile-tmp/allimpc1-77.imp"
DUMP(JJJ, REG, DISP, INDEX, BASE);
                                                                //   3437           CHECK CAPACITY(REG,DISP,INDEX,BASE) %IF Z=1 %AND CHECKS=1
#line 3437 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (1))) goto L_044e;
#line 3437 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) != (1))) goto L_044e;
#line 3437 "regression-compile-tmp/allimpc1-77.imp"
CHECKCAPACITY(REG, DISP, INDEX, BASE);
#line 3437 "regression-compile-tmp/allimpc1-77.imp"
L_044e:;
                                                                //   3438           TEST ASS(REG) %IF Z=2 %AND UNASS=1
#line 3438 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (2))) goto L_044f;
#line 3438 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_044f;
#line 3438 "regression-compile-tmp/allimpc1-77.imp"
TESTASS(REG);
#line 3438 "regression-compile-tmp/allimpc1-77.imp"
L_044f:;
                                                                //   3439           ->L9
#line 3439 "regression-compile-tmp/allimpc1-77.imp"
goto U_107b;
                                                                //   3440  MOD(31):                               !LONG REAL NAME FETCH ADDR
#line 3440 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_31:;
                                                                //   3441  MOD(19):       ! INTEGER NAME FETCH ADDR
#line 3441 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_19:;
                                                                //   3442  MOD(23):       ! BYTE    NAME FETCH ADDR
#line 3442 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_23:;
                                                                //   3443  MOD(27):       ! SHORT   NAME FETCH ADDR
#line 3443 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_27:;
                                                                //   3444           JJJ=2;->L605
#line 3444 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 2;
#line 3444 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   3445  MOD(15):                               !LONG REAL FETCH ADDR
#line 3445 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_15:;
                                                                //   3446  MOD(3):  ! INTEGER FETCH ADDR
#line 3446 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_3:;
                                                                //   3447  MOD(7):  ! BYTE    FETCH ADDR
#line 3447 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_7:;
                                                                //   3448  MOD(11): ! SHORT   FETCH ADDR
#line 3448 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_11:;
                                                                //   3449           JJJ=0;->L605
#line 3449 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 0;
#line 3449 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   3450  MOD(6):  ! BYTE  FETCH
#line 3450 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_6:;
                                                                //   3451  MOD(10): ! SHORT FETCH
#line 3451 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_10:;
                                                                //   3452           JJJ=PREC<<1+2;->L605
#line 3452 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)(((PREC) << (1)))) + (2));
#line 3452 "regression-compile-tmp/allimpc1-77.imp"
goto U_107c;
                                                                //   3453  MOD(16):       ! INTEGER NAME STORE (<-)
#line 3453 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_16:;
                                                                //   3454  MOD(20):       ! BYTE    NAME STORE (<-)
#line 3454 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_20:;
                                                                //   3455  MOD(24):       ! SHORT   NAME STORE (<-)
#line 3455 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_24:;
                                                                //   3456  MOD(17):       ! INTEGER NAME STORE (=)
#line 3456 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_17:;
                                                                //   3457  MOD(21):       ! BYTE    NAME STORE (=)
#line 3457 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_21:;
                                                                //   3458  MOD(25):       ! SHORT   NAME STORE (=)
#line 3458 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_25:;
                                                                //   3459  MOD(28):                               !LONG REAL NAME STORE (<-)
#line 3459 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_28:;
                                                                //   3460  MOD(29):                               !LONG REAL NAME STORE (=)
#line 3460 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_29:;
                                                                //   3461  MOD(18):       ! INTEGER NAME FETCH
#line 3461 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_18:;
                                                                //   3462  MOD(22):       ! BYTE    NAME FETCH
#line 3462 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_22:;
                                                                //   3463  MOD(26):       ! SHORT   NAME FETCH
#line 3463 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_26:;
                                                                //   3464  MOD(30):                               !LONG REAL NAME FETCH
#line 3464 "regression-compile-tmp/allimpc1-77.imp"
sw16_MOD_30:;
                                                                //   3465           RP13=R13; R13=BASE<<12!DISP
#line 3465 "regression-compile-tmp/allimpc1-77.imp"
RP13 = R13;
#line 3465 "regression-compile-tmp/allimpc1-77.imp"
R13 = ((((BASE) << (12))) | (DISP));
                                                                //   3466           PRX(X'58',LINK,INDEX,BASE,DISP) %UNLESS R13=RP13 %AND INDEX=0
#line 3466 "regression-compile-tmp/allimpc1-77.imp"
if (((R13) != (RP13))) goto L_0450;
#line 3466 "regression-compile-tmp/allimpc1-77.imp"
if (((INDEX) == (0))) goto L_0451;
#line 3466 "regression-compile-tmp/allimpc1-77.imp"
L_0450:;
#line 3466 "regression-compile-tmp/allimpc1-77.imp"
PRX(88, LINK, INDEX, BASE, DISP);
#line 3466 "regression-compile-tmp/allimpc1-77.imp"
L_0451:;
                                                                //   3467           JJJ=Z; JJJ=1 %IF Z=4
#line 3467 "regression-compile-tmp/allimpc1-77.imp"
JJJ = Z;
#line 3467 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (4))) goto L_0452;
#line 3467 "regression-compile-tmp/allimpc1-77.imp"
JJJ = 1;
#line 3467 "regression-compile-tmp/allimpc1-77.imp"
L_0452:;
                                                                //   3468           JJJ=TYPE<<3+PREC<<1-8+JJJ
#line 3468 "regression-compile-tmp/allimpc1-77.imp"
JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ));
                                                                //   3469           DUMP(JJJ,REG,0,0,LINK)
#line 3469 "regression-compile-tmp/allimpc1-77.imp"
DUMP(JJJ, REG, 0, 0, LINK);
                                                                //   3470           CHECK CAPACITY(REG,0,0,LINK) %IF Z=1 %AND CHECKS=1
#line 3470 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (1))) goto L_0453;
#line 3470 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) != (1))) goto L_0453;
#line 3470 "regression-compile-tmp/allimpc1-77.imp"
CHECKCAPACITY(REG, 0, 0, LINK);
#line 3470 "regression-compile-tmp/allimpc1-77.imp"
L_0453:;
                                                                //   3471           TEST ASS (REG) %IF Z=2 %AND UNASS=1
#line 3471 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (2))) goto L_0454;
#line 3471 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (1))) goto L_0454;
#line 3471 "regression-compile-tmp/allimpc1-77.imp"
TESTASS(REG);
#line 3471 "regression-compile-tmp/allimpc1-77.imp"
L_0454:;
                                                                //   3472  L9:       ->L1 %UNLESS ARR=0
#line 3472 "regression-compile-tmp/allimpc1-77.imp"
U_107b:;
#line 3472 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (0))) goto L_0455;
#line 3472 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
#line 3472 "regression-compile-tmp/allimpc1-77.imp"
L_0455:;
                                                                //   3473  L91:      P=P+1
#line 3473 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 3473 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3474                 ->L6 %IF A(P)=2
#line 3474 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0456;
#line 3474 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 3474 "regression-compile-tmp/allimpc1-77.imp"
L_0456:;
                                                                //   3475                 FAULT(19)
#line 3475 "regression-compile-tmp/allimpc1-77.imp"
FAULT(19);
                                                                //   3476  L102:           SKIP APP; ->L1
#line 3476 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3476 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 3476 "regression-compile-tmp/allimpc1-77.imp"
goto U_1086;
                                                                //   3477  L6:            P=P+1
#line 3477 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 3477 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3478  L1:       P=P+1; ->L9005 %IF A(P-1)=2
#line 3478 "regression-compile-tmp/allimpc1-77.imp"
U_1086:;
#line 3478 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3478 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0457;
#line 3478 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
#line 3478 "regression-compile-tmp/allimpc1-77.imp"
L_0457:;
                                                                //   3479           FAULT(69); ->L91
#line 3479 "regression-compile-tmp/allimpc1-77.imp"
FAULT(69);
#line 3479 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3480  L9005:    %END
#line 3480 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 3480 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw14_FUNNY_10:;
/*_imp_signal(6,3,sw14_FUNNY_idx,"SWITCH LABEL NOT SET - sw14_FUNNY");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw14_FUNNY(%d): at line %s:%d", sw14_FUNNY_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
sw13_S_10:;
/*_imp_signal(6,3,sw13_S_idx,"SWITCH LABEL NOT SET - sw13_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw13_S(%d): at line %s:%d", sw13_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CNAME at level 3
                                                                //   3481           %ROUTINE CRCALL (%INTEGER CLINK)
#line 3481 "regression-compile-tmp/allimpc1-77.imp"
void CRCALL( int CLINK )
#line 3481 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3482           !%SHORTROUTINE
                                                                //   3483           %SWITCH FPD(0:3)
#line 3483 "regression-compile-tmp/allimpc1-77.imp"
static int sw17_FPD_idx;
static const void * /*SWITCH*/ sw17_FPD[4] = { &&sw17_FPD_0, &&sw17_FPD_1, &&sw17_FPD_2, &&sw17_FPD_3,  };
                                                                //   3484           %INTEGER KK,II,III,Q,QQ,QQQ,PP,RF
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int II;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int III;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int QQ;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int QQQ;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 3484 "regression-compile-tmp/allimpc1-77.imp"
int RF;
                                                                //   3485           %ROUTINESPEC MOVEBACK
#line 3485 "regression-compile-tmp/allimpc1-77.imp"
auto void MOVEBACK( void );
                                                                //   3486           %INTEGER MOVED,TOMOVE,TYPEP
#line 3486 "regression-compile-tmp/allimpc1-77.imp"
int MOVED;
#line 3486 "regression-compile-tmp/allimpc1-77.imp"
int TOMOVE;
#line 3486 "regression-compile-tmp/allimpc1-77.imp"
int TYPEP;
                                                                //   3487           %SHORTINTEGER LIST; LIST=0
#line 3487 "regression-compile-tmp/allimpc1-77.imp"
short LIST;
#line 3487 "regression-compile-tmp/allimpc1-77.imp"
LIST = 0;
                                                                //   3488           FFLAG=0; KK=COUNT APS
#line 3488 "regression-compile-tmp/allimpc1-77.imp"
FFLAG = 0;
#line 3488 "regression-compile-tmp/allimpc1-77.imp"
KK = COUNTAPS();
                                                                //   3489           P=P+1; ->L2 %IF K=KK
#line 3489 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3489 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != (KK))) goto L_0458;
#line 3489 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3489 "regression-compile-tmp/allimpc1-77.imp"
L_0458:;
                                                                //   3490           FAULT(19); PRINTNAME(FNAME)
#line 3490 "regression-compile-tmp/allimpc1-77.imp"
FAULT(19);
#line 3490 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(FNAME);
                                                                //   3491           SKIP APP; P=P-1; ->L99
#line 3491 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 3491 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (1));
#line 3491 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   3492  L2:       ->L99 %IF K=0;                 ! NO PARAMETERS
#line 3492 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 3492 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != (0))) goto L_0459;
#line 3492 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 3492 "regression-compile-tmp/allimpc1-77.imp"
L_0459:;
                                                                //   3493           Q=0; QQ=64; RF=1-FFLAG;       ! RF=1 NO NEED TO MOVE WSPR
#line 3493 "regression-compile-tmp/allimpc1-77.imp"
Q = 0;
#line 3493 "regression-compile-tmp/allimpc1-77.imp"
QQ = 64;
#line 3493 "regression-compile-tmp/allimpc1-77.imp"
RF = ((1) - ((int)(FFLAG)));
                                                                //   3494           MOVED=0; RF=1 %IF KK=1
#line 3494 "regression-compile-tmp/allimpc1-77.imp"
MOVED = 0;
#line 3494 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) != (1))) goto L_045a;
#line 3494 "regression-compile-tmp/allimpc1-77.imp"
RF = 1;
#line 3494 "regression-compile-tmp/allimpc1-77.imp"
L_045a:;
                                                                //   3495  L7:       MLINK(CLINK)
#line 3495 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 3495 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&CLINK);
                                                                //   3496           FROM1(CLINK,PTYPE)
#line 3496 "regression-compile-tmp/allimpc1-77.imp"
FROM1(CLINK, &PTYPE);
                                                                //   3497           P=P+1; UNPACK
#line 3497 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3497 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3498           II=TYPE; III=PREC; QQQ=P
#line 3498 "regression-compile-tmp/allimpc1-77.imp"
II = TYPE;
#line 3498 "regression-compile-tmp/allimpc1-77.imp"
III = PREC;
#line 3498 "regression-compile-tmp/allimpc1-77.imp"
QQQ = P;
                                                                //   3499           PP=(NAM<<1!ARR)&3
#line 3499 "regression-compile-tmp/allimpc1-77.imp"
PP = ((((((NAM) << (1))) | (ARR))) & (3));
                                                                //   3500           ->L10 %UNLESS(PP=0 %AND ROUT=0) %OR(A(P)=4 %AND A(P+1)=1)
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
if (((PP) != (0))) goto L_045b;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (0))) goto L_045c;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
L_045b:;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (4))) goto L_045d;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_045c;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
L_045d:;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3500 "regression-compile-tmp/allimpc1-77.imp"
L_045c:;
                                                                //   3501           ->L12 %IF ROUT=1; ->FPD(PP)
#line 3501 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_045e;
#line 3501 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 3501 "regression-compile-tmp/allimpc1-77.imp"
L_045e:;
#line 3501 "regression-compile-tmp/allimpc1-77.imp"
sw17_FPD_idx = PP; if ((0 <= sw17_FPD_idx) && (sw17_FPD_idx <= 3)) goto *sw17_FPD[sw17_FPD_idx]; else {
   /*_imp_signal(8, 2, sw17_FPD_idx);*/
   fprintf(stderr, "%%SWITCH index FPD(%d) not in range 0:3 at %s:%d\n",
           sw17_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3502  L10:      P=QQQ; SKIP EXP;
#line 3502 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 3502 "regression-compile-tmp/allimpc1-77.imp"
P = QQQ;
#line 3502 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   3503  L11:      FAULT(22); ->L53
#line 3503 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3503 "regression-compile-tmp/allimpc1-77.imp"
FAULT(22);
#line 3503 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   3504           %COMMENT ROUTINE TYPE PARAMETERS
                                                                //   3505  L12:      II=PTYPE; P=P+2; CNAME(13,0)
#line 3505 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 3505 "regression-compile-tmp/allimpc1-77.imp"
II = PTYPE;
#line 3505 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3505 "regression-compile-tmp/allimpc1-77.imp"
CNAME(13, 0);
                                                                //   3506           ->L10 %IF 1000#|PTYPE-II|#0
#line 3506 "regression-compile-tmp/allimpc1-77.imp"
if ((((1000) == (_imp_IMOD((((int)(PTYPE)) - (II)))))) || (((_imp_IMOD((((int)(PTYPE)) - (II)))) == (0)))) goto L_045f;
#line 3506 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3506 "regression-compile-tmp/allimpc1-77.imp"
L_045f:;
                                                                //   3507           ->L10 %IF A(P)=1; P=P+1
#line 3507 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0460;
#line 3507 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3507 "regression-compile-tmp/allimpc1-77.imp"
L_0460:;
#line 3507 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3508           ->L13 %IF J=14;      ! EXTERNAL
#line 3508 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (14))) goto L_0461;
#line 3508 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 3508 "regression-compile-tmp/allimpc1-77.imp"
L_0461:;
                                                                //   3509           ->L15 %IF NAM&1#0;             ! RT NAME OR RTTYPE
#line 3509 "regression-compile-tmp/allimpc1-77.imp"
if (((((NAM) & (1))) == (0))) goto L_0462;
#line 3509 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 3509 "regression-compile-tmp/allimpc1-77.imp"
L_0462:;
                                                                //   3510           DUMP(2,2,DISP,INDEX,BASE);      ! PICK UP RT ADDR
#line 3510 "regression-compile-tmp/allimpc1-77.imp"
DUMP(2, 2, DISP, INDEX, BASE);
                                                                //   3511           PRX(X'5A',2,0,GLA,28);        ! RELOCATE
#line 3511 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, 2, 0, GLA, 28);
                                                                //   3512           PCONST(X'180C181D');          ! LR 0,12 LR1,13 PERM AND GLA
#line 3512 "regression-compile-tmp/allimpc1-77.imp"
PCONST(403445789);
                                                                //   3513           PUSH(LIST,QQ+12,0); ->L69
#line 3513 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LIST, (((int)(QQ)) + (12)), 0);
#line 3513 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3514  L13:      PRX(X'98',0,2,BASE,DISP);     ! CODE,GLA,EP
#line 3514 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 3514 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 0, 2, BASE, DISP);
                                                                //   3515           PRR(X'18',3,9); ->L69;         ! ANYTHING D W ALIGNED AS ENVRMNT
#line 3515 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 3, 9);
#line 3515 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3516  L15:      PRX(X'98',0,3,BASE,DISP); ->L69
#line 3516 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 3516 "regression-compile-tmp/allimpc1-77.imp"
PRX(152, 0, 3, BASE, DISP);
#line 3516 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
                                                                //   3517  FPD(0):  ->L41 %IF PREC=3
#line 3517 "regression-compile-tmp/allimpc1-77.imp"
sw17_FPD_0:;
#line 3517 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_0463;
#line 3517 "regression-compile-tmp/allimpc1-77.imp"
goto U_106e;
#line 3517 "regression-compile-tmp/allimpc1-77.imp"
L_0463:;
                                                                //   3518           ->L45 %IF TYPE=5
#line 3518 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_0464;
#line 3518 "regression-compile-tmp/allimpc1-77.imp"
goto U_106f;
#line 3518 "regression-compile-tmp/allimpc1-77.imp"
L_0464:;
                                                                //   3519           ->L39 %UNLESS UNASS=0 %AND TYPE=1
#line 3519 "regression-compile-tmp/allimpc1-77.imp"
if (((UNASS) != (0))) goto L_0465;
#line 3519 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (1))) goto L_0466;
#line 3519 "regression-compile-tmp/allimpc1-77.imp"
L_0465:;
#line 3519 "regression-compile-tmp/allimpc1-77.imp"
goto U_1070;
#line 3519 "regression-compile-tmp/allimpc1-77.imp"
L_0466:;
                                                                //   3520           PP=P; TYPEP=PREC
#line 3520 "regression-compile-tmp/allimpc1-77.imp"
PP = P;
#line 3520 "regression-compile-tmp/allimpc1-77.imp"
TYPEP = PREC;
                                                                //   3521           II=TSEXP(III)
#line 3521 "regression-compile-tmp/allimpc1-77.imp"
II = TSEXP(&III);
                                                                //   3522           ->L42 %IF II=10 %AND TYPEP=0
#line 3522 "regression-compile-tmp/allimpc1-77.imp"
if (((II) != (10))) goto L_0467;
#line 3522 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (0))) goto L_0467;
#line 3522 "regression-compile-tmp/allimpc1-77.imp"
goto U_1071;
#line 3522 "regression-compile-tmp/allimpc1-77.imp"
L_0467:;
                                                                //   3523           ->L43 %IF II=1 %AND TYPEP=1
#line 3523 "regression-compile-tmp/allimpc1-77.imp"
if (((II) != (1))) goto L_0468;
#line 3523 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPEP) != (1))) goto L_0468;
#line 3523 "regression-compile-tmp/allimpc1-77.imp"
goto U_1072;
#line 3523 "regression-compile-tmp/allimpc1-77.imp"
L_0468:;
                                                                //   3524           P=PP; TYPE=1
#line 3524 "regression-compile-tmp/allimpc1-77.imp"
P = PP;
#line 3524 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
                                                                //   3525  L39:      CSEXP(0,TYPE)
#line 3525 "regression-compile-tmp/allimpc1-77.imp"
U_1070:;
#line 3525 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, TYPE);
                                                                //   3526           MOVE BACK
#line 3526 "regression-compile-tmp/allimpc1-77.imp"
MOVEBACK();
                                                                //   3527           DUMP(8*TYPE-7,NEST,QQ-MOVED,0,WSPR)
#line 3527 "regression-compile-tmp/allimpc1-77.imp"
DUMP((((int)(((8) * ((int)(TYPE))))) - (7)), NEST, (((int)(QQ)) - (MOVED)), 0, WSPR);
                                                                //   3528           CHECK CAPACITY(NEST,QQ-MOVED,0,WSPR) %IF CHECKS=1
#line 3528 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) != (1))) goto L_0469;
#line 3528 "regression-compile-tmp/allimpc1-77.imp"
CHECKCAPACITY(NEST, (((int)(QQ)) - (MOVED)), 0, WSPR);
#line 3528 "regression-compile-tmp/allimpc1-77.imp"
L_0469:;
                                                                //   3529           TOMOVE=4;->L50
#line 3529 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = 4;
#line 3529 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3530  L42:      MOVEBACK
#line 3530 "regression-compile-tmp/allimpc1-77.imp"
U_1071:;
#line 3530 "regression-compile-tmp/allimpc1-77.imp"
MOVEBACK();
                                                                //   3531           PSS(X'D2',4,WSPR,QQ-MOVED,I,K)
#line 3531 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, WSPR, (((int)(QQ)) - (MOVED)), I, K);
                                                                //   3532           TOMOVE=4; ->L50
#line 3532 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = 4;
#line 3532 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3533  L43:      MOVEBACK
#line 3533 "regression-compile-tmp/allimpc1-77.imp"
U_1072:;
#line 3533 "regression-compile-tmp/allimpc1-77.imp"
MOVEBACK();
                                                                //   3534           PSI(X'92',III,WSPR,QQ-MOVED+3)
#line 3534 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, III, WSPR, (((int)((((int)(QQ)) - (MOVED)))) + (3)));
                                                                //   3535           TOMOVE=4; ->L50
#line 3535 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = 4;
#line 3535 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3536  L41:      II=0; II=4 %UNLESS QQ&7=0;    !LONG REAL
#line 3536 "regression-compile-tmp/allimpc1-77.imp"
U_106e:;
#line 3536 "regression-compile-tmp/allimpc1-77.imp"
II = 0;
#line 3536 "regression-compile-tmp/allimpc1-77.imp"
if (((((QQ) & (7))) == (0))) goto L_046a;
#line 3536 "regression-compile-tmp/allimpc1-77.imp"
II = 4;
#line 3536 "regression-compile-tmp/allimpc1-77.imp"
L_046a:;
                                                                //   3537           CSEXP(0,3)
#line 3537 "regression-compile-tmp/allimpc1-77.imp"
CSEXP(0, 3);
                                                                //   3538           DUMP(15,NEST,QQ-MOVED+II,0,WSPR)
#line 3538 "regression-compile-tmp/allimpc1-77.imp"
DUMP(15, NEST, (((int)((((int)(QQ)) - (MOVED)))) + (II)), 0, WSPR);
                                                                //   3539           TOMOVE=8+II;->L50
#line 3539 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = (((int)(8)) + (II));
#line 3539 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3540  L45:      CSTREXP(4); FROM2(CLINK,III)
#line 3540 "regression-compile-tmp/allimpc1-77.imp"
U_106f:;
#line 3540 "regression-compile-tmp/allimpc1-77.imp"
CSTREXP(4);
#line 3540 "regression-compile-tmp/allimpc1-77.imp"
FROM2(CLINK, &III);
                                                                //   3541           PRX(X'41',1,0,WSPR,QQ-MOVED+4)
#line 3541 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, 1, 0, WSPR, (((int)((((int)(QQ)) - (MOVED)))) + (4)));
                                                                //   3542           STORE STRING(1,4,1,0,III-1)
#line 3542 "regression-compile-tmp/allimpc1-77.imp"
STORESTRING(1, 4, 1, 0, (((int)(III)) - (1)));
                                                                //   3543           TOMOVE =(III+7)&(-4); ->L50
#line 3543 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = (((((int)(III)) + (7))) & ((-4)));
#line 3543 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3544  FPD(2):                                ! NAME TYPES INCLUDES RECORDNAME
#line 3544 "regression-compile-tmp/allimpc1-77.imp"
sw17_FPD_2:;
                                                                //   3545           P=P+2
#line 3545 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   3546           %IF TYPE=3 %THEN CNAME(15,1) %ELSE CNAME(3,1)
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_046b;
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
CNAME(15, 1);
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
goto L_046c;
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
L_046b:;
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
CNAME(3, 1);
#line 3546 "regression-compile-tmp/allimpc1-77.imp"
L_046c:;
                                                                //   3547           ->L10  %IF A(P)=1; P=P+1;      ! CHECK NO RESTOF EXPRN
#line 3547 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_046d;
#line 3547 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3547 "regression-compile-tmp/allimpc1-77.imp"
L_046d:;
#line 3547 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3548           ->L11 %UNLESS (II=TYPE %AND III=PREC) %OR II=0
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
if (((II) != (TYPE))) goto L_046e;
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
if (((III) == (PREC))) goto L_046f;
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
L_046e:;
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
if (((II) == (0))) goto L_046f;
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 3548 "regression-compile-tmp/allimpc1-77.imp"
L_046f:;
                                                                //   3549           MOVE BACK
#line 3549 "regression-compile-tmp/allimpc1-77.imp"
MOVEBACK();
                                                                //   3550           DUMP(1,1,QQ-MOVED,0,WSPR)
#line 3550 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, 1, (((int)(QQ)) - (MOVED)), 0, WSPR);
                                                                //   3551           TOMOVE=4;->L50 %UNLESS II=0
#line 3551 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = 4;
#line 3551 "regression-compile-tmp/allimpc1-77.imp"
if (((II) == (0))) goto L_0470;
#line 3551 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
#line 3551 "regression-compile-tmp/allimpc1-77.imp"
L_0470:;
                                                                //   3552           FAULT(12) %UNLESS 2>=TYPE
#line 3552 "regression-compile-tmp/allimpc1-77.imp"
if (((2) >= (TYPE))) goto L_0471;
#line 3552 "regression-compile-tmp/allimpc1-77.imp"
FAULT(12);
#line 3552 "regression-compile-tmp/allimpc1-77.imp"
L_0471:;
                                                                //   3553           PSI(X'92',PREC<<3!TYPE,WSPR,QQ-MOVED); ->L50;!FLAG FOR %NAME
#line 3553 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, ((((PREC) << (3))) | (TYPE)), WSPR, (((int)(QQ)) - (MOVED)));
#line 3553 "regression-compile-tmp/allimpc1-77.imp"
goto U_1073;
                                                                //   3554  FPD(1):FPD(3):                         ! ARRAYNAME (+ARRAY VALUE)
#line 3554 "regression-compile-tmp/allimpc1-77.imp"
sw17_FPD_1:;
#line 3554 "regression-compile-tmp/allimpc1-77.imp"
sw17_FPD_3:;
                                                                //   3555           P=P+2; CNAME(12,0); ->L10 %IF A(P)=1;     ! REST OF EXPRN
#line 3555 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3555 "regression-compile-tmp/allimpc1-77.imp"
CNAME(12, 0);
#line 3555 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0472;
#line 3555 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3555 "regression-compile-tmp/allimpc1-77.imp"
L_0472:;
                                                                //   3556           P=P+1
#line 3556 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3557           FROM2(CLINK,PP)
#line 3557 "regression-compile-tmp/allimpc1-77.imp"
FROM2(CLINK, &PP);
                                                                //   3558           %IF PP=0 %THEN %START; REPLACE2(CLINK,J); %FINISH
#line 3558 "regression-compile-tmp/allimpc1-77.imp"
if (((PP) != (0))) goto L_0473;
#line 3558 "regression-compile-tmp/allimpc1-77.imp"
REPLACE2(CLINK, J);
#line 3558 "regression-compile-tmp/allimpc1-77.imp"
L_0473:;
                                                                //   3559           FAULT(22) %UNLESS ARR>0 %AND(J=0 %OR PP=0 %OR J=PP)
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) <= (0))) goto L_0474;
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == (0))) goto L_0475;
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
if (((PP) == (0))) goto L_0475;
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == (PP))) goto L_0475;
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
L_0474:;
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
FAULT(22);
#line 3559 "regression-compile-tmp/allimpc1-77.imp"
L_0475:;
                                                                //   3560           FAULT(22) %UNLESS II=0 %OR(TYPE=II %AND III=PREC)
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
if (((II) == (0))) goto L_0476;
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (II))) goto L_0477;
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
if (((III) == (PREC))) goto L_0476;
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
L_0477:;
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
FAULT(22);
#line 3560 "regression-compile-tmp/allimpc1-77.imp"
L_0476:;
                                                                //   3561  L69:      MOVE BACK
#line 3561 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 3561 "regression-compile-tmp/allimpc1-77.imp"
MOVEBACK();
                                                                //   3562           PRX(X'90',0,3,WSPR,QQ-MOVED); ! STM
#line 3562 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 0, 3, WSPR, (((int)(QQ)) - (MOVED)));
                                                                //   3563           TOMOVE=16
#line 3563 "regression-compile-tmp/allimpc1-77.imp"
TOMOVE = 16;
                                                                //   3564  L50:      QQ=QQ+TOMOVE
#line 3564 "regression-compile-tmp/allimpc1-77.imp"
U_1073:;
#line 3564 "regression-compile-tmp/allimpc1-77.imp"
QQ = (((int)(QQ)) + (TOMOVE));
                                                                //   3565           ->L53 %IF RF=1 %OR Q=KK-1
#line 3565 "regression-compile-tmp/allimpc1-77.imp"
if (((RF) == (1))) goto L_0478;
#line 3565 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((((int)(KK)) - (1))))) goto L_0479;
#line 3565 "regression-compile-tmp/allimpc1-77.imp"
L_0478:;
#line 3565 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 3565 "regression-compile-tmp/allimpc1-77.imp"
L_0479:;
                                                                //   3566            II=(QQ+7)&(-8)-MOVED
#line 3566 "regression-compile-tmp/allimpc1-77.imp"
II = (((int)((((((int)(QQ)) + (7))) & ((-8))))) - (MOVED));
                                                                //   3567           MOVER(WSPR,II); MOVED=MOVED+II
#line 3567 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, II);
#line 3567 "regression-compile-tmp/allimpc1-77.imp"
MOVED = (((int)(MOVED)) + (II));
                                                                //   3568  L53:      Q=Q+1; ->L7 %UNLESS Q=KK
#line 3568 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 3568 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 3568 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) == (KK))) goto L_047a;
#line 3568 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 3568 "regression-compile-tmp/allimpc1-77.imp"
L_047a:;
                                                                //   3569           MOVER(WSPR,-MOVED) %UNLESS RF=1
#line 3569 "regression-compile-tmp/allimpc1-77.imp"
if (((RF) == (1))) goto L_047b;
#line 3569 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, (-(MOVED)));
#line 3569 "regression-compile-tmp/allimpc1-77.imp"
L_047b:;
                                                                //   3570  L55:      POP(LIST,Q,QQ); ->L99 %IF Q=-1
#line 3570 "regression-compile-tmp/allimpc1-77.imp"
U_1074:;
#line 3570 "regression-compile-tmp/allimpc1-77.imp"
POP(&LIST, &Q, &QQ);
#line 3570 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((-1)))) goto L_047c;
#line 3570 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
#line 3570 "regression-compile-tmp/allimpc1-77.imp"
L_047c:;
                                                                //   3571           PRX(X'50',WSPR,0,WSPR,Q); ->L55;! POINTER TO SAVE AREA RTTYPES
#line 3571 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, WSPR, 0, WSPR, Q);
#line 3571 "regression-compile-tmp/allimpc1-77.imp"
goto U_1074;
                                                                //   3572           %ROUTINE MOVEBACK
#line 3572 "regression-compile-tmp/allimpc1-77.imp"
void MOVEBACK( void )
#line 3572 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3573           ->L1 %IF QQ>=MOVED
#line 3573 "regression-compile-tmp/allimpc1-77.imp"
if (((QQ) < (MOVED))) goto L_047d;
#line 3573 "regression-compile-tmp/allimpc1-77.imp"
goto U_1075;
#line 3573 "regression-compile-tmp/allimpc1-77.imp"
L_047d:;
                                                                //   3574           MOVER(WSPR,QQ-MOVED); MOVED=QQ
#line 3574 "regression-compile-tmp/allimpc1-77.imp"
MOVER(WSPR, (((int)(QQ)) - (MOVED)));
#line 3574 "regression-compile-tmp/allimpc1-77.imp"
MOVED = QQ;
                                                                //   3575  L1:       %END
#line 3575 "regression-compile-tmp/allimpc1-77.imp"
U_1075:;
#line 3575 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MOVEBACK at level 4
                                                                //   3576  L99:      %END
#line 3576 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 3576 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CRCALL at level 3
                                                                //   3577  %COMMENT Z=1 FOR= ,4 FOR <- AND MAX LENGTH IN BYTE DEFINED BY BML&DML
                                                                //   3578           %ROUTINE     STORE STRING(%INTEGER Z,FROM,TO,BML,DML)
#line 3578 "regression-compile-tmp/allimpc1-77.imp"
void STORESTRING( int Z, int FROM, int TO, int BML, int DML )
#line 3578 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3579           !%SHORTROUTINE
                                                                //   3580  %COMMENT REGISTER 2 IS ASSUMED TO BE USABLE.
                                                                //   3581           FAULT(239) %UNLESS TO=1 %AND FROM=4
#line 3581 "regression-compile-tmp/allimpc1-77.imp"
if (((TO) != (1))) goto L_047e;
#line 3581 "regression-compile-tmp/allimpc1-77.imp"
if (((FROM) == (4))) goto L_047f;
#line 3581 "regression-compile-tmp/allimpc1-77.imp"
L_047e:;
#line 3581 "regression-compile-tmp/allimpc1-77.imp"
FAULT(239);
#line 3581 "regression-compile-tmp/allimpc1-77.imp"
L_047f:;
                                                                //   3582           ->L10 %IF Z=4
#line 3582 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (4))) goto L_0480;
#line 3582 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3582 "regression-compile-tmp/allimpc1-77.imp"
L_0480:;
                                                                //   3583           ->L2 %IF CHECKS=0
#line 3583 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) != (0))) goto L_0481;
#line 3583 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 3583 "regression-compile-tmp/allimpc1-77.imp"
L_0481:;
                                                                //   3584           ->L1 %IF BML>0
#line 3584 "regression-compile-tmp/allimpc1-77.imp"
if (((BML) <= (0))) goto L_0482;
#line 3584 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 3584 "regression-compile-tmp/allimpc1-77.imp"
L_0482:;
                                                                //   3585           PSI(X'95',DML,FROM,0); ->L3;   ! CLI FOR FIXED LENGTH
#line 3585 "regression-compile-tmp/allimpc1-77.imp"
PSI(149, DML, FROM, 0);
#line 3585 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
                                                                //   3586  L1:
#line 3586 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
                                                                //   3587           PSS(X'D5',1,FROM,0,BML,DML)   ;!CLC_ACTUALL(1),MAX
#line 3587 "regression-compile-tmp/allimpc1-77.imp"
PSS(213, 1, FROM, 0, BML, DML);
                                                                //   3588  L3:
#line 3588 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
                                                                //   3589           PRX(X'47',2,0,CODER,88)       ;!BH_FAIL
#line 3589 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, 2, 0, CODER, 88);
                                                                //   3590  L2:       PRX(X'43',2,0,FROM,0)         ;!IC_2,ACTUALL
#line 3590 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 3590 "regression-compile-tmp/allimpc1-77.imp"
PRX(67, 2, 0, FROM, 0);
                                                                //   3591           PRX(X'44',2,0,GLA,STRINST)    ;!EX_2,MOVE
#line 3591 "regression-compile-tmp/allimpc1-77.imp"
PRX(68, 2, 0, GLA, STRINST);
                                                                //   3592           ->L99
#line 3592 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
                                                                //   3593  L10:      PRX(X'43',2,0,BML,DML)        ;!IC_2,MAXL
#line 3593 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3593 "regression-compile-tmp/allimpc1-77.imp"
PRX(67, 2, 0, BML, DML);
                                                                //   3594           PPJ(39)
#line 3594 "regression-compile-tmp/allimpc1-77.imp"
PPJ(39);
                                                                //   3595  L99:      %END
#line 3595 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 3595 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STORESTRING at level 3
                                                                //   3596                 %ROUTINE TEST NST
#line 3596 "regression-compile-tmp/allimpc1-77.imp"
void TESTNST( void )
#line 3596 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3597                 FNAME=K
#line 3597 "regression-compile-tmp/allimpc1-77.imp"
FNAME = K;
                                                                //   3598                 FAULT(7) %UNLESS FIND(FNAME,NAME(LEVEL))=-1
#line 3598 "regression-compile-tmp/allimpc1-77.imp"
if (((FIND(FNAME, NAME[LEVEL])) == ((-1)))) goto L_0483;
#line 3598 "regression-compile-tmp/allimpc1-77.imp"
FAULT(7);
#line 3598 "regression-compile-tmp/allimpc1-77.imp"
L_0483:;
                                                                //   3599                 %END
#line 3599 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TESTNST at level 3
                                                                //   3600           %ROUTINE CUCI
#line 3600 "regression-compile-tmp/allimpc1-77.imp"
void CUCI( void )
#line 3600 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3601           !%SHORTROUTINE
                                                                //   3602           %ROUTINESPEC DXB
#line 3602 "regression-compile-tmp/allimpc1-77.imp"
auto void DXB( void );
                                                                //   3603           %ROUTINESPEC DLB
#line 3603 "regression-compile-tmp/allimpc1-77.imp"
auto void DLB( void );
                                                                //   3604           %ROUTINESPEC DB
#line 3604 "regression-compile-tmp/allimpc1-77.imp"
auto void DB( void );
                                                                //   3605           %ROUTINESPEC CUCS
#line 3605 "regression-compile-tmp/allimpc1-77.imp"
auto void CUCS( void );
                                                                //   3606           %INTEGER Z,KK,X,OPCODE,REG
#line 3606 "regression-compile-tmp/allimpc1-77.imp"
int Z;
#line 3606 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3606 "regression-compile-tmp/allimpc1-77.imp"
int X;
#line 3606 "regression-compile-tmp/allimpc1-77.imp"
int OPCODE;
#line 3606 "regression-compile-tmp/allimpc1-77.imp"
int REG;
                                                                //   3607           %SWITCH SW(1:4),S(1:8)
#line 3607 "regression-compile-tmp/allimpc1-77.imp"
static int sw18_SW_idx;
static const void * /*SWITCH*/ sw18_SW[4] = { &&sw18_SW_1, &&sw18_SW_2, &&sw18_SW_3, &&sw18_SW_4,  };
#line 3607 "regression-compile-tmp/allimpc1-77.imp"
static int sw19_S_idx;
static const void * /*SWITCH*/ sw19_S[8] = { &&sw19_S_1, &&sw19_S_2, &&sw19_S_3, &&sw19_S_4, &&sw19_S_5, &&sw19_S_6, &&sw19_S_7, &&sw19_S_8,  };
                                                                //   3608           P=2; ->SW(A(P))
#line 3608 "regression-compile-tmp/allimpc1-77.imp"
P = 2;
#line 3608 "regression-compile-tmp/allimpc1-77.imp"
sw18_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw18_SW_idx) && (sw18_SW_idx <= 4)) goto *(sw18_SW-1)[sw18_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw18_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw18_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3609  SW(1):         ! **(N),(@')(NAME)(APP)
#line 3609 "regression-compile-tmp/allimpc1-77.imp"
sw18_SW_1:;
                                                                //   3610           NEST=A(3); P=5; Z=A(4)-1
#line 3610 "regression-compile-tmp/allimpc1-77.imp"
NEST = A[5];
#line 3610 "regression-compile-tmp/allimpc1-77.imp"
P = 5;
#line 3610 "regression-compile-tmp/allimpc1-77.imp"
Z = (((int)(A[6])) - (1));
                                                                //   3611           Z=3 %IF Z=0; CNAME(Z,NEST)
#line 3611 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (0))) goto L_0484;
#line 3611 "regression-compile-tmp/allimpc1-77.imp"
Z = 3;
#line 3611 "regression-compile-tmp/allimpc1-77.imp"
L_0484:;
#line 3611 "regression-compile-tmp/allimpc1-77.imp"
CNAME(Z, NEST);
                                                                //   3612           ->L99
#line 3612 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3613  SW(2):   PPJ(A(P+1)); ->L99
#line 3613 "regression-compile-tmp/allimpc1-77.imp"
sw18_SW_2:;
#line 3613 "regression-compile-tmp/allimpc1-77.imp"
PPJ(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
#line 3613 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3614  SW(4):   ! *PUT_CONST
#line 3614 "regression-compile-tmp/allimpc1-77.imp"
sw18_SW_4:;
                                                                //   3615           ->L401 %IF A(P+1)#9
#line 3615 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (9))) goto L_0485;
#line 3615 "regression-compile-tmp/allimpc1-77.imp"
goto U_105e;
#line 3615 "regression-compile-tmp/allimpc1-77.imp"
L_0485:;
                                                                //   3616           PLANT(A(P+2)); P=P+3; ->L99
#line 3616 "regression-compile-tmp/allimpc1-77.imp"
PLANT(A[(((unsigned char)((((int)(P)) + (2)))) + (2))]);
#line 3616 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3616 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3617  L401:     FAULT(32) %UNLESS A(P+1)=1
#line 3617 "regression-compile-tmp/allimpc1-77.imp"
U_105e:;
#line 3617 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0486;
#line 3617 "regression-compile-tmp/allimpc1-77.imp"
FAULT(32);
#line 3617 "regression-compile-tmp/allimpc1-77.imp"
L_0486:;
                                                                //   3618           PLANT(A(P+3));                ! LEAST SIGNIFICANT 16 BITS ONLY
#line 3618 "regression-compile-tmp/allimpc1-77.imp"
PLANT(A[(((unsigned char)((((int)(P)) + (3)))) + (2))]);
                                                                //   3619           P=P+4; ->L99
#line 3619 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (4));
#line 3619 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3620  SW(3):   OPCODE=A(P+2);P=P+3; ->S(A(P-2))
#line 3620 "regression-compile-tmp/allimpc1-77.imp"
sw18_SW_3:;
#line 3620 "regression-compile-tmp/allimpc1-77.imp"
OPCODE = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
#line 3620 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3620 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_idx = A[(((unsigned char)((((int)(P)) - (2)))) + (2))]; if ((1 <= sw19_S_idx) && (sw19_S_idx <= 8)) goto *(sw19_S-1)[sw19_S_idx];  /* Bounds=1:8 */ else {
   /*_imp_signal(8, 2, sw19_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 1:8 at %s:%d\n",
           sw19_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3621  S(1):    ->L87 %IF OPCODE=0;
#line 3621 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_1:;
#line 3621 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (0))) goto L_0487;
#line 3621 "regression-compile-tmp/allimpc1-77.imp"
goto U_105f;
#line 3621 "regression-compile-tmp/allimpc1-77.imp"
L_0487:;
                                                                //   3622           PRR(OPCODE,A(P),A(P+1)); P=P+2; ->L99;           ! RR
#line 3622 "regression-compile-tmp/allimpc1-77.imp"
PRR(OPCODE, A[((P) + ((int)(2)))], A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
#line 3622 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3622 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3623  S(2):    REG=A(P); P=P+1;DXB;                    !RX
#line 3623 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_2:;
#line 3623 "regression-compile-tmp/allimpc1-77.imp"
REG = A[((P) + ((int)(2)))];
#line 3623 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3623 "regression-compile-tmp/allimpc1-77.imp"
DXB();
                                                                //   3624  L11:      PRX(OPCODE,REG,X,I,K);->L99
#line 3624 "regression-compile-tmp/allimpc1-77.imp"
U_1060:;
#line 3624 "regression-compile-tmp/allimpc1-77.imp"
PRX(OPCODE, REG, X, I, K);
#line 3624 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3625  S(3):    REG=A(P); X=A(P+1);P=P+2;               !RS
#line 3625 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_3:;
#line 3625 "regression-compile-tmp/allimpc1-77.imp"
REG = A[((P) + ((int)(2)))];
#line 3625 "regression-compile-tmp/allimpc1-77.imp"
X = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3625 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   3626           DB; ->L11
#line 3626 "regression-compile-tmp/allimpc1-77.imp"
DB();
#line 3626 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
                                                                //   3627  S(4):    DB;Z=0;->L41 %IF A(P)=2;Z=A(P+2);        !SI
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_4:;
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
DB();
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
Z = 0;
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0488;
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
goto U_1061;
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
L_0488:;
#line 3627 "regression-compile-tmp/allimpc1-77.imp"
Z = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
                                                                //   3628           FAULT(32) %UNLESS A(P+1)=9 %AND Z<256
#line 3628 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_0489;
#line 3628 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) < (256))) goto L_048a;
#line 3628 "regression-compile-tmp/allimpc1-77.imp"
L_0489:;
#line 3628 "regression-compile-tmp/allimpc1-77.imp"
FAULT(32);
#line 3628 "regression-compile-tmp/allimpc1-77.imp"
L_048a:;
                                                                //   3629           P=P+2
#line 3629 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   3630  L41:      PSI(OPCODE,Z,I,K);P=P+1; ->L99
#line 3630 "regression-compile-tmp/allimpc1-77.imp"
U_1061:;
#line 3630 "regression-compile-tmp/allimpc1-77.imp"
PSI(OPCODE, Z, I, K);
#line 3630 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3630 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3631  S(5):    REG=A(P);P=P+1; DB;                     !SHIFT INSTR.
#line 3631 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_5:;
#line 3631 "regression-compile-tmp/allimpc1-77.imp"
REG = A[((P) + ((int)(2)))];
#line 3631 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3631 "regression-compile-tmp/allimpc1-77.imp"
DB();
                                                                //   3632           X=0; ->L11
#line 3632 "regression-compile-tmp/allimpc1-77.imp"
X = 0;
#line 3632 "regression-compile-tmp/allimpc1-77.imp"
goto U_1060;
                                                                //   3633  S(6):    DLB;KK=K;Z=X;REG=I;DB;                  !SS FORMAT
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_6:;
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
DLB();
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
Z = X;
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
REG = I;
#line 3633 "regression-compile-tmp/allimpc1-77.imp"
DB();
                                                                //   3634           Z=1 %IF Z=0
#line 3634 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (0))) goto L_048b;
#line 3634 "regression-compile-tmp/allimpc1-77.imp"
Z = 1;
#line 3634 "regression-compile-tmp/allimpc1-77.imp"
L_048b:;
                                                                //   3635  L61:      PSS(OPCODE,Z,REG,KK,I,K); ->L99
#line 3635 "regression-compile-tmp/allimpc1-77.imp"
U_1062:;
#line 3635 "regression-compile-tmp/allimpc1-77.imp"
PSS(OPCODE, Z, REG, KK, I, K);
#line 3635 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3636  S(7):    DLB; KK=K; Z=X; REG=I;                  !PACKED DECIMAL
#line 3636 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_7:;
#line 3636 "regression-compile-tmp/allimpc1-77.imp"
DLB();
#line 3636 "regression-compile-tmp/allimpc1-77.imp"
KK = K;
#line 3636 "regression-compile-tmp/allimpc1-77.imp"
Z = X;
#line 3636 "regression-compile-tmp/allimpc1-77.imp"
REG = I;
                                                                //   3637           DLB; Z=1 %IF Z=0
#line 3637 "regression-compile-tmp/allimpc1-77.imp"
DLB();
#line 3637 "regression-compile-tmp/allimpc1-77.imp"
if (((Z) != (0))) goto L_048c;
#line 3637 "regression-compile-tmp/allimpc1-77.imp"
Z = 1;
#line 3637 "regression-compile-tmp/allimpc1-77.imp"
L_048c:;
                                                                //   3638           X=1 %IF X=0
#line 3638 "regression-compile-tmp/allimpc1-77.imp"
if (((X) != (0))) goto L_048d;
#line 3638 "regression-compile-tmp/allimpc1-77.imp"
X = 1;
#line 3638 "regression-compile-tmp/allimpc1-77.imp"
L_048d:;
                                                                //   3639           Z=(Z-1)<<4!X; ->L61
#line 3639 "regression-compile-tmp/allimpc1-77.imp"
Z = (((((((int)(Z)) - (1))) << (4))) | (X));
#line 3639 "regression-compile-tmp/allimpc1-77.imp"
goto U_1062;
                                                                //   3640  S(8):    REG=A(P); P=P+1;                        !FUNNIES
#line 3640 "regression-compile-tmp/allimpc1-77.imp"
sw19_S_8:;
#line 3640 "regression-compile-tmp/allimpc1-77.imp"
REG = A[((P) + ((int)(2)))];
#line 3640 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3641           ->L85 %IF OPCODE=X'80'       ;! IDL
#line 3641 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (128))) goto L_048e;
#line 3641 "regression-compile-tmp/allimpc1-77.imp"
goto U_1063;
#line 3641 "regression-compile-tmp/allimpc1-77.imp"
L_048e:;
                                                                //   3642           ->L83 %IF OPCODE=10;           ! SVC
#line 3642 "regression-compile-tmp/allimpc1-77.imp"
if (((OPCODE) != (10))) goto L_048f;
#line 3642 "regression-compile-tmp/allimpc1-77.imp"
goto U_1064;
#line 3642 "regression-compile-tmp/allimpc1-77.imp"
L_048f:;
                                                                //   3643           PRR(OPCODE,REG,0);->L99
#line 3643 "regression-compile-tmp/allimpc1-77.imp"
PRR(OPCODE, REG, 0);
#line 3643 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3644  L83:      PLANT(X'A00'!REG); ->L99
#line 3644 "regression-compile-tmp/allimpc1-77.imp"
U_1064:;
#line 3644 "regression-compile-tmp/allimpc1-77.imp"
PLANT(((2560) | (REG)));
#line 3644 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3645  L85:      PSI(OPCODE,REG,0,0); ->L99
#line 3645 "regression-compile-tmp/allimpc1-77.imp"
U_1063:;
#line 3645 "regression-compile-tmp/allimpc1-77.imp"
PSI(OPCODE, REG, 0, 0);
#line 3645 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3646  L87:      CNOP(A(P),A(P+1)); ->L99
#line 3646 "regression-compile-tmp/allimpc1-77.imp"
U_105f:;
#line 3646 "regression-compile-tmp/allimpc1-77.imp"
CNOP(A[((P) + ((int)(2)))], A[(((unsigned char)((((int)(P)) + (1)))) + (2))]);
#line 3646 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   3647           %ROUTINE DB
#line 3647 "regression-compile-tmp/allimpc1-77.imp"
void DB( void )
#line 3647 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3648           ->L2 %IF A(P)=1
#line 3648 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (1))) goto L_0490;
#line 3648 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 3648 "regression-compile-tmp/allimpc1-77.imp"
L_0490:;
                                                                //   3649           K=A(P+1); I=0; P=P+3
#line 3649 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3649 "regression-compile-tmp/allimpc1-77.imp"
I = 0;
#line 3649 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   3650           ->L99 %IF A(P-1)=2
#line 3650 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0491;
#line 3650 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 3650 "regression-compile-tmp/allimpc1-77.imp"
L_0491:;
                                                                //   3651           I=A(P);P=P+1;->L99
#line 3651 "regression-compile-tmp/allimpc1-77.imp"
I = A[((P) + ((int)(2)))];
#line 3651 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3651 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
                                                                //   3652  L2:       CUCS
#line 3652 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 3652 "regression-compile-tmp/allimpc1-77.imp"
CUCS();
                                                                //   3653  L99:      %END
#line 3653 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3653 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DB at level 4
                                                                //   3654           %ROUTINE DXB
#line 3654 "regression-compile-tmp/allimpc1-77.imp"
void DXB( void )
#line 3654 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3655           %SWITCH SW(1:3)
#line 3655 "regression-compile-tmp/allimpc1-77.imp"
static int sw20_SW_idx;
static const void * /*SWITCH*/ sw20_SW[3] = { &&sw20_SW_1, &&sw20_SW_2, &&sw20_SW_3,  };
                                                                //   3656           ->L2 %IF A(P)=2
#line 3656 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0492;
#line 3656 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 3656 "regression-compile-tmp/allimpc1-77.imp"
L_0492:;
                                                                //   3657           CUCS;X=0;P=P+1
#line 3657 "regression-compile-tmp/allimpc1-77.imp"
CUCS();
#line 3657 "regression-compile-tmp/allimpc1-77.imp"
X = 0;
#line 3657 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3658           ->L99 %IF A(P-1)=2
#line 3658 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0493;
#line 3658 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 3658 "regression-compile-tmp/allimpc1-77.imp"
L_0493:;
                                                                //   3659           X=A(P);P=P+1; ->L99
#line 3659 "regression-compile-tmp/allimpc1-77.imp"
X = A[((P) + ((int)(2)))];
#line 3659 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3659 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
                                                                //   3660  L2:       K=A(P+1);P=P+2;I=0;X=0
#line 3660 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3660 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3660 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3660 "regression-compile-tmp/allimpc1-77.imp"
I = 0;
#line 3660 "regression-compile-tmp/allimpc1-77.imp"
X = 0;
                                                                //   3661           ->SW(A(P))
#line 3661 "regression-compile-tmp/allimpc1-77.imp"
sw20_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw20_SW_idx) && (sw20_SW_idx <= 3)) goto *(sw20_SW-1)[sw20_SW_idx];  /* Bounds=1:3 */ else {
   /*_imp_signal(8, 2, sw20_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:3 at %s:%d\n",
           sw20_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3662  SW(1):   X=A(P+1);P=P+1
#line 3662 "regression-compile-tmp/allimpc1-77.imp"
sw20_SW_1:;
#line 3662 "regression-compile-tmp/allimpc1-77.imp"
X = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3662 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3663  SW(2):   I=A(P+1);P=P+1
#line 3663 "regression-compile-tmp/allimpc1-77.imp"
sw20_SW_2:;
#line 3663 "regression-compile-tmp/allimpc1-77.imp"
I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3663 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3664  SW(3):   P=P+1
#line 3664 "regression-compile-tmp/allimpc1-77.imp"
sw20_SW_3:;
#line 3664 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3665  L99:      %END
#line 3665 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 3665 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DXB at level 4
                                                                //   3666           %ROUTINE DLB
#line 3666 "regression-compile-tmp/allimpc1-77.imp"
void DLB( void )
#line 3666 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3667           ->L2 %IF A(P)=2
#line 3667 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0494;
#line 3667 "regression-compile-tmp/allimpc1-77.imp"
goto U_1065;
#line 3667 "regression-compile-tmp/allimpc1-77.imp"
L_0494:;
                                                                //   3668           K=A(P+1); X=A(P+2); I=A(P+3); P=P+4; ->L99
#line 3668 "regression-compile-tmp/allimpc1-77.imp"
K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3668 "regression-compile-tmp/allimpc1-77.imp"
X = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
#line 3668 "regression-compile-tmp/allimpc1-77.imp"
I = A[(((unsigned char)((((int)(P)) + (3)))) + (2))];
#line 3668 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (4));
#line 3668 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
                                                                //   3669  L2:       CUCS; X=A(P); P=P+1
#line 3669 "regression-compile-tmp/allimpc1-77.imp"
U_1065:;
#line 3669 "regression-compile-tmp/allimpc1-77.imp"
CUCS();
#line 3669 "regression-compile-tmp/allimpc1-77.imp"
X = A[((P) + ((int)(2)))];
#line 3669 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3670  L99:      %END
#line 3670 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3670 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DLB at level 4
                                                                //   3671           %ROUTINE     CUCS
#line 3671 "regression-compile-tmp/allimpc1-77.imp"
void CUCS( void )
#line 3671 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3672           %SWITCH UTYPE(0:8)
#line 3672 "regression-compile-tmp/allimpc1-77.imp"
static int sw21_UTYPE_idx;
static const void * /*SWITCH*/ sw21_UTYPE[9] = { &&sw21_UTYPE_0, &&sw21_UTYPE_1, &&sw21_UTYPE_2, &&sw21_UTYPE_3, &&sw21_UTYPE_4, &&sw21_UTYPE_5, &&sw21_UTYPE_6, &&sw21_UTYPE_7, &&sw21_UTYPE_8,  };
                                                                //   3673           P=P+1
#line 3673 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3674           ->L10 %IF A(P)=2
#line 3674 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0495;
#line 3674 "regression-compile-tmp/allimpc1-77.imp"
goto U_1066;
#line 3674 "regression-compile-tmp/allimpc1-77.imp"
L_0495:;
                                                                //   3675           FNAME=A(P+1); COPYTAG(FNAME)
#line 3675 "regression-compile-tmp/allimpc1-77.imp"
FNAME = A[(((unsigned char)((((int)(P)) + (1)))) + (2))];
#line 3675 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(FNAME);
                                                                //   3676           P=P+3; ->L1 %UNLESS I=-1
#line 3676 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3676 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == ((-1)))) goto L_0496;
#line 3676 "regression-compile-tmp/allimpc1-77.imp"
goto U_1067;
#line 3676 "regression-compile-tmp/allimpc1-77.imp"
L_0496:;
                                                                //   3677           FAULT(16); J=0; I=LEVEL; PTYPE=7; UNPACK
#line 3677 "regression-compile-tmp/allimpc1-77.imp"
FAULT(16);
#line 3677 "regression-compile-tmp/allimpc1-77.imp"
J = 0;
#line 3677 "regression-compile-tmp/allimpc1-77.imp"
I = LEVEL;
#line 3677 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 7;
#line 3677 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3678           STORE TAG(FNAME,N);K=N;N=N+4
#line 3678 "regression-compile-tmp/allimpc1-77.imp"
STORETAG(FNAME, N);
#line 3678 "regression-compile-tmp/allimpc1-77.imp"
K = N;
#line 3678 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
                                                                //   3679  L1:       FAULT(33) %IF ROUT=1; ->UTYPE(TYPE)
#line 3679 "regression-compile-tmp/allimpc1-77.imp"
U_1067:;
#line 3679 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (1))) goto L_0497;
#line 3679 "regression-compile-tmp/allimpc1-77.imp"
FAULT(33);
#line 3679 "regression-compile-tmp/allimpc1-77.imp"
L_0497:;
#line 3679 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_idx = TYPE; if ((0 <= sw21_UTYPE_idx) && (sw21_UTYPE_idx <= 8)) goto *sw21_UTYPE[sw21_UTYPE_idx]; else {
   /*_imp_signal(8, 2, sw21_UTYPE_idx);*/
   fprintf(stderr, "%%SWITCH index UTYPE(%d) not in range 0:8 at %s:%d\n",
           sw21_UTYPE_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3680  UTYPE(3):      FROM2(K,K); ->L9;        ! RECORDS
#line 3680 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_3:;
#line 3680 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &K);
#line 3680 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3681  UTYPE(4):      FROM1(K,K); ->L9;        ! FORMATS
#line 3681 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_4:;
#line 3681 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &K);
#line 3681 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3682  UTYPE(8):FAULT(33); ->L9
#line 3682 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_8:;
#line 3682 "regression-compile-tmp/allimpc1-77.imp"
FAULT(33);
#line 3682 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
                                                                //   3683  UTYPE(6):      FROM1(K,K);             ! SWITCHES
#line 3683 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_6:;
#line 3683 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &K);
                                                                //   3684           K=K-CODEBASE(OLDI); FAULT(99) %IF K>4095
#line 3684 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(K)) - (CODEBASE[OLDI]));
#line 3684 "regression-compile-tmp/allimpc1-77.imp"
if (((K) <= (4095))) goto L_0498;
#line 3684 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 3684 "regression-compile-tmp/allimpc1-77.imp"
L_0498:;
                                                                //   3685           I=10
#line 3685 "regression-compile-tmp/allimpc1-77.imp"
I = 10;
                                                                //   3686  UTYPE(0):UTYPE(1):UTYPE(2):UTYPE(5):UTYPE(7):
#line 3686 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_0:;
#line 3686 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_1:;
#line 3686 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_2:;
#line 3686 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_5:;
#line 3686 "regression-compile-tmp/allimpc1-77.imp"
sw21_UTYPE_7:;
                                                                //   3687           ->L9 %UNLESS ARR=2;            ! VECTOR
#line 3687 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (2))) goto L_0499;
#line 3687 "regression-compile-tmp/allimpc1-77.imp"
goto U_1068;
#line 3687 "regression-compile-tmp/allimpc1-77.imp"
L_0499:;
                                                                //   3688           FROM2(K,K);                   ! EXTRACT DISPLACEMENT
#line 3688 "regression-compile-tmp/allimpc1-77.imp"
FROM2(K, &K);
                                                                //   3689  L9:       ->L99 %IF A(P-1)=2
#line 3689 "regression-compile-tmp/allimpc1-77.imp"
U_1068:;
#line 3689 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_049a;
#line 3689 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
#line 3689 "regression-compile-tmp/allimpc1-77.imp"
L_049a:;
                                                                //   3690           K=K+A(P); P=P+1; ->L99
#line 3690 "regression-compile-tmp/allimpc1-77.imp"
K = ((K) + ((int)(A[((P) + ((int)(2)))])));
#line 3690 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3690 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
                                                                //   3691  L10:      K=A(P+2)+(A(P+1)-1)<<14
#line 3691 "regression-compile-tmp/allimpc1-77.imp"
U_1066:;
#line 3691 "regression-compile-tmp/allimpc1-77.imp"
K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14)))));
                                                                //   3692           J=FIND(K,LABEL(LEVEL))
#line 3692 "regression-compile-tmp/allimpc1-77.imp"
J = FIND(K, LABEL[LEVEL]);
                                                                //   3693           ->L25 %IF J=-1
#line 3693 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_049b;
#line 3693 "regression-compile-tmp/allimpc1-77.imp"
goto U_106d;
#line 3693 "regression-compile-tmp/allimpc1-77.imp"
L_049b:;
                                                                //   3694           K=J-CODEBASE(LEVEL); I=10
#line 3694 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(J)) - (CODEBASE[LEVEL]));
#line 3694 "regression-compile-tmp/allimpc1-77.imp"
I = 10;
                                                                //   3695           FAULT(99) %IF K>4095; P=P+3; ->L99
#line 3695 "regression-compile-tmp/allimpc1-77.imp"
if (((K) <= (4095))) goto L_049c;
#line 3695 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 3695 "regression-compile-tmp/allimpc1-77.imp"
L_049c:;
#line 3695 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3695 "regression-compile-tmp/allimpc1-77.imp"
goto U_1069;
                                                                //   3696  L25:      PUSH(JUMP(LEVEL),CA!LABSET,K)
#line 3696 "regression-compile-tmp/allimpc1-77.imp"
U_106d:;
#line 3696 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&JUMP[LEVEL], ((CA) | (LABSET)), K);
                                                                //   3697           K=0; I=0; P=P+3
#line 3697 "regression-compile-tmp/allimpc1-77.imp"
K = 0;
#line 3697 "regression-compile-tmp/allimpc1-77.imp"
I = 0;
#line 3697 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
                                                                //   3698  L99:      %END
#line 3698 "regression-compile-tmp/allimpc1-77.imp"
U_1069:;
#line 3698 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CUCS at level 4
                                                                //   3699  L99:      %END
#line 3699 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 3699 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CUCI at level 3
                                                                //   3700           %ROUTINE     TEST ASS(%INTEGER REG)
#line 3700 "regression-compile-tmp/allimpc1-77.imp"
void TESTASS( int REG )
#line 3700 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3701           !%SHORTROUTINE
                                                                //   3702           %INTEGER J
#line 3702 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   3703           %RETURN %UNLESS 1<=TYPE<=2
#line 3703 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (TYPE))) || (((TYPE) <= (2)))) goto L_049e;
#line 3703 "regression-compile-tmp/allimpc1-77.imp"
L_049d:;
#line 3703 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 3703 "regression-compile-tmp/allimpc1-77.imp"
L_049e:;
                                                                //   3704           ->L5 %IF TYPE=1
#line 3704 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_049f;
#line 3704 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3704 "regression-compile-tmp/allimpc1-77.imp"
L_049f:;
                                                                //   3705           J=X'79'; J=X'69' %IF PREC=3
#line 3705 "regression-compile-tmp/allimpc1-77.imp"
J = 121;
#line 3705 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (3))) goto L_04a0;
#line 3705 "regression-compile-tmp/allimpc1-77.imp"
J = 105;
#line 3705 "regression-compile-tmp/allimpc1-77.imp"
L_04a0:;
                                                                //   3706  L3:       PRX(J,REG,0,GLA,128)
#line 3706 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3706 "regression-compile-tmp/allimpc1-77.imp"
PRX(J, REG, 0, GLA, 128);
                                                                //   3707           PRX(X'47',8,0,CODER,40); ->L99
#line 3707 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, 8, 0, CODER, 40);
#line 3707 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
                                                                //   3708  L5:       ->L99 %UNLESS PREC=0
#line 3708 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3708 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (0))) goto L_04a1;
#line 3708 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3708 "regression-compile-tmp/allimpc1-77.imp"
L_04a1:;
                                                                //   3709           J=X'59'; ->L3
#line 3709 "regression-compile-tmp/allimpc1-77.imp"
J = 89;
#line 3709 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   3710  L99:      %END
#line 3710 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3710 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TESTASS at level 3
                                                                //   3711           %ROUTINE     GXREF(%INTEGER NAME,HASH)
#line 3711 "regression-compile-tmp/allimpc1-77.imp"
void GXREF( int NAME, int HASH )
#line 3711 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3712           !%SHORTROUTINE
                                                                //   3713           %INTEGER I,J,K,N,NP
#line 3713 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 3713 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 3713 "regression-compile-tmp/allimpc1-77.imp"
int K;
#line 3713 "regression-compile-tmp/allimpc1-77.imp"
int N;
#line 3713 "regression-compile-tmp/allimpc1-77.imp"
int NP;
                                                                //   3714           I=N0; N0=N0+7; J=WORD(NAME)
#line 3714 "regression-compile-tmp/allimpc1-77.imp"
I = N0;
#line 3714 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (7));
#line 3714 "regression-compile-tmp/allimpc1-77.imp"
J = WORD[NAME];
                                                                //   3715           ST(I+1)=0; ST(I+2)=0; ST(I+3)=0
#line 3715 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(I)) + (1))] = 0;
#line 3715 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(I)) + (2))] = 0;
#line 3715 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(I)) + (3))] = 0;
                                                                //   3716           N=LETT(J); NP=N; NP=8 %IF NP>8
#line 3716 "regression-compile-tmp/allimpc1-77.imp"
N = LETT[J];
#line 3716 "regression-compile-tmp/allimpc1-77.imp"
NP = N;
#line 3716 "regression-compile-tmp/allimpc1-77.imp"
if (((NP) <= (8))) goto L_04a2;
#line 3716 "regression-compile-tmp/allimpc1-77.imp"
NP = 8;
#line 3716 "regression-compile-tmp/allimpc1-77.imp"
L_04a2:;
                                                                //   3717           K=ADDR(ST(I+5)); ->L1 %IF HASH=0
#line 3717 "regression-compile-tmp/allimpc1-77.imp"
K = _imp_ADDR(&ST[(((int)(I)) + (5))]);
#line 3717 "regression-compile-tmp/allimpc1-77.imp"
if (((HASH) != (0))) goto L_04a3;
#line 3717 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 3717 "regression-compile-tmp/allimpc1-77.imp"
L_04a3:;
                                                                //   3718           ST(I+5)=HASH<<16!'#'<<8
#line 3718 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(I)) + (5))] = ((((HASH) << (16))) | (((35) << (8))));
                                                                //   3719           K=K+2; N=N+2
#line 3719 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(K)) + (2));
#line 3719 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (2));
                                                                //   3720           NP=6 %IF NP>6
#line 3720 "regression-compile-tmp/allimpc1-77.imp"
if (((NP) <= (6))) goto L_04a4;
#line 3720 "regression-compile-tmp/allimpc1-77.imp"
NP = 6;
#line 3720 "regression-compile-tmp/allimpc1-77.imp"
L_04a4:;
                                                                //   3721  L1:       %CYCLE NP=1,1,NP
#line 3721 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 3721 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = NP; NP = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle NP = 1, 1, NP");
NP -= _increment; _control -= _increment;
L_04a5:;
if (NP == _final) goto L_04a6;
NP += _increment; _control += _increment;
if (NP != _control) _imp_signal(4,2,0,"Corrupt control variable NP"); /* FOR loop control variable corrupted */
}
                                                                //   3722           BYTEINTEGER(K+NP)=LETT(J+NP); %REPEAT
#line 3722 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER((((int)(K)) + (NP))) = LETT[(((int)(J)) + (NP))];
#line 3722 "regression-compile-tmp/allimpc1-77.imp"
goto L_04a5;
#line 3722 "regression-compile-tmp/allimpc1-77.imp"
L_04a6:;
                                                                //   3723           N=8 %IF N>8; ST(I+4)=X'80000000'; ! MARK NEW FORMAT
#line 3723 "regression-compile-tmp/allimpc1-77.imp"
if (((N) <= (8))) goto L_04a8;
#line 3723 "regression-compile-tmp/allimpc1-77.imp"
N = 8;
#line 3723 "regression-compile-tmp/allimpc1-77.imp"
L_04a8:;
#line 3723 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(I)) + (4))] = (-2147483648);
                                                                //   3724           ST(I)=XREFLINK; XREFLINK=I<<2; ! LINK IN REFERENCE
#line 3724 "regression-compile-tmp/allimpc1-77.imp"
ST[I] = XREFLINK;
#line 3724 "regression-compile-tmp/allimpc1-77.imp"
XREFLINK = ((I) << (2));
                                                                //   3725           BYTE INTEGER(ADDR(ST(I+5)))=N
#line 3725 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER(_imp_ADDR(&ST[(((int)(I)) + (5))])) = N;
                                                                //   3726           N0=N0+1 %IF N=8
#line 3726 "regression-compile-tmp/allimpc1-77.imp"
if (((N) != (8))) goto L_04a9;
#line 3726 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (1));
#line 3726 "regression-compile-tmp/allimpc1-77.imp"
L_04a9:;
                                                                //   3727           %END
#line 3727 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GXREF at level 3
                                                                //   3728           %ROUTINE UNDCRF (%SHORTINTEGERNAME OPHEAD)     ; ! Care needed with short conversion!
#line 3728 "regression-compile-tmp/allimpc1-77.imp"
void UNDCRF( short /*name*/*OPHEAD )
#line 3728 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3729           %INTEGER I,J
#line 3729 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 3729 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   3730           %SHORTINTEGER OP
#line 3730 "regression-compile-tmp/allimpc1-77.imp"
short OP;
                                                                //   3731           %COMMENT UNSCRAMBLES RECORD FORMAT TAGS LIST & SIDECHAIN
                                                                //   3732           POP (OPHEAD,I,J);             ! LST ITEM IS DESPMENT
#line 3732 "regression-compile-tmp/allimpc1-77.imp"
POP(OPHEAD, &I, &J);
                                                                //   3733  L1:       POP (OPHEAD,I,J)
#line 3733 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3733 "regression-compile-tmp/allimpc1-77.imp"
POP(OPHEAD, &I, &J);
                                                                //   3734           ->L9 %IF I=-1
#line 3734 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != ((-1)))) goto L_04aa;
#line 3734 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3734 "regression-compile-tmp/allimpc1-77.imp"
L_04aa:;
                                                                //   3735           OP=J;PTYPE=I>>4&X'FFFF';UNPACK
#line 3735 "regression-compile-tmp/allimpc1-77.imp"
OP = J;
#line 3735 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = (((int)((((unsigned int)(I)) >> (4)))) & (65535));
#line 3735 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3736           %IF ROUT=1 %OR TYPE=3 %THEN CLEAR LIST(OP)
#line 3736 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (1))) goto L_04a7;
#line 3736 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_04ab;
#line 3736 "regression-compile-tmp/allimpc1-77.imp"
L_04a7:;
#line 3736 "regression-compile-tmp/allimpc1-77.imp"
CLEARLIST(&OP);
#line 3736 "regression-compile-tmp/allimpc1-77.imp"
L_04ab:;
                                                                //   3737           ->L1
#line 3737 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
                                                                //   3738  L9:       %END
#line 3738 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3738 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block UNDCRF at level 3
                                                                //   3739           %ROUTINE CLT
#line 3739 "regression-compile-tmp/allimpc1-77.imp"
void CLT( void )
#line 3739 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3740           !%SHORTROUTINE
                                                                //   3741           %COMMENT P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT
                                                                //   3742           TYPE=TYPEFLAG(A(P))
#line 3742 "regression-compile-tmp/allimpc1-77.imp"
TYPE = (TYPEFLAG-1)[A[((P) + ((int)(2)))]];
                                                                //   3743           PREC=TYPE>>3; TYPE=TYPE&7
#line 3743 "regression-compile-tmp/allimpc1-77.imp"
PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3)));
#line 3743 "regression-compile-tmp/allimpc1-77.imp"
TYPE = ((TYPE) & (7));
                                                                //   3744           PREC=3 %IF TYPE=2 %AND ALL LONG#0
#line 3744 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_04ac;
#line 3744 "regression-compile-tmp/allimpc1-77.imp"
if (((ALLLONG) == (0))) goto L_04ac;
#line 3744 "regression-compile-tmp/allimpc1-77.imp"
PREC = 3;
#line 3744 "regression-compile-tmp/allimpc1-77.imp"
L_04ac:;
                                                                //   3745           ACC=BYTES(PREC);P=P+1
#line 3745 "regression-compile-tmp/allimpc1-77.imp"
ACC = BYTES[PREC];
#line 3745 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3746           ->L99 %UNLESS TYPE=5
#line 3746 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (5))) goto L_04ad;
#line 3746 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
#line 3746 "regression-compile-tmp/allimpc1-77.imp"
L_04ad:;
                                                                //   3747           ->L2 %UNLESS A(P)=2
#line 3747 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) == (2))) goto L_04ae;
#line 3747 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 3747 "regression-compile-tmp/allimpc1-77.imp"
L_04ae:;
                                                                //   3748           ACC=0; P=P+1; ->L99
#line 3748 "regression-compile-tmp/allimpc1-77.imp"
ACC = 0;
#line 3748 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3748 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
                                                                //   3749  L1:       P=P+1;FAULT(70);->L99
#line 3749 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3749 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3749 "regression-compile-tmp/allimpc1-77.imp"
FAULT(70);
#line 3749 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
                                                                //   3750  L2:       P=P+1;ACC=A(P)+1
#line 3750 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 3750 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3750 "regression-compile-tmp/allimpc1-77.imp"
ACC = (((int)(A[((P) + ((int)(2)))])) + (1));
                                                                //   3751           ->L1 %UNLESS 2<=ACC<=256
#line 3751 "regression-compile-tmp/allimpc1-77.imp"
if ((((2) > (ACC))) || (((ACC) <= (256)))) goto L_04b0;
#line 3751 "regression-compile-tmp/allimpc1-77.imp"
L_04af:;
#line 3751 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3751 "regression-compile-tmp/allimpc1-77.imp"
L_04b0:;
                                                                //   3752           P=P+1
#line 3752 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3753  L99:      %END
#line 3753 "regression-compile-tmp/allimpc1-77.imp"
U_1057:;
#line 3753 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLT at level 3
                                                                //   3754           %ROUTINE     CQN(%INTEGER P)
#line 3754 "regression-compile-tmp/allimpc1-77.imp"
void CQN( int P )
#line 3754 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3755           !%SHORTROUTINE
                                                                //   3756           %BYTEINTEGER I
#line 3756 "regression-compile-tmp/allimpc1-77.imp"
unsigned char I;
                                                                //   3757           I=A(P);NAM=0;ARR=0
#line 3757 "regression-compile-tmp/allimpc1-77.imp"
I = A[((P) + ((int)(2)))];
#line 3757 "regression-compile-tmp/allimpc1-77.imp"
NAM = 0;
#line 3757 "regression-compile-tmp/allimpc1-77.imp"
ARR = 0;
                                                                //   3758           NAM=2 %IF I=1 ;ARR=1 %IF I<=2
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (1))) goto L_04b1;
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
NAM = 2;
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
L_04b1:;
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
if (((I) > (2))) goto L_04b2;
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
ARR = 1;
#line 3758 "regression-compile-tmp/allimpc1-77.imp"
L_04b2:;
                                                                //   3759           NAM=NAM!1 %IF I<=3;ACC=16 %IF ARR=1
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
if (((I) > (3))) goto L_04b3;
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
NAM = ((NAM) | (1));
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
L_04b3:;
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (1))) goto L_04b4;
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
ACC = 16;
#line 3759 "regression-compile-tmp/allimpc1-77.imp"
L_04b4:;
                                                                //   3760           ACC=4 %IF I=3
#line 3760 "regression-compile-tmp/allimpc1-77.imp"
if (((I) != (3))) goto L_04b5;
#line 3760 "regression-compile-tmp/allimpc1-77.imp"
ACC = 4;
#line 3760 "regression-compile-tmp/allimpc1-77.imp"
L_04b5:;
                                                                //   3761           %END
#line 3761 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CQN at level 3
                                                                //   3762           %ROUTINE SKIP EXP
#line 3762 "regression-compile-tmp/allimpc1-77.imp"
void SKIPEXP( void )
#line 3762 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3763           !%SHORTROUTINE
                                                                //   3764           %SWITCH SW(1:4);%INTEGER J
#line 3764 "regression-compile-tmp/allimpc1-77.imp"
static int sw22_SW_idx;
static const void * /*SWITCH*/ sw22_SW[4] = { &&sw22_SW_1, &&sw22_SW_2, &&sw22_SW_3, &&sw22_SW_4,  };
#line 3764 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   3765           %OWNINTEGER RT=10000
#line 3765 "regression-compile-tmp/allimpc1-77.imp"
static int RT = 10000;
                                                                //   3766  L3:       P=P+1; ->SW(A(P));            ! SWITCH ON OPERAND
#line 3766 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3766 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3766 "regression-compile-tmp/allimpc1-77.imp"
sw22_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw22_SW_idx) && (sw22_SW_idx <= 4)) goto *(sw22_SW-1)[sw22_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw22_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw22_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3767  SW(1):   P=P+2;                        ! OPERAND = NAME
#line 3767 "regression-compile-tmp/allimpc1-77.imp"
sw22_SW_1:;
#line 3767 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
                                                                //   3768           J=ADDR(ASLIST(TAGS(A(P-1))))
#line 3768 "regression-compile-tmp/allimpc1-77.imp"
J = _imp_ADDR(&ASLIST[TAGS[A[(((unsigned char)((((int)(P)) - (1)))) + (2))]]]);
                                                                //   3769           ->L5 %IF SHORT INTEGER(J)<RT; FFLAG=1
#line 3769 "regression-compile-tmp/allimpc1-77.imp"
if (((*_imp_SHORTINTEGER(J)) >= (RT))) goto L_04b6;
#line 3769 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3769 "regression-compile-tmp/allimpc1-77.imp"
L_04b6:;
#line 3769 "regression-compile-tmp/allimpc1-77.imp"
FFLAG = 1;
                                                                //   3770  L5:       SKIP APP; P=P+1
#line 3770 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3770 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
#line 3770 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   3771           ->L1 %IF A(P-1)=2; P=P+1; ->L5
#line 3771 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_04b7;
#line 3771 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3771 "regression-compile-tmp/allimpc1-77.imp"
L_04b7:;
#line 3771 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3771 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
                                                                //   3772  SW(2):                                 ! CONST
#line 3772 "regression-compile-tmp/allimpc1-77.imp"
sw22_SW_2:;
                                                                //   3773           P=P+1; J=A(P)
#line 3773 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3773 "regression-compile-tmp/allimpc1-77.imp"
J = A[((P) + ((int)(2)))];
                                                                //   3774           %IF J=9 %THEN %START; P=P+2; ->L1; %FINISH
#line 3774 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (9))) goto L_04b8;
#line 3774 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (2));
#line 3774 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3774 "regression-compile-tmp/allimpc1-77.imp"
L_04b8:;
                                                                //   3775           %IF J=1 %THEN %START; P=P+3; ->L1; %FINISH
#line 3775 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (1))) goto L_04b9;
#line 3775 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3775 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3775 "regression-compile-tmp/allimpc1-77.imp"
L_04b9:;
                                                                //   3776           %IF J=2 %THEN %START; P=P+5; ->L1; %FINISH
#line 3776 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (2))) goto L_04ba;
#line 3776 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (5));
#line 3776 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3776 "regression-compile-tmp/allimpc1-77.imp"
L_04ba:;
                                                                //   3777           P=P+A(P+1)&X'FE'+3; ->L1
#line 3777 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(((P) + ((int)(((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (254))))))) + (3));
#line 3777 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
                                                                //   3778  SW(3):SW(4): P=P+1; SKIP EXP
#line 3778 "regression-compile-tmp/allimpc1-77.imp"
sw22_SW_3:;
#line 3778 "regression-compile-tmp/allimpc1-77.imp"
sw22_SW_4:;
#line 3778 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3778 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
                                                                //   3779  L1:       P=P+1; ->L3 %IF A(P-1)=1
#line 3779 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3779 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3779 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_04bb;
#line 3779 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 3779 "regression-compile-tmp/allimpc1-77.imp"
L_04bb:;
                                                                //   3780           %END
#line 3780 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPEXP at level 3
                                                                //   3781            %ROUTINE SKIP APP;           ! SKIPS ACTUAL PARAMETER PART
#line 3781 "regression-compile-tmp/allimpc1-77.imp"
void SKIPAPP( void )
#line 3781 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3782  L5:       P=P+1; ->L1 %IF A(P-1)=2; SKIP EXP; ->L5
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
U_1057:;
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_04bc;
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
L_04bc:;
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 3782 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
                                                                //   3783  L1:        %END
#line 3783 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 3783 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SKIPAPP at level 3
                                                                //   3784           %ROUTINE     CQUERY(%INTEGER REG)
#line 3784 "regression-compile-tmp/allimpc1-77.imp"
void CQUERY( int REG )
#line 3784 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3785           !%SHORTROUTINE
                                                                //   3786           PSI(X'95',0,GLA,1);           ! CLI 1(GLA),0
#line 3786 "regression-compile-tmp/allimpc1-77.imp"
PSI(149, 0, GLA, 1);
                                                                //   3787           PJ(8,PLABEL-1);               ! JUMP ROUND IF QUERIES OFF
#line 3787 "regression-compile-tmp/allimpc1-77.imp"
PJ(8, (((int)(PLABEL)) - (1)));
                                                                //   3788             ->L1 %IF TYPE=2
#line 3788 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_04bd;
#line 3788 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 3788 "regression-compile-tmp/allimpc1-77.imp"
L_04bd:;
                                                                //   3789           ->L5 %IF TYPE=5
#line 3789 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_04be;
#line 3789 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3789 "regression-compile-tmp/allimpc1-77.imp"
L_04be:;
                                                                //   3790           PRR(X'18',1,REG) %UNLESS REG=1;         ! LR 1,REG
#line 3790 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == (1))) goto L_04bf;
#line 3790 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, REG);
#line 3790 "regression-compile-tmp/allimpc1-77.imp"
L_04bf:;
                                                                //   3791           PCONST(X'4120000B');          ! LA 2,11
#line 3791 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1092616203);
                                                                //   3792           PPJ(4); ->L9;                  ! TO WRITE
#line 3792 "regression-compile-tmp/allimpc1-77.imp"
PPJ(4);
#line 3792 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   3793  L1:       PCONST(X'41100020'); PPJ(3);  ! OUTPUT SPACE
#line 3793 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 3793 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1091567648);
#line 3793 "regression-compile-tmp/allimpc1-77.imp"
PPJ(3);
                                                                //   3794           %IF QPREAL=0 %THEN %START
#line 3794 "regression-compile-tmp/allimpc1-77.imp"
if (((QPREAL) != (0))) goto L_04c0;
                                                                //   3795           QPREAL=N0<<2+4
#line 3795 "regression-compile-tmp/allimpc1-77.imp"
QPREAL = (((int)(((N0) << (2)))) + (4));
                                                                //   3796           ST(N0)=XREFLINK; XREFLINK=QPREAL-4
#line 3796 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = XREFLINK;
#line 3796 "regression-compile-tmp/allimpc1-77.imp"
XREFLINK = (((int)(QPREAL)) - (4));
                                                                //   3797           ST(N0+4)=8; ST(N0+5)=M'I#PR'; ST(N0+6)=M'INTF'
#line 3797 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (4))] = 8;
#line 3797 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (5))] = 1227051090;
#line 3797 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (6))] = 1229870150;
                                                                //   3798           !!                   ^^^^^^            ^^^^^^^          WARNING! Endianness
                                                                //   3799           N0=N0+7; %FINISH
#line 3799 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (7));
#line 3799 "regression-compile-tmp/allimpc1-77.imp"
L_04c0:;
                                                                //   3800           PACLOD(82,1,REG<<4)
#line 3800 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(82, 1, ((REG) << (4)));
                                                                //   3801           %COMMENT STD REG,64(11).LA 0,12.ST 0,68(11) %ABD SS ENTRYPRINTF
                                                                //   3802           PACLOD(55,4,QPREAL); ->L9
#line 3802 "regression-compile-tmp/allimpc1-77.imp"
PACLOD(55, 4, QPREAL);
#line 3802 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   3803  L5:       PCONST(X'4110000A'); PPJ(3);  ! NEWLINE
#line 3803 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3803 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1091567626);
#line 3803 "regression-compile-tmp/allimpc1-77.imp"
PPJ(3);
                                                                //   3804           PRR(X'18',1,REG); PPJ(5)
#line 3804 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, 1, REG);
#line 3804 "regression-compile-tmp/allimpc1-77.imp"
PPJ(5);
                                                                //   3805  L9:       PLAB(-1)
#line 3805 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3805 "regression-compile-tmp/allimpc1-77.imp"
PLAB((-1));
                                                                //   3806           %END
#line 3806 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CQUERY at level 3
                                                                //   3807           %ROUTINE     LOADAD(%INTEGER REG,BASE,X,DISP)
#line 3807 "regression-compile-tmp/allimpc1-77.imp"
void LOADAD( int REG, int BASE, int X, int DISP )
#line 3807 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3808           !%SHORTROUTINE
                                                                //   3809           ! LOADS ADDRESS & DEALS CORRECTLY WITH DISP>4095
                                                                //   3810           %INTEGER I
#line 3810 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   3811                 PRX(X'41',REG,X,BASE,DISP&4095)
#line 3811 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, REG, X, BASE, ((DISP) & (4095)));
                                                                //   3812           I=PAGENO(DISP)
#line 3812 "regression-compile-tmp/allimpc1-77.imp"
I = PAGENO(DISP);
                                                                //   3813           PRX(X'5A',REG,0,GLA,4*I)%UNLESS 4095>=DISP
#line 3813 "regression-compile-tmp/allimpc1-77.imp"
if (((4095) >= (DISP))) goto L_04c1;
#line 3813 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, REG, 0, GLA, (((int)(4)) * (I)));
#line 3813 "regression-compile-tmp/allimpc1-77.imp"
L_04c1:;
                                                                //   3814           %END
#line 3814 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOADAD at level 3
                                                                //   3815                 %INTEGERFN TSEXP(%INTEGERNAME CODE)
#line 3815 "regression-compile-tmp/allimpc1-77.imp"
int TSEXP( int /*name*/*CODE )
#line 3815 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3816           !%SHORTROUTINE
                                                                //   3817           %SWITCH SW(1:4)
#line 3817 "regression-compile-tmp/allimpc1-77.imp"
static int sw23_SW_idx;
static const void * /*SWITCH*/ sw23_SW[4] = { &&sw23_SW_1, &&sw23_SW_2, &&sw23_SW_3, &&sw23_SW_4,  };
                                                                //   3818           TYPE=1
#line 3818 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 1;
                                                                //   3819           ->L9 %IF 1#A(P)#4; ->SW(A(P+1))
#line 3819 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) == (A[((P) + ((int)(2)))]))) || (((A[((P) + ((int)(2)))]) == (4)))) goto L_04c2;
#line 3819 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3819 "regression-compile-tmp/allimpc1-77.imp"
L_04c2:;
#line 3819 "regression-compile-tmp/allimpc1-77.imp"
sw23_SW_idx = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; if ((1 <= sw23_SW_idx) && (sw23_SW_idx <= 4)) goto *(sw23_SW-1)[sw23_SW_idx];  /* Bounds=1:4 */ else {
   /*_imp_signal(8, 2, sw23_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n",
           sw23_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   3820  SW(1):   CODE=A(P+2); COPYTAG(CODE)
#line 3820 "regression-compile-tmp/allimpc1-77.imp"
sw23_SW_1:;
#line 3820 "regression-compile-tmp/allimpc1-77.imp"
*CODE = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
#line 3820 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(*CODE);
                                                                //   3821           %IF PTYPE=10006 %THEN %START
#line 3821 "regression-compile-tmp/allimpc1-77.imp"
if (((PTYPE) != (10006))) goto L_04c3;
                                                                //   3822           TYPE=TSNAME(K);PREC=TYPE>>3
#line 3822 "regression-compile-tmp/allimpc1-77.imp"
TYPE = TSNAME[K];
#line 3822 "regression-compile-tmp/allimpc1-77.imp"
PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3)));
                                                                //   3823           TYPE=TYPE&7; %FINISH
#line 3823 "regression-compile-tmp/allimpc1-77.imp"
TYPE = ((TYPE) & (7));
#line 3823 "regression-compile-tmp/allimpc1-77.imp"
L_04c3:;
                                                                //   3824           ->L40 %IF TYPE=8;              !REGISTER VARIABLE
#line 3824 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (8))) goto L_04c4;
#line 3824 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 3824 "regression-compile-tmp/allimpc1-77.imp"
L_04c4:;
                                                                //   3825           ->L30 %IF TYPE=3 %AND ARR=0 %AND INREG#0
#line 3825 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_04c5;
#line 3825 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_04c5;
#line 3825 "regression-compile-tmp/allimpc1-77.imp"
if (((INREG) == (0))) goto L_04c5;
#line 3825 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3825 "regression-compile-tmp/allimpc1-77.imp"
L_04c5:;
                                                                //   3826           ->L50 %IF ARR=2 %AND TYPE=1
#line 3826 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (2))) goto L_04c6;
#line 3826 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_04c6;
#line 3826 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3826 "regression-compile-tmp/allimpc1-77.imp"
L_04c6:;
                                                                //   3827           ->L9 %UNLESS A(P+3)=2 =A(P+4); ! NO APP OR ENAME
#line 3827 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (4)))) + (2))])))) goto L_04c8;
#line 3827 "regression-compile-tmp/allimpc1-77.imp"
L_04c7:;
#line 3827 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3827 "regression-compile-tmp/allimpc1-77.imp"
L_04c8:;
                                                                //   3828           ->L9 %UNLESS ROUT=0 %AND ARR=0
#line 3828 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) != (0))) goto L_04c9;
#line 3828 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) == (0))) goto L_04ca;
#line 3828 "regression-compile-tmp/allimpc1-77.imp"
L_04c9:;
#line 3828 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3828 "regression-compile-tmp/allimpc1-77.imp"
L_04ca:;
                                                                //   3829           ->L20 %IF TYPE=5
#line 3829 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (5))) goto L_04cb;
#line 3829 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 3829 "regression-compile-tmp/allimpc1-77.imp"
L_04cb:;
                                                                //   3830           ->L9 %UNLESS NAM=0
#line 3830 "regression-compile-tmp/allimpc1-77.imp"
if (((NAM) == (0))) goto L_04cc;
#line 3830 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3830 "regression-compile-tmp/allimpc1-77.imp"
L_04cc:;
                                                                //   3831           ->L14 %IF TYPE=2
#line 3831 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (2))) goto L_04cd;
#line 3831 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 3831 "regression-compile-tmp/allimpc1-77.imp"
L_04cd:;
                                                                //   3832           ->L9 %UNLESS TYPE=1
#line 3832 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (1))) goto L_04ce;
#line 3832 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3832 "regression-compile-tmp/allimpc1-77.imp"
L_04ce:;
                                                                //   3833           ->L11 %IF A(P+5)=2;            ! NO RST OF EXPS
#line 3833 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (2))) goto L_04cf;
#line 3833 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 3833 "regression-compile-tmp/allimpc1-77.imp"
L_04cf:;
                                                                //   3834           ->L9 %UNLESS A(P+6)=2=A(P+7)
#line 3834 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (7)))) + (2))])))) goto L_04d1;
#line 3834 "regression-compile-tmp/allimpc1-77.imp"
L_04d0:;
#line 3834 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3834 "regression-compile-tmp/allimpc1-77.imp"
L_04d1:;
                                                                //   3835           ->L9 %UNLESS A(P+8)=9 %AND A(P+10)=2
#line 3835 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) != (9))) goto L_04d2;
#line 3835 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) == (2))) goto L_04d3;
#line 3835 "regression-compile-tmp/allimpc1-77.imp"
L_04d2:;
#line 3835 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3835 "regression-compile-tmp/allimpc1-77.imp"
L_04d3:;
                                                                //   3836           CODE=A(P+9); P=P+11; %RESULT=100
#line 3836 "regression-compile-tmp/allimpc1-77.imp"
*CODE = A[(((unsigned char)((((int)(P)) + (9)))) + (2))];
#line 3836 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (11));
#line 3836 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 100;
                                                                //   3837  L11:      P=P+6; %RESULT=10+PREC
#line 3837 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 3837 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 3837 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((10) + ((int)(PREC)));
                                                                //   3838  L14:      ->L9 %UNLESS A(P+5)=2;         !NO NOT OF EXPRN
#line 3838 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 3838 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04d4;
#line 3838 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3838 "regression-compile-tmp/allimpc1-77.imp"
L_04d4:;
                                                                //   3839           P=P+6; %RESULT=14+PREC&1
#line 3839 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 3839 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((14) + ((int)(((PREC) & (1)))));
                                                                //   3840  L20:      ->L9 %UNLESS A(P+5)=2
#line 3840 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 3840 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04d5;
#line 3840 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3840 "regression-compile-tmp/allimpc1-77.imp"
L_04d5:;
                                                                //   3841           P=P+6; %RESULT=20
#line 3841 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 3841 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 20;
                                                                //   3842  L30:      ->L9 %UNLESS A(P+3)=2 %AND A(P+4)=1;     ! NO APP BUT ENAME
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) goto L_04d6;
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) == (1))) goto L_04d7;
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
L_04d6:;
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3842 "regression-compile-tmp/allimpc1-77.imp"
L_04d7:;
                                                                //   3843           P=P+5; FROM1(K,FNAME); I=INREG
#line 3843 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (5));
#line 3843 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &FNAME);
#line 3843 "regression-compile-tmp/allimpc1-77.imp"
I = INREG;
                                                                //   3844           K=DISPLACEMENT(FNAME); UNPACK
#line 3844 "regression-compile-tmp/allimpc1-77.imp"
K = DISPLACEMENT(FNAME);
#line 3844 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   3845           ->L9 %IF I=-1 %OR ARR#0 %OR ROUT#0
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == ((-1)))) goto L_04d8;
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
if (((ARR) != (0))) goto L_04d8;
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
if (((ROUT) == (0))) goto L_04d9;
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
L_04d8:;
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3845 "regression-compile-tmp/allimpc1-77.imp"
L_04d9:;
                                                                //   3846           ->L9 %UNLESS 1<=TYPE<=2 %AND A(P+1)=2=A(P+2)
#line 3846 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_04da;
#line 3846 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_04db;
#line 3846 "regression-compile-tmp/allimpc1-77.imp"
L_04da:;
#line 3846 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3846 "regression-compile-tmp/allimpc1-77.imp"
L_04db:;
                                                                //   3847           ->L9 %UNLESS A(P+3)=2;         ! NO REST OF EXPRN
#line 3847 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) == (2))) goto L_04dc;
#line 3847 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3847 "regression-compile-tmp/allimpc1-77.imp"
L_04dc:;
                                                                //   3848           P=P-2; ->L11 %IF TYPE=1; ->L14
#line 3848 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (2));
#line 3848 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_04dd;
#line 3848 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 3848 "regression-compile-tmp/allimpc1-77.imp"
L_04dd:;
#line 3848 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   3849  L40:      ->L41 %IF A(P+5)=2;            !NO REST OF EXP
#line 3849 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3849 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (2))) goto L_04de;
#line 3849 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 3849 "regression-compile-tmp/allimpc1-77.imp"
L_04de:;
                                                                //   3850           ->L9 %UNLESS A(P+6)=2=A(P+7)
#line 3850 "regression-compile-tmp/allimpc1-77.imp"
if ((((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (7)))) + (2))])))) goto L_04e0;
#line 3850 "regression-compile-tmp/allimpc1-77.imp"
L_04df:;
#line 3850 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3850 "regression-compile-tmp/allimpc1-77.imp"
L_04e0:;
                                                                //   3851           ->L9 %UNLESS A(P+8)=9 %AND A(P+10)=2
#line 3851 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) != (9))) goto L_04e1;
#line 3851 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) == (2))) goto L_04e2;
#line 3851 "regression-compile-tmp/allimpc1-77.imp"
L_04e1:;
#line 3851 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3851 "regression-compile-tmp/allimpc1-77.imp"
L_04e2:;
                                                                //   3852           CODE=A(P+9);P=P+11; %RESULT=101
#line 3852 "regression-compile-tmp/allimpc1-77.imp"
*CODE = A[(((unsigned char)((((int)(P)) + (9)))) + (2))];
#line 3852 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (11));
#line 3852 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 101;
                                                                //   3853  L41:      P=P+6; %RESULT=50
#line 3853 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 3853 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 3853 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 50;
                                                                //   3854  L50:      ->L9 %UNLESS A(P+3)=1 %AND A(P+4)=4 %AND A(P+5)=2
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (1))) goto L_04e3;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (4))) goto L_04e3;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04e4;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
L_04e3:;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3854 "regression-compile-tmp/allimpc1-77.imp"
L_04e4:;
                                                                //   3855           ->L9 %UNLESS A(P+6)=9 %AND A(P+7)<256 %AND A(P+8)=2
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (9))) goto L_04e5;
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) >= (256))) goto L_04e5;
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) == (2))) goto L_04e6;
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
L_04e5:;
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3855 "regression-compile-tmp/allimpc1-77.imp"
L_04e6:;
                                                                //   3856           ->L9 %UNLESS A(P+9)=2 %AND A(P+10)=2 %AND A(P+11)=2
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (9)))) + (2))]) != (2))) goto L_04e7;
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) != (2))) goto L_04e7;
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (11)))) + (2))]) == (2))) goto L_04e8;
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
L_04e7:;
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3856 "regression-compile-tmp/allimpc1-77.imp"
L_04e8:;
                                                                //   3857         FROM1(K,K); K=K+A(P+7)*BYTES(PREC)
#line 3857 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &K);
#line 3857 "regression-compile-tmp/allimpc1-77.imp"
K = ((K) + ((int)(((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) * ((short)(BYTES[PREC]))))));
                                                                //   3858           ->L9 %UNLESS 0<=K<4096
#line 3858 "regression-compile-tmp/allimpc1-77.imp"
if ((((0) > (K))) || (((K) < (4096)))) goto L_04ea;
#line 3858 "regression-compile-tmp/allimpc1-77.imp"
L_04e9:;
#line 3858 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3858 "regression-compile-tmp/allimpc1-77.imp"
L_04ea:;
                                                                //   3859           P=P+12; %RESULT=10+PREC
#line 3859 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (12));
#line 3859 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return ((10) + ((int)(PREC)));
                                                                //   3860  SW(2):   TYPE=A(P+2)&7
#line 3860 "regression-compile-tmp/allimpc1-77.imp"
sw23_SW_2:;
#line 3860 "regression-compile-tmp/allimpc1-77.imp"
TYPE = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) & (7));
                                                                //   3861           ->L9 %UNLESS A(P+2)=9
#line 3861 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (9))) goto L_04eb;
#line 3861 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3861 "regression-compile-tmp/allimpc1-77.imp"
L_04eb:;
                                                                //   3862           ->L21 %IF A(P+4)=1;            ! REST OF EXPR
#line 3862 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (1))) goto L_04ec;
#line 3862 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
#line 3862 "regression-compile-tmp/allimpc1-77.imp"
L_04ec:;
                                                                //   3863                 CODE=A(P+3); P=P+5
#line 3863 "regression-compile-tmp/allimpc1-77.imp"
*CODE = A[(((unsigned char)((((int)(P)) + (3)))) + (2))];
#line 3863 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (5));
                                                                //   3864           %RESULT=1 %IF 256>CODE
#line 3864 "regression-compile-tmp/allimpc1-77.imp"
if (((256) <= (*CODE))) goto L_04ed;
#line 3864 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
#line 3864 "regression-compile-tmp/allimpc1-77.imp"
L_04ed:;
                                                                //   3865           %RESULT=2
#line 3865 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 2;
                                                                //   3866  L21:      %IF A(P+5)=12 %THEN TYPE=5;! STRING EXPRESSION
#line 3866 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 3866 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (12))) goto L_04ee;
#line 3866 "regression-compile-tmp/allimpc1-77.imp"
TYPE = 5;
#line 3866 "regression-compile-tmp/allimpc1-77.imp"
L_04ee:;
                                                                //   3867  SW(3):SW(4):L9:%RESULT=0
#line 3867 "regression-compile-tmp/allimpc1-77.imp"
sw23_SW_3:;
#line 3867 "regression-compile-tmp/allimpc1-77.imp"
sw23_SW_4:;
#line 3867 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3867 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   3868                 %END
#line 3868 "regression-compile-tmp/allimpc1-77.imp"
} // End of block TSEXP at level 3
                                                                //   3869                 %ROUTINE     MOVE R(%INTEGER R,N)
#line 3869 "regression-compile-tmp/allimpc1-77.imp"
void MOVER( int R, int N )
#line 3869 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3870           !%SHORTROUTINE
                                                                //   3871                 ->L99 %IF N=0; ->L2 %IF 0>N
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
if (((N) != (0))) goto L_04ef;
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
L_04ef:;
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (N))) goto L_04f0;
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 3871 "regression-compile-tmp/allimpc1-77.imp"
L_04f0:;
                                                                //   3872           DUMP(0,R,N,0,R); ->L99
#line 3872 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, R, N, 0, R);
#line 3872 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   3873  L2:       N=-N; ->L3 %UNLESS N=4 %OR N=8
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
N = (-(N));
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
if (((N) == (4))) goto L_04f1;
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
if (((N) == (8))) goto L_04f1;
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3873 "regression-compile-tmp/allimpc1-77.imp"
L_04f1:;
                                                                //   3874           PRX(X'5A',R,0,GLA,76+N); ->L99
#line 3874 "regression-compile-tmp/allimpc1-77.imp"
PRX(90, R, 0, GLA, (((int)(76)) + (N)));
#line 3874 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   3875  L3:       PCONST(X'41000000'!N);        ! LA 0,N
#line 3875 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3875 "regression-compile-tmp/allimpc1-77.imp"
PCONST(((1090519040) | (N)));
                                                                //   3876           PRR(X'1B',R,0);               ! SR R,0
#line 3876 "regression-compile-tmp/allimpc1-77.imp"
PRR(27, R, 0);
                                                                //   3877  L99:      %END
#line 3877 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3877 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MOVER at level 3
                                                                //   3878                 %INTEGERFN     FIND PP
#line 3878 "regression-compile-tmp/allimpc1-77.imp"
int FINDPP( void )
#line 3878 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3879           !%SHORTROUTINE
                                                                //   3880                 %INTEGER I
#line 3880 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   3881           %CYCLE I=9-RLEVEL,-1,4
#line 3881 "regression-compile-tmp/allimpc1-77.imp"
I = (((unsigned char)((((int)(9)) - (RLEVEL)))) + (1));
if ((((4)-((((int)(9)) - (RLEVEL)))) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(9)) - (RLEVEL)), (-1), 4");
L_04f2:;
if (I == 4) goto L_04f3;
I += (-1);
                                                                //   3882                 ->L1 %IF REGISTER(I)=0
#line 3882 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[I]) != (0))) goto L_04f5;
#line 3882 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 3882 "regression-compile-tmp/allimpc1-77.imp"
L_04f5:;
                                                                //   3883                 %REPEAT
#line 3883 "regression-compile-tmp/allimpc1-77.imp"
goto L_04f2;
#line 3883 "regression-compile-tmp/allimpc1-77.imp"
L_04f3:;
                                                                //   3884           %RESULT=0
#line 3884 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   3885  L1:             REGISTER(I)=1
#line 3885 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 3885 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[I] = 1;
                                                                //   3886                 %RESULT=I
#line 3886 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
                                                                //   3887                 %END
#line 3887 "regression-compile-tmp/allimpc1-77.imp"
} // End of block FINDPP at level 3
                                                                //   3888           %ROUTINE     UNPARK(%INTEGER OPCODE,REG,Q)
#line 3888 "regression-compile-tmp/allimpc1-77.imp"
void UNPARK( int OPCODE, int REG, int Q )
#line 3888 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3889           !%SHORTROUTINE
                                                                //   3890           ->L1 %IF 0>Q
#line 3890 "regression-compile-tmp/allimpc1-77.imp"
if (((0) <= (Q))) goto L_04f6;
#line 3890 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 3890 "regression-compile-tmp/allimpc1-77.imp"
L_04f6:;
                                                                //   3891           PRR(OPCODE-X'40',REG,Q); REGISTER(Q)=0; ->L9
#line 3891 "regression-compile-tmp/allimpc1-77.imp"
PRR((((int)(OPCODE)) - (64)), REG, Q);
#line 3891 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[Q] = 0;
#line 3891 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
                                                                //   3892  L1:       Q=|Q|; PRX(OPCODE,REG,0,RBASE,Q)
#line 3892 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3892 "regression-compile-tmp/allimpc1-77.imp"
Q = _imp_IMOD(Q);
#line 3892 "regression-compile-tmp/allimpc1-77.imp"
PRX(OPCODE, REG, 0, RBASE, Q);
                                                                //   3893           PUSH(WSP(LEVEL),0,Q);
#line 3893 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, Q);
                                                                //   3894  L9:       %END
#line 3894 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3894 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block UNPARK at level 3
                                                                //   3895                 %INTEGERFN     PARK(%INTEGER REG)
#line 3895 "regression-compile-tmp/allimpc1-77.imp"
int PARK( int REG )
#line 3895 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3896           !%SHORTROUTINE
                                                                //   3897           %INTEGER I,J,P
#line 3897 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 3897 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 3897 "regression-compile-tmp/allimpc1-77.imp"
int P;
                                                                //   3898           P=CLAIMABLE REG
#line 3898 "regression-compile-tmp/allimpc1-77.imp"
P = CLAIMABLEREG();
                                                                //   3899           ->L1 %IF P=0
#line 3899 "regression-compile-tmp/allimpc1-77.imp"
if (((P) != (0))) goto L_04f7;
#line 3899 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3899 "regression-compile-tmp/allimpc1-77.imp"
L_04f7:;
                                                                //   3900           REGISTER(P)=1
#line 3900 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[P] = 1;
                                                                //   3901                 ->L2 %IF P=REG
#line 3901 "regression-compile-tmp/allimpc1-77.imp"
if (((P) != (REG))) goto L_04f8;
#line 3901 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3901 "regression-compile-tmp/allimpc1-77.imp"
L_04f8:;
                                                                //   3902           PRR(X'18',P,REG);             ! LR P,REG
#line 3902 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, P, REG);
                                                                //   3903  L2:             %RESULT=P
#line 3903 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3903 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return P;
                                                                //   3904  L1:       POP(WSP(LEVEL),I,J); ->L3 %UNLESS J=-1
#line 3904 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3904 "regression-compile-tmp/allimpc1-77.imp"
POP(&WSP[LEVEL], &I, &J);
#line 3904 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == ((-1)))) goto L_04f9;
#line 3904 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 3904 "regression-compile-tmp/allimpc1-77.imp"
L_04f9:;
                                                                //   3905           J=N; N=N+4
#line 3905 "regression-compile-tmp/allimpc1-77.imp"
J = N;
#line 3905 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
                                                                //   3906  L3:       DUMP(1,REG,J,0,RBASE); %RESULT=-J
#line 3906 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 3906 "regression-compile-tmp/allimpc1-77.imp"
DUMP(1, REG, J, 0, RBASE);
#line 3906 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return (-(J));
                                                                //   3907                 %END
#line 3907 "regression-compile-tmp/allimpc1-77.imp"
} // End of block PARK at level 3
                                                                //   3908           %INTEGERFN     CLAIMABLE REG
#line 3908 "regression-compile-tmp/allimpc1-77.imp"
int CLAIMABLEREG( void )
#line 3908 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3909           !%SHORTROUTINE
                                                                //   3910           %INTEGER I
#line 3910 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   3911           ->L1 %IF RBASE<= 4
#line 3911 "regression-compile-tmp/allimpc1-77.imp"
if (((RBASE) > (4))) goto L_04fa;
#line 3911 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 3911 "regression-compile-tmp/allimpc1-77.imp"
L_04fa:;
                                                                //   3912           %CYCLE I=5,1,RBASE
#line 3912 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 5; _increment = 1; _final = RBASE; I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 5, 1, RBASE");
I -= _increment; _control -= _increment;
L_04fb:;
if (I == _final) goto L_04fc;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   3913           %RESULT=I %IF REGISTER(I)=0
#line 3913 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[I]) != (0))) goto L_04fe;
#line 3913 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
#line 3913 "regression-compile-tmp/allimpc1-77.imp"
L_04fe:;
                                                                //   3914           %REPEAT
#line 3914 "regression-compile-tmp/allimpc1-77.imp"
goto L_04fb;
#line 3914 "regression-compile-tmp/allimpc1-77.imp"
L_04fc:;
                                                                //   3915  L1:       %RESULT=0
#line 3915 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 3915 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   3916           %END
#line 3916 "regression-compile-tmp/allimpc1-77.imp"
} // End of block CLAIMABLEREG at level 3
                                                                //   3917           %INTEGERFN PARKF (%INTEGER REG,PREC)
#line 3917 "regression-compile-tmp/allimpc1-77.imp"
int PARKF( int REG, int PREC )
#line 3917 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3918           !%SHORTROUTINE
                                                                //   3919           %INTEGER I,J
#line 3919 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 3919 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   3920           ->L10 %UNLESS PREC=0
#line 3920 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) == (0))) goto L_04ff;
#line 3920 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3920 "regression-compile-tmp/allimpc1-77.imp"
L_04ff:;
                                                                //   3921           POP(WSP(LEVEL),I,J)
#line 3921 "regression-compile-tmp/allimpc1-77.imp"
POP(&WSP[LEVEL], &I, &J);
                                                                //   3922           ->L3 %UNLESS J=-1
#line 3922 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == ((-1)))) goto L_0500;
#line 3922 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3922 "regression-compile-tmp/allimpc1-77.imp"
L_0500:;
                                                                //   3923           J=N; N=N+4
#line 3923 "regression-compile-tmp/allimpc1-77.imp"
J = N;
#line 3923 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
                                                                //   3924  L3:       DUMP(9+2*PREC,REG,J,0,RBASE)
#line 3924 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3924 "regression-compile-tmp/allimpc1-77.imp"
DUMP(((9) + ((int)((((int)(2)) * (PREC))))), REG, J, 0, RBASE);
                                                                //   3925           %RESULT=J
#line 3925 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return J;
                                                                //   3926  L10:      J=GET DBLE WRD;->L3             ;!PARKING SPACE
#line 3926 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3926 "regression-compile-tmp/allimpc1-77.imp"
J = GETDBLEWRD();
#line 3926 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
                                                                //   3927           %END
#line 3927 "regression-compile-tmp/allimpc1-77.imp"
} // End of block PARKF at level 3
                                                                //   3928           %INTEGERFN GET ARR WSP
#line 3928 "regression-compile-tmp/allimpc1-77.imp"
int GETARRWSP( void )
#line 3928 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3929           %COMMENT PRODUCES 6 CONTIGUOUS WORDS UNDER BASE
                                                                //   3930           %COMMENT REGISTER COVER FOR ARRAY ACCESS
                                                                //   3931           %INTEGER I,J
#line 3931 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 3931 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   3932           POP(MDARR(LEVEL),I,J)
#line 3932 "regression-compile-tmp/allimpc1-77.imp"
POP(&MDARR[LEVEL], &I, &J);
                                                                //   3933           ->L1 %IF J>0
#line 3933 "regression-compile-tmp/allimpc1-77.imp"
if (((J) <= (0))) goto L_0501;
#line 3933 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 3933 "regression-compile-tmp/allimpc1-77.imp"
L_0501:;
                                                                //   3934           J=N;  N=N+24
#line 3934 "regression-compile-tmp/allimpc1-77.imp"
J = N;
#line 3934 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (24));
                                                                //   3935  L1:       %RESULT =J
#line 3935 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 3935 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return J;
                                                                //   3936           %END
#line 3936 "regression-compile-tmp/allimpc1-77.imp"
} // End of block GETARRWSP at level 3
                                                                //   3937           %ROUTINE     RHEAD(%INTEGER KK)
#line 3937 "regression-compile-tmp/allimpc1-77.imp"
void RHEAD( int KK )
#line 3937 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3938           !%SHORTROUTINE
                                                                //   3939           %INTEGER FLAG,W1,W2
#line 3939 "regression-compile-tmp/allimpc1-77.imp"
int FLAG;
#line 3939 "regression-compile-tmp/allimpc1-77.imp"
int W1;
#line 3939 "regression-compile-tmp/allimpc1-77.imp"
int W2;
                                                                //   3940           FLAG=KK;FLAG=10000 %IF RLEVEL=0
#line 3940 "regression-compile-tmp/allimpc1-77.imp"
FLAG = KK;
#line 3940 "regression-compile-tmp/allimpc1-77.imp"
if (((RLEVEL) != (0))) goto L_0502;
#line 3940 "regression-compile-tmp/allimpc1-77.imp"
FLAG = 10000;
#line 3940 "regression-compile-tmp/allimpc1-77.imp"
L_0502:;
                                                                //   3941           ->L5 %IF RLEVEL=0
#line 3941 "regression-compile-tmp/allimpc1-77.imp"
if (((RLEVEL) != (0))) goto L_0503;
#line 3941 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3941 "regression-compile-tmp/allimpc1-77.imp"
L_0503:;
                                                                //   3942           ->L5 %UNLESS LIST=0
#line 3942 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) == (0))) goto L_0504;
#line 3942 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3942 "regression-compile-tmp/allimpc1-77.imp"
L_0504:;
                                                                //   3943           NEWLINE;WRITE(LINE,5);SPACES(3*LEVEL)
#line 3943 "regression-compile-tmp/allimpc1-77.imp"
_imp_NEWLINE();
#line 3943 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(LINE, 5);
#line 3943 "regression-compile-tmp/allimpc1-77.imp"
_imp_SPACES((((int)(3)) * (LEVEL)));
                                                                //   3944           %IF KK<0 %THEN print string("BEGIN") %ELSE %START
#line 3944 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) >= (0))) goto L_0505;
#line 3944 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("BEGIN"));
#line 3944 "regression-compile-tmp/allimpc1-77.imp"
goto L_0506;
#line 3944 "regression-compile-tmp/allimpc1-77.imp"
L_0505:;
                                                                //   3945           print string("RT/FN/MAP "); PRINTNAME(KK); %FINISH
#line 3945 "regression-compile-tmp/allimpc1-77.imp"
_imp_PRINTSTRING(_imp_str_literal("RT/FN/MAP "));
#line 3945 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(KK);
#line 3945 "regression-compile-tmp/allimpc1-77.imp"
L_0506:;
                                                                //   3946           WRITE(CA,6)
#line 3946 "regression-compile-tmp/allimpc1-77.imp"
_imp_WRITE(CA, 6);
                                                                //   3947  L5:       LEVEL=LEVEL+1
#line 3947 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3947 "regression-compile-tmp/allimpc1-77.imp"
LEVEL = (((int)(LEVEL)) + (1));
                                                                //   3948           ->L6 %IF FLAG<0
#line 3948 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAG) >= (0))) goto L_0507;
#line 3948 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 3948 "regression-compile-tmp/allimpc1-77.imp"
L_0507:;
                                                                //   3949           RLEVEL=RLEVEL+1;RBASE=10-RLEVEL;R13=0
#line 3949 "regression-compile-tmp/allimpc1-77.imp"
RLEVEL = (((int)(RLEVEL)) + (1));
#line 3949 "regression-compile-tmp/allimpc1-77.imp"
RBASE = (((int)(10)) - (RLEVEL));
#line 3949 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
                                                                //   3950           FAULT(35) %IF RBASE=4 %OR REGISTER(RBASE)#0
#line 3950 "regression-compile-tmp/allimpc1-77.imp"
if (((RBASE) == (4))) goto L_04fd;
#line 3950 "regression-compile-tmp/allimpc1-77.imp"
if (((REGISTER[RBASE]) == (0))) goto L_0508;
#line 3950 "regression-compile-tmp/allimpc1-77.imp"
L_04fd:;
#line 3950 "regression-compile-tmp/allimpc1-77.imp"
FAULT(35);
#line 3950 "regression-compile-tmp/allimpc1-77.imp"
L_0508:;
                                                                //   3951           REGISTER(RBASE)=1
#line 3951 "regression-compile-tmp/allimpc1-77.imp"
REGISTER[RBASE] = 1;
                                                                //   3952  L6:       FAULT(34) %IF LEVEL=10
#line 3952 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 3952 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) != (10))) goto L_0509;
#line 3952 "regression-compile-tmp/allimpc1-77.imp"
FAULT(34);
#line 3952 "regression-compile-tmp/allimpc1-77.imp"
L_0509:;
                                                                //   3953           FAULT(105) %IF LEVEL>MAX LEVELS
#line 3953 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) <= (MAXLEVELS))) goto L_050a;
#line 3953 "regression-compile-tmp/allimpc1-77.imp"
FAULT(105);
#line 3953 "regression-compile-tmp/allimpc1-77.imp"
L_050a:;
                                                                //   3954           NMDECS(LEVEL)=0
#line 3954 "regression-compile-tmp/allimpc1-77.imp"
NMDECS[LEVEL] = 0;
                                                                //   3955           ->L10 %IF FLAG>=0
#line 3955 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAG) < (0))) goto L_050b;
#line 3955 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 3955 "regression-compile-tmp/allimpc1-77.imp"
L_050b:;
                                                                //   3956           PRX(X'90',10,11,RBASE,N);     ! STM 10,11,?
#line 3956 "regression-compile-tmp/allimpc1-77.imp"
PRX(144, 10, 11, RBASE, N);
                                                                //   3957           N=N+12;W1=RBASE;W2=N-4
#line 3957 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (12));
#line 3957 "regression-compile-tmp/allimpc1-77.imp"
W1 = RBASE;
#line 3957 "regression-compile-tmp/allimpc1-77.imp"
W2 = (((int)(N)) - (4));
                                                                //   3958           ->L20
#line 3958 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   3959  L10:      ->L25 %IF KK<0
#line 3959 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 3959 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) >= (0))) goto L_050c;
#line 3959 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 3959 "regression-compile-tmp/allimpc1-77.imp"
L_050c:;
                                                                //   3960           FROM LIST(JJ,J,K);ST(RA(J)>>2)=CA
#line 3960 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(JJ, &J, &K);
#line 3960 "regression-compile-tmp/allimpc1-77.imp"
ST[(short)((((unsigned short)(RA[J])) >> (2)))] = CA;
                                                                //   3961           PRX(X'50',LINK,0,WSPR,60);    !SAVE LINK
#line 3961 "regression-compile-tmp/allimpc1-77.imp"
PRX(80, LINK, 0, WSPR, 60);
                                                                //   3962           W1=WSPR; W2=0
#line 3962 "regression-compile-tmp/allimpc1-77.imp"
W1 = WSPR;
#line 3962 "regression-compile-tmp/allimpc1-77.imp"
W2 = 0;
                                                                //   3963  L20:      ->L21 %IF DIAGS1=0
#line 3963 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 3963 "regression-compile-tmp/allimpc1-77.imp"
if (((DIAGS1) != (0))) goto L_050d;
#line 3963 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 3963 "regression-compile-tmp/allimpc1-77.imp"
L_050d:;
                                                                //   3964           PSS(X'D2',4,W1,W2,GLA,20)
#line 3964 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 4, W1, W2, GLA, 20);
                                                                //   3965           LOADAD(0,0,0,LINE)
#line 3965 "regression-compile-tmp/allimpc1-77.imp"
LOADAD(0, 0, 0, LINE);
                                                                //   3966           PCONST(X'4000D014') ;         !STH 0,20(GLA)
#line 3966 "regression-compile-tmp/allimpc1-77.imp"
PCONST(1073795092);
                                                                //   3967  L21:      MONE=1;SET LINE
#line 3967 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 3967 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
#line 3967 "regression-compile-tmp/allimpc1-77.imp"
SETLINE();
                                                                //   3968  L25:      PRR(X'18',RBASE,WSPR) %UNLESS FLAG<0
#line 3968 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 3968 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAG) < (0))) goto L_050e;
#line 3968 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, RBASE, WSPR);
#line 3968 "regression-compile-tmp/allimpc1-77.imp"
L_050e:;
                                                                //   3969           %IF KK<0 %THEN W1=0 %ELSE W1=WORD(KK)
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) >= (0))) goto L_050f;
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
W1 = 0;
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
goto L_0510;
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
L_050f:;
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
W1 = WORD[KK];
#line 3969 "regression-compile-tmp/allimpc1-77.imp"
L_0510:;
                                                                //   3970           L(LEVEL)=LINE;M(LEVEL)=W1
#line 3970 "regression-compile-tmp/allimpc1-77.imp"
L[LEVEL] = LINE;
#line 3970 "regression-compile-tmp/allimpc1-77.imp"
M[LEVEL] = W1;
                                                                //   3971           RNEXT(LEVEL)=NEXT
#line 3971 "regression-compile-tmp/allimpc1-77.imp"
RNEXT[LEVEL] = NEXT;
                                                                //   3972           %RETURN %IF FLAG<0
#line 3972 "regression-compile-tmp/allimpc1-77.imp"
if (((FLAG) >= (0))) goto L_0511;
#line 3972 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 3972 "regression-compile-tmp/allimpc1-77.imp"
L_0511:;
                                                                //   3973           SET(RLEVEL)=CA+2
#line 3973 "regression-compile-tmp/allimpc1-77.imp"
SET[RLEVEL] = (((int)(CA)) + (2));
                                                                //   3974           PRX(X'41',WSPR,WSPR,0,0);     ! LA WSP,?(WSP)
#line 3974 "regression-compile-tmp/allimpc1-77.imp"
PRX(65, WSPR, WSPR, 0, 0);
                                                                //   3975           %IF CHECKS#0 %THEN PCLOD(75); ! CHECK VFOR EXCESS BLOCKS
#line 3975 "regression-compile-tmp/allimpc1-77.imp"
if (((CHECKS) == (0))) goto L_0512;
#line 3975 "regression-compile-tmp/allimpc1-77.imp"
PCLOD(75);
#line 3975 "regression-compile-tmp/allimpc1-77.imp"
L_0512:;
                                                                //   3976           N=64; NMAX=N;
#line 3976 "regression-compile-tmp/allimpc1-77.imp"
N = 64;
#line 3976 "regression-compile-tmp/allimpc1-77.imp"
NMAX = N;
                                                                //   3977           %END
#line 3977 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RHEAD at level 3
                                                                //   3978           %ROUTINE     SET80(%INTEGER WHERE,N)
#line 3978 "regression-compile-tmp/allimpc1-77.imp"
void SET80( int WHERE, int N )
#line 3978 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3979           %RETURN %IF N<=2
#line 3979 "regression-compile-tmp/allimpc1-77.imp"
if (((N) > (2))) goto L_0513;
#line 3979 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 3979 "regression-compile-tmp/allimpc1-77.imp"
L_0513:;
                                                                //   3980           %INTEGER K
#line 3980 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //   3981           !%SHORTROUTINE
                                                                //   3982           PSI(X'92',X'80',RBASE,WHERE)
#line 3982 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, 128, RBASE, WHERE);
                                                                //   3983           N=N-1; K=WHERE
#line 3983 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) - (1));
#line 3983 "regression-compile-tmp/allimpc1-77.imp"
K = WHERE;
                                                                //   3984  L1:       ->L2 %IF N<=256
#line 3984 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 3984 "regression-compile-tmp/allimpc1-77.imp"
if (((N) > (256))) goto L_0514;
#line 3984 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 3984 "regression-compile-tmp/allimpc1-77.imp"
L_0514:;
                                                                //   3985           PSS(X'D2',256,RBASE,K+1,RBASE,K)
#line 3985 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, 256, RBASE, (((int)(K)) + (1)), RBASE, K);
                                                                //   3986           K=K+256; N=N-256; ->L1
#line 3986 "regression-compile-tmp/allimpc1-77.imp"
K = (((int)(K)) + (256));
#line 3986 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) - (256));
#line 3986 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   3987  L2:       PSS(X'D2',N,RBASE,K+1,RBASE,K)
#line 3987 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 3987 "regression-compile-tmp/allimpc1-77.imp"
PSS(210, N, RBASE, (((int)(K)) + (1)), RBASE, K);
                                                                //   3988           %END
#line 3988 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SET80 at level 3
                                                                //   3989           %ROUTINE     CBPAIR(%INTEGERNAME LB,UB)
#line 3989 "regression-compile-tmp/allimpc1-77.imp"
void CBPAIR( int /*name*/*LB, int /*name*/*UB )
#line 3989 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   3990           !%SHORTROUTINE
                                                                //   3991           %INTEGER KK,KKK,JJ,BP
#line 3991 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 3991 "regression-compile-tmp/allimpc1-77.imp"
int KKK;
#line 3991 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 3991 "regression-compile-tmp/allimpc1-77.imp"
int BP;
                                                                //   3992           P=P+1; KK=0
#line 3992 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3992 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
                                                                //   3993           %CYCLE JJ=1,1,2; KKK=KK
#line 3993 "regression-compile-tmp/allimpc1-77.imp"
JJ = 0;
if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 2");
L_0515:;
if (JJ == 2) goto L_0516;
JJ += 1;
#line 3993 "regression-compile-tmp/allimpc1-77.imp"
KKK = KK;
                                                                //   3994           %IF A(P)=2 %THEN KK=-1 %ELSE KK=1
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0518;
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
KK = (-1);
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
goto L_0519;
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
L_0518:;
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
KK = 1;
#line 3994 "regression-compile-tmp/allimpc1-77.imp"
L_0519:;
                                                                //   3995           ->REAL %IF A(P+1)&7=2
#line 3995 "regression-compile-tmp/allimpc1-77.imp"
if (((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (7))) != (2))) goto L_051a;
#line 3995 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 3995 "regression-compile-tmp/allimpc1-77.imp"
L_051a:;
                                                                //   3996           ->STRING %IF A(P+1)&7=5
#line 3996 "regression-compile-tmp/allimpc1-77.imp"
if (((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (7))) != (5))) goto L_051b;
#line 3996 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 3996 "regression-compile-tmp/allimpc1-77.imp"
L_051b:;
                                                                //   3997           %IF A(P+1)=9 %THEN BP=A(P+2) %ELSE %START
#line 3997 "regression-compile-tmp/allimpc1-77.imp"
if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_051c;
#line 3997 "regression-compile-tmp/allimpc1-77.imp"
BP = A[(((unsigned char)((((int)(P)) + (2)))) + (2))];
#line 3997 "regression-compile-tmp/allimpc1-77.imp"
goto L_051d;
#line 3997 "regression-compile-tmp/allimpc1-77.imp"
L_051c:;
                                                                //   3998           FROMAR4(P+2,BP); P=P+1; %FINISH
#line 3998 "regression-compile-tmp/allimpc1-77.imp"
FROMAR4((((int)(P)) + (2)), &BP);
#line 3998 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 3998 "regression-compile-tmp/allimpc1-77.imp"
L_051d:;
                                                                //   3999           KK=KK*BP; P=P+3; ->AGAIN
#line 3999 "regression-compile-tmp/allimpc1-77.imp"
KK = (((int)(KK)) * (BP));
#line 3999 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (3));
#line 3999 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
                                                                //   4000  REAL:    FAULT(24); P=P+6; KK=0; ->AGAIN
#line 4000 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 4000 "regression-compile-tmp/allimpc1-77.imp"
FAULT(24);
#line 4000 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (6));
#line 4000 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
#line 4000 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
                                                                //   4001  STRING:  FAULT(42); P=P*A(P+2)&X'FE'+2; KK=0
#line 4001 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4001 "regression-compile-tmp/allimpc1-77.imp"
FAULT(42);
#line 4001 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(((((P) * ((int)(A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) & (254)))) + (2));
#line 4001 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
                                                                //   4002  AGAIN:   %REPEAT
#line 4002 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 4002 "regression-compile-tmp/allimpc1-77.imp"
goto L_0515;
#line 4002 "regression-compile-tmp/allimpc1-77.imp"
L_0516:;
                                                                //   4003           LB=KKK; UB=KK
#line 4003 "regression-compile-tmp/allimpc1-77.imp"
*LB = KKK;
#line 4003 "regression-compile-tmp/allimpc1-77.imp"
*UB = KK;
                                                                //   4004           %END
#line 4004 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CBPAIR at level 3
                                                                //   4005           %ROUTINE LOAD DATA
#line 4005 "regression-compile-tmp/allimpc1-77.imp"
void LOADDATA( void )
#line 4005 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4006           !%SHORTROUTINE
                                                                //   4007           %INTEGER LDLINK,JJ,KK,PTR,JJJ
#line 4007 "regression-compile-tmp/allimpc1-77.imp"
int LDLINK;
#line 4007 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 4007 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 4007 "regression-compile-tmp/allimpc1-77.imp"
int PTR;
#line 4007 "regression-compile-tmp/allimpc1-77.imp"
int JJJ;
                                                                //   4008           %SHORTINTEGER HEAD
#line 4008 "regression-compile-tmp/allimpc1-77.imp"
short HEAD;
                                                                //   4009           LDPTR=8+8*NEPS
#line 4009 "regression-compile-tmp/allimpc1-77.imp"
LDPTR = ((8) + ((int)(((8) * ((int)(NEPS))))));
                                                                //   4010           %INTEGERARRAY BUFFER(0:LDPTR)
#line 4010 "regression-compile-tmp/allimpc1-77.imp"
int BUFFER[((LDPTR) + ((int)(1)))];
                                                                //   4011           BUFFER(0)=7; BUFFER(2)=88
#line 4011 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[0] = 7;
#line 4011 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[2] = 88;
                                                                //   4012           BUFFER(3)=0; BUFFER(4)=0
#line 4012 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[3] = 0;
#line 4012 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[4] = 0;
                                                                //   4013           BUFFER(5)=0; BUFFER(6)=64
#line 4013 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[5] = 0;
#line 4013 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[6] = 64;
                                                                //   4014           PTR=8;  LDLINK=0
#line 4014 "regression-compile-tmp/allimpc1-77.imp"
PTR = 8;
#line 4014 "regression-compile-tmp/allimpc1-77.imp"
LDLINK = 0;
                                                                //   4015  L1:       POP(EPLINK,JJ,KK)
#line 4015 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4015 "regression-compile-tmp/allimpc1-77.imp"
POP(&EPLINK, &JJ, &KK);
                                                                //   4016           ->L10 %IF JJ<0
#line 4016 "regression-compile-tmp/allimpc1-77.imp"
if (((JJ) >= (0))) goto L_051e;
#line 4016 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 4016 "regression-compile-tmp/allimpc1-77.imp"
L_051e:;
                                                                //   4017           HEAD=KK
#line 4017 "regression-compile-tmp/allimpc1-77.imp"
HEAD = KK;
                                                                //   4018           BUFFER(PTR)=LDLINK
#line 4018 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[PTR] = LDLINK;
                                                                //   4019           LDLINK=PTR<<2
#line 4019 "regression-compile-tmp/allimpc1-77.imp"
LDLINK = ((PTR) << (2));
                                                                //   4020           BUFFER(PTR+1)=0
#line 4020 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[(((int)(PTR)) + (1))] = 0;
                                                                //   4021           BUFFER(PTR+2)=0
#line 4021 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[(((int)(PTR)) + (2))] = 0;
                                                                //   4022           BUFFER(PTR+3)=JJ
#line 4022 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[(((int)(PTR)) + (3))] = JJ;
                                                                //   4023           BUFFER(PTR+4)=X'80000000'
#line 4023 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[(((int)(PTR)) + (4))] = (-2147483648);
                                                                //   4024           POP(HEAD,BUFFER(PTR+5),KK);   ! FIRST BIT OF ID.
#line 4024 "regression-compile-tmp/allimpc1-77.imp"
POP(&HEAD, &BUFFER[(((int)(PTR)) + (5))], &KK);
                                                                //   4025           %IF KK>3 %THEN POP(HEAD,BUFFER(PTR+6),JJJ)
#line 4025 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) <= (3))) goto L_051f;
#line 4025 "regression-compile-tmp/allimpc1-77.imp"
POP(&HEAD, &BUFFER[(((int)(PTR)) + (6))], &JJJ);
#line 4025 "regression-compile-tmp/allimpc1-77.imp"
L_051f:;
                                                                //   4026           PTR=PTR+7; %IF KK>7 %THEN %START
#line 4026 "regression-compile-tmp/allimpc1-77.imp"
PTR = (((int)(PTR)) + (7));
#line 4026 "regression-compile-tmp/allimpc1-77.imp"
if (((KK) <= (7))) goto L_0520;
                                                                //   4027           POP(HEAD,BUFFER(PTR),JJJ); PTR=PTR+1; %FINISH; ->L1
#line 4027 "regression-compile-tmp/allimpc1-77.imp"
POP(&HEAD, &BUFFER[PTR], &JJJ);
#line 4027 "regression-compile-tmp/allimpc1-77.imp"
PTR = (((int)(PTR)) + (1));
#line 4027 "regression-compile-tmp/allimpc1-77.imp"
L_0520:;
#line 4027 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   4028  L10:      BUFFER(1)=LDLINK
#line 4028 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 4028 "regression-compile-tmp/allimpc1-77.imp"
BUFFER[1] = LDLINK;
                                                                //   4029           LPUT(3,PTR<<2,0,ADDR(BUFFER(0)))
#line 4029 "regression-compile-tmp/allimpc1-77.imp"
LPUT(3, ((PTR) << (2)), 0, _imp_ADDR(&BUFFER[0]));
                                                                //   4030           LDPTR=PTR
#line 4030 "regression-compile-tmp/allimpc1-77.imp"
LDPTR = PTR;
                                                                //   4031           %END
#line 4031 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOADDATA at level 3
                                                                //   4032           %ROUTINE DEFINE EP(%INTEGER MODE,NAME,ADR)
#line 4032 "regression-compile-tmp/allimpc1-77.imp"
void DEFINEEP( int MODE, int NAME, int ADR )
#line 4032 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4033           !%SHORTROUTINE
                                                                //   4034           %SHORTINTEGER HEAD
#line 4034 "regression-compile-tmp/allimpc1-77.imp"
short HEAD;
                                                                //   4035           %INTEGER JJ,KK,LENGTH,ID1,ID2,ID3
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int LENGTH;
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int ID1;
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int ID2;
#line 4035 "regression-compile-tmp/allimpc1-77.imp"
int ID3;
                                                                //   4036           %SWITCH SW(0:2)
#line 4036 "regression-compile-tmp/allimpc1-77.imp"
static int sw24_SW_idx;
static const void * /*SWITCH*/ sw24_SW[3] = { &&sw24_SW_0, &&sw24_SW_1, &&sw24_SW_2,  };
                                                                //   4037           KK=WORD(NAME)
#line 4037 "regression-compile-tmp/allimpc1-77.imp"
KK = WORD[NAME];
                                                                //   4038           HEAD=0;  ->SW(MODE)
#line 4038 "regression-compile-tmp/allimpc1-77.imp"
HEAD = 0;
#line 4038 "regression-compile-tmp/allimpc1-77.imp"
sw24_SW_idx = MODE; if ((0 <= sw24_SW_idx) && (sw24_SW_idx <= 2)) goto *sw24_SW[sw24_SW_idx]; else {
   /*_imp_signal(8, 2, sw24_SW_idx);*/
   fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:2 at %s:%d\n",
           sw24_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   4039  SW(0):   %COMMENT DEFINE S#GO
#line 4039 "regression-compile-tmp/allimpc1-77.imp"
sw24_SW_0:;
                                                                //   4040                                                          !! WARNING!!! The fact that these M'xxx' constants are 3 bytes, and
                                                                //   4041                                                          !! the length byte is plugged in below suggests that we are looking
                                                                //   4042                                                          !! at some big-endian-dependent code here!  Which might explain why
                                                                //   4043                                                          !! there are problems with the PRIMs.
                                                                //   4044           LENGTH=4; ID1=M'S#G'; ID2=M'O   '; ->L10
#line 4044 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = 4;
#line 4044 "regression-compile-tmp/allimpc1-77.imp"
ID1 = 5448519;
#line 4044 "regression-compile-tmp/allimpc1-77.imp"
ID2 = 1327505440;
#line 4044 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   4045           !!            ^^^^^^
                                                                //   4046  SW(1):   %COMMENT SYSTEM EP
#line 4046 "regression-compile-tmp/allimpc1-77.imp"
sw24_SW_1:;
                                                                //   4047           LENGTH=LETT(KK)+2
#line 4047 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = (((int)(LETT[KK])) + (2));
                                                                //   4048           ID1=M'S#A'; %CYCLE JJ=1,1,6
#line 4048 "regression-compile-tmp/allimpc1-77.imp"
ID1 = 5448513;
#line 4048 "regression-compile-tmp/allimpc1-77.imp"
JJ = 0;
if ((((6)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 6");
L_0521:;
if (JJ == 6) goto L_0522;
JJ += 1;
                                                                //   4049           !!  ^^^^^^
                                                                //   4050           BYTEINTEGER(ADDR(ID1)+JJ+2)=LETT(KK+JJ)
#line 4050 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&ID1))) + (JJ)))) + (2))) = LETT[(((int)(KK)) + (JJ))];
                                                                //   4051           %REPEAT; ->L10
#line 4051 "regression-compile-tmp/allimpc1-77.imp"
goto L_0521;
#line 4051 "regression-compile-tmp/allimpc1-77.imp"
L_0522:;
#line 4051 "regression-compile-tmp/allimpc1-77.imp"
goto U_105d;
                                                                //   4052  SW(2):   %COMMENT ENTRY TO EXTERNAL ROUTINE
#line 4052 "regression-compile-tmp/allimpc1-77.imp"
sw24_SW_2:;
                                                                //   4053           LENGTH=LETT(KK)
#line 4053 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = LETT[KK];
                                                                //   4054           %CYCLE JJ=1,1,8
#line 4054 "regression-compile-tmp/allimpc1-77.imp"
JJ = 0;
if ((((8)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 8");
L_0524:;
if (JJ == 8) goto L_0525;
JJ += 1;
                                                                //   4055           BYTE INTEGER(ADDR(ID1)+JJ)=LETT(KK+JJ)
#line 4055 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER((((int)(_imp_ADDR(&ID1))) + (JJ))) = LETT[(((int)(KK)) + (JJ))];
                                                                //   4056           %REPEAT
#line 4056 "regression-compile-tmp/allimpc1-77.imp"
goto L_0524;
#line 4056 "regression-compile-tmp/allimpc1-77.imp"
L_0525:;
                                                                //   4057  L10:      LENGTH=8 %IF LENGTH>8
#line 4057 "regression-compile-tmp/allimpc1-77.imp"
U_105d:;
#line 4057 "regression-compile-tmp/allimpc1-77.imp"
if (((LENGTH) <= (8))) goto L_0527;
#line 4057 "regression-compile-tmp/allimpc1-77.imp"
LENGTH = 8;
#line 4057 "regression-compile-tmp/allimpc1-77.imp"
L_0527:;
                                                                //   4058           BYTE INTEGER(ADDR(ID1))=LENGTH
#line 4058 "regression-compile-tmp/allimpc1-77.imp"
*_imp_BYTEINTEGER(_imp_ADDR(&ID1)) = LENGTH;
                                                                //   4059           %IF LENGTH>7 %THEN PUSH(HEAD,ID3,0)
#line 4059 "regression-compile-tmp/allimpc1-77.imp"
if (((LENGTH) <= (7))) goto L_0528;
#line 4059 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&HEAD, ID3, 0);
#line 4059 "regression-compile-tmp/allimpc1-77.imp"
L_0528:;
                                                                //   4060           %IF LENGTH>3 %THEN PUSH(HEAD,ID2,0)
#line 4060 "regression-compile-tmp/allimpc1-77.imp"
if (((LENGTH) <= (3))) goto L_0529;
#line 4060 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&HEAD, ID2, 0);
#line 4060 "regression-compile-tmp/allimpc1-77.imp"
L_0529:;
                                                                //   4061           PUSH(HEAD,ID1,LENGTH) ;       ! COMPLETE SIDE CHAIN
#line 4061 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&HEAD, ID1, LENGTH);
                                                                //   4062           PUSH(EPLINK,ADR,HEAD);        ! LINK TO MAIN LIST
#line 4062 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&EPLINK, ADR, HEAD);
                                                                //   4063           NEPS=NEPS+1
#line 4063 "regression-compile-tmp/allimpc1-77.imp"
NEPS = (((int)(NEPS)) + (1));
                                                                //   4064           %END
#line 4064 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFINEEP at level 3
                                                                //   4065         %ROUTINE     REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS)
#line 4065 "regression-compile-tmp/allimpc1-77.imp"
void REDEFINEEP( int TYPEP, int /*arrayname*/*PARAMS )
#line 4065 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4066           !%SHORTROUTINE
                                                                //   4067           %INTEGER JJ,KK;%SHORTINTEGER OPHEAD
#line 4067 "regression-compile-tmp/allimpc1-77.imp"
int JJ;
#line 4067 "regression-compile-tmp/allimpc1-77.imp"
int KK;
#line 4067 "regression-compile-tmp/allimpc1-77.imp"
short OPHEAD;
                                                                //   4068           JJ=N0;P=P-2;GXREF(A(P),'I')
#line 4068 "regression-compile-tmp/allimpc1-77.imp"
JJ = N0;
#line 4068 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) - (2));
#line 4068 "regression-compile-tmp/allimpc1-77.imp"
GXREF(A[((P) + ((int)(2)))], 73);
                                                                //   4069           K=NEWCELL;OPHEAD=K
#line 4069 "regression-compile-tmp/allimpc1-77.imp"
K = NEWCELL();
#line 4069 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = K;
                                                                //   4070           ->L1 %IF PARAMS(0)=0 ; %CYCLE KK=1,1,PARAMS(0)
#line 4070 "regression-compile-tmp/allimpc1-77.imp"
if (((PARAMS[0]) != (0))) goto L_052a;
#line 4070 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 4070 "regression-compile-tmp/allimpc1-77.imp"
L_052a:;
#line 4070 "regression-compile-tmp/allimpc1-77.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = PARAMS[0]; KK = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, PARAMS[0]");
KK -= _increment; _control -= _increment;
L_052b:;
if (KK == _final) goto L_052c;
KK += _increment; _control += _increment;
if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */
}
                                                                //   4071           INSERT AFTER(OPHEAD,PARAMS(KK),0)
#line 4071 "regression-compile-tmp/allimpc1-77.imp"
INSERTAFTER(&OPHEAD, PARAMS[KK], 0);
                                                                //   4072           %REPEAT
#line 4072 "regression-compile-tmp/allimpc1-77.imp"
goto L_052b;
#line 4072 "regression-compile-tmp/allimpc1-77.imp"
L_052c:;
                                                                //   4073  L1:       I=9;J=14;OLDI=0;PTYPE=TYPEP
#line 4073 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4073 "regression-compile-tmp/allimpc1-77.imp"
I = 9;
#line 4073 "regression-compile-tmp/allimpc1-77.imp"
J = 14;
#line 4073 "regression-compile-tmp/allimpc1-77.imp"
OLDI = 0;
#line 4073 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = TYPEP;
                                                                //   4074           REPLACE TAG(A(P));REPLACE BOTH(K,NR,PARAMS(0))
#line 4074 "regression-compile-tmp/allimpc1-77.imp"
REPLACETAG(A[((P) + ((int)(2)))]);
#line 4074 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(K, NR, PARAMS[0]);
                                                                //   4075           RA(NR)=JJ<<2;NR=NR+1
#line 4075 "regression-compile-tmp/allimpc1-77.imp"
RA[NR] = ((JJ) << (2));
#line 4075 "regression-compile-tmp/allimpc1-77.imp"
NR = (((int)(NR)) + (1));
                                                                //   4076           %END
#line 4076 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REDEFINEEP at level 3
                                                                //   4077           %INTEGERFN GET DBLE WRD
#line 4077 "regression-compile-tmp/allimpc1-77.imp"
int GETDBLEWRD( void )
#line 4077 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4078           !%SHORT %ROUTINE
                                                                //   4079           %COMMENT PRODUCES A DOUBLE WORD OF TEMPORARY SPACE
                                                                //   4080           %COMMENT COVERED BY CURRENT BASE REGISTER (RBASE)
                                                                //   4081           %INTEGER I,J
#line 4081 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 4081 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4082           POP(LWSP(LEVEL),I,J)
#line 4082 "regression-compile-tmp/allimpc1-77.imp"
POP(&LWSP[LEVEL], &I, &J);
                                                                //   4083           ->L3 %UNLESS I=-1
#line 4083 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == ((-1)))) goto L_052e;
#line 4083 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 4083 "regression-compile-tmp/allimpc1-77.imp"
L_052e:;
                                                                //   4084           ->L2 %IF N&7=0
#line 4084 "regression-compile-tmp/allimpc1-77.imp"
if (((((N) & (7))) != (0))) goto L_052f;
#line 4084 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4084 "regression-compile-tmp/allimpc1-77.imp"
L_052f:;
                                                                //   4085           PUSH(WSP(LEVEL),0,N);N=N+4
#line 4085 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&WSP[LEVEL], 0, N);
#line 4085 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (4));
                                                                //   4086  L2:       J=N;N=N+8
#line 4086 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4086 "regression-compile-tmp/allimpc1-77.imp"
J = N;
#line 4086 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (8));
                                                                //   4087  L3:       %RESULT =J
#line 4087 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4087 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return J;
                                                                //   4088           %END
#line 4088 "regression-compile-tmp/allimpc1-77.imp"
} // End of block GETDBLEWRD at level 3
                                                                //   4089           %INTEGERFN     GET STR WSP
#line 4089 "regression-compile-tmp/allimpc1-77.imp"
int GETSTRWSP( void )
#line 4089 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4090           !%SHORTROUTINE
                                                                //   4091           %INTEGER I,J
#line 4091 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 4091 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4092           POP(STR WSP(LEVEL),I,J)
#line 4092 "regression-compile-tmp/allimpc1-77.imp"
POP(&STRWSP[LEVEL], &I, &J);
                                                                //   4093           ->L2 %UNLESS J=-1
#line 4093 "regression-compile-tmp/allimpc1-77.imp"
if (((J) == ((-1)))) goto L_0530;
#line 4093 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 4093 "regression-compile-tmp/allimpc1-77.imp"
L_0530:;
                                                                //   4094           J=N; N=N+256
#line 4094 "regression-compile-tmp/allimpc1-77.imp"
J = N;
#line 4094 "regression-compile-tmp/allimpc1-77.imp"
N = (((int)(N)) + (256));
                                                                //   4095  L2:       %RESULT=J
#line 4095 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4095 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return J;
                                                                //   4096           %END
#line 4096 "regression-compile-tmp/allimpc1-77.imp"
} // End of block GETSTRWSP at level 3
                                                                //   4097           %ROUTINE SETEX
#line 4097 "regression-compile-tmp/allimpc1-77.imp"
void SETEX( void )
#line 4097 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4098           %RETURN %UNLESS STRINST=0
#line 4098 "regression-compile-tmp/allimpc1-77.imp"
if (((STRINST) == (0))) goto L_0531;
#line 4098 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 4098 "regression-compile-tmp/allimpc1-77.imp"
L_0531:;
                                                                //   4099           ST(N0)=X'D2001000'
#line 4099 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = (-771747840);
                                                                //   4100           ST(N0+1)=X'4000D500'
#line 4100 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (1))] = 1073796352;
                                                                //   4101           ST(N0+2)=X'20001000'
#line 4101 "regression-compile-tmp/allimpc1-77.imp"
ST[(((int)(N0)) + (2))] = 536875008;
                                                                //   4102           STRINST=N0<<2; N0=N0+3
#line 4102 "regression-compile-tmp/allimpc1-77.imp"
STRINST = ((N0) << (2));
#line 4102 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (3));
                                                                //   4103           %END
#line 4103 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETEX at level 3
                                                                //   4104                 %ROUTINE SETLINE
#line 4104 "regression-compile-tmp/allimpc1-77.imp"
void SETLINE( void )
#line 4104 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4105           !%SHORTROUTINE
                                                                //   4106           %INTEGER K
#line 4106 "regression-compile-tmp/allimpc1-77.imp"
int K;
                                                                //   4107           %OWNINTEGER VALUE
#line 4107 "regression-compile-tmp/allimpc1-77.imp"
static int VALUE;
                                                                //   4108           %RETURN %UNLESS LINENOS=1
#line 4108 "regression-compile-tmp/allimpc1-77.imp"
if (((LINENOS) == (1))) goto L_0532;
#line 4108 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 4108 "regression-compile-tmp/allimpc1-77.imp"
L_0532:;
                                                                //   4109           K=LINE&255
#line 4109 "regression-compile-tmp/allimpc1-77.imp"
K = ((LINE) & (255));
                                                                //   4110           MONE=1 %IF K=0
#line 4110 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != (0))) goto L_0533;
#line 4110 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
#line 4110 "regression-compile-tmp/allimpc1-77.imp"
L_0533:;
                                                                //   4111           PSI(X'92',K,GLA,23) %UNLESS K=VALUE %AND MONE=0
#line 4111 "regression-compile-tmp/allimpc1-77.imp"
if (((K) != (VALUE))) goto L_052d;
#line 4111 "regression-compile-tmp/allimpc1-77.imp"
if (((MONE) == (0))) goto L_0534;
#line 4111 "regression-compile-tmp/allimpc1-77.imp"
L_052d:;
#line 4111 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, K, GLA, 23);
#line 4111 "regression-compile-tmp/allimpc1-77.imp"
L_0534:;
                                                                //   4112           VALUE=K
#line 4112 "regression-compile-tmp/allimpc1-77.imp"
VALUE = K;
                                                                //   4113                 ->L9 %IF MONE=0
#line 4113 "regression-compile-tmp/allimpc1-77.imp"
if (((MONE) != (0))) goto L_0535;
#line 4113 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 4113 "regression-compile-tmp/allimpc1-77.imp"
L_0535:;
                                                                //   4114           PSI(X'92',LINE>>8,GLA,22);         ! MVI
#line 4114 "regression-compile-tmp/allimpc1-77.imp"
PSI(146, (int)((((unsigned int)(LINE)) >> (8))), GLA, 22);
                                                                //   4115  L9:       MONE=0; %END
#line 4115 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4115 "regression-compile-tmp/allimpc1-77.imp"
MONE = 0;
#line 4115 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETLINE at level 3
                                                                //   4116           %ROUTINE     CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)
#line 4116 "regression-compile-tmp/allimpc1-77.imp"
void CHECKCAPACITY( int REG, int DIS, int X, int LEVEL )
#line 4116 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4117           !%SHORTROUTINE
                                                                //   4118           %INTEGER MASK
#line 4118 "regression-compile-tmp/allimpc1-77.imp"
int MASK;
                                                                //   4119           %RETURN %UNLESS TYPE=1 %AND 1<=PREC<=2
#line 4119 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (1))) goto L_0536;
#line 4119 "regression-compile-tmp/allimpc1-77.imp"
if ((((1) > (PREC))) || (((PREC) <= (2)))) goto L_0537;
#line 4119 "regression-compile-tmp/allimpc1-77.imp"
L_0536:;
#line 4119 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 4119 "regression-compile-tmp/allimpc1-77.imp"
L_0537:;
                                                                //   4120           ->L3 %IF PREC=1;               ! %YTE
#line 4120 "regression-compile-tmp/allimpc1-77.imp"
if (((PREC) != (1))) goto L_0538;
#line 4120 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 4120 "regression-compile-tmp/allimpc1-77.imp"
L_0538:;
                                                                //   4121           MASK=7
#line 4121 "regression-compile-tmp/allimpc1-77.imp"
MASK = 7;
                                                                //   4122           PRX(X'49',REG,LEVEL,X,DIS);   ! CH REG,STORED VALUE
#line 4122 "regression-compile-tmp/allimpc1-77.imp"
PRX(73, REG, LEVEL, X, DIS);
                                                                //   4123  L1:       PRX(X'47',MASK,12,0,88); ->L99;          ! BC MASK,CAPACITY EXCE
#line 4123 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 4123 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, 12, 0, 88);
#line 4123 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   4124  L3:       PRX(X'55',REG,0,GLA,24);      ! CL_1,=F'255'
#line 4124 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4124 "regression-compile-tmp/allimpc1-77.imp"
PRX(85, REG, 0, GLA, 24);
                                                                //   4125           MASK=2; ->L1
#line 4125 "regression-compile-tmp/allimpc1-77.imp"
MASK = 2;
#line 4125 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
                                                                //   4126  L99:      %END
#line 4126 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4126 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHECKCAPACITY at level 3
                                                                //   4127  ! ******* LIST***PROCESSING***ROUTINES
                                                                //   4128  %COMMENT MACROISING  THE FROMS,REPLACES & MLINK SAVES TIME & SPACE;
                                                                //   4129  %COMMENT MACROISING  THE OTHERS SAVES TIME BUT INCREASES SIZE
                                                                //   4130           %ROUTINE FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2)
#line 4130 "regression-compile-tmp/allimpc1-77.imp"
void FROMLIST( int CELL, int /*name*/*S1, int /*name*/*S2 )
#line 4130 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4131           %INTEGER J
#line 4131 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4132           J=ADDR(ASLIST(CELL))
#line 4132 "regression-compile-tmp/allimpc1-77.imp"
J = _imp_ADDR(&ASLIST[CELL]);
                                                                //   4133           S1=INTEGER(J)
#line 4133 "regression-compile-tmp/allimpc1-77.imp"
*S1 = *_imp_INTEGER(J);
                                                                //   4134           S2= SHORT INTEGER(J+4)
#line 4134 "regression-compile-tmp/allimpc1-77.imp"
*S2 = *_imp_SHORTINTEGER((((int)(J)) + (4)));
                                                                //   4135           %END
#line 4135 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROMLIST at level 3
                                                                //   4136           %INTEGERFN NEW CELL
#line 4136 "regression-compile-tmp/allimpc1-77.imp"
int NEWCELL( void )
#line 4136 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4137           %INTEGER  P
#line 4137 "regression-compile-tmp/allimpc1-77.imp"
int P;
                                                                //   4138           P=ASL; FAULT(107) %IF P=0
#line 4138 "regression-compile-tmp/allimpc1-77.imp"
P = ASL;
#line 4138 "regression-compile-tmp/allimpc1-77.imp"
if (((P) != (0))) goto L_0539;
#line 4138 "regression-compile-tmp/allimpc1-77.imp"
FAULT(107);
#line 4138 "regression-compile-tmp/allimpc1-77.imp"
L_0539:;
                                                                //   4139           ASL= SHORT INTEGER(ADDR(ASLIST(P+6)));! NEXT FREE CELL
#line 4139 "regression-compile-tmp/allimpc1-77.imp"
ASL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(P)) + (6))]));
                                                                //   4140           SET SHORT INTEGER(ADDR(ASLIST(P+6)), 0);   ! LINK OF NEWCELL TO 0
#line 4140 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(P)) + (6))]), 0);
                                                                //   4141           %RESULT=P
#line 4141 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return P;
                                                                //   4142           %END
#line 4142 "regression-compile-tmp/allimpc1-77.imp"
} // End of block NEWCELL at level 3
                                                                //   4143           %ROUTINE PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)     ; ! Care needed with short conversion!
#line 4143 "regression-compile-tmp/allimpc1-77.imp"
void PUSH( short /*name*/*CELL, int S1, int S2 )
#line 4143 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4144           %INTEGER P,Q
#line 4144 "regression-compile-tmp/allimpc1-77.imp"
int P;
#line 4144 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4145           P=NEWCELL
#line 4145 "regression-compile-tmp/allimpc1-77.imp"
P = NEWCELL();
                                                                //   4146           Q=ADDR(ASLIST(P))
#line 4146 "regression-compile-tmp/allimpc1-77.imp"
Q = _imp_ADDR(&ASLIST[P]);
                                                                //   4147           INTEGER(Q)=S1
#line 4147 "regression-compile-tmp/allimpc1-77.imp"
*_imp_INTEGER(Q) = S1;
                                                                //   4148           SET SHORT INTEGER(Q+4, S2)
#line 4148 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(Q)) + (4)), S2);
                                                                //   4149           SET SHORT INTEGER(Q+6, CELL)
#line 4149 "regression-compile-tmp/allimpc1-77.imp"
SETSHORTINTEGER((((int)(Q)) + (6)), *CELL);
                                                                //   4150           CELL=P
#line 4150 "regression-compile-tmp/allimpc1-77.imp"
*CELL = P;
                                                                //   4151           %END
#line 4151 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUSH at level 3
                                                                //   4152           %ROUTINE POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)
#line 4152 "regression-compile-tmp/allimpc1-77.imp"
void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 )
#line 4152 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4153           %INTEGER P,Q
#line 4153 "regression-compile-tmp/allimpc1-77.imp"
int P;
#line 4153 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4154           Q=ADDR(ASLIST(CELL))
#line 4154 "regression-compile-tmp/allimpc1-77.imp"
Q = _imp_ADDR(&ASLIST[*CELL]);
                                                                //   4155           S1=INTEGER(Q)
#line 4155 "regression-compile-tmp/allimpc1-77.imp"
*S1 = *_imp_INTEGER(Q);
                                                                //   4156           S2=SHORT INTEGER(Q+4)
#line 4156 "regression-compile-tmp/allimpc1-77.imp"
*S2 = *_imp_SHORTINTEGER((((int)(Q)) + (4)));
                                                                //   4157           ->L1 %IF CELL=0;              ! LIST ALREADY EMPTY
#line 4157 "regression-compile-tmp/allimpc1-77.imp"
if (((*CELL) != (0))) goto L_053a;
#line 4157 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 4157 "regression-compile-tmp/allimpc1-77.imp"
L_053a:;
                                                                //   4158           P=CELL; CELL=SHORT INTEGER(Q+6);! CELL ONTO NEXT CELL
#line 4158 "regression-compile-tmp/allimpc1-77.imp"
P = *CELL;
#line 4158 "regression-compile-tmp/allimpc1-77.imp"
*CELL = *_imp_SHORTINTEGER((((int)(Q)) + (6)));
                                                                //   4159           SHORT INTEGER(Q+6)=ASL; ASL=P;! OLD CELL ONTO FREE LIST
#line 4159 "regression-compile-tmp/allimpc1-77.imp"
*_imp_SHORTINTEGER((((int)(Q)) + (6))) = ASL;
#line 4159 "regression-compile-tmp/allimpc1-77.imp"
ASL = P;
                                                                //   4160  L1:       %END
#line 4160 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4160 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POP at level 3
                                                                //   4161           %ROUTINE     REPLACE1(%INTEGER CELL,S1)
#line 4161 "regression-compile-tmp/allimpc1-77.imp"
void REPLACE1( int CELL, int S1 )
#line 4161 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4162           INTEGER(ADDR(ASLIST(CELL)))=S1
#line 4162 "regression-compile-tmp/allimpc1-77.imp"
*_imp_INTEGER(_imp_ADDR(&ASLIST[CELL])) = S1;
                                                                //   4163           %END
#line 4163 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE1 at level 3
                                                                //   4164           %ROUTINE     REPLACE2(%INTEGER CELL,S2)
#line 4164 "regression-compile-tmp/allimpc1-77.imp"
void REPLACE2( int CELL, int S2 )
#line 4164 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4165           SHORT INTEGER(ADDR(ASLIST(CELL+4)))=S2
#line 4165 "regression-compile-tmp/allimpc1-77.imp"
*_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (4))])) = S2;
                                                                //   4166           %END
#line 4166 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACE2 at level 3
                                                                //   4167           %ROUTINE     MLINK(%INTEGERNAME CELL)
#line 4167 "regression-compile-tmp/allimpc1-77.imp"
void MLINK( int /*name*/*CELL )
#line 4167 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4168           CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6)))
#line 4168 "regression-compile-tmp/allimpc1-77.imp"
*CELL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))]));
                                                                //   4169           %END
#line 4169 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block MLINK at level 3
                                                                //   4170           %ROUTINE INSERT AFTER(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
#line 4170 "regression-compile-tmp/allimpc1-77.imp"
void INSERTAFTER( short /*name*/*CELL, int S1, int S2 )
#line 4170 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4171           ->L1 %IF CELL=0
#line 4171 "regression-compile-tmp/allimpc1-77.imp"
if (((*CELL) != (0))) goto L_053b;
#line 4171 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4171 "regression-compile-tmp/allimpc1-77.imp"
L_053b:;
                                                                //   4172           PUSH(SHORT INTEGER(ADDR(ASLIST(CELL+6))),S1,S2)
#line 4172 "regression-compile-tmp/allimpc1-77.imp"
PUSH(_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))])), S1, S2);
                                                                //   4173           CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6)))
#line 4173 "regression-compile-tmp/allimpc1-77.imp"
*CELL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))]));
                                                                //   4174           %RETURN
#line 4174 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4175  L1:       PUSH(CELL,S1,S2)
#line 4175 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4175 "regression-compile-tmp/allimpc1-77.imp"
PUSH(CELL, S1, S2);
                                                                //   4176           %END
#line 4176 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block INSERTAFTER at level 3
                                                                //   4177           %INTEGERFN     FIND(%INTEGER LAB,LIST)
#line 4177 "regression-compile-tmp/allimpc1-77.imp"
int FIND( int LAB, int LIST )
#line 4177 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4178  L3:       ->L1 %IF LIST=0
#line 4178 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4178 "regression-compile-tmp/allimpc1-77.imp"
if (((LIST) != (0))) goto L_053c;
#line 4178 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4178 "regression-compile-tmp/allimpc1-77.imp"
L_053c:;
                                                                //   4179           ->L4 %IF SHORT INTEGER(ADDR(ASLIST(LIST+4)))=LAB
#line 4179 "regression-compile-tmp/allimpc1-77.imp"
if (((*_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(LIST)) + (4))]))) != (LAB))) goto L_053d;
#line 4179 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
#line 4179 "regression-compile-tmp/allimpc1-77.imp"
L_053d:;
                                                                //   4180           MLINK(LIST); ->L3
#line 4180 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&LIST);
#line 4180 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   4181  L4:       %RESULT=INTEGER(ADDR(ASLIST(LIST)))
#line 4181 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 4181 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return *_imp_INTEGER(_imp_ADDR(&ASLIST[LIST]));
                                                                //   4182  L1:       %RESULT =-1
#line 4182 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4182 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return (-1);
                                                                //   4183           %END
#line 4183 "regression-compile-tmp/allimpc1-77.imp"
} // End of block FIND at level 3
                                                                //   4184           %ROUTINE     FROM1(%INTEGER CELL,%INTEGERNAME S1)
#line 4184 "regression-compile-tmp/allimpc1-77.imp"
void FROM1( int CELL, int /*name*/*S1 )
#line 4184 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4185           S1=INTEGER(ADDR(ASLIST(CELL)))
#line 4185 "regression-compile-tmp/allimpc1-77.imp"
*S1 = *_imp_INTEGER(_imp_ADDR(&ASLIST[CELL]));
                                                                //   4186           %END
#line 4186 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROM1 at level 3
                                                                //   4187           %ROUTINE     FROM2(%INTEGER CELL,%INTEGERNAME S2)
#line 4187 "regression-compile-tmp/allimpc1-77.imp"
void FROM2( int CELL, int /*name*/*S2 )
#line 4187 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4188           S2=SHORT INTEGER(ADDR(ASLIST(CELL+4)))
#line 4188 "regression-compile-tmp/allimpc1-77.imp"
*S2 = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (4))]));
                                                                //   4189           %END
#line 4189 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FROM2 at level 3
                                                                //   4190           %ROUTINE     REPLACE BOTH(%INTEGER CELL,S1,S2)
#line 4190 "regression-compile-tmp/allimpc1-77.imp"
void REPLACEBOTH( int CELL, int S1, int S2 )
#line 4190 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4191           %INTEGER I
#line 4191 "regression-compile-tmp/allimpc1-77.imp"
int I;
                                                                //   4192           I=ADDR(ASLIST(CELL))
#line 4192 "regression-compile-tmp/allimpc1-77.imp"
I = _imp_ADDR(&ASLIST[CELL]);
                                                                //   4193           INTEGER(I)=S1
#line 4193 "regression-compile-tmp/allimpc1-77.imp"
*_imp_INTEGER(I) = S1;
                                                                //   4194           SHORT INTEGER(I+4)=S2
#line 4194 "regression-compile-tmp/allimpc1-77.imp"
*_imp_SHORTINTEGER((((int)(I)) + (4))) = S2;
                                                                //   4195           %END
#line 4195 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACEBOTH at level 3
                                                                //   4196           %ROUTINE CLEAR LIST (%SHORTINTEGERNAME OPHEAD)
#line 4196 "regression-compile-tmp/allimpc1-77.imp"
void CLEARLIST( short /*name*/*OPHEAD )
#line 4196 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4197           %INTEGER I,J
#line 4197 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 4197 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4198  L1:       POP(OPHEAD,I,J)
#line 4198 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4198 "regression-compile-tmp/allimpc1-77.imp"
POP(OPHEAD, &I, &J);
                                                                //   4199           ->L1 %UNLESS I=-1
#line 4199 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == ((-1)))) goto L_053e;
#line 4199 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4199 "regression-compile-tmp/allimpc1-77.imp"
L_053e:;
                                                                //   4200           %END
#line 4200 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLEARLIST at level 3
                                                                //   4201  ! ************END****OF****LIST****PROCESSING ROUTINES
                                                                //   4202           %ROUTINE     STORE TAG(%INTEGER KK,SLINK)
#line 4202 "regression-compile-tmp/allimpc1-77.imp"
void STORETAG( int KK, int SLINK )
#line 4202 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4203           PUSH(TAGS(KK),PTYPE<<16!LEVEL<<8!RBASE<<4!J,SLINK)
#line 4203 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&TAGS[KK], ((((((((PTYPE) << (16))) | (((LEVEL) << (8))))) | (((RBASE) << (4))))) | (J)), SLINK);
                                                                //   4204           PUSH(NAME(LEVEL),0,KK) %UNLESS LEVEL<=1
#line 4204 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) <= (1))) goto L_053f;
#line 4204 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&NAME[LEVEL], 0, KK);
#line 4204 "regression-compile-tmp/allimpc1-77.imp"
L_053f:;
                                                                //   4205           %END
#line 4205 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block STORETAG at level 3
                                                                //   4206           %INTEGERFN     COUNT APS
#line 4206 "regression-compile-tmp/allimpc1-77.imp"
int COUNTAPS( void )
#line 4206 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4207           %INTEGER PP,Q
#line 4207 "regression-compile-tmp/allimpc1-77.imp"
int PP;
#line 4207 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4208           Q=0; PP=P; P=P+1;             ! P ON NAME AT ENTRY
#line 4208 "regression-compile-tmp/allimpc1-77.imp"
Q = 0;
#line 4208 "regression-compile-tmp/allimpc1-77.imp"
PP = P;
#line 4208 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
                                                                //   4209  L1:       ->L2 %IF A(P)=2
#line 4209 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4209 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0540;
#line 4209 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4209 "regression-compile-tmp/allimpc1-77.imp"
L_0540:;
                                                                //   4210        P=P+1; Q=Q+1; SKIP EXP; ->L1
#line 4210 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 4210 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) + (1));
#line 4210 "regression-compile-tmp/allimpc1-77.imp"
SKIPEXP();
#line 4210 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
                                                                //   4211  L2:       P=PP; %RESULT=Q
#line 4211 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4211 "regression-compile-tmp/allimpc1-77.imp"
P = PP;
#line 4211 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return Q;
                                                                //   4212           %END
#line 4212 "regression-compile-tmp/allimpc1-77.imp"
} // End of block COUNTAPS at level 3
                                                                //   4213           %INTEGERFN     DISPLACEMENT(%INTEGER LINK)
#line 4213 "regression-compile-tmp/allimpc1-77.imp"
int DISPLACEMENT( int LINK )
#line 4213 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4214           !%SHORTROUTINE
                                                                //   4215  ! A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP FROM
                                                                //   4216  ! START OF RECORD FOR SCALAR DISP OF DV FROM RECORD FORMAT FOR ARRAY
                                                                //   4217           %INTEGER RR,II
#line 4217 "regression-compile-tmp/allimpc1-77.imp"
int RR;
#line 4217 "regression-compile-tmp/allimpc1-77.imp"
int II;
                                                                //   4218           ->L2 %IF LINK=0
#line 4218 "regression-compile-tmp/allimpc1-77.imp"
if (((LINK) != (0))) goto L_0541;
#line 4218 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4218 "regression-compile-tmp/allimpc1-77.imp"
L_0541:;
                                                                //   4219           FROM2(LINK,LINK)
#line 4219 "regression-compile-tmp/allimpc1-77.imp"
FROM2(LINK, &LINK);
                                                                //   4220  L1:       MLINK(LINK); FROM LIST(LINK,RR,II)
#line 4220 "regression-compile-tmp/allimpc1-77.imp"
U_1079:;
#line 4220 "regression-compile-tmp/allimpc1-77.imp"
MLINK(&LINK);
#line 4220 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(LINK, &RR, &II);
                                                                //   4221           ->L2 %IF II=-1
#line 4221 "regression-compile-tmp/allimpc1-77.imp"
if (((II) != ((-1)))) goto L_0542;
#line 4221 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
#line 4221 "regression-compile-tmp/allimpc1-77.imp"
L_0542:;
                                                                //   4222           J=RR&15;PTYPE=RR>>4&X'FFFF'
#line 4222 "regression-compile-tmp/allimpc1-77.imp"
J = ((RR) & (15));
#line 4222 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = (((int)((((unsigned int)(RR)) >> (4)))) & (65535));
                                                                //   4223           RR=RR>>20;K=LINK
#line 4223 "regression-compile-tmp/allimpc1-77.imp"
RR = (int)((((unsigned int)(RR)) >> (20)));
#line 4223 "regression-compile-tmp/allimpc1-77.imp"
K = LINK;
                                                                //   4224           INREG=0
#line 4224 "regression-compile-tmp/allimpc1-77.imp"
INREG = 0;
                                                                //   4225           ->L99 %IF RR=A(P); ->L1
#line 4225 "regression-compile-tmp/allimpc1-77.imp"
if (((RR) != (A[((P) + ((int)(2)))]))) goto L_0543;
#line 4225 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 4225 "regression-compile-tmp/allimpc1-77.imp"
L_0543:;
#line 4225 "regression-compile-tmp/allimpc1-77.imp"
goto U_1079;
                                                                //   4226  L2:       FAULT(65); PRINT NAME(A(P))
#line 4226 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4226 "regression-compile-tmp/allimpc1-77.imp"
FAULT(65);
#line 4226 "regression-compile-tmp/allimpc1-77.imp"
PRINTNAME(A[((P) + ((int)(2)))]);
                                                                //   4227           PTYPE=1
#line 4227 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 1;
                                                                //   4228  L99:      %RESULT=II
#line 4228 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4228 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return II;
                                                                //   4229           %END
#line 4229 "regression-compile-tmp/allimpc1-77.imp"
} // End of block DISPLACEMENT at level 3
                                                                //   4230           %INTEGERFN     COPY RECORD TAG
#line 4230 "regression-compile-tmp/allimpc1-77.imp"
int COPYRECORDTAG( void )
#line 4230 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4231           !%SHORTROUTINE
                                                                //   4232           ! AS COPY TAG-GIVES TYNE ETC OF THE ENAME
                                                                //   4233           !P POINTS TO RECORD NAME
                                                                //   4234           %INTEGER Q,FNAME
#line 4234 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 4234 "regression-compile-tmp/allimpc1-77.imp"
int FNAME;
                                                                //   4235           ! K POINT TO SIDE CHAIN
                                                                //   4236  L1:       FROM1(K,FNAME)
#line 4236 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4236 "regression-compile-tmp/allimpc1-77.imp"
FROM1(K, &FNAME);
                                                                //   4237           P=P+1; SKIP APP
#line 4237 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 4237 "regression-compile-tmp/allimpc1-77.imp"
SKIPAPP();
                                                                //   4238           %RESULT=0 %IF A(P)=2
#line 4238 "regression-compile-tmp/allimpc1-77.imp"
if (((A[((P) + ((int)(2)))]) != (2))) goto L_0544;
#line 4238 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 4238 "regression-compile-tmp/allimpc1-77.imp"
L_0544:;
                                                                //   4239           P=P+1; Q=DISPLACEMENT (FNAME)
#line 4239 "regression-compile-tmp/allimpc1-77.imp"
P = (((int)(P)) + (1));
#line 4239 "regression-compile-tmp/allimpc1-77.imp"
Q = DISPLACEMENT(FNAME);
                                                                //   4240           PTYPE=7 %IF Q=-1
#line 4240 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((-1)))) goto L_0545;
#line 4240 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 7;
#line 4240 "regression-compile-tmp/allimpc1-77.imp"
L_0545:;
                                                                //   4241           UNPACK
#line 4241 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   4242           %IF TYPE=3 %THEN %START
#line 4242 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) != (3))) goto L_0546;
                                                                //   4243           K=Q; ->L1; %FINISH
#line 4243 "regression-compile-tmp/allimpc1-77.imp"
K = Q;
#line 4243 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 4243 "regression-compile-tmp/allimpc1-77.imp"
L_0546:;
                                                                //   4244           %RESULT=-1 %IF Q=-1
#line 4244 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((-1)))) goto L_0547;
#line 4244 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return (-1);
#line 4244 "regression-compile-tmp/allimpc1-77.imp"
L_0547:;
                                                                //   4245           %RESULT=1
#line 4245 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   4246           %END
#line 4246 "regression-compile-tmp/allimpc1-77.imp"
} // End of block COPYRECORDTAG at level 3
                                                                //   4247           %ROUTINE COPY TAG(%INTEGER KK)
#line 4247 "regression-compile-tmp/allimpc1-77.imp"
void COPYTAG( int KK )
#line 4247 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4248           %INTEGER Q
#line 4248 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4249           FROM LIST(TAGS(KK),Q,K)
#line 4249 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(TAGS[KK], &Q, &K);
                                                                //   4250           ->NOTSET %IF Q=-1
#line 4250 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) != ((-1)))) goto L_0548;
#line 4250 "regression-compile-tmp/allimpc1-77.imp"
goto U_106b;
#line 4250 "regression-compile-tmp/allimpc1-77.imp"
L_0548:;
                                                                //   4251           PTYPE=Q>>16
#line 4251 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = (int)((((unsigned int)(Q)) >> (16)));
                                                                //   4252           INREG=Q>>12&15
#line 4252 "regression-compile-tmp/allimpc1-77.imp"
INREG = (((int)((((unsigned int)(Q)) >> (12)))) & (15));
                                                                //   4253           OLDI=Q>>8&15
#line 4253 "regression-compile-tmp/allimpc1-77.imp"
OLDI = (((int)((((unsigned int)(Q)) >> (8)))) & (15));
                                                                //   4254           I=Q>>4&15
#line 4254 "regression-compile-tmp/allimpc1-77.imp"
I = (((int)((((unsigned int)(Q)) >> (4)))) & (15));
                                                                //   4255           J=Q&15
#line 4255 "regression-compile-tmp/allimpc1-77.imp"
J = ((Q) & (15));
                                                                //   4256  L1:       UNPACK
#line 4256 "regression-compile-tmp/allimpc1-77.imp"
U_106c:;
#line 4256 "regression-compile-tmp/allimpc1-77.imp"
UNPACK();
                                                                //   4257           %RETURN
#line 4257 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   4258  NOTSET:  PTYPE=7
#line 4258 "regression-compile-tmp/allimpc1-77.imp"
U_106b:;
#line 4258 "regression-compile-tmp/allimpc1-77.imp"
PTYPE = 7;
                                                                //   4259           I=-1; J=I; OLDI=J; ->L1
#line 4259 "regression-compile-tmp/allimpc1-77.imp"
I = (-1);
#line 4259 "regression-compile-tmp/allimpc1-77.imp"
J = I;
#line 4259 "regression-compile-tmp/allimpc1-77.imp"
OLDI = J;
#line 4259 "regression-compile-tmp/allimpc1-77.imp"
goto U_106c;
                                                                //   4260           %END
#line 4260 "regression-compile-tmp/allimpc1-77.imp"
return;
} // End of block COPYTAG at level 3
                                                                //   4261                 %ROUTINE REPLACE TAG (%INTEGER KK)
#line 4261 "regression-compile-tmp/allimpc1-77.imp"
void REPLACETAG( int KK )
#line 4261 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4262           !%SHORTROUTINE
                                                                //   4263           %INTEGER P,Q
#line 4263 "regression-compile-tmp/allimpc1-77.imp"
int P;
#line 4263 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4264                 P=TAGS(KK)
#line 4264 "regression-compile-tmp/allimpc1-77.imp"
P = TAGS[KK];
                                                                //   4265           Q=PTYPE<<16!INREG<<12!OLDI<<8!I<<4!J
#line 4265 "regression-compile-tmp/allimpc1-77.imp"
Q = ((((((((((PTYPE) << (16))) | (((INREG) << (12))))) | (((OLDI) << (8))))) | (((I) << (4))))) | (J));
                                                                //   4266           REPLACE BOTH(P,Q,K)
#line 4266 "regression-compile-tmp/allimpc1-77.imp"
REPLACEBOTH(P, Q, K);
                                                                //   4267                 %END
#line 4267 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REPLACETAG at level 3
                                                                //   4268           %ROUTINE UNPACK
#line 4268 "regression-compile-tmp/allimpc1-77.imp"
void UNPACK( void )
#line 4268 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4269           %INTEGER Q
#line 4269 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4270           ROUT=PTYPE//10000
#line 4270 "regression-compile-tmp/allimpc1-77.imp"
ROUT = (long)((long)((int)(PTYPE)) / (long)((int)(10000)));
                                                                //   4271           Q=PTYPE-10000*ROUT
#line 4271 "regression-compile-tmp/allimpc1-77.imp"
Q = ((PTYPE) - ((int)(((10000) * ((int)(ROUT))))));
                                                                //   4272           NAM=Q//1000
#line 4272 "regression-compile-tmp/allimpc1-77.imp"
NAM = (long)((long)((int)(Q)) / (long)((int)(1000)));
                                                                //   4273           Q=Q-1000*NAM
#line 4273 "regression-compile-tmp/allimpc1-77.imp"
Q = ((Q) - ((int)(((1000) * ((int)(NAM))))));
                                                                //   4274           ARR=Q//100
#line 4274 "regression-compile-tmp/allimpc1-77.imp"
ARR = (long)((long)((int)(Q)) / (long)((int)(100)));
                                                                //   4275           Q=Q-100*ARR
#line 4275 "regression-compile-tmp/allimpc1-77.imp"
Q = ((Q) - ((int)(((100) * ((int)(ARR))))));
                                                                //   4276           PREC=Q//10
#line 4276 "regression-compile-tmp/allimpc1-77.imp"
PREC = (long)((long)((int)(Q)) / (long)((int)(10)));
                                                                //   4277           TYPE=Q-10*PREC
#line 4277 "regression-compile-tmp/allimpc1-77.imp"
TYPE = ((Q) - ((int)(((10) * ((int)(PREC))))));
                                                                //   4278           %END
#line 4278 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block UNPACK at level 3
                                                                //   4279           %ROUTINE     PACK(%INTEGERNAME PTYPE)
#line 4279 "regression-compile-tmp/allimpc1-77.imp"
void PACK( int /*name*/*PTYPE )
#line 4279 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4280           %INTEGER Q
#line 4280 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4281           Q=10000*ROUT+1000*NAM+100*ARR
#line 4281 "regression-compile-tmp/allimpc1-77.imp"
Q = ((((((((10000) * ((int)(ROUT))))) + (((1000) * ((int)(NAM))))))) + (((100) * ((int)(ARR)))));
                                                                //   4282           PTYPE=Q+10*PREC+TYPE
#line 4282 "regression-compile-tmp/allimpc1-77.imp"
*PTYPE = (((unsigned char)(((Q) + ((int)(((10) * ((int)(PREC)))))))) + (TYPE));
                                                                //   4283           %END
#line 4283 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PACK at level 3
                                                                //   4284  !************* LABEL ***** AND**** JUMP **** ROUTINES*************
                                                                //   4285           %ROUTINE     PPJ(%BYTEINTEGER N)
#line 4285 "regression-compile-tmp/allimpc1-77.imp"
void PPJ( unsigned char N )
#line 4285 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4286           R13=0; PCONST(X'45F0C000'!N<<2);   ! BAL LINP,PLAB N
#line 4286 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
#line 4286 "regression-compile-tmp/allimpc1-77.imp"
PCONST(((1173405696) | (((N) << (2)))));
                                                                //   4287                 %END
#line 4287 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PPJ at level 3
                                                                //   4288           %INTEGERFN     PAGENO(%INTEGER N)
#line 4288 "regression-compile-tmp/allimpc1-77.imp"
int PAGENO( int N )
#line 4288 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4289           %INTEGER I,J
#line 4289 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 4289 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4290           J=N>>12; I=PAGENOS(J)
#line 4290 "regression-compile-tmp/allimpc1-77.imp"
J = (int)((((unsigned int)(N)) >> (12)));
#line 4290 "regression-compile-tmp/allimpc1-77.imp"
I = PAGENOS[J];
                                                                //   4291           %RESULT=I %UNLESS I=0
#line 4291 "regression-compile-tmp/allimpc1-77.imp"
if (((I) == (0))) goto L_0549;
#line 4291 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return I;
#line 4291 "regression-compile-tmp/allimpc1-77.imp"
L_0549:;
                                                                //   4292           ST(N0)=J<<12
#line 4292 "regression-compile-tmp/allimpc1-77.imp"
ST[N0] = ((J) << (12));
                                                                //   4293           PAGENOS(J)=N0
#line 4293 "regression-compile-tmp/allimpc1-77.imp"
PAGENOS[J] = N0;
                                                                //   4294           N0=N0+1
#line 4294 "regression-compile-tmp/allimpc1-77.imp"
N0 = (((int)(N0)) + (1));
                                                                //   4295           %RESULT=N0-1
#line 4295 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return (((int)(N0)) - (1));
                                                                //   4296           %END
#line 4296 "regression-compile-tmp/allimpc1-77.imp"
} // End of block PAGENO at level 3
                                                                //   4297           %ROUTINE FILL JUMPS(%INTEGER LEVEL)
#line 4297 "regression-compile-tmp/allimpc1-77.imp"
void FILLJUMPS( int LEVEL )
#line 4297 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4298           !%SHORTROUTINE
                                                                //   4299           %INTEGER J,K,Q,KK
#line 4299 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 4299 "regression-compile-tmp/allimpc1-77.imp"
int K;
#line 4299 "regression-compile-tmp/allimpc1-77.imp"
int Q;
#line 4299 "regression-compile-tmp/allimpc1-77.imp"
int KK;
                                                                //   4300           OPHEAD=0
#line 4300 "regression-compile-tmp/allimpc1-77.imp"
OPHEAD = 0;
                                                                //   4301  L1:       POP(JUMP(LEVEL),J,K); ->L3 %IF J=-1
#line 4301 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4301 "regression-compile-tmp/allimpc1-77.imp"
POP(&JUMP[LEVEL], &J, &K);
#line 4301 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_054a;
#line 4301 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 4301 "regression-compile-tmp/allimpc1-77.imp"
L_054a:;
                                                                //   4302           Q=FIND(K,LABEL(LEVEL))
#line 4302 "regression-compile-tmp/allimpc1-77.imp"
Q = FIND(K, LABEL[LEVEL]);
                                                                //   4303           ->L2 %UNLESS Q=-1;
#line 4303 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) == ((-1)))) goto L_054b;
#line 4303 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 4303 "regression-compile-tmp/allimpc1-77.imp"
L_054b:;
                                                                //   4304           PUSH(OPHEAD,J,K); ->L1
#line 4304 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&OPHEAD, J, K);
#line 4304 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
                                                                //   4305  L2:       KK=0
#line 4305 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4305 "regression-compile-tmp/allimpc1-77.imp"
KK = 0;
                                                                //   4306           Q=Q-CODEBASE(LEVEL); K=Q>>12
#line 4306 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(Q)) - (CODEBASE[LEVEL]));
#line 4306 "regression-compile-tmp/allimpc1-77.imp"
K = (int)((((unsigned int)(Q)) >> (12)));
                                                                //   4307           ->L22 %IF J&LABSET#0
#line 4307 "regression-compile-tmp/allimpc1-77.imp"
if (((((J) & (LABSET))) == (0))) goto L_054c;
#line 4307 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 4307 "regression-compile-tmp/allimpc1-77.imp"
L_054c:;
                                                                //   4308           ->L23 %IF SBFLAG=1
#line 4308 "regression-compile-tmp/allimpc1-77.imp"
if (((SBFLAG) != (1))) goto L_054d;
#line 4308 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 4308 "regression-compile-tmp/allimpc1-77.imp"
L_054d:;
                                                                //   4309           PLUG(J,X'58E0')
#line 4309 "regression-compile-tmp/allimpc1-77.imp"
PLUG(J, 22752);
                                                                //   4310           PLUG(J+2,GLA<<12!4*PAGENO(Q)); J=J+4
#line 4310 "regression-compile-tmp/allimpc1-77.imp"
PLUG((((int)(J)) + (2)), ((((GLA) << (12))) | ((((int)(4)) * (PAGENO(Q))))));
#line 4310 "regression-compile-tmp/allimpc1-77.imp"
J = (((int)(J)) + (4));
                                                                //   4311           KK=14 %UNLESS K=0
#line 4311 "regression-compile-tmp/allimpc1-77.imp"
if (((K) == (0))) goto L_054e;
#line 4311 "regression-compile-tmp/allimpc1-77.imp"
KK = 14;
#line 4311 "regression-compile-tmp/allimpc1-77.imp"
L_054e:;
                                                                //   4312  L21:      PLUG(J+2,KK<<12!Q&X'FFF'); ->L1
#line 4312 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 4312 "regression-compile-tmp/allimpc1-77.imp"
PLUG((((int)(J)) + (2)), ((((KK) << (12))) | (((Q) & (4095)))));
#line 4312 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
                                                                //   4313  L22:      J=J&X'FFFFFF'; KK=10
#line 4313 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 4313 "regression-compile-tmp/allimpc1-77.imp"
J = ((J) & (16777215));
#line 4313 "regression-compile-tmp/allimpc1-77.imp"
KK = 10;
                                                                //   4314  L23:      FAULT(99) %IF Q>4095; ->L21
#line 4314 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 4314 "regression-compile-tmp/allimpc1-77.imp"
if (((Q) <= (4095))) goto L_054f;
#line 4314 "regression-compile-tmp/allimpc1-77.imp"
FAULT(99);
#line 4314 "regression-compile-tmp/allimpc1-77.imp"
L_054f:;
#line 4314 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   4315  L3:       JUMP(LEVEL)=OPHEAD
#line 4315 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 4315 "regression-compile-tmp/allimpc1-77.imp"
JUMP[LEVEL] = OPHEAD;
                                                                //   4316           %END
#line 4316 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FILLJUMPS at level 3
                                                                //   4317           %ROUTINE PJ(%INTEGER MASK,LAB)
#line 4317 "regression-compile-tmp/allimpc1-77.imp"
void PJ( int MASK, int LAB )
#line 4317 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4318           !%SHORTROUTINE
                                                                //   4319           %INTEGER I,J,Q
#line 4319 "regression-compile-tmp/allimpc1-77.imp"
int I;
#line 4319 "regression-compile-tmp/allimpc1-77.imp"
int J;
#line 4319 "regression-compile-tmp/allimpc1-77.imp"
int Q;
                                                                //   4320           J=FIND(LAB,LABEL(LEVEL)); ->L200 %IF J=-1
#line 4320 "regression-compile-tmp/allimpc1-77.imp"
J = FIND(LAB, LABEL[LEVEL]);
#line 4320 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != ((-1)))) goto L_0550;
#line 4320 "regression-compile-tmp/allimpc1-77.imp"
goto U_1078;
#line 4320 "regression-compile-tmp/allimpc1-77.imp"
L_0550:;
                                                                //   4321           I=J-CODEBASE(LEVEL); ->L50 %IF I>=4096
#line 4321 "regression-compile-tmp/allimpc1-77.imp"
I = (((int)(J)) - (CODEBASE[LEVEL]));
#line 4321 "regression-compile-tmp/allimpc1-77.imp"
if (((I) < (4096))) goto L_0551;
#line 4321 "regression-compile-tmp/allimpc1-77.imp"
goto U_1058;
#line 4321 "regression-compile-tmp/allimpc1-77.imp"
L_0551:;
                                                                //   4322           PRX(X'47',MASK,0,10,I); ->L999;!     BC MASK,I(10,0)
#line 4322 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, 0, 10, I);
#line 4322 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   4323  L50:      Q=4*PAGENO(I);                ! DISPLACEMENT OF MULTIPLE OF 4K
#line 4323 "regression-compile-tmp/allimpc1-77.imp"
U_1058:;
#line 4323 "regression-compile-tmp/allimpc1-77.imp"
Q = (((int)(4)) * (PAGENO(I)));
                                                                //   4324           PCONST(X'58E0D000'!Q);        ! L 14,Q(GLA)
#line 4324 "regression-compile-tmp/allimpc1-77.imp"
PCONST(((1491128320) | (Q)));
                                                                //   4325           PRX(X'47',MASK,14,10,I&4095); ->L999;! BC MASK,?(10,14)
#line 4325 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, 14, 10, ((I) & (4095)));
#line 4325 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
                                                                //   4326  L200:     PUSH(JUMP(LEVEL),CA,LAB); PCONST(0) %UNLESS SBFLAG=1
#line 4326 "regression-compile-tmp/allimpc1-77.imp"
U_1078:;
#line 4326 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&JUMP[LEVEL], CA, LAB);
#line 4326 "regression-compile-tmp/allimpc1-77.imp"
if (((SBFLAG) == (1))) goto L_0552;
#line 4326 "regression-compile-tmp/allimpc1-77.imp"
PCONST(0);
#line 4326 "regression-compile-tmp/allimpc1-77.imp"
L_0552:;
                                                                //   4327           PRX(X'47',MASK,10,0,0);       ! BC MASK,?(10,?)
#line 4327 "regression-compile-tmp/allimpc1-77.imp"
PRX(71, MASK, 10, 0, 0);
                                                                //   4328  L999:     %END
#line 4328 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4328 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PJ at level 3
                                                                //   4329                 %ROUTINE     PLAB(%INTEGER M)
#line 4329 "regression-compile-tmp/allimpc1-77.imp"
void PLAB( int M )
#line 4329 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4330           !%SHORTROUTINE
                                                                //   4331                 MONE=1
#line 4331 "regression-compile-tmp/allimpc1-77.imp"
MONE = 1;
                                                                //   4332           %IF M>=0 %THEN ->L1
#line 4332 "regression-compile-tmp/allimpc1-77.imp"
if (((M) < (0))) goto L_0553;
#line 4332 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
#line 4332 "regression-compile-tmp/allimpc1-77.imp"
L_0553:;
                                                                //   4333                 PLABEL=PLABEL-1; K=PLABEL
#line 4333 "regression-compile-tmp/allimpc1-77.imp"
PLABEL = (((int)(PLABEL)) - (1));
#line 4333 "regression-compile-tmp/allimpc1-77.imp"
K = PLABEL;
                                                                //   4334                 M=K
#line 4334 "regression-compile-tmp/allimpc1-77.imp"
M = K;
                                                                //   4335  L1:       PUSH(LABEL(LEVEL),CA,M)
#line 4335 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 4335 "regression-compile-tmp/allimpc1-77.imp"
PUSH(&LABEL[LEVEL], CA, M);
                                                                //   4336           R13=0
#line 4336 "regression-compile-tmp/allimpc1-77.imp"
R13 = 0;
                                                                //   4337           %END
#line 4337 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PLAB at level 3
                                                                //   4338  !********** END **** OF **** LABEL ****** ROUTINES **************
                                                                //   4339                 %ROUTINE CHECK RF
#line 4339 "regression-compile-tmp/allimpc1-77.imp"
void CHECKRF( void )
#line 4339 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4340           !%SHORTROUTINE
                                                                //   4341           COPYTAG(A(MARKER1))
#line 4341 "regression-compile-tmp/allimpc1-77.imp"
COPYTAG(A[((MARKER1) + ((int)(2)))]);
                                                                //   4342           ->L1 %UNLESS TYPE=4
#line 4342 "regression-compile-tmp/allimpc1-77.imp"
if (((TYPE) == (4))) goto L_0554;
#line 4342 "regression-compile-tmp/allimpc1-77.imp"
goto U_1057;
#line 4342 "regression-compile-tmp/allimpc1-77.imp"
L_0554:;
                                                                //   4343                 JJ=K; FROM LIST(JJ,Q,FNAME)
#line 4343 "regression-compile-tmp/allimpc1-77.imp"
JJ = K;
#line 4343 "regression-compile-tmp/allimpc1-77.imp"
FROMLIST(JJ, &Q, &FNAME);
                                                                //   4344           DUMP(0,4,Q,0,I);    ! ADDR OF FORMAT TO R4
#line 4344 "regression-compile-tmp/allimpc1-77.imp"
DUMP(0, 4, Q, 0, I);
                                                                //   4345           ->L9
#line 4345 "regression-compile-tmp/allimpc1-77.imp"
goto U_106a;
                                                                //   4346  L1:       K=-1; FAULT(62)
#line 4346 "regression-compile-tmp/allimpc1-77.imp"
U_1057:;
#line 4346 "regression-compile-tmp/allimpc1-77.imp"
K = (-1);
#line 4346 "regression-compile-tmp/allimpc1-77.imp"
FAULT(62);
                                                                //   4347  L9:       %END
#line 4347 "regression-compile-tmp/allimpc1-77.imp"
U_106a:;
#line 4347 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHECKRF at level 3
                                                                //   4348           %ROUTINE     DUMP(%INTEGER CODE,REG,DIS,X,LEVEL)
#line 4348 "regression-compile-tmp/allimpc1-77.imp"
void DUMP( int CODE, int REG, int DIS, int X, int LEVEL )
#line 4348 "regression-compile-tmp/allimpc1-77.imp"
{
                                                                //   4349           !%SHORTROUTINE
                                                                //   4350           %COMMENT CODE=8*(TYPE-1)+2*PREC+Z
                                                                //   4351           %INTEGER J
#line 4351 "regression-compile-tmp/allimpc1-77.imp"
int J;
                                                                //   4352           %OWNBYTEINTEGERARRAY OPCODE(0:16)=X'41',
#line 4352 "regression-compile-tmp/allimpc1-77.imp"
static unsigned char OPCODE[17] = { 65, 80, 88, 66, 67, 64, 72, 89, 73, 112, 120, 0, 0, 0, 0, 96, 104,  };
                                                                //   4353           X'50',X'58',X'42',X'43',X'40',X'48',X'59',X'49',
                                                                //   4354           X'70',X'78',0(4),X'60',X'68'
                                                                //   4355           J=OPCODE(CODE);FAULT(248) %IF J=0
#line 4355 "regression-compile-tmp/allimpc1-77.imp"
J = OPCODE[CODE];
#line 4355 "regression-compile-tmp/allimpc1-77.imp"
if (((J) != (0))) goto L_0555;
#line 4355 "regression-compile-tmp/allimpc1-77.imp"
FAULT(248);
#line 4355 "regression-compile-tmp/allimpc1-77.imp"
L_0555:;
                                                                //   4356           ->L4 %IF CODE=4;               ! IC NEEDED
#line 4356 "regression-compile-tmp/allimpc1-77.imp"
if (((CODE) != (4))) goto L_0556;
#line 4356 "regression-compile-tmp/allimpc1-77.imp"
goto U_1059;
#line 4356 "regression-compile-tmp/allimpc1-77.imp"
L_0556:;
                                                                //   4357           ->L1 %UNLESS CODE=0=DIS;       ! OPTIMISE LOAD ADDR
#line 4357 "regression-compile-tmp/allimpc1-77.imp"
if ((((CODE) != (0))) || (((0) == (DIS)))) goto L_0558;
#line 4357 "regression-compile-tmp/allimpc1-77.imp"
L_0557:;
#line 4357 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 4357 "regression-compile-tmp/allimpc1-77.imp"
L_0558:;
                                                                //   4358           ->L3 %UNLESS LEVEL=0=X
#line 4358 "regression-compile-tmp/allimpc1-77.imp"
if ((((LEVEL) != (0))) || (((0) == (X)))) goto L_055a;
#line 4358 "regression-compile-tmp/allimpc1-77.imp"
L_0559:;
#line 4358 "regression-compile-tmp/allimpc1-77.imp"
goto U_105b;
#line 4358 "regression-compile-tmp/allimpc1-77.imp"
L_055a:;
                                                                //   4359           PRR(X'1F',REG,REG); ->L99;     ! SLR INSTEAD LO LA REG,0
#line 4359 "regression-compile-tmp/allimpc1-77.imp"
PRR(31, REG, REG);
#line 4359 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   4360  L3:       ->L1 %UNLESS LEVEL=0 %OR X=0
#line 4360 "regression-compile-tmp/allimpc1-77.imp"
U_105b:;
#line 4360 "regression-compile-tmp/allimpc1-77.imp"
if (((LEVEL) == (0))) goto L_055b;
#line 4360 "regression-compile-tmp/allimpc1-77.imp"
if (((X) == (0))) goto L_055b;
#line 4360 "regression-compile-tmp/allimpc1-77.imp"
goto U_105a;
#line 4360 "regression-compile-tmp/allimpc1-77.imp"
L_055b:;
                                                                //   4361           PRR(X'18',REG,X+LEVEL) %UNLESS REG=X+LEVEL;->L99
#line 4361 "regression-compile-tmp/allimpc1-77.imp"
if (((REG) == ((((int)(X)) + (LEVEL))))) goto L_055c;
#line 4361 "regression-compile-tmp/allimpc1-77.imp"
PRR(24, REG, (((int)(X)) + (LEVEL)));
#line 4361 "regression-compile-tmp/allimpc1-77.imp"
L_055c:;
#line 4361 "regression-compile-tmp/allimpc1-77.imp"
goto U_105c;
                                                                //   4362  L4:       PRR(X'1F',REG,REG) %IF X#REG#LEVEL;    ! SLR FOR BYTE
#line 4362 "regression-compile-tmp/allimpc1-77.imp"
U_1059:;
#line 4362 "regression-compile-tmp/allimpc1-77.imp"
if ((((X) == (REG))) || (((REG) == (LEVEL)))) goto L_055d;
#line 4362 "regression-compile-tmp/allimpc1-77.imp"
PRR(31, REG, REG);
#line 4362 "regression-compile-tmp/allimpc1-77.imp"
L_055d:;
                                                                //   4363  L1:       PRX(J,REG,X,LEVEL,DIS)
#line 4363 "regression-compile-tmp/allimpc1-77.imp"
U_105a:;
#line 4363 "regression-compile-tmp/allimpc1-77.imp"
PRX(J, REG, X, LEVEL, DIS);
                                                                //   4364           %COMMENT AND WITH 255 FOR BYTE IF SLR NOT POSSIBLE AS ADDR IN R
                                                                //   4365           PRX(X'54',REG,0,GLA,24) %UNLESS CODE#4 %OR X#REG#LEVEL
#line 4365 "regression-compile-tmp/allimpc1-77.imp"
if (((CODE) != (4))) goto L_055e;
#line 4365 "regression-compile-tmp/allimpc1-77.imp"
if ((((X) == (REG))) || (((REG) != (LEVEL)))) goto L_055e;
#line 4365 "regression-compile-tmp/allimpc1-77.imp"
L_055f:;
#line 4365 "regression-compile-tmp/allimpc1-77.imp"
PRX(84, REG, 0, GLA, 24);
#line 4365 "regression-compile-tmp/allimpc1-77.imp"
L_055e:;
                                                                //   4366  L99:      %END
#line 4366 "regression-compile-tmp/allimpc1-77.imp"
U_105c:;
#line 4366 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DUMP at level 3
                                                                //   4367           %END
#line 4367 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return;
sw2_SW_38:;
sw2_SW_39:;
sw2_SW_40:;
sw2_SW_41:;
sw2_SW_42:;
sw2_SW_43:;
sw2_SW_44:;
sw2_SW_45:;
/*_imp_signal(6,3,sw2_SW_idx,"SWITCH LABEL NOT SET - sw2_SW");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw2_SW(%d): at line %s:%d", sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CSS at level 2
                                                                //   4368           %ENDOFPROGRAM
#line 4368 "regression-compile-tmp/allimpc1-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 4368 "regression-compile-tmp/allimpc1-77.imp"
// End of file
