#include // 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< 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, , // 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, , // 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: * // 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<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