#include <perms.h>

                                                                //      1  !!! %option  stack=30
                                                                //      2  !!!  19-Feb-82         !!!! 15/5/78
                                                                //      3  {Modified run under new subsystem so that it can support its own supervisor}
                                                                //      4  
                                                                //      5  !!!!!!!!!!!%CONTROL 1;   ! ... TEST ONLY SWITCHES
                                                                //      6  %CONSTSTRING(5) VERSION = "4.12"
#line 6 "regression-compile-tmp/comp412.imp"
const _imp_string /*%string(5)*/ VERSION = _imp_str_literal("4.12");
                                                                //      7  
                                                                //      8  %CONSTINTEGER GBASE= 426
                                                                //      9  %CONSTINTEGER  GMAX = 512;   !???
                                                                //     10  
                                                                //     11     {Changed from %CONST to %OWN to get 8.1 pass1 to accept source}
                                                                //     12  %ownSHORTINTEGERARRAY PHRASE(132:255) = 326, 137, 219,   0,
#line 12 "regression-compile-tmp/comp412.imp"
static short PHRASE[124] = { 326, 137, 219, 0, 386, 164, 242, 246, 216, 210, 229, 98, 378, 183, 310, 292, 268, 259, 349, 221, 367, 364, 410, 413, 416, 419, 422, 391, 405, 199, 236, 158, 382, 357, 0, 278, 285, 307, 302, 318, 321, 346, 341, 370, 425, 426, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 7, 40, 49, 96, 0,  };
                                                                //     13   386, 164, 242, 246, 216, 210, 229,  98,
                                                                //     14   378, 183, 310, 292, 268, 259, 349, 221,
                                                                //     15   367, 364, 410, 413, 416, 419, 422, 391,
                                                                //     16   405, 199, 236, 158, 382, 357,   0, 278,
                                                                //     17   285, 307, 302, 318, 321, 346, 341, 370,
                                                                //     18   425, 426,   0,   0,   0,   0,   0,   0,
                                                                //     19     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     20     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     21     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     22     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     23     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     24     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     25     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     26     0,   0,   0,   0,   0,   0,   0,   0,
                                                                //     27     0,   0,   1,   7,  40,  49,  96,   0
                                                                //     28  
                                                                //     29  %CONSTBYTEINTEGERARRAY ATOMIC(105:130) =
#line 29 "regression-compile-tmp/comp412.imp"
const unsigned char ATOMIC[26] = { 14, 9, 4, 20, 6, 110, 111, 30, 3, 80, 59, 59, 13, 4, 13, 59, 43, 73, 79, 72, 71, 4, 2, 2, 4, 2,  };
                                                                //     30    14,   9,   4,  20,   6, 110, 111,  30,
                                                                //     31     3,  80,  59,  59,  13,   4,  13,  59,
                                                                //     32    43,  73,  79,  72,  71,   4,   2,   2,
                                                                //     33     4,   2
                                                                //     34  
                                                                //     35  %OWNSHORTINTEGERARRAY GRAM(0:GMAX) =
#line 35 "regression-compile-tmp/comp412.imp"
static short GRAM[513] = { 0, (-32765), 4, 5, 511, 8198, 4, (-32748), (-32747), (-32741), (-32740), (-32739), (-32738), (-32737), 15, (-32736), (-32750), 511, (-32257), 15, 27, 22, (-32744), 511, 8217, (-32747), 511, 511, 511, 27, 33, 37, 36, 8226, (-32750), 511, 16, 8230, (-32737), 511, (-32726), 511, 43, 44, (-32725), (-32721), 27, (-32725), 44, (-32708), (-32706), (-32698), (-32689), (-32688), (-32687), (-32741), (-32675), (-32686), (-32741), 66, (-32706), 511, (-32698), (-32695), (-32257), 27, (-24482), (-24482), (-32673), 511, 71, (-32694), (-32695), 511, (-32695), (-32257), 77, (-32681), 511, 89, (-32257), 4187, (-32685), 84, (-32685), (-32695), 511, (-32695), 27, (-32703), 73, (-32695), 511, 8219, 8219, 12315, 97, 27, (-32657), (-32647), (-32655), (-32654), (-32647), (-32660), (-32653), (-32651), (-32646), 122, (-32645), (-32649), 120, (-32644), 121, (-32643), 126, (-32645), 119, (-32641), 128, (-24576), 8192, 129, 130, 0, 8192, 8192, 8192, 8192, 131, 132, 133, 134, 114, 115, 135, (-32649), 123, (-32768), (-32622), (-32621), (-32620), (-32624), (-32619), 150, (-32623), 8344, 8192, 126, 125, 154, (-32613), 0, (-32612), 0, 157, 0, 20480, 150, (-32607), (-32606), 163, 4096, 4608, 2048, (-32594), (-32768), (-32768), (-32594), (-32594), (-32593), (-32593), (-32591), (-32591), 177, 178, (-32589), 0, 180, 181, 0, 182, 0, 175, (-32594), (-32768), (-32768), (-32594), (-32594), (-32594), (-32574), (-32574), (-32573), (-32573), 195, 196, 197, 0, 198, 194, (-32564), (-32564), (-32562), (-32562), 206, (-32561), 0, 208, 0, 209, 204, (-32555), (-32768), 0, 214, 12503, 0, 8409, (-32552), 0, (-24576), 8192, (-32542), 223, (-32541), (-32540), 174, 0, 215, 0, (-32532), (-32536), 241, (-32529), (-24576), (-32533), 8192, (-32533), (-32533), 8192, (-24576), 8192, 0, 243, (-32526), (-32768), 243, (-32520), 249, 250, 254, (-32516), 0, (-32518), 250, 8447, 256, (-32510), 0, 0, (-32507), 262, 4608, 2311, 264, 18697, (-32501), 0, 10240, (-32498), 271, 272, 273, 274, 125, 16659, (-32491), 0, 8192, (-32768), (-32486), (-32485), 0, 215, 8476, 0, (-32768), (-32768), (-32478), (-32477), 0, 215, 284, (-32468), (-32474), 8487, (-32474), (-32467), (-32468), (-32468), 0, 8489, 8488, 8495, (-32466), (-32462), 0, 8496, 8500, (-32461), 0, (-32452), 8504, (-32457), (-32451), (-32452), 0, 8506, 8505, 8511, (-32450), 0, 8514, (-32447), (-32443), 0, 8515, (-32434), (-32440), 8521, (-32440), (-32430), (-32429), (-32429), 0, 8527, (-32428), (-32428), 0, 8522, 8523, 8527, 8534, (-32427), (-32423), 0, 8535, 8539, (-32422), 0, 350, (-24223), (-24222), 0, 355, 351, (-24223), 0, 8550, 359, 8552, 361, 8554, 363, 8192, 365, 4462, 0, 368, (-32401), 0, 371, 4468, 373, 12662, (-32392), 377, 371, 0, 379, 8572, (-32390), 0, 383, 8576, 385, 8407, (-32380), 0, (-32378), 8448, 388, (-32768), (-32768), (-32370), (-32370), (-32369), (-32369), 399, 401, (-32366), 0, 0, 403, 404, 398, 406, 4503, (-32359), 377, 406, 411, 4508, 365, 414, 4511, 411, 417, 4514, 414, 420, 4517, 417, 423, 4520, 420, [425 ... 512] = 0 };
                                                                //     36         0,  -32765,       4,       5,     511,    8198,       4,  -32748,
                                                                //     37    -32747,  -32741,  -32740,  -32739,  -32738,  -32737,      15,  -32736,
                                                                //     38    -32750,     511,  -32257,      15,      27,      22,  -32744,     511,
                                                                //     39      8217,  -32747,     511,     511,     511,      27,      33,      37,
                                                                //     40        36,    8226,  -32750,     511,      16,    8230,  -32737,     511,
                                                                //     41    -32726,     511,      43,      44,  -32725,  -32721,      27,  -32725,
                                                                //     42        44,  -32708,  -32706,  -32698,  -32689,  -32688,  -32687,  -32741,
                                                                //     43    -32675,  -32686,  -32741,      66,  -32706,     511,  -32698,  -32695,
                                                                //     44    -32257,      27,  -24482,  -24482,  -32673,     511,      71,  -32694,
                                                                //     45    -32695,     511,  -32695,  -32257,      77,  -32681,     511,      89,
                                                                //     46    -32257,    4187,  -32685,      84,  -32685,  -32695,     511,  -32695,
                                                                //     47        27,  -32703,      73,  -32695,     511,    8219,    8219,   12315,
                                                                //     48        97,      27,  -32657,  -32647,  -32655,  -32654,  -32647,  -32660,
                                                                //     49    -32653,  -32651,  -32646,     122,  -32645,  -32649,     120,  -32644,
                                                                //     50       121,  -32643,     126,  -32645,     119,  -32641,     128,  -24576,
                                                                //     51      8192,     129,     130,       0,    8192,    8192,    8192,    8192,
                                                                //     52       131,     132,     133,     134,     114,     115,     135,  -32649,
                                                                //     53       123,  -32768,  -32622,  -32621,  -32620,  -32624,  -32619,     150,
                                                                //     54    -32623,    8344,    8192,     126,     125,     154,  -32613,       0,
                                                                //     55    -32612,       0,     157,       0,   20480,     150,  -32607,  -32606,
                                                                //     56       163,    4096,    4608,    2048,  -32594,  -32768,  -32768,  -32594,
                                                                //     57    -32594,  -32593,  -32593,  -32591,  -32591,     177,     178,  -32589,
                                                                //     58         0,     180,     181,       0,     182,       0,     175,  -32594,
                                                                //     59    -32768,  -32768,  -32594,  -32594,  -32594,  -32574,  -32574,  -32573,
                                                                //     60    -32573,     195,     196,     197,       0,     198,     194,  -32564,
                                                                //     61    -32564,  -32562,  -32562,     206,  -32561,       0,     208,       0,
                                                                //     62       209,     204,  -32555,  -32768,       0,     214,   12503,       0,
                                                                //     63      8409,  -32552,       0,  -24576,    8192,  -32542,     223,  -32541,
                                                                //     64    -32540,     174,       0,     215,       0,  -32532,  -32536,     241,
                                                                //     65    -32529,  -24576,  -32533,    8192,  -32533,  -32533,    8192,  -24576,
                                                                //     66      8192,       0,     243,  -32526,  -32768,     243,  -32520,     249,
                                                                //     67       250,     254,  -32516,       0,  -32518,     250,    8447,     256,
                                                                //     68    -32510,       0,       0,  -32507,     262,    4608,    2311,     264,
                                                                //     69     18697,  -32501,       0,   10240,  -32498,     271,     272,     273,
                                                                //     70       274,     125,   16659,  -32491,       0,    8192,  -32768,  -32486,
                                                                //     71    -32485,       0,     215,    8476,       0,  -32768,  -32768,  -32478,
                                                                //     72    -32477,       0,     215,     284,  -32468,  -32474,    8487,  -32474,
                                                                //     73    -32467,  -32468,  -32468,       0,    8489,    8488,    8495,  -32466,
                                                                //     74    -32462,       0,    8496,    8500,  -32461,       0,  -32452,    8504,
                                                                //     75    -32457,  -32451,  -32452,       0,    8506,    8505,    8511,  -32450,
                                                                //     76         0,    8514,  -32447,  -32443,       0,    8515,  -32434,  -32440,
                                                                //     77      8521,  -32440,  -32430,  -32429,  -32429,       0,    8527,  -32428,
                                                                //     78    -32428,       0,    8522,    8523,    8527,    8534,  -32427,  -32423,
                                                                //     79         0,    8535,    8539,  -32422,       0,     350,  -24223,  -24222,
                                                                //     80         0,     355,     351,  -24223,       0,    8550,     359,    8552,
                                                                //     81       361,    8554,     363,    8192,     365,    4462,       0,     368,
                                                                //     82    -32401,       0,     371,    4468,     373,   12662,  -32392,     377,
                                                                //     83       371,       0,     379,    8572,  -32390,       0,     383,    8576,
                                                                //     84       385,    8407,  -32380,       0,  -32378,    8448,     388,  -32768,
                                                                //     85    -32768,  -32370,  -32370,  -32369,  -32369,     399,     401,  -32366,
                                                                //     86         0,       0,     403,     404,     398,     406,    4503,  -32359,
                                                                //     87       377,     406,     411,    4508,     365,     414,    4511,     411,
                                                                //     88       417,    4514,     414,     420,    4517,     417,     423,    4520,
                                                                //     89       420,       0,       0,       0,       0,       0,       0,       0,
                                                                //     90         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     91         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     92         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     93         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     94         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     95         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     96         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     97         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     98         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //     99         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    100         0
                                                                //    101  
                                                                //    102  %OWNBYTEINTEGERARRAY GCLASS(0:GMAX) =
#line 102 "regression-compile-tmp/comp412.imp"
static unsigned char GCLASS[513] = { 255, 114, 116, 1, 89, 162, 2, 53, 54, 49, 50, 51, 52, 57, 142, 1, 118, 117, 13, 142, 152, 152, 6, 117, 142, 118, 117, 13, 59, 144, 59, 152, 83, 164, 6, 117, 128, 164, 4, 13, 1, 13, 56, 59, 56, 4, 2, 56, 59, 34, 35, 28, 29, 10, 11, 33, 42, 19, 48, 133, 35, 13, 28, 12, 119, 133, 28, 29, 11, 13, 150, 5, 12, 119, 12, 119, 133, 35, 13, 150, 119, 165, 15, 83, 4, 12, 119, 12, 133, 5, 10, 10, 119, 83, 150, 165, 1, 138, 63, 62, 61, 60, 64, 75, 74, 77, 78, 76, 94, 109, 20, 20, 95, 20, 109, 94, 109, 20, 95, 83, 161, 101, 101, 143, 159, 137, 163, 166, 101, 153, 153, 153, 102, 102, 102, 109, 94, 23, 8, 22, 21, 24, 73, 143, 15, 83, 141, 90, 91, 101, 112, 0, 4, 0, 153, 133, 147, 102, 86, 87, 88, 147, 146, 140, 70, 67, 68, 69, 71, 74, 75, 76, 77, 78, 101, 94, 0, 101, 153, 137, 153, 102, 102, 70, 67, 68, 69, 72, 71, 74, 75, 76, 77, 78, 94, 101, 145, 153, 102, 74, 75, 76, 77, 78, 94, 0, 101, 161, 153, 102, 80, 81, 115, 1, 147, 2, 134, 105, 0, 82, 145, 99, 100, 1, 32, 79, 149, 150, 151, 86, 87, 88, 43, 84, 45, 83, 43, 45, 83, 84, 83, 82, 139, 4, 2, 139, 53, 51, 59, 152, 4, 0, 59, 139, 164, 97, 4, 0, 136, 99, 100, 148, 140, 46, 140, 46, 0, 140, 99, 100, 132, 137, 46, 108, 132, 46, 0, 132, 83, 1, 9, 145, 147, 167, 106, 84, 83, 1, 9, 145, 132, 168, 43, 45, 167, 36, 38, 39, 40, 0, 170, 169, 167, 36, 38, 0, 169, 167, 36, 0, 43, 168, 37, 41, 40, 0, 172, 171, 168, 37, 0, 168, 37, 41, 0, 171, 43, 45, 168, 36, 38, 39, 40, 0, 174, 39, 40, 0, 173, 174, 172, 168, 36, 38, 0, 173, 168, 36, 0, 151, 30, 31, 0, 151, 151, 30, 0, 137, 6, 147, 4, 147, 126, 147, 1, 147, 127, 59, 4, 0, 1, 147, 113, 147, 4, 2, 98, 97, 152, 175, 4, 0, 1, 162, 113, 162, 59, 139, 4, 164, 59, 70, 69, 74, 75, 76, 77, 78, 94, 95, 0, 159, 101, 153, 102, 1, 147, 4, 127, 98, 1, 147, 107, 1, 147, 107, 1, 147, 107, 1, 147, 107, 1, 147, 107, 124, 125, 147, 107, 147, 107, 147, 107, 147, 127, [435 ... 512] = 0 };
                                                                //    103       255,     114,     116,       1,      89,     162,       2,      53,
                                                                //    104        54,      49,      50,      51,      52,      57,     142,       1,
                                                                //    105       118,     117,      13,     142,     152,     152,       6,     117,
                                                                //    106       142,     118,     117,      13,      59,     144,      59,     152,
                                                                //    107        83,     164,       6,     117,     128,     164,       4,      13,
                                                                //    108         1,      13,      56,      59,      56,       4,       2,      56,
                                                                //    109        59,      34,      35,      28,      29,      10,      11,      33,
                                                                //    110        42,      19,      48,     133,      35,      13,      28,      12,
                                                                //    111       119,     133,      28,      29,      11,      13,     150,       5,
                                                                //    112        12,     119,      12,     119,     133,      35,      13,     150,
                                                                //    113       119,     165,      15,      83,       4,      12,     119,      12,
                                                                //    114       133,       5,      10,      10,     119,      83,     150,     165,
                                                                //    115         1,     138,      63,      62,      61,      60,      64,      75,
                                                                //    116        74,      77,      78,      76,      94,     109,      20,      20,
                                                                //    117        95,      20,     109,      94,     109,      20,      95,      83,
                                                                //    118       161,     101,     101,     143,     159,     137,     163,     166,
                                                                //    119       101,     153,     153,     153,     102,     102,     102,     109,
                                                                //    120        94,      23,       8,      22,      21,      24,      73,     143,
                                                                //    121        15,      83,     141,      90,      91,     101,     112,       0,
                                                                //    122         4,       0,     153,     133,     147,     102,      86,      87,
                                                                //    123        88,     147,     146,     140,      70,      67,      68,      69,
                                                                //    124        71,      74,      75,      76,      77,      78,     101,      94,
                                                                //    125         0,     101,     153,     137,     153,     102,     102,      70,
                                                                //    126        67,      68,      69,      72,      71,      74,      75,      76,
                                                                //    127        77,      78,      94,     101,     145,     153,     102,      74,
                                                                //    128        75,      76,      77,      78,      94,       0,     101,     161,
                                                                //    129       153,     102,      80,      81,     115,       1,     147,       2,
                                                                //    130       134,     105,       0,      82,     145,      99,     100,       1,
                                                                //    131        32,      79,     149,     150,     151,      86,      87,      88,
                                                                //    132        43,      84,      45,      83,      43,      45,      83,      84,
                                                                //    133        83,      82,     139,       4,       2,     139,      53,      51,
                                                                //    134        59,     152,       4,       0,      59,     139,     164,      97,
                                                                //    135         4,       0,     136,      99,     100,     148,     140,      46,
                                                                //    136       140,      46,       0,     140,      99,     100,     132,     137,
                                                                //    137        46,     108,     132,      46,       0,     132,      83,       1,
                                                                //    138         9,     145,     147,     167,     106,      84,      83,       1,
                                                                //    139         9,     145,     132,     168,      43,      45,     167,      36,
                                                                //    140        38,      39,      40,       0,     170,     169,     167,      36,
                                                                //    141        38,       0,     169,     167,      36,       0,      43,     168,
                                                                //    142        37,      41,      40,       0,     172,     171,     168,      37,
                                                                //    143         0,     168,      37,      41,       0,     171,      43,      45,
                                                                //    144       168,      36,      38,      39,      40,       0,     174,      39,
                                                                //    145        40,       0,     173,     174,     172,     168,      36,      38,
                                                                //    146         0,     173,     168,      36,       0,     151,      30,      31,
                                                                //    147         0,     151,     151,      30,       0,     137,       6,     147,
                                                                //    148         4,     147,     126,     147,       1,     147,     127,      59,
                                                                //    149         4,       0,       1,     147,     113,     147,       4,       2,
                                                                //    150        98,      97,     152,     175,       4,       0,       1,     162,
                                                                //    151       113,     162,      59,     139,       4,     164,      59,      70,
                                                                //    152        69,      74,      75,      76,      77,      78,      94,      95,
                                                                //    153         0,     159,     101,     153,     102,       1,     147,       4,
                                                                //    154       127,      98,       1,     147,     107,       1,     147,     107,
                                                                //    155         1,     147,     107,       1,     147,     107,       1,     147,
                                                                //    156       107,     124,     125,     147,     107,     147,     107,     147,
                                                                //    157       107,     147,     127,       0,       0,       0,       0,       0,
                                                                //    158         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    159         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    160         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    161         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    162         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    163         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    164         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    165         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    166         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    167         0
                                                                //    168  
                                                                //    169  %CONSTSHORTINTEGERARRAY KDICT(32: 538) =
#line 169 "regression-compile-tmp/comp412.imp"
const short KDICT[507] = { 0, 511, 131, 527, 131, 131, 531, 131, 535, 539, 543, 551, 555, 559, 575, 579, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 591, 594, 599, 619, 635, 131, 131, 652, 724, 752, 840, 876, 1020, 128, 128, 1084, 128, 128, 1296, 1320, 1344, 1384, 1408, 128, 1460, 1824, 2056, 2080, 128, 2112, 128, 128, 128, 131, 2127, 131, 131, 2151, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 2155, 131, 131, (-32351), (-16119), 16679, 16743, 18734, 16614, 16385, 16386, (-16282), 16489, 17128, 16388, (-32322), (-15576), 17195, 16392, 21710, (-32465), 19369, 16550, 16387, 16397, (-32196), (-32451), 18542, 18798, 16804, (-32323), (-14138), 18670, 19284, (-32195), (-32450), 18606, 16868, 18862, (-30642), 10578, 11457, (-31922), (-32429), 16823, 8912, 67, 16951, 9921, 69, (-32429), 16887, 8912, 67, 17079, 68, 18910, (-32187), 10841, 69, 16896, 9415, 78, 17393, (-30070), (-32177), 8665, 8908, 16394, (-31027), 78, (-31533), 84, (-32183), 10194, 76, 17386, 10958, 69, 18135, 84, 16512, 8909, 10830, 16391, 16384, (-32055), 10073, 9921, 8649, 16704, 9153, 10190, 8915, 17322, (-28340), (-31026), (-31530), 88, (-32055), 8916, 10066, 9793, 16768, 84, 18071, 10053, 84, 16399, 68, (-32433), 21873, 70, (-31034), (-31540), 80, (-32059), 10194, 10567, 9921, 22001, 9938, 22065, 10697, 84, 17904, 9801, 69, 21937, 8915, 19171, (-31039), (-31543), (-32306), 10575, 16395, (-32429), 17143, 8912, 67, 17207, 9422, 9299, 19106, 10700, 69, 17623, (-26042), 10830, 9157, 10565, (-28607), (-29626), (-30643), (-31794), (-32301), (-15243), 17528, 8912, 67, 23416, 9921, 69, (-32301), (-15179), 17592, 8912, 67, 23480, 10305, (-32301), (-14734), 18040, 8912, 67, 24306, 78, (-32301), (-14798), 17976, 8912, 67, 24370, 10578, 11457, (-31922), (-32429), 18163, 8912, 67, 23539, 9921, 69, (-32301), (-14539), 18232, 8912, 67, 23608, 18204, (-32183), 10063, 71, 17024, 10835, 17840, 10305, (-32429), 16631, 8912, 67, 16695, (-32319), 10831, 18464, 8909, (-32301), (-16201), 16568, 8912, 67, 17015, (-32050), (-32302), 10071, 16448, 18975, 19219, (-31291), 8914, 9412, 8387, 8916, (-32301), (-15694), 17080, 8912, 67, 24050, 9938, 16832, (-31419), 10959, 9428, 8910, (-32301), (-15886), 16888, 8912, 67, 24114, (-29759), (-30909), (-31408), (-32173), 10964, 10066, 17495, 9813, 7892, (-32451), 17430, 17045, 8389, 84, 19041, 10575, 68, (-32088), 10182, 9938, 10817, 21810, 21521, 76, (-27455), (-28474), (-29491), (-30642), (-32301), (-10123), 22648, (-31540), (-32178), 8912, 67, 23672, 10575, 8397, 76, 18032, 10063, 71, 17968, 9921, 69, (-32301), (-10059), 22712, 8912, 67, 23736, 10305, (-32301), (-9614), 23160, 8912, 67, 24178, 78, (-32301), (-9678), 23096, 8912, 67, 24242, 10578, 11457, (-31922), (-32429), 23283, 8912, 67, 23795, 9921, 69, (-32301), (-9419), 23352, 8912, 67, 23864, (-25656), (-26167), (-26672), (-31532), (-32041), 10713, 8916, 77, 16640, 10825, 9283, 16825, (-28223), (-28593), 9426, 9166, (-29144), (-30015), (-31034), (-32051), 8398, 8909, (-12107), 20664, 10305, (-32301), (-11662), 21112, 8912, 67, 24498, 78, (-32301), (-11726), 21048, 8912, 67, 23922, 10578, 11457, 8398, 8909, (-11467), 21304, 20496, 80, 17751, 10834, 16396, 8645, (-8206), 24567, 10055, 9793, 17688, 10575, 84, 16960, (-32184), 10962, 69, 17559, 10053, 16389, 78, (-32180), 9428, 76, 18397, 10693, 83, 18268, 9416, 8908, 18333, (-32067), (-32292), (-15771), 17005, 17252, 18734, 16402, 16649,  };
                                                                //    170         0,     511,     131,     527,     131,     131,     531,     131,
                                                                //    171       535,     539,     543,     551,     555,     559,     575,     579,
                                                                //    172       129,     129,     129,     129,     129,     129,     129,     129,
                                                                //    173       129,     129,     591,     594,     599,     619,     635,     131,
                                                                //    174       131,     652,     724,     752,     840,     876,    1020,     128,
                                                                //    175       128,    1084,     128,     128,    1296,    1320,    1344,    1384,
                                                                //    176      1408,     128,    1460,    1824,    2056,    2080,     128,    2112,
                                                                //    177       128,     128,     128,     131,    2127,     131,     131,    2151,
                                                                //    178       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    179       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    180       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    181       131,     131,     131,     131,    2155,     131,     131,  -32351,
                                                                //    182    -16119,   16679,   16743,   18734,   16614,   16385,   16386,  -16282,
                                                                //    183     16489,   17128,   16388,  -32322,  -15576,   17195,   16392,   21710,
                                                                //    184    -32465,   19369,   16550,   16387,   16397,  -32196,  -32451,   18542,
                                                                //    185     18798,   16804,  -32323,  -14138,   18670,   19284,  -32195,  -32450,
                                                                //    186     18606,   16868,   18862,  -30642,   10578,   11457,  -31922,  -32429,
                                                                //    187     16823,    8912,      67,   16951,    9921,      69,  -32429,   16887,
                                                                //    188      8912,      67,   17079,      68,   18910,  -32187,   10841,      69,
                                                                //    189     16896,    9415,      78,   17393,  -30070,  -32177,    8665,    8908,
                                                                //    190     16394,  -31027,      78,  -31533,      84,  -32183,   10194,      76,
                                                                //    191     17386,   10958,      69,   18135,      84,   16512,    8909,   10830,
                                                                //    192     16391,   16384,  -32055,   10073,    9921,    8649,   16704,    9153,
                                                                //    193     10190,    8915,   17322,  -28340,  -31026,  -31530,      88,  -32055,
                                                                //    194      8916,   10066,    9793,   16768,      84,   18071,   10053,      84,
                                                                //    195     16399,      68,  -32433,   21873,      70,  -31034,  -31540,      80,
                                                                //    196    -32059,   10194,   10567,    9921,   22001,    9938,   22065,   10697,
                                                                //    197        84,   17904,    9801,      69,   21937,    8915,   19171,  -31039,
                                                                //    198    -31543,  -32306,   10575,   16395,  -32429,   17143,    8912,      67,
                                                                //    199     17207,    9422,    9299,   19106,   10700,      69,   17623,  -26042,
                                                                //    200     10830,    9157,   10565,  -28607,  -29626,  -30643,  -31794,  -32301,
                                                                //    201    -15243,   17528,    8912,      67,   23416,    9921,      69,  -32301,
                                                                //    202    -15179,   17592,    8912,      67,   23480,   10305,  -32301,  -14734,
                                                                //    203     18040,    8912,      67,   24306,      78,  -32301,  -14798,   17976,
                                                                //    204      8912,      67,   24370,   10578,   11457,  -31922,  -32429,   18163,
                                                                //    205      8912,      67,   23539,    9921,      69,  -32301,  -14539,   18232,
                                                                //    206      8912,      67,   23608,   18204,  -32183,   10063,      71,   17024,
                                                                //    207     10835,   17840,   10305,  -32429,   16631,    8912,      67,   16695,
                                                                //    208    -32319,   10831,   18464,    8909,  -32301,  -16201,   16568,    8912,
                                                                //    209        67,   17015,  -32050,  -32302,   10071,   16448,   18975,   19219,
                                                                //    210    -31291,    8914,    9412,    8387,    8916,  -32301,  -15694,   17080,
                                                                //    211      8912,      67,   24050,    9938,   16832,  -31419,   10959,    9428,
                                                                //    212      8910,  -32301,  -15886,   16888,    8912,      67,   24114,  -29759,
                                                                //    213    -30909,  -31408,  -32173,   10964,   10066,   17495,    9813,    7892,
                                                                //    214    -32451,   17430,   17045,    8389,      84,   19041,   10575,      68,
                                                                //    215    -32088,   10182,    9938,   10817,   21810,   21521,      76,  -27455,
                                                                //    216    -28474,  -29491,  -30642,  -32301,  -10123,   22648,  -31540,  -32178,
                                                                //    217      8912,      67,   23672,   10575,    8397,      76,   18032,   10063,
                                                                //    218        71,   17968,    9921,      69,  -32301,  -10059,   22712,    8912,
                                                                //    219        67,   23736,   10305,  -32301,   -9614,   23160,    8912,      67,
                                                                //    220     24178,      78,  -32301,   -9678,   23096,    8912,      67,   24242,
                                                                //    221     10578,   11457,  -31922,  -32429,   23283,    8912,      67,   23795,
                                                                //    222      9921,      69,  -32301,   -9419,   23352,    8912,      67,   23864,
                                                                //    223    -25656,  -26167,  -26672,  -31532,  -32041,   10713,    8916,      77,
                                                                //    224     16640,   10825,    9283,   16825,  -28223,  -28593,    9426,    9166,
                                                                //    225    -29144,  -30015,  -31034,  -32051,    8398,    8909,  -12107,   20664,
                                                                //    226     10305,  -32301,  -11662,   21112,    8912,      67,   24498,      78,
                                                                //    227    -32301,  -11726,   21048,    8912,      67,   23922,   10578,   11457,
                                                                //    228      8398,    8909,  -11467,   21304,   20496,      80,   17751,   10834,
                                                                //    229     16396,    8645,   -8206,   24567,   10055,    9793,   17688,   10575,
                                                                //    230        84,   16960,  -32184,   10962,      69,   17559,   10053,   16389,
                                                                //    231        78,  -32180,    9428,      76,   18397,   10693,      83,   18268,
                                                                //    232      9416,    8908,   18333,  -32067,  -32292,  -15771,   17005,   17252,
                                                                //    233     18734,   16402,   16649
                                                                //    234  
                                                                //    235  !*******************************************
                                                                //    236  !*                                         *
                                                                //    237  !*        TRANSPORTABLE IMP COMPILER       *
                                                                //    238  !*                                         *
                                                                //    239  !*      COPYRIGHT   PETER S. ROBERTSON     *
                                                                //    240  !*      DEPARTMENT OF COMPUTER SCIENCE     *
                                                                //    241  !*         UNIVERSITY OF EDINBURGH         *
                                                                //    242  !*           ALL RIGHTS RESERVED           *
                                                                //    243  !*                                         *
                                                                //    244  !*******************************************
                                                                //    245  !
                                                                //    246  ! THROUGHOUT THE SOURCE TEXT OF THIS PROGRAM, THE LOWER CASE
                                                                //    247  ! ALPHABET IS REPRESENTED BY LETTER+32 E.G.  'A'+32
                                                                //    248  
                                                                //    249  %CONSTINTEGER SS0=250, SS1=251, SS2=252, SS3=253, SS4=254
                                                                //    250  %CONSTINTEGER NULL=512;    !???
                                                                //    251  %CONSTINTEGER TRANSP = 18
                                                                //    252  %CONSTINTEGER PHRASES = 132
                                                                //    253  %CONSTINTEGER EQUIVS = 105
                                                                //    254  %CONSTINTEGER DIRECTIVES = 86
                                                                //    255  %CONSTINTEGER ANAPP=160
                                                                //    256  %CONSTINTEGER GLOBAL=0
                                                                //    257  %CONSTINTEGER ICONST=83, RCONST=84, SCONST=82
                                                                //    258  %CONSTINTEGER LB=1, RB=2
                                                                //    259  %CONSTINTEGER PRE1=49, PRE2=57
                                                                //    260  %CONSTINTEGER OWN1=53, OWN2=51
                                                                //    261  %CONSTINTEGER SET1=60, SET2=64
                                                                //    262  %CONSTINTEGER CHECK1=66, CHECK2=72
                                                                //    263  %CONSTINTEGER DEF1=60, DEF2=79
                                                                //    264  %CONSTINTEGER IDENT=59, SWITCH=80, COMMENT=7
                                                                //    265  %CONSTINTEGER TERMIN=13
                                                                //    266  %CONSTINTEGER APPEP=153
                                                                //    267  %CONSTINTEGER PAGE SIZE = 64
                                                                //    268  %CONSTINTEGER STX = 2
                                                                //    269  %CONSTINTEGER PAGE = 12
                                                                //    270  !*********************************************
                                                                //    271  !* OTYPE * MOD * SPECD * FORMAT * APP * LINK *
                                                                //    272  !*********************************************
                                                                //    273  !    3      2      1       1       1      8
                                                                //    274  !
                                                                //    275  ! OTYPE : 1 OWN
                                                                //    276  !         2 CONST
                                                                //    277  !         3 EXTRINSIC
                                                                //    278  !         4 SYSTEM
                                                                //    279  !         5 DYNAMIC
                                                                //    280  !         6 EXTERNAL
                                                                //    281  !         7 PERM
                                                                //    282  !
                                                                //    283  !*******************************
                                                                //    284  !* LENGTH * USED * TYPE * FORM *
                                                                //    285  !*******************************
                                                                //    286  !     8       1      3      4
                                                                //    287  !
                                                                //    288  %BEGIN
#line 288 "regression-compile-tmp/comp412.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //    289  ! ------I/O STREAM ASSIGNMENTS CHANGED TEMPORARILY------
                                                                //    290  %CONSTINTEGER PRIM = 2, PROG = 1;           ! INPUT STREAMS
                                                                //    291  %CONSTINTEGER REPORT=3,OBJ=2, LISTING=1;    ! OUTPUT STREAMS
                                                                //    292  %CONSTINTEGER EOP=87;                       ! ENDOFPROGRAM SUBATOM
                                                                //    293  %CONSTINTEGER EOF=86;                       ! ENDOFFILE SUBATOM
                                                                //    294  %CONSTINTEGER TEXT LIMIT=255;               ! MAX STRING LENGTH
                                                                //    295  %CONSTBYTEINTEGERARRAY CMAP(0 : 15)= 0, 67, 68, 81, 65, 83, 80, 73,
#line 295 "regression-compile-tmp/comp412.imp"
const unsigned char CMAP[16] = { 0, 67, 68, 81, 65, 83, 80, 73, 72, 71, 79, 69, 70, 66, 0, 0,  };
                                                                //    296                                      72, 71, 79, 69, 7 0, 66, 0, 0
                                                                //    297  %CONSTINTEGER STRING = 16, RECORD=17;       ! STRING/RECORD SUBATOMS
                                                                //    298  %CONSTINTEGER SPECIAL=55;                   ! SPECIAL DECLARATOR
                                                                //    299  %CONSTINTEGER RFN=65;                       ! RECORDFORMAT NAME CLASS
                                                                //    300  %CONSTINTEGER ULINE=18;                     ! CLASS FOR '_'
                                                                //    301  %CONSTINTEGER NULL STRING=401
                                                                //    302  %OWNINTEGER PERMIN = 1;                     ! PERM/PROG SWITCH
#line 302 "regression-compile-tmp/comp412.imp"
static int PERMIN = 1;
                                                                //    303  %OWNINTEGER DIAG = 0, CONTROL = 0
#line 303 "regression-compile-tmp/comp412.imp"
static int DIAG = 0;
#line 303 "regression-compile-tmp/comp412.imp"
static int CONTROL = 0;
                                                                //    304  %OWNINTEGER BPT=0;                          ! CODE BUFFER POINTER
#line 304 "regression-compile-tmp/comp412.imp"
static int BPT = 0;
                                                                //    305  %OWNSHORTINTEGERARRAY BUFFER(1 : 401)
#line 305 "regression-compile-tmp/comp412.imp"
static short BUFFER[401];
                                                                //    306  %CONSTINTEGER MCODE = 38
                                                                //    307  
                                                                //    308     !  %DIAGNOSE FLAGS (2\\N)
                                                                //    309     !
                                                                //    310     !  0  -  GRAMMAR TRACE
                                                                //    311     !  1  -  RECORD USE
                                                                //    312     !  2  -  APP DEFN.
                                                                //    313     !  3  -  RECORD DEFN.
                                                                //    314     !
                                                                //    315     %ROUTINESPEC FAULT(%INTEGER N)
#line 315 "regression-compile-tmp/comp412.imp"
auto void FAULT( int N );
                                                                //    316  !*********************************************
                                                                //    317  !* ALMOST THE WHOLE COMPILER ASSUMES A 16 BIT WORD. *
                                                                //    318  !*********************************************
                                                                //    319  %OWNINTEGER MARK = ' '
#line 319 "regression-compile-tmp/comp412.imp"
static int MARK = 32;
                                                                //    320  %OWNINTEGER FILE = 0;                       ! BEGIN OR EXTERNAL FILE ?
#line 320 "regression-compile-tmp/comp412.imp"
static int FILE = 0;
                                                                //    321  %CONSTINTEGER DICT END = 2750
                                                                //    322  %INTEGERARRAY DICT(0:DICT END)
#line 322 "regression-compile-tmp/comp412.imp"
int DICT[2751];
                                                                //    323  %CONSTINTEGER MAX LAB = 80
                                                                //    324  %BYTEINTEGERARRAY LABINF(1 : MAX LAB)
#line 324 "regression-compile-tmp/comp412.imp"
unsigned char LABINF[80];
                                                                //    325  %INTEGER LIST, LREALS;                      ! OPTION FLAGS
#line 325 "regression-compile-tmp/comp412.imp"
int LIST;
#line 325 "regression-compile-tmp/comp412.imp"
int LREALS;
                                                                //    326  %INTEGER STATS;                             ! NUMBER OF STATEMENTS
#line 326 "regression-compile-tmp/comp412.imp"
int STATS;
                                                                //    327  %ownINTEGER CODE = 0;                              ! OBJECT FILE SIZE
#line 327 "regression-compile-tmp/comp412.imp"
static int CODE = 0;
                                                                //    328  %INTEGER LINES;                             ! LINES ON LISTING PAGE
#line 328 "regression-compile-tmp/comp412.imp"
int LINES;
                                                                //    329  %INTEGER LINENUM;                           ! CURRENT LINE NUMBER
#line 329 "regression-compile-tmp/comp412.imp"
int LINENUM;
                                                                //    330  %INTEGER LIT;                               ! LAST LITERAL POS
#line 330 "regression-compile-tmp/comp412.imp"
int LIT;
                                                                //    331  %INTEGER LIT POS;                           ! LITERAL TEXT POINTER
#line 331 "regression-compile-tmp/comp412.imp"
int LITPOS;
                                                                //    332  %INTEGER LIMIT;                             ! DIGIT SEARCH LIMIT
#line 332 "regression-compile-tmp/comp412.imp"
int LIMIT;
                                                                //    333  %INTEGER DIGIT;                             ! CURRECT DIGIT
#line 333 "regression-compile-tmp/comp412.imp"
int DIGIT;
                                                                //    334  %INTEGER OLD SYM;                           ! FIRST SYM OF NAME
#line 334 "regression-compile-tmp/comp412.imp"
int OLDSYM;
                                                                //    335  %INTEGER LABEL;                             ! CURRENT LABEL
#line 335 "regression-compile-tmp/comp412.imp"
int LABEL;
                                                                //    336  %INTEGER X;                                 ! CURRENT TAG APP/FORMAT
#line 336 "regression-compile-tmp/comp412.imp"
int X;
                                                                //    337  %ownINTEGER SYM = 0;                               ! CURRENT INPUT SYMBOL
#line 337 "regression-compile-tmp/comp412.imp"
static int SYM = 0;
                                                                //    338  %INTEGER ATOM1;                             ! CURRENT ATOM
#line 338 "regression-compile-tmp/comp412.imp"
int ATOM1;
                                                                //    339  %INTEGER ATOM2;                             ! VARIANT OF ATOM1
#line 339 "regression-compile-tmp/comp412.imp"
int ATOM2;
                                                                //    340  %INTEGER SUBATOM;                           ! EXTRA INFO
#line 340 "regression-compile-tmp/comp412.imp"
int SUBATOM;
                                                                //    341  %INTEGER LAST;                              ! LAST ATOM TYPE
#line 341 "regression-compile-tmp/comp412.imp"
int LAST;
                                                                //    342  %INTEGER SS TYPE;                           ! 0 LABEL, 1 DECLARATION,
#line 342 "regression-compile-tmp/comp412.imp"
int SSTYPE;
                                                                //    343                                              ! 2 FORMAL PARAMS, 3 STATEMENT
                                                                //    344  %INTEGER SYMTYPE;                           ! -2:LETTER, -1: DIGIT
#line 344 "regression-compile-tmp/comp412.imp"
int SYMTYPE;
                                                                //    345                                              ! 0:TERMINATOR, 1: OTHER
                                                                //    346  %INTEGER TYPE;                              ! VARIABLE TYPE WANTED
#line 346 "regression-compile-tmp/comp412.imp"
int TYPE;
                                                                //    347  %INTEGER VAR TYPE;                          ! VARIABLE TYPE FOUND
#line 347 "regression-compile-tmp/comp412.imp"
int VARTYPE;
                                                                //    348  %ownINTEGER POS = 0;                               ! CURRENT INPUT POSITION
#line 348 "regression-compile-tmp/comp412.imp"
static int POS = 0;
                                                                //    349  %INTEGER ATOM POS;                          ! CURRENT ATOM START POSN.
#line 349 "regression-compile-tmp/comp412.imp"
int ATOMPOS;
                                                                //    350  %INTEGER DUP;                               ! DUPLICATE FLAG
#line 350 "regression-compile-tmp/comp412.imp"
int DUP;
                                                                //    351  %INTEGER OUT;                               ! CURRENT OUTPUT STREAM
#line 351 "regression-compile-tmp/comp412.imp"
int OUT;
                                                                //    352  %INTEGER PREFIX, SPREFIX;                   ! OWN, BYTE, EXTERNAL ETC.
#line 352 "regression-compile-tmp/comp412.imp"
int PREFIX;
#line 352 "regression-compile-tmp/comp412.imp"
int SPREFIX;
                                                                //    353  %INTEGER CONST INT
#line 353 "regression-compile-tmp/comp412.imp"
int CONSTINT;
                                                                //    354  %INTEGER O TYPE
#line 354 "regression-compile-tmp/comp412.imp"
int OTYPE;
                                                                //    355  %INTEGER DEC TYPE;                          ! CURRENT DECLARATOR
#line 355 "regression-compile-tmp/comp412.imp"
int DECTYPE;
                                                                //    356  %OWNINTEGERARRAY CNEST(0 :10);              ! STACK FOR CONDITIONS
#line 356 "regression-compile-tmp/comp412.imp"
static int CNEST[11];
                                                                //    357  %OWNBYTEINTEGERARRAY LINE(1 : 73);          ! INPUT LINE BUFFER
#line 357 "regression-compile-tmp/comp412.imp"
static unsigned char LINE[73];
                                                                //    358  %CONSTINTEGER RECLEN = -300;     ! -(MAX LENGTH OF ANALYSIS RECORD)
                                                                //    359  %INTEGERARRAY REF, CO, SUB, LOC(RECLEN : -1)
#line 359 "regression-compile-tmp/comp412.imp"
int REF[300];
#line 359 "regression-compile-tmp/comp412.imp"
int CO[300];
#line 359 "regression-compile-tmp/comp412.imp"
int SUB[300];
#line 359 "regression-compile-tmp/comp412.imp"
int LOC[300];
                                                                //    360  %INTEGER SS;                                ! SOURCE STATEMENT ENTRY
#line 360 "regression-compile-tmp/comp412.imp"
int SS;
                                                                //    361  %INTEGER A;                                 ! ATOM POINTER
#line 361 "regression-compile-tmp/comp412.imp"
int A;
                                                                //    362  %INTEGER P;                                 ! PHRASE POINTER
#line 362 "regression-compile-tmp/comp412.imp"
int P;
                                                                //    363  %INTEGER FAULTY;                            ! FAULT INDICATOR
#line 363 "regression-compile-tmp/comp412.imp"
int FAULTY;
                                                                //    364  %INTEGER F TYPE;                            ! TYPE OF FAULT
#line 364 "regression-compile-tmp/comp412.imp"
int FTYPE;
                                                                //    365  %INTEGER G LIMIT;                           ! END OF GRAM POINTER
#line 365 "regression-compile-tmp/comp412.imp"
int GLIMIT;
                                                                //    366  %INTEGER T LIMIT;                           ! MAX EXTENT OF DICTIONARY
#line 366 "regression-compile-tmp/comp412.imp"
int TLIMIT;
                                                                //    367  %INTEGER TMAX;                              ! CURRENT MAX TAG (FREE)
#line 367 "regression-compile-tmp/comp412.imp"
int TMAX;
                                                                //    368  %INTEGER T BASE;                            ! FIRST NAME AT CURRENT LEVEL
#line 368 "regression-compile-tmp/comp412.imp"
int TBASE;
                                                                //    369  %INTEGER DP;                                ! END OF CURRENT NAME
#line 369 "regression-compile-tmp/comp412.imp"
int DP;
                                                                //    370  %INTEGER RELOCATE;                          ! RELOCATION FOR FORMATS
#line 370 "regression-compile-tmp/comp412.imp"
int RELOCATE;
                                                                //    371  %INTEGER APP
#line 371 "regression-compile-tmp/comp412.imp"
int APP;
                                                                //    372  %SHORTINTEGERNAME PAPP;                     ! ==PHRASE(APPEP)
#line 372 "regression-compile-tmp/comp412.imp"
short /*name*/*PAPP;
                                                                //    373  %INTEGER EILAB;                             ! %ELSEIF LABEL
#line 373 "regression-compile-tmp/comp412.imp"
int EILAB;
                                                                //    374  %ownINTEGER MARGIN = 0
#line 374 "regression-compile-tmp/comp412.imp"
static int MARGIN = 0;
                                                                //    375  %INTEGER INHIBIT;                       ! FLAG FOR DECLARATIONS MISPLA
#line 375 "regression-compile-tmp/comp412.imp"
int INHIBIT;
                                                                //    376  
                                                                //    377  %ROUTINE SEND
#line 377 "regression-compile-tmp/comp412.imp"
void SEND( void )
#line 377 "regression-compile-tmp/comp412.imp"
{
                                                                //    378     %INTEGER J
#line 378 "regression-compile-tmp/comp412.imp"
int J;
                                                                //    379     %RETURN %IF BPT <= 0
#line 379 "regression-compile-tmp/comp412.imp"
if (((BPT) > (0))) goto L_0002;
#line 379 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 379 "regression-compile-tmp/comp412.imp"
L_0002:;
                                                                //    380     FAULT(22) %IF BPT >= LITPOS
#line 380 "regression-compile-tmp/comp412.imp"
if (((BPT) < (LITPOS))) goto L_0003;
#line 380 "regression-compile-tmp/comp412.imp"
FAULT(22);
#line 380 "regression-compile-tmp/comp412.imp"
L_0003:;
                                                                //    381     %IF FAULTY = 0 %START
#line 381 "regression-compile-tmp/comp412.imp"
if (((FAULTY) != (0))) goto L_0004;
                                                                //    382        SELECTOUTPUT(OBJ)
#line 382 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(2);
                                                                //    383        PRINTSYMBOL(BUFFER(J)) %FOR J = 1,1,BPT
#line 383 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = BPT; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, BPT");
J -= _increment; _control -= _increment;
L_0005:;
if (J == _final) goto L_0006;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
#line 383 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL((BUFFER-1)[J]);
#line 383 "regression-compile-tmp/comp412.imp"
goto L_0005;
#line 383 "regression-compile-tmp/comp412.imp"
L_0006:;
                                                                //    384        SELECTOUTPUT(LISTING)
#line 384 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(1);
                                                                //    385     %FINISH
#line 385 "regression-compile-tmp/comp412.imp"
L_0004:;
                                                                //    386     BPT=0
#line 386 "regression-compile-tmp/comp412.imp"
BPT = 0;
                                                                //    387  %END
#line 387 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SEND at level 2
                                                                //    388  %ROUTINE PUT(%INTEGER N)
#line 388 "regression-compile-tmp/comp412.imp"
void PUT( int N )
#line 388 "regression-compile-tmp/comp412.imp"
{
                                                                //    389     CODE = CODE+1
#line 389 "regression-compile-tmp/comp412.imp"
CODE = (((int)(CODE)) + (1));
                                                                //    390     SEND %IF BPT > 71
#line 390 "regression-compile-tmp/comp412.imp"
if (((BPT) <= (71))) goto L_0008;
#line 390 "regression-compile-tmp/comp412.imp"
SEND();
#line 390 "regression-compile-tmp/comp412.imp"
L_0008:;
                                                                //    391     BPT=BPT+1; BUFFER(BPT)=N
#line 391 "regression-compile-tmp/comp412.imp"
BPT = (((int)(BPT)) + (1));
#line 391 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[BPT] = N;
                                                                //    392  %END
#line 392 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUT at level 2
                                                                //    393  %ROUTINE ADDR(%INTEGER N)
#line 393 "regression-compile-tmp/comp412.imp"
void ADDR( int N )
#line 393 "regression-compile-tmp/comp412.imp"
{
                                                                //    394     %INTEGER V
#line 394 "regression-compile-tmp/comp412.imp"
int V;
                                                                //    395     V=N//10
#line 395 "regression-compile-tmp/comp412.imp"
V = (long)((long)((int)(N)) / (long)((int)(10)));
                                                                //    396     ADDR(V) %UNLESS V=0
#line 396 "regression-compile-tmp/comp412.imp"
if (((V) == (0))) goto L_0009;
#line 396 "regression-compile-tmp/comp412.imp"
ADDR(V);
#line 396 "regression-compile-tmp/comp412.imp"
L_0009:;
                                                                //    397     PUT(N-V*10+'0')
#line 397 "regression-compile-tmp/comp412.imp"
PUT((((int)(((N) - ((int)((((int)(V)) * (10))))))) + (48)));
                                                                //    398  %END
#line 398 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ADDR at level 2
                                                                //    399  %ROUTINE OP(%INTEGER C, A)
#line 399 "regression-compile-tmp/comp412.imp"
void OP( int C, int A )
#line 399 "regression-compile-tmp/comp412.imp"
{
                                                                //    400     PUT(C); ADDR(A)
#line 400 "regression-compile-tmp/comp412.imp"
PUT(C);
#line 400 "regression-compile-tmp/comp412.imp"
ADDR(A);
                                                                //    401  %END
#line 401 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OP at level 2
                                                                //    402  %ROUTINE PRINT NAME(%INTEGER N)
#line 402 "regression-compile-tmp/comp412.imp"
void PRINTNAME( int N )
#line 402 "regression-compile-tmp/comp412.imp"
{
                                                                //    403     %INTEGER D, FLAG
#line 403 "regression-compile-tmp/comp412.imp"
int D;
#line 403 "regression-compile-tmp/comp412.imp"
int FLAG;
                                                                //    404  ! ----- 'UNPACK' USES AT LEAST A 30-BIT WORD ----
                                                                //    405     %ROUTINE UNPACK(%INTEGER V)
#line 405 "regression-compile-tmp/comp412.imp"
void UNPACK( int V )
#line 405 "regression-compile-tmp/comp412.imp"
{
                                                                //    406        %INTEGER J, N, C
#line 406 "regression-compile-tmp/comp412.imp"
int J;
#line 406 "regression-compile-tmp/comp412.imp"
int N;
#line 406 "regression-compile-tmp/comp412.imp"
int C;
                                                                //    407        %CYCLE  J = 24,-6,0
#line 407 "regression-compile-tmp/comp412.imp"
J = 30;
if ((((0)-(24)) % ((-6))) != 0) _imp_signal(5,1,0,"Illegal cycle J = 24, (-6), 0");
L_000a:;
if (J == 0) goto L_000b;
J += (-6);
                                                                //    408           C = (V>>J)&63
#line 408 "regression-compile-tmp/comp412.imp"
C = (((int)((((unsigned int)(V)) >> (J)))) & (63));
                                                                //    409           %IF C # 0 %START
#line 409 "regression-compile-tmp/comp412.imp"
if (((C) == (0))) goto L_000d;
                                                                //    410              C = C+32;   ! ADD IN 32 REMOVED WHEN PACKING
#line 410 "regression-compile-tmp/comp412.imp"
C = (((int)(C)) + (32));
                                                                //    411              %IF FLAG # 0 %START
#line 411 "regression-compile-tmp/comp412.imp"
if (((FLAG) == (0))) goto L_000e;
                                                                //    412                 %IF FLAG < 0 %THEN PUT(C) %ELSE PRINT SYMBOL(C)
#line 412 "regression-compile-tmp/comp412.imp"
if (((FLAG) >= (0))) goto L_000f;
#line 412 "regression-compile-tmp/comp412.imp"
PUT(C);
#line 412 "regression-compile-tmp/comp412.imp"
goto L_0010;
#line 412 "regression-compile-tmp/comp412.imp"
L_000f:;
#line 412 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(C);
#line 412 "regression-compile-tmp/comp412.imp"
L_0010:;
                                                                //    413                 FLAG = FLAG+1
#line 413 "regression-compile-tmp/comp412.imp"
FLAG = (((int)(FLAG)) + (1));
                                                                //    414              %FINISH
#line 414 "regression-compile-tmp/comp412.imp"
L_000e:;
                                                                //    415           %FINISH
#line 415 "regression-compile-tmp/comp412.imp"
L_000d:;
                                                                //    416        %REPEAT
#line 416 "regression-compile-tmp/comp412.imp"
goto L_000a;
#line 416 "regression-compile-tmp/comp412.imp"
L_000b:;
                                                                //    417     %END
#line 417 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block UNPACK at level 3
                                                                //    418     %IF N < 0 %THEN N = -N %AND FLAG = -13 %ELSE FLAG = 1
#line 418 "regression-compile-tmp/comp412.imp"
if (((N) >= (0))) goto L_0011;
#line 418 "regression-compile-tmp/comp412.imp"
N = (-(N));
#line 418 "regression-compile-tmp/comp412.imp"
FLAG = (-13);
#line 418 "regression-compile-tmp/comp412.imp"
goto L_0012;
#line 418 "regression-compile-tmp/comp412.imp"
L_0011:;
#line 418 "regression-compile-tmp/comp412.imp"
FLAG = 1;
#line 418 "regression-compile-tmp/comp412.imp"
L_0012:;
                                                                //    419     D=DICT(N)
#line 419 "regression-compile-tmp/comp412.imp"
D = DICT[N];
                                                                //    420     UNPACK(DICT(D-2)) %FOR D = N-D&255, 1, N-D>>11&3
#line 420 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = ((N) - ((int)(((D) & (255))))); _increment = 1; _final = ((N) - ((int)((((int)((((unsigned int)(D)) >> (11)))) & (3))))); D = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle D = ((N) - ((int)(((D) & (255))))), 1, ((N) - ((int)((((int)((((unsigned int)(D)) >> (11)))) & (3)))))");
D -= _increment; _control -= _increment;
L_0013:;
if (D == _final) goto L_0014;
D += _increment; _control += _increment;
if (D != _control) _imp_signal(4,2,0,"Corrupt control variable D"); /* FOR loop control variable corrupted */
}
#line 420 "regression-compile-tmp/comp412.imp"
UNPACK(DICT[(((int)(D)) - (2))]);
#line 420 "regression-compile-tmp/comp412.imp"
goto L_0013;
#line 420 "regression-compile-tmp/comp412.imp"
L_0014:;
                                                                //    421  %END
#line 421 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTNAME at level 2
                                                                //    422  
                                                                //    423  %ROUTINE FAULT(%INTEGER N)
#line 423 "regression-compile-tmp/comp412.imp"
void FAULT( int N )
#line 423 "regression-compile-tmp/comp412.imp"
{
                                                                //    424        %INTEGER  ERROR POS, STREAM, SPACING, pos2
#line 424 "regression-compile-tmp/comp412.imp"
int ERRORPOS;
#line 424 "regression-compile-tmp/comp412.imp"
int STREAM;
#line 424 "regression-compile-tmp/comp412.imp"
int SPACING;
#line 424 "regression-compile-tmp/comp412.imp"
int POS2;
                                                                //    425        %SWITCH FM(-1 : 24)
#line 425 "regression-compile-tmp/comp412.imp"
static int sw1_FM_idx;
static const void * /*SWITCH*/ sw1_FM[26] = { &&sw1_FM_M_1, &&sw1_FM_0, &&sw1_FM_1, &&sw1_FM_2, &&sw1_FM_3, &&sw1_FM_4, &&sw1_FM_5, &&sw1_FM_6, &&sw1_FM_7, &&sw1_FM_8, &&sw1_FM_9, &&sw1_FM_10, &&sw1_FM_11, &&sw1_FM_12, &&sw1_FM_13, &&sw1_FM_14, &&sw1_FM_15, &&sw1_FM_16, &&sw1_FM_17, &&sw1_FM_18, &&sw1_FM_19, &&sw1_FM_20, &&sw1_FM_21, &&sw1_FM_22, &&sw1_FM_23, &&sw1_FM_24,  };
                                                                //    426        STREAM = REPORT;  SELECTOUTPUT(REPORT)
#line 426 "regression-compile-tmp/comp412.imp"
STREAM = 3;
#line 426 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(3);
                                                                //    427        ATOM POS = DUP %IF DUP # 0
#line 427 "regression-compile-tmp/comp412.imp"
if (((DUP) == (0))) goto L_0016;
#line 427 "regression-compile-tmp/comp412.imp"
ATOMPOS = DUP;
#line 427 "regression-compile-tmp/comp412.imp"
L_0016:;
                                                                //    428        ERROR POS = ATOM POS
#line 428 "regression-compile-tmp/comp412.imp"
ERRORPOS = ATOMPOS;
                                                                //    429        ERROR POS = 0 %IF ERROR POS = POS %AND N > 1
#line 429 "regression-compile-tmp/comp412.imp"
if (((ERRORPOS) != (POS))) goto L_0017;
#line 429 "regression-compile-tmp/comp412.imp"
if (((N) <= (1))) goto L_0017;
#line 429 "regression-compile-tmp/comp412.imp"
ERRORPOS = 0;
#line 429 "regression-compile-tmp/comp412.imp"
L_0017:;
                                                                //    430        FAULTY=FAULTY+1
#line 430 "regression-compile-tmp/comp412.imp"
FAULTY = (((int)(FAULTY)) + (1));
                                                                //    431        SPACING = MARGIN+ERROR POS+8 -2
#line 431 "regression-compile-tmp/comp412.imp"
SPACING = (((int)((((int)((((int)(MARGIN)) + (ERRORPOS)))) + (8)))) - (2));
                                                                //    432        %CYCLE
#line 432 "regression-compile-tmp/comp412.imp"
L_0018:;
                                                                //    433           %IF POS > 0 %AND (LIST # 0 %OR STREAM = REPORT) %START
#line 433 "regression-compile-tmp/comp412.imp"
if (((POS) <= (0))) goto L_001b;
#line 433 "regression-compile-tmp/comp412.imp"
if (((LIST) != (0))) goto L_0007;
#line 433 "regression-compile-tmp/comp412.imp"
if (((STREAM) != (3))) goto L_001b;
#line 433 "regression-compile-tmp/comp412.imp"
L_0007:;
                                                                //    434              WRITE(LINE NUM, 4) %AND SPACE %IF STREAM # REPORT
#line 434 "regression-compile-tmp/comp412.imp"
if (((STREAM) == (3))) goto L_001c;
#line 434 "regression-compile-tmp/comp412.imp"
_imp_WRITE(LINENUM, 4);
#line 434 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
#line 434 "regression-compile-tmp/comp412.imp"
L_001c:;
                                                                //    435              pos2 = POS
#line 435 "regression-compile-tmp/comp412.imp"
POS2 = POS;
                                                                //    436              %CYCLE POS = 1,1,pos2
#line 436 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = POS2; POS = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle POS = 1, 1, POS2");
POS -= _increment; _control -= _increment;
L_001d:;
if (POS == _final) goto L_001e;
POS += _increment; _control += _increment;
if (POS != _control) _imp_signal(4,2,0,"Corrupt control variable POS"); /* FOR loop control variable corrupted */
}
                                                                //    437                 PRINTSYMBOL('|') %IF POS = ERROR POS %AND STREAM=REPORT
#line 437 "regression-compile-tmp/comp412.imp"
if (((POS) != (ERRORPOS))) goto L_0020;
#line 437 "regression-compile-tmp/comp412.imp"
if (((STREAM) != (3))) goto L_0020;
#line 437 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(124);
#line 437 "regression-compile-tmp/comp412.imp"
L_0020:;
                                                                //    438                 PRINTSYMBOL(LINE(POS))
#line 438 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL((LINE-1)[POS]);
                                                                //    439              %REPEAT
#line 439 "regression-compile-tmp/comp412.imp"
goto L_001d;
#line 439 "regression-compile-tmp/comp412.imp"
L_001e:;
                                                                //    440              SYM=LINE(POS)
#line 440 "regression-compile-tmp/comp412.imp"
SYM = (LINE-1)[POS];
                                                                //    441           %FINISH
#line 441 "regression-compile-tmp/comp412.imp"
L_001b:;
                                                                //    442           NEWLINE %IF SYM # NL
#line 442 "regression-compile-tmp/comp412.imp"
if (((SYM) == (10))) goto L_0021;
#line 442 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
#line 442 "regression-compile-tmp/comp412.imp"
L_0021:;
                                                                //    443           PRINTSYMBOL('*')
#line 443 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(42);
                                                                //    444           %IF STREAM = REPORT %START
#line 444 "regression-compile-tmp/comp412.imp"
if (((STREAM) != (3))) goto L_0022;
                                                                //    445              WRITE(LINE NUM, 4);  SPACE
#line 445 "regression-compile-tmp/comp412.imp"
_imp_WRITE(LINENUM, 4);
#line 445 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
                                                                //    446           %ELSE
#line 446 "regression-compile-tmp/comp412.imp"
goto L_0023;
#line 446 "regression-compile-tmp/comp412.imp"
L_0022:;
                                                                //    447              SPACE
#line 447 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
                                                                //    448              %IF ERROR POS # 0 %START
#line 448 "regression-compile-tmp/comp412.imp"
if (((ERRORPOS) == (0))) goto L_0024;
                                                                //    449                 SPACES(SPACING-1);  PRINTSTRING("! ")
#line 449 "regression-compile-tmp/comp412.imp"
_imp_SPACES((((int)(SPACING)) - (1)));
#line 449 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("! "));
                                                                //    450              %FINISH
#line 450 "regression-compile-tmp/comp412.imp"
L_0024:;
                                                                //    451           %FINISH
#line 451 "regression-compile-tmp/comp412.imp"
L_0023:;
                                                                //    452           ->FM(N)
#line 452 "regression-compile-tmp/comp412.imp"
sw1_FM_idx = N; if ((-1 <= sw1_FM_idx) && (sw1_FM_idx <= 24)) goto *(sw1_FM+1)[sw1_FM_idx];  /* Bounds=-1:24 */ else {
   /*_imp_signal(8, 2, sw1_FM_idx);*/
   fprintf(stderr, "%%SWITCH index FM(%d) not in range -1:24 at %s:%d\n",
           sw1_FM_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    453  FM(24):   PRINTSTRING("COMPILER ERROR!");  ->F
#line 453 "regression-compile-tmp/comp412.imp"
sw1_FM_24:;
#line 453 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("COMPILER ERROR!"));
#line 453 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    454  FM(20):   PRINTSTRING("TEXT TOO LONG");  ->F
#line 454 "regression-compile-tmp/comp412.imp"
sw1_FM_20:;
#line 454 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("TEXT TOO LONG"));
#line 454 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    455  FM(21):   PRINTSTRING("TOO MANY NAMES");  ->F
#line 455 "regression-compile-tmp/comp412.imp"
sw1_FM_21:;
#line 455 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("TOO MANY NAMES"));
#line 455 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    456  FM(22):   PRINTSTRING("TOO MANY LONG NAMES");  ->F
#line 456 "regression-compile-tmp/comp412.imp"
sw1_FM_22:;
#line 456 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("TOO MANY LONG NAMES"));
#line 456 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    457  FM(23):   PRINTSTRING("PROGRAM TOO COMPLEX");  ->F
#line 457 "regression-compile-tmp/comp412.imp"
sw1_FM_23:;
#line 457 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("PROGRAM TOO COMPLEX"));
#line 457 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    458  FM(18):   PRINTSTRING("ACCESS")
#line 458 "regression-compile-tmp/comp412.imp"
sw1_FM_18:;
#line 458 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("ACCESS"));
                                                                //    459           FAULTY = FAULTY-1 %IF STREAM = REPORT
#line 459 "regression-compile-tmp/comp412.imp"
if (((STREAM) != (3))) goto L_0025;
#line 459 "regression-compile-tmp/comp412.imp"
FAULTY = (((int)(FAULTY)) - (1));
#line 459 "regression-compile-tmp/comp412.imp"
L_0025:;
                                                                //    460           ->F
#line 460 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    461  FM(0):    PRINTSTRING("FORM");      ->F
#line 461 "regression-compile-tmp/comp412.imp"
sw1_FM_0:;
#line 461 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("FORM"));
#line 461 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    462  FM(1):    PRINTSTRING("ATOM");      ->F
#line 462 "regression-compile-tmp/comp412.imp"
sw1_FM_1:;
#line 462 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("ATOM"));
#line 462 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    463  FM(2):    PRINTSTRING("TYPE");      ->F
#line 463 "regression-compile-tmp/comp412.imp"
sw1_FM_2:;
#line 463 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("TYPE"));
#line 463 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    464  FM(3):    PRINTSTRING("NAME");      ->F
#line 464 "regression-compile-tmp/comp412.imp"
sw1_FM_3:;
#line 464 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("NAME"));
#line 464 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    465  FM(4):    PRINTSTRING("SIZE");      ->F
#line 465 "regression-compile-tmp/comp412.imp"
sw1_FM_4:;
#line 465 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("SIZE"));
#line 465 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    466  FM(5):    PRINTSTRING("CONTEXT");   ->F
#line 466 "regression-compile-tmp/comp412.imp"
sw1_FM_5:;
#line 466 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("CONTEXT"));
#line 466 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    467  FM(6):    PRINTSTRING("MATCH");     ->F
#line 467 "regression-compile-tmp/comp412.imp"
sw1_FM_6:;
#line 467 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("MATCH"));
#line 467 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    468  FM(7):    PRINTSTRING("COPY");      ->F
#line 468 "regression-compile-tmp/comp412.imp"
sw1_FM_7:;
#line 468 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("COPY"));
#line 468 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    469  FM(8):    PRINTSTRING("SPEC");      ->F
#line 469 "regression-compile-tmp/comp412.imp"
sw1_FM_8:;
#line 469 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("SPEC"));
#line 469 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    470  FM(9):    PRINTSTRING("%END");      ->MISS
#line 470 "regression-compile-tmp/comp412.imp"
sw1_FM_9:;
#line 470 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("%END"));
#line 470 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    471  FM(10):   PRINTSTRING("%CYCLE");    ->MISS
#line 471 "regression-compile-tmp/comp412.imp"
sw1_FM_10:;
#line 471 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("%CYCLE"));
#line 471 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    472  FM(11):   PRINTSTRING("%REPEAT");   ->MISS
#line 472 "regression-compile-tmp/comp412.imp"
sw1_FM_11:;
#line 472 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("%REPEAT"));
#line 472 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    473  FM(12):   PRINTSYMBOL('"');  PRINT NAME(X); PRINTSYMBOL('"');  ->MISS
#line 473 "regression-compile-tmp/comp412.imp"
sw1_FM_12:;
#line 473 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(34);
#line 473 "regression-compile-tmp/comp412.imp"
PRINTNAME(X);
#line 473 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(34);
#line 473 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    474  FM(13):   PRINTSTRING("%START");    ->MISS
#line 474 "regression-compile-tmp/comp412.imp"
sw1_FM_13:;
#line 474 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("%START"));
#line 474 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    475  FM(14):   PRINTSTRING("%FINISH");   ->MISS
#line 475 "regression-compile-tmp/comp412.imp"
sw1_FM_14:;
#line 475 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("%FINISH"));
#line 475 "regression-compile-tmp/comp412.imp"
goto U_1001;
                                                                //    476  FM(15):   PRINTSTRING("ORDER");     ->F
#line 476 "regression-compile-tmp/comp412.imp"
sw1_FM_15:;
#line 476 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("ORDER"));
#line 476 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    477  FM(16):   PRINTSTRING("BOUNDS");     ->F
#line 477 "regression-compile-tmp/comp412.imp"
sw1_FM_16:;
#line 477 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("BOUNDS"));
#line 477 "regression-compile-tmp/comp412.imp"
goto U_1000;
                                                                //    478  FM(17):   PRINTSTRING("RESULT")
#line 478 "regression-compile-tmp/comp412.imp"
sw1_FM_17:;
#line 478 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("RESULT"));
                                                                //    479  MISS:     PRINTSTRING(" MISSING")
#line 479 "regression-compile-tmp/comp412.imp"
U_1001:;
#line 479 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal(" MISSING"));
                                                                //    480  F:        NEWLINE
#line 480 "regression-compile-tmp/comp412.imp"
U_1000:;
#line 480 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //    481           %EXIT %IF STREAM = LISTING
#line 481 "regression-compile-tmp/comp412.imp"
if (((STREAM) != (1))) goto L_0026;
#line 481 "regression-compile-tmp/comp412.imp"
goto L_0019;
#line 481 "regression-compile-tmp/comp412.imp"
L_0026:;
                                                                //    482           STREAM = LISTING;  SELECTOUTPUT(LISTING)
#line 482 "regression-compile-tmp/comp412.imp"
STREAM = 1;
#line 482 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(1);
                                                                //    483        %REPEAT
#line 483 "regression-compile-tmp/comp412.imp"
goto L_0018;
#line 483 "regression-compile-tmp/comp412.imp"
L_0019:;
                                                                //    484        MARGIN = MARGIN+POS %AND SPACES(MARGIN+8) %IF SYM # NL
#line 484 "regression-compile-tmp/comp412.imp"
if (((SYM) == (10))) goto L_0027;
#line 484 "regression-compile-tmp/comp412.imp"
MARGIN = (((int)(MARGIN)) + (POS));
#line 484 "regression-compile-tmp/comp412.imp"
_imp_SPACES((((int)(MARGIN)) + (8)));
#line 484 "regression-compile-tmp/comp412.imp"
L_0027:;
                                                                //    485        POS = 0;  OUT = 0
#line 485 "regression-compile-tmp/comp412.imp"
POS = 0;
#line 485 "regression-compile-tmp/comp412.imp"
OUT = 0;
                                                                //    486        %SIGNAL 0,10 %IF N >= 20
#line 486 "regression-compile-tmp/comp412.imp"
if (((N) < (20))) goto L_0028;
#line 486 "regression-compile-tmp/comp412.imp"
_imp_signal(0, 10, 0, "");
#line 486 "regression-compile-tmp/comp412.imp"
L_0028:;
                                                                //    487  %END
#line 487 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
sw1_FM_M_1:;
sw1_FM_19:;
/*_imp_signal(6,3,sw1_FM_idx,"SWITCH LABEL NOT SET - sw1_FM");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw1_FM(%d): at line %s:%d", sw1_FM_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block FAULT at level 2
                                                                //    488  
                                                                //    489  ! ---- 'C GEN' DEPENDS ON A 32-BIT WORD ----
                                                                //    490  %ROUTINE C GEN(%INTEGER N)
#line 490 "regression-compile-tmp/comp412.imp"
void CGEN( int N )
#line 490 "regression-compile-tmp/comp412.imp"
{
                                                                //    491        %INTEGER J, M, L
#line 491 "regression-compile-tmp/comp412.imp"
int J;
#line 491 "regression-compile-tmp/comp412.imp"
int M;
#line 491 "regression-compile-tmp/comp412.imp"
int L;
                                                                //    492        M = N;  N = |M|
#line 492 "regression-compile-tmp/comp412.imp"
M = N;
#line 492 "regression-compile-tmp/comp412.imp"
N = _imp_IMOD(M);
                                                                //    493        %IF N>>16 = 0 %THEN L = 4 %ELSE L = 8
#line 493 "regression-compile-tmp/comp412.imp"
if ((((int)((((unsigned int)(N)) >> (16)))) != (0))) goto L_0029;
#line 493 "regression-compile-tmp/comp412.imp"
L = 4;
#line 493 "regression-compile-tmp/comp412.imp"
goto L_002a;
#line 493 "regression-compile-tmp/comp412.imp"
L_0029:;
#line 493 "regression-compile-tmp/comp412.imp"
L = 8;
#line 493 "regression-compile-tmp/comp412.imp"
L_002a:;
                                                                //    494        PUT('N');  PUT(L+1+'0');  PUT(',');  PUT('Y')
#line 494 "regression-compile-tmp/comp412.imp"
PUT(78);
#line 494 "regression-compile-tmp/comp412.imp"
PUT((((int)((((int)(L)) + (1)))) + (48)));
#line 494 "regression-compile-tmp/comp412.imp"
PUT(44);
#line 494 "regression-compile-tmp/comp412.imp"
PUT(89);
                                                                //    495        PUT( (N>>J)&15+'A' ) %FOR J = (L-1)*4, -4, 0
#line 495 "regression-compile-tmp/comp412.imp"
J = (((unsigned char)((((int)((((int)(L)) - (1)))) * (4)))) + (4));
if ((((0)-((((int)((((int)(L)) - (1)))) * (4)))) % ((-4))) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)((((int)(L)) - (1)))) * (4)), (-4), 0");
L_002b:;
if (J == 0) goto L_002c;
J += (-4);
#line 495 "regression-compile-tmp/comp412.imp"
PUT((((int)((((int)((((unsigned int)(N)) >> (J)))) & (15)))) + (65)));
#line 495 "regression-compile-tmp/comp412.imp"
goto L_002b;
#line 495 "regression-compile-tmp/comp412.imp"
L_002c:;
                                                                //    496        PUT('U') %IF M < 0
#line 496 "regression-compile-tmp/comp412.imp"
if (((M) >= (0))) goto L_002e;
#line 496 "regression-compile-tmp/comp412.imp"
PUT(85);
#line 496 "regression-compile-tmp/comp412.imp"
L_002e:;
                                                                //    497        LIT = CODE
#line 497 "regression-compile-tmp/comp412.imp"
LIT = CODE;
                                                                //    498  %END
#line 498 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CGEN at level 2
                                                                //    499  %INTEGERFN EVAL(%INTEGER P)
#line 499 "regression-compile-tmp/comp412.imp"
int EVAL( int P )
#line 499 "regression-compile-tmp/comp412.imp"
{
                                                                //    500     %CONSTBYTEINTEGERARRAY BASIS('V' : 'Z')=3,1,8,4,0
#line 500 "regression-compile-tmp/comp412.imp"
const unsigned char BASIS[5] = { 3, 1, 8, 4, 0,  };
                                                                //    501     %INTEGER N, J, B, S, L, MOD
#line 501 "regression-compile-tmp/comp412.imp"
int N;
#line 501 "regression-compile-tmp/comp412.imp"
int J;
#line 501 "regression-compile-tmp/comp412.imp"
int B;
#line 501 "regression-compile-tmp/comp412.imp"
int S;
#line 501 "regression-compile-tmp/comp412.imp"
int L;
#line 501 "regression-compile-tmp/comp412.imp"
int MOD;
                                                                //    502     N=0
#line 502 "regression-compile-tmp/comp412.imp"
N = 0;
                                                                //    503     %RESULT = DICT(-P) %IF P < 0
#line 503 "regression-compile-tmp/comp412.imp"
if (((P) >= (0))) goto L_002f;
#line 503 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return DICT[(-(P))];
#line 503 "regression-compile-tmp/comp412.imp"
L_002f:;
                                                                //    504     L=BUFFER(P);  %RESULT=0 %IF L=0 %OR L=1
#line 504 "regression-compile-tmp/comp412.imp"
L = (BUFFER-1)[P];
#line 504 "regression-compile-tmp/comp412.imp"
if (((L) == (0))) goto L_002d;
#line 504 "regression-compile-tmp/comp412.imp"
if (((L) != (1))) goto L_0030;
#line 504 "regression-compile-tmp/comp412.imp"
L_002d:;
#line 504 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 504 "regression-compile-tmp/comp412.imp"
L_0030:;
                                                                //    505     B=BUFFER(P-1);  %RESULT=B %IF L < 0
#line 505 "regression-compile-tmp/comp412.imp"
B = (BUFFER-1)[(((int)(P)) - (1))];
#line 505 "regression-compile-tmp/comp412.imp"
if (((L) >= (0))) goto L_0031;
#line 505 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return B;
#line 505 "regression-compile-tmp/comp412.imp"
L_0031:;
                                                                //    506     B=BASIS(B)
#line 506 "regression-compile-tmp/comp412.imp"
B = (BASIS-86)[B];
                                                                //    507     MOD='A'; MOD=0 %IF B=8
#line 507 "regression-compile-tmp/comp412.imp"
MOD = 65;
#line 507 "regression-compile-tmp/comp412.imp"
if (((B) != (8))) goto L_0032;
#line 507 "regression-compile-tmp/comp412.imp"
MOD = 0;
#line 507 "regression-compile-tmp/comp412.imp"
L_0032:;
                                                                //    508     %CYCLE J=P-2,-1,P-L
#line 508 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(P)) - (2)); _increment = (-1); _final = (((int)(P)) - (L)); J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(P)) - (2)), (-1), (((int)(P)) - (L))");
J -= _increment; _control -= _increment;
L_0033:;
if (J == _final) goto L_0034;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //    509        S=BUFFER(J)-MOD
#line 509 "regression-compile-tmp/comp412.imp"
S = (((int)((BUFFER-1)[J])) - (MOD));
                                                                //    510        %IF B=0 %THEN N=N*10 %ELSE N=N<<B
#line 510 "regression-compile-tmp/comp412.imp"
if (((B) != (0))) goto L_0036;
#line 510 "regression-compile-tmp/comp412.imp"
N = (((int)(N)) * (10));
#line 510 "regression-compile-tmp/comp412.imp"
goto L_0037;
#line 510 "regression-compile-tmp/comp412.imp"
L_0036:;
#line 510 "regression-compile-tmp/comp412.imp"
N = ((N) << (B));
#line 510 "regression-compile-tmp/comp412.imp"
L_0037:;
                                                                //    511        N=N+S
#line 511 "regression-compile-tmp/comp412.imp"
N = (((int)(N)) + (S));
                                                                //    512     %REPEAT
#line 512 "regression-compile-tmp/comp412.imp"
goto L_0033;
#line 512 "regression-compile-tmp/comp412.imp"
L_0034:;
                                                                //    513     %RESULT=N
#line 513 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return N;
                                                                //    514  %END
#line 514 "regression-compile-tmp/comp412.imp"
} // End of block EVAL at level 2
                                                                //    515  
                                                                //    516     %ROUTINE COMPILE BLOCK(%INTEGER LEVEL, BLOCK TYPE, %C
#line 516 "regression-compile-tmp/comp412.imp"
void COMPILEBLOCK( int LEVEL, int BLOCKTYPE, int /*name*/*FPP )
#line 516 "regression-compile-tmp/comp412.imp"
{
                                                                //    517        %INTEGERNAME FPP)
                                                                //    518        %INTEGER J, K, XX, COUNT, ACCESS = 0
#line 518 "regression-compile-tmp/comp412.imp"
int J;
#line 518 "regression-compile-tmp/comp412.imp"
int K;
#line 518 "regression-compile-tmp/comp412.imp"
int XX;
#line 518 "regression-compile-tmp/comp412.imp"
int COUNT;
#line 518 "regression-compile-tmp/comp412.imp"
int ACCESS;
#line 518 "regression-compile-tmp/comp412.imp"
ACCESS = 0;
                                                                //    519        %INTEGER FP;                         ! START OF FORMAT
#line 519 "regression-compile-tmp/comp412.imp"
int FP;
                                                                //    520        %INTEGER FORMAT;                     ! CURRENT FORMAT POINTER
#line 520 "regression-compile-tmp/comp412.imp"
int FORMAT;
                                                                //    521        %INTEGER A CHAIN;                    ! ARRAY CHAIN
#line 521 "regression-compile-tmp/comp412.imp"
int ACHAIN;
                                                                //    522        %INTEGER OLD LABEL
#line 522 "regression-compile-tmp/comp412.imp"
int OLDLABEL;
                                                                //    523        %INTEGER APARM, OLD T BASE, OLD T LIMIT
#line 523 "regression-compile-tmp/comp412.imp"
int APARM;
#line 523 "regression-compile-tmp/comp412.imp"
int OLDTBASE;
#line 523 "regression-compile-tmp/comp412.imp"
int OLDTLIMIT;
                                                                //    524        %OWNINTEGER SPEC=1
#line 524 "regression-compile-tmp/comp412.imp"
static int SPEC = 1;
                                                                //    525        OLD T BASE=T BASE
#line 525 "regression-compile-tmp/comp412.imp"
OLDTBASE = TBASE;
                                                                //    526        T BASE=T MAX
#line 526 "regression-compile-tmp/comp412.imp"
TBASE = TMAX;
                                                                //    527        OLD T LIMIT=T LIMIT;  OLD LABEL = LABEL
#line 527 "regression-compile-tmp/comp412.imp"
OLDTLIMIT = TLIMIT;
#line 527 "regression-compile-tmp/comp412.imp"
OLDLABEL = LABEL;
                                                                //    528        INHIBIT = INHIBIT<<1
#line 528 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) << (1));
                                                                //    529  
                                                                //    530        %ROUTINE DEF LAB(%INTEGER L)
#line 530 "regression-compile-tmp/comp412.imp"
void DEFLAB( int L )
#line 530 "regression-compile-tmp/comp412.imp"
{
                                                                //    531           INHIBIT = INHIBIT!1
#line 531 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //    532           PUT(':');  ADDR(L)
#line 532 "regression-compile-tmp/comp412.imp"
PUT(58);
#line 532 "regression-compile-tmp/comp412.imp"
ADDR(L);
                                                                //    533           ACCESS = 1
#line 533 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //    534        %END
#line 534 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFLAB at level 3
                                                                //    535        %ROUTINE ANALYSE SS(%INTEGER CONT)
#line 535 "regression-compile-tmp/comp412.imp"
void ANALYSESS( int CONT )
#line 535 "regression-compile-tmp/comp412.imp"
{
                                                                //    536        %INTEGER CLASS;                      ! CLASS OF ATOM WANTED
#line 536 "regression-compile-tmp/comp412.imp"
int CLASS;
                                                                //    537        %INTEGER LIM;                        ! LOOKUP LIMIT
#line 537 "regression-compile-tmp/comp412.imp"
int LIM;
                                                                //    538        %OWNINTEGER TAG=0;                   ! CURRENT VAR TAG
#line 538 "regression-compile-tmp/comp412.imp"
static int TAG = 0;
                                                                //    539        %OWNINTEGER DELIM = '"'
#line 539 "regression-compile-tmp/comp412.imp"
static int DELIM = 34;
                                                                //    540        %OWNINTEGER QUOTE=0;                 ! TEXT MODE FLAG
#line 540 "regression-compile-tmp/comp412.imp"
static int QUOTE = 0;
                                                                //    541        %OWNINTEGER KEY=0;                   ! SYMBOL DICT KEY
#line 541 "regression-compile-tmp/comp412.imp"
static int KEY = 0;
                                                                //    542  
                                                                //    543        %ROUTINE DECLARE IDEN
#line 543 "regression-compile-tmp/comp412.imp"
void DECLAREIDEN( void )
#line 543 "regression-compile-tmp/comp412.imp"
{
                                                                //    544           %INTEGER EXTRA, FF
#line 544 "regression-compile-tmp/comp412.imp"
int EXTRA;
#line 544 "regression-compile-tmp/comp412.imp"
int FF;
                                                                //    545           %INTEGERNAME FLAG
#line 545 "regression-compile-tmp/comp412.imp"
int /*name*/*FLAG;
                                                                //    546           %IF SUBATOM#0 %START;             ! ALREADY EXISTS
#line 546 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) == (0))) goto L_0038;
                                                                //    547              FLAG == DICT(SUBATOM)
#line 547 "regression-compile-tmp/comp412.imp"
FLAG = &DICT[SUBATOM];
                                                                //    548              TAG=DICT(SUBATOM-1)
#line 548 "regression-compile-tmp/comp412.imp"
TAG = DICT[(((int)(SUBATOM)) - (1))];
                                                                //    549              %IF FLAG&1024#0 %START;        ! SPEC GIVEN
#line 549 "regression-compile-tmp/comp412.imp"
if (((((*FLAG) & (1024))) == (0))) goto L_0039;
                                                                //    550                 %IF TAG&15=3 %START;        ! LABEL REF
#line 550 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (15))) != (3))) goto L_003a;
                                                                //    551                    FLAG=FLAG!!1024 %IF DECTYPE=3
#line 551 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (3))) goto L_003b;
#line 551 "regression-compile-tmp/comp412.imp"
*FLAG = ((*FLAG) ^ (1024));
#line 551 "regression-compile-tmp/comp412.imp"
L_003b:;
                                                                //    552                    %RETURN
#line 552 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    553                 %FINISH
#line 553 "regression-compile-tmp/comp412.imp"
L_003a:;
                                                                //    554                 %IF DECTYPE = TAG&(\128) %OR DECTYPE=1 %START;! SAME TYPE
#line 554 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) == (((TAG) & ((~(128))))))) goto L_001f;
#line 554 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (1))) goto L_003c;
#line 554 "regression-compile-tmp/comp412.imp"
L_001f:;
                                                                //    555                    %IF (7 <= TAG&15 <= 10 %AND SPEC > 0) %C
#line 555 "regression-compile-tmp/comp412.imp"
if ((((7) > (((TAG) & (15))))) || (((((TAG) & (15))) > (10)))) goto L_003d;
#line 555 "regression-compile-tmp/comp412.imp"
if (((SPEC) > (0))) goto L_003e;
#line 555 "regression-compile-tmp/comp412.imp"
L_003d:;
#line 555 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (15))) == (4))) goto L_003e;
#line 555 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (1))) goto L_003f;
#line 555 "regression-compile-tmp/comp412.imp"
L_003e:;
                                                                //    556                    %OR TAG&15 = 4 %OR DECTYPE=1 %START;   ! VALID REDEFINITION
                                                                //    557                       FLAG = FLAG!!1024;    ! REMOVE SPEC BIT
#line 557 "regression-compile-tmp/comp412.imp"
*FLAG = ((*FLAG) ^ (1024));
                                                                //    558                       DECTYPE = TAG&(\128)
#line 558 "regression-compile-tmp/comp412.imp"
DECTYPE = ((TAG) & ((~(128))));
                                                                //    559                       %RETURN
#line 559 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    560                    %FINISH
#line 560 "regression-compile-tmp/comp412.imp"
L_003f:;
                                                                //    561                 %FINISH
#line 561 "regression-compile-tmp/comp412.imp"
L_003c:;
                                                                //    562              %FINISH
#line 562 "regression-compile-tmp/comp412.imp"
L_0039:;
                                                                //    563              DUP=ATOM POS %IF DUP=0
#line 563 "regression-compile-tmp/comp412.imp"
if (((DUP) != (0))) goto L_0040;
#line 563 "regression-compile-tmp/comp412.imp"
DUP = ATOMPOS;
#line 563 "regression-compile-tmp/comp412.imp"
L_0040:;
                                                                //    564              %RETURN %IF DECTYPE=0;         ! LABEL
#line 564 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (0))) goto L_0041;
#line 564 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 564 "regression-compile-tmp/comp412.imp"
L_0041:;
                                                                //    565           %FINISH
#line 565 "regression-compile-tmp/comp412.imp"
L_0038:;
                                                                //    566           EXTRA=DP;                         ! APP + FORMAT
#line 566 "regression-compile-tmp/comp412.imp"
EXTRA = DP;
                                                                //    567           TAG=DECTYPE
#line 567 "regression-compile-tmp/comp412.imp"
TAG = DECTYPE;
                                                                //    568           FF=0
#line 568 "regression-compile-tmp/comp412.imp"
FF = 0;
                                                                //    569           %IF DECTYPE = 0 %START
#line 569 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (0))) goto L_0042;
                                                                //    570              TAG = 3;  FF = 1024
#line 570 "regression-compile-tmp/comp412.imp"
TAG = 3;
#line 570 "regression-compile-tmp/comp412.imp"
FF = 1024;
                                                                //    571           %ELSE
#line 571 "regression-compile-tmp/comp412.imp"
goto L_0043;
#line 571 "regression-compile-tmp/comp412.imp"
L_0042:;
                                                                //    572              FF = FF!SPREFIX<<13
#line 572 "regression-compile-tmp/comp412.imp"
FF = ((FF) | (((SPREFIX) << (13))));
                                                                //    573           %FINISH
#line 573 "regression-compile-tmp/comp412.imp"
L_0043:;
                                                                //    574           %IF TAG&15 >= 7 %START;           ! APP NEEDED
#line 574 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (15))) < (7))) goto L_0044;
                                                                //    575              FF = FF!1024 %IF SSTYPE = 2 %AND TAG&15 <= 10
#line 575 "regression-compile-tmp/comp412.imp"
if (((SSTYPE) != (2))) goto L_0045;
#line 575 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (15))) > (10))) goto L_0045;
#line 575 "regression-compile-tmp/comp412.imp"
FF = ((FF) | (1024));
#line 575 "regression-compile-tmp/comp412.imp"
L_0045:;
                                                                //    576              CONST INT = 0
#line 576 "regression-compile-tmp/comp412.imp"
CONSTINT = 0;
                                                                //    577              %UNLESS 11#TAG&15#13 %START
#line 577 "regression-compile-tmp/comp412.imp"
if ((((11) == (((TAG) & (15))))) || (((((TAG) & (15))) != (13)))) goto L_0047;
#line 577 "regression-compile-tmp/comp412.imp"
L_0046:;
                                                                //    578                 %IF SPREFIX=1 %OR SPREFIX=2 %C
#line 578 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) == (1))) goto L_0048;
#line 578 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) != (2))) goto L_0049;
#line 578 "regression-compile-tmp/comp412.imp"
L_0048:;
#line 578 "regression-compile-tmp/comp412.imp"
DICT[DP] = APP;
#line 578 "regression-compile-tmp/comp412.imp"
goto L_004a;
#line 578 "regression-compile-tmp/comp412.imp"
L_0049:;
                                                                //    579                 %THEN DICT(DP)=APP %ELSE %START
                                                                //    580                    APARM=1; DICT(DP)=A CHAIN
#line 580 "regression-compile-tmp/comp412.imp"
APARM = 1;
#line 580 "regression-compile-tmp/comp412.imp"
DICT[DP] = ACHAIN;
                                                                //    581                    A CHAIN=DP
#line 581 "regression-compile-tmp/comp412.imp"
ACHAIN = DP;
                                                                //    582                 %FINISH
#line 582 "regression-compile-tmp/comp412.imp"
L_004a:;
                                                                //    583              %FINISH %ELSE DICT(DP)=0
#line 583 "regression-compile-tmp/comp412.imp"
goto L_004b;
#line 583 "regression-compile-tmp/comp412.imp"
L_0047:;
#line 583 "regression-compile-tmp/comp412.imp"
DICT[DP] = 0;
#line 583 "regression-compile-tmp/comp412.imp"
L_004b:;
                                                                //    584              DP=DP+1;  FF=FF!256;           ! SET APP BIT
#line 584 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
#line 584 "regression-compile-tmp/comp412.imp"
FF = ((FF) | (256));
                                                                //    585              FF=FF!1024 %IF SPEC < 0 %AND SPREFIX < 3
#line 585 "regression-compile-tmp/comp412.imp"
if (((SPEC) >= (0))) goto L_004c;
#line 585 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) >= (3))) goto L_004c;
#line 585 "regression-compile-tmp/comp412.imp"
FF = ((FF) | (1024));
#line 585 "regression-compile-tmp/comp412.imp"
L_004c:;
                                                                //    586           %FINISH
#line 586 "regression-compile-tmp/comp412.imp"
L_0044:;
                                                                //    587           %IF TAG&X'70'=X'50' %START;       ! RECORD
#line 587 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (112))) != (80))) goto L_004d;
                                                                //    588              DICT(DP)=FORMAT; DP=DP+1
#line 588 "regression-compile-tmp/comp412.imp"
DICT[DP] = FORMAT;
#line 588 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    589              FF=FF!512;                     ! SET FORMAT BIT
#line 589 "regression-compile-tmp/comp412.imp"
FF = ((FF) | (512));
                                                                //    590           %FINISH
#line 590 "regression-compile-tmp/comp412.imp"
L_004d:;
                                                                //    591           %IF TAG&15=6 %START;              ! SWITCH
#line 591 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (15))) != (6))) goto L_004e;
                                                                //    592              DICT(DP)=0
#line 592 "regression-compile-tmp/comp412.imp"
DICT[DP] = 0;
                                                                //    593              DP=DP+1
#line 593 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    594           %FINISH
#line 594 "regression-compile-tmp/comp412.imp"
L_004e:;
                                                                //    595           TAG = TAG!128 %IF SPREFIX > 3 %OR PERMIN# 0
#line 595 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) > (3))) goto L_0035;
#line 595 "regression-compile-tmp/comp412.imp"
if (((PERMIN) == (0))) goto L_004f;
#line 595 "regression-compile-tmp/comp412.imp"
L_0035:;
#line 595 "regression-compile-tmp/comp412.imp"
TAG = ((TAG) | (128));
#line 595 "regression-compile-tmp/comp412.imp"
L_004f:;
                                                                //    596           %IF CONST INT # 0 %START
#line 596 "regression-compile-tmp/comp412.imp"
if (((CONSTINT) == (0))) goto L_0050;
                                                                //    597              DICT(DP) = 0;  DP = DP+1
#line 597 "regression-compile-tmp/comp412.imp"
DICT[DP] = 0;
#line 597 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    598              TAG = TAG&X'FFF0'+5
#line 598 "regression-compile-tmp/comp412.imp"
TAG = (((int)(((TAG) & (65520)))) + (5));
                                                                //    599           %FINISH
#line 599 "regression-compile-tmp/comp412.imp"
L_0050:;
                                                                //    600           EXTRA=DP-EXTRA;                   ! 1=APP, 2=APP+FORMAT, 0=NEITH
#line 600 "regression-compile-tmp/comp412.imp"
EXTRA = (((int)(DP)) - (EXTRA));
                                                                //    601           DICT(DP) = TAG; TYPE=TAG>>4&7
#line 601 "regression-compile-tmp/comp412.imp"
DICT[DP] = TAG;
#line 601 "regression-compile-tmp/comp412.imp"
TYPE = (((int)((((unsigned int)(TAG)) >> (4)))) & (7));
                                                                //    602           DP=DP+1
#line 602 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    603           DICT(DP) = FF!(DP-T MAX-2)!EXTRA<<11
#line 603 "regression-compile-tmp/comp412.imp"
DICT[DP] = ((((FF) | ((((int)((((int)(DP)) - (TMAX)))) - (2))))) | (((EXTRA) << (11))));
                                                                //    604           SUBATOM=DP; TMAX=DP+1
#line 604 "regression-compile-tmp/comp412.imp"
SUBATOM = DP;
#line 604 "regression-compile-tmp/comp412.imp"
TMAX = (((int)(DP)) + (1));
                                                                //    605           X=DP
#line 605 "regression-compile-tmp/comp412.imp"
X = DP;
                                                                //    606     %END
#line 606 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DECLAREIDEN at level 4
                                                                //    607  
                                                                //    608     %ROUTINE READ SYM
#line 608 "regression-compile-tmp/comp412.imp"
void READSYM( void )
#line 608 "regression-compile-tmp/comp412.imp"
{
                                                                //    609        %IF SYM<32 %START
#line 609 "regression-compile-tmp/comp412.imp"
if (((SYM) >= (32))) goto L_0051;
                                                                //    610           LINE NUM = LINE NUM+1
#line 610 "regression-compile-tmp/comp412.imp"
LINENUM = (((int)(LINENUM)) + (1));
                                                                //    611           ATOM POS = 0;  POS = 0;  MARGIN = 0
#line 611 "regression-compile-tmp/comp412.imp"
ATOMPOS = 0;
#line 611 "regression-compile-tmp/comp412.imp"
POS = 0;
#line 611 "regression-compile-tmp/comp412.imp"
MARGIN = 0;
                                                                //    612           %IF LIST = 0 %START
#line 612 "regression-compile-tmp/comp412.imp"
if (((LIST) != (0))) goto L_0052;
                                                                //    613              WRITE(LINE NUM, 5)
#line 613 "regression-compile-tmp/comp412.imp"
_imp_WRITE(LINENUM, 5);
                                                                //    614              %IF QUOTE # 0 %THEN PRINT SYMBOL('"') %ELSE %START
#line 614 "regression-compile-tmp/comp412.imp"
if (((QUOTE) == (0))) goto L_0053;
#line 614 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(34);
#line 614 "regression-compile-tmp/comp412.imp"
goto L_0054;
#line 614 "regression-compile-tmp/comp412.imp"
L_0053:;
                                                                //    615                 PRINT SYMBOL(MARK);  MARK = ' '
#line 615 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(MARK);
#line 615 "regression-compile-tmp/comp412.imp"
MARK = 32;
                                                                //    616              %FINISH
#line 616 "regression-compile-tmp/comp412.imp"
L_0054:;
                                                                //    617              SPACE
#line 617 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
                                                                //    618           %FINISH
#line 618 "regression-compile-tmp/comp412.imp"
L_0052:;
                                                                //    619           SYM TYPE=1
#line 619 "regression-compile-tmp/comp412.imp"
SYMTYPE = 1;
                                                                //    620        %FINISH
#line 620 "regression-compile-tmp/comp412.imp"
L_0051:;
                                                                //    621        %CYCLE
#line 621 "regression-compile-tmp/comp412.imp"
L_0055:;
                                                                //    622           %CYCLE
#line 622 "regression-compile-tmp/comp412.imp"
L_0058:;
                                                                //    623              READSYMBOL(SYM)
#line 623 "regression-compile-tmp/comp412.imp"
_imp_READSYMBOL(&SYM);
                                                                //    624              %IF SYM = PAGE %START
#line 624 "regression-compile-tmp/comp412.imp"
if (((SYM) != (12))) goto L_005b;
                                                                //    625                 LINES = 0 %AND %CONTINUE %IF QUOTE = 0
#line 625 "regression-compile-tmp/comp412.imp"
if (((QUOTE) != (0))) goto L_005c;
#line 625 "regression-compile-tmp/comp412.imp"
LINES = 0;
#line 625 "regression-compile-tmp/comp412.imp"
goto L_005a;
#line 625 "regression-compile-tmp/comp412.imp"
L_005c:;
                                                                //    626                 LINES = PAGE SIZE
#line 626 "regression-compile-tmp/comp412.imp"
LINES = 64;
                                                                //    627              %FINISH
#line 627 "regression-compile-tmp/comp412.imp"
L_005b:;
                                                                //    628              PRINTSYMBOL(SYM) %IF LIST = 0
#line 628 "regression-compile-tmp/comp412.imp"
if (((LIST) != (0))) goto L_005d;
#line 628 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(SYM);
#line 628 "regression-compile-tmp/comp412.imp"
L_005d:;
                                                                //    629              POS=POS+1 %AND LINE(POS)=SYM %UNLESS POS >= 73
#line 629 "regression-compile-tmp/comp412.imp"
if (((POS) >= (73))) goto L_005e;
#line 629 "regression-compile-tmp/comp412.imp"
POS = (((int)(POS)) + (1));
#line 629 "regression-compile-tmp/comp412.imp"
(LINE-1)[POS] = SYM;
#line 629 "regression-compile-tmp/comp412.imp"
L_005e:;
                                                                //    630              %RETURN %IF QUOTE#0
#line 630 "regression-compile-tmp/comp412.imp"
if (((QUOTE) == (0))) goto L_005f;
#line 630 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 630 "regression-compile-tmp/comp412.imp"
L_005f:;
                                                                //    631              %EXIT %IF SYM#' '
#line 631 "regression-compile-tmp/comp412.imp"
if (((SYM) == (32))) goto L_0060;
#line 631 "regression-compile-tmp/comp412.imp"
goto L_0059;
#line 631 "regression-compile-tmp/comp412.imp"
L_0060:;
                                                                //    632              SYM TYPE=1
#line 632 "regression-compile-tmp/comp412.imp"
SYMTYPE = 1;
                                                                //    633           %REPEAT
#line 633 "regression-compile-tmp/comp412.imp"
L_005a:;
#line 633 "regression-compile-tmp/comp412.imp"
goto L_0058;
#line 633 "regression-compile-tmp/comp412.imp"
L_0059:;
                                                                //    634           %EXIT %UNLESS SYM='%'
#line 634 "regression-compile-tmp/comp412.imp"
if (((SYM) == (37))) goto L_0061;
#line 634 "regression-compile-tmp/comp412.imp"
goto L_0056;
#line 634 "regression-compile-tmp/comp412.imp"
L_0061:;
                                                                //    635           SYM TYPE=2
#line 635 "regression-compile-tmp/comp412.imp"
SYMTYPE = 2;
                                                                //    636        %REPEAT
#line 636 "regression-compile-tmp/comp412.imp"
goto L_0055;
#line 636 "regression-compile-tmp/comp412.imp"
L_0056:;
                                                                //    637        %IF SYM<32 %THEN SYMTYPE=0 %AND MARK='+' %ELSE %START
#line 637 "regression-compile-tmp/comp412.imp"
if (((SYM) >= (32))) goto L_0062;
#line 637 "regression-compile-tmp/comp412.imp"
SYMTYPE = 0;
#line 637 "regression-compile-tmp/comp412.imp"
MARK = 43;
#line 637 "regression-compile-tmp/comp412.imp"
goto L_0063;
#line 637 "regression-compile-tmp/comp412.imp"
L_0062:;
                                                                //    638           SYM=SYM-32 %IF 'A'+32 <= SYM <= 'Z'+32; ! ...CONVERT LOWER CASE
#line 638 "regression-compile-tmp/comp412.imp"
if ((((97) > (SYM))) || (((SYM) > (122)))) goto L_0064;
#line 638 "regression-compile-tmp/comp412.imp"
SYM = (((int)(SYM)) - (32));
#line 638 "regression-compile-tmp/comp412.imp"
L_0064:;
                                                                //    639           KEY=KDICT(SYM)
#line 639 "regression-compile-tmp/comp412.imp"
KEY = (KDICT-32)[SYM];
                                                                //    640           SYM TYPE=KEY&3-2 %UNLESS KEY&3=0 %AND SYMTYPE=2
#line 640 "regression-compile-tmp/comp412.imp"
if (((((KEY) & (3))) != (0))) goto L_0065;
#line 640 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) == (2))) goto L_0066;
#line 640 "regression-compile-tmp/comp412.imp"
L_0065:;
#line 640 "regression-compile-tmp/comp412.imp"
SYMTYPE = (((int)(((KEY) & (3)))) - (2));
#line 640 "regression-compile-tmp/comp412.imp"
L_0066:;
                                                                //    641        %FINISH
#line 641 "regression-compile-tmp/comp412.imp"
L_0063:;
                                                                //    642     %END
#line 642 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block READSYM at level 4
                                                                //    643  
                                                                //    644     %ROUTINE LOOKUP(%INTEGER P)
#line 644 "regression-compile-tmp/comp412.imp"
void LOOKUP( int P )
#line 644 "regression-compile-tmp/comp412.imp"
{
                                                                //    645        %INTEGER OLD, NEW, L, DISP, D, SIZE, FIRST
#line 645 "regression-compile-tmp/comp412.imp"
int OLD;
#line 645 "regression-compile-tmp/comp412.imp"
int NEW;
#line 645 "regression-compile-tmp/comp412.imp"
int L;
#line 645 "regression-compile-tmp/comp412.imp"
int DISP;
#line 645 "regression-compile-tmp/comp412.imp"
int D;
#line 645 "regression-compile-tmp/comp412.imp"
int SIZE;
#line 645 "regression-compile-tmp/comp412.imp"
int FIRST;
                                                                //    646        COUNT=0;  SIZE = DP-TMAX+1;  FIRST = DICT(T MAX)
#line 646 "regression-compile-tmp/comp412.imp"
COUNT = 0;
#line 646 "regression-compile-tmp/comp412.imp"
SIZE = (((int)((((int)(DP)) - (TMAX)))) + (1));
#line 646 "regression-compile-tmp/comp412.imp"
FIRST = DICT[TMAX];
                                                                //    647        %WHILE P > LIM %CYCLE
#line 647 "regression-compile-tmp/comp412.imp"
L_0067:;
#line 647 "regression-compile-tmp/comp412.imp"
if (((P) <= (LIM))) goto L_0068;
                                                                //    648           COUNT = COUNT-1
#line 648 "regression-compile-tmp/comp412.imp"
COUNT = (((int)(COUNT)) - (1));
                                                                //    649           P=P-1
#line 649 "regression-compile-tmp/comp412.imp"
P = (((int)(P)) - (1));
                                                                //    650           D=DICT(P)
#line 650 "regression-compile-tmp/comp412.imp"
D = DICT[P];
                                                                //    651           DISP=D&255+2
#line 651 "regression-compile-tmp/comp412.imp"
DISP = (((int)(((D) & (255)))) + (2));
                                                                //    652           L=D>>11&3; OLD=P-DISP; X=P; P=OLD
#line 652 "regression-compile-tmp/comp412.imp"
L = (((int)((((unsigned int)(D)) >> (11)))) & (3));
#line 652 "regression-compile-tmp/comp412.imp"
OLD = (((int)(P)) - (DISP));
#line 652 "regression-compile-tmp/comp412.imp"
X = P;
#line 652 "regression-compile-tmp/comp412.imp"
P = OLD;
                                                                //    653           %IF SIZE+L-DISP=0 %AND DICT(OLD) = FIRST %START
#line 653 "regression-compile-tmp/comp412.imp"
if ((((((int)((((int)(SIZE)) + (L)))) - (DISP))) != (0))) goto L_006a;
#line 653 "regression-compile-tmp/comp412.imp"
if (((DICT[OLD]) != (FIRST))) goto L_006a;
                                                                //    654              NEW=T MAX
#line 654 "regression-compile-tmp/comp412.imp"
NEW = TMAX;
                                                                //    655              %CYCLE
#line 655 "regression-compile-tmp/comp412.imp"
L_006b:;
                                                                //    656                 NEW = NEW+1;  OLD = OLD+1
#line 656 "regression-compile-tmp/comp412.imp"
NEW = (((int)(NEW)) + (1));
#line 656 "regression-compile-tmp/comp412.imp"
OLD = (((int)(OLD)) + (1));
                                                                //    657                 %IF NEW=DP %START;           ! FOUND IT
#line 657 "regression-compile-tmp/comp412.imp"
if (((NEW) != (DP))) goto L_006e;
                                                                //    658                    O TYPE = D>>13
#line 658 "regression-compile-tmp/comp412.imp"
OTYPE = (int)((((unsigned int)(D)) >> (13)));
                                                                //    659                    TAG = DICT(X-1)
#line 659 "regression-compile-tmp/comp412.imp"
TAG = DICT[(((int)(X)) - (1))];
                                                                //    660                    ATOM2=CMAP(TAG&15);       ! FORM -> CLASS
#line 660 "regression-compile-tmp/comp412.imp"
ATOM2 = CMAP[((TAG) & (15))];
                                                                //    661                    SUB ATOM=X; VAR TYPE=TAG>>4&7
#line 661 "regression-compile-tmp/comp412.imp"
SUBATOM = X;
#line 661 "regression-compile-tmp/comp412.imp"
VARTYPE = (((int)((((unsigned int)(TAG)) >> (4)))) & (7));
                                                                //    662                    ATOM2 = 66 %IF VARTYPE = 0 %AND ATOM2 = 68
#line 662 "regression-compile-tmp/comp412.imp"
if (((VARTYPE) != (0))) goto L_006f;
#line 662 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (68))) goto L_006f;
#line 662 "regression-compile-tmp/comp412.imp"
ATOM2 = 66;
#line 662 "regression-compile-tmp/comp412.imp"
L_006f:;
                                                                //    663                    ATOM1 = ATOM2 %AND SUBATOM = -OLD %IF ATOM2 = ICONST
#line 663 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (83))) goto L_0070;
#line 663 "regression-compile-tmp/comp412.imp"
ATOM1 = ATOM2;
#line 663 "regression-compile-tmp/comp412.imp"
SUBATOM = (-(OLD));
#line 663 "regression-compile-tmp/comp412.imp"
L_0070:;
                                                                //    664                    %IF D&256#0 %START;       ! SET APP
#line 664 "regression-compile-tmp/comp412.imp"
if (((((D) & (256))) == (0))) goto L_0071;
                                                                //    665                       PAPP=|DICT(OLD)|
#line 665 "regression-compile-tmp/comp412.imp"
*PAPP = _imp_IMOD(DICT[OLD]);
                                                                //    666                       %IF PAPP=0 %START
#line 666 "regression-compile-tmp/comp412.imp"
if (((*PAPP) != (0))) goto L_0072;
                                                                //    667                          %IF 11 <= TAG&15 <= 12 %START
#line 667 "regression-compile-tmp/comp412.imp"
if ((((11) > (((TAG) & (15))))) || (((((TAG) & (15))) > (12)))) goto L_0073;
                                                                //    668                             PAPP=PHRASE(ANAPP)
#line 668 "regression-compile-tmp/comp412.imp"
*PAPP = (PHRASE-132)[160];
                                                                //    669                             APARM=OLD<<3+1;  ! 1 DIMEN
#line 669 "regression-compile-tmp/comp412.imp"
APARM = (((int)(((OLD) << (3)))) + (1));
                                                                //    670                          %ELSE
#line 670 "regression-compile-tmp/comp412.imp"
goto L_0074;
#line 670 "regression-compile-tmp/comp412.imp"
L_0073:;
                                                                //    671                             F TYPE=8
#line 671 "regression-compile-tmp/comp412.imp"
FTYPE = 8;
                                                                //    672                             %RETURN %IF SPEC < 0
#line 672 "regression-compile-tmp/comp412.imp"
if (((SPEC) >= (0))) goto L_0075;
#line 672 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 672 "regression-compile-tmp/comp412.imp"
L_0075:;
                                                                //    673                             ATOM1=0; ATOM2=0
#line 673 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 673 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
                                                                //    674                          %FINISH
#line 674 "regression-compile-tmp/comp412.imp"
L_0074:;
                                                                //    675                       %FINISH
#line 675 "regression-compile-tmp/comp412.imp"
L_0072:;
                                                                //    676                       OLD=OLD+1
#line 676 "regression-compile-tmp/comp412.imp"
OLD = (((int)(OLD)) + (1));
                                                                //    677                    %FINISH %ELSE PAPP=APP;   ! DEFAULT APP
#line 677 "regression-compile-tmp/comp412.imp"
goto L_0076;
#line 677 "regression-compile-tmp/comp412.imp"
L_0071:;
#line 677 "regression-compile-tmp/comp412.imp"
*PAPP = APP;
#line 677 "regression-compile-tmp/comp412.imp"
L_0076:;
                                                                //    678                    FORMAT=0
#line 678 "regression-compile-tmp/comp412.imp"
FORMAT = 0;
                                                                //    679                    %IF D&512#0 %START
#line 679 "regression-compile-tmp/comp412.imp"
if (((((D) & (512))) == (0))) goto L_0077;
                                                                //    680                       %IF ATOM2=RFN %THEN FORMAT=SUBATOM %ELSE %START
#line 680 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (65))) goto L_0078;
#line 680 "regression-compile-tmp/comp412.imp"
FORMAT = SUBATOM;
#line 680 "regression-compile-tmp/comp412.imp"
goto L_0079;
#line 680 "regression-compile-tmp/comp412.imp"
L_0078:;
                                                                //    681                          FORMAT=DICT(DICT(OLD)-2)
#line 681 "regression-compile-tmp/comp412.imp"
FORMAT = DICT[(((int)(DICT[OLD])) - (2))];
                                                                //    682                          ATOM2=ATOM2+7
#line 682 "regression-compile-tmp/comp412.imp"
ATOM2 = (((int)(ATOM2)) + (7));
                                                                //    683                       %FINISH
#line 683 "regression-compile-tmp/comp412.imp"
L_0079:;
                                                                //    684                    %FINISH
#line 684 "regression-compile-tmp/comp412.imp"
L_0077:;
                                                                //    685                    DICT(X-1)=DICT(X-1)!128 %UNLESS SPEC < 0
#line 685 "regression-compile-tmp/comp412.imp"
if (((SPEC) < (0))) goto L_007a;
#line 685 "regression-compile-tmp/comp412.imp"
DICT[(((int)(X)) - (1))] = ((DICT[(((int)(X)) - (1))]) | (128));
#line 685 "regression-compile-tmp/comp412.imp"
L_007a:;
                                                                //    686                    SUBATOM=COUNT %IF LIM > T MAX
#line 686 "regression-compile-tmp/comp412.imp"
if (((LIM) <= (TMAX))) goto L_007b;
#line 686 "regression-compile-tmp/comp412.imp"
SUBATOM = COUNT;
#line 686 "regression-compile-tmp/comp412.imp"
L_007b:;
                                                                //    687                    %RETURN
#line 687 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    688                 %FINISH
#line 688 "regression-compile-tmp/comp412.imp"
L_006e:;
                                                                //    689                 %EXIT %IF DICT(NEW) # DICT(OLD)
#line 689 "regression-compile-tmp/comp412.imp"
if (((DICT[NEW]) == (DICT[OLD]))) goto L_007c;
#line 689 "regression-compile-tmp/comp412.imp"
goto L_006c;
#line 689 "regression-compile-tmp/comp412.imp"
L_007c:;
                                                                //    690              %REPEAT
#line 690 "regression-compile-tmp/comp412.imp"
goto L_006b;
#line 690 "regression-compile-tmp/comp412.imp"
L_006c:;
                                                                //    691           %FINISH
#line 691 "regression-compile-tmp/comp412.imp"
L_006a:;
                                                                //    692        %REPEAT
#line 692 "regression-compile-tmp/comp412.imp"
goto L_0067;
#line 692 "regression-compile-tmp/comp412.imp"
L_0068:;
                                                                //    693     %END
#line 693 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOOKUP at level 4
                                                                //    694  
                                                                //    695     %ROUTINE CODE DIGIT
#line 695 "regression-compile-tmp/comp412.imp"
void CODEDIGIT( void )
#line 695 "regression-compile-tmp/comp412.imp"
{
                                                                //    696        %IF LIMIT=0 %START;                  ! MULTI CHAR
#line 696 "regression-compile-tmp/comp412.imp"
if (((LIMIT) != (0))) goto L_007d;
                                                                //    697           DIGIT = SYM
#line 697 "regression-compile-tmp/comp412.imp"
DIGIT = SYM;
                                                                //    698           %IF DIGIT = '''' %START
#line 698 "regression-compile-tmp/comp412.imp"
if (((DIGIT) != (39))) goto L_007e;
                                                                //    699              QUOTE = 0
#line 699 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
                                                                //    700              READSYM
#line 700 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    701              DIGIT = -1 %AND %RETURN %UNLESS SYM = ''''
#line 701 "regression-compile-tmp/comp412.imp"
if (((SYM) == (39))) goto L_007f;
#line 701 "regression-compile-tmp/comp412.imp"
DIGIT = (-1);
#line 701 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 701 "regression-compile-tmp/comp412.imp"
L_007f:;
                                                                //    702              QUOTE = 1
#line 702 "regression-compile-tmp/comp412.imp"
QUOTE = 1;
                                                                //    703           %FINISH
#line 703 "regression-compile-tmp/comp412.imp"
L_007e:;
                                                                //    704           READSYM
#line 704 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    705        %ELSE
#line 705 "regression-compile-tmp/comp412.imp"
goto L_0080;
#line 705 "regression-compile-tmp/comp412.imp"
L_007d:;
                                                                //    706           %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START
#line 706 "regression-compile-tmp/comp412.imp"
if ((((48) > (SYM))) || (((SYM) <= (57)))) goto L_0082;
#line 706 "regression-compile-tmp/comp412.imp"
L_0081:;
#line 706 "regression-compile-tmp/comp412.imp"
if ((((65) > (SYM))) || (((SYM) > (70)))) goto L_0083;
#line 706 "regression-compile-tmp/comp412.imp"
L_0082:;
                                                                //    707              %IF SYM <= '9' %THEN DIGIT = SYM-'0' %C
#line 707 "regression-compile-tmp/comp412.imp"
if (((SYM) > (57))) goto L_0084;
#line 707 "regression-compile-tmp/comp412.imp"
DIGIT = (((int)(SYM)) - (48));
#line 707 "regression-compile-tmp/comp412.imp"
goto L_0085;
#line 707 "regression-compile-tmp/comp412.imp"
L_0084:;
#line 707 "regression-compile-tmp/comp412.imp"
DIGIT = (((int)((((int)(SYM)) - (65)))) + (10));
#line 707 "regression-compile-tmp/comp412.imp"
L_0085:;
                                                                //    708                             %ELSE DIGIT = SYM-'A'+10
                                                                //    709                 %IF DIGIT <= LIMIT %START
#line 709 "regression-compile-tmp/comp412.imp"
if (((DIGIT) > (LIMIT))) goto L_0086;
                                                                //    710                    DIGIT = DIGIT+'A'
#line 710 "regression-compile-tmp/comp412.imp"
DIGIT = (((int)(DIGIT)) + (65));
                                                                //    711                    READ SYM
#line 711 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    712                    %RETURN
#line 712 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    713                 %FINISH
#line 713 "regression-compile-tmp/comp412.imp"
L_0086:;
                                                                //    714           %FINISH
#line 714 "regression-compile-tmp/comp412.imp"
L_0083:;
                                                                //    715           DIGIT=0;  QUOTE=0
#line 715 "regression-compile-tmp/comp412.imp"
DIGIT = 0;
#line 715 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
                                                                //    716           %IF SYM='''' %START
#line 716 "regression-compile-tmp/comp412.imp"
if (((SYM) != (39))) goto L_0087;
                                                                //    717              %IF LIMIT # 9 %START
#line 717 "regression-compile-tmp/comp412.imp"
if (((LIMIT) == (9))) goto L_0088;
                                                                //    718                 DIGIT = -1;  READSYM
#line 718 "regression-compile-tmp/comp412.imp"
DIGIT = (-1);
#line 718 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    719              %FINISH
#line 719 "regression-compile-tmp/comp412.imp"
L_0088:;
                                                                //    720           %FINISH
#line 720 "regression-compile-tmp/comp412.imp"
L_0087:;
                                                                //    721        %FINISH
#line 721 "regression-compile-tmp/comp412.imp"
L_0080:;
                                                                //    722     %END
#line 722 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODEDIGIT at level 4
                                                                //    723  
                                                                //    724     %ROUTINE CODE ATOM
#line 724 "regression-compile-tmp/comp412.imp"
void CODEATOM( void )
#line 724 "regression-compile-tmp/comp412.imp"
{
                                                                //    725        %INTEGER TP
#line 725 "regression-compile-tmp/comp412.imp"
int TP;
                                                                //    726        %ROUTINE TPUT(%INTEGER S)
#line 726 "regression-compile-tmp/comp412.imp"
void TPUT( int S )
#line 726 "regression-compile-tmp/comp412.imp"
{
                                                                //    727           POS = 0 %IF S < 32
#line 727 "regression-compile-tmp/comp412.imp"
if (((S) >= (32))) goto L_0089;
#line 727 "regression-compile-tmp/comp412.imp"
POS = 0;
#line 727 "regression-compile-tmp/comp412.imp"
L_0089:;
                                                                //    728           FAULT(20) %IF TP = TEXT LIMIT
#line 728 "regression-compile-tmp/comp412.imp"
if (((TP) != (255))) goto L_008a;
#line 728 "regression-compile-tmp/comp412.imp"
FAULT(20);
#line 728 "regression-compile-tmp/comp412.imp"
L_008a:;
                                                                //    729           TP = TP+1;  BUFFER(LITPOS-TP) = S
#line 729 "regression-compile-tmp/comp412.imp"
TP = (((int)(TP)) + (1));
#line 729 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[(((int)(LITPOS)) - (TP))] = S;
                                                                //    730        %END
#line 730 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TPUT at level 5
                                                                //    731        %INTEGERNAME SS
#line 731 "regression-compile-tmp/comp412.imp"
int /*name*/*SS;
                                                                //    732        %INTEGER DTYPE, XTYPE, SRMOD, SLEN, PREFIX
#line 732 "regression-compile-tmp/comp412.imp"
int DTYPE;
#line 732 "regression-compile-tmp/comp412.imp"
int XTYPE;
#line 732 "regression-compile-tmp/comp412.imp"
int SRMOD;
#line 732 "regression-compile-tmp/comp412.imp"
int SLEN;
#line 732 "regression-compile-tmp/comp412.imp"
int PREFIX;
                                                                //    733        %INTEGER J, K, L, S, LP
#line 733 "regression-compile-tmp/comp412.imp"
int J;
#line 733 "regression-compile-tmp/comp412.imp"
int K;
#line 733 "regression-compile-tmp/comp412.imp"
int L;
#line 733 "regression-compile-tmp/comp412.imp"
int S;
#line 733 "regression-compile-tmp/comp412.imp"
int LP;
                                                                //    734        %CONSTBYTEINTEGERARRAY BASE SYM(1 : 4)= 'X', 'M', 'B', 'K'
#line 734 "regression-compile-tmp/comp412.imp"
const unsigned char BASESYM[4] = { 88, 77, 66, 75,  };
                                                                //    735        %CONSTSHORTINTEGERARRAY BASE INF(1:4)=
#line 735 "regression-compile-tmp/comp412.imp"
const short BASEINF[4] = { 22799, 22528, 22273, 22023,  };
                                                                //    736                                          X'590F',X'5800',X'5701',X'5607'
                                                                //    737        %CONSTSHORTINTEGER SPS=117;          ! START OF SPEC SUB
                                                                //    738        %CONSTBYTEINTEGERARRAY SPEC SUB(SPS : 127)=%C
#line 738 "regression-compile-tmp/comp412.imp"
const unsigned char SPECSUB[11] = { 8, 9, 10, 7, 105, 104, 25, 24, 72, 73, 1,  };
                                                                //    739                                      8,9,10,7,105,104,25,24,72,73,1
                                                                //    740        %CONSTSHORTINTEGERARRAY P VALUE(0 : 10)=%C
#line 740 "regression-compile-tmp/comp412.imp"
const short PVALUE[11] = { 0, 6183, 6183, 4199, 295, 295, 4263, 167, 9240, 17432, 8728,  };
                                                                //    741                                      0,
                                                                //    742                                X'1827'(2), X'1067', X'0127'(2),X'10A7',
                                                                //    743                                X'00A7',X'2418',X'4418',
                                                                //    744                                X'2218'
                                                                //    745        %CONSTSHORTINTEGERARRAY SATOMS(1 : 12) =
#line 745 "regression-compile-tmp/comp412.imp"
const short SATOMS[12] = { 53, 14389, 12856, 50, 14389, 51, 14389, 51, 14389, 14389, 12856, 50,  };
                                                                //    746  !         SPEC,     NAME,     MAP,      MAPSPEC,    <NULL>,
                                                                //    747            X'0035',  X'3835',  X'3238',  X'0032',    X'3835',
                                                                //    748  !         ARRAY     ARRAYNAME ARRAYSPEC NAMESPEC    ARRAYNAMESPEC,
                                                                //    749            X'0033',  X'3835',  X'0033',  X'3835',    X'3835',
                                                                //    750  !         FN,       FNSPEC
                                                                //    751            X'3238',  X'0032'
                                                                //    752  
                                                                //    753        %CONSTBYTEINTEGERARRAY SCLASS(1 : 12) =
#line 753 "regression-compile-tmp/comp412.imp"
const unsigned char SCLASS[12] = { 109, 2, 9, 118, 1, 11, 12, 111, 110, 112, 8, 117,  };
                                                                //    754  !         SPEC,     NAME,     MAP,      MAPSPEC,    <NULL>,
                                                                //    755            109,      2,        9,        118,        1,
                                                                //    756  !         ARRAY,    ARRAYNAME,ARRAYSPEC,NAMESPEC,   ARRAYNAMESPEC,
                                                                //    757            11,       12,       111,      110,        112,
                                                                //    758  !         FN,       FNSPEC
                                                                //    759            8,        117
                                                                //    760        %CONSTINTEGER XSPS = 109
                                                                //    761        %CONSTINTEGERARRAY XMOD(XSPS : 116) = 17,18,27,28,97,98,107,108
#line 761 "regression-compile-tmp/comp412.imp"
const int XMOD[8] = { 17, 18, 27, 28, 97, 98, 107, 108,  };
                                                                //    762        LP=LIT POS
#line 762 "regression-compile-tmp/comp412.imp"
LP = LITPOS;
                                                                //    763        ATOM POS=POS; LAST=ATOM1
#line 763 "regression-compile-tmp/comp412.imp"
ATOMPOS = POS;
#line 763 "regression-compile-tmp/comp412.imp"
LAST = ATOM1;
                                                                //    764        %IF QUOTE#0 %START;                  ! CONTINUATION OF STRING CONST
#line 764 "regression-compile-tmp/comp412.imp"
if (((QUOTE) == (0))) goto L_008b;
                                                                //    765           TP=0
#line 765 "regression-compile-tmp/comp412.imp"
TP = 0;
                                                                //    766           TPUT(QUOTE>>8); TPUT(QUOTE&255)
#line 766 "regression-compile-tmp/comp412.imp"
TPUT((int)((((unsigned int)(QUOTE)) >> (8))));
#line 766 "regression-compile-tmp/comp412.imp"
TPUT(((QUOTE) & (255)));
                                                                //    767           %CYCLE
#line 767 "regression-compile-tmp/comp412.imp"
L_008c:;
                                                                //    768              READSYM
#line 768 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    769              %IF SYM= DELIM %START
#line 769 "regression-compile-tmp/comp412.imp"
if (((SYM) != (DELIM))) goto L_008f;
                                                                //    770                 QUOTE=0
#line 770 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
                                                                //    771                 READSYM; %EXIT %IF SYM# DELIM
#line 771 "regression-compile-tmp/comp412.imp"
READSYM();
#line 771 "regression-compile-tmp/comp412.imp"
if (((SYM) == (DELIM))) goto L_0090;
#line 771 "regression-compile-tmp/comp412.imp"
goto L_008d;
#line 771 "regression-compile-tmp/comp412.imp"
L_0090:;
                                                                //    772                 QUOTE=1
#line 772 "regression-compile-tmp/comp412.imp"
QUOTE = 1;
                                                                //    773              %FINISH
#line 773 "regression-compile-tmp/comp412.imp"
L_008f:;
                                                                //    774              TPUT(SYM)
#line 774 "regression-compile-tmp/comp412.imp"
TPUT(SYM);
                                                                //    775           %REPEAT
#line 775 "regression-compile-tmp/comp412.imp"
goto L_008c;
#line 775 "regression-compile-tmp/comp412.imp"
L_008d:;
                                                                //    776           BUFFER(LIT POS)=TP
#line 776 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[LITPOS] = TP;
                                                                //    777           LITPOS=LITPOS-TP-1
#line 777 "regression-compile-tmp/comp412.imp"
LITPOS = (((int)((((int)(LITPOS)) - (TP)))) - (1));
                                                                //    778        %FINISH
#line 778 "regression-compile-tmp/comp412.imp"
L_008b:;
                                                                //    779        SLEN=0; XTYPE=0; SRMOD=0; PREFIX=0
#line 779 "regression-compile-tmp/comp412.imp"
SLEN = 0;
#line 779 "regression-compile-tmp/comp412.imp"
XTYPE = 0;
#line 779 "regression-compile-tmp/comp412.imp"
SRMOD = 0;
#line 779 "regression-compile-tmp/comp412.imp"
PREFIX = 0;
                                                                //    780        %CYCLE
#line 780 "regression-compile-tmp/comp412.imp"
L_0091:;
                                                                //    781           ATOM1=0; ATOM2=0; SUB ATOM=0; TAG=0
#line 781 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 781 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
#line 781 "regression-compile-tmp/comp412.imp"
SUBATOM = 0;
#line 781 "regression-compile-tmp/comp412.imp"
TAG = 0;
                                                                //    782           ATOM1=TERMIN %AND %RETURN %IF SYMTYPE=0
#line 782 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) != (0))) goto L_0094;
#line 782 "regression-compile-tmp/comp412.imp"
ATOM1 = 13;
#line 782 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 782 "regression-compile-tmp/comp412.imp"
L_0094:;
                                                                //    783           %IF SYMTYPE=-1 %START;             ! DIGIT
#line 783 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) != ((-1)))) goto L_0095;
                                                                //    784              %UNLESS (LAST=0 %AND OUT=0) %OR LAST=8%START
#line 784 "regression-compile-tmp/comp412.imp"
if (((LAST) != (0))) goto L_006d;
#line 784 "regression-compile-tmp/comp412.imp"
if (((OUT) == (0))) goto L_0096;
#line 784 "regression-compile-tmp/comp412.imp"
L_006d:;
#line 784 "regression-compile-tmp/comp412.imp"
if (((LAST) == (8))) goto L_0096;
                                                                //    785                 LIMIT=9; DIGIT='Z'
#line 785 "regression-compile-tmp/comp412.imp"
LIMIT = 9;
#line 785 "regression-compile-tmp/comp412.imp"
DIGIT = 90;
                                                                //    786  NEW BASE:      ATOM1=ICONST;  ATOM2 = ICONST
#line 786 "regression-compile-tmp/comp412.imp"
U_1002:;
#line 786 "regression-compile-tmp/comp412.imp"
ATOM1 = 83;
#line 786 "regression-compile-tmp/comp412.imp"
ATOM2 = 83;
                                                                //    787                 %CYCLE
#line 787 "regression-compile-tmp/comp412.imp"
L_0097:;
                                                                //    788                    LIT POS=LIT POS-1
#line 788 "regression-compile-tmp/comp412.imp"
LITPOS = (((int)(LITPOS)) - (1));
                                                                //    789                    BUFFER(LIT POS)=DIGIT
#line 789 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[LITPOS] = DIGIT;
                                                                //    790                    CODE DIGIT
#line 790 "regression-compile-tmp/comp412.imp"
CODEDIGIT();
                                                                //    791                    %IF DIGIT <= 0 %START
#line 791 "regression-compile-tmp/comp412.imp"
if (((DIGIT) > (0))) goto L_009a;
                                                                //    792                       %IF LIMIT = 9 %AND SYM = '.' %AND ATOM1 = ICONST %START
#line 792 "regression-compile-tmp/comp412.imp"
if (((LIMIT) != (9))) goto L_009b;
#line 792 "regression-compile-tmp/comp412.imp"
if (((SYM) != (46))) goto L_009b;
#line 792 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (83))) goto L_009b;
                                                                //    793                          DIGIT = '.'
#line 793 "regression-compile-tmp/comp412.imp"
DIGIT = 46;
                                                                //    794                          ATOM1 = RCONST;  ATOM2 = RCONST
#line 794 "regression-compile-tmp/comp412.imp"
ATOM1 = 84;
#line 794 "regression-compile-tmp/comp412.imp"
ATOM2 = 84;
                                                                //    795                          LP = LP-1
#line 795 "regression-compile-tmp/comp412.imp"
LP = (((int)(LP)) - (1));
                                                                //    796                          READ SYM
#line 796 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    797                       %ELSE
#line 797 "regression-compile-tmp/comp412.imp"
goto L_009c;
#line 797 "regression-compile-tmp/comp412.imp"
L_009b:;
                                                                //    798                          ATOM1=0 %IF LIMIT#9 %AND DIGIT=0
#line 798 "regression-compile-tmp/comp412.imp"
if (((LIMIT) == (9))) goto L_009d;
#line 798 "regression-compile-tmp/comp412.imp"
if (((DIGIT) != (0))) goto L_009d;
#line 798 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 798 "regression-compile-tmp/comp412.imp"
L_009d:;
                                                                //    799                          BUFFER(LP)=LP-LITPOS
#line 799 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[LP] = (((int)(LP)) - (LITPOS));
                                                                //    800                          LIT POS=LIT POS-1
#line 800 "regression-compile-tmp/comp412.imp"
LITPOS = (((int)(LITPOS)) - (1));
                                                                //    801                          SUBATOM=LP
#line 801 "regression-compile-tmp/comp412.imp"
SUBATOM = LP;
                                                                //    802                          FAULT(23) %IF LITPOS <= 0
#line 802 "regression-compile-tmp/comp412.imp"
if (((LITPOS) > (0))) goto L_009e;
#line 802 "regression-compile-tmp/comp412.imp"
FAULT(23);
#line 802 "regression-compile-tmp/comp412.imp"
L_009e:;
                                                                //    803                          %RETURN
#line 803 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    804                       %FINISH
#line 804 "regression-compile-tmp/comp412.imp"
L_009c:;
                                                                //    805                    %FINISH
#line 805 "regression-compile-tmp/comp412.imp"
L_009a:;
                                                                //    806                 %REPEAT
#line 806 "regression-compile-tmp/comp412.imp"
goto L_0097;
                                                                //    807              %FINISH
#line 807 "regression-compile-tmp/comp412.imp"
L_0096:;
                                                                //    808           %FINISH
#line 808 "regression-compile-tmp/comp412.imp"
L_0095:;
                                                                //    809           %IF SYM TYPE < 0 %START;           ! LETTER
#line 809 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) >= (0))) goto L_009f;
                                                                //    810              DP=T MAX
#line 810 "regression-compile-tmp/comp412.imp"
DP = TMAX;
                                                                //    811              OLD SYM=SYM
#line 811 "regression-compile-tmp/comp412.imp"
OLDSYM = SYM;
                                                                //    812  ! ---- THE FOLLOWING PACKING ROUTINE IS WORD-LENGTH DEPENDENT BUT CAN
                                                                //    813  !      BE MODIFIED WITH NO OTHER SIDE-EFFECTS PROVIDED COMPLEMENTARY
                                                                //    814  !      ALTERATIONS ARE MADE TO  'UNPACK'  IN ROUTINE 'PRINT NAME' ----
                                                                //    815              %CYCLE
#line 815 "regression-compile-tmp/comp412.imp"
L_00a0:;
                                                                //    816                 SS == DICT(DP)
#line 816 "regression-compile-tmp/comp412.imp"
SS = &DICT[DP];
                                                                //    817                 SS = SYM-32
#line 817 "regression-compile-tmp/comp412.imp"
*SS = (((int)(SYM)) - (32));
                                                                //    818                 READ SYM; %EXIT %IF SYM TYPE >= 0
#line 818 "regression-compile-tmp/comp412.imp"
READSYM();
#line 818 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) < (0))) goto L_0098;
#line 818 "regression-compile-tmp/comp412.imp"
goto L_00a1;
#line 818 "regression-compile-tmp/comp412.imp"
L_0098:;
                                                                //    819                 OLD SYM=0
#line 819 "regression-compile-tmp/comp412.imp"
OLDSYM = 0;
                                                                //    820                 SS = (SS<<6) + (SYM-32)
#line 820 "regression-compile-tmp/comp412.imp"
*SS = (((((*SS) << (6)))) + ((((int)(SYM)) - (32))));
                                                                //    821                 READ SYM;  %EXIT %IF SYM TYPE >= 0
#line 821 "regression-compile-tmp/comp412.imp"
READSYM();
#line 821 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) < (0))) goto L_00a3;
#line 821 "regression-compile-tmp/comp412.imp"
goto L_00a1;
#line 821 "regression-compile-tmp/comp412.imp"
L_00a3:;
                                                                //    822                 SS = (SS<<6) + (SYM-32)
#line 822 "regression-compile-tmp/comp412.imp"
*SS = (((((*SS) << (6)))) + ((((int)(SYM)) - (32))));
                                                                //    823                 READ SYM;  %EXIT %IF SYM TYPE >= 0
#line 823 "regression-compile-tmp/comp412.imp"
READSYM();
#line 823 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) < (0))) goto L_00a4;
#line 823 "regression-compile-tmp/comp412.imp"
goto L_00a1;
#line 823 "regression-compile-tmp/comp412.imp"
L_00a4:;
                                                                //    824                 SS = (SS<<6) + (SYM-32)
#line 824 "regression-compile-tmp/comp412.imp"
*SS = (((((*SS) << (6)))) + ((((int)(SYM)) - (32))));
                                                                //    825                 READ SYM;  %EXIT %IF SYM TYPE >= 0
#line 825 "regression-compile-tmp/comp412.imp"
READSYM();
#line 825 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) < (0))) goto L_00a5;
#line 825 "regression-compile-tmp/comp412.imp"
goto L_00a1;
#line 825 "regression-compile-tmp/comp412.imp"
L_00a5:;
                                                                //    826                 SS = (SS<<6) + (SYM-32)
#line 826 "regression-compile-tmp/comp412.imp"
*SS = (((((*SS) << (6)))) + ((((int)(SYM)) - (32))));
                                                                //    827                 READ SYM;  %EXIT %IF SYM TYPE >= 0
#line 827 "regression-compile-tmp/comp412.imp"
READSYM();
#line 827 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) < (0))) goto L_00a6;
#line 827 "regression-compile-tmp/comp412.imp"
goto L_00a1;
#line 827 "regression-compile-tmp/comp412.imp"
L_00a6:;
                                                                //    828                 DP=DP+1
#line 828 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    829              %REPEAT
#line 829 "regression-compile-tmp/comp412.imp"
goto L_00a0;
#line 829 "regression-compile-tmp/comp412.imp"
L_00a1:;
                                                                //    830              %IF SYM='''' %AND OLD SYM # 0 %START
#line 830 "regression-compile-tmp/comp412.imp"
if (((SYM) != (39))) goto L_00a7;
#line 830 "regression-compile-tmp/comp412.imp"
if (((OLDSYM) == (0))) goto L_00a7;
                                                                //    831                 DELIM = ''''
#line 831 "regression-compile-tmp/comp412.imp"
DELIM = 39;
                                                                //    832                 %CYCLE J=1,1,4
#line 832 "regression-compile-tmp/comp412.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_00a8:;
if (J == 4) goto L_00a9;
J += 1;
                                                                //    833                    %IF OLD SYM=BASE SYM(J) %START
#line 833 "regression-compile-tmp/comp412.imp"
if (((OLDSYM) != ((BASESYM-1)[J]))) goto L_00ab;
                                                                //    834                       QUOTE = 1
#line 834 "regression-compile-tmp/comp412.imp"
QUOTE = 1;
                                                                //    835                       K=BASE INF(J)
#line 835 "regression-compile-tmp/comp412.imp"
K = (BASEINF-1)[J];
                                                                //    836                       DIGIT=K>>8; LIMIT=K&255
#line 836 "regression-compile-tmp/comp412.imp"
DIGIT = (int)((((unsigned int)(K)) >> (8)));
#line 836 "regression-compile-tmp/comp412.imp"
LIMIT = ((K) & (255));
                                                                //    837                       READSYM
#line 837 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    838                       -> NEW BASE
#line 838 "regression-compile-tmp/comp412.imp"
goto U_1002;
                                                                //    839                    %FINISH
#line 839 "regression-compile-tmp/comp412.imp"
L_00ab:;
                                                                //    840                 %REPEAT
#line 840 "regression-compile-tmp/comp412.imp"
goto L_00a8;
#line 840 "regression-compile-tmp/comp412.imp"
L_00a9:;
                                                                //    841              %FINISH
#line 841 "regression-compile-tmp/comp412.imp"
L_00a7:;
                                                                //    842              DP=DP+1
#line 842 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    843              FAULT(21) %IF DP >= T LIMIT
#line 843 "regression-compile-tmp/comp412.imp"
if (((DP) < (TLIMIT))) goto L_00ac;
#line 843 "regression-compile-tmp/comp412.imp"
FAULT(21);
#line 843 "regression-compile-tmp/comp412.imp"
L_00ac:;
                                                                //    844              ATOM1=IDENT; ATOM2=IDENT
#line 844 "regression-compile-tmp/comp412.imp"
ATOM1 = 59;
#line 844 "regression-compile-tmp/comp412.imp"
ATOM2 = 59;
                                                                //    845              LIM=T BASE; LOOKUP(T MAX)
#line 845 "regression-compile-tmp/comp412.imp"
LIM = TBASE;
#line 845 "regression-compile-tmp/comp412.imp"
LOOKUP(TMAX);
                                                                //    846              %RETURN
#line 846 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    847           %FINISH
#line 847 "regression-compile-tmp/comp412.imp"
L_009f:;
                                                                //    848           %IF SYM='''' %OR SYM = '"' %START
#line 848 "regression-compile-tmp/comp412.imp"
if (((SYM) == (39))) goto L_008e;
#line 848 "regression-compile-tmp/comp412.imp"
if (((SYM) != (34))) goto L_00ad;
#line 848 "regression-compile-tmp/comp412.imp"
L_008e:;
                                                                //    849              DELIM = SYM
#line 849 "regression-compile-tmp/comp412.imp"
DELIM = SYM;
                                                                //    850              QUOTE=1;                        ! INTO TEXT MODE
#line 850 "regression-compile-tmp/comp412.imp"
QUOTE = 1;
                                                                //    851              ATOM1=SCONST;                   ! SYMBOL, OR
#line 851 "regression-compile-tmp/comp412.imp"
ATOM1 = 82;
                                                                //    852              ATOM2=ICONST;                   ! STRING
#line 852 "regression-compile-tmp/comp412.imp"
ATOM2 = 83;
                                                                //    853              READSYM;  SUB ATOM=SYM;         ! FIRST CHAR
#line 853 "regression-compile-tmp/comp412.imp"
READSYM();
#line 853 "regression-compile-tmp/comp412.imp"
SUBATOM = SYM;
                                                                //    854              QUOTE=0 %IF SUBATOM=DELIM
#line 854 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) != (DELIM))) goto L_00ae;
#line 854 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
#line 854 "regression-compile-tmp/comp412.imp"
L_00ae:;
                                                                //    855              READSYM
#line 855 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    856              %IF SUBATOM=DELIM %START;       ! ' ' FOUND
#line 856 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) != (DELIM))) goto L_00af;
                                                                //    857                 %IF SYM#DELIM %START;        ! NULL SYMBOL OR STRING
#line 857 "regression-compile-tmp/comp412.imp"
if (((SYM) == (DELIM))) goto L_00b0;
                                                                //    858                    SUB ATOM=NULL STRING; %RETURN
#line 858 "regression-compile-tmp/comp412.imp"
SUBATOM = 401;
#line 858 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    859                 %FINISH
#line 859 "regression-compile-tmp/comp412.imp"
L_00b0:;
                                                                //    860                                            ! ' ' ' FOUND
                                                                //    861                 QUOTE=1
#line 861 "regression-compile-tmp/comp412.imp"
QUOTE = 1;
                                                                //    862              READSYM;                      ! '' -> '
#line 862 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    863              %FINISH
#line 863 "regression-compile-tmp/comp412.imp"
L_00af:;
                                                                //    864              %IF SYM=DELIM %START;           ! FOUND DELIM %OR '?'
#line 864 "regression-compile-tmp/comp412.imp"
if (((SYM) != (DELIM))) goto L_00b1;
                                                                //    865                 QUOTE=0
#line 865 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
                                                                //    866                 READ SYM;                    ! SKIP QUOTE
#line 866 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    867                 %IF SYM#DELIM %START
#line 867 "regression-compile-tmp/comp412.imp"
if (((SYM) == (DELIM))) goto L_00b2;
                                                                //    868                    LITPOS=LITPOS-2
#line 868 "regression-compile-tmp/comp412.imp"
LITPOS = (((int)(LITPOS)) - (2));
                                                                //    869                    BUFFER(LITPOS+2)=-1
#line 869 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[(((int)(LITPOS)) + (2))] = (-1);
                                                                //    870                    BUFFER(LITPOS+1)=SUBATOM
#line 870 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[(((int)(LITPOS)) + (1))] = SUBATOM;
                                                                //    871                    SUBATOM=LITPOS+2
#line 871 "regression-compile-tmp/comp412.imp"
SUBATOM = (((int)(LITPOS)) + (2));
                                                                //    872                    %RETURN
#line 872 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    873                 %FINISH
#line 873 "regression-compile-tmp/comp412.imp"
L_00b2:;
                                                                //    874              %FINISH
#line 874 "regression-compile-tmp/comp412.imp"
L_00b1:;
                                                                //    875              QUOTE=SUBATOM<<8+SYM;           ! PRESERVE SYMBOLS
#line 875 "regression-compile-tmp/comp412.imp"
QUOTE = (((int)(((SUBATOM) << (8)))) + (SYM));
                                                                //    876              ATOM2=SCONST;                   ! IT MUST BE A STRING
#line 876 "regression-compile-tmp/comp412.imp"
ATOM2 = 82;
                                                                //    877              SUBATOM=LITPOS
#line 877 "regression-compile-tmp/comp412.imp"
SUBATOM = LITPOS;
                                                                //    878              %RETURN
#line 878 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    879           %FINISH
#line 879 "regression-compile-tmp/comp412.imp"
L_00ad:;
                                                                //    880           DP=KEY>>2;                         ! INDEX INTO DICT
#line 880 "regression-compile-tmp/comp412.imp"
DP = (int)((((unsigned int)(KEY)) >> (2)));
                                                                //    881           READ SYM;                          ! GET NEXT SYMBOL
#line 881 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    882           %CYCLE
#line 882 "regression-compile-tmp/comp412.imp"
L_00b3:;
                                                                //    883              S=KDICT(DP)
#line 883 "regression-compile-tmp/comp412.imp"
S = (KDICT-32)[DP];
                                                                //    884              %EXIT %IF S&X'4000'#0;          ! END OF LIST MARKER
#line 884 "regression-compile-tmp/comp412.imp"
if (((((S) & (16384))) == (0))) goto L_00b6;
#line 884 "regression-compile-tmp/comp412.imp"
goto L_00b4;
#line 884 "regression-compile-tmp/comp412.imp"
L_00b6:;
                                                                //    885              %IF S&127#SYM %OR SYMTYPE < 0 %START
#line 885 "regression-compile-tmp/comp412.imp"
if (((((S) & (127))) != (SYM))) goto L_00a2;
#line 885 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) >= (0))) goto L_00b7;
#line 885 "regression-compile-tmp/comp412.imp"
L_00a2:;
                                                                //    886                 ATOM POS=POS %AND %RETURN %IF S >= 0
#line 886 "regression-compile-tmp/comp412.imp"
if (((S) < (0))) goto L_00b8;
#line 886 "regression-compile-tmp/comp412.imp"
ATOMPOS = POS;
#line 886 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 886 "regression-compile-tmp/comp412.imp"
L_00b8:;
                                                                //    887                 DP=DP+1;                     ! ONTO ALTERNATIVE
#line 887 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (1));
                                                                //    888              %ELSE
#line 888 "regression-compile-tmp/comp412.imp"
goto L_00b9;
#line 888 "regression-compile-tmp/comp412.imp"
L_00b7:;
                                                                //    889                 K = S>>7&127;  READ SYM
#line 889 "regression-compile-tmp/comp412.imp"
K = (((int)((((unsigned int)(S)) >> (7)))) & (127));
#line 889 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    890                 %IF S > 0 %START
#line 890 "regression-compile-tmp/comp412.imp"
if (((S) <= (0))) goto L_00ba;
                                                                //    891                    %IF K # 0 %START
#line 891 "regression-compile-tmp/comp412.imp"
if (((K) == (0))) goto L_00bb;
                                                                //    892                       ATOM POS = POS %AND %RETURN %IF K#SYM %OR SYMTYPE<0
#line 892 "regression-compile-tmp/comp412.imp"
if (((K) != (SYM))) goto L_00bc;
#line 892 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) >= (0))) goto L_00bd;
#line 892 "regression-compile-tmp/comp412.imp"
L_00bc:;
#line 892 "regression-compile-tmp/comp412.imp"
ATOMPOS = POS;
#line 892 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 892 "regression-compile-tmp/comp412.imp"
L_00bd:;
                                                                //    893                       READ SYM
#line 893 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //    894                    %FINISH
#line 894 "regression-compile-tmp/comp412.imp"
L_00bb:;
                                                                //    895                    K = 1
#line 895 "regression-compile-tmp/comp412.imp"
K = 1;
                                                                //    896                 %FINISH
#line 896 "regression-compile-tmp/comp412.imp"
L_00ba:;
                                                                //    897                 DP = DP+K
#line 897 "regression-compile-tmp/comp412.imp"
DP = (((int)(DP)) + (K));
                                                                //    898              %FINISH
#line 898 "regression-compile-tmp/comp412.imp"
L_00b9:;
                                                                //    899           %REPEAT
#line 899 "regression-compile-tmp/comp412.imp"
goto L_00b3;
#line 899 "regression-compile-tmp/comp412.imp"
L_00b4:;
                                                                //    900           ATOM1=S&63;                        ! PICK OFF CLASS
#line 900 "regression-compile-tmp/comp412.imp"
ATOM1 = ((S) & (63));
                                                                //    901           SUB ATOM=S>>6&255
#line 901 "regression-compile-tmp/comp412.imp"
SUBATOM = (((int)((((unsigned int)(S)) >> (6)))) & (255));
                                                                //    902           %EXIT %IF ATOM1#0
#line 902 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (0))) goto L_00be;
#line 902 "regression-compile-tmp/comp412.imp"
goto L_0092;
#line 902 "regression-compile-tmp/comp412.imp"
L_00be:;
                                                                //    903           L=P VALUE(SUBATOM)
#line 903 "regression-compile-tmp/comp412.imp"
L = PVALUE[SUBATOM];
                                                                //    904           %IF L#0 %START
#line 904 "regression-compile-tmp/comp412.imp"
if (((L) == (0))) goto L_00bf;
                                                                //    905              %RETURN %IF PREFIX&L&63 # 0 %OR (LAST # 0 %AND L&1 # 0)
#line 905 "regression-compile-tmp/comp412.imp"
if (((((((PREFIX) & (L))) & (63))) != (0))) goto L_00c0;
#line 905 "regression-compile-tmp/comp412.imp"
if (((LAST) == (0))) goto L_00c1;
#line 905 "regression-compile-tmp/comp412.imp"
if (((((L) & (1))) == (0))) goto L_00c1;
#line 905 "regression-compile-tmp/comp412.imp"
L_00c0:;
#line 905 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 905 "regression-compile-tmp/comp412.imp"
L_00c1:;
                                                                //    906              PREFIX=PREFIX!L>>6
#line 906 "regression-compile-tmp/comp412.imp"
PREFIX = ((PREFIX) | ((int)((((unsigned int)(L)) >> (6)))));
                                                                //    907              XTYPE=SUBATOM %IF SUBATOM <= 7
#line 907 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) > (7))) goto L_00c2;
#line 907 "regression-compile-tmp/comp412.imp"
XTYPE = SUBATOM;
#line 907 "regression-compile-tmp/comp412.imp"
L_00c2:;
                                                                //    908           %FINISH
#line 908 "regression-compile-tmp/comp412.imp"
L_00bf:;
                                                                //    909           ATOM POS=POS
#line 909 "regression-compile-tmp/comp412.imp"
ATOMPOS = POS;
                                                                //    910        %REPEAT;                             ! ROUND FOR ANOTHER
#line 910 "regression-compile-tmp/comp412.imp"
goto L_0091;
#line 910 "regression-compile-tmp/comp412.imp"
L_0092:;
                                                                //    911        ATOM2=KDICT(DP+1)&63 %IF S < 0;      ! VARIANT
#line 911 "regression-compile-tmp/comp412.imp"
if (((S) >= (0))) goto L_00c3;
#line 911 "regression-compile-tmp/comp412.imp"
ATOM2 = (((KDICT-32)[(((int)(DP)) + (1))]) & (63));
#line 911 "regression-compile-tmp/comp412.imp"
L_00c3:;
                                                                //    912        %IF ATOM1=STRING %OR ATOM1=RECORD %START
#line 912 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (16))) goto L_0093;
#line 912 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (17))) goto L_00c4;
#line 912 "regression-compile-tmp/comp412.imp"
L_0093:;
                                                                //    913           DTYPE=ATOM1
#line 913 "regression-compile-tmp/comp412.imp"
DTYPE = ATOM1;
                                                                //    914           CODE ATOM
#line 914 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //    915           %IF DTYPE=STRING %START
#line 915 "regression-compile-tmp/comp412.imp"
if (((DTYPE) != (16))) goto L_00c5;
                                                                //    916              ATOM1=0 %AND %RETURN %UNLESS ATOM1=ICONST
#line 916 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (83))) goto L_00c6;
#line 916 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 916 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 916 "regression-compile-tmp/comp412.imp"
L_00c6:;
                                                                //    917              SLEN=EVAL(SUBATOM);            ! STRING LENGTH
#line 917 "regression-compile-tmp/comp412.imp"
SLEN = EVAL(SUBATOM);
                                                                //    918              %UNLESS 0 < SLEN <= TEXT LIMIT %START
#line 918 "regression-compile-tmp/comp412.imp"
if ((((0) >= (SLEN))) || (((SLEN) <= (255)))) goto L_00c8;
#line 918 "regression-compile-tmp/comp412.imp"
L_00c7:;
                                                                //    919                 ATOM1=0; F TYPE=4
#line 919 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 919 "regression-compile-tmp/comp412.imp"
FTYPE = 4;
                                                                //    920                 %RETURN
#line 920 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    921              %FINISH
#line 921 "regression-compile-tmp/comp412.imp"
L_00c8:;
                                                                //    922              SRMOD=X'40';                   ! TYPE FOR STRING
#line 922 "regression-compile-tmp/comp412.imp"
SRMOD = 64;
                                                                //    923           %ELSE
#line 923 "regression-compile-tmp/comp412.imp"
goto L_00c9;
#line 923 "regression-compile-tmp/comp412.imp"
L_00c5:;
                                                                //    924              %IF ATOM2=IDENT %START
#line 924 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (59))) goto L_00ca;
                                                                //    925                 LIM=GLOBAL; LOOKUP(T BASE)
#line 925 "regression-compile-tmp/comp412.imp"
LIM = 0;
#line 925 "regression-compile-tmp/comp412.imp"
LOOKUP(TBASE);
                                                                //    926              %FINISH
#line 926 "regression-compile-tmp/comp412.imp"
L_00ca:;
                                                                //    927              %UNLESS ATOM2 = RFN %START
#line 927 "regression-compile-tmp/comp412.imp"
if (((ATOM2) == (65))) goto L_00cb;
                                                                //    928                 F TYPE = 3
#line 928 "regression-compile-tmp/comp412.imp"
FTYPE = 3;
                                                                //    929                 ATOM1 = 0;  ATOM2 = 0
#line 929 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 929 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
                                                                //    930                 %RETURN
#line 930 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    931              %FINISH
#line 931 "regression-compile-tmp/comp412.imp"
L_00cb:;
                                                                //    932              SRMOD=X'50';                   ! TYPE FOR RECORD
#line 932 "regression-compile-tmp/comp412.imp"
SRMOD = 80;
                                                                //    933           %FINISH
#line 933 "regression-compile-tmp/comp412.imp"
L_00c9:;
                                                                //    934           CODE ATOM
#line 934 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //    935           ATOM1=0 %AND %RETURN %IF ATOM1#RB
#line 935 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (2))) goto L_00cc;
#line 935 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 935 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 935 "regression-compile-tmp/comp412.imp"
L_00cc:;
                                                                //    936           %IF SYM TYPE=2 %START;            ! KEYWORD FOLLOWS
#line 936 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) != (2))) goto L_00cd;
                                                                //    937              CODE ATOM
#line 937 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //    938              %IF ATOM1 # SPECIAL %AND ATOM2 # SPECIAL %START
#line 938 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (55))) goto L_00ce;
#line 938 "regression-compile-tmp/comp412.imp"
if (((ATOM2) == (55))) goto L_00ce;
                                                                //    939                 ATOM1 = 0;  ATOM2 = 0;  %RETURN
#line 939 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 939 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
#line 939 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    940              %FINISH
#line 940 "regression-compile-tmp/comp412.imp"
L_00ce:;
                                                                //    941              SUBATOM = 1 %IF SUBATOM = 127;! SPEC
#line 941 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) != (127))) goto L_00cf;
#line 941 "regression-compile-tmp/comp412.imp"
SUBATOM = 1;
#line 941 "regression-compile-tmp/comp412.imp"
L_00cf:;
                                                                //    942           %FINISH %ELSE SUBATOM=5;          ! NULL SPECIAL
#line 942 "regression-compile-tmp/comp412.imp"
goto L_00d0;
#line 942 "regression-compile-tmp/comp412.imp"
L_00cd:;
#line 942 "regression-compile-tmp/comp412.imp"
SUBATOM = 5;
#line 942 "regression-compile-tmp/comp412.imp"
L_00d0:;
                                                                //    943           ATOM1=0 %AND %RETURN %C
#line 943 "regression-compile-tmp/comp412.imp"
if (((DTYPE) != (17))) goto L_00d1;
#line 943 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) < (11))) goto L_00d1;
#line 943 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 943 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 943 "regression-compile-tmp/comp412.imp"
L_00d1:;
                                                                //    944           %IF DTYPE=RECORD %AND SUBATOM >= 11
                                                                //    945           K=SATOMS(SUBATOM)
#line 945 "regression-compile-tmp/comp412.imp"
K = (SATOMS-1)[SUBATOM];
                                                                //    946           ATOM1=K&255; ATOM2=K>>8&255
#line 946 "regression-compile-tmp/comp412.imp"
ATOM1 = ((K) & (255));
#line 946 "regression-compile-tmp/comp412.imp"
ATOM2 = (((int)((((unsigned int)(K)) >> (8)))) & (255));
                                                                //    947           SUBATOM=SCLASS(SUBATOM)
#line 947 "regression-compile-tmp/comp412.imp"
SUBATOM = (SCLASS-1)[SUBATOM];
                                                                //    948        %ELSE
#line 948 "regression-compile-tmp/comp412.imp"
goto L_00d2;
#line 948 "regression-compile-tmp/comp412.imp"
L_00c4:;
                                                                //    949           %UNLESS PRE1 <= ATOM1 <= PRE2 %START
#line 949 "regression-compile-tmp/comp412.imp"
if ((((49) > (ATOM1))) || (((ATOM1) <= (57)))) goto L_00d3;
#line 949 "regression-compile-tmp/comp412.imp"
L_00b5:;
                                                                //    950              ATOM1=0 %IF PREFIX#0
#line 950 "regression-compile-tmp/comp412.imp"
if (((PREFIX) == (0))) goto L_00d4;
#line 950 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 950 "regression-compile-tmp/comp412.imp"
L_00d4:;
                                                                //    951              %RETURN
#line 951 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    952           %FINISH
#line 952 "regression-compile-tmp/comp412.imp"
L_00d3:;
                                                                //    953        %FINISH
#line 953 "regression-compile-tmp/comp412.imp"
L_00d2:;
                                                                //    954        %IF SUBATOM >= SPS %START
#line 954 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) < (117))) goto L_00d5;
                                                                //    955           SPEC = -1;  SUBATOM = SPEC SUB(SUBATOM)
#line 955 "regression-compile-tmp/comp412.imp"
SPEC = (-1);
#line 955 "regression-compile-tmp/comp412.imp"
SUBATOM = (SPECSUB-117)[SUBATOM];
                                                                //    956        %ELSE %IF SUBATOM >= XSPS
#line 956 "regression-compile-tmp/comp412.imp"
goto L_00d6;
#line 956 "regression-compile-tmp/comp412.imp"
L_00d5:;
#line 956 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) < (109))) goto L_00d7;
                                                                //    957           %IF XTYPE # 6 %START
#line 957 "regression-compile-tmp/comp412.imp"
if (((XTYPE) == (6))) goto L_00d8;
                                                                //    958              ATOM1 = 0;  ATOM2 = 0;  %RETURN
#line 958 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 958 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
#line 958 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    959           %FINISH
#line 959 "regression-compile-tmp/comp412.imp"
L_00d8:;
                                                                //    960           XTYPE = 3;                         ! EXTRINSIC!!
#line 960 "regression-compile-tmp/comp412.imp"
XTYPE = 3;
                                                                //    961           SUBATOM = XMOD(SUBATOM)
#line 961 "regression-compile-tmp/comp412.imp"
SUBATOM = (XMOD-109)[SUBATOM];
                                                                //    962           SRMOD = SRMOD-X'10' %IF SRMOD # 0
#line 962 "regression-compile-tmp/comp412.imp"
if (((SRMOD) == (0))) goto L_00d9;
#line 962 "regression-compile-tmp/comp412.imp"
SRMOD = (((int)(SRMOD)) - (16));
#line 962 "regression-compile-tmp/comp412.imp"
L_00d9:;
                                                                //    963        %FINISH
#line 963 "regression-compile-tmp/comp412.imp"
L_00d7:;
#line 963 "regression-compile-tmp/comp412.imp"
L_00d6:;
                                                                //    964        %IF PREFIX&64#0 %START;              ! OWN DATA
#line 964 "regression-compile-tmp/comp412.imp"
if (((((PREFIX) & (64))) == (0))) goto L_00da;
                                                                //    965           %UNLESS ATOM1 = OWN1 %OR ATOM1 = OWN2 %START;! NON-DATA
#line 965 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (53))) goto L_00db;
#line 965 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (51))) goto L_00db;
                                                                //    966              %IF XTYPE <= 3 %START;          ! CONSTROUTINE ?
#line 966 "regression-compile-tmp/comp412.imp"
if (((XTYPE) > (3))) goto L_00dc;
                                                                //    967                 ATOM1 = 0;  %RETURN
#line 967 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 967 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    968              %FINISH
#line 968 "regression-compile-tmp/comp412.imp"
L_00dc:;
                                                                //    969           %ELSE
#line 969 "regression-compile-tmp/comp412.imp"
goto L_00dd;
#line 969 "regression-compile-tmp/comp412.imp"
L_00db:;
                                                                //    970              ATOM1=ATOM1+1;                 ! ONTO '%OWN' VARIANT
#line 970 "regression-compile-tmp/comp412.imp"
ATOM1 = (((int)(ATOM1)) + (1));
                                                                //    971              OUT=(SUB ATOM+SRMOD)>>4
#line 971 "regression-compile-tmp/comp412.imp"
OUT = (((((((int)(SUBATOM)) + (SRMOD)))) >> (4)));
                                                                //    972              %IF SUBATOM&1 = 0  %START;     ! CONSTNAME ?
#line 972 "regression-compile-tmp/comp412.imp"
if (((((SUBATOM) & (1))) != (0))) goto L_00de;
                                                                //    973                 OUT = 1;                    ! ADDRESSES ARE INTEGERS
#line 973 "regression-compile-tmp/comp412.imp"
OUT = 1;
                                                                //    974              %ELSE
#line 974 "regression-compile-tmp/comp412.imp"
goto L_00df;
#line 974 "regression-compile-tmp/comp412.imp"
L_00de:;
                                                                //    975                 CONST INT = 1 %IF XTYPE = 2 %C
#line 975 "regression-compile-tmp/comp412.imp"
if (((XTYPE) != (2))) goto L_00e0;
#line 975 "regression-compile-tmp/comp412.imp"
if ((((((((int)(SUBATOM)) + (SRMOD))) & (112))) > (48))) goto L_00e0;
#line 975 "regression-compile-tmp/comp412.imp"
CONSTINT = 1;
#line 975 "regression-compile-tmp/comp412.imp"
L_00e0:;
                                                                //    976                             %AND (SUBATOM+SRMOD)&X'70' <= X'30'
                                                                //    977              %FINISH
#line 977 "regression-compile-tmp/comp412.imp"
L_00df:;
                                                                //    978              OUT = 15 %IF XTYPE = 3;        ! DON'T INITIALIZE EXTRINSICS
#line 978 "regression-compile-tmp/comp412.imp"
if (((XTYPE) != (3))) goto L_00e1;
#line 978 "regression-compile-tmp/comp412.imp"
OUT = 15;
#line 978 "regression-compile-tmp/comp412.imp"
L_00e1:;
                                                                //    979           %FINISH
#line 979 "regression-compile-tmp/comp412.imp"
L_00dd:;
                                                                //    980        %FINISH
#line 980 "regression-compile-tmp/comp412.imp"
L_00da:;
                                                                //    981        SUBATOM=SUBATOM+LREALS %IF SUBATOM&X'70'=X'60'
#line 981 "regression-compile-tmp/comp412.imp"
if (((((SUBATOM) & (112))) != (96))) goto L_00e2;
#line 981 "regression-compile-tmp/comp412.imp"
SUBATOM = (((int)(SUBATOM)) + (LREALS));
#line 981 "regression-compile-tmp/comp412.imp"
L_00e2:;
                                                                //    982        SUBATOM=SUBATOM+SLEN<<8+SRMOD+(PREFIX>>3&X'70')
#line 982 "regression-compile-tmp/comp412.imp"
SUBATOM = ((((((int)(((SUBATOM) + ((int)(((SLEN) << (8))))))) + (SRMOD)))) + ((((int)((((unsigned int)(PREFIX)) >> (3)))) & (112))));
                                                                //    983        DEC TYPE=SUBATOM
#line 983 "regression-compile-tmp/comp412.imp"
DECTYPE = SUBATOM;
                                                                //    984        SPREFIX=XTYPE
#line 984 "regression-compile-tmp/comp412.imp"
SPREFIX = XTYPE;
                                                                //    985        PREFIX=0
#line 985 "regression-compile-tmp/comp412.imp"
PREFIX = 0;
                                                                //    986     %END
#line 986 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODEATOM at level 4
                                                                //    987  !*************************************************************
                                                                //    988  !* DEC TYPE: <EXT><EXTR><CONST><OWN><DYN><SYS><FLAG1><FLAG2> *
                                                                //    989  !*************************************************************
                                                                //    990     %INTEGERFN GAPP
#line 990 "regression-compile-tmp/comp412.imp"
int GAPP( void )
#line 990 "regression-compile-tmp/comp412.imp"
{
                                                                //    991        %CONSTINTEGER PSEP = 129, PCALL = 130
                                                                //    992        %INTEGER L, P, TYPE, NEXT, C
#line 992 "regression-compile-tmp/comp412.imp"
int L;
#line 992 "regression-compile-tmp/comp412.imp"
int P;
#line 992 "regression-compile-tmp/comp412.imp"
int TYPE;
#line 992 "regression-compile-tmp/comp412.imp"
int NEXT;
#line 992 "regression-compile-tmp/comp412.imp"
int C;
                                                                //    993        %INTEGERFN CLASS(%INTEGER T)
#line 993 "regression-compile-tmp/comp412.imp"
int CLASS( int T )
#line 993 "regression-compile-tmp/comp412.imp"
{
                                                                //    994           %CONSTBYTEINTEGERARRAY EXPS(0 : 7)=0,147(3),140,0,146(2)
#line 994 "regression-compile-tmp/comp412.imp"
const unsigned char EXPS[8] = { 0, 147, 147, 147, 140, 0, 146, 146,  };
                                                                //    995           %CONSTBYTEINTEGERARRAY PARM MAP(0 : 15)=0,0,137,0,0,0,0,122,
#line 995 "regression-compile-tmp/comp412.imp"
const unsigned char PARMMAP[16] = { 0, 0, 137, 0, 0, 0, 0, 122, 176, 177, 123, 0, 159, 0, 0, 0,  };
                                                                //    996                                               176,177,123,0,159,0,0,0
                                                                //    997           %CONSTBYTEINTEGERARRAY TMOD(0:7) = 0,8(3),4,0,9,9
#line 997 "regression-compile-tmp/comp412.imp"
const unsigned char TMOD[8] = { 0, 8, 8, 8, 4, 0, 9, 9,  };
                                                                //    998           TYPE = T>>4
#line 998 "regression-compile-tmp/comp412.imp"
TYPE = (int)((((unsigned int)(T)) >> (4)));
                                                                //    999           TYPE = TMOD(TYPE) %AND %RESULT = EXPS(T>>4) %IF T&15 = 1;! EXPRN
#line 999 "regression-compile-tmp/comp412.imp"
if (((((T) & (15))) != (1))) goto L_00e3;
#line 999 "regression-compile-tmp/comp412.imp"
TYPE = TMOD[TYPE];
#line 999 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return EXPS[(int)((((unsigned int)(T)) >> (4)))];
#line 999 "regression-compile-tmp/comp412.imp"
L_00e3:;
                                                                //   1000           TYPE = 10 %IF TYPE = 0
#line 1000 "regression-compile-tmp/comp412.imp"
if (((TYPE) != (0))) goto L_00e4;
#line 1000 "regression-compile-tmp/comp412.imp"
TYPE = 10;
#line 1000 "regression-compile-tmp/comp412.imp"
L_00e4:;
                                                                //   1001           %RESULT=PARM MAP(T&15);           ! CORRECT CLASS FOR NAMES
#line 1001 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return PARMMAP[((T) & (15))];
                                                                //   1002        %END
#line 1002 "regression-compile-tmp/comp412.imp"
} // End of block CLASS at level 5
                                                                //   1003        %ROUTINE SET GCELL(%INTEGER C, GC, LEN)
#line 1003 "regression-compile-tmp/comp412.imp"
void SETGCELL( int C, int GC, int LEN )
#line 1003 "regression-compile-tmp/comp412.imp"
{
                                                                //   1004           C = C<<9;  C = C+L %UNLESS GC = PCALL
#line 1004 "regression-compile-tmp/comp412.imp"
C = ((C) << (9));
#line 1004 "regression-compile-tmp/comp412.imp"
if (((GC) == (130))) goto L_00e5;
#line 1004 "regression-compile-tmp/comp412.imp"
C = (((int)(C)) + (L));
#line 1004 "regression-compile-tmp/comp412.imp"
L_00e5:;
                                                                //   1005           %WHILE L#GLIMIT %CYCLE
#line 1005 "regression-compile-tmp/comp412.imp"
L_00e6:;
#line 1005 "regression-compile-tmp/comp412.imp"
if (((L) == (GLIMIT))) goto L_00e7;
                                                                //   1006              L=L+1
#line 1006 "regression-compile-tmp/comp412.imp"
L = (((int)(L)) + (1));
                                                                //   1007              %RETURN %IF GRAM(L)=C %AND GCLASS(L) = GC %C
#line 1007 "regression-compile-tmp/comp412.imp"
if (((GRAM[L]) != (C))) goto L_00e9;
#line 1007 "regression-compile-tmp/comp412.imp"
if (((GCLASS[L]) != (GC))) goto L_00e9;
#line 1007 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (112))) != (64))) goto L_00ea;
#line 1007 "regression-compile-tmp/comp412.imp"
if (((GRAM[(((int)(L)) - (1))]) != (LEN))) goto L_00e9;
#line 1007 "regression-compile-tmp/comp412.imp"
L_00ea:;
#line 1007 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1007 "regression-compile-tmp/comp412.imp"
L_00e9:;
                                                                //   1008              %AND (TAG&X'70'#X'40' %OR GRAM(L-1)=LEN)
                                                                //   1009           %REPEAT
#line 1009 "regression-compile-tmp/comp412.imp"
goto L_00e6;
#line 1009 "regression-compile-tmp/comp412.imp"
L_00e7:;
                                                                //   1010           %IF TAG&X'70'=X'40' %START
#line 1010 "regression-compile-tmp/comp412.imp"
if (((((TAG) & (112))) != (64))) goto L_00eb;
                                                                //   1011              GLIMIT=GLIMIT+1;  GRAM(GLIMIT)=LEN;  ! SET STRING LE
#line 1011 "regression-compile-tmp/comp412.imp"
GLIMIT = (((int)(GLIMIT)) + (1));
#line 1011 "regression-compile-tmp/comp412.imp"
GRAM[GLIMIT] = LEN;
                                                                //   1012           %FINISH
#line 1012 "regression-compile-tmp/comp412.imp"
L_00eb:;
                                                                //   1013           GLIMIT=GLIMIT+1; GRAM(GLIMIT)=C;  GCLASS(GLIMIT) = GC
#line 1013 "regression-compile-tmp/comp412.imp"
GLIMIT = (((int)(GLIMIT)) + (1));
#line 1013 "regression-compile-tmp/comp412.imp"
GRAM[GLIMIT] = C;
#line 1013 "regression-compile-tmp/comp412.imp"
GCLASS[GLIMIT] = GC;
                                                                //   1014           L=GLIMIT
#line 1014 "regression-compile-tmp/comp412.imp"
L = GLIMIT;
                                                                //   1015           %IF DIAG&4 # 0 %START
#line 1015 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (4))) == (0))) goto L_00ec;
                                                                //   1016              PRINTSTRING("SET");  WRITE(L, 3)
#line 1016 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("SET"));
#line 1016 "regression-compile-tmp/comp412.imp"
_imp_WRITE(L, 3);
                                                                //   1017              WRITE(C, 3);  WRITE(GC, 3);  WRITE(LEN, 3)
#line 1017 "regression-compile-tmp/comp412.imp"
_imp_WRITE(C, 3);
#line 1017 "regression-compile-tmp/comp412.imp"
_imp_WRITE(GC, 3);
#line 1017 "regression-compile-tmp/comp412.imp"
_imp_WRITE(LEN, 3);
                                                                //   1018              NEWLINE
#line 1018 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1019           %FINISH
#line 1019 "regression-compile-tmp/comp412.imp"
L_00ec:;
                                                                //   1020        %END
#line 1020 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETGCELL at level 5
                                                                //   1021  
                                                                //   1022        %RESULT = NULL %IF TBASE=TMAX
#line 1022 "regression-compile-tmp/comp412.imp"
if (((TBASE) != (TMAX))) goto L_00ed;
#line 1022 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return 512;
#line 1022 "regression-compile-tmp/comp412.imp"
L_00ed:;
                                                                //   1023        L = GBASE;  P = TMAX
#line 1023 "regression-compile-tmp/comp412.imp"
L = 426;
#line 1023 "regression-compile-tmp/comp412.imp"
P = TMAX;
                                                                //   1024        SET GCELL(0, PCALL, 0)
#line 1024 "regression-compile-tmp/comp412.imp"
SETGCELL(0, 130, 0);
                                                                //   1025        %CYCLE
#line 1025 "regression-compile-tmp/comp412.imp"
L_00ee:;
                                                                //   1026           P = P-1
#line 1026 "regression-compile-tmp/comp412.imp"
P = (((int)(P)) - (1));
                                                                //   1027           NEXT = P-DICT(P)&255-2
#line 1027 "regression-compile-tmp/comp412.imp"
NEXT = (((int)(((P) - ((int)(((DICT[P]) & (255))))))) - (2));
                                                                //   1028           TAG = DICT(P-1)
#line 1028 "regression-compile-tmp/comp412.imp"
TAG = DICT[(((int)(P)) - (1))];
                                                                //   1029           C = CLASS(TAG&127)
#line 1029 "regression-compile-tmp/comp412.imp"
C = CLASS(((TAG) & (127)));
                                                                //   1030           SET GCELL(TYPE, C, TAG>>8&255)
#line 1030 "regression-compile-tmp/comp412.imp"
SETGCELL(TYPE, C, (((int)((((unsigned int)(TAG)) >> (8)))) & (255)));
                                                                //   1031           %EXIT %IF NEXT <= TBASE
#line 1031 "regression-compile-tmp/comp412.imp"
if (((NEXT) > (TBASE))) goto L_00f1;
#line 1031 "regression-compile-tmp/comp412.imp"
goto L_00ef;
#line 1031 "regression-compile-tmp/comp412.imp"
L_00f1:;
                                                                //   1032           P = NEXT
#line 1032 "regression-compile-tmp/comp412.imp"
P = NEXT;
                                                                //   1033           SET GCELL(0, PSEP, 0)
#line 1033 "regression-compile-tmp/comp412.imp"
SETGCELL(0, 129, 0);
                                                                //   1034        %REPEAT
#line 1034 "regression-compile-tmp/comp412.imp"
goto L_00ee;
#line 1034 "regression-compile-tmp/comp412.imp"
L_00ef:;
                                                                //   1035        SET GCELL(0, LB, 0)
#line 1035 "regression-compile-tmp/comp412.imp"
SETGCELL(0, 1, 0);
                                                                //   1036        FAULT(23) %IF GLIMIT >= GMAX
#line 1036 "regression-compile-tmp/comp412.imp"
if (((GLIMIT) < (512))) goto L_00f2;
#line 1036 "regression-compile-tmp/comp412.imp"
FAULT(23);
#line 1036 "regression-compile-tmp/comp412.imp"
L_00f2:;
                                                                //   1037        %RESULT=L
#line 1037 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return L;
                                                                //   1038     %END
#line 1038 "regression-compile-tmp/comp412.imp"
} // End of block GAPP at level 4
                                                                //   1039  
                                                                //   1040     %ROUTINE HEX(%INTEGER N)
#line 1040 "regression-compile-tmp/comp412.imp"
void HEX( int N )
#line 1040 "regression-compile-tmp/comp412.imp"
{
                                                                //   1041        %INTEGER J,K
#line 1041 "regression-compile-tmp/comp412.imp"
int J;
#line 1041 "regression-compile-tmp/comp412.imp"
int K;
                                                                //   1042        %CYCLE J = 1, 1, 4
#line 1042 "regression-compile-tmp/comp412.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_00f3:;
if (J == 4) goto L_00f4;
J += 1;
                                                                //   1043           K = N>>12;  N = N<<4
#line 1043 "regression-compile-tmp/comp412.imp"
K = (int)((((unsigned int)(N)) >> (12)));
#line 1043 "regression-compile-tmp/comp412.imp"
N = ((N) << (4));
                                                                //   1044           %IF K > 9 %THEN K = K-10+'A' %ELSE K = K+'0'
#line 1044 "regression-compile-tmp/comp412.imp"
if (((K) <= (9))) goto L_00f6;
#line 1044 "regression-compile-tmp/comp412.imp"
K = (((int)((((int)(K)) - (10)))) + (65));
#line 1044 "regression-compile-tmp/comp412.imp"
goto L_00f7;
#line 1044 "regression-compile-tmp/comp412.imp"
L_00f6:;
#line 1044 "regression-compile-tmp/comp412.imp"
K = (((int)(K)) + (48));
#line 1044 "regression-compile-tmp/comp412.imp"
L_00f7:;
                                                                //   1045           PRINTSYMBOL(K)
#line 1045 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(K);
                                                                //   1046        %REPEAT
#line 1046 "regression-compile-tmp/comp412.imp"
goto L_00f3;
#line 1046 "regression-compile-tmp/comp412.imp"
L_00f4:;
                                                                //   1047     %END
#line 1047 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block HEX at level 4
                                                                //   1048     %ROUTINE ANALYSE(%INTEGER G)
#line 1048 "regression-compile-tmp/comp412.imp"
void ANALYSE( int G )
#line 1048 "regression-compile-tmp/comp412.imp"
{
                                                                //   1049        %SWITCH DIR(86:102)
#line 1049 "regression-compile-tmp/comp412.imp"
static int sw2_DIR_idx;
static const void * /*SWITCH*/ sw2_DIR[17] = { &&sw2_DIR_86, &&sw2_DIR_87, &&sw2_DIR_88, &&sw2_DIR_89, &&sw2_DIR_90, &&sw2_DIR_91, &&sw2_DIR_92, &&sw2_DIR_93, &&sw2_DIR_94, &&sw2_DIR_95, &&sw2_DIR_96, &&sw2_DIR_97, &&sw2_DIR_98, &&sw2_DIR_99, &&sw2_DIR_100, &&sw2_DIR_101, &&sw2_DIR_102,  };
                                                                //   1050        %INTEGER EXTEND, AMBIG, SUB LOCK, DOWN LOCK
#line 1050 "regression-compile-tmp/comp412.imp"
int EXTEND;
#line 1050 "regression-compile-tmp/comp412.imp"
int AMBIG;
#line 1050 "regression-compile-tmp/comp412.imp"
int SUBLOCK;
#line 1050 "regression-compile-tmp/comp412.imp"
int DOWNLOCK;
                                                                //   1051        %INTEGER J, K, L, N, A1, NODE, NEW TYPE, T
#line 1051 "regression-compile-tmp/comp412.imp"
int J;
#line 1051 "regression-compile-tmp/comp412.imp"
int K;
#line 1051 "regression-compile-tmp/comp412.imp"
int L;
#line 1051 "regression-compile-tmp/comp412.imp"
int N;
#line 1051 "regression-compile-tmp/comp412.imp"
int A1;
#line 1051 "regression-compile-tmp/comp412.imp"
int NODE;
#line 1051 "regression-compile-tmp/comp412.imp"
int NEWTYPE;
#line 1051 "regression-compile-tmp/comp412.imp"
int T;
                                                                //   1052  
                                                                //   1053        %ROUTINE REORDER
#line 1053 "regression-compile-tmp/comp412.imp"
void REORDER( void )
#line 1053 "regression-compile-tmp/comp412.imp"
{
                                                                //   1054           %INTEGERNAME X, Y
#line 1054 "regression-compile-tmp/comp412.imp"
int /*name*/*X;
#line 1054 "regression-compile-tmp/comp412.imp"
int /*name*/*Y;
                                                                //   1055           %INTEGER R
#line 1055 "regression-compile-tmp/comp412.imp"
int R;
                                                                //   1056           K=0
#line 1056 "regression-compile-tmp/comp412.imp"
K = 0;
                                                                //   1057           %WHILE N < 0 %CYCLE
#line 1057 "regression-compile-tmp/comp412.imp"
L_00f8:;
#line 1057 "regression-compile-tmp/comp412.imp"
if (((N) >= (0))) goto L_00f9;
                                                                //   1058              R=REF(N); J=CO(N)
#line 1058 "regression-compile-tmp/comp412.imp"
R = REF[((N) + ((int)(300)))];
#line 1058 "regression-compile-tmp/comp412.imp"
J = CO[((N) + ((int)(300)))];
                                                                //   1059              %IF LOC(N)&X'FF' > TRANSP %START;! DROP TRANSPARENT
#line 1059 "regression-compile-tmp/comp412.imp"
if (((((LOC[((N) + ((int)(300)))]) & (255))) <= (18))) goto L_00fb;
                                                                //   1060                 X == K;  R=R&X'6000';         ! PICK OFF ORDER
#line 1060 "regression-compile-tmp/comp412.imp"
X = &K;
#line 1060 "regression-compile-tmp/comp412.imp"
R = ((R) & (24576));
                                                                //   1061                 %WHILE X#0 %CYCLE
#line 1061 "regression-compile-tmp/comp412.imp"
L_00fc:;
#line 1061 "regression-compile-tmp/comp412.imp"
if (((*X) == (0))) goto L_00fd;
                                                                //   1062                    Y == REF(X)
#line 1062 "regression-compile-tmp/comp412.imp"
Y = &REF[((*X) + ((int)(300)))];
                                                                //   1063                    %EXIT %IF Y&X'6000' <= R
#line 1063 "regression-compile-tmp/comp412.imp"
if (((((*Y) & (24576))) > (R))) goto L_00ff;
#line 1063 "regression-compile-tmp/comp412.imp"
goto L_00fd;
#line 1063 "regression-compile-tmp/comp412.imp"
L_00ff:;
                                                                //   1064                    Y=Y-X'2000';               ! DECREMENT ORDERING CODE
#line 1064 "regression-compile-tmp/comp412.imp"
*Y = ((*(int *)(Y)) - (8192));
                                                                //   1065                    X == CO(X);                ! ON DOWN THE CHAIN
#line 1065 "regression-compile-tmp/comp412.imp"
X = &CO[((*X) + ((int)(300)))];
                                                                //   1066                 %REPEAT
#line 1066 "regression-compile-tmp/comp412.imp"
goto L_00fc;
#line 1066 "regression-compile-tmp/comp412.imp"
L_00fd:;
                                                                //   1067                 CO(N)=X; X=N
#line 1067 "regression-compile-tmp/comp412.imp"
CO[((N) + ((int)(300)))] = *X;
#line 1067 "regression-compile-tmp/comp412.imp"
*X = N;
                                                                //   1068              %FINISH
#line 1068 "regression-compile-tmp/comp412.imp"
L_00fb:;
                                                                //   1069              N=J
#line 1069 "regression-compile-tmp/comp412.imp"
N = J;
                                                                //   1070           %REPEAT
#line 1070 "regression-compile-tmp/comp412.imp"
goto L_00f8;
#line 1070 "regression-compile-tmp/comp412.imp"
L_00f9:;
                                                                //   1071           %IF DIAG&8 # 0 %START
#line 1071 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (8))) == (0))) goto L_0100;
                                                                //   1072              PRINTSTRING("REORDER N =");  WRITE(N, 3);  NEWLINE
#line 1072 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("REORDER N ="));
#line 1072 "regression-compile-tmp/comp412.imp"
_imp_WRITE(N, 3);
#line 1072 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1073           %FINISH
#line 1073 "regression-compile-tmp/comp412.imp"
L_0100:;
                                                                //   1074        %END
#line 1074 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block REORDER at level 5
                                                                //   1075        %ROUTINE SHOW(%INTEGER Z)
#line 1075 "regression-compile-tmp/comp412.imp"
void SHOW( int Z )
#line 1075 "regression-compile-tmp/comp412.imp"
{
                                                                //   1076           WRITE(Z, 3)
#line 1076 "regression-compile-tmp/comp412.imp"
_imp_WRITE(Z, 3);
                                                                //   1077           PRINTSTRING(" [")
#line 1077 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal(" ["));
                                                                //   1078           HEX(REF(Z))
#line 1078 "regression-compile-tmp/comp412.imp"
HEX(REF[((Z) + ((int)(300)))]);
                                                                //   1079           SPACE;  HEX(CO(Z))
#line 1079 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
#line 1079 "regression-compile-tmp/comp412.imp"
HEX(CO[((Z) + ((int)(300)))]);
                                                                //   1080           SPACE;  HEX(SUB(Z))
#line 1080 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
#line 1080 "regression-compile-tmp/comp412.imp"
HEX(SUB[((Z) + ((int)(300)))]);
                                                                //   1081           SPACE;  HEX(LOC(Z))
#line 1081 "regression-compile-tmp/comp412.imp"
_imp_SPACE();
#line 1081 "regression-compile-tmp/comp412.imp"
HEX(LOC[((Z) + ((int)(300)))]);
                                                                //   1082           PRINTSYMBOL(']');  NEWLINE
#line 1082 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(93);
#line 1082 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1083        %END
#line 1083 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SHOW at level 5
                                                                //   1084        EXTEND=0;  SUB LOCK = 0;  DOWN LOCK = 0
#line 1084 "regression-compile-tmp/comp412.imp"
EXTEND = 0;
#line 1084 "regression-compile-tmp/comp412.imp"
SUBLOCK = 0;
#line 1084 "regression-compile-tmp/comp412.imp"
DOWNLOCK = 0;
                                                                //   1085        A=0; A1=0; N=0; NODE=0
#line 1085 "regression-compile-tmp/comp412.imp"
A = 0;
#line 1085 "regression-compile-tmp/comp412.imp"
A1 = 0;
#line 1085 "regression-compile-tmp/comp412.imp"
N = 0;
#line 1085 "regression-compile-tmp/comp412.imp"
NODE = 0;
                                                                //   1086        AMBIG=0
#line 1086 "regression-compile-tmp/comp412.imp"
AMBIG = 0;
                                                                //   1087        P = RECLEN
#line 1087 "regression-compile-tmp/comp412.imp"
P = (-300);
                                                                //   1088  L1:     J=GRAM(G);  K = GCLASS(G);  ->EOP %IF K = 0
#line 1088 "regression-compile-tmp/comp412.imp"
U_1003:;
#line 1088 "regression-compile-tmp/comp412.imp"
J = GRAM[G];
#line 1088 "regression-compile-tmp/comp412.imp"
K = GCLASS[G];
#line 1088 "regression-compile-tmp/comp412.imp"
if (((K) != (0))) goto L_0101;
#line 1088 "regression-compile-tmp/comp412.imp"
goto U_1002;
#line 1088 "regression-compile-tmp/comp412.imp"
L_0101:;
                                                                //   1089        NEW TYPE = J>>9&15
#line 1089 "regression-compile-tmp/comp412.imp"
NEWTYPE = (((int)((((unsigned int)(J)) >> (9)))) & (15));
                                                                //   1090        NEW TYPE = TYPE %IF NEW TYPE = 0
#line 1090 "regression-compile-tmp/comp412.imp"
if (((NEWTYPE) != (0))) goto L_0102;
#line 1090 "regression-compile-tmp/comp412.imp"
NEWTYPE = TYPE;
#line 1090 "regression-compile-tmp/comp412.imp"
L_0102:;
                                                                //   1091        %IF DIAG&1 # 0 %START
#line 1091 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (1))) == (0))) goto L_0103;
                                                                //   1092           WRITE(G, 4);  WRITE(K, 3)
#line 1092 "regression-compile-tmp/comp412.imp"
_imp_WRITE(G, 4);
#line 1092 "regression-compile-tmp/comp412.imp"
_imp_WRITE(K, 3);
                                                                //   1093           WRITE(ATOM1, 3);  WRITE(ATOM2, 3);  WRITE(SUBATOM, 3)
#line 1093 "regression-compile-tmp/comp412.imp"
_imp_WRITE(ATOM1, 3);
#line 1093 "regression-compile-tmp/comp412.imp"
_imp_WRITE(ATOM2, 3);
#line 1093 "regression-compile-tmp/comp412.imp"
_imp_WRITE(SUBATOM, 3);
                                                                //   1094           WRITE(TYPE, 2);  WRITE(FORMAT, 3)
#line 1094 "regression-compile-tmp/comp412.imp"
_imp_WRITE(TYPE, 2);
#line 1094 "regression-compile-tmp/comp412.imp"
_imp_WRITE(FORMAT, 3);
                                                                //   1095           NEWLINE
#line 1095 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1096        %FINISH
#line 1096 "regression-compile-tmp/comp412.imp"
L_0103:;
                                                                //   1097        %IF K >= PHRASES %START;             ! PHRASE
#line 1097 "regression-compile-tmp/comp412.imp"
if (((K) < (132))) goto L_0104;
                                                                //   1098           P=P+1; F TYPE=4 %AND -> ERROR %IF P=A
#line 1098 "regression-compile-tmp/comp412.imp"
P = (((int)(P)) + (1));
#line 1098 "regression-compile-tmp/comp412.imp"
if (((P) != (A))) goto L_0105;
#line 1098 "regression-compile-tmp/comp412.imp"
FTYPE = 4;
#line 1098 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1098 "regression-compile-tmp/comp412.imp"
L_0105:;
                                                                //   1099           REF(P)=J; CO(P)=N
#line 1099 "regression-compile-tmp/comp412.imp"
REF[((P) + ((int)(300)))] = J;
#line 1099 "regression-compile-tmp/comp412.imp"
CO[((P) + ((int)(300)))] = N;
                                                                //   1100           LOC(P)=TYPE<<8+K
#line 1100 "regression-compile-tmp/comp412.imp"
LOC[((P) + ((int)(300)))] = (((int)(((TYPE) << (8)))) + (K));
                                                                //   1101           TYPE=NEW TYPE
#line 1101 "regression-compile-tmp/comp412.imp"
TYPE = NEWTYPE;
                                                                //   1102           SHOW(P) %IF DIAG&8 # 0
#line 1102 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (8))) == (0))) goto L_0106;
#line 1102 "regression-compile-tmp/comp412.imp"
SHOW(P);
#line 1102 "regression-compile-tmp/comp412.imp"
L_0106:;
                                                                //   1103           N=-P
#line 1103 "regression-compile-tmp/comp412.imp"
N = (-(P));
                                                                //   1104           G=PHRASE(K)
#line 1104 "regression-compile-tmp/comp412.imp"
G = (PHRASE-132)[K];
                                                                //   1105           -> L1
#line 1105 "regression-compile-tmp/comp412.imp"
goto U_1003;
                                                                //   1106        %FINISH
#line 1106 "regression-compile-tmp/comp412.imp"
L_0104:;
                                                                //   1107        CLASS=K
#line 1107 "regression-compile-tmp/comp412.imp"
CLASS = K;
                                                                //   1108        CLASS=ATOMIC(CLASS) %IF CLASS >= EQUIVS
#line 1108 "regression-compile-tmp/comp412.imp"
if (((CLASS) < (105))) goto L_0107;
#line 1108 "regression-compile-tmp/comp412.imp"
CLASS = (ATOMIC-105)[CLASS];
#line 1108 "regression-compile-tmp/comp412.imp"
L_0107:;
                                                                //   1109        ->DIR(CLASS) %IF CLASS >= DIRECTIVES
#line 1109 "regression-compile-tmp/comp412.imp"
if (((CLASS) < (86))) goto L_0108;
#line 1109 "regression-compile-tmp/comp412.imp"
sw2_DIR_idx = CLASS; if ((86 <= sw2_DIR_idx) && (sw2_DIR_idx <= 102)) goto *(sw2_DIR-86)[sw2_DIR_idx];  /* Bounds=86:102 */ else {
   /*_imp_signal(8, 2, sw2_DIR_idx);*/
   fprintf(stderr, "%%SWITCH index DIR(%d) not in range 86:102 at %s:%d\n",
           sw2_DIR_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 1109 "regression-compile-tmp/comp412.imp"
L_0108:;
                                                                //   1110        %IF ATOM2=IDENT %AND (DEF1 <= CLASS <= DEF2 %OR  CLASS = ICONST)%START
#line 1110 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (59))) goto L_0109;
#line 1110 "regression-compile-tmp/comp412.imp"
if ((((60) > (CLASS))) || (((CLASS) <= (79)))) goto L_00fa;
#line 1110 "regression-compile-tmp/comp412.imp"
L_010a:;
#line 1110 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (83))) goto L_0109;
#line 1110 "regression-compile-tmp/comp412.imp"
L_00fa:;
                                                                //   1111           LIM=GLOBAL; LOOKUP(T BASE)
#line 1111 "regression-compile-tmp/comp412.imp"
LIM = 0;
#line 1111 "regression-compile-tmp/comp412.imp"
LOOKUP(TBASE);
                                                                //   1112        %FINISH
#line 1112 "regression-compile-tmp/comp412.imp"
L_0109:;
                                                                //   1113        %IF SET1 <= CLASS <= SET2 %AND %C
#line 1113 "regression-compile-tmp/comp412.imp"
if ((((60) > (CLASS))) || (((CLASS) > (64)))) goto L_010b;
#line 1113 "regression-compile-tmp/comp412.imp"
if (((OTYPE) != (2))) goto L_010c;
#line 1113 "regression-compile-tmp/comp412.imp"
if (((ATOM2) == (68))) goto L_010c;
#line 1113 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (70))) goto L_010b;
#line 1113 "regression-compile-tmp/comp412.imp"
L_010c:;
                                                                //   1114                                (OTYPE#2 %OR ATOM2=68 %OR ATOM2=70) %START
                                                                //   1115           CLASS = CLASS+7;  TYPE = TAG>>4&7
#line 1115 "regression-compile-tmp/comp412.imp"
CLASS = (((int)(CLASS)) + (7));
#line 1115 "regression-compile-tmp/comp412.imp"
TYPE = (((int)((((unsigned int)(TAG)) >> (4)))) & (7));
                                                                //   1116        %FINISH
#line 1116 "regression-compile-tmp/comp412.imp"
L_010b:;
                                                                //   1117        NEW TYPE=TYPE
#line 1117 "regression-compile-tmp/comp412.imp"
NEWTYPE = TYPE;
                                                                //   1118        %IF CLASS=ATOM1 %OR CLASS=ATOM2 %START
#line 1118 "regression-compile-tmp/comp412.imp"
if (((CLASS) == (ATOM1))) goto L_010d;
#line 1118 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (ATOM2))) goto L_010e;
#line 1118 "regression-compile-tmp/comp412.imp"
L_010d:;
                                                                //   1119           %IF CLASS = IDENT %START
#line 1119 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (59))) goto L_010f;
                                                                //   1120              DECLARE IDEN
#line 1120 "regression-compile-tmp/comp412.imp"
DECLAREIDEN();
                                                                //   1121              TYPE = 15 %IF NEWTYPE = 15
#line 1121 "regression-compile-tmp/comp412.imp"
if (((NEWTYPE) != (15))) goto L_0110;
#line 1121 "regression-compile-tmp/comp412.imp"
TYPE = 15;
#line 1121 "regression-compile-tmp/comp412.imp"
L_0110:;
                                                                //   1122           %FINISH
#line 1122 "regression-compile-tmp/comp412.imp"
L_010f:;
                                                                //   1123           %IF CHECK1 <= CLASS <= CHECK2 %START
#line 1123 "regression-compile-tmp/comp412.imp"
if ((((66) > (CLASS))) || (((CLASS) > (72)))) goto L_0111;
                                                                //   1124              %IF VAR TYPE#TYPE %START
#line 1124 "regression-compile-tmp/comp412.imp"
if (((VARTYPE) == (TYPE))) goto L_0112;
                                                                //   1125                 %UNLESS VARTYPE <= 3 %AND (TYPE=8 %OR TYPE=9) %START
#line 1125 "regression-compile-tmp/comp412.imp"
if (((VARTYPE) > (3))) goto L_00aa;
#line 1125 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (8))) goto L_0113;
#line 1125 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (9))) goto L_0113;
#line 1125 "regression-compile-tmp/comp412.imp"
L_00aa:;
                                                                //   1126                    %UNLESS VARTYPE >= 6 %AND TYPE=9 %START
#line 1126 "regression-compile-tmp/comp412.imp"
if (((VARTYPE) < (6))) goto L_0114;
#line 1126 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (9))) goto L_0115;
#line 1126 "regression-compile-tmp/comp412.imp"
L_0114:;
                                                                //   1127                       %UNLESS TYPE = 10 %START
#line 1127 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (10))) goto L_0116;
                                                                //   1128                          F TYPE = 2;  ->ALT
#line 1128 "regression-compile-tmp/comp412.imp"
FTYPE = 2;
#line 1128 "regression-compile-tmp/comp412.imp"
goto U_1005;
                                                                //   1129                       %FINISH
#line 1129 "regression-compile-tmp/comp412.imp"
L_0116:;
                                                                //   1130                    %FINISH
#line 1130 "regression-compile-tmp/comp412.imp"
L_0115:;
                                                                //   1131                 %FINISH
#line 1131 "regression-compile-tmp/comp412.imp"
L_0113:;
                                                                //   1132              %FINISH
#line 1132 "regression-compile-tmp/comp412.imp"
L_0112:;
                                                                //   1133              F TYPE=0
#line 1133 "regression-compile-tmp/comp412.imp"
FTYPE = 0;
                                                                //   1134           %FINISH
#line 1134 "regression-compile-tmp/comp412.imp"
L_0111:;
                                                                //   1135  ENTRY:    A=A-1; F TYPE=4 %AND -> ERROR %IF A=P
#line 1135 "regression-compile-tmp/comp412.imp"
U_1006:;
#line 1135 "regression-compile-tmp/comp412.imp"
A = (((int)(A)) - (1));
#line 1135 "regression-compile-tmp/comp412.imp"
if (((A) != (P))) goto L_0117;
#line 1135 "regression-compile-tmp/comp412.imp"
FTYPE = 4;
#line 1135 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1135 "regression-compile-tmp/comp412.imp"
L_0117:;
                                                                //   1136           REF(A)=J; CO(A)=N
#line 1136 "regression-compile-tmp/comp412.imp"
REF[((A) + ((int)(300)))] = J;
#line 1136 "regression-compile-tmp/comp412.imp"
CO[((A) + ((int)(300)))] = N;
                                                                //   1137           LOC(A)=TYPE<<8+K
#line 1137 "regression-compile-tmp/comp412.imp"
LOC[((A) + ((int)(300)))] = (((int)(((TYPE) << (8)))) + (K));
                                                                //   1138           TYPE=NEW TYPE
#line 1138 "regression-compile-tmp/comp412.imp"
TYPE = NEWTYPE;
                                                                //   1139           SUB(A)=SUBATOM
#line 1139 "regression-compile-tmp/comp412.imp"
SUB[((A) + ((int)(300)))] = SUBATOM;
                                                                //   1140           SHOW(A) %IF DIAG&8 # 0
#line 1140 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (8))) == (0))) goto L_0118;
#line 1140 "regression-compile-tmp/comp412.imp"
SHOW(A);
#line 1140 "regression-compile-tmp/comp412.imp"
L_0118:;
                                                                //   1141           ->DONE %IF J&511 = 511;           ! END OF SS
#line 1141 "regression-compile-tmp/comp412.imp"
if (((((J) & (511))) != (511))) goto L_0119;
#line 1141 "regression-compile-tmp/comp412.imp"
goto U_1007;
#line 1141 "regression-compile-tmp/comp412.imp"
L_0119:;
                                                                //   1142           -> NEXT %IF AMBIG=0;              ! NOT AMBIGUOUS
#line 1142 "regression-compile-tmp/comp412.imp"
if (((AMBIG) != (0))) goto L_011a;
#line 1142 "regression-compile-tmp/comp412.imp"
goto U_1008;
#line 1142 "regression-compile-tmp/comp412.imp"
L_011a:;
                                                                //   1143           G=AMBIG; AMBIG=0; -> L1
#line 1143 "regression-compile-tmp/comp412.imp"
G = AMBIG;
#line 1143 "regression-compile-tmp/comp412.imp"
AMBIG = 0;
#line 1143 "regression-compile-tmp/comp412.imp"
goto U_1003;
                                                                //   1144        %FINISH
#line 1144 "regression-compile-tmp/comp412.imp"
L_010e:;
                                                                //   1145  ALT:   G=G+1;  -> L1 %IF J < 0;              ! TRY ALTERNATIVE
#line 1145 "regression-compile-tmp/comp412.imp"
U_1005:;
#line 1145 "regression-compile-tmp/comp412.imp"
G = (((int)(G)) + (1));
#line 1145 "regression-compile-tmp/comp412.imp"
if (((J) >= (0))) goto L_011b;
#line 1145 "regression-compile-tmp/comp412.imp"
goto U_1003;
#line 1145 "regression-compile-tmp/comp412.imp"
L_011b:;
                                                                //   1146  NEXT:  %IF NODE=A1 %START;                  ! LAST NODE FOR THIS ATOM
#line 1146 "regression-compile-tmp/comp412.imp"
U_1008:;
#line 1146 "regression-compile-tmp/comp412.imp"
if (((NODE) != (A1))) goto L_011c;
                                                                //   1147           EXTEND=0; SUB LOCK=0;  DOWN LOCK = 0
#line 1147 "regression-compile-tmp/comp412.imp"
EXTEND = 0;
#line 1147 "regression-compile-tmp/comp412.imp"
SUBLOCK = 0;
#line 1147 "regression-compile-tmp/comp412.imp"
DOWNLOCK = 0;
                                                                //   1148           -> ERROR %IF NODE=A;              ! NO NEW NODES
#line 1148 "regression-compile-tmp/comp412.imp"
if (((NODE) != (A))) goto L_011d;
#line 1148 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1148 "regression-compile-tmp/comp412.imp"
L_011d:;
                                                                //   1149           A1=A
#line 1149 "regression-compile-tmp/comp412.imp"
A1 = A;
                                                                //   1150           CODE ATOM %IF CLASS < DIRECTIVES; ! GET NEXT ATOM
#line 1150 "regression-compile-tmp/comp412.imp"
if (((CLASS) >= (86))) goto L_011e;
#line 1150 "regression-compile-tmp/comp412.imp"
CODEATOM();
#line 1150 "regression-compile-tmp/comp412.imp"
L_011e:;
                                                                //   1151        %FINISH
#line 1151 "regression-compile-tmp/comp412.imp"
L_011c:;
                                                                //   1152        NODE=NODE-1; N=NODE
#line 1152 "regression-compile-tmp/comp412.imp"
NODE = (((int)(NODE)) - (1));
#line 1152 "regression-compile-tmp/comp412.imp"
N = NODE;
                                                                //   1153        %IF EXTEND#0 %START
#line 1153 "regression-compile-tmp/comp412.imp"
if (((EXTEND) == (0))) goto L_011f;
                                                                //   1154           K = LOC(N)&255
#line 1154 "regression-compile-tmp/comp412.imp"
K = ((LOC[((N) + ((int)(300)))]) & (255));
                                                                //   1155           %IF K # 0 %START
#line 1155 "regression-compile-tmp/comp412.imp"
if (((K) == (0))) goto L_0120;
                                                                //   1156              J=REF(N)
#line 1156 "regression-compile-tmp/comp412.imp"
J = REF[((N) + ((int)(300)))];
                                                                //   1157              TYPE = LOC(N)>>8
#line 1157 "regression-compile-tmp/comp412.imp"
TYPE = (int)((((unsigned int)(LOC[((N) + ((int)(300)))])) >> (8)));
                                                                //   1158              N=CO(N);                       ! WELL ?
#line 1158 "regression-compile-tmp/comp412.imp"
N = CO[((N) + ((int)(300)))];
                                                                //   1159              -> ENTRY
#line 1159 "regression-compile-tmp/comp412.imp"
goto U_1006;
                                                                //   1160           %FINISH
#line 1160 "regression-compile-tmp/comp412.imp"
L_0120:;
                                                                //   1161        %FINISH
#line 1161 "regression-compile-tmp/comp412.imp"
L_011f:;
                                                                //   1162        -> SKIP
#line 1162 "regression-compile-tmp/comp412.imp"
goto U_1009;
                                                                //   1163  EOP:   REORDER
#line 1163 "regression-compile-tmp/comp412.imp"
U_1002:;
#line 1163 "regression-compile-tmp/comp412.imp"
REORDER();
                                                                //   1164        N=-N; SUB(N)=K
#line 1164 "regression-compile-tmp/comp412.imp"
N = (-(N));
#line 1164 "regression-compile-tmp/comp412.imp"
SUB[((N) + ((int)(300)))] = K;
                                                                //   1165  SKIP:                                       ! ON DOWN CHAIN
#line 1165 "regression-compile-tmp/comp412.imp"
U_1009:;
                                                                //   1166        G=REF(N)&511; -> EOP %IF G=0
#line 1166 "regression-compile-tmp/comp412.imp"
G = ((REF[((N) + ((int)(300)))]) & (511));
#line 1166 "regression-compile-tmp/comp412.imp"
if (((G) != (0))) goto L_0121;
#line 1166 "regression-compile-tmp/comp412.imp"
goto U_1002;
#line 1166 "regression-compile-tmp/comp412.imp"
L_0121:;
                                                                //   1167        TYPE=LOC(N)>>8
#line 1167 "regression-compile-tmp/comp412.imp"
TYPE = (int)((((unsigned int)(LOC[((N) + ((int)(300)))])) >> (8)));
                                                                //   1168        -> L1
#line 1168 "regression-compile-tmp/comp412.imp"
goto U_1003;
                                                                //   1169  DIR(89):                                    ! %COLON
#line 1169 "regression-compile-tmp/comp412.imp"
sw2_DIR_89:;
                                                                //   1170        -> ERROR %UNLESS ATOM1=3;            ! LOOK FOR COLON
#line 1170 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (3))) goto L_0122;
#line 1170 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1170 "regression-compile-tmp/comp412.imp"
L_0122:;
                                                                //   1171  DONE:  N=A; REORDER; SS=K
#line 1171 "regression-compile-tmp/comp412.imp"
U_1007:;
#line 1171 "regression-compile-tmp/comp412.imp"
N = A;
#line 1171 "regression-compile-tmp/comp412.imp"
REORDER();
#line 1171 "regression-compile-tmp/comp412.imp"
SS = K;
                                                                //   1172        %RETURN %IF DUP=0
#line 1172 "regression-compile-tmp/comp412.imp"
if (((DUP) != (0))) goto L_0123;
#line 1172 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1172 "regression-compile-tmp/comp412.imp"
L_0123:;
                                                                //   1173        F TYPE=7
#line 1173 "regression-compile-tmp/comp412.imp"
FTYPE = 7;
                                                                //   1174  ERROR:
#line 1174 "regression-compile-tmp/comp412.imp"
U_1004:;
                                                                //   1175        QUOTE=0 %AND READSYM %WHILE NL#SYM#';'
#line 1175 "regression-compile-tmp/comp412.imp"
L_0124:;
#line 1175 "regression-compile-tmp/comp412.imp"
if ((((10) == (SYM))) || (((SYM) == (59)))) goto L_0125;
#line 1175 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
#line 1175 "regression-compile-tmp/comp412.imp"
READSYM();
#line 1175 "regression-compile-tmp/comp412.imp"
goto L_0124;
#line 1175 "regression-compile-tmp/comp412.imp"
L_0125:;
                                                                //   1176        %IF F TYPE=0 %START
#line 1176 "regression-compile-tmp/comp412.imp"
if (((FTYPE) != (0))) goto L_0127;
                                                                //   1177           %IF ATOM1=IDENT %AND LIM=GLOBAL %START
#line 1177 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (59))) goto L_0128;
#line 1177 "regression-compile-tmp/comp412.imp"
if (((LIM) != (0))) goto L_0128;
                                                                //   1178              F TYPE=3
#line 1178 "regression-compile-tmp/comp412.imp"
FTYPE = 3;
                                                                //   1179           %ELSE %IF ATOM1 = 0
#line 1179 "regression-compile-tmp/comp412.imp"
goto L_0129;
#line 1179 "regression-compile-tmp/comp412.imp"
L_0128:;
#line 1179 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (0))) goto L_012a;
                                                                //   1180              FTYPE = 1
#line 1180 "regression-compile-tmp/comp412.imp"
FTYPE = 1;
                                                                //   1181           %ELSE %IF SCONST <= ATOM1 <= RCONST
#line 1181 "regression-compile-tmp/comp412.imp"
goto L_0129;
#line 1181 "regression-compile-tmp/comp412.imp"
L_012a:;
#line 1181 "regression-compile-tmp/comp412.imp"
if ((((82) > (ATOM1))) || (((ATOM1) > (84)))) goto L_012b;
                                                                //   1182              FTYPE = 2
#line 1182 "regression-compile-tmp/comp412.imp"
FTYPE = 2;
                                                                //   1183              FTYPE = 5 %IF TYPE = 15
#line 1183 "regression-compile-tmp/comp412.imp"
if (((TYPE) != (15))) goto L_012c;
#line 1183 "regression-compile-tmp/comp412.imp"
FTYPE = 5;
#line 1183 "regression-compile-tmp/comp412.imp"
L_012c:;
                                                                //   1184           %FINISH
#line 1184 "regression-compile-tmp/comp412.imp"
L_012b:;
#line 1184 "regression-compile-tmp/comp412.imp"
L_0129:;
                                                                //   1185        %FINISH
#line 1185 "regression-compile-tmp/comp412.imp"
L_0127:;
                                                                //   1186        FAULT(F TYPE)
#line 1186 "regression-compile-tmp/comp412.imp"
FAULT(FTYPE);
                                                                //   1187        QUOTE=0; SYMTYPE=0; DEC TYPE=0
#line 1187 "regression-compile-tmp/comp412.imp"
QUOTE = 0;
#line 1187 "regression-compile-tmp/comp412.imp"
SYMTYPE = 0;
#line 1187 "regression-compile-tmp/comp412.imp"
DECTYPE = 0;
                                                                //   1188        PREFIX=0; SPREFIX=0;  CONST INT = 0
#line 1188 "regression-compile-tmp/comp412.imp"
PREFIX = 0;
#line 1188 "regression-compile-tmp/comp412.imp"
SPREFIX = 0;
#line 1188 "regression-compile-tmp/comp412.imp"
CONSTINT = 0;
                                                                //   1189        %RETURN
#line 1189 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1190  DIR(86):                                    ! %INT
#line 1190 "regression-compile-tmp/comp412.imp"
sw2_DIR_86:;
                                                                //   1191        -> ALT %IF TYPE > 3 %AND TYPE#8;     ! NOT INTEGER
#line 1191 "regression-compile-tmp/comp412.imp"
if (((TYPE) <= (3))) goto L_012d;
#line 1191 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (8))) goto L_012d;
#line 1191 "regression-compile-tmp/comp412.imp"
goto U_1005;
#line 1191 "regression-compile-tmp/comp412.imp"
L_012d:;
                                                                //   1192  DCONT:
#line 1192 "regression-compile-tmp/comp412.imp"
U_100a:;
                                                                //   1193        G = J&511
#line 1193 "regression-compile-tmp/comp412.imp"
G = ((J) & (511));
                                                                //   1194        -> EOP %IF G=0;                      ! END OF PHRASE
#line 1194 "regression-compile-tmp/comp412.imp"
if (((G) != (0))) goto L_012e;
#line 1194 "regression-compile-tmp/comp412.imp"
goto U_1002;
#line 1194 "regression-compile-tmp/comp412.imp"
L_012e:;
                                                                //   1195        -> L1
#line 1195 "regression-compile-tmp/comp412.imp"
goto U_1003;
                                                                //   1196  DIR(87):                                    ! %REAL
#line 1196 "regression-compile-tmp/comp412.imp"
sw2_DIR_87:;
                                                                //   1197        -> ALT %IF TYPE < 6 %OR TYPE=8 %OR TYPE = 15;! NOT REAL
#line 1197 "regression-compile-tmp/comp412.imp"
if (((TYPE) < (6))) goto L_0126;
#line 1197 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (8))) goto L_0126;
#line 1197 "regression-compile-tmp/comp412.imp"
if (((TYPE) != (15))) goto L_012f;
#line 1197 "regression-compile-tmp/comp412.imp"
L_0126:;
#line 1197 "regression-compile-tmp/comp412.imp"
goto U_1005;
#line 1197 "regression-compile-tmp/comp412.imp"
L_012f:;
                                                                //   1198        -> DCONT
#line 1198 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1199  DIR(88):                                    ! %STR
#line 1199 "regression-compile-tmp/comp412.imp"
sw2_DIR_88:;
                                                                //   1200        -> ALT %IF TYPE#4;                   ! NOT STRING
#line 1200 "regression-compile-tmp/comp412.imp"
if (((TYPE) == (4))) goto L_0130;
#line 1200 "regression-compile-tmp/comp412.imp"
goto U_1005;
#line 1200 "regression-compile-tmp/comp412.imp"
L_0130:;
                                                                //   1201        -> DCONT
#line 1201 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1202  DIR(90):                                    ! %FN
#line 1202 "regression-compile-tmp/comp412.imp"
sw2_DIR_90:;
                                                                //   1203        %IF BLOCK TYPE&15 # 8 %START;        ! NOT A FUNCTION
#line 1203 "regression-compile-tmp/comp412.imp"
if (((((BLOCKTYPE) & (15))) == (8))) goto L_0131;
                                                                //   1204           ->DALT %IF DIAG >= 0 %OR BLOCKTYPE&15 # 9;  ! OR A FUNNY MAP
#line 1204 "regression-compile-tmp/comp412.imp"
if (((DIAG) >= (0))) goto L_0132;
#line 1204 "regression-compile-tmp/comp412.imp"
if (((((BLOCKTYPE) & (15))) == (9))) goto L_0133;
#line 1204 "regression-compile-tmp/comp412.imp"
L_0132:;
#line 1204 "regression-compile-tmp/comp412.imp"
goto U_100b;
#line 1204 "regression-compile-tmp/comp412.imp"
L_0133:;
                                                                //   1205        %FINISH
#line 1205 "regression-compile-tmp/comp412.imp"
L_0131:;
                                                                //   1206        TYPE=BLOCK TYPE>>4&7
#line 1206 "regression-compile-tmp/comp412.imp"
TYPE = (((int)((((unsigned int)(BLOCKTYPE)) >> (4)))) & (7));
                                                                //   1207        %IF TYPE <= 3 %THEN TYPE=8 %ELSE %START
#line 1207 "regression-compile-tmp/comp412.imp"
if (((TYPE) > (3))) goto L_0134;
#line 1207 "regression-compile-tmp/comp412.imp"
TYPE = 8;
#line 1207 "regression-compile-tmp/comp412.imp"
goto L_0135;
#line 1207 "regression-compile-tmp/comp412.imp"
L_0134:;
                                                                //   1208           TYPE=9 %IF TYPE >= 6
#line 1208 "regression-compile-tmp/comp412.imp"
if (((TYPE) < (6))) goto L_0136;
#line 1208 "regression-compile-tmp/comp412.imp"
TYPE = 9;
#line 1208 "regression-compile-tmp/comp412.imp"
L_0136:;
                                                                //   1209        %FINISH
#line 1209 "regression-compile-tmp/comp412.imp"
L_0135:;
                                                                //   1210        -> DCONT
#line 1210 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1211  DIR(91):                                    ! %M
#line 1211 "regression-compile-tmp/comp412.imp"
sw2_DIR_91:;
                                                                //   1212        -> DALT %IF BLOCK TYPE&15#9;         ! NOT A MAP
#line 1212 "regression-compile-tmp/comp412.imp"
if (((((BLOCKTYPE) & (15))) == (9))) goto L_0137;
#line 1212 "regression-compile-tmp/comp412.imp"
goto U_100b;
#line 1212 "regression-compile-tmp/comp412.imp"
L_0137:;
                                                                //   1213        TYPE=BLOCK TYPE>>4&7
#line 1213 "regression-compile-tmp/comp412.imp"
TYPE = (((int)((((unsigned int)(BLOCKTYPE)) >> (4)))) & (7));
                                                                //   1214        -> DCONT
#line 1214 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1215  DIR(94):                                    ! %SUB
#line 1215 "regression-compile-tmp/comp412.imp"
sw2_DIR_94:;
                                                                //   1216        -> DCONT %IF SUB LOCK#0
#line 1216 "regression-compile-tmp/comp412.imp"
if (((SUBLOCK) == (0))) goto L_0138;
#line 1216 "regression-compile-tmp/comp412.imp"
goto U_100a;
#line 1216 "regression-compile-tmp/comp412.imp"
L_0138:;
                                                                //   1217        -> ALT %UNLESS ATOM1=U LINE
#line 1217 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (18))) goto L_0139;
#line 1217 "regression-compile-tmp/comp412.imp"
goto U_1005;
#line 1217 "regression-compile-tmp/comp412.imp"
L_0139:;
                                                                //   1218        -> ERROR %IF SYMTYPE # -2
#line 1218 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) == ((-2)))) goto L_013a;
#line 1218 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1218 "regression-compile-tmp/comp412.imp"
L_013a:;
                                                                //   1219        L=FORMAT
#line 1219 "regression-compile-tmp/comp412.imp"
L = FORMAT;
                                                                //   1220        CODE ATOM
#line 1220 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //   1221        ATOM2=0
#line 1221 "regression-compile-tmp/comp412.imp"
ATOM2 = 0;
                                                                //   1222        F TYPE=8 %AND -> ERROR %IF L <= 0
#line 1222 "regression-compile-tmp/comp412.imp"
if (((L) > (0))) goto L_013b;
#line 1222 "regression-compile-tmp/comp412.imp"
FTYPE = 8;
#line 1222 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1222 "regression-compile-tmp/comp412.imp"
L_013b:;
                                                                //   1223        LIM=DICT(L);                         ! ONTO THE END
#line 1223 "regression-compile-tmp/comp412.imp"
LIM = DICT[L];
                                                                //   1224        LOOKUP(L);                           ! LOOK FOR SUBNAME
#line 1224 "regression-compile-tmp/comp412.imp"
LOOKUP(L);
                                                                //   1225        F TYPE=3 %AND -> ERROR %IF ATOM2=0
#line 1225 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (0))) goto L_013c;
#line 1225 "regression-compile-tmp/comp412.imp"
FTYPE = 3;
#line 1225 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1225 "regression-compile-tmp/comp412.imp"
L_013c:;
                                                                //   1226                                            ! NOT FOUND
                                                                //   1227        SUB LOCK=1
#line 1227 "regression-compile-tmp/comp412.imp"
SUBLOCK = 1;
                                                                //   1228        -> DCONT
#line 1228 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1229  DIR(95):                                    ! %APP
#line 1229 "regression-compile-tmp/comp412.imp"
sw2_DIR_95:;
                                                                //   1230        -> ALT %UNLESS ATOM1=LB
#line 1230 "regression-compile-tmp/comp412.imp"
if (((ATOM1) == (1))) goto L_013d;
#line 1230 "regression-compile-tmp/comp412.imp"
goto U_1005;
#line 1230 "regression-compile-tmp/comp412.imp"
L_013d:;
                                                                //   1231        -> DCONT
#line 1231 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1232  DIR(97):                                    ! %SETPLUS
#line 1232 "regression-compile-tmp/comp412.imp"
sw2_DIR_97:;
                                                                //   1233        PAPP = APP
#line 1233 "regression-compile-tmp/comp412.imp"
*PAPP = APP;
                                                                //   1234        L = PHRASE(152+APARM&7)
#line 1234 "regression-compile-tmp/comp412.imp"
L = (PHRASE-132)[((152) + ((int)(((APARM) & (7)))))];
                                                                //   1235        DICT(APARM>>3)=L %IF APARM&X'FFF8'#0
#line 1235 "regression-compile-tmp/comp412.imp"
if (((((APARM) & (65528))) == (0))) goto L_013e;
#line 1235 "regression-compile-tmp/comp412.imp"
DICT[(int)((((unsigned int)(APARM)) >> (3)))] = L;
#line 1235 "regression-compile-tmp/comp412.imp"
L_013e:;
                                                                //   1236        %WHILE A CHAIN#0 %CYCLE
#line 1236 "regression-compile-tmp/comp412.imp"
L_013f:;
#line 1236 "regression-compile-tmp/comp412.imp"
if (((ACHAIN) == (0))) goto L_0140;
                                                                //   1237           T=A CHAIN; A CHAIN=DICT(T); DICT(T)=L
#line 1237 "regression-compile-tmp/comp412.imp"
T = ACHAIN;
#line 1237 "regression-compile-tmp/comp412.imp"
ACHAIN = DICT[T];
#line 1237 "regression-compile-tmp/comp412.imp"
DICT[T] = L;
                                                                //   1238        %REPEAT
#line 1238 "regression-compile-tmp/comp412.imp"
goto L_013f;
#line 1238 "regression-compile-tmp/comp412.imp"
L_0140:;
                                                                //   1239                                            ! SET APP FOR ARRAY
                                                                //   1240        -> DCONT
#line 1240 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1241  DIR(98):                                    ! %PLUS
#line 1241 "regression-compile-tmp/comp412.imp"
sw2_DIR_98:;
                                                                //   1242        F TYPE=4 %AND -> ERROR %IF APARM&7=6
#line 1242 "regression-compile-tmp/comp412.imp"
if (((((APARM) & (7))) != (6))) goto L_0142;
#line 1242 "regression-compile-tmp/comp412.imp"
FTYPE = 4;
#line 1242 "regression-compile-tmp/comp412.imp"
goto U_1004;
#line 1242 "regression-compile-tmp/comp412.imp"
L_0142:;
                                                                //   1243        APARM=APARM+1
#line 1243 "regression-compile-tmp/comp412.imp"
APARM = (((int)(APARM)) + (1));
                                                                //   1244        -> DCONT
#line 1244 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1245  DIR(99):                                    ! %AMBIG
#line 1245 "regression-compile-tmp/comp412.imp"
sw2_DIR_99:;
                                                                //   1246        AMBIG=J&511
#line 1246 "regression-compile-tmp/comp412.imp"
AMBIG = ((J) & (511));
                                                                //   1247        -> ALT
#line 1247 "regression-compile-tmp/comp412.imp"
goto U_1005;
                                                                //   1248  DIR(100):                                   !  %DUMMY
#line 1248 "regression-compile-tmp/comp412.imp"
sw2_DIR_100:;
                                                                //   1249           EXTEND = 1 %IF A1 # A
#line 1249 "regression-compile-tmp/comp412.imp"
if (((A1) == (A))) goto L_0143;
#line 1249 "regression-compile-tmp/comp412.imp"
EXTEND = 1;
#line 1249 "regression-compile-tmp/comp412.imp"
L_0143:;
                                                                //   1250           A1 = A1-1;  K = 0
#line 1250 "regression-compile-tmp/comp412.imp"
A1 = (((int)(A1)) - (1));
#line 1250 "regression-compile-tmp/comp412.imp"
K = 0;
                                                                //   1251           ->ENTRY
#line 1251 "regression-compile-tmp/comp412.imp"
goto U_1006;
                                                                //   1252  DIR(101):                                   ! %LUP
#line 1252 "regression-compile-tmp/comp412.imp"
sw2_DIR_101:;
                                                                //   1253        DICT(T LIMIT-2)=APARM
#line 1253 "regression-compile-tmp/comp412.imp"
DICT[(((int)(TLIMIT)) - (2))] = APARM;
                                                                //   1254        DICT(T LIMIT-1)=FORMAT
#line 1254 "regression-compile-tmp/comp412.imp"
DICT[(((int)(TLIMIT)) - (1))] = FORMAT;
                                                                //   1255        ->DCONT %UNLESS NODE = A1
#line 1255 "regression-compile-tmp/comp412.imp"
if (((NODE) == (A1))) goto L_0144;
#line 1255 "regression-compile-tmp/comp412.imp"
goto U_100a;
#line 1255 "regression-compile-tmp/comp412.imp"
L_0144:;
                                                                //   1256        TLIMIT = TLIMIT-2;  FAULT(23) %IF T LIMIT <= T MAX
#line 1256 "regression-compile-tmp/comp412.imp"
TLIMIT = (((int)(TLIMIT)) - (2));
#line 1256 "regression-compile-tmp/comp412.imp"
if (((TLIMIT) > (TMAX))) goto L_0145;
#line 1256 "regression-compile-tmp/comp412.imp"
FAULT(23);
#line 1256 "regression-compile-tmp/comp412.imp"
L_0145:;
                                                                //   1257        -> DCONT
#line 1257 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1258  DIR(102):                                   ! %LDOWN
#line 1258 "regression-compile-tmp/comp412.imp"
sw2_DIR_102:;
                                                                //   1259        ->DCONT %IF DOWN LOCK # 0
#line 1259 "regression-compile-tmp/comp412.imp"
if (((DOWNLOCK) == (0))) goto L_0146;
#line 1259 "regression-compile-tmp/comp412.imp"
goto U_100a;
#line 1259 "regression-compile-tmp/comp412.imp"
L_0146:;
                                                                //   1260        DOWN LOCK = 1
#line 1260 "regression-compile-tmp/comp412.imp"
DOWNLOCK = 1;
                                                                //   1261        APARM=DICT(T LIMIT  )
#line 1261 "regression-compile-tmp/comp412.imp"
APARM = DICT[TLIMIT];
                                                                //   1262        FORMAT=DICT(T LIMIT+1)
#line 1262 "regression-compile-tmp/comp412.imp"
FORMAT = DICT[(((int)(TLIMIT)) + (1))];
                                                                //   1263        T LIMIT = T LIMIT+2 %IF NODE = A1
#line 1263 "regression-compile-tmp/comp412.imp"
if (((NODE) != (A1))) goto L_0147;
#line 1263 "regression-compile-tmp/comp412.imp"
TLIMIT = (((int)(TLIMIT)) + (2));
#line 1263 "regression-compile-tmp/comp412.imp"
L_0147:;
                                                                //   1264        -> D CONT
#line 1264 "regression-compile-tmp/comp412.imp"
goto U_100a;
                                                                //   1265  DALT:  F TYPE=5;                            ! CONTEXT
#line 1265 "regression-compile-tmp/comp412.imp"
U_100b:;
#line 1265 "regression-compile-tmp/comp412.imp"
FTYPE = 5;
                                                                //   1266        -> ALT
#line 1266 "regression-compile-tmp/comp412.imp"
goto U_1005;
                                                                //   1267     %END;                                   ! OF ANALYSE
#line 1267 "regression-compile-tmp/comp412.imp"
return;
sw2_DIR_92:;
sw2_DIR_93:;
sw2_DIR_96:;
/*_imp_signal(6,3,sw2_DIR_idx,"SWITCH LABEL NOT SET - sw2_DIR");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw2_DIR(%d): at line %s:%d", sw2_DIR_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block ANALYSE at level 4
                                                                //   1268        FORMAT=0; APARM=0; RELOCATE=0
#line 1268 "regression-compile-tmp/comp412.imp"
FORMAT = 0;
#line 1268 "regression-compile-tmp/comp412.imp"
APARM = 0;
#line 1268 "regression-compile-tmp/comp412.imp"
RELOCATE = 0;
                                                                //   1269        LITPOS=400
#line 1269 "regression-compile-tmp/comp412.imp"
LITPOS = 400;
                                                                //   1270        SS=0; DEC TYPE=0; DUP=0;  CONST INT = 0
#line 1270 "regression-compile-tmp/comp412.imp"
SS = 0;
#line 1270 "regression-compile-tmp/comp412.imp"
DECTYPE = 0;
#line 1270 "regression-compile-tmp/comp412.imp"
DUP = 0;
#line 1270 "regression-compile-tmp/comp412.imp"
CONSTINT = 0;
                                                                //   1271        PREFIX=0; SPREFIX=0
#line 1271 "regression-compile-tmp/comp412.imp"
PREFIX = 0;
#line 1271 "regression-compile-tmp/comp412.imp"
SPREFIX = 0;
                                                                //   1272        A CHAIN=0; F TYPE=0; MARK = ' '
#line 1272 "regression-compile-tmp/comp412.imp"
ACHAIN = 0;
#line 1272 "regression-compile-tmp/comp412.imp"
FTYPE = 0;
#line 1272 "regression-compile-tmp/comp412.imp"
MARK = 32;
                                                                //   1273        %IF CONT=0 %START
#line 1273 "regression-compile-tmp/comp412.imp"
if (((CONT) != (0))) goto L_0148;
                                                                //   1274           MARGIN = MARGIN+POS
#line 1274 "regression-compile-tmp/comp412.imp"
MARGIN = (((int)(MARGIN)) + (POS));
                                                                //   1275           %IF SYM TYPE=0 %START
#line 1275 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) != (0))) goto L_0149;
                                                                //   1276              POS=0; READ SYM
#line 1276 "regression-compile-tmp/comp412.imp"
POS = 0;
#line 1276 "regression-compile-tmp/comp412.imp"
READSYM();
                                                                //   1277           %FINISH
#line 1277 "regression-compile-tmp/comp412.imp"
L_0149:;
                                                                //   1278           ATOM1=0
#line 1278 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
                                                                //   1279           %IF SYMTYPE=0 %OR SYM='!' %START
#line 1279 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) == (0))) goto L_014a;
#line 1279 "regression-compile-tmp/comp412.imp"
if (((SYM) != (33))) goto L_014b;
#line 1279 "regression-compile-tmp/comp412.imp"
L_014a:;
                                                                //   1280  SKIP:        READSYM %WHILE SYMTYPE#0
#line 1280 "regression-compile-tmp/comp412.imp"
U_100c:;
#line 1280 "regression-compile-tmp/comp412.imp"
L_014c:;
#line 1280 "regression-compile-tmp/comp412.imp"
if (((SYMTYPE) == (0))) goto L_014d;
#line 1280 "regression-compile-tmp/comp412.imp"
READSYM();
#line 1280 "regression-compile-tmp/comp412.imp"
goto L_014c;
#line 1280 "regression-compile-tmp/comp412.imp"
L_014d:;
                                                                //   1281              %RETURN
#line 1281 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1282           %FINISH
#line 1282 "regression-compile-tmp/comp412.imp"
L_014b:;
                                                                //   1283           CODE ATOM; -> SKIP %IF ATOM1=COMMENT
#line 1283 "regression-compile-tmp/comp412.imp"
CODEATOM();
#line 1283 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (7))) goto L_014f;
#line 1283 "regression-compile-tmp/comp412.imp"
goto U_100c;
#line 1283 "regression-compile-tmp/comp412.imp"
L_014f:;
                                                                //   1284           STATS=STATS+1
#line 1284 "regression-compile-tmp/comp412.imp"
STATS = (((int)(STATS)) + (1));
                                                                //   1285           OP('O',LINE NUM) %IF  PERMIN = 0; ! DUMP LINE NUMBER
#line 1285 "regression-compile-tmp/comp412.imp"
if (((PERMIN) != (0))) goto L_0150;
#line 1285 "regression-compile-tmp/comp412.imp"
OP(79, LINENUM);
#line 1285 "regression-compile-tmp/comp412.imp"
L_0150:;
                                                                //   1286           %IF ATOM1 =  MCODE %AND SUBATOM = 1 %START
#line 1286 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (38))) goto L_0151;
#line 1286 "regression-compile-tmp/comp412.imp"
if (((SUBATOM) != (1))) goto L_0151;
                                                                //   1287              CODE ATOM
#line 1287 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //   1288              %IF ATOM2 = IDENT %START
#line 1288 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (59))) goto L_0152;
                                                                //   1289                 LIM = GLOBAL;  LOOKUP(T BASE)
#line 1289 "regression-compile-tmp/comp412.imp"
LIM = 0;
#line 1289 "regression-compile-tmp/comp412.imp"
LOOKUP(TBASE);
                                                                //   1290              %FINISH
#line 1290 "regression-compile-tmp/comp412.imp"
L_0152:;
                                                                //   1291              FAULT(0) %IF ATOM2 # ICONST
#line 1291 "regression-compile-tmp/comp412.imp"
if (((ATOM2) == (83))) goto L_0153;
#line 1291 "regression-compile-tmp/comp412.imp"
FAULT(0);
#line 1291 "regression-compile-tmp/comp412.imp"
L_0153:;
                                                                //   1292              CGEN(EVAL(SUBATOM));  PUT('P')
#line 1292 "regression-compile-tmp/comp412.imp"
CGEN(EVAL(SUBATOM));
#line 1292 "regression-compile-tmp/comp412.imp"
PUT(80);
                                                                //   1293              %RETURN
#line 1293 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1294           %FINISH
#line 1294 "regression-compile-tmp/comp412.imp"
L_0151:;
                                                                //   1295           TYPE=0
#line 1295 "regression-compile-tmp/comp412.imp"
TYPE = 0;
                                                                //   1296           %IF ATOM1=IDENT %AND (SYM=':' %OR ATOM2=SWITCH) %START
#line 1296 "regression-compile-tmp/comp412.imp"
if (((ATOM1) != (59))) goto L_0154;
#line 1296 "regression-compile-tmp/comp412.imp"
if (((SYM) == (58))) goto L_0155;
#line 1296 "regression-compile-tmp/comp412.imp"
if (((ATOM2) != (80))) goto L_0154;
#line 1296 "regression-compile-tmp/comp412.imp"
L_0155:;
                                                                //   1297              DEC TYPE=3
#line 1297 "regression-compile-tmp/comp412.imp"
DECTYPE = 3;
                                                                //   1298              SS TYPE=0; ANALYSE(PHRASE(SS0));!  LABEL
#line 1298 "regression-compile-tmp/comp412.imp"
SSTYPE = 0;
#line 1298 "regression-compile-tmp/comp412.imp"
ANALYSE((PHRASE-132)[250]);
                                                                //   1299           %ELSE
#line 1299 "regression-compile-tmp/comp412.imp"
goto L_0156;
#line 1299 "regression-compile-tmp/comp412.imp"
L_0154:;
                                                                //   1300              %IF DEC TYPE#0 %OR OUT#0 %START
#line 1300 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (0))) goto L_014e;
#line 1300 "regression-compile-tmp/comp412.imp"
if (((OUT) == (0))) goto L_0157;
#line 1300 "regression-compile-tmp/comp412.imp"
L_014e:;
                                                                //   1301                 TYPE=OUT
#line 1301 "regression-compile-tmp/comp412.imp"
TYPE = OUT;
                                                                //   1302                 SS TYPE=1;  ANALYSE(PHRASE(SS1));! DECLARATION
#line 1302 "regression-compile-tmp/comp412.imp"
SSTYPE = 1;
#line 1302 "regression-compile-tmp/comp412.imp"
ANALYSE((PHRASE-132)[251]);
                                                                //   1303              %ELSE
#line 1303 "regression-compile-tmp/comp412.imp"
goto L_0158;
#line 1303 "regression-compile-tmp/comp412.imp"
L_0157:;
                                                                //   1304                 SS TYPE=3;  ANALYSE(PHRASE(SS3));! STATEMENT
#line 1304 "regression-compile-tmp/comp412.imp"
SSTYPE = 3;
#line 1304 "regression-compile-tmp/comp412.imp"
ANALYSE((PHRASE-132)[253]);
                                                                //   1305              %FINISH
#line 1305 "regression-compile-tmp/comp412.imp"
L_0158:;
                                                                //   1306           %FINISH
#line 1306 "regression-compile-tmp/comp412.imp"
L_0156:;
                                                                //   1307           %RETURN
#line 1307 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1308        %FINISH
#line 1308 "regression-compile-tmp/comp412.imp"
L_0148:;
                                                                //   1309        CODE ATOM
#line 1309 "regression-compile-tmp/comp412.imp"
CODEATOM();
                                                                //   1310        %IF CONT > 0 %START;                 ! APP
#line 1310 "regression-compile-tmp/comp412.imp"
if (((CONT) <= (0))) goto L_0159;
                                                                //   1311           SS TYPE=2;  ANALYSE(PHRASE(SS2)); ! FORMAL PARAMETER
#line 1311 "regression-compile-tmp/comp412.imp"
SSTYPE = 2;
#line 1311 "regression-compile-tmp/comp412.imp"
ANALYSE((PHRASE-132)[252]);
                                                                //   1312           J=GAPP
#line 1312 "regression-compile-tmp/comp412.imp"
J = GAPP();
                                                                //   1313           FAULT(6) %IF 0#|FPP|#J
#line 1313 "regression-compile-tmp/comp412.imp"
if ((((0) == (_imp_IMOD(*FPP)))) || (((_imp_IMOD(*FPP)) == (J)))) goto L_015a;
#line 1313 "regression-compile-tmp/comp412.imp"
FAULT(6);
#line 1313 "regression-compile-tmp/comp412.imp"
L_015a:;
                                                                //   1314           FPP=J*SPEC
#line 1314 "regression-compile-tmp/comp412.imp"
*FPP = (((int)(J)) * (SPEC));
                                                                //   1315        %ELSE;                               ! RECORDFORMAT
#line 1315 "regression-compile-tmp/comp412.imp"
goto L_015b;
#line 1315 "regression-compile-tmp/comp412.imp"
L_0159:;
                                                                //   1316           FP=TMAX;                          ! REMEMBER START OF NAMES
#line 1316 "regression-compile-tmp/comp412.imp"
FP = TMAX;
                                                                //   1317           SS TYPE=4; ANALYSE(PHRASE(SS4))
#line 1317 "regression-compile-tmp/comp412.imp"
SSTYPE = 4;
#line 1317 "regression-compile-tmp/comp412.imp"
ANALYSE((PHRASE-132)[254]);
                                                                //   1318           %IF SS#0 %AND TMAX > FP %START
#line 1318 "regression-compile-tmp/comp412.imp"
if (((SS) == (0))) goto L_015c;
#line 1318 "regression-compile-tmp/comp412.imp"
if (((TMAX) <= (FP))) goto L_015c;
                                                                //   1319              J=T LIMIT+TBASE-TMAX-1
#line 1319 "regression-compile-tmp/comp412.imp"
J = (((int)((((int)((((int)(TLIMIT)) + (TBASE)))) - (TMAX)))) - (1));
                                                                //   1320              FAULT(21) %IF J <= TMAX
#line 1320 "regression-compile-tmp/comp412.imp"
if (((J) > (TMAX))) goto L_015d;
#line 1320 "regression-compile-tmp/comp412.imp"
FAULT(21);
#line 1320 "regression-compile-tmp/comp412.imp"
L_015d:;
                                                                //   1321              FPP=T LIMIT-1;                 ! FILL IN FORMAT REFERENCE
#line 1321 "regression-compile-tmp/comp412.imp"
*FPP = (((int)(TLIMIT)) - (1));
                                                                //   1322              DICT(FPP)=J;                   ! END OF FORMAT
#line 1322 "regression-compile-tmp/comp412.imp"
DICT[*FPP] = J;
                                                                //   1323              RELOCATE=J-FP
#line 1323 "regression-compile-tmp/comp412.imp"
RELOCATE = (((int)(J)) - (FP));
                                                                //   1324              %CYCLE K=J,1,FPP-1
#line 1324 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = J; _increment = 1; _final = ((*(int *)(FPP)) - (1)); K = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = J, 1, ((*(int *)(FPP)) - (1))");
K -= _increment; _control -= _increment;
L_015e:;
if (K == _final) goto L_015f;
K += _increment; _control += _increment;
if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */
}
                                                                //   1325                 DICT(K)=DICT(FP)
#line 1325 "regression-compile-tmp/comp412.imp"
DICT[K] = DICT[FP];
                                                                //   1326                 FP=FP+1
#line 1326 "regression-compile-tmp/comp412.imp"
FP = (((int)(FP)) + (1));
                                                                //   1327              %REPEAT
#line 1327 "regression-compile-tmp/comp412.imp"
goto L_015e;
#line 1327 "regression-compile-tmp/comp412.imp"
L_015f:;
                                                                //   1328              T LIMIT=J
#line 1328 "regression-compile-tmp/comp412.imp"
TLIMIT = J;
                                                                //   1329           %FINISH
#line 1329 "regression-compile-tmp/comp412.imp"
L_015c:;
                                                                //   1330        %FINISH
#line 1330 "regression-compile-tmp/comp412.imp"
L_015b:;
                                                                //   1331     %END;                                   ! ANALYSE SS
#line 1331 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ANALYSESS at level 3
                                                                //   1332     %ROUTINE COMPILE SS
#line 1332 "regression-compile-tmp/comp412.imp"
void COMPILESS( void )
#line 1332 "regression-compile-tmp/comp412.imp"
{
                                                                //   1333        %CONSTBYTEINTEGERARRAY RCOMP(33:40)=34,33,35,36,38,37,39,40
#line 1333 "regression-compile-tmp/comp412.imp"
const unsigned char RCOMP[8] = { 34, 33, 35, 36, 38, 37, 39, 40,  };
                                                                //   1334        %CONSTBYTEINTEGERARRAY COMP(33:40)='>','<','=','#',')','(',116,107
#line 1334 "regression-compile-tmp/comp412.imp"
const unsigned char COMP[8] = { 62, 60, 61, 35, 41, 40, 116, 107,  };
                                                                //   1335        !  116 = LOWER CASE 'T',  107 = LOWER CASE 'K'
                                                                //   1336        %CONSTBYTEINTEGERARRAY CON OP(82 : 84)='''', 'N', 'D'
#line 1336 "regression-compile-tmp/comp412.imp"
const unsigned char CONOP[3] = { 39, 78, 68,  };
                                                                //   1337        %CONSTBYTEINTEGERARRAY OPCODE(1:10)='*','/','&','!',
#line 1337 "regression-compile-tmp/comp412.imp"
const unsigned char OPCODE[10] = { 42, 47, 38, 33, 37, 91, 93, 46, 92, 120,  };
                                                                //   1338                                            '%','[',']','.','\',120
                                                                //   1339        ! 120 = LOWER CASE 'X'
                                                                //   1340        %SWITCH C(1 : 130), D(50 : 57)
#line 1340 "regression-compile-tmp/comp412.imp"
static int sw3_C_idx;
static const void * /*SWITCH*/ sw3_C[130] = { &&sw3_C_1, &&sw3_C_2, &&sw3_C_3, &&sw3_C_4, &&sw3_C_5, &&sw3_C_6, &&sw3_C_7, &&sw3_C_8, &&sw3_C_9, &&sw3_C_10, &&sw3_C_11, &&sw3_C_12, &&sw3_C_13, &&sw3_C_14, &&sw3_C_15, &&sw3_C_16, &&sw3_C_17, &&sw3_C_18, &&sw3_C_19, &&sw3_C_20, &&sw3_C_21, &&sw3_C_22, &&sw3_C_23, &&sw3_C_24, &&sw3_C_25, &&sw3_C_26, &&sw3_C_27, &&sw3_C_28, &&sw3_C_29, &&sw3_C_30, &&sw3_C_31, &&sw3_C_32, &&sw3_C_33, &&sw3_C_34, &&sw3_C_35, &&sw3_C_36, &&sw3_C_37, &&sw3_C_38, &&sw3_C_39, &&sw3_C_40, &&sw3_C_41, &&sw3_C_42, &&sw3_C_43, &&sw3_C_44, &&sw3_C_45, &&sw3_C_46, &&sw3_C_47, &&sw3_C_48, &&sw3_C_49, &&sw3_C_50, &&sw3_C_51, &&sw3_C_52, &&sw3_C_53, &&sw3_C_54, &&sw3_C_55, &&sw3_C_56, &&sw3_C_57, &&sw3_C_58, &&sw3_C_59, &&sw3_C_60, &&sw3_C_61, &&sw3_C_62, &&sw3_C_63, &&sw3_C_64, &&sw3_C_65, &&sw3_C_66, &&sw3_C_67, &&sw3_C_68, &&sw3_C_69, &&sw3_C_70, &&sw3_C_71, &&sw3_C_72, &&sw3_C_73, &&sw3_C_74, &&sw3_C_75, &&sw3_C_76, &&sw3_C_77, &&sw3_C_78, &&sw3_C_79, &&sw3_C_80, &&sw3_C_81, &&sw3_C_82, &&sw3_C_83, &&sw3_C_84, &&sw3_C_85, &&sw3_C_86, &&sw3_C_87, &&sw3_C_88, &&sw3_C_89, &&sw3_C_90, &&sw3_C_91, &&sw3_C_92, &&sw3_C_93, &&sw3_C_94, &&sw3_C_95, &&sw3_C_96, &&sw3_C_97, &&sw3_C_98, &&sw3_C_99, &&sw3_C_100, &&sw3_C_101, &&sw3_C_102, &&sw3_C_103, &&sw3_C_104, &&sw3_C_105, &&sw3_C_106, &&sw3_C_107, &&sw3_C_108, &&sw3_C_109, &&sw3_C_110, &&sw3_C_111, &&sw3_C_112, &&sw3_C_113, &&sw3_C_114, &&sw3_C_115, &&sw3_C_116, &&sw3_C_117, &&sw3_C_118, &&sw3_C_119, &&sw3_C_120, &&sw3_C_121, &&sw3_C_122, &&sw3_C_123, &&sw3_C_124, &&sw3_C_125, &&sw3_C_126, &&sw3_C_127, &&sw3_C_128, &&sw3_C_129, &&sw3_C_130,  };
#line 1340 "regression-compile-tmp/comp412.imp"
static int sw4_D_idx;
static const void * /*SWITCH*/ sw4_D[8] = { &&sw4_D_50, &&sw4_D_51, &&sw4_D_52, &&sw4_D_53, &&sw4_D_54, &&sw4_D_55, &&sw4_D_56, &&sw4_D_57,  };
                                                                //   1341        %BYTEINTEGERNAME MM
#line 1341 "regression-compile-tmp/comp412.imp"
unsigned char /*name*/*MM;
                                                                //   1342        %INTEGERNAME M
#line 1342 "regression-compile-tmp/comp412.imp"
int /*name*/*M;
                                                                //   1343        %INTEGER L, DIM, K
#line 1343 "regression-compile-tmp/comp412.imp"
int L;
#line 1343 "regression-compile-tmp/comp412.imp"
int DIM;
#line 1343 "regression-compile-tmp/comp412.imp"
int K;
                                                                //   1344        %OWNINTEGER OWN DEF=0
#line 1344 "regression-compile-tmp/comp412.imp"
static int OWNDEF = 0;
                                                                //   1345        %OWNINTEGER BP SIZE=0
#line 1345 "regression-compile-tmp/comp412.imp"
static int BPSIZE = 0;
                                                                //   1346        %INTEGER CALL PENDING, PRED PENDING, PRED OP
#line 1346 "regression-compile-tmp/comp412.imp"
int CALLPENDING;
#line 1346 "regression-compile-tmp/comp412.imp"
int PREDPENDING;
#line 1346 "regression-compile-tmp/comp412.imp"
int PREDOP;
                                                                //   1347        %INTEGER GLOBAL NOT, LOCAL NOT
#line 1347 "regression-compile-tmp/comp412.imp"
int GLOBALNOT;
#line 1347 "regression-compile-tmp/comp412.imp"
int LOCALNOT;
                                                                //   1348        %INTEGER CLAST, CMOD, OPS, BIT, CLEVEL, DOUBLE
#line 1348 "regression-compile-tmp/comp412.imp"
int CLAST;
#line 1348 "regression-compile-tmp/comp412.imp"
int CMOD;
#line 1348 "regression-compile-tmp/comp412.imp"
int OPS;
#line 1348 "regression-compile-tmp/comp412.imp"
int BIT;
#line 1348 "regression-compile-tmp/comp412.imp"
int CLEVEL;
#line 1348 "regression-compile-tmp/comp412.imp"
int DOUBLE;
                                                                //   1349        %INTEGER PLAB, LOOP LAB, ULAB, CONDS, ELSE
#line 1349 "regression-compile-tmp/comp412.imp"
int PLAB;
#line 1349 "regression-compile-tmp/comp412.imp"
int LOOPLAB;
#line 1349 "regression-compile-tmp/comp412.imp"
int ULAB;
#line 1349 "regression-compile-tmp/comp412.imp"
int CONDS;
#line 1349 "regression-compile-tmp/comp412.imp"
int ELSE;
                                                                //   1350        %INTEGER  LIT1, LIT2, STARTT
#line 1350 "regression-compile-tmp/comp412.imp"
int LIT1;
#line 1350 "regression-compile-tmp/comp412.imp"
int LIT2;
#line 1350 "regression-compile-tmp/comp412.imp"
int STARTT;
                                                                //   1351        %INTEGER NEXT, CLASS, DCLASS, LINK
#line 1351 "regression-compile-tmp/comp412.imp"
int NEXT;
#line 1351 "regression-compile-tmp/comp412.imp"
int CLASS;
#line 1351 "regression-compile-tmp/comp412.imp"
int DCLASS;
#line 1351 "regression-compile-tmp/comp412.imp"
int LINK;
                                                                //   1352  
                                                                //   1353        %ROUTINE AOP(%INTEGER C, A)
#line 1353 "regression-compile-tmp/comp412.imp"
void AOP( int C, int A )
#line 1353 "regression-compile-tmp/comp412.imp"
{
                                                                //   1354           PUT(C)
#line 1354 "regression-compile-tmp/comp412.imp"
PUT(C);
                                                                //   1355           %IF A < 0 %START
#line 1355 "regression-compile-tmp/comp412.imp"
if (((A) >= (0))) goto L_0161;
                                                                //   1356              A = -A;  PUT('-')
#line 1356 "regression-compile-tmp/comp412.imp"
A = (-(A));
#line 1356 "regression-compile-tmp/comp412.imp"
PUT(45);
                                                                //   1357           %ELSE
#line 1357 "regression-compile-tmp/comp412.imp"
goto L_0162;
#line 1357 "regression-compile-tmp/comp412.imp"
L_0161:;
                                                                //   1358              A = A//2
#line 1358 "regression-compile-tmp/comp412.imp"
A = (long)((long)((int)(A)) / (long)((int)(2)));
                                                                //   1359           %FINISH
#line 1359 "regression-compile-tmp/comp412.imp"
L_0162:;
                                                                //   1360           ADDR(A)
#line 1360 "regression-compile-tmp/comp412.imp"
ADDR(A);
                                                                //   1361        %END
#line 1361 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block AOP at level 4
                                                                //   1362  
                                                                //   1363        %ROUTINE EXTRA(%INTEGER N)
#line 1363 "regression-compile-tmp/comp412.imp"
void EXTRA( int N )
#line 1363 "regression-compile-tmp/comp412.imp"
{
                                                                //   1364           PUT(','); ADDR(N)
#line 1364 "regression-compile-tmp/comp412.imp"
PUT(44);
#line 1364 "regression-compile-tmp/comp412.imp"
ADDR(N);
                                                                //   1365        %END
#line 1365 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block EXTRA at level 4
                                                                //   1366  
                                                                //   1367        %ROUTINE DEF(%INTEGER N)
#line 1367 "regression-compile-tmp/comp412.imp"
void DEF( int N )
#line 1367 "regression-compile-tmp/comp412.imp"
{
                                                                //   1368           %INTEGER K
#line 1368 "regression-compile-tmp/comp412.imp"
int K;
                                                                //   1369           N=N+RELOCATE
#line 1369 "regression-compile-tmp/comp412.imp"
N = (((int)(N)) + (RELOCATE));
                                                                //   1370           AOP('$',N);  PRINT NAME(-N)
#line 1370 "regression-compile-tmp/comp412.imp"
AOP(36, N);
#line 1370 "regression-compile-tmp/comp412.imp"
PRINTNAME((-(N)));
                                                                //   1371           K=DICT(N-1)
#line 1371 "regression-compile-tmp/comp412.imp"
K = DICT[(((int)(N)) - (1))];
                                                                //   1372           EXTRA(K&127);                     ! TYPE!FORM
#line 1372 "regression-compile-tmp/comp412.imp"
EXTRA(((K) & (127)));
                                                                //   1373           EXTRA(K>>8&255);                  ! MAX STRING LENGTH
#line 1373 "regression-compile-tmp/comp412.imp"
EXTRA((((int)((((unsigned int)(K)) >> (8)))) & (255)));
                                                                //   1374           EXTRA(DICT(N)>>13&7);             ! OTYPE
#line 1374 "regression-compile-tmp/comp412.imp"
EXTRA((((int)((((unsigned int)(DICT[N])) >> (13)))) & (7)));
                                                                //   1375                                            ! RECORD
                                                                //   1376           AOP(',',DICT(N-2)) %IF K&X'70'=X'50' %AND K&127#84
#line 1376 "regression-compile-tmp/comp412.imp"
if (((((K) & (112))) != (80))) goto L_0163;
#line 1376 "regression-compile-tmp/comp412.imp"
if (((((K) & (127))) == (84))) goto L_0163;
#line 1376 "regression-compile-tmp/comp412.imp"
AOP(44, DICT[(((int)(N)) - (2))]);
#line 1376 "regression-compile-tmp/comp412.imp"
L_0163:;
                                                                //   1377        %END
#line 1377 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEF at level 4
                                                                //   1378  
                                                                //   1379        %ROUTINE CALL
#line 1379 "regression-compile-tmp/comp412.imp"
void CALL( void )
#line 1379 "regression-compile-tmp/comp412.imp"
{
                                                                //   1380           %INTEGER P
#line 1380 "regression-compile-tmp/comp412.imp"
int P;
                                                                //   1381           CALL PENDING = 1
#line 1381 "regression-compile-tmp/comp412.imp"
CALLPENDING = 1;
                                                                //   1382           AOP('@',X)
#line 1382 "regression-compile-tmp/comp412.imp"
AOP(64, X);
                                                                //   1383           P = X
#line 1383 "regression-compile-tmp/comp412.imp"
P = X;
                                                                //   1384           P = P-1 %IF DICT(X)&512 # 0
#line 1384 "regression-compile-tmp/comp412.imp"
if (((((DICT[X]) & (512))) == (0))) goto L_0164;
#line 1384 "regression-compile-tmp/comp412.imp"
P = (((int)(P)) - (1));
#line 1384 "regression-compile-tmp/comp412.imp"
L_0164:;
                                                                //   1385           %IF |DICT(P-2)| = NULL %START
#line 1385 "regression-compile-tmp/comp412.imp"
if (((_imp_IMOD(DICT[(((int)(P)) - (2))])) != (512))) goto L_0165;
                                                                //   1386              PUT('E');  CALL PENDING = 0
#line 1386 "regression-compile-tmp/comp412.imp"
PUT(69);
#line 1386 "regression-compile-tmp/comp412.imp"
CALLPENDING = 0;
                                                                //   1387           %ELSE
#line 1387 "regression-compile-tmp/comp412.imp"
goto L_0166;
#line 1387 "regression-compile-tmp/comp412.imp"
L_0165:;
                                                                //   1388              PRED PENDING = PRED PENDING<<1
#line 1388 "regression-compile-tmp/comp412.imp"
PREDPENDING = ((PREDPENDING) << (1));
                                                                //   1389           %FINISH
#line 1389 "regression-compile-tmp/comp412.imp"
L_0166:;
                                                                //   1390        %END
#line 1390 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CALL at level 4
                                                                //   1391        %ROUTINE SET SIZE
#line 1391 "regression-compile-tmp/comp412.imp"
void SETSIZE( void )
#line 1391 "regression-compile-tmp/comp412.imp"
{
                                                                //   1392           BP SIZE=LIT1-LIT2+1
#line 1392 "regression-compile-tmp/comp412.imp"
BPSIZE = (((int)((((int)(LIT1)) - (LIT2)))) + (1));
                                                                //   1393           %IF BPSIZE <= 0 %START
#line 1393 "regression-compile-tmp/comp412.imp"
if (((BPSIZE) > (0))) goto L_0167;
                                                                //   1394              ATOM POS=0; FAULT(4)
#line 1394 "regression-compile-tmp/comp412.imp"
ATOMPOS = 0;
#line 1394 "regression-compile-tmp/comp412.imp"
FAULT(4);
                                                                //   1395              BP SIZE=1
#line 1395 "regression-compile-tmp/comp412.imp"
BPSIZE = 1;
                                                                //   1396           %FINISH
#line 1396 "regression-compile-tmp/comp412.imp"
L_0167:;
                                                                //   1397           PUT('B'+32);  ADDR(BP SIZE)
#line 1397 "regression-compile-tmp/comp412.imp"
PUT(98);
#line 1397 "regression-compile-tmp/comp412.imp"
ADDR(BPSIZE);
                                                                //   1398        %END
#line 1398 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETSIZE at level 4
                                                                //   1399  
                                                                //   1400        %ROUTINE POP LAB(%INTEGER MODE)
#line 1400 "regression-compile-tmp/comp412.imp"
void POPLAB( int MODE )
#line 1400 "regression-compile-tmp/comp412.imp"
{
                                                                //   1401           %INTEGER L
#line 1401 "regression-compile-tmp/comp412.imp"
int L;
                                                                //   1402           %IF LABEL > OLD LABEL %START
#line 1402 "regression-compile-tmp/comp412.imp"
if (((LABEL) <= (OLDLABEL))) goto L_0168;
                                                                //   1403              L = LAB INF(LABEL>>2)
#line 1403 "regression-compile-tmp/comp412.imp"
L = LABINF[(((int)((int)((((unsigned int)(LABEL)) >> (2))))) - (1))];
                                                                //   1404              %IF (L!!MODE)&1 # 0 %START
#line 1404 "regression-compile-tmp/comp412.imp"
if (((((((L) ^ (MODE))) & (1))) == (0))) goto L_0169;
                                                                //   1405                 LABEL = LABEL-4;  P LAB = LABEL
#line 1405 "regression-compile-tmp/comp412.imp"
LABEL = (((int)(LABEL)) - (4));
#line 1405 "regression-compile-tmp/comp412.imp"
PLAB = LABEL;
                                                                //   1406                 EILAB = PLAB+1 %IF L&4 # 0
#line 1406 "regression-compile-tmp/comp412.imp"
if (((((L) & (4))) == (0))) goto L_016a;
#line 1406 "regression-compile-tmp/comp412.imp"
EILAB = (((int)(PLAB)) + (1));
#line 1406 "regression-compile-tmp/comp412.imp"
L_016a:;
                                                                //   1407                 P LAB = P LAB+1 %IF L&3 = 3
#line 1407 "regression-compile-tmp/comp412.imp"
if (((((L) & (3))) != (3))) goto L_016b;
#line 1407 "regression-compile-tmp/comp412.imp"
PLAB = (((int)(PLAB)) + (1));
#line 1407 "regression-compile-tmp/comp412.imp"
L_016b:;
                                                                //   1408                 PLAB = 0 %IF L&8 = 0;        ! NO EXIT CONDITION
#line 1408 "regression-compile-tmp/comp412.imp"
if (((((L) & (8))) != (0))) goto L_016c;
#line 1408 "regression-compile-tmp/comp412.imp"
PLAB = 0;
#line 1408 "regression-compile-tmp/comp412.imp"
L_016c:;
                                                                //   1409                 %RETURN
#line 1409 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1410              %FINISH
#line 1410 "regression-compile-tmp/comp412.imp"
L_0169:;
                                                                //   1411           %FINISH
#line 1411 "regression-compile-tmp/comp412.imp"
L_0168:;
                                                                //   1412           %IF MODE = 0 %THEN MODE = 13 %ELSE MODE = 10
#line 1412 "regression-compile-tmp/comp412.imp"
if (((MODE) != (0))) goto L_016d;
#line 1412 "regression-compile-tmp/comp412.imp"
MODE = 13;
#line 1412 "regression-compile-tmp/comp412.imp"
goto L_016e;
#line 1412 "regression-compile-tmp/comp412.imp"
L_016d:;
#line 1412 "regression-compile-tmp/comp412.imp"
MODE = 10;
#line 1412 "regression-compile-tmp/comp412.imp"
L_016e:;
                                                                //   1413           FAULT(MODE);  ACCESS = 1
#line 1413 "regression-compile-tmp/comp412.imp"
FAULT(MODE);
#line 1413 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //   1414        %END
#line 1414 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POPLAB at level 4
                                                                //   1415  
                                                                //   1416        %ROUTINE C END
#line 1416 "regression-compile-tmp/comp412.imp"
void CEND( void )
#line 1416 "regression-compile-tmp/comp412.imp"
{
                                                                //   1417           %INTEGER L, T,LIM, FLAG
#line 1417 "regression-compile-tmp/comp412.imp"
int L;
#line 1417 "regression-compile-tmp/comp412.imp"
int T;
#line 1417 "regression-compile-tmp/comp412.imp"
int LIM;
#line 1417 "regression-compile-tmp/comp412.imp"
int FLAG;
                                                                //   1418           %IF X=88 %START;                  ! ENDOFPERM
#line 1418 "regression-compile-tmp/comp412.imp"
if (((X) != (88))) goto L_016f;
                                                                //   1419              STATS=0; LINE NUM=0
#line 1419 "regression-compile-tmp/comp412.imp"
STATS = 0;
#line 1419 "regression-compile-tmp/comp412.imp"
LINENUM = 0;
                                                                //   1420              LIST=LIST&1; DEC TYPE=0
#line 1420 "regression-compile-tmp/comp412.imp"
LIST = ((LIST) & (1));
#line 1420 "regression-compile-tmp/comp412.imp"
DECTYPE = 0;
                                                                //   1421              SELECTINPUT(PROG);             ! ONTO SOURCE PROGRAM
#line 1421 "regression-compile-tmp/comp412.imp"
_imp_SELECTINPUT(1);
                                                                //   1422              PERMIN = 0;                    ! SHOW NOT IN PERM
#line 1422 "regression-compile-tmp/comp412.imp"
PERMIN = 0;
                                                                //   1423              %RETURN
#line 1423 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1424           %FINISH
#line 1424 "regression-compile-tmp/comp412.imp"
L_016f:;
                                                                //   1425           ATOM POS = 0;  FLAG = SYM
#line 1425 "regression-compile-tmp/comp412.imp"
ATOMPOS = 0;
#line 1425 "regression-compile-tmp/comp412.imp"
FLAG = SYM;
                                                                //   1426           %IF LEVEL = 1 %AND X # EOP %AND FILE = 2 %START
#line 1426 "regression-compile-tmp/comp412.imp"
if (((LEVEL) != (1))) goto L_0170;
#line 1426 "regression-compile-tmp/comp412.imp"
if (((X) == (87))) goto L_0170;
#line 1426 "regression-compile-tmp/comp412.imp"
if (((FILE) != (2))) goto L_0170;
                                                                //   1427              DEC TYPE = EOP;  FAULT(5)
#line 1427 "regression-compile-tmp/comp412.imp"
DECTYPE = 87;
#line 1427 "regression-compile-tmp/comp412.imp"
FAULT(5);
                                                                //   1428           %FINISH
#line 1428 "regression-compile-tmp/comp412.imp"
L_0170:;
                                                                //   1429           LIM = T BASE
#line 1429 "regression-compile-tmp/comp412.imp"
LIM = TBASE;
                                                                //   1430           %IF X=EOP %OR X=EOF %START;       ! EOP
#line 1430 "regression-compile-tmp/comp412.imp"
if (((X) == (87))) goto L_0141;
#line 1430 "regression-compile-tmp/comp412.imp"
if (((X) != (86))) goto L_0171;
#line 1430 "regression-compile-tmp/comp412.imp"
L_0141:;
                                                                //   1431              X = X-EOF;    ! EOF -> 0,  EOP -> L1
#line 1431 "regression-compile-tmp/comp412.imp"
X = (((int)(X)) - (86));
                                                                //   1432              FAULT(5) %UNLESS X = LEVEL
#line 1432 "regression-compile-tmp/comp412.imp"
if (((X) == (LEVEL))) goto L_0172;
#line 1432 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1432 "regression-compile-tmp/comp412.imp"
L_0172:;
                                                                //   1433              PUT(';')
#line 1433 "regression-compile-tmp/comp412.imp"
PUT(59);
                                                                //   1434              %WHILE LEVEL > 1 %CYCLE
#line 1434 "regression-compile-tmp/comp412.imp"
L_0173:;
#line 1434 "regression-compile-tmp/comp412.imp"
if (((LEVEL) <= (1))) goto L_0174;
                                                                //   1435                 FAULT(9)
#line 1435 "regression-compile-tmp/comp412.imp"
FAULT(9);
                                                                //   1436                 LEVEL=LEVEL-1
#line 1436 "regression-compile-tmp/comp412.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //   1437              %REPEAT
#line 1437 "regression-compile-tmp/comp412.imp"
goto L_0173;
#line 1437 "regression-compile-tmp/comp412.imp"
L_0174:;
                                                                //   1438              LIM = GLOBAL;                  ! GIVE UNUSED FOR GLOBALS
#line 1438 "regression-compile-tmp/comp412.imp"
LIM = 0;
                                                                //   1439           %ELSE
#line 1439 "regression-compile-tmp/comp412.imp"
goto L_0176;
#line 1439 "regression-compile-tmp/comp412.imp"
L_0171:;
                                                                //   1440              FAULT(5) %IF LEVEL <= 1 %AND FILE = 2
#line 1440 "regression-compile-tmp/comp412.imp"
if (((LEVEL) > (1))) goto L_0177;
#line 1440 "regression-compile-tmp/comp412.imp"
if (((FILE) != (2))) goto L_0177;
#line 1440 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1440 "regression-compile-tmp/comp412.imp"
L_0177:;
                                                                //   1441              PUT(';')
#line 1441 "regression-compile-tmp/comp412.imp"
PUT(59);
                                                                //   1442           %FINISH
#line 1442 "regression-compile-tmp/comp412.imp"
L_0176:;
                                                                //   1443           %WHILE LABEL > OLD LABEL %CYCLE
#line 1443 "regression-compile-tmp/comp412.imp"
L_0178:;
#line 1443 "regression-compile-tmp/comp412.imp"
if (((LABEL) <= (OLDLABEL))) goto L_0179;
                                                                //   1444              L=LABINF(LABEL>>2)
#line 1444 "regression-compile-tmp/comp412.imp"
L = LABINF[(((int)((int)((((unsigned int)(LABEL)) >> (2))))) - (1))];
                                                                //   1445              %IF L&7=2 %THEN L=11 %ELSE L=14
#line 1445 "regression-compile-tmp/comp412.imp"
if (((((L) & (7))) != (2))) goto L_017b;
#line 1445 "regression-compile-tmp/comp412.imp"
L = 11;
#line 1445 "regression-compile-tmp/comp412.imp"
goto L_017c;
#line 1445 "regression-compile-tmp/comp412.imp"
L_017b:;
#line 1445 "regression-compile-tmp/comp412.imp"
L = 14;
#line 1445 "regression-compile-tmp/comp412.imp"
L_017c:;
                                                                //   1446              LABEL=LABEL-4
#line 1446 "regression-compile-tmp/comp412.imp"
LABEL = (((int)(LABEL)) - (4));
                                                                //   1447              FAULT(L)
#line 1447 "regression-compile-tmp/comp412.imp"
FAULT(L);
                                                                //   1448           %REPEAT
#line 1448 "regression-compile-tmp/comp412.imp"
goto L_0178;
#line 1448 "regression-compile-tmp/comp412.imp"
L_0179:;
                                                                //   1449           FAULT(17) %IF ACCESS # 0 %AND 8 <= BLOCKTYPE&15 <= 10
#line 1449 "regression-compile-tmp/comp412.imp"
if (((ACCESS) == (0))) goto L_017d;
#line 1449 "regression-compile-tmp/comp412.imp"
if ((((8) > (((BLOCKTYPE) & (15))))) || (((((BLOCKTYPE) & (15))) > (10)))) goto L_017d;
#line 1449 "regression-compile-tmp/comp412.imp"
FAULT(17);
#line 1449 "regression-compile-tmp/comp412.imp"
L_017d:;
                                                                //   1450           X=T MAX-1
#line 1450 "regression-compile-tmp/comp412.imp"
X = (((int)(TMAX)) - (1));
                                                                //   1451           %WHILE X > LIM %CYCLE
#line 1451 "regression-compile-tmp/comp412.imp"
L_017e:;
#line 1451 "regression-compile-tmp/comp412.imp"
if (((X) <= (LIM))) goto L_017f;
                                                                //   1452              T=DICT(X)
#line 1452 "regression-compile-tmp/comp412.imp"
T = DICT[X];
                                                                //   1453              %IF DICT(X-1)&128=0=LIST %AND T&X'400' = 0  %START
#line 1453 "regression-compile-tmp/comp412.imp"
if ((((((DICT[(((int)(X)) - (1))]) & (128))) != (0))) || (((0) != (LIST)))) goto L_0181;
#line 1453 "regression-compile-tmp/comp412.imp"
if (((((T) & (1024))) != (0))) goto L_0181;
                                                                //   1454                 %IF CONTROL&X'1000' = 0 %START
#line 1454 "regression-compile-tmp/comp412.imp"
if (((((CONTROL) & (4096))) != (0))) goto L_0182;
                                                                //   1455                    %IF FLAG # NL %START
#line 1455 "regression-compile-tmp/comp412.imp"
if (((FLAG) == (10))) goto L_0183;
                                                                //   1456                       MARGIN = MARGIN+POS
#line 1456 "regression-compile-tmp/comp412.imp"
MARGIN = (((int)(MARGIN)) + (POS));
                                                                //   1457                       NEWLINE
#line 1457 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1458                       FLAG = 0
#line 1458 "regression-compile-tmp/comp412.imp"
FLAG = 0;
                                                                //   1459                    %FINISH
#line 1459 "regression-compile-tmp/comp412.imp"
L_0183:;
                                                                //   1460                    PRINTSTRING("? ")
#line 1460 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("? "));
                                                                //   1461                    PRINT NAME(X)
#line 1461 "regression-compile-tmp/comp412.imp"
PRINTNAME(X);
                                                                //   1462                    PRINTSTRING(" UNUSED
#line 1462 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal(" UNUSED\n"));
                                                                //   1463  ")
                                                                //   1464                 %FINISH
#line 1464 "regression-compile-tmp/comp412.imp"
L_0182:;
                                                                //   1465              %FINISH
#line 1465 "regression-compile-tmp/comp412.imp"
L_0181:;
                                                                //   1466              FAULT(12) %IF T&X'400'#0
#line 1466 "regression-compile-tmp/comp412.imp"
if (((((T) & (1024))) == (0))) goto L_0184;
#line 1466 "regression-compile-tmp/comp412.imp"
FAULT(12);
#line 1466 "regression-compile-tmp/comp412.imp"
L_0184:;
                                                                //   1467              X=X-T&255-3
#line 1467 "regression-compile-tmp/comp412.imp"
X = (((int)(((X) - ((int)(((T) & (255))))))) - (3));
                                                                //   1468           %REPEAT
#line 1468 "regression-compile-tmp/comp412.imp"
goto L_017e;
#line 1468 "regression-compile-tmp/comp412.imp"
L_017f:;
                                                                //   1469           printsymbol(11)
#line 1469 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(11);
                                                                //   1470           SPACES(MARGIN+8) %IF FLAG = 0
#line 1470 "regression-compile-tmp/comp412.imp"
if (((FLAG) != (0))) goto L_0185;
#line 1470 "regression-compile-tmp/comp412.imp"
_imp_SPACES((((int)(MARGIN)) + (8)));
#line 1470 "regression-compile-tmp/comp412.imp"
L_0185:;
                                                                //   1471        %END
#line 1471 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CEND at level 4
                                                                //   1472        FAULT(24) %IF LABEL < 4 %OR LABEL > MAX LAB<<2
#line 1472 "regression-compile-tmp/comp412.imp"
if (((LABEL) < (4))) goto L_0180;
#line 1472 "regression-compile-tmp/comp412.imp"
if (((LABEL) <= (((80) << (2))))) goto L_0186;
#line 1472 "regression-compile-tmp/comp412.imp"
L_0180:;
#line 1472 "regression-compile-tmp/comp412.imp"
FAULT(24);
#line 1472 "regression-compile-tmp/comp412.imp"
L_0186:;
                                                                //   1473        %IF ACCESS = 0 %AND SSTYPE = 3 %AND 33 # LOC(-1)&255 # 34 %START
#line 1473 "regression-compile-tmp/comp412.imp"
if (((ACCESS) != (0))) goto L_0187;
#line 1473 "regression-compile-tmp/comp412.imp"
if (((SSTYPE) != (3))) goto L_0187;
#line 1473 "regression-compile-tmp/comp412.imp"
if ((((33) == (((LOC[299]) & (255))))) || (((((LOC[299]) & (255))) == (34)))) goto L_0187;
                                                                //   1474           FAULT(18) %IF CONTROL&X'1000' = 0;  ACCESS = 1
#line 1474 "regression-compile-tmp/comp412.imp"
if (((((CONTROL) & (4096))) != (0))) goto L_0188;
#line 1474 "regression-compile-tmp/comp412.imp"
FAULT(18);
#line 1474 "regression-compile-tmp/comp412.imp"
L_0188:;
#line 1474 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //   1475        %FINISH
#line 1475 "regression-compile-tmp/comp412.imp"
L_0187:;
                                                                //   1476        CONDS=0; DIM=0;  PRED PENDING = 0;  PRED OP = 0
#line 1476 "regression-compile-tmp/comp412.imp"
CONDS = 0;
#line 1476 "regression-compile-tmp/comp412.imp"
DIM = 0;
#line 1476 "regression-compile-tmp/comp412.imp"
PREDPENDING = 0;
#line 1476 "regression-compile-tmp/comp412.imp"
PREDOP = 0;
                                                                //   1477        STARTT=0;                            ! DEFAULT TO CYCLE
#line 1477 "regression-compile-tmp/comp412.imp"
STARTT = 0;
                                                                //   1478        PLAB=0; ULAB=0; LOOP LAB=0;  ELSE = 0;  EILAB = 0
#line 1478 "regression-compile-tmp/comp412.imp"
PLAB = 0;
#line 1478 "regression-compile-tmp/comp412.imp"
ULAB = 0;
#line 1478 "regression-compile-tmp/comp412.imp"
LOOPLAB = 0;
#line 1478 "regression-compile-tmp/comp412.imp"
ELSE = 0;
#line 1478 "regression-compile-tmp/comp412.imp"
EILAB = 0;
                                                                //   1479        LIT1=0; LIT2=0
#line 1479 "regression-compile-tmp/comp412.imp"
LIT1 = 0;
#line 1479 "regression-compile-tmp/comp412.imp"
LIT2 = 0;
                                                                //   1480        NEXT=SS; LINK=0
#line 1480 "regression-compile-tmp/comp412.imp"
NEXT = SS;
#line 1480 "regression-compile-tmp/comp412.imp"
LINK = 0;
                                                                //   1481        LIT=0
#line 1481 "regression-compile-tmp/comp412.imp"
LIT = 0;
                                                                //   1482        DCLASS = 0
#line 1482 "regression-compile-tmp/comp412.imp"
DCLASS = 0;
                                                                //   1483  TOP:   %CYCLE
#line 1483 "regression-compile-tmp/comp412.imp"
U_100d:;
#line 1483 "regression-compile-tmp/comp412.imp"
L_0189:;
                                                                //   1484           X=SUB(NEXT)
#line 1484 "regression-compile-tmp/comp412.imp"
X = SUB[((NEXT) + ((int)(300)))];
                                                                //   1485           %EXIT %UNLESS X < 0 %AND NEXT <= P
#line 1485 "regression-compile-tmp/comp412.imp"
if (((X) >= (0))) goto L_0175;
#line 1485 "regression-compile-tmp/comp412.imp"
if (((NEXT) <= (P))) goto L_018c;
#line 1485 "regression-compile-tmp/comp412.imp"
L_0175:;
#line 1485 "regression-compile-tmp/comp412.imp"
goto L_018a;
#line 1485 "regression-compile-tmp/comp412.imp"
L_018c:;
                                                                //   1486           %IF CO(NEXT)#0 %START
#line 1486 "regression-compile-tmp/comp412.imp"
if (((CO[((NEXT) + ((int)(300)))]) == (0))) goto L_018d;
                                                                //   1487              SUB(NEXT)=LINK; LINK=NEXT
#line 1487 "regression-compile-tmp/comp412.imp"
SUB[((NEXT) + ((int)(300)))] = LINK;
#line 1487 "regression-compile-tmp/comp412.imp"
LINK = NEXT;
                                                                //   1488           %FINISH
#line 1488 "regression-compile-tmp/comp412.imp"
L_018d:;
                                                                //   1489           NEXT=X
#line 1489 "regression-compile-tmp/comp412.imp"
NEXT = X;
                                                                //   1490        %REPEAT
#line 1490 "regression-compile-tmp/comp412.imp"
goto L_0189;
#line 1490 "regression-compile-tmp/comp412.imp"
L_018a:;
                                                                //   1491        CLASS=LOC(NEXT)&255
#line 1491 "regression-compile-tmp/comp412.imp"
CLASS = ((LOC[((NEXT) + ((int)(300)))]) & (255));
                                                                //   1492        %IF DIAG&2 # 0 %START
#line 1492 "regression-compile-tmp/comp412.imp"
if (((((DIAG) & (2))) == (0))) goto L_018e;
                                                                //   1493           PRINTSTRING("C =");  WRITE(CLASS, 3)
#line 1493 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("C ="));
#line 1493 "regression-compile-tmp/comp412.imp"
_imp_WRITE(CLASS, 3);
                                                                //   1494           PRINTSTRING("  X =");  WRITE(X, 3)
#line 1494 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("  X ="));
#line 1494 "regression-compile-tmp/comp412.imp"
_imp_WRITE(X, 3);
                                                                //   1495           PRINTSTRING("  NEXT =");  WRITE(NEXT, 3)
#line 1495 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("  NEXT ="));
#line 1495 "regression-compile-tmp/comp412.imp"
_imp_WRITE(NEXT, 3);
                                                                //   1496           NEWLINE
#line 1496 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1497        %FINISH
#line 1497 "regression-compile-tmp/comp412.imp"
L_018e:;
                                                                //   1498        NEXT=CO(NEXT)
#line 1498 "regression-compile-tmp/comp412.imp"
NEXT = CO[((NEXT) + ((int)(300)))];
                                                                //   1499        -> C(X) %IF CLASS < PRE1
#line 1499 "regression-compile-tmp/comp412.imp"
if (((CLASS) >= (49))) goto L_018f;
#line 1499 "regression-compile-tmp/comp412.imp"
sw3_C_idx = X; if ((1 <= sw3_C_idx) && (sw3_C_idx <= 130)) goto *(sw3_C-1)[sw3_C_idx];  /* Bounds=1:130 */ else {
   /*_imp_signal(8, 2, sw3_C_idx);*/
   fprintf(stderr, "%%SWITCH index C(%d) not in range 1:130 at %s:%d\n",
           sw3_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 1499 "regression-compile-tmp/comp412.imp"
L_018f:;
                                                                //   1500        -> CONT %IF CLASS=APPEP
#line 1500 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (153))) goto L_0190;
#line 1500 "regression-compile-tmp/comp412.imp"
goto U_100e;
#line 1500 "regression-compile-tmp/comp412.imp"
L_0190:;
                                                                //   1501        -> C(CLASS) %UNLESS CLASS=IDENT
#line 1501 "regression-compile-tmp/comp412.imp"
if (((CLASS) == (59))) goto L_0191;
#line 1501 "regression-compile-tmp/comp412.imp"
sw3_C_idx = CLASS; if ((1 <= sw3_C_idx) && (sw3_C_idx <= 130)) goto *(sw3_C-1)[sw3_C_idx];  /* Bounds=1:130 */ else {
   /*_imp_signal(8, 2, sw3_C_idx);*/
   fprintf(stderr, "%%SWITCH index C(%d) not in range 1:130 at %s:%d\n",
           sw3_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 1501 "regression-compile-tmp/comp412.imp"
L_0191:;
                                                                //   1502        -> D(DCLASS)
#line 1502 "regression-compile-tmp/comp412.imp"
sw4_D_idx = DCLASS; if ((50 <= sw4_D_idx) && (sw4_D_idx <= 57)) goto *(sw4_D-50)[sw4_D_idx];  /* Bounds=50:57 */ else {
   /*_imp_signal(8, 2, sw4_D_idx);*/
   fprintf(stderr, "%%SWITCH index D(%d) not in range 50:57 at %s:%d\n",
           sw4_D_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1503  ACONT: ACCESS = 0
#line 1503 "regression-compile-tmp/comp412.imp"
U_100f:;
#line 1503 "regression-compile-tmp/comp412.imp"
ACCESS = 0;
                                                                //   1504  C(112):                                     ! %AND (UI)
#line 1504 "regression-compile-tmp/comp412.imp"
sw3_C_112:;
                                                                //   1505  CONT:  %CYCLE
#line 1505 "regression-compile-tmp/comp412.imp"
U_100e:;
#line 1505 "regression-compile-tmp/comp412.imp"
L_0192:;
                                                                //   1506           ->TOP %IF NEXT#0
#line 1506 "regression-compile-tmp/comp412.imp"
if (((NEXT) == (0))) goto L_0195;
#line 1506 "regression-compile-tmp/comp412.imp"
goto U_100d;
#line 1506 "regression-compile-tmp/comp412.imp"
L_0195:;
                                                                //   1507           ->RETURN %IF LINK=0
#line 1507 "regression-compile-tmp/comp412.imp"
if (((LINK) != (0))) goto L_0196;
#line 1507 "regression-compile-tmp/comp412.imp"
goto U_1010;
#line 1507 "regression-compile-tmp/comp412.imp"
L_0196:;
                                                                //   1508           NEXT=CO(LINK); LINK=SUB(LINK)
#line 1508 "regression-compile-tmp/comp412.imp"
NEXT = CO[((LINK) + ((int)(300)))];
#line 1508 "regression-compile-tmp/comp412.imp"
LINK = SUB[((LINK) + ((int)(300)))];
                                                                //   1509        %REPEAT
#line 1509 "regression-compile-tmp/comp412.imp"
goto L_0192;
                                                                //   1510  C(9):                                       ! '\'
#line 1510 "regression-compile-tmp/comp412.imp"
sw3_C_9:;
                                                                //   1511        %IF CLASS = 45 %START;! LOGICAL NOT
#line 1511 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (45))) goto L_0193;
                                                                //   1512           LIT1=\LIT1 %AND LIT = LIT+1 %IF LIT=CODE
#line 1512 "regression-compile-tmp/comp412.imp"
if (((LIT) != (CODE))) goto L_0197;
#line 1512 "regression-compile-tmp/comp412.imp"
LIT1 = (~(LIT1));
#line 1512 "regression-compile-tmp/comp412.imp"
LIT = (((int)(LIT)) + (1));
#line 1512 "regression-compile-tmp/comp412.imp"
L_0197:;
                                                                //   1513        %ELSE
#line 1513 "regression-compile-tmp/comp412.imp"
goto L_0198;
#line 1513 "regression-compile-tmp/comp412.imp"
L_0193:;
                                                                //   1514           X = 10
#line 1514 "regression-compile-tmp/comp412.imp"
X = 10;
                                                                //   1515        %FINISH
#line 1515 "regression-compile-tmp/comp412.imp"
L_0198:;
                                                                //   1516  C(1):                                       ! '*'
#line 1516 "regression-compile-tmp/comp412.imp"
sw3_C_1:;
                                                                //   1517  C(2):                                       ! '/'
#line 1517 "regression-compile-tmp/comp412.imp"
sw3_C_2:;
                                                                //   1518  C(3):                                       ! '&'
#line 1518 "regression-compile-tmp/comp412.imp"
sw3_C_3:;
                                                                //   1519  C(4):                                       ! '!'
#line 1519 "regression-compile-tmp/comp412.imp"
sw3_C_4:;
                                                                //   1520  C(5):                                       ! '!!'
#line 1520 "regression-compile-tmp/comp412.imp"
sw3_C_5:;
                                                                //   1521  C(6):                                       ! '<<'
#line 1521 "regression-compile-tmp/comp412.imp"
sw3_C_6:;
                                                                //   1522  C(7):                                       ! '>>'
#line 1522 "regression-compile-tmp/comp412.imp"
sw3_C_7:;
                                                                //   1523  C(8):                                       ! '.'
#line 1523 "regression-compile-tmp/comp412.imp"
sw3_C_8:;
                                                                //   1524        PUT(OPCODE(X)); -> CONT
#line 1524 "regression-compile-tmp/comp412.imp"
PUT((OPCODE-1)[X]);
#line 1524 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1525  C(46):PUT('Q');  ->CONT;!    REAL DIVIDE
#line 1525 "regression-compile-tmp/comp412.imp"
sw3_C_46:;
#line 1525 "regression-compile-tmp/comp412.imp"
PUT(81);
#line 1525 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1526  C(10): PUT('M');  -> ACONT;                  ! %RESULT==
#line 1526 "regression-compile-tmp/comp412.imp"
sw3_C_10:;
#line 1526 "regression-compile-tmp/comp412.imp"
PUT(77);
#line 1526 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1527  C(11): PUT('+') %UNLESS CLASS=44;           ! UNARY PLUS
#line 1527 "regression-compile-tmp/comp412.imp"
sw3_C_11:;
#line 1527 "regression-compile-tmp/comp412.imp"
if (((CLASS) == (44))) goto L_0199;
#line 1527 "regression-compile-tmp/comp412.imp"
PUT(43);
#line 1527 "regression-compile-tmp/comp412.imp"
L_0199:;
                                                                //   1528        -> CONT
#line 1528 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1529  C(12): %IF CLASS#43 %THEN PUT('-') %ELSE %START
#line 1529 "regression-compile-tmp/comp412.imp"
sw3_C_12:;
#line 1529 "regression-compile-tmp/comp412.imp"
if (((CLASS) == (43))) goto L_019a;
#line 1529 "regression-compile-tmp/comp412.imp"
PUT(45);
#line 1529 "regression-compile-tmp/comp412.imp"
goto L_019b;
#line 1529 "regression-compile-tmp/comp412.imp"
L_019a:;
                                                                //   1530           LIT1=-LIT1 %AND LIT = LIT+1 %IF LIT=CODE
#line 1530 "regression-compile-tmp/comp412.imp"
if (((LIT) != (CODE))) goto L_019c;
#line 1530 "regression-compile-tmp/comp412.imp"
LIT1 = (-(LIT1));
#line 1530 "regression-compile-tmp/comp412.imp"
LIT = (((int)(LIT)) + (1));
#line 1530 "regression-compile-tmp/comp412.imp"
L_019c:;
                                                                //   1531           PUT('U')
#line 1531 "regression-compile-tmp/comp412.imp"
PUT(85);
                                                                //   1532        %FINISH
#line 1532 "regression-compile-tmp/comp412.imp"
L_019b:;
                                                                //   1533        -> CONT
#line 1533 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1534  C(13): PUT('X');  ->CONT;                   ! \\&
#line 1534 "regression-compile-tmp/comp412.imp"
sw3_C_13:;
#line 1534 "regression-compile-tmp/comp412.imp"
PUT(88);
#line 1534 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1535  C(14): PUT('Y'+32);  DIAG = LIT1;  -> CONT;    ! DIAG
#line 1535 "regression-compile-tmp/comp412.imp"
sw3_C_14:;
#line 1535 "regression-compile-tmp/comp412.imp"
PUT(121);
#line 1535 "regression-compile-tmp/comp412.imp"
DIAG = LIT1;
#line 1535 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1536  C(15): PUT('Z'+32);  CONTROL = LIT1;  -> CONT; ! CONTROL
#line 1536 "regression-compile-tmp/comp412.imp"
sw3_C_15:;
#line 1536 "regression-compile-tmp/comp412.imp"
PUT(122);
#line 1536 "regression-compile-tmp/comp412.imp"
CONTROL = LIT1;
#line 1536 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1537  C(16): PUT('V');  -> ACONT;                 ! %RESULT=
#line 1537 "regression-compile-tmp/comp412.imp"
sw3_C_16:;
#line 1537 "regression-compile-tmp/comp412.imp"
PUT(86);
#line 1537 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1538  C(17): %IF BLOCKTYPE # 7 %START
#line 1538 "regression-compile-tmp/comp412.imp"
sw3_C_17:;
#line 1538 "regression-compile-tmp/comp412.imp"
if (((BLOCKTYPE) == (7))) goto L_019d;
                                                                //   1539            FAULT(5) %UNLESS DIAG < 0 %AND BLOCKTYPE&15 = 8
#line 1539 "regression-compile-tmp/comp412.imp"
if (((DIAG) >= (0))) goto L_019e;
#line 1539 "regression-compile-tmp/comp412.imp"
if (((((BLOCKTYPE) & (15))) == (8))) goto L_019f;
#line 1539 "regression-compile-tmp/comp412.imp"
L_019e:;
#line 1539 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1539 "regression-compile-tmp/comp412.imp"
L_019f:;
                                                                //   1540         %FINISH
#line 1540 "regression-compile-tmp/comp412.imp"
L_019d:;
                                                                //   1541         PUT('R');  -> ACONT;                 ! RETURN
#line 1541 "regression-compile-tmp/comp412.imp"
PUT(82);
#line 1541 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1542  C(18): PUT('T');  -> PREDT;                 ! TRUE
#line 1542 "regression-compile-tmp/comp412.imp"
sw3_C_18:;
#line 1542 "regression-compile-tmp/comp412.imp"
PUT(84);
#line 1542 "regression-compile-tmp/comp412.imp"
goto U_1011;
                                                                //   1543  C(19): PUT('K');                            ! FALSE
#line 1543 "regression-compile-tmp/comp412.imp"
sw3_C_19:;
#line 1543 "regression-compile-tmp/comp412.imp"
PUT(75);
                                                                //   1544  PREDT: FAULT(5) %UNLESS BLOCKTYPE = 10
#line 1544 "regression-compile-tmp/comp412.imp"
U_1011:;
#line 1544 "regression-compile-tmp/comp412.imp"
if (((BLOCKTYPE) == (10))) goto L_01a0;
#line 1544 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1544 "regression-compile-tmp/comp412.imp"
L_01a0:;
                                                                //   1545         ->ACONT
#line 1545 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1546  C(20): PUT(101);  -> ACONT;                 ! %SIGNAL
#line 1546 "regression-compile-tmp/comp412.imp"
sw3_C_20:;
#line 1546 "regression-compile-tmp/comp412.imp"
PUT(101);
#line 1546 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1547  C(44):LIT2 = 0;                             ! %ON %EVENT
#line 1547 "regression-compile-tmp/comp412.imp"
sw3_C_44:;
#line 1547 "regression-compile-tmp/comp412.imp"
LIT2 = 0;
                                                                //   1548        FAULT(15) %IF INHIBIT&1 # 0
#line 1548 "regression-compile-tmp/comp412.imp"
if (((((INHIBIT) & (1))) == (0))) goto L_01a1;
#line 1548 "regression-compile-tmp/comp412.imp"
FAULT(15);
#line 1548 "regression-compile-tmp/comp412.imp"
L_01a1:;
                                                                //   1549        INHIBIT = INHIBIT!1
#line 1549 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //   1550        %CYCLE
#line 1550 "regression-compile-tmp/comp412.imp"
L_01a2:;
                                                                //   1551           %EXIT %IF NEXT = 0
#line 1551 "regression-compile-tmp/comp412.imp"
if (((NEXT) != (0))) goto L_01a5;
#line 1551 "regression-compile-tmp/comp412.imp"
goto L_01a3;
#line 1551 "regression-compile-tmp/comp412.imp"
L_01a5:;
                                                                //   1552           X = SUB(NEXT)
#line 1552 "regression-compile-tmp/comp412.imp"
X = SUB[((NEXT) + ((int)(300)))];
                                                                //   1553           %EXIT %IF (X < 0 %AND NEXT <= P) %OR LOC(NEXT)&255 # ICONST
#line 1553 "regression-compile-tmp/comp412.imp"
if (((X) >= (0))) goto L_01a6;
#line 1553 "regression-compile-tmp/comp412.imp"
if (((NEXT) <= (P))) goto L_01a7;
#line 1553 "regression-compile-tmp/comp412.imp"
L_01a6:;
#line 1553 "regression-compile-tmp/comp412.imp"
if (((((LOC[((NEXT) + ((int)(300)))]) & (255))) == (83))) goto L_01a8;
#line 1553 "regression-compile-tmp/comp412.imp"
L_01a7:;
#line 1553 "regression-compile-tmp/comp412.imp"
goto L_01a3;
#line 1553 "regression-compile-tmp/comp412.imp"
L_01a8:;
                                                                //   1554           NEXT = CO(NEXT)
#line 1554 "regression-compile-tmp/comp412.imp"
NEXT = CO[((NEXT) + ((int)(300)))];
                                                                //   1555           LIT1 = EVAL(X)
#line 1555 "regression-compile-tmp/comp412.imp"
LIT1 = EVAL(X);
                                                                //   1556           FAULT(16) %AND LIT1 = 0 %UNLESS 0 <= LIT1 <= 15
#line 1556 "regression-compile-tmp/comp412.imp"
if ((((0) > (LIT1))) || (((LIT1) <= (15)))) goto L_01aa;
#line 1556 "regression-compile-tmp/comp412.imp"
L_01a9:;
#line 1556 "regression-compile-tmp/comp412.imp"
FAULT(16);
#line 1556 "regression-compile-tmp/comp412.imp"
LIT1 = 0;
#line 1556 "regression-compile-tmp/comp412.imp"
L_01aa:;
                                                                //   1557           LIT2 = LIT2!(1<<LIT1)
#line 1557 "regression-compile-tmp/comp412.imp"
LIT2 = ((LIT2) | (((1) << (LIT1))));
                                                                //   1558        %REPEAT
#line 1558 "regression-compile-tmp/comp412.imp"
goto L_01a2;
#line 1558 "regression-compile-tmp/comp412.imp"
L_01a3:;
                                                                //   1559        FAULT(16) %IF LIT2 = 0
#line 1559 "regression-compile-tmp/comp412.imp"
if (((LIT2) != (0))) goto L_01ab;
#line 1559 "regression-compile-tmp/comp412.imp"
FAULT(16);
#line 1559 "regression-compile-tmp/comp412.imp"
L_01ab:;
                                                                //   1560        STARTT = 1+8
#line 1560 "regression-compile-tmp/comp412.imp"
STARTT = 9;
                                                                //   1561        OP(111, LIT2);  OP(',', LABEL)
#line 1561 "regression-compile-tmp/comp412.imp"
OP(111, LIT2);
#line 1561 "regression-compile-tmp/comp412.imp"
OP(44, LABEL);
                                                                //   1562        ->CONT
#line 1562 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1563  C(21): PUT('S'+32);  -> ACONT;                 ! %STOP
#line 1563 "regression-compile-tmp/comp412.imp"
sw3_C_21:;
#line 1563 "regression-compile-tmp/comp412.imp"
PUT(115);
#line 1563 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1564  C(22): LIST=LIST&2;  -> CONT;               ! %LIST
#line 1564 "regression-compile-tmp/comp412.imp"
sw3_C_22:;
#line 1564 "regression-compile-tmp/comp412.imp"
LIST = ((LIST) & (2));
#line 1564 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1565  C(23): LIST=LIST!1;  -> CONT;               ! %ENDOFLIST
#line 1565 "regression-compile-tmp/comp412.imp"
sw3_C_23:;
#line 1565 "regression-compile-tmp/comp412.imp"
LIST = ((LIST) | (1));
#line 1565 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1566  C(24): LREALS=16;  -> CONT;                 ! %REALSLONG
#line 1566 "regression-compile-tmp/comp412.imp"
sw3_C_24:;
#line 1566 "regression-compile-tmp/comp412.imp"
LREALS = 16;
#line 1566 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1567  C(25): LREALS=0;  -> CONT;                  ! %REALSNORMAL
#line 1567 "regression-compile-tmp/comp412.imp"
sw3_C_25:;
#line 1567 "regression-compile-tmp/comp412.imp"
LREALS = 0;
#line 1567 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1568  C(109):PUT('S');  -> CONT;                  ! 'EQ'
#line 1568 "regression-compile-tmp/comp412.imp"
sw3_C_109:;
#line 1568 "regression-compile-tmp/comp412.imp"
PUT(83);
#line 1568 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1569  C(45): PUT('Z');  -> CONT;                  ! EQEQ
#line 1569 "regression-compile-tmp/comp412.imp"
sw3_C_45:;
#line 1569 "regression-compile-tmp/comp412.imp"
PUT(90);
#line 1569 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1570  C(26):                                      ! EXIT
#line 1570 "regression-compile-tmp/comp412.imp"
sw3_C_26:;
                                                                //   1571  C(27):                                      ! CONTINUE
#line 1571 "regression-compile-tmp/comp412.imp"
sw3_C_27:;
                                                                //   1572        L=LABEL
#line 1572 "regression-compile-tmp/comp412.imp"
L = LABEL;
                                                                //   1573        %WHILE L > OLD LABEL %CYCLE
#line 1573 "regression-compile-tmp/comp412.imp"
L_01ac:;
#line 1573 "regression-compile-tmp/comp412.imp"
if (((L) <= (OLDLABEL))) goto L_01ad;
                                                                //   1574           %IF LABINF(L>>2)&7=2 %START;! CYCLE FOUND
#line 1574 "regression-compile-tmp/comp412.imp"
if (((((LABINF[(((int)((int)((((unsigned int)(L)) >> (2))))) - (1))]) & (7))) != (2))) goto L_01af;
                                                                //   1575              %IF X = 26 %START
#line 1575 "regression-compile-tmp/comp412.imp"
if (((X) != (26))) goto L_01b0;
                                                                //   1576                 MM == LABINF(L>>2)
#line 1576 "regression-compile-tmp/comp412.imp"
MM = &LABINF[(((int)((int)((((unsigned int)(L)) >> (2))))) - (1))];
                                                                //   1577                 MM = MM!8
#line 1577 "regression-compile-tmp/comp412.imp"
*MM = ((*MM) | (8));
                                                                //   1578                 L = L-2;  X = 'F'
#line 1578 "regression-compile-tmp/comp412.imp"
L = (((int)(L)) - (2));
#line 1578 "regression-compile-tmp/comp412.imp"
X = 70;
                                                                //   1579              %ELSE
#line 1579 "regression-compile-tmp/comp412.imp"
goto L_01b1;
#line 1579 "regression-compile-tmp/comp412.imp"
L_01b0:;
                                                                //   1580                 X = 113
#line 1580 "regression-compile-tmp/comp412.imp"
X = 113;
                                                                //   1581              %FINISH
#line 1581 "regression-compile-tmp/comp412.imp"
L_01b1:;
                                                                //   1582              OP(X,L-2)
#line 1582 "regression-compile-tmp/comp412.imp"
OP(X, (((int)(L)) - (2)));
                                                                //   1583              -> ACONT
#line 1583 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1584           %FINISH
#line 1584 "regression-compile-tmp/comp412.imp"
L_01af:;
                                                                //   1585           L=L-4
#line 1585 "regression-compile-tmp/comp412.imp"
L = (((int)(L)) - (4));
                                                                //   1586        %REPEAT
#line 1586 "regression-compile-tmp/comp412.imp"
goto L_01ac;
#line 1586 "regression-compile-tmp/comp412.imp"
L_01ad:;
                                                                //   1587        FAULT(10);  ->CONT
#line 1587 "regression-compile-tmp/comp412.imp"
FAULT(10);
#line 1587 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1588  C(31): ULAB=LABEL+3;  OP(117,ULAB);         ! UNTIL
#line 1588 "regression-compile-tmp/comp412.imp"
sw3_C_31:;
#line 1588 "regression-compile-tmp/comp412.imp"
ULAB = (((int)(LABEL)) + (3));
#line 1588 "regression-compile-tmp/comp412.imp"
OP(117, ULAB);
                                                                //   1589  C(30): LOOP LAB=LABEL+2;  DEF LAB(LOOP LAB);! WHILE
#line 1589 "regression-compile-tmp/comp412.imp"
sw3_C_30:;
#line 1589 "regression-compile-tmp/comp412.imp"
LOOPLAB = (((int)(LABEL)) + (2));
#line 1589 "regression-compile-tmp/comp412.imp"
DEFLAB(LOOPLAB);
                                                                //   1590  C(28):                                      ! IF
#line 1590 "regression-compile-tmp/comp412.imp"
sw3_C_28:;
                                                                //   1591  C(29):                                      ! UNLESS
#line 1591 "regression-compile-tmp/comp412.imp"
sw3_C_29:;
                                                                //   1592        EILAB = PLAB %IF ELSE # 0
#line 1592 "regression-compile-tmp/comp412.imp"
if (((ELSE) == (0))) goto L_01b2;
#line 1592 "regression-compile-tmp/comp412.imp"
EILAB = PLAB;
#line 1592 "regression-compile-tmp/comp412.imp"
L_01b2:;
                                                                //   1593        INHIBIT = INHIBIT!1
#line 1593 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //   1594        CONDS=1; DOUBLE=0
#line 1594 "regression-compile-tmp/comp412.imp"
CONDS = 1;
#line 1594 "regression-compile-tmp/comp412.imp"
DOUBLE = 0;
                                                                //   1595        STARTT=(X-26)>>1+8
#line 1595 "regression-compile-tmp/comp412.imp"
STARTT = (((int)((((((((int)(X)) - (26)))) >> (1))))) + (8));
                                                                //   1596        GLOBAL NOT=0; C LAST=1
#line 1596 "regression-compile-tmp/comp412.imp"
GLOBALNOT = 0;
#line 1596 "regression-compile-tmp/comp412.imp"
CLAST = 1;
                                                                //   1597        CMOD=0; CLEVEL=1; OPS=1
#line 1597 "regression-compile-tmp/comp412.imp"
CMOD = 0;
#line 1597 "regression-compile-tmp/comp412.imp"
CLEVEL = 1;
#line 1597 "regression-compile-tmp/comp412.imp"
OPS = 1;
                                                                //   1598        LOCAL NOT=X&1; P LAB=LABEL
#line 1598 "regression-compile-tmp/comp412.imp"
LOCALNOT = ((X) & (1));
#line 1598 "regression-compile-tmp/comp412.imp"
PLAB = LABEL;
                                                                //   1599        CNEST(0)=P LAB; CNEST(1)=P LAB
#line 1599 "regression-compile-tmp/comp412.imp"
CNEST[0] = PLAB;
#line 1599 "regression-compile-tmp/comp412.imp"
CNEST[1] = PLAB;
                                                                //   1600        -> CONT
#line 1600 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1601  C(32): LOCAL NOT=LOCAL NOT!!1;  -> CONT;    ! %NOT
#line 1601 "regression-compile-tmp/comp412.imp"
sw3_C_32:;
#line 1601 "regression-compile-tmp/comp412.imp"
LOCALNOT = ((LOCALNOT) ^ (1));
#line 1601 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1602  C(79):
#line 1602 "regression-compile-tmp/comp412.imp"
sw3_C_79:;
                                                                //   1603        CALL;                                ! P
#line 1603 "regression-compile-tmp/comp412.imp"
CALL();
                                                                //   1604        PRED OP = 4
#line 1604 "regression-compile-tmp/comp412.imp"
PREDOP = 4;
                                                                //   1605        ->PAC %IF CALL PENDING = 0
#line 1605 "regression-compile-tmp/comp412.imp"
if (((CALLPENDING) != (0))) goto L_01b3;
#line 1605 "regression-compile-tmp/comp412.imp"
goto U_1012;
#line 1605 "regression-compile-tmp/comp412.imp"
L_01b3:;
                                                                //   1606        PRED PENDING = PRED PENDING!2
#line 1606 "regression-compile-tmp/comp412.imp"
PREDPENDING = ((PREDPENDING) | (2));
                                                                //   1607        ->CONT
#line 1607 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1608  C(108): PUT('C');                           ! ACOMP
#line 1608 "regression-compile-tmp/comp412.imp"
sw3_C_108:;
#line 1608 "regression-compile-tmp/comp412.imp"
PUT(67);
                                                                //   1609  PAC:   X=35;                                ! '='
#line 1609 "regression-compile-tmp/comp412.imp"
U_1012:;
#line 1609 "regression-compile-tmp/comp412.imp"
X = 35;
                                                                //   1610        CONDS = CONDS-1
#line 1610 "regression-compile-tmp/comp412.imp"
CONDS = (((int)(CONDS)) - (1));
                                                                //   1611        -> COP
#line 1611 "regression-compile-tmp/comp412.imp"
goto U_1013;
                                                                //   1612  C(33):                                      ! <
#line 1612 "regression-compile-tmp/comp412.imp"
sw3_C_33:;
                                                                //   1613  C(34):                                      ! >
#line 1613 "regression-compile-tmp/comp412.imp"
sw3_C_34:;
                                                                //   1614  C(35):                                      ! =
#line 1614 "regression-compile-tmp/comp412.imp"
sw3_C_35:;
                                                                //   1615  C(36):                                      ! #
#line 1615 "regression-compile-tmp/comp412.imp"
sw3_C_36:;
                                                                //   1616  C(37):                                      ! <=
#line 1616 "regression-compile-tmp/comp412.imp"
sw3_C_37:;
                                                                //   1617  C(38):                                      ! >=
#line 1617 "regression-compile-tmp/comp412.imp"
sw3_C_38:;
                                                                //   1618        CONDS=CONDS-1
#line 1618 "regression-compile-tmp/comp412.imp"
CONDS = (((int)(CONDS)) - (1));
                                                                //   1619        %IF NEXT#0    %START;                ! DOUBLE SIDED
#line 1619 "regression-compile-tmp/comp412.imp"
if (((NEXT) == (0))) goto L_01b4;
                                                                //   1620           PUT(126);                         ! SHOW DOUBLE SIDED
#line 1620 "regression-compile-tmp/comp412.imp"
PUT(126);
                                                                //   1621           DOUBLE=1;  BIT=1;                 ! PSEUDO %AND
#line 1621 "regression-compile-tmp/comp412.imp"
DOUBLE = 1;
#line 1621 "regression-compile-tmp/comp412.imp"
BIT = 1;
                                                                //   1622           -> ANDOP
#line 1622 "regression-compile-tmp/comp412.imp"
goto U_1014;
                                                                //   1623        %FINISH
#line 1623 "regression-compile-tmp/comp412.imp"
L_01b4:;
                                                                //   1624        %IF DOUBLE # 0 %START
#line 1624 "regression-compile-tmp/comp412.imp"
if (((DOUBLE) == (0))) goto L_01b5;
                                                                //   1625           DOUBLE = 0;  X = RCOMP(X)
#line 1625 "regression-compile-tmp/comp412.imp"
DOUBLE = 0;
#line 1625 "regression-compile-tmp/comp412.imp"
X = (RCOMP-33)[X];
                                                                //   1626        %FINISH
#line 1626 "regression-compile-tmp/comp412.imp"
L_01b5:;
                                                                //   1627        PUT('?')
#line 1627 "regression-compile-tmp/comp412.imp"
PUT(63);
                                                                //   1628  COP:  LOCAL NOT=(LOCAL NOT!!GLOBAL NOT)&1
#line 1628 "regression-compile-tmp/comp412.imp"
U_1013:;
#line 1628 "regression-compile-tmp/comp412.imp"
LOCALNOT = ((((LOCALNOT) ^ (GLOBALNOT))) & (1));
                                                                //   1629        X=X!!7 %IF LOCAL NOT#0
#line 1629 "regression-compile-tmp/comp412.imp"
if (((LOCALNOT) == (0))) goto L_01b6;
#line 1629 "regression-compile-tmp/comp412.imp"
X = ((X) ^ (7));
#line 1629 "regression-compile-tmp/comp412.imp"
L_01b6:;
                                                                //   1630        %IF CLAST#0 %START
#line 1630 "regression-compile-tmp/comp412.imp"
if (((CLAST) == (0))) goto L_01b7;
                                                                //   1631           X=X!!7 %IF OPS&1#0
#line 1631 "regression-compile-tmp/comp412.imp"
if (((((OPS) & (1))) == (0))) goto L_01b8;
#line 1631 "regression-compile-tmp/comp412.imp"
X = ((X) ^ (7));
#line 1631 "regression-compile-tmp/comp412.imp"
L_01b8:;
                                                                //   1632           OP(COMP(X+PRED OP),CNEST(CLEVEL))
#line 1632 "regression-compile-tmp/comp412.imp"
OP((COMP-33)[(((int)(X)) + (PREDOP))], CNEST[CLEVEL]);
                                                                //   1633        %ELSE
#line 1633 "regression-compile-tmp/comp412.imp"
goto L_01b9;
#line 1633 "regression-compile-tmp/comp412.imp"
L_01b7:;
                                                                //   1634           %WHILE CMOD&1#0 %CYCLE
#line 1634 "regression-compile-tmp/comp412.imp"
L_01ba:;
#line 1634 "regression-compile-tmp/comp412.imp"
if (((((CMOD) & (1))) == (0))) goto L_01bb;
                                                                //   1635              CMOD=CMOD>>1; OPS=OPS>>1
#line 1635 "regression-compile-tmp/comp412.imp"
CMOD = (int)((((unsigned int)(CMOD)) >> (1)));
#line 1635 "regression-compile-tmp/comp412.imp"
OPS = (int)((((unsigned int)(OPS)) >> (1)));
                                                                //   1636              CLEVEL=CLEVEL-1
#line 1636 "regression-compile-tmp/comp412.imp"
CLEVEL = (((int)(CLEVEL)) - (1));
                                                                //   1637              GLOBAL NOT=GLOBAL NOT>>1
#line 1637 "regression-compile-tmp/comp412.imp"
GLOBALNOT = (int)((((unsigned int)(GLOBALNOT)) >> (1)));
                                                                //   1638           %REPEAT
#line 1638 "regression-compile-tmp/comp412.imp"
goto L_01ba;
#line 1638 "regression-compile-tmp/comp412.imp"
L_01bb:;
                                                                //   1639           CMOD=CMOD>>1; OPS=OPS>>1; CLEVEL=CLEVEL-1
#line 1639 "regression-compile-tmp/comp412.imp"
CMOD = (int)((((unsigned int)(CMOD)) >> (1)));
#line 1639 "regression-compile-tmp/comp412.imp"
OPS = (int)((((unsigned int)(OPS)) >> (1)));
#line 1639 "regression-compile-tmp/comp412.imp"
CLEVEL = (((int)(CLEVEL)) - (1));
                                                                //   1640           GLOBAL NOT=GLOBAL NOT>>1
#line 1640 "regression-compile-tmp/comp412.imp"
GLOBALNOT = (int)((((unsigned int)(GLOBALNOT)) >> (1)));
                                                                //   1641           X=X!!7 %IF OPS&1#0
#line 1641 "regression-compile-tmp/comp412.imp"
if (((((OPS) & (1))) == (0))) goto L_01bd;
#line 1641 "regression-compile-tmp/comp412.imp"
X = ((X) ^ (7));
#line 1641 "regression-compile-tmp/comp412.imp"
L_01bd:;
                                                                //   1642           OP(COMP(X+PRED OP),CNEST(CLEVEL))
#line 1642 "regression-compile-tmp/comp412.imp"
OP((COMP-33)[(((int)(X)) + (PREDOP))], CNEST[CLEVEL]);
                                                                //   1643           DEF LAB(LABEL) %UNLESS LABEL=CNEST(CLEVEL)
#line 1643 "regression-compile-tmp/comp412.imp"
if (((LABEL) == (CNEST[CLEVEL]))) goto L_01be;
#line 1643 "regression-compile-tmp/comp412.imp"
DEFLAB(LABEL);
#line 1643 "regression-compile-tmp/comp412.imp"
L_01be:;
                                                                //   1644           LABEL=CNEST(CLEVEL)
#line 1644 "regression-compile-tmp/comp412.imp"
LABEL = CNEST[CLEVEL];
                                                                //   1645        %FINISH
#line 1645 "regression-compile-tmp/comp412.imp"
L_01b9:;
                                                                //   1646        CLAST=0; LOCAL NOT=0;  PRED OP = 0
#line 1646 "regression-compile-tmp/comp412.imp"
CLAST = 0;
#line 1646 "regression-compile-tmp/comp412.imp"
LOCALNOT = 0;
#line 1646 "regression-compile-tmp/comp412.imp"
PREDOP = 0;
                                                                //   1647        DEF LAB(ULAB) %IF CONDS <= 0 %AND ULAB#0
#line 1647 "regression-compile-tmp/comp412.imp"
if (((CONDS) > (0))) goto L_01bf;
#line 1647 "regression-compile-tmp/comp412.imp"
if (((ULAB) == (0))) goto L_01bf;
#line 1647 "regression-compile-tmp/comp412.imp"
DEFLAB(ULAB);
#line 1647 "regression-compile-tmp/comp412.imp"
L_01bf:;
                                                                //   1648        PUT('"') %IF DOUBLE # 0
#line 1648 "regression-compile-tmp/comp412.imp"
if (((DOUBLE) == (0))) goto L_01c0;
#line 1648 "regression-compile-tmp/comp412.imp"
PUT(34);
#line 1648 "regression-compile-tmp/comp412.imp"
L_01c0:;
                                                                //   1649        -> CONT
#line 1649 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1650  C(39):                                      ! AND
#line 1650 "regression-compile-tmp/comp412.imp"
sw3_C_39:;
                                                                //   1651  C(40):                                      ! OR
#line 1651 "regression-compile-tmp/comp412.imp"
sw3_C_40:;
                                                                //   1652        BIT=X&1;                             ! 1=AND, 0=OR
#line 1652 "regression-compile-tmp/comp412.imp"
BIT = ((X) & (1));
                                                                //   1653  ANDOP: CONDS=CONDS+1
#line 1653 "regression-compile-tmp/comp412.imp"
U_1014:;
#line 1653 "regression-compile-tmp/comp412.imp"
CONDS = (((int)(CONDS)) + (1));
                                                                //   1654        LOCAL NOT=(LOCAL NOT!!GLOBAL NOT)&1
#line 1654 "regression-compile-tmp/comp412.imp"
LOCALNOT = ((((LOCALNOT) ^ (GLOBALNOT))) & (1));
                                                                //   1655        BIT=BIT!!LOCAL NOT
#line 1655 "regression-compile-tmp/comp412.imp"
BIT = ((BIT) ^ (LOCALNOT));
                                                                //   1656        %IF BIT=OPS&1 %START
#line 1656 "regression-compile-tmp/comp412.imp"
if (((BIT) != (((OPS) & (1))))) goto L_01c1;
                                                                //   1657           %IF CLAST#0 %START
#line 1657 "regression-compile-tmp/comp412.imp"
if (((CLAST) == (0))) goto L_01c2;
                                                                //   1658              CMOD=CMOD<<1
#line 1658 "regression-compile-tmp/comp412.imp"
CMOD = ((CMOD) << (1));
                                                                //   1659              CNEST(CLEVEL+1)=CNEST(CLEVEL)
#line 1659 "regression-compile-tmp/comp412.imp"
CNEST[(((int)(CLEVEL)) + (1))] = CNEST[CLEVEL];
                                                                //   1660              CLEVEL=CLEVEL+1
#line 1660 "regression-compile-tmp/comp412.imp"
CLEVEL = (((int)(CLEVEL)) + (1));
                                                                //   1661              OPS=OPS<<1!BIT
#line 1661 "regression-compile-tmp/comp412.imp"
OPS = ((((OPS) << (1))) | (BIT));
                                                                //   1662              GLOBAL NOT=GLOBAL NOT<<1!LOCAL NOT
#line 1662 "regression-compile-tmp/comp412.imp"
GLOBALNOT = ((((GLOBALNOT) << (1))) | (LOCALNOT));
                                                                //   1663           %FINISH
#line 1663 "regression-compile-tmp/comp412.imp"
L_01c2:;
                                                                //   1664        %ELSE
#line 1664 "regression-compile-tmp/comp412.imp"
goto L_01c3;
#line 1664 "regression-compile-tmp/comp412.imp"
L_01c1:;
                                                                //   1665           CMOD=CMOD<<1
#line 1665 "regression-compile-tmp/comp412.imp"
CMOD = ((CMOD) << (1));
                                                                //   1666           %IF CLAST#0 %START
#line 1666 "regression-compile-tmp/comp412.imp"
if (((CLAST) == (0))) goto L_01c4;
                                                                //   1667              LABEL=LABEL+4
#line 1667 "regression-compile-tmp/comp412.imp"
LABEL = (((int)(LABEL)) + (4));
                                                                //   1668              CLEVEL=CLEVEL+1; CNEST(CLEVEL)=LABEL
#line 1668 "regression-compile-tmp/comp412.imp"
CLEVEL = (((int)(CLEVEL)) + (1));
#line 1668 "regression-compile-tmp/comp412.imp"
CNEST[CLEVEL] = LABEL;
                                                                //   1669           %ELSE
#line 1669 "regression-compile-tmp/comp412.imp"
goto L_01c5;
#line 1669 "regression-compile-tmp/comp412.imp"
L_01c4:;
                                                                //   1670              CMOD=CMOD!1
#line 1670 "regression-compile-tmp/comp412.imp"
CMOD = ((CMOD) | (1));
                                                                //   1671              %IF OPS>>1&1 = BIT %START
#line 1671 "regression-compile-tmp/comp412.imp"
if ((((((int)((((unsigned int)(OPS)) >> (1)))) & (1))) != (BIT))) goto L_01c6;
                                                                //   1672                 L = CNEST(CLEVEL-1)
#line 1672 "regression-compile-tmp/comp412.imp"
L = CNEST[(((int)(CLEVEL)) - (1))];
                                                                //   1673              %ELSE
#line 1673 "regression-compile-tmp/comp412.imp"
goto L_01c7;
#line 1673 "regression-compile-tmp/comp412.imp"
L_01c6:;
                                                                //   1674                 LABEL=LABEL+4; L=LABEL
#line 1674 "regression-compile-tmp/comp412.imp"
LABEL = (((int)(LABEL)) + (4));
#line 1674 "regression-compile-tmp/comp412.imp"
L = LABEL;
                                                                //   1675              %FINISH
#line 1675 "regression-compile-tmp/comp412.imp"
L_01c7:;
                                                                //   1676              CLEVEL=CLEVEL+1; CNEST(CLEVEL)=L
#line 1676 "regression-compile-tmp/comp412.imp"
CLEVEL = (((int)(CLEVEL)) + (1));
#line 1676 "regression-compile-tmp/comp412.imp"
CNEST[CLEVEL] = L;
                                                                //   1677           %FINISH
#line 1677 "regression-compile-tmp/comp412.imp"
L_01c5:;
                                                                //   1678           OPS=OPS<<1!BIT
#line 1678 "regression-compile-tmp/comp412.imp"
OPS = ((((OPS) << (1))) | (BIT));
                                                                //   1679           GLOBAL NOT=GLOBAL NOT<<1!LOCAL NOT
#line 1679 "regression-compile-tmp/comp412.imp"
GLOBALNOT = ((((GLOBALNOT) << (1))) | (LOCALNOT));
                                                                //   1680        %FINISH
#line 1680 "regression-compile-tmp/comp412.imp"
L_01c3:;
                                                                //   1681        CLAST=1; LOCAL NOT=0
#line 1681 "regression-compile-tmp/comp412.imp"
CLAST = 1;
#line 1681 "regression-compile-tmp/comp412.imp"
LOCALNOT = 0;
                                                                //   1682        -> CONT %IF DOUBLE=0
#line 1682 "regression-compile-tmp/comp412.imp"
if (((DOUBLE) != (0))) goto L_01c8;
#line 1682 "regression-compile-tmp/comp412.imp"
goto U_100e;
#line 1682 "regression-compile-tmp/comp412.imp"
L_01c8:;
                                                                //   1683        -> COP;                              ! REJOIN CONDITIONS
#line 1683 "regression-compile-tmp/comp412.imp"
goto U_1013;
                                                                //   1684  C(119):                                     ! STARTT
#line 1684 "regression-compile-tmp/comp412.imp"
sw3_C_119:;
                                                                //   1685        STARTT = 2 %AND DEF LAB(LABEL+2) %IF STARTT = 0
#line 1685 "regression-compile-tmp/comp412.imp"
if (((STARTT) != (0))) goto L_01c9;
#line 1685 "regression-compile-tmp/comp412.imp"
STARTT = 2;
#line 1685 "regression-compile-tmp/comp412.imp"
DEFLAB((((int)(LABEL)) + (2)));
#line 1685 "regression-compile-tmp/comp412.imp"
L_01c9:;
                                                                //   1686        LABEL = LABEL+4
#line 1686 "regression-compile-tmp/comp412.imp"
LABEL = (((int)(LABEL)) + (4));
                                                                //   1687        FAULT(23) %IF LABEL>>2 > MAX LAB
#line 1687 "regression-compile-tmp/comp412.imp"
if ((((int)((((unsigned int)(LABEL)) >> (2)))) <= (80))) goto L_01ca;
#line 1687 "regression-compile-tmp/comp412.imp"
FAULT(23);
#line 1687 "regression-compile-tmp/comp412.imp"
L_01ca:;
                                                                //   1688        LABINF(LABEL>>2) = STARTT+ELSE
#line 1688 "regression-compile-tmp/comp412.imp"
LABINF[(((int)((int)((((unsigned int)(LABEL)) >> (2))))) - (1))] = (((int)(STARTT)) + (ELSE));
                                                                //   1689        LOOP LAB = 0;  P LAB = 0;            ! LABEL NO LONGER PENDING
#line 1689 "regression-compile-tmp/comp412.imp"
LOOPLAB = 0;
#line 1689 "regression-compile-tmp/comp412.imp"
PLAB = 0;
                                                                //   1690        ELSE = 0;  EILAB = 0
#line 1690 "regression-compile-tmp/comp412.imp"
ELSE = 0;
#line 1690 "regression-compile-tmp/comp412.imp"
EILAB = 0;
                                                                //   1691        ->CONT
#line 1691 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1692  C(41): OP('B',LABEL-2);                     ! REPEAT
#line 1692 "regression-compile-tmp/comp412.imp"
sw3_C_41:;
#line 1692 "regression-compile-tmp/comp412.imp"
OP(66, (((int)(LABEL)) - (2)));
                                                                //   1693        ACCESS = 0
#line 1693 "regression-compile-tmp/comp412.imp"
ACCESS = 0;
                                                                //   1694  C(42): POP LAB(X&1);  ->CONT;               ! FINISH
#line 1694 "regression-compile-tmp/comp412.imp"
sw3_C_42:;
#line 1694 "regression-compile-tmp/comp412.imp"
POPLAB(((X) & (1)));
#line 1694 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1695  C(43):                                      ! ELSE
#line 1695 "regression-compile-tmp/comp412.imp"
sw3_C_43:;
                                                                //   1696        POP LAB(0) %IF P LAB = 0;            ! (FINISH) ELSE ...
#line 1696 "regression-compile-tmp/comp412.imp"
if (((PLAB) != (0))) goto L_01cb;
#line 1696 "regression-compile-tmp/comp412.imp"
POPLAB(0);
#line 1696 "regression-compile-tmp/comp412.imp"
L_01cb:;
                                                                //   1697        FAULT(5) %AND -> RETURN %IF PLAB&1#0
#line 1697 "regression-compile-tmp/comp412.imp"
if (((((PLAB) & (1))) == (0))) goto L_01cc;
#line 1697 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1697 "regression-compile-tmp/comp412.imp"
goto U_1010;
#line 1697 "regression-compile-tmp/comp412.imp"
L_01cc:;
                                                                //   1698        OP('F',PLAB+1) %UNLESS ACCESS = 0
#line 1698 "regression-compile-tmp/comp412.imp"
if (((ACCESS) == (0))) goto L_01cd;
#line 1698 "regression-compile-tmp/comp412.imp"
OP(70, (((int)(PLAB)) + (1)));
#line 1698 "regression-compile-tmp/comp412.imp"
L_01cd:;
                                                                //   1699        DEF LAB(PLAB)
#line 1699 "regression-compile-tmp/comp412.imp"
DEFLAB(PLAB);
                                                                //   1700        PLAB=PLAB+1
#line 1700 "regression-compile-tmp/comp412.imp"
PLAB = (((int)(PLAB)) + (1));
                                                                //   1701        STARTT=3+8;                          ! SHOW ELSE
#line 1701 "regression-compile-tmp/comp412.imp"
STARTT = 11;
                                                                //   1702        ELSE = 4
#line 1702 "regression-compile-tmp/comp412.imp"
ELSE = 4;
                                                                //   1703        -> CONT
#line 1703 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1704  C(54): OWN DEF=0;  OUT=0;                   ! OWNVTYPE
#line 1704 "regression-compile-tmp/comp412.imp"
sw3_C_54:;
#line 1704 "regression-compile-tmp/comp412.imp"
OWNDEF = 0;
#line 1704 "regression-compile-tmp/comp412.imp"
OUT = 0;
                                                                //   1705  C(51):                                      ! ATYPE
#line 1705 "regression-compile-tmp/comp412.imp"
sw3_C_51:;
                                                                //   1706  C(52):                                      ! OWN ATYPE
#line 1706 "regression-compile-tmp/comp412.imp"
sw3_C_52:;
                                                                //   1707  C(53):                                      ! VTYPE
#line 1707 "regression-compile-tmp/comp412.imp"
sw3_C_53:;
                                                                //   1708  C(56):                                      ! TYPE
#line 1708 "regression-compile-tmp/comp412.imp"
sw3_C_56:;
                                                                //   1709        FAULT(15) %IF INHIBIT&1 # 0 %AND SPEC > 0
#line 1709 "regression-compile-tmp/comp412.imp"
if (((((INHIBIT) & (1))) == (0))) goto L_01ce;
#line 1709 "regression-compile-tmp/comp412.imp"
if (((SPEC) <= (0))) goto L_01ce;
#line 1709 "regression-compile-tmp/comp412.imp"
FAULT(15);
#line 1709 "regression-compile-tmp/comp412.imp"
L_01ce:;
                                                                //   1710  C(50):                                      ! RTYPE
#line 1710 "regression-compile-tmp/comp412.imp"
sw3_C_50:;
                                                                //   1711  C(57):                                      ! SWITCH
#line 1711 "regression-compile-tmp/comp412.imp"
sw3_C_57:;
                                                                //   1712        DCLASS=CLASS; -> CONT
#line 1712 "regression-compile-tmp/comp412.imp"
DCLASS = CLASS;
#line 1712 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1713  C(60):                                      ! VSET
#line 1713 "regression-compile-tmp/comp412.imp"
sw3_C_60:;
                                                                //   1714  C(61):                                      ! NSET
#line 1714 "regression-compile-tmp/comp412.imp"
sw3_C_61:;
                                                                //   1715  C(67):                                      ! V
#line 1715 "regression-compile-tmp/comp412.imp"
sw3_C_67:;
                                                                //   1716  C(68):                                      ! N
#line 1716 "regression-compile-tmp/comp412.imp"
sw3_C_68:;
                                                                //   1717  C(74):                                      ! RECV
#line 1717 "regression-compile-tmp/comp412.imp"
sw3_C_74:;
                                                                //   1718  C(75):                                      ! RECN
#line 1718 "regression-compile-tmp/comp412.imp"
sw3_C_75:;
                                                                //   1719  C(122):                                     ! RTP
#line 1719 "regression-compile-tmp/comp412.imp"
sw3_C_122:;
                                                                //   1720  C(123):                                     ! PP
#line 1720 "regression-compile-tmp/comp412.imp"
sw3_C_123:;
                                                                //   1721  C(124):                                     ! FNP
#line 1721 "regression-compile-tmp/comp412.imp"
sw3_C_124:;
                                                                //   1722  C(125):                                     ! MP
#line 1722 "regression-compile-tmp/comp412.imp"
sw3_C_125:;
                                                                //   1723  C(77):                                      ! RECAN
#line 1723 "regression-compile-tmp/comp412.imp"
sw3_C_77:;
                                                                //   1724  C(63):                                      ! ANSET
#line 1724 "regression-compile-tmp/comp412.imp"
sw3_C_63:;
                                                                //   1725  C(70):                                      ! AN
#line 1725 "regression-compile-tmp/comp412.imp"
sw3_C_70:;
                                                                //   1726  C(62):                                      ! ASET
#line 1726 "regression-compile-tmp/comp412.imp"
sw3_C_62:;
                                                                //   1727  C(69):                                      ! A
#line 1727 "regression-compile-tmp/comp412.imp"
sw3_C_69:;
                                                                //   1728  C(76):                                      ! RECA
#line 1728 "regression-compile-tmp/comp412.imp"
sw3_C_76:;
                                                                //   1729        AOP('@', X);  ->CONT
#line 1729 "regression-compile-tmp/comp412.imp"
AOP(64, X);
#line 1729 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1730  C(65):                                      ! RFN
#line 1730 "regression-compile-tmp/comp412.imp"
sw3_C_65:;
                                                                //   1731  C(66):                                      ! AFN
#line 1731 "regression-compile-tmp/comp412.imp"
sw3_C_66:;
                                                                //   1732        -> CONT
#line 1732 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1733  C(71):                                      ! M
#line 1733 "regression-compile-tmp/comp412.imp"
sw3_C_71:;
                                                                //   1734  C(72):                                      ! F
#line 1734 "regression-compile-tmp/comp412.imp"
sw3_C_72:;
                                                                //   1735  C(73):                                      ! RT
#line 1735 "regression-compile-tmp/comp412.imp"
sw3_C_73:;
                                                                //   1736  C(78):                                      ! RECORDMAP
#line 1736 "regression-compile-tmp/comp412.imp"
sw3_C_78:;
                                                                //   1737  C(64):                                      ! MSET
#line 1737 "regression-compile-tmp/comp412.imp"
sw3_C_64:;
                                                                //   1738        CALL;  -> CONT
#line 1738 "regression-compile-tmp/comp412.imp"
CALL();
#line 1738 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1739  C(83): LIT2=LIT1;  LIT1=EVAL(X);            ! 'ICONST'
#line 1739 "regression-compile-tmp/comp412.imp"
sw3_C_83:;
#line 1739 "regression-compile-tmp/comp412.imp"
LIT2 = LIT1;
#line 1739 "regression-compile-tmp/comp412.imp"
LIT1 = EVAL(X);
                                                                //   1740        CGEN(LIT1) %AND ->CONT %IF X < 0
#line 1740 "regression-compile-tmp/comp412.imp"
if (((X) >= (0))) goto L_01cf;
#line 1740 "regression-compile-tmp/comp412.imp"
CGEN(LIT1);
#line 1740 "regression-compile-tmp/comp412.imp"
goto U_100e;
#line 1740 "regression-compile-tmp/comp412.imp"
L_01cf:;
                                                                //   1741  C(82):                                      ! SCONST
#line 1741 "regression-compile-tmp/comp412.imp"
sw3_C_82:;
                                                                //   1742  C(84):                                      ! 'RCONST'
#line 1742 "regression-compile-tmp/comp412.imp"
sw3_C_84:;
                                                                //   1743        L=BUFFER(X)
#line 1743 "regression-compile-tmp/comp412.imp"
L = (BUFFER-1)[X];
                                                                //   1744        %IF L <= 0 %AND CLASS=ICONST %START; ! SYMBOL
#line 1744 "regression-compile-tmp/comp412.imp"
if (((L) > (0))) goto L_01d0;
#line 1744 "regression-compile-tmp/comp412.imp"
if (((CLASS) != (83))) goto L_01d0;
                                                                //   1745           OP('N',3); L=BUFFER(X-1)
#line 1745 "regression-compile-tmp/comp412.imp"
OP(78, 3);
#line 1745 "regression-compile-tmp/comp412.imp"
L = (BUFFER-1)[(((int)(X)) - (1))];
                                                                //   1746           PUT(','); PUT('Z')
#line 1746 "regression-compile-tmp/comp412.imp"
PUT(44);
#line 1746 "regression-compile-tmp/comp412.imp"
PUT(90);
                                                                //   1747           X=L//10
#line 1747 "regression-compile-tmp/comp412.imp"
X = (long)((long)((int)(L)) / (long)((int)(10)));
                                                                //   1748           PUT(X+'A')
#line 1748 "regression-compile-tmp/comp412.imp"
PUT((((int)(X)) + (65)));
                                                                //   1749           PUT(L-X*10+'A')
#line 1749 "regression-compile-tmp/comp412.imp"
PUT((((int)(((L) - ((int)((((int)(X)) * (10))))))) + (65)));
                                                                //   1750        %ELSE
#line 1750 "regression-compile-tmp/comp412.imp"
goto L_01d1;
#line 1750 "regression-compile-tmp/comp412.imp"
L_01d0:;
                                                                //   1751           L=|L|
#line 1751 "regression-compile-tmp/comp412.imp"
L = _imp_IMOD(L);
                                                                //   1752           OP(CONOP(CLASS),L)
#line 1752 "regression-compile-tmp/comp412.imp"
OP((CONOP-82)[CLASS], L);
                                                                //   1753           %IF L > 0 %START
#line 1753 "regression-compile-tmp/comp412.imp"
if (((L) <= (0))) goto L_01d2;
                                                                //   1754              %integer x2
#line 1754 "regression-compile-tmp/comp412.imp"
int X2;
                                                                //   1755              PUT(',')
#line 1755 "regression-compile-tmp/comp412.imp"
PUT(44);
                                                                //   1756              x2 = X
#line 1756 "regression-compile-tmp/comp412.imp"
X2 = X;
                                                                //   1757              %CYCLE X=x2-1,-1,x2-L
#line 1757 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = (((int)(X2)) - (1)); _increment = (-1); _final = (((int)(X2)) - (L)); X = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle X = (((int)(X2)) - (1)), (-1), (((int)(X2)) - (L))");
X -= _increment; _control -= _increment;
L_01d3:;
if (X == _final) goto L_01d4;
X += _increment; _control += _increment;
if (X != _control) _imp_signal(4,2,0,"Corrupt control variable X"); /* FOR loop control variable corrupted */
}
                                                                //   1758                 PUT(BUFFER(X))
#line 1758 "regression-compile-tmp/comp412.imp"
PUT((BUFFER-1)[X]);
                                                                //   1759              %REPEAT
#line 1759 "regression-compile-tmp/comp412.imp"
goto L_01d3;
#line 1759 "regression-compile-tmp/comp412.imp"
L_01d4:;
                                                                //   1760           %FINISH
#line 1760 "regression-compile-tmp/comp412.imp"
L_01d2:;
                                                                //   1761        %FINISH
#line 1761 "regression-compile-tmp/comp412.imp"
L_01d1:;
                                                                //   1762        LIT=CODE
#line 1762 "regression-compile-tmp/comp412.imp"
LIT = CODE;
                                                                //   1763        -> CONT
#line 1763 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1764  C(105):PUT('.');  -> CONT;                  ! '.'
#line 1764 "regression-compile-tmp/comp412.imp"
sw3_C_105:;
#line 1764 "regression-compile-tmp/comp412.imp"
PUT(46);
#line 1764 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1765  C(106):PUT('V'+32); -> CONT
#line 1765 "regression-compile-tmp/comp412.imp"
sw3_C_106:;
#line 1765 "regression-compile-tmp/comp412.imp"
PUT(118);
#line 1765 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1766  C(126):PUT('F'+32);                            ! COM
#line 1766 "regression-compile-tmp/comp412.imp"
sw3_C_126:;
#line 1766 "regression-compile-tmp/comp412.imp"
PUT(102);
                                                                //   1767        STARTT=2+8;                          ! PSEUDO %CYCLE
#line 1767 "regression-compile-tmp/comp412.imp"
STARTT = 10;
                                                                //   1768        P LAB=LABEL; LOOP LAB=P LAB+2
#line 1768 "regression-compile-tmp/comp412.imp"
PLAB = LABEL;
#line 1768 "regression-compile-tmp/comp412.imp"
LOOPLAB = (((int)(PLAB)) + (2));
                                                                //   1769        DEF LAB(LOOP LAB)
#line 1769 "regression-compile-tmp/comp412.imp"
DEFLAB(LOOPLAB);
                                                                //   1770        -> CONT
#line 1770 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1771  C(113):                                     ! BSEP
#line 1771 "regression-compile-tmp/comp412.imp"
sw3_C_113:;
                                                                //   1772        %IF SPREFIX=0 %THEN DIM=DIM+1 %ELSE SET SIZE
#line 1772 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) != (0))) goto L_01d6;
#line 1772 "regression-compile-tmp/comp412.imp"
DIM = (((int)(DIM)) + (1));
#line 1772 "regression-compile-tmp/comp412.imp"
goto L_01d7;
#line 1772 "regression-compile-tmp/comp412.imp"
L_01d6:;
#line 1772 "regression-compile-tmp/comp412.imp"
SETSIZE();
#line 1772 "regression-compile-tmp/comp412.imp"
L_01d7:;
                                                                //   1773        -> CONT
#line 1773 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1774  C(116): AOP('L',X)
#line 1774 "regression-compile-tmp/comp412.imp"
sw3_C_116:;
#line 1774 "regression-compile-tmp/comp412.imp"
AOP(76, X);
                                                                //   1775        ACCESS = 1
#line 1775 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //   1776        INHIBIT = INHIBIT!1; -> CONT
#line 1776 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
#line 1776 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1777  C(80): INHIBIT = INHIBIT!1;         ! SWITCH
#line 1777 "regression-compile-tmp/comp412.imp"
sw3_C_80:;
#line 1777 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //   1778        AOP('W',X);  ->ACONT
#line 1778 "regression-compile-tmp/comp412.imp"
AOP(87, X);
#line 1778 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1779  C(114):INHIBIT = INHIBIT!1;        ! SLAB
#line 1779 "regression-compile-tmp/comp412.imp"
sw3_C_114:;
#line 1779 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //   1780        ACCESS = 1
#line 1780 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //   1781        AOP('_',X)
#line 1781 "regression-compile-tmp/comp412.imp"
AOP(95, X);
                                                                //   1782        L=DICT(X-2);                         ! POINTER TO TABLE
#line 1782 "regression-compile-tmp/comp412.imp"
L = DICT[(((int)(X)) - (2))];
                                                                //   1783        K=DICT(L);                           ! LOWER BOUND
#line 1783 "regression-compile-tmp/comp412.imp"
K = DICT[L];
                                                                //   1784        FAULT(16) %AND ->CONT  %UNLESS K <= LIT1 <= DICT(L-1)
#line 1784 "regression-compile-tmp/comp412.imp"
if ((((K) > (LIT1))) || (((LIT1) <= (DICT[(((int)(L)) - (1))])))) goto L_01d8;
#line 1784 "regression-compile-tmp/comp412.imp"
L_01ae:;
#line 1784 "regression-compile-tmp/comp412.imp"
FAULT(16);
#line 1784 "regression-compile-tmp/comp412.imp"
goto U_100e;
#line 1784 "regression-compile-tmp/comp412.imp"
L_01d8:;
                                                                //   1785        K=LIT1-K
#line 1785 "regression-compile-tmp/comp412.imp"
K = (((int)(LIT1)) - (K));
                                                                //   1786        L=L-K>>4;                            ! ENTRY POINT
#line 1786 "regression-compile-tmp/comp412.imp"
L = ((L) - ((int)((int)((((unsigned int)(K)) >> (4))))));
                                                                //   1787        K=1<<(K&15);                         ! REQUISITE BIT
#line 1787 "regression-compile-tmp/comp412.imp"
K = ((1) << (((K) & (15))));
                                                                //   1788        M == DICT(L-2)
#line 1788 "regression-compile-tmp/comp412.imp"
M = &DICT[(((int)(L)) - (2))];
                                                                //   1789        FAULT(7) %IF M&K#0
#line 1789 "regression-compile-tmp/comp412.imp"
if (((((*M) & (K))) == (0))) goto L_01d9;
#line 1789 "regression-compile-tmp/comp412.imp"
FAULT(7);
#line 1789 "regression-compile-tmp/comp412.imp"
L_01d9:;
                                                                //   1790        M = M!K
#line 1790 "regression-compile-tmp/comp412.imp"
*M = ((*M) | (K));
                                                                //   1791        -> CONT
#line 1791 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1792  C(81): INHIBIT = INHIBIT!1;         ! 'BL'
#line 1792 "regression-compile-tmp/comp412.imp"
sw3_C_81:;
#line 1792 "regression-compile-tmp/comp412.imp"
INHIBIT = ((INHIBIT) | (1));
                                                                //   1793  C(115): AOP('J',X);  -> ACONT;               ! 'FL'
#line 1793 "regression-compile-tmp/comp412.imp"
sw3_C_115:;
#line 1793 "regression-compile-tmp/comp412.imp"
AOP(74, X);
#line 1793 "regression-compile-tmp/comp412.imp"
goto U_100f;
                                                                //   1794  C(128):LIT1 = BPSIZE %IF LIT1 = 0
#line 1794 "regression-compile-tmp/comp412.imp"
sw3_C_128:;
#line 1794 "regression-compile-tmp/comp412.imp"
if (((LIT1) != (0))) goto L_01da;
#line 1794 "regression-compile-tmp/comp412.imp"
LIT1 = BPSIZE;
#line 1794 "regression-compile-tmp/comp412.imp"
L_01da:;
                                                                //   1795        BPSIZE=BP SIZE-LIT1+1;               ! ORB
#line 1795 "regression-compile-tmp/comp412.imp"
BPSIZE = (((int)((((int)(BPSIZE)) - (LIT1)))) + (1));
                                                                //   1796        -> OF %IF LIT1 <= 0
#line 1796 "regression-compile-tmp/comp412.imp"
if (((LIT1) > (0))) goto L_01db;
#line 1796 "regression-compile-tmp/comp412.imp"
goto U_1015;
#line 1796 "regression-compile-tmp/comp412.imp"
L_01db:;
                                                                //   1797        -> CONT
#line 1797 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1798  C(129):PUT('P'+32);  ->CONT;                   ! PSEP
#line 1798 "regression-compile-tmp/comp412.imp"
sw3_C_129:;
#line 1798 "regression-compile-tmp/comp412.imp"
PUT(112);
#line 1798 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1799  C(130):PUT('P'+32);  PUT('E')
#line 1799 "regression-compile-tmp/comp412.imp"
sw3_C_130:;
#line 1799 "regression-compile-tmp/comp412.imp"
PUT(112);
#line 1799 "regression-compile-tmp/comp412.imp"
PUT(69);
                                                                //   1800        PRED PENDING = PRED PENDING>>1
#line 1800 "regression-compile-tmp/comp412.imp"
PREDPENDING = (int)((((unsigned int)(PREDPENDING)) >> (1)));
                                                                //   1801        PRED PENDING = PRED PENDING-1 %AND ->PAC %IF PRED PENDING&1 # 0
#line 1801 "regression-compile-tmp/comp412.imp"
if (((((PREDPENDING) & (1))) == (0))) goto L_01dc;
#line 1801 "regression-compile-tmp/comp412.imp"
PREDPENDING = (((int)(PREDPENDING)) - (1));
#line 1801 "regression-compile-tmp/comp412.imp"
goto U_1012;
#line 1801 "regression-compile-tmp/comp412.imp"
L_01dc:;
                                                                //   1802        ->CONT
#line 1802 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1803  C(107): PUT('I'+32);  ->CONT;                  ! ASSEP
#line 1803 "regression-compile-tmp/comp412.imp"
sw3_C_107:;
#line 1803 "regression-compile-tmp/comp412.imp"
PUT(105);
#line 1803 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1804  C(118): %IF DCLASS#54 %START;               ! OSEP
#line 1804 "regression-compile-tmp/comp412.imp"
sw3_C_118:;
#line 1804 "regression-compile-tmp/comp412.imp"
if (((DCLASS) == (54))) goto L_01dd;
                                                                //   1805           BP SIZE=BP SIZE-1
#line 1805 "regression-compile-tmp/comp412.imp"
BPSIZE = (((int)(BPSIZE)) - (1));
                                                                //   1806           %IF BP SIZE <= 0 %START
#line 1806 "regression-compile-tmp/comp412.imp"
if (((BPSIZE) > (0))) goto L_01de;
                                                                //   1807  OF:          ATOM POS=0; FAULT(16)
#line 1807 "regression-compile-tmp/comp412.imp"
U_1015:;
#line 1807 "regression-compile-tmp/comp412.imp"
ATOMPOS = 0;
#line 1807 "regression-compile-tmp/comp412.imp"
FAULT(16);
                                                                //   1808              OUT=0
#line 1808 "regression-compile-tmp/comp412.imp"
OUT = 0;
                                                                //   1809              -> RETURN
#line 1809 "regression-compile-tmp/comp412.imp"
goto U_1010;
                                                                //   1810           %FINISH
#line 1810 "regression-compile-tmp/comp412.imp"
L_01de:;
                                                                //   1811        %FINISH
#line 1811 "regression-compile-tmp/comp412.imp"
L_01dd:;
                                                                //   1812  OSEP:  PUT('A')
#line 1812 "regression-compile-tmp/comp412.imp"
U_1016:;
#line 1812 "regression-compile-tmp/comp412.imp"
PUT(65);
                                                                //   1813        EXTRA(OWN DEF) %IF OWN DEF > 1
#line 1813 "regression-compile-tmp/comp412.imp"
if (((OWNDEF) <= (1))) goto L_01df;
#line 1813 "regression-compile-tmp/comp412.imp"
EXTRA(OWNDEF);
#line 1813 "regression-compile-tmp/comp412.imp"
L_01df:;
                                                                //   1814        OWN DEF=0;  LIT1 = 0
#line 1814 "regression-compile-tmp/comp412.imp"
OWNDEF = 0;
#line 1814 "regression-compile-tmp/comp412.imp"
LIT1 = 0;
                                                                //   1815        -> CONT
#line 1815 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1816  C(117): BP SIZE=BP SIZE-1 %IF OUT#0;        ! OWNT
#line 1816 "regression-compile-tmp/comp412.imp"
sw3_C_117:;
#line 1816 "regression-compile-tmp/comp412.imp"
if (((OUT) == (0))) goto L_01e0;
#line 1816 "regression-compile-tmp/comp412.imp"
BPSIZE = (((int)(BPSIZE)) - (1));
#line 1816 "regression-compile-tmp/comp412.imp"
L_01e0:;
                                                                //   1817        OUT=0
#line 1817 "regression-compile-tmp/comp412.imp"
OUT = 0;
                                                                //   1818        -> OSEP %IF BP SIZE=0
#line 1818 "regression-compile-tmp/comp412.imp"
if (((BPSIZE) != (0))) goto L_01e1;
#line 1818 "regression-compile-tmp/comp412.imp"
goto U_1016;
#line 1818 "regression-compile-tmp/comp412.imp"
L_01e1:;
                                                                //   1819        BP SIZE=0
#line 1819 "regression-compile-tmp/comp412.imp"
BPSIZE = 0;
                                                                //   1820        -> OF %IF BUFFER(BPT)='A' %OR LIT = CODE
#line 1820 "regression-compile-tmp/comp412.imp"
if ((((BUFFER-1)[BPT]) == (65))) goto L_01e2;
#line 1820 "regression-compile-tmp/comp412.imp"
if (((LIT) != (CODE))) goto L_01e3;
#line 1820 "regression-compile-tmp/comp412.imp"
L_01e2:;
#line 1820 "regression-compile-tmp/comp412.imp"
goto U_1015;
#line 1820 "regression-compile-tmp/comp412.imp"
L_01e3:;
                                                                //   1821        PUT('I');                            ! INDICATE CLEAR
#line 1821 "regression-compile-tmp/comp412.imp"
PUT(73);
                                                                //   1822        -> CONT
#line 1822 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1823  C(110):                                     ! LRB
#line 1823 "regression-compile-tmp/comp412.imp"
sw3_C_110:;
                                                                //   1824  C(111):                                     ! RRB
#line 1824 "regression-compile-tmp/comp412.imp"
sw3_C_111:;
                                                                //   1825        -> CONT
#line 1825 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1826  C(127):PUT('A'+32);  -> CONT
#line 1826 "regression-compile-tmp/comp412.imp"
sw3_C_127:;
#line 1826 "regression-compile-tmp/comp412.imp"
PUT(97);
#line 1826 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1827  D(54): OWN DEF=OWN DEF+1;                   ! OWNVTYPE
#line 1827 "regression-compile-tmp/comp412.imp"
sw4_D_54:;
#line 1827 "regression-compile-tmp/comp412.imp"
OWNDEF = (((int)(OWNDEF)) + (1));
                                                                //   1828        DICT(X-2) = LIT1 %IF CONST INT # 0
#line 1828 "regression-compile-tmp/comp412.imp"
if (((CONSTINT) == (0))) goto L_01e4;
#line 1828 "regression-compile-tmp/comp412.imp"
DICT[(((int)(X)) - (2))] = LIT1;
#line 1828 "regression-compile-tmp/comp412.imp"
L_01e4:;
                                                                //   1829        -> DDD
#line 1829 "regression-compile-tmp/comp412.imp"
goto U_1017;
                                                                //   1830  D(57):                                      ! SWITCH
#line 1830 "regression-compile-tmp/comp412.imp"
sw4_D_57:;
                                                                //   1831        %IF LIT=CODE %THEN %START;           ! SWITCH DEF
#line 1831 "regression-compile-tmp/comp412.imp"
if (((LIT) != (CODE))) goto L_01e5;
                                                                //   1832           PUT('W'+32)
#line 1832 "regression-compile-tmp/comp412.imp"
PUT(119);
                                                                //   1833           DICT(X-2)=T LIMIT-1
#line 1833 "regression-compile-tmp/comp412.imp"
DICT[(((int)(X)) - (2))] = (((int)(TLIMIT)) - (1));
                                                                //   1834           DICT(TLIMIT-1)=LIT2;              ! LOWER BOUND
#line 1834 "regression-compile-tmp/comp412.imp"
DICT[(((int)(TLIMIT)) - (1))] = LIT2;
                                                                //   1835           DICT(TLIMIT-2)=LIT1;              ! UPPER BOUND
#line 1835 "regression-compile-tmp/comp412.imp"
DICT[(((int)(TLIMIT)) - (2))] = LIT1;
                                                                //   1836           %IF LIT1 < LIT2 %START;           ! BOUNDS INSIDE-OUT
#line 1836 "regression-compile-tmp/comp412.imp"
if (((LIT1) >= (LIT2))) goto L_01e6;
                                                                //   1837              ATOM POS=0; FAULT(4)
#line 1837 "regression-compile-tmp/comp412.imp"
ATOMPOS = 0;
#line 1837 "regression-compile-tmp/comp412.imp"
FAULT(4);
                                                                //   1838              LIT1=LIT2
#line 1838 "regression-compile-tmp/comp412.imp"
LIT1 = LIT2;
                                                                //   1839           %FINISH
#line 1839 "regression-compile-tmp/comp412.imp"
L_01e6:;
                                                                //   1840           K=LIT1-LIT2+1
#line 1840 "regression-compile-tmp/comp412.imp"
K = (((int)((((int)(LIT1)) - (LIT2)))) + (1));
                                                                //   1841           K=(K+15)>>4;                      ! ENTRIES NEEDED
#line 1841 "regression-compile-tmp/comp412.imp"
K = (((((((int)(K)) + (15)))) >> (4)));
                                                                //   1842           TLIMIT=TLIMIT-K-3
#line 1842 "regression-compile-tmp/comp412.imp"
TLIMIT = (((int)((((int)(TLIMIT)) - (K)))) - (3));
                                                                //   1843           FAULT(23) %IF T LIMIT <= TMAX
#line 1843 "regression-compile-tmp/comp412.imp"
if (((TLIMIT) > (TMAX))) goto L_01e7;
#line 1843 "regression-compile-tmp/comp412.imp"
FAULT(23);
#line 1843 "regression-compile-tmp/comp412.imp"
L_01e7:;
                                                                //   1844           DICT(L)=0 %FOR L = TLIMIT,1,TLIMIT+K
#line 1844 "regression-compile-tmp/comp412.imp"
{static int _initial, _increment, _final, _control;
_initial = TLIMIT; _increment = 1; _final = (((int)(TLIMIT)) + (K)); L = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = TLIMIT, 1, (((int)(TLIMIT)) + (K))");
L -= _increment; _control -= _increment;
L_01e8:;
if (L == _final) goto L_01e9;
L += _increment; _control += _increment;
if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */
}
#line 1844 "regression-compile-tmp/comp412.imp"
DICT[L] = 0;
#line 1844 "regression-compile-tmp/comp412.imp"
goto L_01e8;
#line 1844 "regression-compile-tmp/comp412.imp"
L_01e9:;
                                                                //   1845        %FINISH
#line 1845 "regression-compile-tmp/comp412.imp"
L_01e5:;
                                                                //   1846  D(50):                                      ! RTYPE
#line 1846 "regression-compile-tmp/comp412.imp"
sw4_D_50:;
                                                                //   1847        OP('F',0) %IF DCLASS=50 %AND DEC TYPE#84 %AND SPEC >= 0 %C
#line 1847 "regression-compile-tmp/comp412.imp"
if (((DCLASS) != (50))) goto L_01eb;
#line 1847 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) == (84))) goto L_01eb;
#line 1847 "regression-compile-tmp/comp412.imp"
if (((SPEC) < (0))) goto L_01eb;
#line 1847 "regression-compile-tmp/comp412.imp"
if (((LEVEL) == (0))) goto L_01eb;
#line 1847 "regression-compile-tmp/comp412.imp"
OP(70, 0);
#line 1847 "regression-compile-tmp/comp412.imp"
L_01eb:;
                                                                //   1848                                %AND LEVEL # 0
                                                                //   1849                                            ! JUMP ROUND ROUTINE
                                                                //   1850  D(56):                                      ! TYPE
#line 1850 "regression-compile-tmp/comp412.imp"
sw4_D_56:;
                                                                //   1851  D(53):                                      ! VTYPE
#line 1851 "regression-compile-tmp/comp412.imp"
sw4_D_53:;
                                                                //   1852  DDD:   DEF(X)
#line 1852 "regression-compile-tmp/comp412.imp"
U_1017:;
#line 1852 "regression-compile-tmp/comp412.imp"
DEF(X);
                                                                //   1853        -> CONT
#line 1853 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1854  D(51):                                      ! ARRAY DEC
#line 1854 "regression-compile-tmp/comp412.imp"
sw4_D_51:;
                                                                //   1855        %IF DIM#0 %START;                    ! SET UP DOPE VECTOR
#line 1855 "regression-compile-tmp/comp412.imp"
if (((DIM) == (0))) goto L_01ec;
                                                                //   1856           OP('D'+32, DIM);  DIM = 0
#line 1856 "regression-compile-tmp/comp412.imp"
OP(100, DIM);
#line 1856 "regression-compile-tmp/comp412.imp"
DIM = 0;
                                                                //   1857        %FINISH
#line 1857 "regression-compile-tmp/comp412.imp"
L_01ec:;
                                                                //   1858        DEF(X);  PUT('H'+32)
#line 1858 "regression-compile-tmp/comp412.imp"
DEF(X);
#line 1858 "regression-compile-tmp/comp412.imp"
PUT(104);
                                                                //   1859        PUT('C'+32) %IF DICT(X-1)&15#13;        ! NO SPACE FOR FORMATS
#line 1859 "regression-compile-tmp/comp412.imp"
if (((((DICT[(((int)(X)) - (1))]) & (15))) == (13))) goto L_01ed;
#line 1859 "regression-compile-tmp/comp412.imp"
PUT(99);
#line 1859 "regression-compile-tmp/comp412.imp"
L_01ed:;
                                                                //   1860        -> CONT
#line 1860 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1861  D(52): DEF(X);  OUT=TYPE;                   ! OWNARRAY
#line 1861 "regression-compile-tmp/comp412.imp"
sw4_D_52:;
#line 1861 "regression-compile-tmp/comp412.imp"
DEF(X);
#line 1861 "regression-compile-tmp/comp412.imp"
OUT = TYPE;
                                                                //   1862        BPSIZE = 1 %IF TYPE = 15;            ! EXTRINSICS
#line 1862 "regression-compile-tmp/comp412.imp"
if (((TYPE) != (15))) goto L_01ee;
#line 1862 "regression-compile-tmp/comp412.imp"
BPSIZE = 1;
#line 1862 "regression-compile-tmp/comp412.imp"
L_01ee:;
                                                                //   1863        ->CONT
#line 1863 "regression-compile-tmp/comp412.imp"
goto U_100e;
                                                                //   1864  C(49):                                      ! BEGEND
#line 1864 "regression-compile-tmp/comp412.imp"
sw3_C_49:;
                                                                //   1865        %IF X=15 %THEN PUT('H') %AND XX=NULL STRING %ELSE C END
#line 1865 "regression-compile-tmp/comp412.imp"
if (((X) != (15))) goto L_01ef;
#line 1865 "regression-compile-tmp/comp412.imp"
PUT(72);
#line 1865 "regression-compile-tmp/comp412.imp"
XX = 401;
#line 1865 "regression-compile-tmp/comp412.imp"
goto L_01f0;
#line 1865 "regression-compile-tmp/comp412.imp"
L_01ef:;
#line 1865 "regression-compile-tmp/comp412.imp"
CEND();
#line 1865 "regression-compile-tmp/comp412.imp"
L_01f0:;
                                                                //   1866  RETURN:
#line 1866 "regression-compile-tmp/comp412.imp"
U_1010:;
                                                                //   1867                                            !
                                                                //   1868                                            ! DEAL WITH LABELS
                                                                //   1869                                            !
                                                                //   1870        OP('B',LOOP LAB) %IF LOOP LAB#0
#line 1870 "regression-compile-tmp/comp412.imp"
if (((LOOPLAB) == (0))) goto L_01f1;
#line 1870 "regression-compile-tmp/comp412.imp"
OP(66, LOOPLAB);
#line 1870 "regression-compile-tmp/comp412.imp"
L_01f1:;
                                                                //   1871        DEF LAB(EILAB) %IF EILAB # 0 %AND EILAB # PLAB
#line 1871 "regression-compile-tmp/comp412.imp"
if (((EILAB) == (0))) goto L_01f2;
#line 1871 "regression-compile-tmp/comp412.imp"
if (((EILAB) == (PLAB))) goto L_01f2;
#line 1871 "regression-compile-tmp/comp412.imp"
DEFLAB(EILAB);
#line 1871 "regression-compile-tmp/comp412.imp"
L_01f2:;
                                                                //   1872        DEF LAB(P LAB) %IF P LAB#0
#line 1872 "regression-compile-tmp/comp412.imp"
if (((PLAB) == (0))) goto L_01f3;
#line 1872 "regression-compile-tmp/comp412.imp"
DEFLAB(PLAB);
#line 1872 "regression-compile-tmp/comp412.imp"
L_01f3:;
                                                                //   1873     %END;                                   ! OF COMPILE SS
#line 1873 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
sw4_D_55:;
/*_imp_signal(6,3,sw4_D_idx,"SWITCH LABEL NOT SET - sw4_D");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw4_D(%d): at line %s:%d", sw4_D_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
sw3_C_47:;
sw3_C_48:;
sw3_C_55:;
sw3_C_58:;
sw3_C_59:;
sw3_C_85:;
sw3_C_86:;
sw3_C_87:;
sw3_C_88:;
sw3_C_89:;
sw3_C_90:;
sw3_C_91:;
sw3_C_92:;
sw3_C_93:;
sw3_C_94:;
sw3_C_95:;
sw3_C_96:;
sw3_C_97:;
sw3_C_98:;
sw3_C_99:;
sw3_C_100:;
sw3_C_101:;
sw3_C_102:;
sw3_C_103:;
sw3_C_104:;
sw3_C_120:;
sw3_C_121:;
/*_imp_signal(6,3,sw3_C_idx,"SWITCH LABEL NOT SET - sw3_C");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_C(%d): at line %s:%d", sw3_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block COMPILESS at level 3
                                                                //   1874     %IF BLOCK TYPE=0 %START;                ! RECORD FORMAT
#line 1874 "regression-compile-tmp/comp412.imp"
if (((BLOCKTYPE) != (0))) goto L_01f4;
                                                                //   1875        ANALYSE SS(-1)
#line 1875 "regression-compile-tmp/comp412.imp"
ANALYSESS((-1));
                                                                //   1876        XX=X-2
#line 1876 "regression-compile-tmp/comp412.imp"
XX = (((int)(X)) - (2));
                                                                //   1877        OP('G', 2)
#line 1877 "regression-compile-tmp/comp412.imp"
OP(71, 2);
                                                                //   1878        COMPILE SS %IF SS#0
#line 1878 "regression-compile-tmp/comp412.imp"
if (((SS) == (0))) goto L_01f5;
#line 1878 "regression-compile-tmp/comp412.imp"
COMPILESS();
#line 1878 "regression-compile-tmp/comp412.imp"
L_01f5:;
                                                                //   1879        OP('G',2);                           ! FORMAT END
#line 1879 "regression-compile-tmp/comp412.imp"
OP(71, 2);
                                                                //   1880        -> L9
#line 1880 "regression-compile-tmp/comp412.imp"
goto U_1018;
                                                                //   1881     %FINISH
#line 1881 "regression-compile-tmp/comp412.imp"
L_01f4:;
                                                                //   1882     %IF BLOCKTYPE&15#15 %START;             ! NOT BEGIN
#line 1882 "regression-compile-tmp/comp412.imp"
if (((((BLOCKTYPE) & (15))) == (15))) goto L_01f6;
                                                                //   1883        ANALYSE SS(1);                       ! FORMAL PARAMETERS
#line 1883 "regression-compile-tmp/comp412.imp"
ANALYSESS(1);
                                                                //   1884        %IF SPEC < 0 %THEN K = 0 %ELSE K = 1
#line 1884 "regression-compile-tmp/comp412.imp"
if (((SPEC) >= (0))) goto L_01f7;
#line 1884 "regression-compile-tmp/comp412.imp"
K = 0;
#line 1884 "regression-compile-tmp/comp412.imp"
goto L_01f8;
#line 1884 "regression-compile-tmp/comp412.imp"
L_01f7:;
#line 1884 "regression-compile-tmp/comp412.imp"
K = 1;
#line 1884 "regression-compile-tmp/comp412.imp"
L_01f8:;
                                                                //   1885        OP('G', K)
#line 1885 "regression-compile-tmp/comp412.imp"
OP(71, K);
                                                                //   1886        COMPILE SS %IF SS # 0
#line 1886 "regression-compile-tmp/comp412.imp"
if (((SS) == (0))) goto L_01f9;
#line 1886 "regression-compile-tmp/comp412.imp"
COMPILESS();
#line 1886 "regression-compile-tmp/comp412.imp"
L_01f9:;
                                                                //   1887        OP('G', K)
#line 1887 "regression-compile-tmp/comp412.imp"
OP(71, K);
                                                                //   1888        -> L9 %IF K = 0
#line 1888 "regression-compile-tmp/comp412.imp"
if (((K) != (0))) goto L_01fa;
#line 1888 "regression-compile-tmp/comp412.imp"
goto U_1018;
#line 1888 "regression-compile-tmp/comp412.imp"
L_01fa:;
                                                                //   1889     %FINISH
#line 1889 "regression-compile-tmp/comp412.imp"
L_01f6:;
                                                                //   1890     ACCESS = 1
#line 1890 "regression-compile-tmp/comp412.imp"
ACCESS = 1;
                                                                //   1891     %CYCLE
#line 1891 "regression-compile-tmp/comp412.imp"
L_01fb:;
                                                                //   1892        ANALYSE SS(0)
#line 1892 "regression-compile-tmp/comp412.imp"
ANALYSESS(0);
                                                                //   1893        XX=X-2
#line 1893 "regression-compile-tmp/comp412.imp"
XX = (((int)(X)) - (2));
                                                                //   1894        COMPILE SS %IF SS#0
#line 1894 "regression-compile-tmp/comp412.imp"
if (((SS) == (0))) goto L_01fe;
#line 1894 "regression-compile-tmp/comp412.imp"
COMPILESS();
#line 1894 "regression-compile-tmp/comp412.imp"
L_01fe:;
                                                                //   1895        COMPILE BLOCK(0,0,DICT(XX)) %IF DEC TYPE=84
#line 1895 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (84))) goto L_01ff;
#line 1895 "regression-compile-tmp/comp412.imp"
COMPILEBLOCK(0, 0, &DICT[XX]);
#line 1895 "regression-compile-tmp/comp412.imp"
L_01ff:;
                                                                //   1896        %EXIT %IF DECTYPE=85 %OR DEC TYPE=EOP %C
#line 1896 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) == (85))) goto L_01ea;
#line 1896 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) == (87))) goto L_01ea;
#line 1896 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (86))) goto L_0200;
#line 1896 "regression-compile-tmp/comp412.imp"
L_01ea:;
#line 1896 "regression-compile-tmp/comp412.imp"
goto L_01fc;
#line 1896 "regression-compile-tmp/comp412.imp"
L_0200:;
                                                                //   1897        %OR DEC TYPE=EOF
                                                                //   1898        %IF 7 <= DECTYPE&15 <= 10 %OR DECTYPE=15 %START
#line 1898 "regression-compile-tmp/comp412.imp"
if ((((7) > (((DECTYPE) & (15))))) || (((((DECTYPE) & (15))) <= (10)))) goto L_0202;
#line 1898 "regression-compile-tmp/comp412.imp"
L_0201:;
#line 1898 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (15))) goto L_0203;
#line 1898 "regression-compile-tmp/comp412.imp"
L_0202:;
                                                                //   1899           XX=XX-1 %IF DECTYPE&X'70'=X'50';  ! RECORDMAPS
#line 1899 "regression-compile-tmp/comp412.imp"
if (((((DECTYPE) & (112))) != (80))) goto L_0204;
#line 1899 "regression-compile-tmp/comp412.imp"
XX = (((int)(XX)) - (1));
#line 1899 "regression-compile-tmp/comp412.imp"
L_0204:;
                                                                //   1900           %IF LEVEL = 0 %AND DECTYPE = 15 %START
#line 1900 "regression-compile-tmp/comp412.imp"
if (((LEVEL) != (0))) goto L_0205;
#line 1900 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (15))) goto L_0205;
                                                                //   1901              %IF FILE = 0 %THEN FILE = 2 %ELSE FAULT(5)
#line 1901 "regression-compile-tmp/comp412.imp"
if (((FILE) != (0))) goto L_0206;
#line 1901 "regression-compile-tmp/comp412.imp"
FILE = 2;
#line 1901 "regression-compile-tmp/comp412.imp"
goto L_0207;
#line 1901 "regression-compile-tmp/comp412.imp"
L_0206:;
#line 1901 "regression-compile-tmp/comp412.imp"
FAULT(5);
#line 1901 "regression-compile-tmp/comp412.imp"
L_0207:;
                                                                //   1902           %FINISH
#line 1902 "regression-compile-tmp/comp412.imp"
L_0205:;
                                                                //   1903           %IF SPEC > 0 %AND SPREFIX > 3 %AND SPREFIX # 7 %START
#line 1903 "regression-compile-tmp/comp412.imp"
if (((SPEC) <= (0))) goto L_0208;
#line 1903 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) <= (3))) goto L_0208;
#line 1903 "regression-compile-tmp/comp412.imp"
if (((SPREFIX) == (7))) goto L_0208;
                                                                //   1904              %IF LEVEL # 0 %THEN FAULT(15) %ELSE FILE = 1
#line 1904 "regression-compile-tmp/comp412.imp"
if (((LEVEL) == (0))) goto L_0209;
#line 1904 "regression-compile-tmp/comp412.imp"
FAULT(15);
#line 1904 "regression-compile-tmp/comp412.imp"
goto L_020a;
#line 1904 "regression-compile-tmp/comp412.imp"
L_0209:;
#line 1904 "regression-compile-tmp/comp412.imp"
FILE = 1;
#line 1904 "regression-compile-tmp/comp412.imp"
L_020a:;
                                                                //   1905           %FINISH
#line 1905 "regression-compile-tmp/comp412.imp"
L_0208:;
                                                                //   1906           COMPILE BLOCK(LEVEL+1,DECTYPE,DICT(XX))
#line 1906 "regression-compile-tmp/comp412.imp"
COMPILEBLOCK((((int)(LEVEL)) + (1)), DECTYPE, &DICT[XX]);
                                                                //   1907           POS=0 %AND %EXIT %C
#line 1907 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) == (87))) goto L_01d5;
#line 1907 "regression-compile-tmp/comp412.imp"
if (((DECTYPE) != (86))) goto L_020b;
#line 1907 "regression-compile-tmp/comp412.imp"
L_01d5:;
#line 1907 "regression-compile-tmp/comp412.imp"
POS = 0;
#line 1907 "regression-compile-tmp/comp412.imp"
goto L_01fc;
#line 1907 "regression-compile-tmp/comp412.imp"
L_020b:;
                                                                //   1908           %IF DEC TYPE=EOP %OR DEC TYPE=EOF;! PREMATURE END
                                                                //   1909           %FINISH
#line 1909 "regression-compile-tmp/comp412.imp"
L_0203:;
                                                                //   1910     %REPEAT
#line 1910 "regression-compile-tmp/comp412.imp"
goto L_01fb;
#line 1910 "regression-compile-tmp/comp412.imp"
L_01fc:;
                                                                //   1911  ! POINT TO JUMP ROUND ROUTINE
                                                                //   1912     DEF LAB(0) %UNLESS BLOCK TYPE=15 %OR LEVEL = 0
#line 1912 "regression-compile-tmp/comp412.imp"
if (((BLOCKTYPE) == (15))) goto L_020c;
#line 1912 "regression-compile-tmp/comp412.imp"
if (((LEVEL) == (0))) goto L_020c;
#line 1912 "regression-compile-tmp/comp412.imp"
DEFLAB(0);
#line 1912 "regression-compile-tmp/comp412.imp"
L_020c:;
                                                                //   1913  L9:  SPEC=1; TMAX=T BASE; T BASE=OLD T BASE
#line 1913 "regression-compile-tmp/comp412.imp"
U_1018:;
#line 1913 "regression-compile-tmp/comp412.imp"
SPEC = 1;
#line 1913 "regression-compile-tmp/comp412.imp"
TMAX = TBASE;
#line 1913 "regression-compile-tmp/comp412.imp"
TBASE = OLDTBASE;
                                                                //   1914     LABEL = OLD LABEL
#line 1914 "regression-compile-tmp/comp412.imp"
LABEL = OLDLABEL;
                                                                //   1915     T LIMIT=OLD T LIMIT %IF BLOCK TYPE#0
#line 1915 "regression-compile-tmp/comp412.imp"
if (((BLOCKTYPE) == (0))) goto L_020d;
#line 1915 "regression-compile-tmp/comp412.imp"
TLIMIT = OLDTLIMIT;
#line 1915 "regression-compile-tmp/comp412.imp"
L_020d:;
                                                                //   1916     INHIBIT = INHIBIT>>1
#line 1916 "regression-compile-tmp/comp412.imp"
INHIBIT = (int)((((unsigned int)(INHIBIT)) >> (1)));
                                                                //   1917  %END;                                       ! COMPILE BLOCK
#line 1917 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COMPILEBLOCK at level 2
                                                                //   1918  
                                                                //   1919  %ROUTINE  SUMMARISE(%INTEGER STREAM)
#line 1919 "regression-compile-tmp/comp412.imp"
void SUMMARISE( int STREAM )
#line 1919 "regression-compile-tmp/comp412.imp"
{
                                                                //   1920     SELECT OUTPUT(STREAM)
#line 1920 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(STREAM);
                                                                //   1921     %IF FAULTY = 0 %START
#line 1921 "regression-compile-tmp/comp412.imp"
if (((FAULTY) != (0))) goto L_020e;
                                                                //   1922        WRITE(STATS,5);  PRINT STRING(" STATEMENTS COMPILED
#line 1922 "regression-compile-tmp/comp412.imp"
_imp_WRITE(STATS, 5);
#line 1922 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED\n"));
                                                                //   1923  ")
                                                                //   1924     %ELSE
#line 1924 "regression-compile-tmp/comp412.imp"
goto L_020f;
#line 1924 "regression-compile-tmp/comp412.imp"
L_020e:;
                                                                //   1925        PRINT STRING("PROGRAM CONTAINS");  WRITE(FAULTY,1)
#line 1925 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("PROGRAM CONTAINS"));
#line 1925 "regression-compile-tmp/comp412.imp"
_imp_WRITE(FAULTY, 1);
                                                                //   1926        PRINT STRING(" FAULT");  PRINT SYMBOL('S') %IF FAULTY # 1
#line 1926 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal(" FAULT"));
#line 1926 "regression-compile-tmp/comp412.imp"
if (((FAULTY) == (1))) goto L_0210;
#line 1926 "regression-compile-tmp/comp412.imp"
_imp_PRINTSYMBOL(83);
#line 1926 "regression-compile-tmp/comp412.imp"
L_0210:;
                                                                //   1927        NEWLINE
#line 1927 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
                                                                //   1928     %FINISH
#line 1928 "regression-compile-tmp/comp412.imp"
L_020f:;
                                                                //   1929     CLOSE OUTPUT;        !  TO ENSURE BUFFER FLUSHING
#line 1929 "regression-compile-tmp/comp412.imp"
_imp_CLOSEOUTPUT();
                                                                //   1930  %END
#line 1930 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SUMMARISE at level 2
                                                                //   1931  
                                                                //   1932     open input(PRIM, "interdata/prims.imp")
#line 1932 "regression-compile-tmp/comp412.imp"
_imp_OPENINPUT(2, _imp_str_literal("interdata/prims.imp"));
                                                                //   1933     open input(PROG, "interdata/test.imp")
#line 1933 "regression-compile-tmp/comp412.imp"
_imp_OPENINPUT(1, _imp_str_literal("interdata/test.imp"));
                                                                //   1934     open output(REPORT, "interdata/test.rpt")
#line 1934 "regression-compile-tmp/comp412.imp"
_imp_OPENOUTPUT(3, _imp_str_literal("interdata/test.rpt"));
                                                                //   1935     open output(OBJ, "interdata/test.icd")
#line 1935 "regression-compile-tmp/comp412.imp"
_imp_OPENOUTPUT(2, _imp_str_literal("interdata/test.icd"));
                                                                //   1936     open output(LISTING, "interdata/test.lis")
#line 1936 "regression-compile-tmp/comp412.imp"
_imp_OPENOUTPUT(1, _imp_str_literal("interdata/test.lis"));
                                                                //   1937     
                                                                //   1938  !!!!   COMREG(0) = -1;      !IN CASE IT BOMBS OUT
                                                                //   1939     SELECTOUTPUT(LISTING);  SELECT INPUT(PRIM)
#line 1939 "regression-compile-tmp/comp412.imp"
_imp_SELECTOUTPUT(1);
#line 1939 "regression-compile-tmp/comp412.imp"
_imp_SELECTINPUT(2);
                                                                //   1940  
                                                                //   1941     NEWLINE;  SPACES(5)
#line 1941 "regression-compile-tmp/comp412.imp"
_imp_NEWLINE();
#line 1941 "regression-compile-tmp/comp412.imp"
_imp_SPACES(5);
                                                                //   1942     PRINT STRING("EDINBURGH C.S. IMP COMPILER  VERSION ")
#line 1942 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(_imp_str_literal("EDINBURGH C.S. IMP COMPILER  VERSION "));
                                                                //   1943     PRINT STRING(VERSION)
#line 1943 "regression-compile-tmp/comp412.imp"
_imp_PRINTSTRING(VERSION);
                                                                //   1944     NEWLINES(2)
#line 1944 "regression-compile-tmp/comp412.imp"
_imp_NEWLINES(2);
                                                                //   1945  
                                                                //   1946     control = 0;      ! **** optimise only:  for supervisor maintenance
#line 1946 "regression-compile-tmp/comp412.imp"
CONTROL = 0;
                                                                //   1947     {CONTROL = COMREG(14)};  CGEN(CONTROL);  PUT('Z'+32)
#line 1947 "regression-compile-tmp/comp412.imp"
CGEN(CONTROL);
#line 1947 "regression-compile-tmp/comp412.imp"
PUT(122);
                                                                //   1948     LIST = 2
#line 1948 "regression-compile-tmp/comp412.imp"
LIST = 2;
                                                                //   1949     CODE=0
#line 1949 "regression-compile-tmp/comp412.imp"
CODE = 0;
                                                                //   1950     LREALS=0;                                ! REALSNORMAL
#line 1950 "regression-compile-tmp/comp412.imp"
LREALS = 0;
                                                                //   1951     FAULTY=0
#line 1951 "regression-compile-tmp/comp412.imp"
FAULTY = 0;
                                                                //   1952     OUT = 0
#line 1952 "regression-compile-tmp/comp412.imp"
OUT = 0;
                                                                //   1953     SYMTYPE=0; PAPP == PHRASE(APPEP);  APP = PAPP
#line 1953 "regression-compile-tmp/comp412.imp"
SYMTYPE = 0;
#line 1953 "regression-compile-tmp/comp412.imp"
PAPP = &(PHRASE-132)[153];
#line 1953 "regression-compile-tmp/comp412.imp"
APP = *PAPP;
                                                                //   1954     STATS=0; LINE NUM=0
#line 1954 "regression-compile-tmp/comp412.imp"
STATS = 0;
#line 1954 "regression-compile-tmp/comp412.imp"
LINENUM = 0;
                                                                //   1955     BUFFER(NULL STRING)=0
#line 1955 "regression-compile-tmp/comp412.imp"
(BUFFER-1)[401] = 0;
                                                                //   1956     T LIMIT=DICT END-1; G LIMIT=GBASE; LABEL=4
#line 1956 "regression-compile-tmp/comp412.imp"
TLIMIT = 2749;
#line 1956 "regression-compile-tmp/comp412.imp"
GLIMIT = 426;
#line 1956 "regression-compile-tmp/comp412.imp"
LABEL = 4;
                                                                //   1957     T MAX=GLOBAL; T BASE=GLOBAL
#line 1957 "regression-compile-tmp/comp412.imp"
TMAX = 0;
#line 1957 "regression-compile-tmp/comp412.imp"
TBASE = 0;
                                                                //   1958     X=0; ATOM1=0; LAST=0;  INHIBIT = 0
#line 1958 "regression-compile-tmp/comp412.imp"
X = 0;
#line 1958 "regression-compile-tmp/comp412.imp"
ATOM1 = 0;
#line 1958 "regression-compile-tmp/comp412.imp"
LAST = 0;
#line 1958 "regression-compile-tmp/comp412.imp"
INHIBIT = 0;
                                                                //   1959     COMPILE BLOCK(0,15,DICT(TLIMIT));        ! COMPILE A BEGIN TO START
#line 1959 "regression-compile-tmp/comp412.imp"
COMPILEBLOCK(0, 15, &DICT[TLIMIT]);
                                                                //   1960     PUT(';')
#line 1960 "regression-compile-tmp/comp412.imp"
PUT(59);
                                                                //   1961     PUT(4);                                  ! TO TERMINATE
#line 1961 "regression-compile-tmp/comp412.imp"
PUT(4);
                                                                //   1962     SEND;                                    ! CLEAR THE BUFFER
#line 1962 "regression-compile-tmp/comp412.imp"
SEND();
                                                                //   1963     SUMMARISE(LISTING)
#line 1963 "regression-compile-tmp/comp412.imp"
SUMMARISE(1);
                                                                //   1964  !!!!   COMREG(0) = -FAULTY
                                                                //   1965  !!!!   COMREG(0) = STATS %IF COMREG(0) = 0
                                                                //   1966     %signal 15,1 %if faulty # 0
#line 1966 "regression-compile-tmp/comp412.imp"
if (((FAULTY) == (0))) goto L_0211;
#line 1966 "regression-compile-tmp/comp412.imp"
_imp_signal(15, 1, 0, "");
#line 1966 "regression-compile-tmp/comp412.imp"
L_0211:;
                                                                //   1967  %ENDOFPROGRAM
#line 1967 "regression-compile-tmp/comp412.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 1967 "regression-compile-tmp/comp412.imp"
// End of file
