#include // 1 ! compiles OK with imp2021 but lots of work to be done. Look for ARRAY() maps. // 2 ! and commented machine code sections. (Search for !! in both cases) // 3 ! Next, fix file parameters and I/O // 4 ! Then worry about shorts and byte sex assumptions. // 5 // 6 ! May need to convert to C and compile in big-endian MIPS environment // 7 // 8 %CONSTSHORTINTEGERARRAY MAIN(1 : 217) = %C #line 8 "regression-compile-tmp/soaps-77.imp" const short MAIN[217] = { 1, 5, 14, 20, 26, 38, 43, 48, 54, 61, 68, 74, 79, 82, 84, 89, 96, 102, 108, 115, 122, 126, 0, 129, 133, 137, 142, 145, 152, 156, 161, 164, 168, 0, 171, 0, 178, 184, 185, 189, 190, 193, 196, 199, 0, 202, 205, 206, 208, 0, 211, 213, 215, 216, 219, 222, 225, 0, 228, 231, 236, 241, 244, 249, 0, 253, 259, 260, 264, 266, 267, 270, 271, 274, 277, 279, 280, 283, 286, 289, 292, 295, 298, 302, 305, 308, 311, 314, 317, 320, 324, 328, 332, 336, 340, 344, 348, 352, 355, 358, 0, 361, 363, 365, 373, 0, 381, 0, 385, 392, 393, 396, 397, 400, 403, 405, 406, 410, 0, 413, 418, 425, 432, 0, 435, 437, 0, 440, 445, 446, 450, 453, 456, 0, 459, 462, 463, 0, 469, 472, 473, 475, 0, 477, 489, 499, 506, 0, 509, 511, 512, 517, 0, 520, 0, 530, 534, 535, 538, 539, 0, 543, 546, 547, 0, 558, 565, 566, 571, 572, 576, 579, 0, 585, 587, 588, 591, 0, 594, 597, 0, 600, 602, 603, 608, 609, 614, 615, 618, 0, 620, 622, 623, 627, 628, 631, 634, 637, 0, 640, 646, 0, 651, 656, 657, 660, 661, 665, 0, 667, 0, 670, 674, 675, 678, 681, 683, }; // 9 1, 5, 14, 20, 26, 38, 43, 48, 54, 61, 68, 74, // 10 79, 82, 84, 89, 96, 102, 108, 115, 122, 126, 0, 129, // 11 133, 137, 142, 145, 152, 156, 161, 164, 168, 0, 171, 0, // 12 178, 184, 185, 189, 190, 193, 196, 199, 0, 202, 205, 206, // 13 208, 0, 211, 213, 215, 216, 219, 222, 225, 0, 228, 231, // 14 236, 241, 244, 249, 0, 253, 259, 260, 264, 266, 267, 270, // 15 271, 274, 277, 279, 280, 283, 286, 289, 292, 295, 298, 302, // 16 305, 308, 311, 314, 317, 320, 324, 328, 332, 336, 340, 344, // 17 348, 352, 355, 358, 0, 361, 363, 365, 373, 0, 381, 0, // 18 385, 392, 393, 396, 397, 400, 403, 405, 406, 410, 0, 413, // 19 418, 425, 432, 0, 435, 437, 0, 440, 445, 446, 450, 453, // 20 456, 0, 459, 462, 463, 0, 469, 472, 473, 475, 0, 477, // 21 489, 499, 506, 0, 509, 511, 512, 517, 0, 520, 0, 530, // 22 534, 535, 538, 539, 0, 543, 546, 547, 0, 558, 565, 566, // 23 571, 572, 576, 579, 0, 585, 587, 588, 591, 0, 594, 597, // 24 0, 600, 602, 603, 608, 609, 614, 615, 618, 0, 620, 622, // 25 623, 627, 628, 631, 634, 637, 0, 640, 646, 0, 651, 656, // 26 657, 660, 661, 665, 0, 667, 0, 670, 674, 675, 678, 681, // 27 683 // 28 %CONSTSHORTINTEGERARRAY SUB(2 : 684) = %C #line 28 "regression-compile-tmp/soaps-77.imp" const short SUB[683] = { 4119, 4288, (-8192), 0, 4149, 4168, 4197, 4166, 4286, 4119, 4230, (-8192), 0, 1, 8200, 24576, 4230, (-8192), 0, 8, 8221, 24576, 16384, (-8192), 0, 15, 8204, 20480, 16384, 4202, 21, 8244, 4168, 4197, 4166, (-8192), 0, 4154, 4246, (-20480), (-8192), 0, 4290, 4154, 4295, (-20480), 0, 23, 8223, 4255, (-8192), (-20480), 0, 4208, 4271, 4212, (-4096), 4261, (-8192), 0, 30, 8197, (-4096), 4261, (-8192), (-20480), 0, 35, 8196, 20480, (-8192), (-16384), 0, 41, 8198, 4215, (-8192), 0, 4130, 4096, 0, 4225, 0, 45, 8199, (-8192), (-20480), 0, 4309, 50, 8201, 4239, (-8192), (-20480), 0, 57, (-20480), 8202, 12288, (-8192), 0, 65, 8203, 4232, (-8192), (-20480), 0, 71, 77, 8193, 8205, (-8192), (-20480), 0, 85, 93, 8206, 8207, (-8192), (-20480), 0, 101, 8257, (-32768), 0, (-12288), (-8192), 0, 4202, 4134, 4141, 0, 103, 8246, 4143, 0, 106, 8208, 12288, 4141, 0, 116, 8209, 0, 123, 8210, 4136, 4168, 4197, 4166, 0, 130, 8211, 20480, 0, 15, 8204, 20480, 16384, 0, 136, 8212, 0, 141, 8213, 4146, 0, 149, 8214, 0, 8292, 4220, 154, 8245, 8192, 4132, 0, 8292, 4220, 154, 8245, 8192, 4132, 0, 4136, 4168, 4197, 4166, 0, 156, 8247, 0, 21, 8244, 0, 159, 8248, 0, 103, 8246, 0, 162, 8215, 4119, 0, 12288, 0, (-4096), 4204, 0, 12288, 0, 136, 8212, 0, 166, 8216, 0, 169, 8218, 0, 175, 8217, 0, 182, 8219, 0, 188, 8220, 0, 196, 188, 8194, 8220, 0, 71, 188, 8193, 8220, 0, 201, 8222, 0, 206, 201, 8195, 8222, 0, 211, 8224, 4161, 0, 218, 8249, 12288, 220, 8250, 8271, 0, 222, 8225, 8226, 0, 232, 8226, 0, 4172, 4197, 4166, 0, 237, 8251, 0, 239, 8252, 0, 241, 8253, 0, 237, 8251, 0, 103, 8246, 0, 239, 8252, 0, 243, 8254, 0, 245, 8255, 0, 248, 8256, 0, 250, 8257, 8257, 0, 101, 8257, 0, 253, 8258, 0, 256, 8259, 0, 258, 8260, 0, 260, 8261, 0, 263, 8262, 0, 21, 8244, 4168, 0, 266, 8263, 4168, 0, 269, 8264, 4168, 0, 271, 8267, 4168, 0, 273, 8265, 4168, 0, 276, 8266, 4168, 0, 278, 8268, 4168, 0, 281, 8272, 4168, 0, 162, 8215, 0, 283, 8227, 0, 154, 8245, 0, 12288, 0, 4202, 0, 218, 8249, 4168, 4197, 4166, 220, 8250, 0, 248, 8256, 4168, 4197, 4166, 248, 8256, 0, (-4096), 4204, 4206, 0, 218, 8249, 4168, 4197, 4166, 220, 8250, 0, 286, 8270, 4202, 0, 288, 8231, 0, 297, 8232, 0, 304, 8233, 0, 30, 8197, (-20480), 0, 20480, (-16384), 0, 312, 8234, 8199, (-20480), 0, 319, 8234, 8207, 28672, 24576, 20480, 0, 329, 8234, 8235, 28672, 24576, 20480, 0, 24576, 28672, 0, 12288, 0, (-4096), 4223, 0, 218, 8249, 12288, 220, 8250, 0, 248, (-8191), (-28672), 0, 336, (-24576), 0, 248, (-28672), 0, 339, (-28672), 0, 347, 8237, 4119, 0, 12288, 103, 8246, 4236, 4234, 0, 281, 8269, 4232, 0, 12288, 0, (-4096), 0, 352, 8238, (-4096), 218, 8249, 4283, 4246, 4279, 4281, 220, 8250, 0, 30, 8197, (-4096), 4253, 218, 8249, (-4096), 220, 8250, 0, 4246, 218, 8249, (-4096), 220, 8250, 0, 232, 8226, 0, 352, 8238, 0, 359, 8225, 4244, 4249, 0, 4163, 4305, 0, 4305, 218, 8249, 4168, 4197, 4166, 220, 8250, 4251, 0, 281, 8269, 4249, 4251, 0, 286, 8270, (-4096), 0, 4305, 4259, 4257, 0, 281, 8269, 4255, 0, 218, 8249, 4168, 12288, 154, 8245, 4168, 12288, 220, 8250, 0, 218, 8249, 4265, 4305, 4263, 220, 8250, 0, 281, 8269, 4265, 4305, 4263, 0, 4271, 232, 8226, 0, 4154, 4163, 0, 50, 8201, 4269, 232, 8226, 0, 359, 8225, 0, 77, 8205, 0, 4154, 4274, 0, 365, 8239, 0, 368, 8240, 0, 281, 8269, 0, 218, 8249, (-4096), 220, 8250, 0, 4277, 4283, 4246, 4279, 4281, 0, 50, 8201, 0, 4154, 0, 372, 8241, 0, 4149, 4168, 4197, 4166, 0, 377, 8228, 0, 381, 8229, 0, 387, 8230, 0, 288, 8231, 0, 359, 8225, (-4096), 4259, 4302, 0, 4305, 4300, 4298, (-8192), 0, 281, 8269, 4305, 4300, 4298, 0, 21, 8244, 12288, 0, 21, 8244, (-32768), 0, (-8192), 0, (-4096), 4307, 0, 281, 8269, (-4096), 4307, 0, 377, 8228, 0, 288, 8231, 0, 387, 8230, 0, }; // 29 4119, 4288, -8192, 0, 4149, 4168, 4197, 4166, 4286, // 30 4119, 4230, -8192, 0, 1, 8200, 24576, 4230, -8192, // 31 0, 8, 8221, 24576, 16384, -8192, 0, 15, 8204, // 32 20480, 16384, 4202, 21, 8244, 4168, 4197, 4166, -8192, // 33 0, 4154, 4246,-20480, -8192, 0, 4290, 4154, 4295, // 34 -20480, 0, 23, 8223, 4255, -8192,-20480, 0, 4208, // 35 4271, 4212, -4096, 4261, -8192, 0, 30, 8197, -4096, // 36 4261, -8192,-20480, 0, 35, 8196, 20480, -8192,-16384, // 37 0, 41, 8198, 4215, -8192, 0, 4130, 4096, 0, // 38 4225, 0, 45, 8199, -8192,-20480, 0, 4309, 50, // 39 8201, 4239, -8192,-20480, 0, 57,-20480, 8202, 12288, // 40 -8192, 0, 65, 8203, 4232, -8192,-20480, 0, 71, // 41 77, 8193, 8205, -8192,-20480, 0, 85, 93, 8206, // 42 8207, -8192,-20480, 0, 101, 8257,-32768, 0,-12288, // 43 -8192, 0, 4202, 4134, 4141, 0, 103, 8246, 4143, // 44 0, 106, 8208, 12288, 4141, 0, 116, 8209, 0, // 45 123, 8210, 4136, 4168, 4197, 4166, 0, 130, 8211, // 46 20480, 0, 15, 8204, 20480, 16384, 0, 136, 8212, // 47 0, 141, 8213, 4146, 0, 149, 8214, 0, 8292, // 48 4220, 154, 8245, 8192, 4132, 0, 8292, 4220, 154, // 49 8245, 8192, 4132, 0, 4136, 4168, 4197, 4166, 0, // 50 156, 8247, 0, 21, 8244, 0, 159, 8248, 0, // 51 103, 8246, 0, 162, 8215, 4119, 0, 12288, 0, // 52 -4096, 4204, 0, 12288, 0, 136, 8212, 0, 166, // 53 8216, 0, 169, 8218, 0, 175, 8217, 0, 182, // 54 8219, 0, 188, 8220, 0, 196, 188, 8194, 8220, // 55 0, 71, 188, 8193, 8220, 0, 201, 8222, 0, // 56 206, 201, 8195, 8222, 0, 211, 8224, 4161, 0, // 57 218, 8249, 12288, 220, 8250, 8271, 0, 222, 8225, // 58 8226, 0, 232, 8226, 0, 4172, 4197, 4166, 0, // 59 237, 8251, 0, 239, 8252, 0, 241, 8253, 0, // 60 237, 8251, 0, 103, 8246, 0, 239, 8252, 0, // 61 243, 8254, 0, 245, 8255, 0, 248, 8256, 0, // 62 250, 8257, 8257, 0, 101, 8257, 0, 253, 8258, // 63 0, 256, 8259, 0, 258, 8260, 0, 260, 8261, // 64 0, 263, 8262, 0, 21, 8244, 4168, 0, 266, // 65 8263, 4168, 0, 269, 8264, 4168, 0, 271, 8267, // 66 4168, 0, 273, 8265, 4168, 0, 276, 8266, 4168, // 67 0, 278, 8268, 4168, 0, 281, 8272, 4168, 0, // 68 162, 8215, 0, 283, 8227, 0, 154, 8245, 0, // 69 12288, 0, 4202, 0, 218, 8249, 4168, 4197, 4166, // 70 220, 8250, 0, 248, 8256, 4168, 4197, 4166, 248, // 71 8256, 0, -4096, 4204, 4206, 0, 218, 8249, 4168, // 72 4197, 4166, 220, 8250, 0, 286, 8270, 4202, 0, // 73 288, 8231, 0, 297, 8232, 0, 304, 8233, 0, // 74 30, 8197,-20480, 0, 20480,-16384, 0, 312, 8234, // 75 8199,-20480, 0, 319, 8234, 8207, 28672, 24576, 20480, // 76 0, 329, 8234, 8235, 28672, 24576, 20480, 0, 24576, // 77 28672, 0, 12288, 0, -4096, 4223, 0, 218, 8249, // 78 12288, 220, 8250, 0, 248, -8191,-28672, 0, 336, // 79 -24576, 0, 248,-28672, 0, 339,-28672, 0, 347, // 80 8237, 4119, 0, 12288, 103, 8246, 4236, 4234, 0, // 81 281, 8269, 4232, 0, 12288, 0, -4096, 0, 352, // 82 8238, -4096, 218, 8249, 4283, 4246, 4279, 4281, 220, // 83 8250, 0, 30, 8197, -4096, 4253, 218, 8249, -4096, // 84 220, 8250, 0, 4246, 218, 8249, -4096, 220, 8250, // 85 0, 232, 8226, 0, 352, 8238, 0, 359, 8225, // 86 4244, 4249, 0, 4163, 4305, 0, 4305, 218, 8249, // 87 4168, 4197, 4166, 220, 8250, 4251, 0, 281, 8269, // 88 4249, 4251, 0, 286, 8270, -4096, 0, 4305, 4259, // 89 4257, 0, 281, 8269, 4255, 0, 218, 8249, 4168, // 90 12288, 154, 8245, 4168, 12288, 220, 8250, 0, 218, // 91 8249, 4265, 4305, 4263, 220, 8250, 0, 281, 8269, // 92 4265, 4305, 4263, 0, 4271, 232, 8226, 0, 4154, // 93 4163, 0, 50, 8201, 4269, 232, 8226, 0, 359, // 94 8225, 0, 77, 8205, 0, 4154, 4274, 0, 365, // 95 8239, 0, 368, 8240, 0, 281, 8269, 0, 218, // 96 8249, -4096, 220, 8250, 0, 4277, 4283, 4246, 4279, // 97 4281, 0, 50, 8201, 0, 4154, 0, 372, 8241, // 98 0, 4149, 4168, 4197, 4166, 0, 377, 8228, 0, // 99 381, 8229, 0, 387, 8230, 0, 288, 8231, 0, // 100 359, 8225, -4096, 4259, 4302, 0, 4305, 4300, 4298, // 101 -8192, 0, 281, 8269, 4305, 4300, 4298, 0, 21, // 102 8244, 12288, 0, 21, 8244,-32768, 0, -8192, 0, // 103 -4096, 4307, 0, 281, 8269, -4096, 4307, 0, 377, // 104 8228, 0, 288, 8231, 0, 387, 8230, 0 // 105 %CONSTBYTEINTEGERARRAY LITERAL(1 : 396) = %C #line 105 "regression-compile-tmp/soaps-77.imp" const unsigned char LITERAL[396] = { 6, 102, 105, 110, 105, 115, 104, 6, 114, 101, 112, 101, 97, 116, 5, 99, 121, 99, 108, 101, 1, 61, 6, 115, 119, 105, 116, 99, 104, 4, 115, 112, 101, 99, 5, 98, 101, 103, 105, 110, 3, 101, 110, 100, 4, 108, 105, 115, 116, 6, 114, 101, 99, 111, 114, 100, 7, 99, 111, 110, 116, 114, 111, 108, 5, 102, 97, 117, 108, 116, 5, 115, 104, 111, 114, 116, 7, 114, 111, 117, 116, 105, 110, 101, 7, 116, 114, 117, 115, 116, 101, 100, 7, 112, 114, 111, 103, 114, 97, 109, 1, 42, 2, 45, 62, 9, 112, 114, 105, 110, 116, 116, 101, 120, 116, 6, 114, 101, 116, 117, 114, 110, 6, 114, 101, 115, 117, 108, 116, 5, 115, 116, 97, 114, 116, 4, 115, 116, 111, 112, 7, 109, 111, 110, 105, 116, 111, 114, 4, 101, 120, 105, 116, 1, 58, 2, 61, 61, 2, 60, 45, 3, 97, 110, 100, 2, 105, 102, 5, 119, 104, 105, 108, 101, 6, 117, 110, 108, 101, 115, 115, 5, 117, 110, 116, 105, 108, 7, 105, 110, 116, 101, 103, 101, 114, 4, 98, 121, 116, 101, 4, 114, 101, 97, 108, 4, 108, 111, 110, 103, 6, 115, 116, 114, 105, 110, 103, 1, 40, 1, 41, 9, 97, 114, 114, 97, 121, 110, 97, 109, 101, 4, 110, 97, 109, 101, 1, 43, 1, 45, 1, 92, 1, 38, 2, 33, 33, 1, 33, 2, 42, 42, 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, 62, 2, 60, 61, 1, 60, 1, 35, 2, 62, 61, 1, 62, 2, 92, 61, 1, 44, 2, 111, 114, 1, 95, 8, 101, 120, 116, 101, 114, 110, 97, 108, 6, 115, 121, 115, 116, 101, 109, 7, 100, 121, 110, 97, 109, 105, 99, 6, 111, 102, 108, 105, 115, 116, 9, 111, 102, 112, 114, 111, 103, 114, 97, 109, 6, 111, 102, 102, 105, 108, 101, 2, 33, 42, 7, 99, 111, 109, 109, 101, 110, 116, 4, 101, 108, 115, 101, 6, 102, 111, 114, 109, 97, 116, 5, 97, 114, 114, 97, 121, 2, 102, 110, 3, 109, 97, 112, 4, 116, 104, 101, 110, 3, 111, 119, 110, 5, 99, 111, 110, 115, 116, 9, 101, 120, 116, 114, 105, 110, 115, 105, 99, }; // 106 6, 102, 105, 110, 105, 115, 104, 6, 114, 101, 112, 101, // 107 97, 116, 5, 99, 121, 99, 108, 101, 1, 61, 6, 115, // 108 119, 105, 116, 99, 104, 4, 115, 112, 101, 99, 5, 98, // 109 101, 103, 105, 110, 3, 101, 110, 100, 4, 108, 105, 115, // 110 116, 6, 114, 101, 99, 111, 114, 100, 7, 99, 111, 110, // 111 116, 114, 111, 108, 5, 102, 97, 117, 108, 116, 5, 115, // 112 104, 111, 114, 116, 7, 114, 111, 117, 116, 105, 110, 101, // 113 7, 116, 114, 117, 115, 116, 101, 100, 7, 112, 114, 111, // 114 103, 114, 97, 109, 1, 42, 2, 45, 62, 9, 112, 114, // 115 105, 110, 116, 116, 101, 120, 116, 6, 114, 101, 116, 117, // 116 114, 110, 6, 114, 101, 115, 117, 108, 116, 5, 115, 116, // 117 97, 114, 116, 4, 115, 116, 111, 112, 7, 109, 111, 110, // 118 105, 116, 111, 114, 4, 101, 120, 105, 116, 1, 58, 2, // 119 61, 61, 2, 60, 45, 3, 97, 110, 100, 2, 105, 102, // 120 5, 119, 104, 105, 108, 101, 6, 117, 110, 108, 101, 115, // 121 115, 5, 117, 110, 116, 105, 108, 7, 105, 110, 116, 101, // 122 103, 101, 114, 4, 98, 121, 116, 101, 4, 114, 101, 97, // 123 108, 4, 108, 111, 110, 103, 6, 115, 116, 114, 105, 110, // 124 103, 1, 40, 1, 41, 9, 97, 114, 114, 97, 121, 110, // 125 97, 109, 101, 4, 110, 97, 109, 101, 1, 43, 1, 45, // 126 1, 92, 1, 38, 2, 33, 33, 1, 33, 2, 42, 42, // 127 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, // 128 62, 2, 60, 61, 1, 60, 1, 35, 2, 62, 61, 1, // 129 62, 2, 92, 61, 1, 44, 2, 111, 114, 1, 95, 8, // 130 101, 120, 116, 101, 114, 110, 97, 108, 6, 115, 121, 115, // 131 116, 101, 109, 7, 100, 121, 110, 97, 109, 105, 99, 6, // 132 111, 102, 108, 105, 115, 116, 9, 111, 102, 112, 114, 111, // 133 103, 114, 97, 109, 6, 111, 102, 102, 105, 108, 101, 2, // 134 33, 42, 7, 99, 111, 109, 109, 101, 110, 116, 4, 101, // 135 108, 115, 101, 6, 102, 111, 114, 109, 97, 116, 5, 97, // 136 114, 114, 97, 121, 2, 102, 110, 3, 109, 97, 112, 4, // 137 116, 104, 101, 110, 3, 111, 119, 110, 5, 99, 111, 110, // 138 115, 116, 9, 101, 120, 116, 114, 105, 110, 115, 105, 99 // 139 %CONSTBYTEINTEGERARRAY SFLAGS(1 : 80) = %C #line 139 "regression-compile-tmp/soaps-77.imp" const unsigned char SFLAGS[80] = { 3, 3, 3, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 1, 1, 1, 4, 0, 4, 0, 4, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, [49 ... 79] = 0 }; // 140 3, 3, 3, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, // 141 1, 1, 1, 4, 0, 4, 0, 4, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, // 142 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 143 0, 0, 0, 0, 0, 0, 0, 0 // 144 {%CONST}%OWNBYTEINTEGERARRAY KEYSYMS(1 : 381) = %C #line 144 "regression-compile-tmp/soaps-77.imp" static unsigned char KEYSYMS[381] = { 5, 83, 72, 79, 82, 84, 4, 66, 89, 84, 69, 4, 76, 79, 78, 71, 5, 66, 69, 71, 73, 78, 4, 83, 80, 69, 67, 3, 69, 78, 68, 4, 76, 73, 83, 84, 6, 70, 73, 78, 73, 83, 72, 6, 82, 69, 67, 79, 82, 68, 7, 67, 79, 78, 84, 82, 79, 76, 5, 70, 65, 85, 76, 84, 5, 67, 89, 67, 76, 69, 7, 82, 79, 85, 84, 73, 78, 69, 7, 84, 82, 85, 83, 84, 69, 68, 7, 80, 82, 79, 71, 82, 65, 77, 9, 80, 82, 73, 78, 84, 84, 69, 88, 84, 6, 82, 69, 84, 85, 82, 78, 6, 82, 69, 83, 85, 76, 84, 5, 83, 84, 65, 82, 84, 4, 83, 84, 79, 80, 7, 77, 79, 78, 73, 84, 79, 82, 4, 69, 88, 73, 84, 3, 65, 78, 68, 2, 73, 70, 6, 85, 78, 76, 69, 83, 83, 5, 87, 72, 73, 76, 69, 5, 85, 78, 84, 73, 76, 7, 73, 78, 84, 69, 71, 69, 82, 6, 82, 69, 80, 69, 65, 84, 4, 82, 69, 65, 76, 6, 83, 87, 73, 84, 67, 72, 6, 83, 84, 82, 73, 78, 71, 5, 65, 82, 82, 65, 89, 4, 78, 65, 77, 69, 2, 79, 82, 3, 79, 87, 78, 5, 67, 79, 78, 83, 84, 9, 69, 88, 84, 82, 73, 78, 83, 73, 67, 8, 69, 88, 84, 69, 82, 78, 65, 76, 6, 83, 89, 83, 84, 69, 77, 7, 68, 89, 78, 65, 77, 73, 67, 2, 79, 70, 4, 70, 73, 76, 69, 7, 67, 79, 77, 77, 69, 78, 84, 4, 69, 76, 83, 69, 6, 70, 79, 82, 77, 65, 84, 2, 70, 78, 3, 77, 65, 80, 4, 84, 72, 69, 78, 5, 82, 69, 65, 76, 83, 6, 78, 79, 82, 77, 65, 76, 1, 61, 1, 58, 2, 45, 62, 2, 61, 61, 2, 60, 45, 1, 40, 1, 41, 1, 43, 1, 45, 1, 92, 1, 38, 2, 33, 33, 1, 33, 1, 42, 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, 62, 2, 60, 61, 1, 60, 2, 62, 61, 1, 62, 1, 35, 2, 92, 61, 1, 44, 1, 95, 1, 32, 1, 44, }; // 145 5, 83, 72, 79, 82, 84, 4, 66, 89, 84, 69, 4, 76, 79, 78, 71, 5, 66, // 146 69, 71, 73, 78, 4, 83, 80, 69, 67, 3, 69, 78, 68, 4, 76, 73, 83, 84, // 147 6, 70, 73, 78, 73, 83, 72, 6, 82, 69, 67, 79, 82, 68, 7, 67, 79, 78, // 148 84, 82, 79, 76, 5, 70, 65, 85, 76, 84, 5, 67, 89, 67, 76, 69, 7, 82, // 149 79, 85, 84, 73, 78, 69, 7, 84, 82, 85, 83, 84, 69, 68, 7, 80, 82, 79, // 150 71, 82, 65, 77, 9, 80, 82, 73, 78, 84, 84, 69, 88, 84, 6, 82, 69, 84, // 151 85, 82, 78, 6, 82, 69, 83, 85, 76, 84, 5, 83, 84, 65, 82, 84, 4, 83, // 152 84, 79, 80, 7, 77, 79, 78, 73, 84, 79, 82, 4, 69, 88, 73, 84, 3, 65, // 153 78, 68, 2, 73, 70, 6, 85, 78, 76, 69, 83, 83, 5, 87, 72, 73, 76, 69, // 154 5, 85, 78, 84, 73, 76, 7, 73, 78, 84, 69, 71, 69, 82, 6, 82, 69, 80, // 155 69, 65, 84, 4, 82, 69, 65, 76, 6, 83, 87, 73, 84, 67, 72, 6, 83, 84, // 156 82, 73, 78, 71, 5, 65, 82, 82, 65, 89, 4, 78, 65, 77, 69, 2, 79, 82, // 157 3, 79, 87, 78, 5, 67, 79, 78, 83, 84, 9, 69, 88, 84, 82, 73, 78, 83, // 158 73, 67, 8, 69, 88, 84, 69, 82, 78, 65, 76, 6, 83, 89, 83, 84, 69, 77, // 159 7, 68, 89, 78, 65, 77, 73, 67, 2, 79, 70, 4, 70, 73, 76, 69, 7, 67, // 160 79, 77, 77, 69, 78, 84, 4, 69, 76, 83, 69, 6, 70, 79, 82, 77, 65, 84, // 161 2, 70, 78, 3, 77, 65, 80, 4, 84, 72, 69, 78, 5, 82, 69, 65, 76, 83, // 162 6, 78, 79, 82, 77, 65, 76, 1, 61, 1, 58, 2, 45, 62, 2, 61, 61, 2, // 163 60, 45, 1, 40, 1, 41, 1, 43, 1, 45, 1, 92, 1, 38, 2, 33, 33, 1, // 164 33, 1, 42, 2, 47, 47, 1, 47, 1, 46, 2, 60, 60, 2, 62, 62, 2, 60, // 165 61, 1, 60, 2, 62, 61, 1, 62, 1, 35, 2, 92, 61, 1, 44, 1, 95, 1, // 166 32, 1, 44 // 167 %CONSTSHORTINTEGERARRAY KEYWORD(1 : 80) = %C #line 167 "regression-compile-tmp/soaps-77.imp" const short KEYWORD[80] = { 0, 6, 11, 16, 22, 27, 31, 36, 43, 50, 58, 64, 70, 78, 86, 94, 104, 111, 118, 124, 129, 137, 142, 146, 149, 156, 162, 168, 176, 183, 188, 195, 202, 208, 213, 216, 220, 226, 236, 245, 252, 260, 263, 268, 276, 281, 288, 291, 295, 300, 306, 313, 315, 317, 320, 323, 326, 328, 330, 332, 334, 336, 338, 341, 343, 345, 348, 350, 352, 355, 358, 361, 363, 366, 368, 370, 373, 375, 377, 379, }; // 168 0, 6, 11, 16, 22, 27, 31, 36, 43, 50, 58, 64, 70, 78, // 169 86, 94, 104, 111, 118, 124, 129, 137, 142, 146, 149, 156, 162, 168, // 170 176, 183, 188, 195, 202, 208, 213, 216, 220, 226, 236, 245, 252, 260, // 171 263, 268, 276, 281, 288, 291, 295, 300, 306, 313, 315, 317, 320, 323, // 172 326, 328, 330, 332, 334, 336, 338, 341, 343, 345, 348, 350, 352, 355, // 173 358, 361, 363, 366, 368, 370, 373, 375, 377, 379 // 174 %CONSTBYTEINTEGERARRAY KFLAGS(1 : 80) = %C #line 174 "regression-compile-tmp/soaps-77.imp" const unsigned char KFLAGS[80] = { 144, 144, 144, 128, 129, 128, 128, 128, 128, 128, 128, 128, 128, 144, 128, 128, 128, 128, 128, 128, 144, 128, 160, 130, 130, 130, 130, 128, 128, 128, 128, 128, 145, 129, 128, 144, 144, 144, 144, 144, 144, 145, 128, 128, 162, 129, 129, 129, 160, 144, 128, 8, 8, 8, 8, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8, 64, 0, 0, 0, }; // 175 144, 144, 144, 128, 129, 128, 128, 128, 128, 128, 128, 128, 128, 144, // 176 128, 128, 128, 128, 128, 128, 144, 128, 160, 130, 130, 130, 130, 128, // 177 128, 128, 128, 128, 145, 129, 128, 144, 144, 144, 144, 144, 144, 145, // 178 128, 128, 162, 129, 129, 129, 160, 144, 128, 8, 8, 8, 8, 8, // 179 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 180 8, 8, 8, 8, 8, 8, 64, 0, 0, 0 // 181 %OWNBYTEINTEGER ISOLATE BRACKETS = 0; ! 'IB' #line 181 "regression-compile-tmp/soaps-77.imp" static unsigned char ISOLATEBRACKETS = 0; // 182 %OWNBYTEINTEGER LEAVE BLANKS = 0; ! 'LB' #line 182 "regression-compile-tmp/soaps-77.imp" static unsigned char LEAVEBLANKS = 0; // 183 %OWNBYTEINTEGER SEP BLOCKS = 1; ! 'SB' #line 183 "regression-compile-tmp/soaps-77.imp" static unsigned char SEPBLOCKS = 1; // 184 %OWNBYTEINTEGER INDENT BLOCKS = 1; ! 'TB' #line 184 "regression-compile-tmp/soaps-77.imp" static unsigned char INDENTBLOCKS = 1; // 185 %OWNBYTEINTEGER SPLIT KEYWORDS = 0; ! 'SK' #line 185 "regression-compile-tmp/soaps-77.imp" static unsigned char SPLITKEYWORDS = 0; // 186 %OWNBYTEINTEGER PACK NAMES = 0; ! 'PN' #line 186 "regression-compile-tmp/soaps-77.imp" static unsigned char PACKNAMES = 0; // 187 %OWNBYTEINTEGER SPLIT STATS = 0; ! 'SS' #line 187 "regression-compile-tmp/soaps-77.imp" static unsigned char SPLITSTATS = 0; // 188 %OWNBYTEINTEGER COMMENTS NORMAL = 0; ! 'CN' #line 188 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTSNORMAL = 0; // 189 %OWNBYTEINTEGER BREAK COMMENTS = 1; ! 'BC' #line 189 "regression-compile-tmp/soaps-77.imp" static unsigned char BREAKCOMMENTS = 1; // 190 %OWNBYTEINTEGER LEAVE STARS = 1; ! 'LS' #line 190 "regression-compile-tmp/soaps-77.imp" static unsigned char LEAVESTARS = 1; // 191 %OWNBYTEINTEGER JUSTIFY ALL = 0; ! 'JA' #line 191 "regression-compile-tmp/soaps-77.imp" static unsigned char JUSTIFYALL = 0; // 192 %OWNBYTEINTEGER LABELS RELATIVE = 0; ! 'LR' #line 192 "regression-compile-tmp/soaps-77.imp" static unsigned char LABELSRELATIVE = 0; // 193 %OWNBYTEINTEGER SPLIT CONDS = 1; ! 'SC' #line 193 "regression-compile-tmp/soaps-77.imp" static unsigned char SPLITCONDS = 1; // 194 %OWNBYTEINTEGER DECS RELATIVE = 1; ! 'DR' #line 194 "regression-compile-tmp/soaps-77.imp" static unsigned char DECSRELATIVE = 1; // 195 %OWNBYTEINTEGER SPACE LISTS = 1; ! 'SL' #line 195 "regression-compile-tmp/soaps-77.imp" static unsigned char SPACELISTS = 1; // 196 %OWNBYTEINTEGER SPACE EQUALS = 1; ! 'SE' #line 196 "regression-compile-tmp/soaps-77.imp" static unsigned char SPACEEQUALS = 1; // 197 %OWNBYTEINTEGER ISOLATE LOOPS = 1; ! 'IL' #line 197 "regression-compile-tmp/soaps-77.imp" static unsigned char ISOLATELOOPS = 1; // 198 %OWNBYTEINTEGER EXTRA MARGIN = 0; ! 'EM' #line 198 "regression-compile-tmp/soaps-77.imp" static unsigned char EXTRAMARGIN = 0; // 199 %OWNBYTEINTEGER LEAVE OWNS = 0; ! 'LO' #line 199 "regression-compile-tmp/soaps-77.imp" static unsigned char LEAVEOWNS = 0; // 200 %OWNBYTEINTEGER COMMENTS RELATIVE = 1; ! 'CR' #line 200 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTSRELATIVE = 1; // 201 %OWNBYTEINTEGER EXTEND COMMENTS = 1; ! 'EC' #line 201 "regression-compile-tmp/soaps-77.imp" static unsigned char EXTENDCOMMENTS = 1; // 202 %OWNBYTEINTEGER MI = 3; ! MARGIN INCREMENT #line 202 "regression-compile-tmp/soaps-77.imp" static unsigned char MI = 3; // 203 %OWNBYTEINTEGER LL = 72; ! LINE LENGTH #line 203 "regression-compile-tmp/soaps-77.imp" static unsigned char LL = 72; // 204 %OWNBYTEINTEGER CT = 40; ! COMMENT TAB #line 204 "regression-compile-tmp/soaps-77.imp" static unsigned char CT = 40; // 205 %OWNBYTEINTEGER ML = 40; ! MARGIN LIMIT #line 205 "regression-compile-tmp/soaps-77.imp" static unsigned char ML = 40; // 206 %OWNBYTEINTEGER COMMENT EXTENSION = 5; ! 'CE' #line 206 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTEXTENSION = 5; // 207 %OWNBYTEINTEGER EXT NUM = 2; ! 'XN' #line 207 "regression-compile-tmp/soaps-77.imp" static unsigned char EXTNUM = 2; // 208 %OWNBYTEINTEGER INITIAL MARGIN = 7; ! 'IM' #line 208 "regression-compile-tmp/soaps-77.imp" static unsigned char INITIALMARGIN = 7; // 209 %OWNBYTEINTEGER SECONDARY MARGIN = 3; ! 'SM' #line 209 "regression-compile-tmp/soaps-77.imp" static unsigned char SECONDARYMARGIN = 3; // 210 %OWNBYTEINTEGER COMMENT LIMIT = 20; ! 'CL' #line 210 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTLIMIT = 20; // 211 %OWNBYTEINTEGER COMMENT LINE = 120; ! 'LC' #line 211 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTLINE = 120; // 212 %OWNSHORTINTEGER SAFETY FACTOR = 5 #line 212 "regression-compile-tmp/soaps-77.imp" static short SAFETYFACTOR = 5; // 213 %OWNINTEGER DELTA MARGIN = 3 #line 213 "regression-compile-tmp/soaps-77.imp" static int DELTAMARGIN = 3; // 214 %OWNINTEGER LINE LENGTH = 70 #line 214 "regression-compile-tmp/soaps-77.imp" static int LINELENGTH = 70; // 215 %OWNINTEGER COMMENT TAB = 40 #line 215 "regression-compile-tmp/soaps-77.imp" static int COMMENTTAB = 40; // 216 %OWNINTEGER LEVEL = 1, MLIMIT = 0, SEC MARGIN = 3 #line 216 "regression-compile-tmp/soaps-77.imp" static int LEVEL = 1; #line 216 "regression-compile-tmp/soaps-77.imp" static int MLIMIT = 0; #line 216 "regression-compile-tmp/soaps-77.imp" static int SECMARGIN = 3; // 217 %OWNBYTEINTEGER COMMENT FLAG #line 217 "regression-compile-tmp/soaps-77.imp" static unsigned char COMMENTFLAG; // 218 %OWNBYTEINTEGER CMODE, LOOP FLAG #line 218 "regression-compile-tmp/soaps-77.imp" static unsigned char CMODE; #line 218 "regression-compile-tmp/soaps-77.imp" static unsigned char LOOPFLAG; // 219 %OWNINTEGER LINESIZE, CS, DISP, D, RMARGIN, FIRST DISP #line 219 "regression-compile-tmp/soaps-77.imp" static int LINESIZE; #line 219 "regression-compile-tmp/soaps-77.imp" static int CS; #line 219 "regression-compile-tmp/soaps-77.imp" static int DISP; #line 219 "regression-compile-tmp/soaps-77.imp" static int D; #line 219 "regression-compile-tmp/soaps-77.imp" static int RMARGIN; #line 219 "regression-compile-tmp/soaps-77.imp" static int FIRSTDISP; // 220 %OWNINTEGER SIZE, CSTART, LINE BASE, FULL LINE #line 220 "regression-compile-tmp/soaps-77.imp" static int SIZE; #line 220 "regression-compile-tmp/soaps-77.imp" static int CSTART; #line 220 "regression-compile-tmp/soaps-77.imp" static int LINEBASE; #line 220 "regression-compile-tmp/soaps-77.imp" static int FULLLINE; // 221 %EXTERNALROUTINE PROMPT(%STRING (63) S) #line 221 "regression-compile-tmp/soaps-77.imp" void PROMPT( _imp_string /*%string(63)*/ S ) #line 221 "regression-compile-tmp/soaps-77.imp" { // 222 PRINT STRING(S) #line 222 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(S); // 223 %END #line 223 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PROMPT at level 1 // 224 // 225 !%EXTERNALROUTINESPEC DEFINE(%STRING (63) S) // 226 %EXTERNALROUTINESPEC SEND(%STRING (63) S) #line 226 "regression-compile-tmp/soaps-77.imp" extern void SEND( _imp_string /*%string(63)*/ S ); // 227 %EXTERNALROUTINESPEC LIST(%STRING (63) S) #line 227 "regression-compile-tmp/soaps-77.imp" extern void LIST( _imp_string /*%string(63)*/ S ); // 228 %EXTERNALROUTINESPEC DESTROY(%STRING (63) S) #line 228 "regression-compile-tmp/soaps-77.imp" extern void DESTROY( _imp_string /*%string(63)*/ S ); // 229 %EXTERNALROUTINESPEC RENAME(%STRING (63) S) #line 229 "regression-compile-tmp/soaps-77.imp" extern void RENAME( _imp_string /*%string(63)*/ S ); // 230 %INTEGERFNSPEC PARSE(%INTEGER EP) #line 230 "regression-compile-tmp/soaps-77.imp" int PARSE( int EP ); // 231 %OWNSTRING (255) INPUT, OUTPUT, OPTION FILE, ST, OPLIST #line 231 "regression-compile-tmp/soaps-77.imp" static _imp_string /*%string(255)*/ INPUT; #line 231 "regression-compile-tmp/soaps-77.imp" static _imp_string /*%string(255)*/ OUTPUT; #line 231 "regression-compile-tmp/soaps-77.imp" static _imp_string /*%string(255)*/ OPTIONFILE; #line 231 "regression-compile-tmp/soaps-77.imp" static _imp_string /*%string(255)*/ ST; #line 231 "regression-compile-tmp/soaps-77.imp" static _imp_string /*%string(255)*/ OPLIST; // 232 %OWNINTEGER SPT, SAD, S #line 232 "regression-compile-tmp/soaps-77.imp" static int SPT; #line 232 "regression-compile-tmp/soaps-77.imp" static int SAD; #line 232 "regression-compile-tmp/soaps-77.imp" static int S; // 233 %OWNBYTEINTEGER SPACES, MODE #line 233 "regression-compile-tmp/soaps-77.imp" static unsigned char SPACES; #line 233 "regression-compile-tmp/soaps-77.imp" static unsigned char MODE; // 234 %OWNBYTEINTEGER OK, THIS SEP #line 234 "regression-compile-tmp/soaps-77.imp" static unsigned char OK; #line 234 "regression-compile-tmp/soaps-77.imp" static unsigned char THISSEP; // 235 %CONSTINTEGER LAST TEXT = 51 // 236 %OWNINTEGER HEADER, SEGS #line 236 "regression-compile-tmp/soaps-77.imp" static int HEADER; #line 236 "regression-compile-tmp/soaps-77.imp" static int SEGS; // 237 %OWNINTEGERARRAY STRINGS(1 : 100); !(-100 : -1) #line 237 "regression-compile-tmp/soaps-77.imp" static int STRINGS[100]; // 238 %OWNINTEGER COMMENT LENGTH #line 238 "regression-compile-tmp/soaps-77.imp" static int COMMENTLENGTH; // 239 %OWNSHORTINTEGERARRAY REM(1 : 4) #line 239 "regression-compile-tmp/soaps-77.imp" static short REM[4]; // 240 %OWNBYTEINTEGERARRAY SYMFILE(0 : 300) #line 240 "regression-compile-tmp/soaps-77.imp" static unsigned char SYMFILE[301]; // 241 %OWNBYTEINTEGERARRAY TLENGTH(1 : 100);!(-100 : -1) #line 241 "regression-compile-tmp/soaps-77.imp" static unsigned char TLENGTH[100]; // 242 %OWNINTEGERARRAY REC(1 : 100) #line 242 "regression-compile-tmp/soaps-77.imp" static int REC[100]; // 243 %OWNBYTEINTEGER STATUS, OPTIONS, LAST SEP, FLAG, PMODE #line 243 "regression-compile-tmp/soaps-77.imp" static unsigned char STATUS; #line 243 "regression-compile-tmp/soaps-77.imp" static unsigned char OPTIONS; #line 243 "regression-compile-tmp/soaps-77.imp" static unsigned char LASTSEP; #line 243 "regression-compile-tmp/soaps-77.imp" static unsigned char FLAG; #line 243 "regression-compile-tmp/soaps-77.imp" static unsigned char PMODE; // 244 %OWNBYTEINTEGER QUOTES = 0, OWNFLAG = ';' #line 244 "regression-compile-tmp/soaps-77.imp" static unsigned char QUOTES = 0; #line 244 "regression-compile-tmp/soaps-77.imp" static unsigned char OWNFLAG = 59; // 245 %OWNINTEGER NVAL #line 245 "regression-compile-tmp/soaps-77.imp" static int NVAL; // 246 !%REGISTER CURRIN(14) // 247 %OWNINTEGER CURRIN #line 247 "regression-compile-tmp/soaps-77.imp" static int CURRIN; // 248 %OWNINTEGER CURROUT, SLENGTH, LIMIT, MARGIN, INBASE, STATSIZE #line 248 "regression-compile-tmp/soaps-77.imp" static int CURROUT; #line 248 "regression-compile-tmp/soaps-77.imp" static int SLENGTH; #line 248 "regression-compile-tmp/soaps-77.imp" static int LIMIT; #line 248 "regression-compile-tmp/soaps-77.imp" static int MARGIN; #line 248 "regression-compile-tmp/soaps-77.imp" static int INBASE; #line 248 "regression-compile-tmp/soaps-77.imp" static int STATSIZE; // 249 %OWNINTEGER STAT, KEYBASE, TEXTBASE, J, SN, RP, RPLIM, RPINC #line 249 "regression-compile-tmp/soaps-77.imp" static int STAT; #line 249 "regression-compile-tmp/soaps-77.imp" static int KEYBASE; #line 249 "regression-compile-tmp/soaps-77.imp" static int TEXTBASE; #line 249 "regression-compile-tmp/soaps-77.imp" static int J; #line 249 "regression-compile-tmp/soaps-77.imp" static int SN; #line 249 "regression-compile-tmp/soaps-77.imp" static int RP; #line 249 "regression-compile-tmp/soaps-77.imp" static int RPLIM; #line 249 "regression-compile-tmp/soaps-77.imp" static int RPINC; // 250 %OWNINTEGER MAXMARGIN, ENDOFFILE #line 250 "regression-compile-tmp/soaps-77.imp" static int MAXMARGIN; #line 250 "regression-compile-tmp/soaps-77.imp" static int ENDOFFILE; // 251 %CONSTINTEGER CCC = X'2025430A' // 252 %CONSTINTEGER CONNEKTEP = 1 // 253 %CONSTINTEGER CREATEEP = 162 // 254 %CONSTINTEGER READEP = 7 // 255 %CONSTINTEGER INFOEP = 5 // 256 %CONSTINTEGER CHANGEEP = 6 // 257 %ROUTINESPEC SET UP FILES(%STRING(*)%NAME S) #line 257 "regression-compile-tmp/soaps-77.imp" void SETUPFILES( _imp_string /*%string(255)*/ /*name*/*S ); // 258 %ROUTINESPEC CLOSE FILES #line 258 "regression-compile-tmp/soaps-77.imp" void CLOSEFILES( void ); // 259 %ROUTINESPEC SET OPTIONS #line 259 "regression-compile-tmp/soaps-77.imp" void SETOPTIONS( void ); // 260 // 261 %DYNAMICROUTINESPEC CHERISH(%STRING(63) S) #line 261 "regression-compile-tmp/soaps-77.imp" extern void CHERISH( _imp_string /*%string(63)*/ S ); // 262 // 263 // 264 %ROUTINE CONTINUE #line 264 "regression-compile-tmp/soaps-77.imp" void CONTINUE( void ) #line 264 "regression-compile-tmp/soaps-77.imp" { // 265 !%SHORTROUTINE // 266 %ROUTINESPEC ADJUST #line 266 "regression-compile-tmp/soaps-77.imp" auto void ADJUST( void ); // 267 %INTEGERARRAY HOLD(1 : 4) #line 267 "regression-compile-tmp/soaps-77.imp" int HOLD[4]; // 268 %INTEGER J, K, L, M, N, Z, LIM, XES #line 268 "regression-compile-tmp/soaps-77.imp" int J; #line 268 "regression-compile-tmp/soaps-77.imp" int K; #line 268 "regression-compile-tmp/soaps-77.imp" int L; #line 268 "regression-compile-tmp/soaps-77.imp" int M; #line 268 "regression-compile-tmp/soaps-77.imp" int N; #line 268 "regression-compile-tmp/soaps-77.imp" int Z; #line 268 "regression-compile-tmp/soaps-77.imp" int LIM; #line 268 "regression-compile-tmp/soaps-77.imp" int XES; // 269 !!%BYTEINTEGERARRAYFORMAT NFM(1 : 4) // 270 %BYTEINTEGERARRAYNAME NEST #line 270 "regression-compile-tmp/soaps-77.imp" unsigned char /*arrayname*/*NEST; // 271 %BYTEINTEGER S, CFLAG #line 271 "regression-compile-tmp/soaps-77.imp" unsigned char S; #line 271 "regression-compile-tmp/soaps-77.imp" unsigned char CFLAG; // 272 !!NEST == ARRAY(ADDR(NVAL),NFM) // 273 THIS SEP = NL; LIM = MARGIN+SAFETY FACTOR+SEC MARGIN #line 273 "regression-compile-tmp/soaps-77.imp" THISSEP = 10; #line 273 "regression-compile-tmp/soaps-77.imp" LIM = (((int)(((MARGIN) + ((int)(SAFETYFACTOR))))) + (SECMARGIN)); // 274 Z = SLENGTH+CURROUT #line 274 "regression-compile-tmp/soaps-77.imp" Z = (((int)(SLENGTH)) + (CURROUT)); // 275 %RETURN %IF Z < LIMIT %OR (Z-SAFETY FACTOR-LIMIT < -4 %C #line 275 "regression-compile-tmp/soaps-77.imp" if (((Z) < (LIMIT))) goto L_0002; #line 275 "regression-compile-tmp/soaps-77.imp" if ((((((int)(((Z) - ((int)(SAFETYFACTOR))))) - (LIMIT))) >= ((-4)))) goto L_0003; #line 275 "regression-compile-tmp/soaps-77.imp" if ((((REC-1)[(((int)(RP)) + (1))]) != (0))) goto L_0003; #line 275 "regression-compile-tmp/soaps-77.imp" L_0002:; #line 275 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 275 "regression-compile-tmp/soaps-77.imp" L_0003:; // 276 %AND REC(RP+1) = 0) // 277 ! LEAVE TWO SPACES FOR " %" IF NESC. // 278 XES = Z-LIMIT; ! EXCESS LINE LENGTH #line 278 "regression-compile-tmp/soaps-77.imp" XES = (((int)(Z)) - (LIMIT)); // 279 // 280 %CYCLE J = 1,1,4; HOLD(J) = NEST(J)+CURROUT-LINE BASE #line 280 "regression-compile-tmp/soaps-77.imp" J = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4"); L_0004:; if (J == 4) goto L_0005; J += 1; #line 280 "regression-compile-tmp/soaps-77.imp" HOLD[(((int)(J)) - (1))] = (((int)((((int)(NEST[J])) + (CURROUT)))) - (LINEBASE)); // 281 %REPEAT #line 281 "regression-compile-tmp/soaps-77.imp" goto L_0004; #line 281 "regression-compile-tmp/soaps-77.imp" L_0005:; // 282 // 283 %IF LAST SEP = ';' %THEN %START #line 283 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_0007; // 284 N = CURROUT; QUOTES = 0 #line 284 "regression-compile-tmp/soaps-77.imp" N = CURROUT; #line 284 "regression-compile-tmp/soaps-77.imp" QUOTES = 0; // 285 // 286 %CYCLE #line 286 "regression-compile-tmp/soaps-77.imp" L_0008:; // 287 N = N-1; S = BYTEINTEGER(N) #line 287 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) - (1)); #line 287 "regression-compile-tmp/soaps-77.imp" S = *_imp_BYTEINTEGER(N); // 288 QUOTES = QUOTES!!1 %IF S = '''' #line 288 "regression-compile-tmp/soaps-77.imp" if (((S) != (39))) goto L_000b; #line 288 "regression-compile-tmp/soaps-77.imp" QUOTES = ((QUOTES) ^ (1)); #line 288 "regression-compile-tmp/soaps-77.imp" L_000b:; // 289 %REPEAT %UNTIL S = ';' %AND QUOTES = 0 #line 289 "regression-compile-tmp/soaps-77.imp" if (((S) != (59))) goto L_000a; #line 289 "regression-compile-tmp/soaps-77.imp" if (((QUOTES) == (0))) goto L_0009; #line 289 "regression-compile-tmp/soaps-77.imp" L_000a:; #line 289 "regression-compile-tmp/soaps-77.imp" goto L_0008; #line 289 "regression-compile-tmp/soaps-77.imp" L_0009:; // 290 // 291 BYTEINTEGER(N) = NL; LIMIT = N+LINELENGTH #line 291 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(N) = 10; #line 291 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(N)) + (LINELENGTH)); // 292 LINE BASE = N #line 292 "regression-compile-tmp/soaps-77.imp" LINEBASE = N; // 293 K = CURROUT+80; M = K #line 293 "regression-compile-tmp/soaps-77.imp" K = (((int)(CURROUT)) + (80)); #line 293 "regression-compile-tmp/soaps-77.imp" M = K; // 294 // 295 %CYCLE L = N+3,1,CURROUT #line 295 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(N)) + (3)); _increment = 1; _final = CURROUT; L = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(N)) + (3)), 1, CURROUT"); L -= _increment; _control -= _increment; L_000c:; if (L == _final) goto L_000d; L += _increment; _control += _increment; if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */ } // 296 K = K+1; BYTEINTEGER(K) = BYTEINTEGER(L) #line 296 "regression-compile-tmp/soaps-77.imp" K = (((int)(K)) + (1)); #line 296 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(K) = *_imp_BYTEINTEGER(L); // 297 %REPEAT #line 297 "regression-compile-tmp/soaps-77.imp" goto L_000c; #line 297 "regression-compile-tmp/soaps-77.imp" L_000d:; // 298 // 299 %CYCLE L = 1,1,MARGIN #line 299 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = MARGIN; L = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = 1, 1, MARGIN"); L -= _increment; _control -= _increment; L_000f:; if (L == _final) goto L_0010; L += _increment; _control += _increment; if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */ } // 300 N = N+1; BYTEINTEGER(N) = ' ' #line 300 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) + (1)); #line 300 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(N) = 32; // 301 %REPEAT #line 301 "regression-compile-tmp/soaps-77.imp" goto L_000f; #line 301 "regression-compile-tmp/soaps-77.imp" L_0010:; // 302 // 303 %CYCLE L = M+1,1,K #line 303 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(M)) + (1)); _increment = 1; _final = K; L = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(M)) + (1)), 1, K"); L -= _increment; _control -= _increment; L_0012:; if (L == _final) goto L_0013; L += _increment; _control += _increment; if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */ } // 304 N = N+1; BYTEINTEGER(N) = BYTEINTEGER(L) #line 304 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) + (1)); #line 304 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(N) = *_imp_BYTEINTEGER(L); // 305 %REPEAT #line 305 "regression-compile-tmp/soaps-77.imp" goto L_0012; #line 305 "regression-compile-tmp/soaps-77.imp" L_0013:; // 306 // 307 CURROUT = N #line 307 "regression-compile-tmp/soaps-77.imp" CURROUT = N; // 308 LAST SEP = NL #line 308 "regression-compile-tmp/soaps-77.imp" LASTSEP = 10; // 309 ADJUST #line 309 "regression-compile-tmp/soaps-77.imp" ADJUST(); // 310 %RETURN %IF CURROUT+SLENGTH < LIMIT #line 310 "regression-compile-tmp/soaps-77.imp" if ((((((int)(CURROUT)) + (SLENGTH))) >= (LIMIT))) goto L_0015; #line 310 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 310 "regression-compile-tmp/soaps-77.imp" L_0015:; // 311 %FINISH #line 311 "regression-compile-tmp/soaps-77.imp" L_0007:; // 312 NEST(3) = 0 %IF NEST(4) # 0 %AND REC(REM(4)-1) >= 4 #line 312 "regression-compile-tmp/soaps-77.imp" if (((NEST[4]) == (0))) goto L_0016; #line 312 "regression-compile-tmp/soaps-77.imp" if ((((REC-1)[(((int)((REM-1)[4])) - (1))]) < (4))) goto L_0016; #line 312 "regression-compile-tmp/soaps-77.imp" NEST[3] = 0; #line 312 "regression-compile-tmp/soaps-77.imp" L_0016:; // 313 CFLAG = 0 #line 313 "regression-compile-tmp/soaps-77.imp" CFLAG = 0; // 314 // 315 %CYCLE J = 1,1,4 #line 315 "regression-compile-tmp/soaps-77.imp" J = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4"); L_0017:; if (J == 4) goto L_0018; J += 1; // 316 N = NEST(J) #line 316 "regression-compile-tmp/soaps-77.imp" N = NEST[J]; // 317 %IF N > LIM %START #line 317 "regression-compile-tmp/soaps-77.imp" if (((N) <= (LIM))) goto L_001a; // 318 N = N+LINE BASE #line 318 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) + (LINEBASE)); // 319 CFLAG = 1 %AND %EXIT %IF N < CURROUT #line 319 "regression-compile-tmp/soaps-77.imp" if (((N) >= (CURROUT))) goto L_001b; #line 319 "regression-compile-tmp/soaps-77.imp" CFLAG = 1; #line 319 "regression-compile-tmp/soaps-77.imp" goto L_0018; #line 319 "regression-compile-tmp/soaps-77.imp" L_001b:; // 320 %FINISH #line 320 "regression-compile-tmp/soaps-77.imp" L_001a:; // 321 %REPEAT #line 321 "regression-compile-tmp/soaps-77.imp" goto L_0017; #line 321 "regression-compile-tmp/soaps-77.imp" L_0018:; // 322 // 323 %IF CFLAG # 0 %START #line 323 "regression-compile-tmp/soaps-77.imp" if (((CFLAG) == (0))) goto L_001c; // 324 %IF NEST(J)-MARGIN-SEC MARGIN-SAFETY FACTOR < XES %START #line 324 "regression-compile-tmp/soaps-77.imp" if ((((((short)((((int)((((int)(NEST[J])) - (MARGIN)))) - (SECMARGIN)))) - (SAFETYFACTOR))) >= (XES))) goto L_001d; // 325 K = J #line 325 "regression-compile-tmp/soaps-77.imp" K = J; // 326 // 327 %WHILE K < 4 %CYCLE #line 327 "regression-compile-tmp/soaps-77.imp" L_001e:; #line 327 "regression-compile-tmp/soaps-77.imp" if (((K) >= (4))) goto L_001f; // 328 K = K+1 #line 328 "regression-compile-tmp/soaps-77.imp" K = (((int)(K)) + (1)); // 329 CFLAG = 0 %AND %EXIT %IF NEST(K) # 0 #line 329 "regression-compile-tmp/soaps-77.imp" if (((NEST[K]) == (0))) goto L_0021; #line 329 "regression-compile-tmp/soaps-77.imp" CFLAG = 0; #line 329 "regression-compile-tmp/soaps-77.imp" goto L_001f; #line 329 "regression-compile-tmp/soaps-77.imp" L_0021:; // 330 %REPEAT #line 330 "regression-compile-tmp/soaps-77.imp" goto L_001e; #line 330 "regression-compile-tmp/soaps-77.imp" L_001f:; // 331 // 332 %IF CFLAG = 0 %START #line 332 "regression-compile-tmp/soaps-77.imp" if (((CFLAG) != (0))) goto L_0022; // 333 L = NEST(K)+LINE BASE #line 333 "regression-compile-tmp/soaps-77.imp" L = (((int)(NEST[K])) + (LINEBASE)); // 334 J = K %AND N = L %C #line 334 "regression-compile-tmp/soaps-77.imp" if (((NEST[K]) <= (LIM))) goto L_0023; #line 334 "regression-compile-tmp/soaps-77.imp" if (((L) >= (CURROUT))) goto L_0023; #line 334 "regression-compile-tmp/soaps-77.imp" J = K; #line 334 "regression-compile-tmp/soaps-77.imp" N = L; #line 334 "regression-compile-tmp/soaps-77.imp" L_0023:; // 335 %IF NEST(K) > LIM %AND L < CURROUT // 336 %FINISH #line 336 "regression-compile-tmp/soaps-77.imp" L_0022:; // 337 %FINISH #line 337 "regression-compile-tmp/soaps-77.imp" L_001d:; // 338 J = 3 %AND N = NEST(3)+LINE BASE %C #line 338 "regression-compile-tmp/soaps-77.imp" if (((J) != (4))) goto L_0024; #line 338 "regression-compile-tmp/soaps-77.imp" if ((((REM-1)[3]) != ((((int)((REM-1)[4])) - (1))))) goto L_0024; #line 338 "regression-compile-tmp/soaps-77.imp" J = 3; #line 338 "regression-compile-tmp/soaps-77.imp" N = (((int)(NEST[3])) + (LINEBASE)); #line 338 "regression-compile-tmp/soaps-77.imp" L_0024:; // 339 %IF J = 4 %AND REM(3) = REM(4)-1 // 340 LIM = NEST(J)+SAFETY FACTOR+SEC MARGIN #line 340 "regression-compile-tmp/soaps-77.imp" LIM = (((int)((((short)(NEST[J])) + (SAFETYFACTOR)))) + (SECMARGIN)); // 341 K = CURROUT+80; M = K #line 341 "regression-compile-tmp/soaps-77.imp" K = (((int)(CURROUT)) + (80)); #line 341 "regression-compile-tmp/soaps-77.imp" M = K; // 342 // 343 %CYCLE L = N+1,1,CURROUT #line 343 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(N)) + (1)); _increment = 1; _final = CURROUT; L = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(N)) + (1)), 1, CURROUT"); L -= _increment; _control -= _increment; L_0025:; if (L == _final) goto L_0026; L += _increment; _control += _increment; if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */ } // 344 K = K+1; BYTEINTEGER(K) = BYTEINTEGER(L) #line 344 "regression-compile-tmp/soaps-77.imp" K = (((int)(K)) + (1)); #line 344 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(K) = *_imp_BYTEINTEGER(L); // 345 %REPEAT #line 345 "regression-compile-tmp/soaps-77.imp" goto L_0025; #line 345 "regression-compile-tmp/soaps-77.imp" L_0026:; // 346 // 347 !!*L_1,N // 348 !!*MVC_1(4,1),CCC // 349 !!*LA_1,4(1) // 350 !!*ST_1,CURROUT // 351 !!*ST_1,LINEBASE // 352 // 353 %CYCLE J = 1,1,MARGIN+SEC MARGIN #line 353 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = (((int)(MARGIN)) + (SECMARGIN)); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (((int)(MARGIN)) + (SECMARGIN))"); J -= _increment; _control -= _increment; L_0028:; if (J == _final) goto L_0029; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 354 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = ' ' #line 354 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 354 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 355 %REPEAT #line 355 "regression-compile-tmp/soaps-77.imp" goto L_0028; #line 355 "regression-compile-tmp/soaps-77.imp" L_0029:; // 356 // 357 M = M+1 %IF BYTEINTEGER(M+1) = ' ' #line 357 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER((((int)(M)) + (1)))) != (32))) goto L_002b; #line 357 "regression-compile-tmp/soaps-77.imp" M = (((int)(M)) + (1)); #line 357 "regression-compile-tmp/soaps-77.imp" L_002b:; // 358 %IF BYTEINTEGER(M+1) # '%' %START #line 358 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER((((int)(M)) + (1)))) == (37))) goto L_002c; // 359 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = '%' #line 359 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 359 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 37; // 360 %FINISH #line 360 "regression-compile-tmp/soaps-77.imp" L_002c:; // 361 // 362 %CYCLE L = M+1,1,K #line 362 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(M)) + (1)); _increment = 1; _final = K; L = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle L = (((int)(M)) + (1)), 1, K"); L -= _increment; _control -= _increment; L_002d:; if (L == _final) goto L_002e; L += _increment; _control += _increment; if (L != _control) _imp_signal(4,2,0,"Corrupt control variable L"); /* FOR loop control variable corrupted */ } // 363 CURROUT = CURROUT+1 #line 363 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 364 BYTEINTEGER(CURROUT) = BYTEINTEGER(L) #line 364 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(L); // 365 %REPEAT #line 365 "regression-compile-tmp/soaps-77.imp" goto L_002d; #line 365 "regression-compile-tmp/soaps-77.imp" L_002e:; // 366 // 367 !?? ADJUST // 368 %FINISH %ELSE %START #line 368 "regression-compile-tmp/soaps-77.imp" goto L_0030; #line 368 "regression-compile-tmp/soaps-77.imp" L_001c:; // 369 LIM = CURROUT-LINEBASE+SAFETY FACTOR #line 369 "regression-compile-tmp/soaps-77.imp" LIM = (((short)((((int)(CURROUT)) - (LINEBASE)))) + (SAFETYFACTOR)); // 370 !!*L_1,CURROUT // 371 !!*MVC_1(4,1),CCC // 372 !!*LA_1,4(1) // 373 !!*ST_1,CURROUT // 374 !!*ST_1,LINE BASE // 375 // 376 %CYCLE J = 1,1,MARGIN+SEC MARGIN #line 376 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = (((int)(MARGIN)) + (SECMARGIN)); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (((int)(MARGIN)) + (SECMARGIN))"); J -= _increment; _control -= _increment; L_0031:; if (J == _final) goto L_0032; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 377 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = ' ' #line 377 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 377 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 378 %REPEAT #line 378 "regression-compile-tmp/soaps-77.imp" goto L_0031; #line 378 "regression-compile-tmp/soaps-77.imp" L_0032:; // 379 // 380 PMODE = 128; ! NO LONGER IN RANGE OF '%' #line 380 "regression-compile-tmp/soaps-77.imp" PMODE = 128; // 381 %FINISH #line 381 "regression-compile-tmp/soaps-77.imp" L_0030:; // 382 LIMIT = LINEBASE+LINE LENGTH #line 382 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(LINEBASE)) + (LINELENGTH)); // 383 STATSIZE = STATSIZE-LINELENGTH+MARGIN #line 383 "regression-compile-tmp/soaps-77.imp" STATSIZE = (((int)((((int)(STATSIZE)) - (LINELENGTH)))) + (MARGIN)); // 384 RPLIM = RPLIM+RPINC %IF STATSIZE+MARGIN >= LINE LENGTH #line 384 "regression-compile-tmp/soaps-77.imp" if ((((((int)(STATSIZE)) + (MARGIN))) < (LINELENGTH))) goto L_0034; #line 384 "regression-compile-tmp/soaps-77.imp" RPLIM = (((int)(RPLIM)) + (RPINC)); #line 384 "regression-compile-tmp/soaps-77.imp" L_0034:; // 385 NVAL = 0 #line 385 "regression-compile-tmp/soaps-77.imp" NVAL = 0; // 386 // 387 %ROUTINE ADJUST #line 387 "regression-compile-tmp/soaps-77.imp" void ADJUST( void ) #line 387 "regression-compile-tmp/soaps-77.imp" { // 388 // 389 %CYCLE J = 1,1,4 #line 389 "regression-compile-tmp/soaps-77.imp" J = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4"); L_0035:; if (J == 4) goto L_0036; J += 1; // 390 %IF NEST(J) <= LIM %THEN NEST(J) = 0 %C #line 390 "regression-compile-tmp/soaps-77.imp" if (((NEST[J]) > (LIM))) goto L_0038; #line 390 "regression-compile-tmp/soaps-77.imp" NEST[J] = 0; #line 390 "regression-compile-tmp/soaps-77.imp" goto L_0039; #line 390 "regression-compile-tmp/soaps-77.imp" L_0038:; #line 390 "regression-compile-tmp/soaps-77.imp" NEST[J] = (((int)((((int)(HOLD[(((int)(J)) - (1))])) - (CURROUT)))) + (LINEBASE)); #line 390 "regression-compile-tmp/soaps-77.imp" L_0039:; // 391 %ELSE NEST(J) = HOLD(J)-CURROUT+LINE BASE // 392 %REPEAT #line 392 "regression-compile-tmp/soaps-77.imp" goto L_0035; #line 392 "regression-compile-tmp/soaps-77.imp" L_0036:; // 393 // 394 %END #line 394 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block ADJUST at level 2 // 395 %END #line 395 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONTINUE at level 1 // 396 // 397 %ROUTINE BREAK #line 397 "regression-compile-tmp/soaps-77.imp" void BREAK( void ) #line 397 "regression-compile-tmp/soaps-77.imp" { // 398 !%SHORTROUTINE // 399 CURROUT = CURROUT-2 %UNLESS BYTEINTEGER(CURROUT) = ';' #line 399 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(CURROUT)) == (59))) goto L_003a; #line 399 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) - (2)); #line 399 "regression-compile-tmp/soaps-77.imp" L_003a:; // 400 BYTEINTEGER(CURROUT) = NL #line 400 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 401 SIZE = 0; LINE BASE = CURROUT #line 401 "regression-compile-tmp/soaps-77.imp" SIZE = 0; #line 401 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; // 402 LIMIT = LINE BASE+LINE SIZE #line 402 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(LINEBASE)) + (LINESIZE)); // 403 NVAL = 0 #line 403 "regression-compile-tmp/soaps-77.imp" NVAL = 0; // 404 %END #line 404 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block BREAK at level 1 // 405 // 406 %EXTERNALROUTINE SOAP(%STRING (128) FILES) #line 406 "regression-compile-tmp/soaps-77.imp" void SOAP( _imp_string /*%string(128)*/ FILES ) #line 406 "regression-compile-tmp/soaps-77.imp" { // 407 !%SHORTROUTINE // 408 %OWNINTEGER MOVEX = X'D2002001', MOVEY = X'10010000' #line 408 "regression-compile-tmp/soaps-77.imp" static int MOVEX = (-771743743); #line 408 "regression-compile-tmp/soaps-77.imp" static int MOVEY = 268500992; // 409 %ROUTINESPEC PERCENT #line 409 "regression-compile-tmp/soaps-77.imp" auto void PERCENT( void ); // 410 %ROUTINESPEC SPACE #line 410 "regression-compile-tmp/soaps-77.imp" auto void SPACE( void ); // 411 %INTEGERNAME MID MARGIN #line 411 "regression-compile-tmp/soaps-77.imp" int /*name*/*MIDMARGIN; // 412 %INTEGER N, P, K, M, Z #line 412 "regression-compile-tmp/soaps-77.imp" int N; #line 412 "regression-compile-tmp/soaps-77.imp" int P; #line 412 "regression-compile-tmp/soaps-77.imp" int K; #line 412 "regression-compile-tmp/soaps-77.imp" int M; #line 412 "regression-compile-tmp/soaps-77.imp" int Z; // 413 !!%BYTEINTEGERARRAYFORMAT NFM(1 : 4) // 414 %BYTEINTEGERARRAYNAME NEST #line 414 "regression-compile-tmp/soaps-77.imp" unsigned char /*arrayname*/*NEST; // 415 PRINT STRING( "SOAP"); {PRINTCH(7);} NEWLINE #line 415 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("SOAP")); #line 415 "regression-compile-tmp/soaps-77.imp" _imp_NEWLINE(); // 416 !!NEST == ARRAY(ADDR(NVAL),NFM) // 417 SET UP FILES(FILES); %RETURN %IF OK = 0 #line 417 "regression-compile-tmp/soaps-77.imp" SETUPFILES(&FILES); #line 417 "regression-compile-tmp/soaps-77.imp" if (((OK) != (0))) goto L_003b; #line 417 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 417 "regression-compile-tmp/soaps-77.imp" L_003b:; // 418 SET OPTIONS; %RETURN %IF OK = 0 #line 418 "regression-compile-tmp/soaps-77.imp" SETOPTIONS(); #line 418 "regression-compile-tmp/soaps-77.imp" if (((OK) != (0))) goto L_003c; #line 418 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 418 "regression-compile-tmp/soaps-77.imp" L_003c:; // 419 MID MARGIN == MARGIN #line 419 "regression-compile-tmp/soaps-77.imp" MIDMARGIN = &MARGIN; // 420 MID MARGIN == RMARGIN %IF COMMENTS RELATIVE = 0 #line 420 "regression-compile-tmp/soaps-77.imp" if (((COMMENTSRELATIVE) != (0))) goto L_003d; #line 420 "regression-compile-tmp/soaps-77.imp" MIDMARGIN = &RMARGIN; #line 420 "regression-compile-tmp/soaps-77.imp" L_003d:; // 421 !* 32 16 8 4 2 1 // 422 !* STATUS: SPECIAL COMMENT : COMMENT : OWN : END : DOWN : UP // 423 TOP: ! HEAD OF MAIN LOOP #line 423 "regression-compile-tmp/soaps-77.imp" U_1000:; // 424 // 425 %CYCLE #line 425 "regression-compile-tmp/soaps-77.imp" L_003e:; // 426 NVAL = 0 #line 426 "regression-compile-tmp/soaps-77.imp" NVAL = 0; // 427 LOOP FLAG = 0 #line 427 "regression-compile-tmp/soaps-77.imp" LOOPFLAG = 0; // 428 RP = 0; SPT = 0; MODE = 0; STATUS = 0 #line 428 "regression-compile-tmp/soaps-77.imp" RP = 0; #line 428 "regression-compile-tmp/soaps-77.imp" SPT = 0; #line 428 "regression-compile-tmp/soaps-77.imp" MODE = 0; #line 428 "regression-compile-tmp/soaps-77.imp" STATUS = 0; // 429 SAD = TEXTBASE #line 429 "regression-compile-tmp/soaps-77.imp" SAD = TEXTBASE; // 430 LIMIT = CURROUT+LINELENGTH %IF LAST SEP # ';' #line 430 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) == (59))) goto L_0041; #line 430 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(CURROUT)) + (LINELENGTH)); #line 430 "regression-compile-tmp/soaps-77.imp" L_0041:; // 431 INBASE = CURRIN #line 431 "regression-compile-tmp/soaps-77.imp" INBASE = CURRIN; // 432 %IF PARSE(0) # 0 %THEN %START #line 432 "regression-compile-tmp/soaps-77.imp" if (((PARSE(0)) == (0))) goto L_0042; // 433 ! SYNTAX ?? // 434 OWNS: J = CURRIN; QUOTES = 0; K = 0 #line 434 "regression-compile-tmp/soaps-77.imp" U_1001:; #line 434 "regression-compile-tmp/soaps-77.imp" J = CURRIN; #line 434 "regression-compile-tmp/soaps-77.imp" QUOTES = 0; #line 434 "regression-compile-tmp/soaps-77.imp" K = 0; // 435 // 436 %CYCLE #line 436 "regression-compile-tmp/soaps-77.imp" L_0043:; // 437 K = K+1 #line 437 "regression-compile-tmp/soaps-77.imp" K = (((int)(K)) + (1)); // 438 J = J+1; S = BYTEINTEGER(J) #line 438 "regression-compile-tmp/soaps-77.imp" J = (((int)(J)) + (1)); #line 438 "regression-compile-tmp/soaps-77.imp" S = *_imp_BYTEINTEGER(J); // 439 QUOTES = QUOTES!!1 %IF S = '''' #line 439 "regression-compile-tmp/soaps-77.imp" if (((S) != (39))) goto L_0046; #line 439 "regression-compile-tmp/soaps-77.imp" QUOTES = ((QUOTES) ^ (1)); #line 439 "regression-compile-tmp/soaps-77.imp" L_0046:; // 440 %REPEAT %UNTIL (S = NL %OR S = ';') %AND (QUOTES = 0 %OR K > 300) #line 440 "regression-compile-tmp/soaps-77.imp" if (((S) == (10))) goto L_0047; #line 440 "regression-compile-tmp/soaps-77.imp" if (((S) != (59))) goto L_0045; #line 440 "regression-compile-tmp/soaps-77.imp" L_0047:; #line 440 "regression-compile-tmp/soaps-77.imp" if (((QUOTES) == (0))) goto L_0044; #line 440 "regression-compile-tmp/soaps-77.imp" if (((K) > (300))) goto L_0044; #line 440 "regression-compile-tmp/soaps-77.imp" L_0045:; #line 440 "regression-compile-tmp/soaps-77.imp" goto L_0043; #line 440 "regression-compile-tmp/soaps-77.imp" L_0044:; // 441 // 442 SLENGTH = J-CURRIN #line 442 "regression-compile-tmp/soaps-77.imp" SLENGTH = (((int)(J)) - (CURRIN)); // 443 %IF CURROUT+SLENGTH > LIMIT %AND LAST SEP = ';' %C #line 443 "regression-compile-tmp/soaps-77.imp" if ((((((int)(CURROUT)) + (SLENGTH))) <= (LIMIT))) goto L_0048; #line 443 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_0048; // 444 %THEN %START // 445 BREAK #line 445 "regression-compile-tmp/soaps-77.imp" BREAK(); // 446 STAT = CURROUT+MARGIN #line 446 "regression-compile-tmp/soaps-77.imp" STAT = (((int)(CURROUT)) + (MARGIN)); // 447 // 448 %CYCLE J = 1,1,MARGIN #line 448 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = MARGIN; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, MARGIN"); J -= _increment; _control -= _increment; L_0049:; if (J == _final) goto L_004a; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 449 CURROUT = CURROUT+1 #line 449 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 450 BYTEINTEGER(CURROUT) = ' ' #line 450 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 451 %REPEAT #line 451 "regression-compile-tmp/soaps-77.imp" goto L_0049; #line 451 "regression-compile-tmp/soaps-77.imp" L_004a:; // 452 // 453 %FINISH #line 453 "regression-compile-tmp/soaps-77.imp" L_0048:; // 454 %IF OWNFLAG = 0 %THEN %START #line 454 "regression-compile-tmp/soaps-77.imp" if (((OWNFLAG) != (0))) goto L_004c; // 455 OWNFLAG = ';' #line 455 "regression-compile-tmp/soaps-77.imp" OWNFLAG = 59; // 456 %IF CURROUT+SLENGTH+SAFETY FACTOR > LIMIT %C #line 456 "regression-compile-tmp/soaps-77.imp" if ((((((short)((((int)(CURROUT)) + (SLENGTH)))) + (SAFETYFACTOR))) <= (LIMIT))) goto L_004d; // 457 %THEN %START // 458 !!*L_1,CURROUT // 459 !!*MVC_1(4,1),CCC; ! PUSH IN CONTINUATION // 460 !!*LA_1,4(1) // 461 !!*ST_1,CURROUT // 462 !!*ST_1,LINE BASE // 463 %FINISH #line 463 "regression-compile-tmp/soaps-77.imp" L_004d:; // 464 %FINISH #line 464 "regression-compile-tmp/soaps-77.imp" L_004c:; // 465 // 466 %CYCLE J = 1,1,SLENGTH #line 466 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = SLENGTH; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, SLENGTH"); J -= _increment; _control -= _increment; L_004e:; if (J == _final) goto L_004f; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 467 CURRIN = CURRIN+1; CURROUT = CURROUT+1 #line 467 "regression-compile-tmp/soaps-77.imp" CURRIN = (((int)(CURRIN)) + (1)); #line 467 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 468 BYTEINTEGER(CURROUT) = BYTEINTEGER(CURRIN) #line 468 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(CURRIN); // 469 %REPEAT #line 469 "regression-compile-tmp/soaps-77.imp" goto L_004e; #line 469 "regression-compile-tmp/soaps-77.imp" L_004f:; // 470 // 471 LAST SEP = BYTEINTEGER(CURRIN) #line 471 "regression-compile-tmp/soaps-77.imp" LASTSEP = *_imp_BYTEINTEGER(CURRIN); // 472 %IF LAST SEP = ';' %THEN %START #line 472 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_0051; // 473 BYTEINTEGER(CURROUT+1) = ' ' #line 473 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER((((int)(CURROUT)) + (1))) = 32; // 474 BYTEINTEGER(CURROUT+2) = ' ' #line 474 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER((((int)(CURROUT)) + (2))) = 32; // 475 CURROUT = CURROUT+2 #line 475 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (2)); // 476 %FINISH %ELSE LINE BASE = CURROUT #line 476 "regression-compile-tmp/soaps-77.imp" goto L_0052; #line 476 "regression-compile-tmp/soaps-77.imp" L_0051:; #line 476 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; #line 476 "regression-compile-tmp/soaps-77.imp" L_0052:; // 477 %FINISH %ELSE %START #line 477 "regression-compile-tmp/soaps-77.imp" goto L_0053; #line 477 "regression-compile-tmp/soaps-77.imp" L_0042:; // 478 PMODE = 128 #line 478 "regression-compile-tmp/soaps-77.imp" PMODE = 128; // 479 STATSIZE = CURRIN-INBASE #line 479 "regression-compile-tmp/soaps-77.imp" STATSIZE = (((int)(CURRIN)) - (INBASE)); // 480 %IF STATSIZE+MARGIN > LINE LENGTH %START #line 480 "regression-compile-tmp/soaps-77.imp" if ((((((int)(STATSIZE)) + (MARGIN))) <= (LINELENGTH))) goto L_0054; // 481 RPINC = RP//(STATSIZE//(LINE LENGTH-MARGIN)) #line 481 "regression-compile-tmp/soaps-77.imp" RPINC = (long)((long)((int)(RP)) / (long)((_Z(((long)((long)((int)(STATSIZE)) / (long)((_Z((((int)(LINELENGTH)) - (MARGIN))))))))))); // 482 RPLIM = RPINC #line 482 "regression-compile-tmp/soaps-77.imp" RPLIM = RPINC; // 483 %FINISH %ELSE RPLIM = RP #line 483 "regression-compile-tmp/soaps-77.imp" goto L_0055; #line 483 "regression-compile-tmp/soaps-77.imp" L_0054:; #line 483 "regression-compile-tmp/soaps-77.imp" RPLIM = RP; #line 483 "regression-compile-tmp/soaps-77.imp" L_0055:; // 484 %IF STATUS&11 # 0 %AND LAST SEP = ';' %THEN %START #line 484 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (11))) == (0))) goto L_0056; #line 484 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_0056; // 485 LAST SEP = NL #line 485 "regression-compile-tmp/soaps-77.imp" LASTSEP = 10; // 486 BREAK #line 486 "regression-compile-tmp/soaps-77.imp" BREAK(); // 487 %FINISH #line 487 "regression-compile-tmp/soaps-77.imp" L_0056:; // 488 %IF STATUS&136 # 0 %THEN %START #line 488 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (136))) == (0))) goto L_0057; // 489 ! BLANK LINE OR BLOCK // 490 %IF (LEAVE BLANKS # 0 %AND THIS SEP # ';') %C #line 490 "regression-compile-tmp/soaps-77.imp" if (((LEAVEBLANKS) == (0))) goto L_0058; #line 490 "regression-compile-tmp/soaps-77.imp" if (((THISSEP) != (59))) goto L_004b; #line 490 "regression-compile-tmp/soaps-77.imp" L_0058:; #line 490 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (128))) == (0))) goto L_0059; #line 490 "regression-compile-tmp/soaps-77.imp" if (((SEPBLOCKS) == (0))) goto L_0059; #line 490 "regression-compile-tmp/soaps-77.imp" L_004b:; // 491 %OR (STATUS&128 # 0 %AND SEP BLOCKS # 0) %C // 492 %THEN %START // 493 NULL: #line 493 "regression-compile-tmp/soaps-77.imp" U_1002:; // 494 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = NL #line 494 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 494 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 495 LINE BASE = CURROUT #line 495 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; // 496 %FINISH #line 496 "regression-compile-tmp/soaps-77.imp" L_0059:; // 497 -> TOP %IF STATUS&8 # 0 %AND RP <= 1 #line 497 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (8))) == (0))) goto L_005a; #line 497 "regression-compile-tmp/soaps-77.imp" if (((RP) > (1))) goto L_005a; #line 497 "regression-compile-tmp/soaps-77.imp" goto U_1000; #line 497 "regression-compile-tmp/soaps-77.imp" L_005a:; // 498 ! IN CASE OF LONELY LABELS // 499 %FINISH #line 499 "regression-compile-tmp/soaps-77.imp" L_0057:; // 500 RP = 0 #line 500 "regression-compile-tmp/soaps-77.imp" RP = 0; // 501 %IF LOOP FLAG # 0 %AND STATUS&1 # 0 %C #line 501 "regression-compile-tmp/soaps-77.imp" if (((LOOPFLAG) == (0))) goto L_005b; #line 501 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (1))) == (0))) goto L_005b; #line 501 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER((((int)(CURROUT)) - (1)))) == (10))) goto L_005b; // 502 %AND BYTEINTEGER(CURROUT-1) # NL %START // 503 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = NL #line 503 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 503 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 504 LINE BASE = CURROUT #line 504 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; // 505 LIMIT = LIMIT+1 #line 505 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(LIMIT)) + (1)); // 506 %FINISH #line 506 "regression-compile-tmp/soaps-77.imp" L_005b:; // 507 %IF STATUS&2 # 0 %THEN %START #line 507 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (2))) == (0))) goto L_005c; // 508 ! DOWN // 509 STATUS = STATUS!64 %C #line 509 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_005d; #line 509 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (4))) == (0))) goto L_005d; #line 509 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (64)); #line 509 "regression-compile-tmp/soaps-77.imp" L_005d:; // 510 %IF EXTRA MARGIN # 0 %AND STATUS&4 # 0 // 511 LEVEL = LEVEL>>1 #line 511 "regression-compile-tmp/soaps-77.imp" LEVEL = (int)((((unsigned int)(LEVEL)) >> (1))); // 512 LEVEL = 1 %IF LEVEL = 0 #line 512 "regression-compile-tmp/soaps-77.imp" if (((LEVEL) != (0))) goto L_005e; #line 512 "regression-compile-tmp/soaps-77.imp" LEVEL = 1; #line 512 "regression-compile-tmp/soaps-77.imp" L_005e:; // 513 MARGIN = MARGIN-DELTA MARGIN %IF MLIMIT&1 = 0 #line 513 "regression-compile-tmp/soaps-77.imp" if (((((MLIMIT) & (1))) != (0))) goto L_005f; #line 513 "regression-compile-tmp/soaps-77.imp" MARGIN = (((int)(MARGIN)) - (DELTAMARGIN)); #line 513 "regression-compile-tmp/soaps-77.imp" L_005f:; // 514 MLIMIT = MLIMIT>>1 #line 514 "regression-compile-tmp/soaps-77.imp" MLIMIT = (int)((((unsigned int)(MLIMIT)) >> (1))); // 515 MARGIN = 0 %IF MARGIN < 0 #line 515 "regression-compile-tmp/soaps-77.imp" if (((MARGIN) >= (0))) goto L_0060; #line 515 "regression-compile-tmp/soaps-77.imp" MARGIN = 0; #line 515 "regression-compile-tmp/soaps-77.imp" L_0060:; // 516 %FINISH #line 516 "regression-compile-tmp/soaps-77.imp" L_005c:; // 517 STAT = CURROUT+MARGIN %IF LAST SEP # ';' #line 517 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) == (59))) goto L_0061; #line 517 "regression-compile-tmp/soaps-77.imp" STAT = (((int)(CURROUT)) + (MARGIN)); #line 517 "regression-compile-tmp/soaps-77.imp" L_0061:; // 518 // 519 %WHILE REC(RP+1) = 100 %CYCLE #line 519 "regression-compile-tmp/soaps-77.imp" L_0062:; #line 519 "regression-compile-tmp/soaps-77.imp" if ((((REC-1)[(((int)(RP)) + (1))]) != (100))) goto L_0063; // 520 ! DEAL WITH LABELS // 521 RP = RP+1 #line 521 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); // 522 %IF LAST SEP = ';' %OR LAST SEP = ':' %THEN %START #line 522 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) == (59))) goto L_0065; #line 522 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (58))) goto L_0066; #line 522 "regression-compile-tmp/soaps-77.imp" L_0065:; // 523 N = -2; N = 1 %IF LAST SEP = ':' #line 523 "regression-compile-tmp/soaps-77.imp" N = (-2); #line 523 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (58))) goto L_0067; #line 523 "regression-compile-tmp/soaps-77.imp" N = 1; #line 523 "regression-compile-tmp/soaps-77.imp" L_0067:; // 524 CURROUT = CURROUT+N; BYTEINTEGER(CURROUT) = NL #line 524 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (N)); #line 524 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 525 LINE BASE = CURROUT #line 525 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; // 526 LIMIT = CURROUT+LINELENGTH #line 526 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(CURROUT)) + (LINELENGTH)); // 527 STAT = CURROUT+MARGIN #line 527 "regression-compile-tmp/soaps-77.imp" STAT = (((int)(CURROUT)) + (MARGIN)); // 528 LAST SEP = NL #line 528 "regression-compile-tmp/soaps-77.imp" LASTSEP = 10; // 529 %FINISH #line 529 "regression-compile-tmp/soaps-77.imp" L_0066:; // 530 %IF LABELS RELATIVE # 0 %AND LAST SEP # ':' %C #line 530 "regression-compile-tmp/soaps-77.imp" if (((LABELSRELATIVE) == (0))) goto L_0068; #line 530 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) == (58))) goto L_0068; // 531 %THEN %START // 532 N = LEVEL; M = MARGIN #line 532 "regression-compile-tmp/soaps-77.imp" N = LEVEL; #line 532 "regression-compile-tmp/soaps-77.imp" M = MARGIN; // 533 M = M+FIRST DISP %C #line 533 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_0069; #line 533 "regression-compile-tmp/soaps-77.imp" if (((LEVEL) != (1))) goto L_0069; #line 533 "regression-compile-tmp/soaps-77.imp" M = (((int)(M)) + (FIRSTDISP)); #line 533 "regression-compile-tmp/soaps-77.imp" L_0069:; // 534 %IF EXTRA MARGIN # 0 %AND LEVEL = 1 // 535 // 536 %CYCLE #line 536 "regression-compile-tmp/soaps-77.imp" L_006a:; // 537 M = M-DELTA MARGIN #line 537 "regression-compile-tmp/soaps-77.imp" M = (((int)(M)) - (DELTAMARGIN)); // 538 %EXIT %IF N&1 # 0 #line 538 "regression-compile-tmp/soaps-77.imp" if (((((N) & (1))) == (0))) goto L_006d; #line 538 "regression-compile-tmp/soaps-77.imp" goto L_006b; #line 538 "regression-compile-tmp/soaps-77.imp" L_006d:; // 539 N = N>>1 #line 539 "regression-compile-tmp/soaps-77.imp" N = (int)((((unsigned int)(N)) >> (1))); // 540 %REPEAT #line 540 "regression-compile-tmp/soaps-77.imp" goto L_006a; #line 540 "regression-compile-tmp/soaps-77.imp" L_006b:; // 541 // 542 %WHILE M > 0 %CYCLE #line 542 "regression-compile-tmp/soaps-77.imp" L_006e:; #line 542 "regression-compile-tmp/soaps-77.imp" if (((M) <= (0))) goto L_006f; // 543 M = M-1 #line 543 "regression-compile-tmp/soaps-77.imp" M = (((int)(M)) - (1)); // 544 CURROUT = CURROUT+1 #line 544 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 545 BYTEINTEGER(CURROUT) = ' ' #line 545 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 546 %REPEAT #line 546 "regression-compile-tmp/soaps-77.imp" goto L_006e; #line 546 "regression-compile-tmp/soaps-77.imp" L_006f:; // 547 // 548 %FINISH #line 548 "regression-compile-tmp/soaps-77.imp" L_0068:; // 549 // 550 %CYCLE #line 550 "regression-compile-tmp/soaps-77.imp" L_0071:; // 551 RP = RP+1; N = REC(RP); %EXIT %IF N = 0 #line 551 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); #line 551 "regression-compile-tmp/soaps-77.imp" N = (REC-1)[RP]; #line 551 "regression-compile-tmp/soaps-77.imp" if (((N) != (0))) goto L_0074; #line 551 "regression-compile-tmp/soaps-77.imp" goto L_0072; #line 551 "regression-compile-tmp/soaps-77.imp" L_0074:; // 552 %IF N < 0 %THEN SN = STRINGS(-N) %C #line 552 "regression-compile-tmp/soaps-77.imp" if (((N) >= (0))) goto L_0075; #line 552 "regression-compile-tmp/soaps-77.imp" SN = (STRINGS-1)[(-(N))]; #line 552 "regression-compile-tmp/soaps-77.imp" goto L_0076; #line 552 "regression-compile-tmp/soaps-77.imp" L_0075:; #line 552 "regression-compile-tmp/soaps-77.imp" SN = (((int)((KEYWORD-1)[N])) + (KEYBASE)); #line 552 "regression-compile-tmp/soaps-77.imp" L_0076:; // 553 %ELSE SN = KEYWORD(N)+KEYBASE // 554 // 555 %CYCLE J = SN+1,1,SN+BYTEINTEGER(SN) #line 555 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(SN)) + (1)); _increment = 1; _final = ((SN) + (*(int *)(_imp_BYTEINTEGER(SN)))); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(SN)) + (1)), 1, ((SN) + (*(int *)(_imp_BYTEINTEGER(SN))))"); J -= _increment; _control -= _increment; L_0077:; if (J == _final) goto L_0078; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 556 CURROUT = CURROUT+1 #line 556 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 557 BYTEINTEGER(CURROUT) = BYTEINTEGER(J) #line 557 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(J); // 558 %REPEAT #line 558 "regression-compile-tmp/soaps-77.imp" goto L_0077; #line 558 "regression-compile-tmp/soaps-77.imp" L_0078:; // 559 // 560 %REPEAT #line 560 "regression-compile-tmp/soaps-77.imp" goto L_0071; #line 560 "regression-compile-tmp/soaps-77.imp" L_0072:; // 561 // 562 %IF CURROUT > STAT %AND STATUS&16 = 0 %THEN %START #line 562 "regression-compile-tmp/soaps-77.imp" if (((CURROUT) <= (STAT))) goto L_007a; #line 562 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (16))) != (0))) goto L_007a; // 563 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = NL #line 563 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 563 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 564 LINE BASE = CURROUT #line 564 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; // 565 LIMIT = CURROUT+LINELENGTH #line 565 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)(CURROUT)) + (LINELENGTH)); // 566 STAT = CURROUT+MARGIN #line 566 "regression-compile-tmp/soaps-77.imp" STAT = (((int)(CURROUT)) + (MARGIN)); // 567 %FINISH #line 567 "regression-compile-tmp/soaps-77.imp" L_007a:; // 568 LAST SEP = ':' #line 568 "regression-compile-tmp/soaps-77.imp" LASTSEP = 58; // 569 %REPEAT #line 569 "regression-compile-tmp/soaps-77.imp" goto L_0062; #line 569 "regression-compile-tmp/soaps-77.imp" L_0063:; // 570 // 571 RP = 0 %AND -> NULL %IF STATUS&8 # 0 #line 571 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (8))) == (0))) goto L_007b; #line 571 "regression-compile-tmp/soaps-77.imp" RP = 0; #line 571 "regression-compile-tmp/soaps-77.imp" goto U_1002; #line 571 "regression-compile-tmp/soaps-77.imp" L_007b:; // 572 ! NOW DEAL WITH COMMENTS // 573 %IF STATUS&16 # 0 %THEN %START #line 573 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (16))) == (0))) goto L_007c; // 574 RP = RP+1; DISP = REC(RP) #line 574 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); #line 574 "regression-compile-tmp/soaps-77.imp" DISP = (REC-1)[RP]; // 575 ! STARTING DISP OF INPUT // 576 ! COMMENT // 577 D = 0; CMODE = 0 #line 577 "regression-compile-tmp/soaps-77.imp" D = 0; #line 577 "regression-compile-tmp/soaps-77.imp" CMODE = 0; // 578 J = CURRIN; ! FIND THE END OF THE COMMENT #line 578 "regression-compile-tmp/soaps-77.imp" J = CURRIN; // 579 J = J+1 %WHILE BYTEINTEGER(J) # NL %C #line 579 "regression-compile-tmp/soaps-77.imp" L_007d:; #line 579 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(J)) == (10))) goto L_007e; #line 579 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(J)) == (59))) goto L_007e; #line 579 "regression-compile-tmp/soaps-77.imp" J = (((int)(J)) + (1)); #line 579 "regression-compile-tmp/soaps-77.imp" goto L_007d; #line 579 "regression-compile-tmp/soaps-77.imp" L_007e:; // 580 %AND BYTEINTEGER(J) # ';' // 581 CS = J-CURRIN; ! COMMENT SIZE #line 581 "regression-compile-tmp/soaps-77.imp" CS = (((int)(J)) - (CURRIN)); // 582 %IF COMMENT FLAG = 0 %C #line 582 "regression-compile-tmp/soaps-77.imp" if (((COMMENTFLAG) != (0))) goto L_0080; #line 582 "regression-compile-tmp/soaps-77.imp" CSTART = COMMENTTAB; #line 582 "regression-compile-tmp/soaps-77.imp" goto L_0081; #line 582 "regression-compile-tmp/soaps-77.imp" L_0080:; // 583 %THEN CSTART = COMMENT TAB %ELSE %START // 584 %IF COMMENTS NORMAL # 0 %START #line 584 "regression-compile-tmp/soaps-77.imp" if (((COMMENTSNORMAL) == (0))) goto L_0082; // 585 CMODE = 1; CSTART = MARGIN #line 585 "regression-compile-tmp/soaps-77.imp" CMODE = 1; #line 585 "regression-compile-tmp/soaps-77.imp" CSTART = MARGIN; // 586 %FINISH %ELSE %START #line 586 "regression-compile-tmp/soaps-77.imp" goto L_0083; #line 586 "regression-compile-tmp/soaps-77.imp" L_0082:; // 587 %IF LAST SEP = ';' %C #line 587 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_0084; #line 587 "regression-compile-tmp/soaps-77.imp" CSTART = COMMENTTAB; #line 587 "regression-compile-tmp/soaps-77.imp" goto L_0085; #line 587 "regression-compile-tmp/soaps-77.imp" L_0084:; // 588 %THEN CSTART = COMMENT TAB %ELSE %START // 589 %IF DISP = 0 %THEN CSTART = 0 %ELSE %START #line 589 "regression-compile-tmp/soaps-77.imp" if (((DISP) != (0))) goto L_0086; #line 589 "regression-compile-tmp/soaps-77.imp" CSTART = 0; #line 589 "regression-compile-tmp/soaps-77.imp" goto L_0087; #line 589 "regression-compile-tmp/soaps-77.imp" L_0086:; // 590 %IF DISP <= MID MARGIN %C #line 590 "regression-compile-tmp/soaps-77.imp" if (((DISP) > (*MIDMARGIN))) goto L_0088; #line 590 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (32))) != (0))) goto L_0088; #line 590 "regression-compile-tmp/soaps-77.imp" CSTART = MARGIN; #line 590 "regression-compile-tmp/soaps-77.imp" goto L_0089; #line 590 "regression-compile-tmp/soaps-77.imp" L_0088:; #line 590 "regression-compile-tmp/soaps-77.imp" CSTART = COMMENTTAB; #line 590 "regression-compile-tmp/soaps-77.imp" L_0089:; // 591 %AND STATUS&32 = 0 %C // 592 %THEN CSTART = MARGIN %C // 593 %ELSE CSTART = COMMENT TAB // 594 %FINISH #line 594 "regression-compile-tmp/soaps-77.imp" L_0087:; // 595 %FINISH #line 595 "regression-compile-tmp/soaps-77.imp" L_0085:; // 596 %FINISH #line 596 "regression-compile-tmp/soaps-77.imp" L_0083:; // 597 %FINISH #line 597 "regression-compile-tmp/soaps-77.imp" L_0081:; // 598 CSTART = 0 %IF STATUS&32 # 0 %AND LEAVE STARS # 0 #line 598 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (32))) == (0))) goto L_008a; #line 598 "regression-compile-tmp/soaps-77.imp" if (((LEAVESTARS) == (0))) goto L_008a; #line 598 "regression-compile-tmp/soaps-77.imp" CSTART = 0; #line 598 "regression-compile-tmp/soaps-77.imp" L_008a:; // 599 SIZE = CURROUT-LINE BASE #line 599 "regression-compile-tmp/soaps-77.imp" SIZE = (((int)(CURROUT)) - (LINEBASE)); // 600 %IF LAST SEP = ';' %START #line 600 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_008b; // 601 %IF BYTEINTEGER(CURROUT) = NL %START #line 601 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(CURROUT)) != (10))) goto L_008c; // 602 ! COMMENT AFTER REPEAT+NL // 603 LOOP FLAG = 1 #line 603 "regression-compile-tmp/soaps-77.imp" LOOPFLAG = 1; // 604 LINE BASE = LINE BASE-1 %C #line 604 "regression-compile-tmp/soaps-77.imp" L_008d:; #line 604 "regression-compile-tmp/soaps-77.imp" LINEBASE = (((int)(LINEBASE)) - (1)); #line 604 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(LINEBASE)) == (10))) goto L_008e; #line 604 "regression-compile-tmp/soaps-77.imp" goto L_008d; #line 604 "regression-compile-tmp/soaps-77.imp" L_008e:; // 605 %UNTIL BYTEINTEGER(LINE BASE) = NL // 606 SIZE = CURROUT-LINE BASE #line 606 "regression-compile-tmp/soaps-77.imp" SIZE = (((int)(CURROUT)) - (LINEBASE)); // 607 %FINISH #line 607 "regression-compile-tmp/soaps-77.imp" L_008c:; // 608 CURROUT = CURROUT-2; SIZE = SIZE-2 #line 608 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) - (2)); #line 608 "regression-compile-tmp/soaps-77.imp" SIZE = (((int)(SIZE)) - (2)); // 609 ! TO REMOVE SPACES AFTER SEMI"S // 610 %IF EXTEND COMMENTS # 0 %AND CSTART < SIZE %START #line 610 "regression-compile-tmp/soaps-77.imp" if (((EXTENDCOMMENTS) == (0))) goto L_0090; #line 610 "regression-compile-tmp/soaps-77.imp" if (((CSTART) >= (SIZE))) goto L_0090; // 611 P = CSTART; ! REMEMBER IT JUST IN CASE #line 611 "regression-compile-tmp/soaps-77.imp" P = CSTART; // 612 N = EXT NUM; ! NUMBER OF EXTENSION TRIES #line 612 "regression-compile-tmp/soaps-77.imp" N = EXTNUM; // 613 // 614 %CYCLE #line 614 "regression-compile-tmp/soaps-77.imp" L_0091:; // 615 %EXIT %IF N <= 0 #line 615 "regression-compile-tmp/soaps-77.imp" if (((N) > (0))) goto L_0094; #line 615 "regression-compile-tmp/soaps-77.imp" goto L_0092; #line 615 "regression-compile-tmp/soaps-77.imp" L_0094:; // 616 CSTART = CSTART+COMMENT EXTENSION #line 616 "regression-compile-tmp/soaps-77.imp" CSTART = ((CSTART) + ((int)(COMMENTEXTENSION))); // 617 %EXIT %IF CSTART >= SIZE #line 617 "regression-compile-tmp/soaps-77.imp" if (((CSTART) < (SIZE))) goto L_0095; #line 617 "regression-compile-tmp/soaps-77.imp" goto L_0092; #line 617 "regression-compile-tmp/soaps-77.imp" L_0095:; // 618 N = N-1 #line 618 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) - (1)); // 619 %REPEAT #line 619 "regression-compile-tmp/soaps-77.imp" goto L_0091; #line 619 "regression-compile-tmp/soaps-77.imp" L_0092:; // 620 // 621 CSTART = P %IF N <= 0 %C #line 621 "regression-compile-tmp/soaps-77.imp" if (((N) <= (0))) goto L_0093; #line 621 "regression-compile-tmp/soaps-77.imp" if ((((((int)(CS)) + (CSTART))) <= (COMMENTLINE))) goto L_0096; #line 621 "regression-compile-tmp/soaps-77.imp" L_0093:; #line 621 "regression-compile-tmp/soaps-77.imp" CSTART = P; #line 621 "regression-compile-tmp/soaps-77.imp" L_0096:; // 622 %OR CS+CSTART > COMMENT LINE // 623 ! RESTORE IT IF TOO LONG // 624 %FINISH #line 624 "regression-compile-tmp/soaps-77.imp" L_0090:; // 625 %IF CSTART < SIZE %START #line 625 "regression-compile-tmp/soaps-77.imp" if (((CSTART) >= (SIZE))) goto L_0097; // 626 %IF CMODE # 0 %THEN CSTART = 0 %ELSE BREAK #line 626 "regression-compile-tmp/soaps-77.imp" if (((CMODE) == (0))) goto L_0098; #line 626 "regression-compile-tmp/soaps-77.imp" CSTART = 0; #line 626 "regression-compile-tmp/soaps-77.imp" goto L_0099; #line 626 "regression-compile-tmp/soaps-77.imp" L_0098:; #line 626 "regression-compile-tmp/soaps-77.imp" BREAK(); #line 626 "regression-compile-tmp/soaps-77.imp" L_0099:; // 627 %FINISH %ELSE %START #line 627 "regression-compile-tmp/soaps-77.imp" goto L_009a; #line 627 "regression-compile-tmp/soaps-77.imp" L_0097:; // 628 D = COMMENT LINE-CSTART-CS #line 628 "regression-compile-tmp/soaps-77.imp" D = (((int)((((int)(COMMENTLINE)) - (CSTART)))) - (CS)); // 629 %IF D < 0 %AND BREAK COMMENTS = 0 %START #line 629 "regression-compile-tmp/soaps-77.imp" if (((D) >= (0))) goto L_009b; #line 629 "regression-compile-tmp/soaps-77.imp" if (((BREAKCOMMENTS) != (0))) goto L_009b; // 630 CSTART = LINE SIZE-CS #line 630 "regression-compile-tmp/soaps-77.imp" CSTART = (((int)(LINESIZE)) - (CS)); // 631 BREAK #line 631 "regression-compile-tmp/soaps-77.imp" BREAK(); // 632 D = 0 #line 632 "regression-compile-tmp/soaps-77.imp" D = 0; // 633 %FINISH #line 633 "regression-compile-tmp/soaps-77.imp" L_009b:; // 634 %FINISH #line 634 "regression-compile-tmp/soaps-77.imp" L_009a:; // 635 %FINISH %ELSE %START #line 635 "regression-compile-tmp/soaps-77.imp" goto L_009c; #line 635 "regression-compile-tmp/soaps-77.imp" L_008b:; // 636 D = COMMENT LINE-CSTART-CS #line 636 "regression-compile-tmp/soaps-77.imp" D = (((int)((((int)(COMMENTLINE)) - (CSTART)))) - (CS)); // 637 %IF D < 0 %AND BREAKCOMMENTS = 0 %THEN %START #line 637 "regression-compile-tmp/soaps-77.imp" if (((D) >= (0))) goto L_009d; #line 637 "regression-compile-tmp/soaps-77.imp" if (((BREAKCOMMENTS) != (0))) goto L_009d; // 638 CSTART = COMMENT LINE-CS #line 638 "regression-compile-tmp/soaps-77.imp" CSTART = (((int)(COMMENTLINE)) - (CS)); // 639 D = 0 #line 639 "regression-compile-tmp/soaps-77.imp" D = 0; // 640 %FINISH #line 640 "regression-compile-tmp/soaps-77.imp" L_009d:; // 641 %FINISH #line 641 "regression-compile-tmp/soaps-77.imp" L_009c:; // 642 // 643 %CYCLE #line 643 "regression-compile-tmp/soaps-77.imp" L_009e:; // 644 N = CSTART-SIZE #line 644 "regression-compile-tmp/soaps-77.imp" N = (((int)(CSTART)) - (SIZE)); // 645 // 646 %WHILE N > 0 %CYCLE #line 646 "regression-compile-tmp/soaps-77.imp" L_00a1:; #line 646 "regression-compile-tmp/soaps-77.imp" if (((N) <= (0))) goto L_00a2; // 647 N = N-1; CURROUT = CURROUT+1 #line 647 "regression-compile-tmp/soaps-77.imp" N = (((int)(N)) - (1)); #line 647 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 648 BYTEINTEGER(CURROUT) = ' ' #line 648 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 649 %REPEAT #line 649 "regression-compile-tmp/soaps-77.imp" goto L_00a1; #line 649 "regression-compile-tmp/soaps-77.imp" L_00a2:; // 650 // 651 CURROUT = CURROUT+1 #line 651 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 652 BYTEINTEGER(CURROUT) = '!' #line 652 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 33; // 653 CURROUT = CURROUT+1 %C #line 653 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (32))) == (0))) goto L_00a4; #line 653 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 653 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 42; #line 653 "regression-compile-tmp/soaps-77.imp" L_00a4:; // 654 %AND BYTEINTEGER(CURROUT) = '*' %C // 655 %IF STATUS&32 # 0 // 656 P = J #line 656 "regression-compile-tmp/soaps-77.imp" P = J; // 657 %IF D < 0 %START #line 657 "regression-compile-tmp/soaps-77.imp" if (((D) >= (0))) goto L_00a5; // 658 P = J+D #line 658 "regression-compile-tmp/soaps-77.imp" P = (((int)(J)) + (D)); // 659 P = P-1 %WHILE BYTEINTEGER(P) # ' ' %C #line 659 "regression-compile-tmp/soaps-77.imp" L_00a6:; #line 659 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(P)) == (32))) goto L_00a7; #line 659 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(P)) == (44))) goto L_00a7; #line 659 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(P)) == (46))) goto L_00a7; #line 659 "regression-compile-tmp/soaps-77.imp" if (((P) <= (CURRIN))) goto L_00a7; #line 659 "regression-compile-tmp/soaps-77.imp" P = (((int)(P)) - (1)); #line 659 "regression-compile-tmp/soaps-77.imp" goto L_00a6; #line 659 "regression-compile-tmp/soaps-77.imp" L_00a7:; // 660 %AND BYTEINTEGER(P) # ',' %C // 661 %AND BYTEINTEGER(P) # '.' %AND P > CURRIN // 662 P = P-1 #line 662 "regression-compile-tmp/soaps-77.imp" P = (((int)(P)) - (1)); // 663 P = J+D %IF P = CURRIN #line 663 "regression-compile-tmp/soaps-77.imp" if (((P) != (CURRIN))) goto L_00a9; #line 663 "regression-compile-tmp/soaps-77.imp" P = (((int)(J)) + (D)); #line 663 "regression-compile-tmp/soaps-77.imp" L_00a9:; // 664 %FINISH #line 664 "regression-compile-tmp/soaps-77.imp" L_00a5:; // 665 // 666 %CYCLE K = CURRIN+1,1,P #line 666 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(CURRIN)) + (1)); _increment = 1; _final = P; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = (((int)(CURRIN)) + (1)), 1, P"); K -= _increment; _control -= _increment; L_00aa:; if (K == _final) goto L_00ab; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 667 CURROUT = CURROUT+1 #line 667 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 668 BYTEINTEGER(CURROUT) = BYTEINTEGER(K) #line 668 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(K); // 669 %REPEAT #line 669 "regression-compile-tmp/soaps-77.imp" goto L_00aa; #line 669 "regression-compile-tmp/soaps-77.imp" L_00ab:; // 670 // 671 CURRIN = P #line 671 "regression-compile-tmp/soaps-77.imp" CURRIN = P; // 672 %EXIT %IF D >= 0 #line 672 "regression-compile-tmp/soaps-77.imp" if (((D) < (0))) goto L_00ad; #line 672 "regression-compile-tmp/soaps-77.imp" goto L_009f; #line 672 "regression-compile-tmp/soaps-77.imp" L_00ad:; // 673 CURROUT = CURROUT+1 #line 673 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 674 BYTEINTEGER(CURROUT) = NL #line 674 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 675 SIZE = 0; D = LINE LENGTH-MARGIN+D #line 675 "regression-compile-tmp/soaps-77.imp" SIZE = 0; #line 675 "regression-compile-tmp/soaps-77.imp" D = (((int)((((int)(LINELENGTH)) - (MARGIN)))) + (D)); // 676 %REPEAT #line 676 "regression-compile-tmp/soaps-77.imp" goto L_009e; #line 676 "regression-compile-tmp/soaps-77.imp" L_009f:; // 677 // 678 BYTEINTEGER(CURROUT) = NL #line 678 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 679 %IF LOOP FLAG # 0 %START #line 679 "regression-compile-tmp/soaps-77.imp" if (((LOOPFLAG) == (0))) goto L_00ae; // 680 LOOP FLAG = 0 #line 680 "regression-compile-tmp/soaps-77.imp" LOOPFLAG = 0; // 681 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = NL #line 681 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 681 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 682 %FINISH #line 682 "regression-compile-tmp/soaps-77.imp" L_00ae:; // 683 SIZE = 0; LINE BASE = CURROUT; LAST SEP = NL #line 683 "regression-compile-tmp/soaps-77.imp" SIZE = 0; #line 683 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; #line 683 "regression-compile-tmp/soaps-77.imp" LASTSEP = 10; // 684 ! END OF COMMENT HANDLING // 685 %FINISH %ELSE %START #line 685 "regression-compile-tmp/soaps-77.imp" goto L_00af; #line 685 "regression-compile-tmp/soaps-77.imp" L_007c:; // 686 N = 0 #line 686 "regression-compile-tmp/soaps-77.imp" N = 0; // 687 %IF STATUS&64 # 0 %START #line 687 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (64))) == (0))) goto L_00b0; // 688 N = DELTA MARGIN #line 688 "regression-compile-tmp/soaps-77.imp" N = DELTAMARGIN; // 689 N = MARGIN %IF EXTRA MARGIN # 0 #line 689 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_00b1; #line 689 "regression-compile-tmp/soaps-77.imp" N = MARGIN; #line 689 "regression-compile-tmp/soaps-77.imp" L_00b1:; // 690 %FINISH #line 690 "regression-compile-tmp/soaps-77.imp" L_00b0:; // 691 STAT = STAT-N #line 691 "regression-compile-tmp/soaps-77.imp" STAT = (((int)(STAT)) - (N)); // 692 CURROUT = CURROUT+1 %C #line 692 "regression-compile-tmp/soaps-77.imp" L_00b2:; #line 692 "regression-compile-tmp/soaps-77.imp" if (((CURROUT) >= (STAT))) goto L_00b3; #line 692 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 692 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; #line 692 "regression-compile-tmp/soaps-77.imp" goto L_00b2; #line 692 "regression-compile-tmp/soaps-77.imp" L_00b3:; // 693 %AND BYTEINTEGER(CURROUT) = ' ' %C // 694 %WHILE CURROUT < STAT // 695 LIMIT = CURROUT+LINELENGTH-MARGIN+N %C #line 695 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) == (59))) goto L_00b5; #line 695 "regression-compile-tmp/soaps-77.imp" LIMIT = (((int)((((int)((((int)(CURROUT)) + (LINELENGTH)))) - (MARGIN)))) + (N)); #line 695 "regression-compile-tmp/soaps-77.imp" L_00b5:; // 696 %IF LAST SEP # ';' // 697 // 698 %CYCLE #line 698 "regression-compile-tmp/soaps-77.imp" L_00b6:; // 699 RP = RP+1; N = REC(RP); %EXIT %IF N = 0 #line 699 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); #line 699 "regression-compile-tmp/soaps-77.imp" N = (REC-1)[RP]; #line 699 "regression-compile-tmp/soaps-77.imp" if (((N) != (0))) goto L_00b9; #line 699 "regression-compile-tmp/soaps-77.imp" goto L_00b7; #line 699 "regression-compile-tmp/soaps-77.imp" L_00b9:; // 700 %IF N > 0 %THEN %START #line 700 "regression-compile-tmp/soaps-77.imp" if (((N) <= (0))) goto L_00ba; // 701 SN = KEYWORD(N)+KEYBASE #line 701 "regression-compile-tmp/soaps-77.imp" SN = (((int)((KEYWORD-1)[N])) + (KEYBASE)); // 702 FLAG = KFLAGS(N) #line 702 "regression-compile-tmp/soaps-77.imp" FLAG = (KFLAGS-1)[N]; // 703 Z = SFLAGS(N) #line 703 "regression-compile-tmp/soaps-77.imp" Z = (SFLAGS-1)[N]; // 704 SLENGTH = BYTEINTEGER(SN) #line 704 "regression-compile-tmp/soaps-77.imp" SLENGTH = *_imp_BYTEINTEGER(SN); // 705 %FINISH %ELSE %START #line 705 "regression-compile-tmp/soaps-77.imp" goto L_00bb; #line 705 "regression-compile-tmp/soaps-77.imp" L_00ba:; // 706 SN = STRINGS(-N) #line 706 "regression-compile-tmp/soaps-77.imp" SN = (STRINGS-1)[(-(N))]; // 707 FLAG = 0; Z = 0 #line 707 "regression-compile-tmp/soaps-77.imp" FLAG = 0; #line 707 "regression-compile-tmp/soaps-77.imp" Z = 0; // 708 SLENGTH = TLENGTH(-N) #line 708 "regression-compile-tmp/soaps-77.imp" SLENGTH = (TLENGTH-1)[(-(N))]; // 709 %FINISH #line 709 "regression-compile-tmp/soaps-77.imp" L_00bb:; // 710 %IF RP >= RPLIM %C #line 710 "regression-compile-tmp/soaps-77.imp" if (((RP) >= (RPLIM))) goto L_00ac; #line 710 "regression-compile-tmp/soaps-77.imp" if ((((((int)(SLENGTH)) + (CURROUT))) <= (LIMIT))) goto L_00bc; #line 710 "regression-compile-tmp/soaps-77.imp" if (((N) > (51))) goto L_00bc; #line 710 "regression-compile-tmp/soaps-77.imp" L_00ac:; #line 710 "regression-compile-tmp/soaps-77.imp" CONTINUE(); #line 710 "regression-compile-tmp/soaps-77.imp" L_00bc:; // 711 %OR (SLENGTH+CURROUT > LIMIT %C // 712 %AND N <= LAST TEXT) %THEN CONTINUE // 713 %IF Z # 0 %START #line 713 "regression-compile-tmp/soaps-77.imp" if (((Z) == (0))) goto L_00bd; // 714 NEST(Z) = CURROUT-LINE BASE #line 714 "regression-compile-tmp/soaps-77.imp" NEST[Z] = (((int)(CURROUT)) - (LINEBASE)); // 715 REM(Z) = RP #line 715 "regression-compile-tmp/soaps-77.imp" (REM-1)[Z] = RP; // 716 %FINISH #line 716 "regression-compile-tmp/soaps-77.imp" L_00bd:; // 717 SPACE %IF FLAG&OPTIONS&15 # 0 %C #line 717 "regression-compile-tmp/soaps-77.imp" if (((((((FLAG) & (OPTIONS))) & (15))) != (0))) goto L_00be; #line 717 "regression-compile-tmp/soaps-77.imp" if (((((((PMODE) ^ (FLAG))) & (128))) != (0))) goto L_00bf; #line 717 "regression-compile-tmp/soaps-77.imp" L_00be:; #line 717 "regression-compile-tmp/soaps-77.imp" SPACE(); #line 717 "regression-compile-tmp/soaps-77.imp" L_00bf:; // 718 %OR (PMODE!!FLAG)&128 = 0 // 719 PERCENT %IF FLAG&PMODE # 0 #line 719 "regression-compile-tmp/soaps-77.imp" if (((((FLAG) & (PMODE))) == (0))) goto L_00c0; #line 719 "regression-compile-tmp/soaps-77.imp" PERCENT(); #line 719 "regression-compile-tmp/soaps-77.imp" L_00c0:; // 720 %CYCLE J=SN+1, 1, SN+BYTEINTEGER(SN) #line 720 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(SN)) + (1)); _increment = 1; _final = ((SN) + (*(int *)(_imp_BYTEINTEGER(SN)))); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(SN)) + (1)), 1, ((SN) + (*(int *)(_imp_BYTEINTEGER(SN))))"); J -= _increment; _control -= _increment; L_00c1:; if (J == _final) goto L_00c2; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 721 CURROUT=CURROUT+1 #line 721 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 722 BYTEINTEGER(CURROUT)=BYTEINTEGER(J) #line 722 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = *_imp_BYTEINTEGER(J); // 723 %REPEAT #line 723 "regression-compile-tmp/soaps-77.imp" goto L_00c1; #line 723 "regression-compile-tmp/soaps-77.imp" L_00c2:; // 724 SPACE %IF FLAG&OPTIONS&120 # 0 #line 724 "regression-compile-tmp/soaps-77.imp" if (((((((FLAG) & (OPTIONS))) & (120))) == (0))) goto L_00c4; #line 724 "regression-compile-tmp/soaps-77.imp" SPACE(); #line 724 "regression-compile-tmp/soaps-77.imp" L_00c4:; // 725 PMODE = 128 %UNLESS 0 < N <= LAST TEXT #line 725 "regression-compile-tmp/soaps-77.imp" if ((((0) >= (N))) || (((N) <= (51)))) goto L_00c5; #line 725 "regression-compile-tmp/soaps-77.imp" L_00c3:; #line 725 "regression-compile-tmp/soaps-77.imp" PMODE = 128; #line 725 "regression-compile-tmp/soaps-77.imp" L_00c5:; // 726 %REPEAT #line 726 "regression-compile-tmp/soaps-77.imp" goto L_00b6; #line 726 "regression-compile-tmp/soaps-77.imp" L_00b7:; // 727 // 728 -> OWNS %IF OWNFLAG = 0 #line 728 "regression-compile-tmp/soaps-77.imp" if (((OWNFLAG) != (0))) goto L_00c6; #line 728 "regression-compile-tmp/soaps-77.imp" goto U_1001; #line 728 "regression-compile-tmp/soaps-77.imp" L_00c6:; // 729 CURROUT = CURROUT+1 #line 729 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 730 BYTEINTEGER(CURROUT) = THIS SEP #line 730 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = THISSEP; // 731 LAST SEP = THIS SEP #line 731 "regression-compile-tmp/soaps-77.imp" LASTSEP = THISSEP; // 732 %IF LOOP FLAG # 0 %AND STATUS&2 # 0 %START #line 732 "regression-compile-tmp/soaps-77.imp" if (((LOOPFLAG) == (0))) goto L_00c7; #line 732 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (2))) == (0))) goto L_00c7; // 733 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = NL #line 733 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 733 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 734 %FINISH #line 734 "regression-compile-tmp/soaps-77.imp" L_00c7:; // 735 %IF STATUS&1 # 0 %THEN %START #line 735 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (1))) == (0))) goto L_00c8; // 736 ! UP // 737 LEVEL = LEVEL<<1 #line 737 "regression-compile-tmp/soaps-77.imp" LEVEL = ((LEVEL) << (1)); // 738 LEVEL = LEVEL!1 %IF STATUS&128 # 0 #line 738 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (128))) == (0))) goto L_00c9; #line 738 "regression-compile-tmp/soaps-77.imp" LEVEL = ((LEVEL) | (1)); #line 738 "regression-compile-tmp/soaps-77.imp" L_00c9:; // 739 MLIMIT = MLIMIT<<1 #line 739 "regression-compile-tmp/soaps-77.imp" MLIMIT = ((MLIMIT) << (1)); // 740 MLIMIT = MLIMIT!1 %C #line 740 "regression-compile-tmp/soaps-77.imp" if (((MARGIN) >= (MAXMARGIN))) goto L_00ca; #line 740 "regression-compile-tmp/soaps-77.imp" if (((INDENTBLOCKS) != (0))) goto L_00cb; #line 740 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (128))) == (0))) goto L_00cb; #line 740 "regression-compile-tmp/soaps-77.imp" L_00ca:; #line 740 "regression-compile-tmp/soaps-77.imp" MLIMIT = ((MLIMIT) | (1)); #line 740 "regression-compile-tmp/soaps-77.imp" L_00cb:; // 741 %IF MARGIN >= MAX MARGIN %OR ( %C // 742 INDENT BLOCKS = 0 %AND STATUS&128 # 0) // 743 %IF MARGIN = 0 %AND EXTRA MARGIN # 0 %C #line 743 "regression-compile-tmp/soaps-77.imp" if (((MARGIN) != (0))) goto L_00cc; #line 743 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_00cc; #line 743 "regression-compile-tmp/soaps-77.imp" MARGIN = INITIALMARGIN; #line 743 "regression-compile-tmp/soaps-77.imp" goto L_00cd; #line 743 "regression-compile-tmp/soaps-77.imp" L_00cc:; // 744 %THEN MARGIN = INITIAL MARGIN %ELSE %START // 745 MARGIN = MARGIN+DELTA MARGIN %IF MLIMIT&1 = 0 #line 745 "regression-compile-tmp/soaps-77.imp" if (((((MLIMIT) & (1))) != (0))) goto L_00ce; #line 745 "regression-compile-tmp/soaps-77.imp" MARGIN = (((int)(MARGIN)) + (DELTAMARGIN)); #line 745 "regression-compile-tmp/soaps-77.imp" L_00ce:; // 746 %FINISH #line 746 "regression-compile-tmp/soaps-77.imp" L_00cd:; // 747 %FINISH #line 747 "regression-compile-tmp/soaps-77.imp" L_00c8:; // 748 %IF LAST SEP = ';' %THEN %START #line 748 "regression-compile-tmp/soaps-77.imp" if (((LASTSEP) != (59))) goto L_00cf; // 749 BYTEINTEGER(CURROUT+1) = ' ' #line 749 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER((((int)(CURROUT)) + (1))) = 32; // 750 CURROUT = CURROUT+2 #line 750 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (2)); // 751 BYTEINTEGER(CURROUT) = ' ' #line 751 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 752 %FINISH %ELSE LINE BASE = CURROUT #line 752 "regression-compile-tmp/soaps-77.imp" goto L_00d0; #line 752 "regression-compile-tmp/soaps-77.imp" L_00cf:; #line 752 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; #line 752 "regression-compile-tmp/soaps-77.imp" L_00d0:; // 753 %EXIT %IF CURRIN >= ENDOFFILE %OR STATUS&7 = 7 #line 753 "regression-compile-tmp/soaps-77.imp" if (((CURRIN) >= (ENDOFFILE))) goto L_00b8; #line 753 "regression-compile-tmp/soaps-77.imp" if (((((STATUS) & (7))) != (7))) goto L_00d1; #line 753 "regression-compile-tmp/soaps-77.imp" L_00b8:; #line 753 "regression-compile-tmp/soaps-77.imp" goto L_003f; #line 753 "regression-compile-tmp/soaps-77.imp" L_00d1:; // 754 %FINISH #line 754 "regression-compile-tmp/soaps-77.imp" L_00af:; // 755 %FINISH #line 755 "regression-compile-tmp/soaps-77.imp" L_0053:; // 756 %REPEAT #line 756 "regression-compile-tmp/soaps-77.imp" goto L_003e; #line 756 "regression-compile-tmp/soaps-77.imp" L_003f:; // 757 // 758 CLOSE FILES #line 758 "regression-compile-tmp/soaps-77.imp" CLOSEFILES(); // 759 %RETURN #line 759 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 760 // 761 %ROUTINE SPACE #line 761 "regression-compile-tmp/soaps-77.imp" void SPACE( void ) #line 761 "regression-compile-tmp/soaps-77.imp" { // 762 %IF ' ' # BYTEINTEGER(CURROUT) # NL %C #line 762 "regression-compile-tmp/soaps-77.imp" if (({int tmp1 = 32, tmp2 = *_imp_BYTEINTEGER(CURROUT), tmp3 = 10; (tmp1 == tmp2) || (tmp2 == tmp3);})) goto L_00d2; #line 762 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(CURROUT)) == (40))) goto L_00d2; // 763 %AND BYTEINTEGER(CURROUT) # '(' %THEN %START // 764 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = ' ' #line 764 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 764 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 765 PMODE = 128 #line 765 "regression-compile-tmp/soaps-77.imp" PMODE = 128; // 766 %FINISH #line 766 "regression-compile-tmp/soaps-77.imp" L_00d2:; // 767 %END #line 767 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SPACE at level 2 // 768 // 769 %ROUTINE PERCENT #line 769 "regression-compile-tmp/soaps-77.imp" void PERCENT( void ) #line 769 "regression-compile-tmp/soaps-77.imp" { // 770 %IF PMODE # 0 %THEN %START #line 770 "regression-compile-tmp/soaps-77.imp" if (((PMODE) == (0))) goto L_00d3; // 771 %IF ' ' # BYTEINTEGER(CURROUT) # NL %C #line 771 "regression-compile-tmp/soaps-77.imp" if (({int tmp1 = 32, tmp2 = *_imp_BYTEINTEGER(CURROUT), tmp3 = 10; (tmp1 == tmp2) || (tmp2 == tmp3);})) goto L_00d4; #line 771 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(CURROUT)) == (40))) goto L_00d4; // 772 %AND BYTEINTEGER(CURROUT) # '(' %THEN %START // 773 CURROUT = CURROUT+1; BYTEINTEGER(CURROUT) = ' ' #line 773 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); #line 773 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 32; // 774 %FINISH #line 774 "regression-compile-tmp/soaps-77.imp" L_00d4:; // 775 CURROUT = CURROUT+1 #line 775 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (1)); // 776 BYTEINTEGER(CURROUT) = '%' #line 776 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 37; // 777 PMODE = 0 #line 777 "regression-compile-tmp/soaps-77.imp" PMODE = 0; // 778 %FINISH #line 778 "regression-compile-tmp/soaps-77.imp" L_00d3:; // 779 %END #line 779 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PERCENT at level 2 // 780 %END #line 780 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SOAP at level 1 // 781 // 782 %ROUTINE CONNEKT(%STRING (17) FILE, %INTEGERNAME MODE, FLAG) #line 782 "regression-compile-tmp/soaps-77.imp" void CONNEKT( _imp_string /*%string(17)*/ FILE, int /*name*/*MODE, int /*name*/*FLAG ) #line 782 "regression-compile-tmp/soaps-77.imp" { // 783 %INTEGER J #line 783 "regression-compile-tmp/soaps-77.imp" int J; // 784 J = 0 #line 784 "regression-compile-tmp/soaps-77.imp" J = 0; // 785 !FDP(CONNEKTEP,FILE,MODE,ADDR(J),FLAG) // 786 MODE = J #line 786 "regression-compile-tmp/soaps-77.imp" *MODE = J; // 787 FLAG = 0 %IF FLAG = 5 #line 787 "regression-compile-tmp/soaps-77.imp" if (((*FLAG) != (5))) goto L_00d5; #line 787 "regression-compile-tmp/soaps-77.imp" *FLAG = 0; #line 787 "regression-compile-tmp/soaps-77.imp" L_00d5:; // 788 %END #line 788 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONNEKT at level 1 // 789 // 790 %INTEGERFN PARSE(%INTEGER ENTRY) #line 790 "regression-compile-tmp/soaps-77.imp" int PARSE( int ENTRY ) #line 790 "regression-compile-tmp/soaps-77.imp" { // 791 !%SHORTROUTINE // 792 %INTEGER SS, SP, TRP, TPT, L #line 792 "regression-compile-tmp/soaps-77.imp" int SS; #line 792 "regression-compile-tmp/soaps-77.imp" int SP; #line 792 "regression-compile-tmp/soaps-77.imp" int TRP; #line 792 "regression-compile-tmp/soaps-77.imp" int TPT; #line 792 "regression-compile-tmp/soaps-77.imp" int L; // 793 %BYTEINTEGER MODES #line 793 "regression-compile-tmp/soaps-77.imp" unsigned char MODES; // 794 // 795 %INTEGERFN PUT #line 795 "regression-compile-tmp/soaps-77.imp" int PUT( void ) #line 795 "regression-compile-tmp/soaps-77.imp" { // 796 SPT = SPT-1 #line 796 "regression-compile-tmp/soaps-77.imp" SPT = (((int)(SPT)) - (1)); // 797 RP = RP+1 #line 797 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); // 798 REC(RP) = SPT #line 798 "regression-compile-tmp/soaps-77.imp" (REC-1)[RP] = SPT; // 799 TLENGTH(-SPT) = SLENGTH #line 799 "regression-compile-tmp/soaps-77.imp" (TLENGTH-1)[(-(SPT))] = SLENGTH; // 800 STRINGS(-SPT) = SAD #line 800 "regression-compile-tmp/soaps-77.imp" (STRINGS-1)[(-(SPT))] = SAD; // 801 STRING(SAD) = ST #line 801 "regression-compile-tmp/soaps-77.imp" *_imp_STRING(SAD) = ST; // 802 SAD = SAD+1+BYTEINTEGER(ADDR(ST)) #line 802 "regression-compile-tmp/soaps-77.imp" SAD = (((unsigned char)((((int)(SAD)) + (1)))) + (*_imp_BYTEINTEGER(_imp_ADDR(&ST)))); // 803 %RESULT = SPT #line 803 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return SPT; // 804 %END #line 804 "regression-compile-tmp/soaps-77.imp" } // End of block PUT at level 2 // 805 // 806 %ROUTINE SYM #line 806 "regression-compile-tmp/soaps-77.imp" void SYM( void ) #line 806 "regression-compile-tmp/soaps-77.imp" { // 807 // 808 %CYCLE #line 808 "regression-compile-tmp/soaps-77.imp" L_00d6:; // 809 CURRIN = CURRIN+1; S = BYTEINTEGER(CURRIN) #line 809 "regression-compile-tmp/soaps-77.imp" CURRIN = (((int)(CURRIN)) + (1)); #line 809 "regression-compile-tmp/soaps-77.imp" S = *_imp_BYTEINTEGER(CURRIN); // 810 MODE = 0 %UNLESS 'A' <= S <= 'Z' #line 810 "regression-compile-tmp/soaps-77.imp" if ((((65) > (S))) || (((S) <= (90)))) goto L_00d9; #line 810 "regression-compile-tmp/soaps-77.imp" L_0033:; #line 810 "regression-compile-tmp/soaps-77.imp" MODE = 0; #line 810 "regression-compile-tmp/soaps-77.imp" L_00d9:; // 811 %IF S = '%' %THEN MODE = 32 %ELSE %START #line 811 "regression-compile-tmp/soaps-77.imp" if (((S) != (37))) goto L_00da; #line 811 "regression-compile-tmp/soaps-77.imp" MODE = 32; #line 811 "regression-compile-tmp/soaps-77.imp" goto L_00db; #line 811 "regression-compile-tmp/soaps-77.imp" L_00da:; // 812 %IF S # ' ' %THEN %START #line 812 "regression-compile-tmp/soaps-77.imp" if (((S) == (32))) goto L_00dc; // 813 S = S+MODE #line 813 "regression-compile-tmp/soaps-77.imp" S = ((S) + ((int)(MODE))); // 814 %RETURN %IF S # 'C'+32 %C #line 814 "regression-compile-tmp/soaps-77.imp" if (((S) != (99))) goto L_00dd; #line 814 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER((((int)(CURRIN)) + (1)))) == (10))) goto L_00de; #line 814 "regression-compile-tmp/soaps-77.imp" L_00dd:; #line 814 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 814 "regression-compile-tmp/soaps-77.imp" L_00de:; // 815 %OR BYTEINTEGER(CURRIN+1) # NL // 816 CURRIN = CURRIN+1 #line 816 "regression-compile-tmp/soaps-77.imp" CURRIN = (((int)(CURRIN)) + (1)); // 817 MODE = 0 #line 817 "regression-compile-tmp/soaps-77.imp" MODE = 0; // 818 %FINISH #line 818 "regression-compile-tmp/soaps-77.imp" L_00dc:; // 819 SPACES = PACK NAMES #line 819 "regression-compile-tmp/soaps-77.imp" SPACES = PACKNAMES; // 820 %FINISH #line 820 "regression-compile-tmp/soaps-77.imp" L_00db:; // 821 %REPEAT #line 821 "regression-compile-tmp/soaps-77.imp" goto L_00d6; // 822 // 823 %END #line 823 "regression-compile-tmp/soaps-77.imp" return; } // End of block SYM at level 2 // 824 // 825 %INTEGERFN CONSTANT #line 825 "regression-compile-tmp/soaps-77.imp" int CONSTANT( void ) #line 825 "regression-compile-tmp/soaps-77.imp" { // 826 %INTEGER T, LIM #line 826 "regression-compile-tmp/soaps-77.imp" int T; #line 826 "regression-compile-tmp/soaps-77.imp" int LIM; // 827 %INTEGER CS #line 827 "regression-compile-tmp/soaps-77.imp" int CS; // 828 SLENGTH = 0 #line 828 "regression-compile-tmp/soaps-77.imp" SLENGTH = 0; // 829 ST = "" #line 829 "regression-compile-tmp/soaps-77.imp" ST = _imp_str_literal(""); // 830 SYM #line 830 "regression-compile-tmp/soaps-77.imp" SYM(); // 831 CS = CURRIN %AND ST = ST.TOSTRING(S) %AND SYM %C #line 831 "regression-compile-tmp/soaps-77.imp" L_00df:; #line 831 "regression-compile-tmp/soaps-77.imp" if ((((48) > (S))) || (((S) <= (57)))) goto L_00e1; #line 831 "regression-compile-tmp/soaps-77.imp" L_00e2:; #line 831 "regression-compile-tmp/soaps-77.imp" if (((S) == (46))) goto L_00e1; #line 831 "regression-compile-tmp/soaps-77.imp" if (((S) != (64))) goto L_00e0; #line 831 "regression-compile-tmp/soaps-77.imp" L_00e1:; #line 831 "regression-compile-tmp/soaps-77.imp" CS = CURRIN; #line 831 "regression-compile-tmp/soaps-77.imp" ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S)); #line 831 "regression-compile-tmp/soaps-77.imp" SYM(); #line 831 "regression-compile-tmp/soaps-77.imp" goto L_00df; #line 831 "regression-compile-tmp/soaps-77.imp" L_00e0:; // 832 %WHILE '0' <= S <= '9' %OR S = '.' %OR S = '@' // 833 CURRIN = CS %AND %RESULT = PUT %IF ST # "" #line 833 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(ST, _imp_str_literal("")) == 0)) goto L_00e3; #line 833 "regression-compile-tmp/soaps-77.imp" CURRIN = CS; #line 833 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return PUT(); #line 833 "regression-compile-tmp/soaps-77.imp" L_00e3:; // 834 %IF S = 'M' %OR S = 'X' %OR S = 'B' %THEN %START #line 834 "regression-compile-tmp/soaps-77.imp" if (((S) == (77))) goto L_00e4; #line 834 "regression-compile-tmp/soaps-77.imp" if (((S) == (88))) goto L_00e4; #line 834 "regression-compile-tmp/soaps-77.imp" if (((S) != (66))) goto L_00e5; #line 834 "regression-compile-tmp/soaps-77.imp" L_00e4:; // 835 ST = TOSTRING(S) #line 835 "regression-compile-tmp/soaps-77.imp" ST = _imp_TOSTRING(S); // 836 T = CURRIN #line 836 "regression-compile-tmp/soaps-77.imp" T = CURRIN; // 837 SYM #line 837 "regression-compile-tmp/soaps-77.imp" SYM(); // 838 CURRIN = T %AND %RESULT = 0 %IF S # '''' #line 838 "regression-compile-tmp/soaps-77.imp" if (((S) == (39))) goto L_00e6; #line 838 "regression-compile-tmp/soaps-77.imp" CURRIN = T; #line 838 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 838 "regression-compile-tmp/soaps-77.imp" L_00e6:; // 839 %FINISH #line 839 "regression-compile-tmp/soaps-77.imp" L_00e5:; // 840 LIM = CURRIN+255 #line 840 "regression-compile-tmp/soaps-77.imp" LIM = (((int)(CURRIN)) + (255)); // 841 // 842 %WHILE S = '''' %CYCLE #line 842 "regression-compile-tmp/soaps-77.imp" L_00e7:; #line 842 "regression-compile-tmp/soaps-77.imp" if (((S) != (39))) goto L_00e8; // 843 // 844 %CYCLE #line 844 "regression-compile-tmp/soaps-77.imp" L_00ea:; // 845 SLENGTH = BYTEINTEGER(ADDR(ST)) %C #line 845 "regression-compile-tmp/soaps-77.imp" if (((S) != (10))) goto L_00ed; #line 845 "regression-compile-tmp/soaps-77.imp" if (((SLENGTH) != (0))) goto L_00ed; #line 845 "regression-compile-tmp/soaps-77.imp" SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST)); #line 845 "regression-compile-tmp/soaps-77.imp" L_00ed:; // 846 %IF S = NL %AND SLENGTH = 0 // 847 ST = ST.TOSTRING(S) #line 847 "regression-compile-tmp/soaps-77.imp" ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S)); // 848 CURRIN = CURRIN+1 #line 848 "regression-compile-tmp/soaps-77.imp" CURRIN = (((int)(CURRIN)) + (1)); // 849 S = BYTEINTEGER(CURRIN) #line 849 "regression-compile-tmp/soaps-77.imp" S = *_imp_BYTEINTEGER(CURRIN); // 850 %REPEAT %UNTIL S = '''' %OR CURRIN > LIM #line 850 "regression-compile-tmp/soaps-77.imp" if (((S) == (39))) goto L_00eb; #line 850 "regression-compile-tmp/soaps-77.imp" if (((CURRIN) > (LIM))) goto L_00eb; #line 850 "regression-compile-tmp/soaps-77.imp" goto L_00ea; #line 850 "regression-compile-tmp/soaps-77.imp" L_00eb:; // 851 // 852 ST = ST."'" #line 852 "regression-compile-tmp/soaps-77.imp" ST = _imp_join((_imp_string)ST,(_imp_string)_imp_str_literal("'")); // 853 CS = CURRIN #line 853 "regression-compile-tmp/soaps-77.imp" CS = CURRIN; // 854 SYM #line 854 "regression-compile-tmp/soaps-77.imp" SYM(); // 855 %REPEAT #line 855 "regression-compile-tmp/soaps-77.imp" goto L_00e7; #line 855 "regression-compile-tmp/soaps-77.imp" L_00e8:; // 856 // 857 SLENGTH = BYTEINTEGER(ADDR(ST)) %IF SLENGTH = 0 #line 857 "regression-compile-tmp/soaps-77.imp" if (((SLENGTH) != (0))) goto L_00ee; #line 857 "regression-compile-tmp/soaps-77.imp" SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST)); #line 857 "regression-compile-tmp/soaps-77.imp" L_00ee:; // 858 CURRIN = CS %AND %RESULT = PUT %IF ST # "" #line 858 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(ST, _imp_str_literal("")) == 0)) goto L_00ef; #line 858 "regression-compile-tmp/soaps-77.imp" CURRIN = CS; #line 858 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return PUT(); #line 858 "regression-compile-tmp/soaps-77.imp" L_00ef:; // 859 %RESULT = 0 #line 859 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 860 %END #line 860 "regression-compile-tmp/soaps-77.imp" } // End of block CONSTANT at level 2 // 861 // 862 %INTEGERFN NAME #line 862 "regression-compile-tmp/soaps-77.imp" int NAME( void ) #line 862 "regression-compile-tmp/soaps-77.imp" { // 863 %INTEGER Z #line 863 "regression-compile-tmp/soaps-77.imp" int Z; // 864 SYM #line 864 "regression-compile-tmp/soaps-77.imp" SYM(); // 865 %RESULT = 0 %UNLESS 'A' <= S <= 'Z' #line 865 "regression-compile-tmp/soaps-77.imp" if ((((65) > (S))) || (((S) <= (90)))) goto L_00f0; #line 865 "regression-compile-tmp/soaps-77.imp" L_00e9:; #line 865 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 865 "regression-compile-tmp/soaps-77.imp" L_00f0:; // 866 ST = "" #line 866 "regression-compile-tmp/soaps-77.imp" ST = _imp_str_literal(""); // 867 // 868 %CYCLE #line 868 "regression-compile-tmp/soaps-77.imp" L_00f1:; // 869 SPACES = 1 #line 869 "regression-compile-tmp/soaps-77.imp" SPACES = 1; // 870 ST = ST.TOSTRING(S) #line 870 "regression-compile-tmp/soaps-77.imp" ST = _imp_join((_imp_string)ST,(_imp_string)_imp_TOSTRING(S)); // 871 Z = CURRIN #line 871 "regression-compile-tmp/soaps-77.imp" Z = CURRIN; // 872 SYM #line 872 "regression-compile-tmp/soaps-77.imp" SYM(); // 873 SLENGTH = BYTEINTEGER(ADDR(ST)) %AND CURRIN = Z %C #line 873 "regression-compile-tmp/soaps-77.imp" if ((((65) > (S))) || (((S) <= (90)))) goto L_00f4; #line 873 "regression-compile-tmp/soaps-77.imp" L_00ec:; #line 873 "regression-compile-tmp/soaps-77.imp" if ((((48) > (S))) || (((S) <= (57)))) goto L_00f4; #line 873 "regression-compile-tmp/soaps-77.imp" L_00f5:; #line 873 "regression-compile-tmp/soaps-77.imp" SLENGTH = *_imp_BYTEINTEGER(_imp_ADDR(&ST)); #line 873 "regression-compile-tmp/soaps-77.imp" CURRIN = Z; #line 873 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return PUT(); #line 873 "regression-compile-tmp/soaps-77.imp" L_00f4:; // 874 %AND %RESULT = PUT %C // 875 %UNLESS 'A' <= S <= 'Z' %OR '0' <= S <= '9' // 876 ST = ST." " %IF SPACES = 0 #line 876 "regression-compile-tmp/soaps-77.imp" if (((SPACES) != (0))) goto L_00f6; #line 876 "regression-compile-tmp/soaps-77.imp" ST = _imp_join((_imp_string)ST,(_imp_string)_imp_str_literal(" ")); #line 876 "regression-compile-tmp/soaps-77.imp" L_00f6:; // 877 %REPEAT #line 877 "regression-compile-tmp/soaps-77.imp" goto L_00f1; // 878 // 879 %END #line 879 "regression-compile-tmp/soaps-77.imp" } // End of block NAME at level 2 // 880 %SWITCH BIP(0 : 15) #line 880 "regression-compile-tmp/soaps-77.imp" static int sw1_BIP_idx; static const void * /*SWITCH*/ sw1_BIP[16] = { &&sw1_BIP_0, &&sw1_BIP_1, &&sw1_BIP_2, &&sw1_BIP_3, &&sw1_BIP_4, &&sw1_BIP_5, &&sw1_BIP_6, &&sw1_BIP_7, &&sw1_BIP_8, &&sw1_BIP_9, &&sw1_BIP_10, &&sw1_BIP_11, &&sw1_BIP_12, &&sw1_BIP_13, &&sw1_BIP_14, &&sw1_BIP_15, }; // 881 ! // 882 TRP = RP #line 882 "regression-compile-tmp/soaps-77.imp" TRP = RP; // 883 TPT = CURRIN #line 883 "regression-compile-tmp/soaps-77.imp" TPT = CURRIN; // 884 MODES = MODE #line 884 "regression-compile-tmp/soaps-77.imp" MODES = MODE; // 885 FAILURE: #line 885 "regression-compile-tmp/soaps-77.imp" U_1001:; // 886 RP = TRP #line 886 "regression-compile-tmp/soaps-77.imp" RP = TRP; // 887 CURRIN = TPT #line 887 "regression-compile-tmp/soaps-77.imp" CURRIN = TPT; // 888 MODE = MODES #line 888 "regression-compile-tmp/soaps-77.imp" MODE = MODES; // 889 ENTRY = ENTRY+1 #line 889 "regression-compile-tmp/soaps-77.imp" ENTRY = (((int)(ENTRY)) + (1)); // 890 SP = MAIN(ENTRY) #line 890 "regression-compile-tmp/soaps-77.imp" SP = (MAIN-1)[ENTRY]; // 891 %RESULT = 1 %IF SP = 0 #line 891 "regression-compile-tmp/soaps-77.imp" if (((SP) != (0))) goto L_00f2; #line 891 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 891 "regression-compile-tmp/soaps-77.imp" L_00f2:; // 892 SUCCESS: #line 892 "regression-compile-tmp/soaps-77.imp" U_1002:; // 893 SP = SP+1 #line 893 "regression-compile-tmp/soaps-77.imp" SP = (((int)(SP)) + (1)); // 894 SS = SUB(SP) #line 894 "regression-compile-tmp/soaps-77.imp" SS = (SUB-2)[SP]; // 895 %RESULT = 0 %IF S S = 0 #line 895 "regression-compile-tmp/soaps-77.imp" if (((SS) != (0))) goto L_00f7; #line 895 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 895 "regression-compile-tmp/soaps-77.imp" L_00f7:; // 896 -> BIP(SS>>12&15) #line 896 "regression-compile-tmp/soaps-77.imp" sw1_BIP_idx = (((int)((((unsigned int)(SS)) >> (12)))) & (15)); if ((0 <= sw1_BIP_idx) && (sw1_BIP_idx <= 15)) goto *sw1_BIP[sw1_BIP_idx]; else { /*_imp_signal(8, 2, sw1_BIP_idx);*/ fprintf(stderr, "%%SWITCH index BIP(%d) not in range 0:15 at %s:%d\n", sw1_BIP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 897 BIP(1): ! SUB-PHRASE #line 897 "regression-compile-tmp/soaps-77.imp" sw1_BIP_1:; // 898 -> SUCCESS %IF PARSE(SS&X'FFF') = 0 #line 898 "regression-compile-tmp/soaps-77.imp" if (((PARSE(((SS) & (4095)))) != (0))) goto L_00f8; #line 898 "regression-compile-tmp/soaps-77.imp" goto U_1002; #line 898 "regression-compile-tmp/soaps-77.imp" L_00f8:; // 899 -> FAILURE #line 899 "regression-compile-tmp/soaps-77.imp" goto U_1001; // 900 BIP(0): ! LITERAL #line 900 "regression-compile-tmp/soaps-77.imp" sw1_BIP_0:; // 901 SS = SS&X'FFF' #line 901 "regression-compile-tmp/soaps-77.imp" SS = ((SS) & (4095)); // 902 L = LITERAL(SS); ! LENGTH #line 902 "regression-compile-tmp/soaps-77.imp" L = (LITERAL-1)[SS]; // 903 // 904 %CYCLE SS = SS+1,1,SS+L #line 904 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(SS)) + (1)); _increment = 1; _final = (((int)(SS)) + (L)); SS = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle SS = (((int)(SS)) + (1)), 1, (((int)(SS)) + (L))"); SS -= _increment; _control -= _increment; L_00f9:; if (SS == _final) goto L_00fa; SS += _increment; _control += _increment; if (SS != _control) _imp_signal(4,2,0,"Corrupt control variable SS"); /* FOR loop control variable corrupted */ } // 905 SYM #line 905 "regression-compile-tmp/soaps-77.imp" SYM(); // 906 -> FAILURE %UNLESS S = LITERAL(SS) #line 906 "regression-compile-tmp/soaps-77.imp" if (((S) == ((LITERAL-1)[SS]))) goto L_00fc; #line 906 "regression-compile-tmp/soaps-77.imp" goto U_1001; #line 906 "regression-compile-tmp/soaps-77.imp" L_00fc:; // 907 %REPEAT #line 907 "regression-compile-tmp/soaps-77.imp" goto L_00f9; #line 907 "regression-compile-tmp/soaps-77.imp" L_00fa:; // 908 // 909 -> SUCCESS #line 909 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 910 BIP(15): ! (NAME) #line 910 "regression-compile-tmp/soaps-77.imp" sw1_BIP_15:; // 911 -> SUCCESS %IF NAME # 0 #line 911 "regression-compile-tmp/soaps-77.imp" if (((NAME()) == (0))) goto L_00fd; #line 911 "regression-compile-tmp/soaps-77.imp" goto U_1002; #line 911 "regression-compile-tmp/soaps-77.imp" L_00fd:; // 912 -> FAILURE #line 912 "regression-compile-tmp/soaps-77.imp" goto U_1001; // 913 BIP(3): ! CONSTANT #line 913 "regression-compile-tmp/soaps-77.imp" sw1_BIP_3:; // 914 -> SUCCESS %IF CONSTANT # 0 #line 914 "regression-compile-tmp/soaps-77.imp" if (((CONSTANT()) == (0))) goto L_00fe; #line 914 "regression-compile-tmp/soaps-77.imp" goto U_1002; #line 914 "regression-compile-tmp/soaps-77.imp" L_00fe:; // 915 -> FAILURE #line 915 "regression-compile-tmp/soaps-77.imp" goto U_1001; // 916 BIP(4): ! (*LOOP) #line 916 "regression-compile-tmp/soaps-77.imp" sw1_BIP_4:; // 917 LOOP FLAG = 1 %IF ISOLATE LOOPS # 0 #line 917 "regression-compile-tmp/soaps-77.imp" if (((ISOLATELOOPS) == (0))) goto L_00ff; #line 917 "regression-compile-tmp/soaps-77.imp" LOOPFLAG = 1; #line 917 "regression-compile-tmp/soaps-77.imp" L_00ff:; // 918 -> SUCCESS #line 918 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 919 BIP(5): ! (UP) #line 919 "regression-compile-tmp/soaps-77.imp" sw1_BIP_5:; // 920 STATUS = STATUS!1; -> SUCCESS #line 920 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (1)); #line 920 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 921 BIP(6): ! (DOWN) #line 921 "regression-compile-tmp/soaps-77.imp" sw1_BIP_6:; // 922 STATUS = STATUS!2; -> SUCCESS #line 922 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (2)); #line 922 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 923 BIP(7): ! (END) #line 923 "regression-compile-tmp/soaps-77.imp" sw1_BIP_7:; // 924 STATUS = STATUS!4; -> SUCCESS #line 924 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (4)); #line 924 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 925 BIP(8): ! (OWN) #line 925 "regression-compile-tmp/soaps-77.imp" sw1_BIP_8:; // 926 -> FAILURE %IF LEAVE OWNS # 0 %C #line 926 "regression-compile-tmp/soaps-77.imp" if (((LEAVEOWNS) == (0))) goto L_0100; #line 926 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(CURRIN)) == (42))) goto L_0100; #line 926 "regression-compile-tmp/soaps-77.imp" goto U_1001; #line 926 "regression-compile-tmp/soaps-77.imp" L_0100:; // 927 %AND BYTEINTEGER(CURRIN) # '*' // 928 ! MACHINE CODE // 929 OWN FLAG = 0 #line 929 "regression-compile-tmp/soaps-77.imp" OWNFLAG = 0; // 930 RP = RP+1; REC(RP) = 0 #line 930 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); #line 930 "regression-compile-tmp/soaps-77.imp" (REC-1)[RP] = 0; // 931 ! TO FIDDLE THE END OF STAT. // 932 THIS SEP = NL #line 932 "regression-compile-tmp/soaps-77.imp" THISSEP = 10; // 933 -> SUCCESS #line 933 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 934 BIP(10): ! (SPECIAL COMMENT) #line 934 "regression-compile-tmp/soaps-77.imp" sw1_BIP_10:; // 935 INBASE = INBASE+1; ! TO SET DISP PROPERLY #line 935 "regression-compile-tmp/soaps-77.imp" INBASE = (((int)(INBASE)) + (1)); // 936 STATUS = STATUS!32 #line 936 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (32)); // 937 BIP(9): ! (COMMENT) #line 937 "regression-compile-tmp/soaps-77.imp" sw1_BIP_9:; // 938 STATUS = STATUS!16 #line 938 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (16)); // 939 RP = RP+1; REC(RP) = CURRIN-INBASE-1 #line 939 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); #line 939 "regression-compile-tmp/soaps-77.imp" (REC-1)[RP] = (((int)((((int)(CURRIN)) - (INBASE)))) - (1)); // 940 -> SUCCESS #line 940 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 941 BIP(11): ! (*DEC) #line 941 "regression-compile-tmp/soaps-77.imp" sw1_BIP_11:; // 942 STATUS = STATUS!64 %IF DECS RELATIVE # 0; -> SUCCESS #line 942 "regression-compile-tmp/soaps-77.imp" if (((DECSRELATIVE) == (0))) goto L_0101; #line 942 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (64)); #line 942 "regression-compile-tmp/soaps-77.imp" L_0101:; #line 942 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 943 BIP(12): ! (*BLOCK) #line 943 "regression-compile-tmp/soaps-77.imp" sw1_BIP_12:; // 944 STATUS = STATUS!64 %IF EXTRA MARGIN # 0 #line 944 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_0102; #line 944 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (64)); #line 944 "regression-compile-tmp/soaps-77.imp" L_0102:; // 945 STATUS = STATUS!128; -> SUCCESS #line 945 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (128)); #line 945 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 946 BIP(13): ! (*NULL) #line 946 "regression-compile-tmp/soaps-77.imp" sw1_BIP_13:; // 947 STATUS = STATUS!8; -> SUCCESS #line 947 "regression-compile-tmp/soaps-77.imp" STATUS = ((STATUS) | (8)); #line 947 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 948 BIP(14): ! (S) #line 948 "regression-compile-tmp/soaps-77.imp" sw1_BIP_14:; // 949 SYM #line 949 "regression-compile-tmp/soaps-77.imp" SYM(); // 950 -> FAILURE %UNLESS S = NL %OR S = ';' #line 950 "regression-compile-tmp/soaps-77.imp" if (((S) == (10))) goto L_0103; #line 950 "regression-compile-tmp/soaps-77.imp" if (((S) == (59))) goto L_0103; #line 950 "regression-compile-tmp/soaps-77.imp" goto U_1001; #line 950 "regression-compile-tmp/soaps-77.imp" L_0103:; // 951 THIS SEP = S #line 951 "regression-compile-tmp/soaps-77.imp" THISSEP = S; // 952 THISSEP = NL %IF SPLIT STATS # 0 #line 952 "regression-compile-tmp/soaps-77.imp" if (((SPLITSTATS) == (0))) goto L_0104; #line 952 "regression-compile-tmp/soaps-77.imp" THISSEP = 10; #line 952 "regression-compile-tmp/soaps-77.imp" L_0104:; // 953 RP = RP+1 #line 953 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); // 954 REC(RP) = 0 #line 954 "regression-compile-tmp/soaps-77.imp" (REC-1)[RP] = 0; // 955 -> SUCCESS #line 955 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 956 BIP(2): ! <> #line 956 "regression-compile-tmp/soaps-77.imp" sw1_BIP_2:; // 957 RP = RP+1 #line 957 "regression-compile-tmp/soaps-77.imp" RP = (((int)(RP)) + (1)); // 958 REC(RP) = SS&X'FFF' #line 958 "regression-compile-tmp/soaps-77.imp" (REC-1)[RP] = ((SS) & (4095)); // 959 -> SUCCESS #line 959 "regression-compile-tmp/soaps-77.imp" goto U_1002; // 960 %END #line 960 "regression-compile-tmp/soaps-77.imp" } // End of block PARSE at level 1 // 961 // 962 %ROUTINE CREATE(%STRING (8) FILE, %INTEGERNAME SIZE, FLAG) #line 962 "regression-compile-tmp/soaps-77.imp" void CREATE( _imp_string /*%string(8)*/ FILE, int /*name*/*SIZE, int /*name*/*FLAG ) #line 962 "regression-compile-tmp/soaps-77.imp" { // 963 !FDP(CREATEEP,FILE,SIZE,0,FLAG) // 964 SIZE = 3 #line 964 "regression-compile-tmp/soaps-77.imp" *SIZE = 3; // 965 %IF FLAG = 0 %OR FLAG = 3 %THEN CONNEKT(FILE,SIZE,FLAG) #line 965 "regression-compile-tmp/soaps-77.imp" if (((*FLAG) == (0))) goto L_00fb; #line 965 "regression-compile-tmp/soaps-77.imp" if (((*FLAG) != (3))) goto L_0105; #line 965 "regression-compile-tmp/soaps-77.imp" L_00fb:; #line 965 "regression-compile-tmp/soaps-77.imp" CONNEKT(FILE, SIZE, FLAG); #line 965 "regression-compile-tmp/soaps-77.imp" L_0105:; // 966 %END #line 966 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CREATE at level 1 // 967 // 968 %ROUTINE COMPRESS(%STRING (8) FILE) #line 968 "regression-compile-tmp/soaps-77.imp" void COMPRESS( _imp_string /*%string(8)*/ FILE ) #line 968 "regression-compile-tmp/soaps-77.imp" { // 969 %END #line 969 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block COMPRESS at level 1 // 970 // 971 %ROUTINE SET UP FILES(%STRING(*)%NAME S) #line 971 "regression-compile-tmp/soaps-77.imp" void SETUPFILES( _imp_string /*%string(255)*/ /*name*/*S ) #line 971 "regression-compile-tmp/soaps-77.imp" { // 972 !%SHORTROUTINE // 973 %INTEGER FLAG, SIZE #line 973 "regression-compile-tmp/soaps-77.imp" int FLAG; #line 973 "regression-compile-tmp/soaps-77.imp" int SIZE; // 974 OK = 0 #line 974 "regression-compile-tmp/soaps-77.imp" OK = 0; // 975 INPUT = "" #line 975 "regression-compile-tmp/soaps-77.imp" INPUT = _imp_str_literal(""); // 976 OUTPUT = "" #line 976 "regression-compile-tmp/soaps-77.imp" OUTPUT = _imp_str_literal(""); // 977 OPTION FILE = "" #line 977 "regression-compile-tmp/soaps-77.imp" OPTIONFILE = _imp_str_literal(""); // 978 INPUT = S %UNLESS S -> INPUT.("/").OUTPUT #line 978 "regression-compile-tmp/soaps-77.imp" if (_imp_resolve(*S, &INPUT, _imp_str_literal("/"), &OUTPUT)) goto L_0106; #line 978 "regression-compile-tmp/soaps-77.imp" INPUT = *S; #line 978 "regression-compile-tmp/soaps-77.imp" L_0106:; // 979 OPTION FILE = "" %UNLESS INPUT -> INPUT.(",").OPTION FILE #line 979 "regression-compile-tmp/soaps-77.imp" if (_imp_resolve(INPUT, &INPUT, _imp_str_literal(","), &OPTIONFILE)) goto L_0107; #line 979 "regression-compile-tmp/soaps-77.imp" OPTIONFILE = _imp_str_literal(""); #line 979 "regression-compile-tmp/soaps-77.imp" L_0107:; // 980 OUTPUT = INPUT %IF OUTPUT = "" #line 980 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(OUTPUT, _imp_str_literal("")) != 0)) goto L_0108; #line 980 "regression-compile-tmp/soaps-77.imp" OUTPUT = INPUT; #line 980 "regression-compile-tmp/soaps-77.imp" L_0108:; // 981 SIZE = 0 #line 981 "regression-compile-tmp/soaps-77.imp" SIZE = 0; // 982 !FDP(7, INPUT, 0, ADDR(SIZE), FLAG) // 983 CURRIN = SIZE #line 983 "regression-compile-tmp/soaps-77.imp" CURRIN = SIZE; // 984 %IF FLAG # 0 %THEN %START #line 984 "regression-compile-tmp/soaps-77.imp" if (((FLAG) == (0))) goto L_0109; // 985 PRINTSTRING("CANNOT CONNECT ".INPUT.": "); WRITE(FLAG,1) #line 985 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("CANNOT CONNECT "),(_imp_string)INPUT),(_imp_string)_imp_str_literal(": "))); #line 985 "regression-compile-tmp/soaps-77.imp" _imp_WRITE(FLAG, 1); // 986 NEWLINE #line 986 "regression-compile-tmp/soaps-77.imp" _imp_NEWLINE(); // 987 %RETURN #line 987 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 988 %FINISH #line 988 "regression-compile-tmp/soaps-77.imp" L_0109:; // 989 %IF INTEGER(CURRIN+12) # 0 %THEN %START #line 989 "regression-compile-tmp/soaps-77.imp" if (((*_imp_INTEGER((((int)(CURRIN)) + (12)))) == (0))) goto L_010a; // 990 PRINTSTRING(INPUT." IS NOT A SOURCE FILE\n") #line 990 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)INPUT,(_imp_string)_imp_str_literal(" IS NOT A SOURCE FILE\\n"))); // 991 %RETURN #line 991 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 992 %FINISH #line 992 "regression-compile-tmp/soaps-77.imp" L_010a:; // 993 SIZE = INTEGER(CURRIN) #line 993 "regression-compile-tmp/soaps-77.imp" SIZE = *_imp_INTEGER(CURRIN); // 994 %IF SIZE < 10 %THEN %START #line 994 "regression-compile-tmp/soaps-77.imp" if (((SIZE) >= (10))) goto L_010b; // 995 PRINTSTRING(INPUT." IS A NULL FILE\n") #line 995 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)INPUT,(_imp_string)_imp_str_literal(" IS A NULL FILE\\n"))); // 996 %RETURN #line 996 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 997 %FINISH #line 997 "regression-compile-tmp/soaps-77.imp" L_010b:; // 998 ENDOFFILE = CURRIN+SIZE #line 998 "regression-compile-tmp/soaps-77.imp" ENDOFFILE = (((int)(CURRIN)) + (SIZE)); // 999 ENDOFFILE = ENDOFFILE-1 %WHILE BYTEINTEGER(ENDOFFILE) # NL #line 999 "regression-compile-tmp/soaps-77.imp" L_010c:; #line 999 "regression-compile-tmp/soaps-77.imp" if (((*_imp_BYTEINTEGER(ENDOFFILE)) == (10))) goto L_010d; #line 999 "regression-compile-tmp/soaps-77.imp" ENDOFFILE = (((int)(ENDOFFILE)) - (1)); #line 999 "regression-compile-tmp/soaps-77.imp" goto L_010c; #line 999 "regression-compile-tmp/soaps-77.imp" L_010d:; // 1000 CURROUT = ((SIZE*6)+4095)>>12;! I HOPE IT"S BIG ENOUGH #line 1000 "regression-compile-tmp/soaps-77.imp" CURROUT = (((((((int)((((int)(SIZE)) * (6)))) + (4095)))) >> (12))); // 1001 SEGS = (CURROUT+15)>>4 #line 1001 "regression-compile-tmp/soaps-77.imp" SEGS = (((((((int)(CURROUT)) + (15)))) >> (4))); // 1002 CREATE("SP#WORK",CURROUT,FLAG) #line 1002 "regression-compile-tmp/soaps-77.imp" CREATE(_imp_str_literal("SP#WORK"), &CURROUT, &FLAG); // 1003 %IF FLAG # 0 %THEN %START #line 1003 "regression-compile-tmp/soaps-77.imp" if (((FLAG) == (0))) goto L_010f; // 1004 PRINT STRING( "CANNOT CREATE WORK FILE"); WRITE(FLAG,1) #line 1004 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("CANNOT CREATE WORK FILE")); #line 1004 "regression-compile-tmp/soaps-77.imp" _imp_WRITE(FLAG, 1); // 1005 NEWLINE #line 1005 "regression-compile-tmp/soaps-77.imp" _imp_NEWLINE(); // 1006 %RETURN #line 1006 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1007 %FINISH #line 1007 "regression-compile-tmp/soaps-77.imp" L_010f:; // 1008 HEADER = CURROUT #line 1008 "regression-compile-tmp/soaps-77.imp" HEADER = CURROUT; // 1009 CURROUT = CURROUT+16 #line 1009 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(CURROUT)) + (16)); // 1010 BYTEINTEGER(CURROUT) = NL #line 1010 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 1011 CURRIN = CURRIN+15 #line 1011 "regression-compile-tmp/soaps-77.imp" CURRIN = (((int)(CURRIN)) + (15)); // 1012 INTEGER(HEADER) = 1<<16; ! JUST FOR TESTING #line 1012 "regression-compile-tmp/soaps-77.imp" *_imp_INTEGER(HEADER) = ((1) << (16)); // 1013 INTEGER(HEADER+4) = 16 #line 1013 "regression-compile-tmp/soaps-77.imp" *_imp_INTEGER((((int)(HEADER)) + (4))) = 16; // 1014 INTEGER(HEADER+8) = SEGS #line 1014 "regression-compile-tmp/soaps-77.imp" *_imp_INTEGER((((int)(HEADER)) + (8))) = SEGS; // 1015 INTEGER(HEADER+12) = 0 #line 1015 "regression-compile-tmp/soaps-77.imp" *_imp_INTEGER((((int)(HEADER)) + (12))) = 0; // 1016 OK = 1 #line 1016 "regression-compile-tmp/soaps-77.imp" OK = 1; // 1017 %END #line 1017 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETUPFILES at level 1 // 1018 // 1019 %ROUTINE CLOSE FILES #line 1019 "regression-compile-tmp/soaps-77.imp" void CLOSEFILES( void ) #line 1019 "regression-compile-tmp/soaps-77.imp" { // 1020 %ROUTINE NEWGENS #line 1020 "regression-compile-tmp/soaps-77.imp" void NEWGENS( void ) #line 1020 "regression-compile-tmp/soaps-77.imp" { // 1021 %END #line 1021 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block NEWGENS at level 2 // 1022 %END #line 1022 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLOSEFILES at level 1 // 1023 // 1024 %ROUTINE SET OPTIONS #line 1024 "regression-compile-tmp/soaps-77.imp" void SETOPTIONS( void ) #line 1024 "regression-compile-tmp/soaps-77.imp" { // 1025 !%SHORTROUTINE // 1026 %STRING (255) S, T #line 1026 "regression-compile-tmp/soaps-77.imp" _imp_string /*%string(255)*/ S; #line 1026 "regression-compile-tmp/soaps-77.imp" _imp_string /*%string(255)*/ T; // 1027 %INTEGER J #line 1027 "regression-compile-tmp/soaps-77.imp" int J; // 1028 %BYTEINTEGER OPT FLAG #line 1028 "regression-compile-tmp/soaps-77.imp" unsigned char OPTFLAG; // 1029 !!%BYTEINTEGERARRAYFORMAT FM(1 : 31) // 1030 %BYTEINTEGERARRAYNAME WORD #line 1030 "regression-compile-tmp/soaps-77.imp" unsigned char /*arrayname*/*WORD; // 1031 // 1032 %ROUTINE LINE(%STRING(*)%NAME S) #line 1032 "regression-compile-tmp/soaps-77.imp" void LINE( _imp_string /*%string(255)*/ /*name*/*S ) #line 1032 "regression-compile-tmp/soaps-77.imp" { // 1033 %INTEGER J #line 1033 "regression-compile-tmp/soaps-77.imp" int J; // 1034 %RETURN %IF OPT FLAG = 0 #line 1034 "regression-compile-tmp/soaps-77.imp" if (((OPTFLAG) != (0))) goto L_0110; #line 1034 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1034 "regression-compile-tmp/soaps-77.imp" L_0110:; // 1035 S = "" #line 1035 "regression-compile-tmp/soaps-77.imp" *S = _imp_str_literal(""); // 1036 // 1037 %CYCLE #line 1037 "regression-compile-tmp/soaps-77.imp" L_0111:; // 1038 // 1039 %CYCLE #line 1039 "regression-compile-tmp/soaps-77.imp" L_0114:; // 1040 READSYMBOL(J) %UNTIL J # ' ' #line 1040 "regression-compile-tmp/soaps-77.imp" L_0117:; #line 1040 "regression-compile-tmp/soaps-77.imp" _imp_READSYMBOL(&J); #line 1040 "regression-compile-tmp/soaps-77.imp" if (((J) != (32))) goto L_0118; #line 1040 "regression-compile-tmp/soaps-77.imp" goto L_0117; #line 1040 "regression-compile-tmp/soaps-77.imp" L_0118:; // 1041 %EXIT %IF J = NL #line 1041 "regression-compile-tmp/soaps-77.imp" if (((J) != (10))) goto L_011a; #line 1041 "regression-compile-tmp/soaps-77.imp" goto L_0115; #line 1041 "regression-compile-tmp/soaps-77.imp" L_011a:; // 1042 S = S.TOSTRING(J) #line 1042 "regression-compile-tmp/soaps-77.imp" *S = _imp_join((_imp_string)*S,(_imp_string)_imp_TOSTRING(J)); // 1043 %REPEAT #line 1043 "regression-compile-tmp/soaps-77.imp" goto L_0114; #line 1043 "regression-compile-tmp/soaps-77.imp" L_0115:; // 1044 // 1045 %REPEAT %UNTIL S # "" #line 1045 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(*S, _imp_str_literal("")) != 0)) goto L_0112; #line 1045 "regression-compile-tmp/soaps-77.imp" goto L_0111; #line 1045 "regression-compile-tmp/soaps-77.imp" L_0112:; // 1046 // 1047 %END #line 1047 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LINE at level 2 // 1048 // 1049 %ROUTINE SET(%STRING(*)%NAME S) #line 1049 "regression-compile-tmp/soaps-77.imp" void SET( _imp_string /*%string(255)*/ /*name*/*S ) #line 1049 "regression-compile-tmp/soaps-77.imp" { // 1050 %STRING (255) N, OPT #line 1050 "regression-compile-tmp/soaps-77.imp" _imp_string /*%string(255)*/ N; #line 1050 "regression-compile-tmp/soaps-77.imp" _imp_string /*%string(255)*/ OPT; // 1051 %INTEGER V, K, C, NUM #line 1051 "regression-compile-tmp/soaps-77.imp" int V; #line 1051 "regression-compile-tmp/soaps-77.imp" int K; #line 1051 "regression-compile-tmp/soaps-77.imp" int C; #line 1051 "regression-compile-tmp/soaps-77.imp" int NUM; // 1052 %BYTEINTEGER NOT #line 1052 "regression-compile-tmp/soaps-77.imp" unsigned char NOT; // 1053 %CONSTSTRING (2) %ARRAY PARAM(1 : 31) = %C #line 1053 "regression-compile-tmp/soaps-77.imp" const _imp_string /*%string(2)*/ PARAM[31] = { _imp_str_literal("IB"), _imp_str_literal("LB"), _imp_str_literal("SB"), _imp_str_literal("TB"), _imp_str_literal("SK"), _imp_str_literal("PN"), _imp_str_literal("SS"), _imp_str_literal("CN"), _imp_str_literal("BC"), _imp_str_literal("LS"), _imp_str_literal("JA"), _imp_str_literal("LR"), _imp_str_literal("SC"), _imp_str_literal("DR"), _imp_str_literal("SL"), _imp_str_literal("SE"), _imp_str_literal("IL"), _imp_str_literal("EM"), _imp_str_literal("LO"), _imp_str_literal("CR"), _imp_str_literal("EC"), _imp_str_literal("MI"), _imp_str_literal("LL"), _imp_str_literal("CT"), _imp_str_literal("ML"), _imp_str_literal("CE"), _imp_str_literal("XN"), _imp_str_literal("IM"), _imp_str_literal("SM"), _imp_str_literal("CL"), _imp_str_literal("LC"), }; // 1054 "IB", "LB", "SB", "TB", "SK", "PN", "SS", "CN", "BC", // 1055 "LS", "JA", "LR", "SC", // 1056 "DR", "SL", "SE", "IL", "EM", // 1057 "LO", "CR", "EC", // 1058 "MI", "LL", "CT", "ML", // 1059 "CE", "XN", "IM", "SM", // 1060 "CL", "LC" // 1061 %OWNINTEGER PARAMS = 31, BOOLS = 21 #line 1061 "regression-compile-tmp/soaps-77.imp" static int PARAMS = 31; #line 1061 "regression-compile-tmp/soaps-77.imp" static int BOOLS = 21; // 1062 OPT = S #line 1062 "regression-compile-tmp/soaps-77.imp" OPT = *S; // 1063 NOT = 1; NUM = 0 #line 1063 "regression-compile-tmp/soaps-77.imp" NOT = 1; #line 1063 "regression-compile-tmp/soaps-77.imp" NUM = 0; // 1064 %IF S -> S.("=").N %THEN %START #line 1064 "regression-compile-tmp/soaps-77.imp" if (!(_imp_resolve(*S, S, _imp_str_literal("="), &N))) goto L_011b; // 1065 NUM = -1; V = 0; J = ADDR(N) #line 1065 "regression-compile-tmp/soaps-77.imp" NUM = (-1); #line 1065 "regression-compile-tmp/soaps-77.imp" V = 0; #line 1065 "regression-compile-tmp/soaps-77.imp" J = _imp_ADDR(&N); // 1066 // 1067 %CYCLE J = J+1,1,J+LENGTH(N) #line 1067 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(J)) + (1)); _increment = 1; _final = ((J) + (*(int *)(_imp_LENGTH(&N)))); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(J)) + (1)), 1, ((J) + (*(int *)(_imp_LENGTH(&N))))"); J -= _increment; _control -= _increment; L_011c:; if (J == _final) goto L_011d; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 1068 C = BYTEINTEGER(J)-'0' #line 1068 "regression-compile-tmp/soaps-77.imp" C = ((*(int *)(_imp_BYTEINTEGER(J))) - (48)); // 1069 %UNLESS 0 <= C <= 9 %THEN %START #line 1069 "regression-compile-tmp/soaps-77.imp" if ((((0) > (C))) || (((C) <= (9)))) goto L_011f; #line 1069 "regression-compile-tmp/soaps-77.imp" L_0119:; // 1070 PRINTSTRING(N." ?\n") #line 1070 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)N,(_imp_string)_imp_str_literal(" ?\\n"))); // 1071 %RETURN #line 1071 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1072 %FINISH #line 1072 "regression-compile-tmp/soaps-77.imp" L_011f:; // 1073 V = V*10+C #line 1073 "regression-compile-tmp/soaps-77.imp" V = (((int)((((int)(V)) * (10)))) + (C)); // 1074 %REPEAT #line 1074 "regression-compile-tmp/soaps-77.imp" goto L_011c; #line 1074 "regression-compile-tmp/soaps-77.imp" L_011d:; // 1075 // 1076 %IF V > 255 %THEN %START #line 1076 "regression-compile-tmp/soaps-77.imp" if (((V) <= (255))) goto L_0120; // 1077 PRINTSTRING(N." ?\n") #line 1077 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)N,(_imp_string)_imp_str_literal(" ?\\n"))); // 1078 %RETURN #line 1078 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1079 %FINISH #line 1079 "regression-compile-tmp/soaps-77.imp" L_0120:; // 1080 %FINISH #line 1080 "regression-compile-tmp/soaps-77.imp" L_011b:; // 1081 NOT = 0 %IF NUM = 0 %AND S -> ("\").S #line 1081 "regression-compile-tmp/soaps-77.imp" if (((NUM) != (0))) goto L_0121; #line 1081 "regression-compile-tmp/soaps-77.imp" if (!(_imp_resolve(*S, 0 /*NULL*/, _imp_str_literal("\\"), S))) goto L_0121; #line 1081 "regression-compile-tmp/soaps-77.imp" NOT = 0; #line 1081 "regression-compile-tmp/soaps-77.imp" L_0121:; // 1082 // 1083 %CYCLE J = 1,1,PARAMS #line 1083 "regression-compile-tmp/soaps-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = PARAMS; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, PARAMS"); J -= _increment; _control -= _increment; L_0122:; if (J == _final) goto L_0123; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 1084 %IF PARAM(J) = S %THEN %START #line 1084 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp((PARAM-1)[J], *S) != 0)) goto L_0125; // 1085 %IF (BOOLS-J)!!NUM < 0 %THEN %START #line 1085 "regression-compile-tmp/soaps-77.imp" if ((((((((int)(BOOLS)) - (J))) ^ (NUM))) >= (0))) goto L_0126; // 1086 PRINTSTRING(S."= ?\n") #line 1086 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)*S,(_imp_string)_imp_str_literal("= ?\\n"))); // 1087 %RETURN #line 1087 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1088 %FINISH #line 1088 "regression-compile-tmp/soaps-77.imp" L_0126:; // 1089 K = NOT; K = V %IF NUM < 0 #line 1089 "regression-compile-tmp/soaps-77.imp" K = NOT; #line 1089 "regression-compile-tmp/soaps-77.imp" if (((NUM) >= (0))) goto L_0127; #line 1089 "regression-compile-tmp/soaps-77.imp" K = V; #line 1089 "regression-compile-tmp/soaps-77.imp" L_0127:; // 1090 WORD(J) = K #line 1090 "regression-compile-tmp/soaps-77.imp" WORD[J] = K; // 1091 OPLIST = OPLIST." ".OPT #line 1091 "regression-compile-tmp/soaps-77.imp" OPLIST = _imp_join((_imp_string)_imp_join((_imp_string)OPLIST,(_imp_string)_imp_str_literal(" ")),(_imp_string)OPT); // 1092 %RETURN #line 1092 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1093 %FINISH #line 1093 "regression-compile-tmp/soaps-77.imp" L_0125:; // 1094 %REPEAT #line 1094 "regression-compile-tmp/soaps-77.imp" goto L_0122; #line 1094 "regression-compile-tmp/soaps-77.imp" L_0123:; // 1095 // 1096 PRINTSTRING(S." ?\n") #line 1096 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)*S,(_imp_string)_imp_str_literal(" ?\\n"))); // 1097 %END #line 1097 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SET at level 2 // 1098 OPLIST = "\n!! OPTIONS:" #line 1098 "regression-compile-tmp/soaps-77.imp" OPLIST = _imp_str_literal("\\n!! OPTIONS:"); // 1099 !!WORD == ARRAY(ADDR(ISOLATE BRACKETS),FM) // 1100 OK = 1 #line 1100 "regression-compile-tmp/soaps-77.imp" OK = 1; // 1101 %IF OPTIONFILE # "" %THEN %START #line 1101 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(OPTIONFILE, _imp_str_literal("")) == 0)) goto L_0128; // 1102 OK = 0 #line 1102 "regression-compile-tmp/soaps-77.imp" OK = 0; // 1103 OPT FLAG = 0 #line 1103 "regression-compile-tmp/soaps-77.imp" OPTFLAG = 0; // 1104 %IF OPTIONFILE -> ("[").S %THEN %START #line 1104 "regression-compile-tmp/soaps-77.imp" if (!(_imp_resolve(OPTIONFILE, 0 /*NULL*/, _imp_str_literal("["), &S))) goto L_0129; // 1105 OPT FLAG = 0 %IF S -> S.("]") #line 1105 "regression-compile-tmp/soaps-77.imp" if (!(_imp_resolve(S, &S, _imp_str_literal("]"), 0 /*NULL*/))) goto L_012a; #line 1105 "regression-compile-tmp/soaps-77.imp" OPTFLAG = 0; #line 1105 "regression-compile-tmp/soaps-77.imp" L_012a:; // 1106 S = S.",*" #line 1106 "regression-compile-tmp/soaps-77.imp" S = _imp_join((_imp_string)S,(_imp_string)_imp_str_literal(",*")); // 1107 %FINISH %ELSE %START #line 1107 "regression-compile-tmp/soaps-77.imp" goto L_012b; #line 1107 "regression-compile-tmp/soaps-77.imp" L_0129:; // 1108 OPT FLAG = 1 #line 1108 "regression-compile-tmp/soaps-77.imp" OPTFLAG = 1; // 1109 PROMPT("OPTIONS:") #line 1109 "regression-compile-tmp/soaps-77.imp" PROMPT(_imp_str_literal("OPTIONS:")); // 1110 !DEFINE("ST76,".OPTION FILE) // 1111 SELECTINPUT(76) #line 1111 "regression-compile-tmp/soaps-77.imp" _imp_SELECTINPUT(76); // 1112 %FINISH #line 1112 "regression-compile-tmp/soaps-77.imp" L_012b:; // 1113 // 1114 %CYCLE #line 1114 "regression-compile-tmp/soaps-77.imp" L_012c:; // 1115 LINE(S) #line 1115 "regression-compile-tmp/soaps-77.imp" LINE(&S); // 1116 SET(T) %WHILE S -> T.(",").S #line 1116 "regression-compile-tmp/soaps-77.imp" L_012f:; #line 1116 "regression-compile-tmp/soaps-77.imp" if (!(_imp_resolve(S, &T, _imp_str_literal(","), &S))) goto L_0130; #line 1116 "regression-compile-tmp/soaps-77.imp" SET(&T); #line 1116 "regression-compile-tmp/soaps-77.imp" goto L_012f; #line 1116 "regression-compile-tmp/soaps-77.imp" L_0130:; // 1117 %EXIT %IF S = "*" #line 1117 "regression-compile-tmp/soaps-77.imp" if ((_imp_strcmp(S, _imp_str_literal("*")) != 0)) goto L_0132; #line 1117 "regression-compile-tmp/soaps-77.imp" goto L_012d; #line 1117 "regression-compile-tmp/soaps-77.imp" L_0132:; // 1118 SET(S) #line 1118 "regression-compile-tmp/soaps-77.imp" SET(&S); // 1119 %REPEAT #line 1119 "regression-compile-tmp/soaps-77.imp" goto L_012c; #line 1119 "regression-compile-tmp/soaps-77.imp" L_012d:; // 1120 // 1121 %IF CHARNO(OUTPUT,1) = '.' %START #line 1121 "regression-compile-tmp/soaps-77.imp" if (((*_imp_CHARNO(&OUTPUT, 1)) != (46))) goto L_0133; // 1122 ! SHOW OPTIONS // 1123 STRING(CURROUT) = OPLIST."\n\n" #line 1123 "regression-compile-tmp/soaps-77.imp" *_imp_STRING(CURROUT) = _imp_join((_imp_string)OPLIST,(_imp_string)_imp_str_literal("\\n\\n")); // 1124 BYTEINTEGER(CURROUT) = NL #line 1124 "regression-compile-tmp/soaps-77.imp" *_imp_BYTEINTEGER(CURROUT) = 10; // 1125 CURROUT = CURROUT+LENGTH(OPLIST)+2 #line 1125 "regression-compile-tmp/soaps-77.imp" CURROUT = (((int)(((CURROUT) + (*(int *)(_imp_LENGTH(&OPLIST)))))) + (2)); // 1126 %FINISH #line 1126 "regression-compile-tmp/soaps-77.imp" L_0133:; // 1127 %FINISH #line 1127 "regression-compile-tmp/soaps-77.imp" L_0128:; // 1128 DELTA MARGIN = MI #line 1128 "regression-compile-tmp/soaps-77.imp" DELTAMARGIN = MI; // 1129 LINE LENGTH = LL #line 1129 "regression-compile-tmp/soaps-77.imp" LINELENGTH = LL; // 1130 COMMENT TAB = CT #line 1130 "regression-compile-tmp/soaps-77.imp" COMMENTTAB = CT; // 1131 MAXMARGIN = ML #line 1131 "regression-compile-tmp/soaps-77.imp" MAXMARGIN = ML; // 1132 SEC MARGIN = SECONDARY MARGIN #line 1132 "regression-compile-tmp/soaps-77.imp" SECMARGIN = SECONDARYMARGIN; // 1133 %UNLESS 40 < LINELENGTH < 133 %THEN %START #line 1133 "regression-compile-tmp/soaps-77.imp" if ((((40) >= (LINELENGTH))) || (((LINELENGTH) < (133)))) goto L_0134; #line 1133 "regression-compile-tmp/soaps-77.imp" L_0124:; // 1134 PRINT STRING( "INVALID LINE LENGTH\n") #line 1134 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID LINE LENGTH\\n")); // 1135 %RETURN #line 1135 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1136 %FINISH #line 1136 "regression-compile-tmp/soaps-77.imp" L_0134:; // 1137 %UNLESS 0 < COMMENT TAB < LINE LENGTH-20 %THEN %START #line 1137 "regression-compile-tmp/soaps-77.imp" if ((((0) >= (COMMENTTAB))) || (((COMMENTTAB) < ((((int)(LINELENGTH)) - (20)))))) goto L_0136; #line 1137 "regression-compile-tmp/soaps-77.imp" L_0135:; // 1138 PRINT STRING( "INVALID COMMENT MARGIN\n") #line 1138 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID COMMENT MARGIN\\n")); // 1139 %RETURN #line 1139 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1140 %FINISH #line 1140 "regression-compile-tmp/soaps-77.imp" L_0136:; // 1141 %UNLESS MAX MARGIN < LINE LENGTH-20 %THEN %START #line 1141 "regression-compile-tmp/soaps-77.imp" if (((MAXMARGIN) < ((((int)(LINELENGTH)) - (20))))) goto L_0137; // 1142 PRINT STRING( "INVALID MAX MARGIN\n") #line 1142 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID MAX MARGIN\\n")); // 1143 %RETURN #line 1143 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1144 %FINISH #line 1144 "regression-compile-tmp/soaps-77.imp" L_0137:; // 1145 %UNLESS DELTA MARGIN <= MAX MARGIN<<1 %START #line 1145 "regression-compile-tmp/soaps-77.imp" if (((DELTAMARGIN) <= (((MAXMARGIN) << (1))))) goto L_0138; // 1146 PRINT STRING( "INVALID MARGIN INCREMENT\n") #line 1146 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID MARGIN INCREMENT\\n")); // 1147 %RETURN #line 1147 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1148 %FINISH #line 1148 "regression-compile-tmp/soaps-77.imp" L_0138:; // 1149 %IF SEC MARGIN > DELTA MARGIN<<1+SAFETY FACTOR %START #line 1149 "regression-compile-tmp/soaps-77.imp" if (((SECMARGIN) <= ((((short)(((DELTAMARGIN) << (1)))) + (SAFETYFACTOR))))) goto L_0139; // 1150 PRINT STRING( "INVALID SECONDARY MARGIN\n") #line 1150 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID SECONDARY MARGIN\\n")); // 1151 %RETURN #line 1151 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1152 %FINISH #line 1152 "regression-compile-tmp/soaps-77.imp" L_0139:; // 1153 %IF INITIAL MARGIN > 30 %THEN %START #line 1153 "regression-compile-tmp/soaps-77.imp" if (((INITIALMARGIN) <= (30))) goto L_013a; // 1154 PRINT STRING( "INVALID INITIAL MARGIN\n") #line 1154 "regression-compile-tmp/soaps-77.imp" _imp_PRINTSTRING(_imp_str_literal("INVALID INITIAL MARGIN\\n")); // 1155 %RETURN #line 1155 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1156 %FINISH #line 1156 "regression-compile-tmp/soaps-77.imp" L_013a:; // 1157 MARGIN = 1 %IF DELTA MARGIN = 0 %AND SEC MARGIN = 0 %C #line 1157 "regression-compile-tmp/soaps-77.imp" if (((DELTAMARGIN) != (0))) goto L_013b; #line 1157 "regression-compile-tmp/soaps-77.imp" if (((SECMARGIN) != (0))) goto L_013b; #line 1157 "regression-compile-tmp/soaps-77.imp" if (((INITIALMARGIN) != (0))) goto L_013b; #line 1157 "regression-compile-tmp/soaps-77.imp" MARGIN = 1; #line 1157 "regression-compile-tmp/soaps-77.imp" L_013b:; // 1158 %AND INITIAL MARGIN = 0 // 1159 MARGIN = INITIAL MARGIN %IF EXTRA MARGIN # 0 #line 1159 "regression-compile-tmp/soaps-77.imp" if (((EXTRAMARGIN) == (0))) goto L_013c; #line 1159 "regression-compile-tmp/soaps-77.imp" MARGIN = INITIALMARGIN; #line 1159 "regression-compile-tmp/soaps-77.imp" L_013c:; // 1160 SPLIT CONDS = 1 %IF SPLIT KEYWORDS # 0 #line 1160 "regression-compile-tmp/soaps-77.imp" if (((SPLITKEYWORDS) == (0))) goto L_013d; #line 1160 "regression-compile-tmp/soaps-77.imp" SPLITCONDS = 1; #line 1160 "regression-compile-tmp/soaps-77.imp" L_013d:; // 1161 COMMENT LENGTH = LINE LENGTH-COMMENT TAB #line 1161 "regression-compile-tmp/soaps-77.imp" COMMENTLENGTH = (((int)(LINELENGTH)) - (COMMENTTAB)); // 1162 TEXTBASE = ADDR(SYMFILE(0)) #line 1162 "regression-compile-tmp/soaps-77.imp" TEXTBASE = _imp_ADDR(&SYMFILE[0]); // 1163 KEYBASE = ADDR(KEYSYMS(1)) #line 1163 "regression-compile-tmp/soaps-77.imp" KEYBASE = _imp_ADDR(&(KEYSYMS-1)[1]); // 1164 RMARGIN = COMMENT LIMIT #line 1164 "regression-compile-tmp/soaps-77.imp" RMARGIN = COMMENTLIMIT; // 1165 FULL LINE = LINE LENGTH #line 1165 "regression-compile-tmp/soaps-77.imp" FULLLINE = LINELENGTH; // 1166 LINE LENGTH = LINE LENGTH-SAFETY FACTOR #line 1166 "regression-compile-tmp/soaps-77.imp" LINELENGTH = ((LINELENGTH) - ((int)(SAFETYFACTOR))); // 1167 OPTIONS = 17*SPLIT KEYWORDS+34*SPLIT CONDS+SPACE LISTS<<6 %C #line 1167 "regression-compile-tmp/soaps-77.imp" OPTIONS = (((int)(((((((((((((((17) * ((int)(SPLITKEYWORDS))))) + (((34) * ((int)(SPLITCONDS))))))) + (((SPACELISTS) << (6)))))) + (((ISOLATEBRACKETS) << (2)))))) + (((SPACEEQUALS) << (3)))))) + (128)); // 1168 +ISOLATE BRACKETS<<2+SPACE EQUALS<<3+128 // 1169 LINE BASE = CURROUT; SIZE = 0 #line 1169 "regression-compile-tmp/soaps-77.imp" LINEBASE = CURROUT; #line 1169 "regression-compile-tmp/soaps-77.imp" SIZE = 0; // 1170 COMMENT FLAG = JUSTIFY ALL<<1!COMMENTSNORMAL #line 1170 "regression-compile-tmp/soaps-77.imp" COMMENTFLAG = ((((JUSTIFYALL) << (1))) | (COMMENTSNORMAL)); // 1171 COMMENT FLAG = COMMENT FLAG!!B'010' #line 1171 "regression-compile-tmp/soaps-77.imp" COMMENTFLAG = ((COMMENTFLAG) ^ (2)); // 1172 FIRST DISP = DELTA MARGIN-INITIAL MARGIN #line 1172 "regression-compile-tmp/soaps-77.imp" FIRSTDISP = ((DELTAMARGIN) - ((int)(INITIALMARGIN))); // 1173 COMMENT LINE = FULL LINE %IF COMMENT LINE = 0 #line 1173 "regression-compile-tmp/soaps-77.imp" if (((COMMENTLINE) != (0))) goto L_013e; #line 1173 "regression-compile-tmp/soaps-77.imp" COMMENTLINE = FULLLINE; #line 1173 "regression-compile-tmp/soaps-77.imp" L_013e:; // 1174 OK = 1 #line 1174 "regression-compile-tmp/soaps-77.imp" OK = 1; // 1175 %END #line 1175 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETOPTIONS at level 1 // 1176 // 1177 %BEGIN #line 1177 "regression-compile-tmp/soaps-77.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 1178 SOAP("test.imp") ;! need CLIPARAM ... #line 1178 "regression-compile-tmp/soaps-77.imp" SOAP(_imp_str_literal("test.imp")); // 1179 %ENDOFPROGRAM #line 1179 "regression-compile-tmp/soaps-77.imp" /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 #line 1179 "regression-compile-tmp/soaps-77.imp" // End of file