#include // 1 %const %integer USE MC = 0, // 2 INCLUDE DELSTART = 0 // 3 // 4 %BEGIN #line 4 "regression-compile-tmp/imp918s.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 5 {%TRUSTEDPROGRAM} // 6 %INTEGER I,J,K #line 6 "regression-compile-tmp/imp918s.imp" int I; #line 6 "regression-compile-tmp/imp918s.imp" int J; #line 6 "regression-compile-tmp/imp918s.imp" int K; // 7 !%if INCLUDE DELSTART = 1 %start // 8 %CONSTBYTEINTEGERARRAY OPC(0:120)=0, #line 8 "regression-compile-tmp/imp918s.imp" const unsigned char OPC[121] = { 0, 8, 9, 16, 17, 18, 19, 32, 33, 34, 35, 48, 49, 50, 51, 36, 52, 0, 69, 70, 71, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 104, 105, 106, 107, 108, 109, 110, 111, 120, 121, 122, 123, 124, 125, 126, 127, 0, 112, 96, 80, 78, 79, 76, 75, 74, 73, 72, 68, 67, 66, 65, 64, 0, 144, 152, 134, 135, 0, 145, 146, 148, 149, 150, 151, 156, 158, 157, 159, 130, 132, 133, 0, 136, 137, 138, 139, 140, 141, 142, 143, 0, 208, 209, 210, 212, 213, 214, 215, 216, 220, 221, 222, 223, 211, 0, 241, 242, 243, 248, 249, 250, 251, 252, 253, 0, 10, 4, 128, }; // 9 8,9,X'10',X'11',X'12', // 10 X'13',X'20',X'21',X'22',X'23', // 11 X'30',X'31',X'32',X'33',X'24', // 12 X'34',0,X'45',X'46',X'47', // 13 X'54',X'55',X'56',X'57',X'58',X'59',X'5A',X'5B',X'5C', // 14 X'5D',X'5E',X'5F',X'68',X'69',X'6A', // 15 X'6B',X'6C',X'6D',X'6E',X'6F', // 16 X'78',X'79',X'7A',X'7B',X'7C', // 17 X'7D',X'7E',X'7F',0,X'70', // 18 X'60',X'50',X'4E',X'4F',X'4C', // 19 X'4B',X'4A',X'49',X'48',X'44', // 20 X'43',X'42',X'41',X'40',0, // 21 X'90',X'98',X'86',X'87',0, // 22 X'91',X'92',X'94',X'95',X'96', // 23 X'97',X'9C',X'9E',X'9D',X'9F', // 24 X'82',X'84',X'85',0,X'88', // 25 X'89',X'8A',X'8B',X'8C',X'8D', // 26 X'8E',X'8F',0,X'D0',X'D1', // 27 X'D2',X'D4',X'D5',X'D6',X'D7', // 28 X'D8',X'DC',X'DD',X'DE',X'DF', // 29 X'D3',0,X'F1',X'F2',X'F3', // 30 X'F8',X'F9',X'FA',X'FB',X'FC', // 31 X'FD',0,10,4,X'80'; // 32 %CONSTINTEGERARRAY NEM(0:120)=M'CNOP', #line 32 "regression-compile-tmp/imp918s.imp" const int NEM[121] = { 1129205584, 5460811, 4805451, 19536, 19534, 19540, 19523, 5001284, 5000772, 5002308, 4997956, 5001285, 5000773, 5002309, 4997957, 18500, 18501, 0, 4342092, 4342612, 16963, 78, 17228, 79, 88, 76, 67, 65, 83, 77, 68, 16716, 21324, 19524, 17220, 16708, 21316, 19780, 17476, 16727, 21335, 19525, 17221, 16709, 21317, 19781, 17477, 16725, 21333, 0, 5461061, 5461060, 21332, 4412996, 4412994, 19784, 21320, 16712, 17224, 19528, 17752, 18755, 5461059, 19521, 5461064, 0, 5461069, 19533, 4347976, 1113082949, 0, 21581, 5068361, 20041, 4410441, 20297, 22601, 5456982, 4736086, 5522518, 4410179, 20547, 5722692, 5391428, 0, 5460556, 5459020, 5460545, 5459009, 1397900364, 1397507148, 1397900353, 1397507137, 0, 5460816, 5068366, 5068355, 20035, 4410435, 20291, 22595, 5002064, 21586, 5526100, 17732, 1162104139, 5068378, 0, 5068367, 1346454347, 1431195723, 5914960, 17232, 16720, 21328, 19792, 17488, 0, 5461571, 5460045, 4801612, }; // 33 M'SSK',M'ISK',M'LP',M'LN',M'LT', // 34 M'LC',M'LPD',M'LND',M'LTD',M'LCD', // 35 M'LPE',M'LNE',M'LTE',M'LCE',M'HD', // 36 M'HE',0,M'BAL',M'BCT',M'BC', // 37 'N',M'CL','O','X','L','C','A','S','M','D', // 38 M'AL',M'SL',M'LD',M'CD',M'AD', // 39 M'SD',M'MD',M'DD',M'AW',M'SW', // 40 M'LE',M'CE',M'AE',M'SE',M'ME', // 41 M'DE',M'AU',M'SU',0,M'STE', // 42 M'STD',M'ST',M'CVD',M'CVB',M'MH', // 43 M'SH',M'AH',M'CH',M'LH',M'EX', // 44 M'IC',M'STC',M'LA',M'STH',0, // 45 M'STM',M'LM',M'BXH',M'BXLE',0, // 46 M'TM',M'MVI',M'NI',M'CLI',M'OI', // 47 M'XI',M'SDV',M'HDV',M'TDV',M'CKC', // 48 M'PC',M'WRD',M'RDD',0,M'SRL', // 49 M'SLL',M'SRA',M'SLA',M'SRDL',M'SLDL', // 50 M'SRDA',M'SLDA',0,M'SSP',M'MVN', // 51 M'MVC',M'NC',M'CLC',M'OC',M'XC', // 52 M'LSP',M'TR',M'TRT',M'ED',M'EDMK', // 53 M'MVZ',0,M'MVO',M'PACK',M'UNPK', // 54 M'ZAP',M'CP',M'AP',M'SP',M'MP', // 55 M'DP',0,M'SVC',M'SPM',M'IDL'; // 56 %CONSTBYTEINTEGERARRAY HASHALT(0:218)=20(33),6, #line 56 "regression-compile-tmp/imp918s.imp" const unsigned char HASHALT[219] = { 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 6, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 1, 20, 20, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 20, 20, 20, 20, 20, 20, 20, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 7, 2, 9, 1, 13, 20, 20, 5, 20, 20, 7, 1, 20, 17, 1, 1, 1, 1, 20, 5, 20, 6, 20, 20, 20, }; // 57 20(11),1,20(2),4(10),20(7),1(26),20(102), // 58 20,7,2,9,1,13,20,20,5,20,20,7,1,20,17,1(4),20,5,20,6,20(3); // 59 !%finish // 60 %OWNINTEGERARRAY FIXED GLA(0:28)=0, #line 60 "regression-compile-tmp/imp918s.imp" static int FIXEDGLA[29] = { 0, 805306368, 0, 0, (-1), 0, 255, 0, 0, 0, 0, 0, 1091567616, 0, (-2147483648), 16777215, 0, 0, 1308622848, 0, (-4), (-8), 0, 0, 0, 0, (-2147483648), 105456464, 1163021633, }; // 61 X'30000000',0(2),-1,0,255,0(5), // 62 X'41100000',0,X'80000000',X'FFFFFF',0(2), // 63 X'4E000000',0,-4,-8,0(4),X'80000000',X'6492350',M'ERMA'; // 64 %CONSTSHORTINTEGERARRAY TSNAME (0:53)=10000(8), #line 64 "regression-compile-tmp/imp918s.imp" const short TSNAME[54] = { 10000, 10000, 10000, 10000, 10000, 10000, 10000, 10000, 10001, 10000, 10000, 10000, 10000, 10000, 10001, 10032, 10001, 10001, 10032, 10000, 10000, 2, 1, 32, 10032, 10032, 10032, 10032, 10032, 10032, 10032, 10000, 11, 21, 10032, 10032, 11, 10000, 1, 32, 10000, 10000, 5, 10000, 10005, 11, 5, 10005, 3, 0, 10000, 1, 2, 10001, }; // 65 10001,10000(5),10001,10032,10001(2),10032, // 66 10000(2),2,1,32,10032(7),10000,11,21,10032(2),11,10000, // 67 1,32,10000(2),5,10000,10005,11,5,10005,3,0,10000,1,2, // 68 10001; // 69 %CONSTBYTEINTEGERARRAY BYTES(0:7)=4,1,2,8,4,1,2,8; #line 69 "regression-compile-tmp/imp918s.imp" const unsigned char BYTES[8] = { 4, 1, 2, 8, 4, 1, 2, 8, }; // 70 %CONSTBYTEINTEGERARRAY GRMAP(0:14)=0,1,2,3,15,16,18,20,22, #line 70 "regression-compile-tmp/imp918s.imp" const unsigned char GRMAP[15] = { 0, 1, 2, 3, 15, 16, 18, 20, 22, 4, 5, 6, 7, 8, 14, }; // 71 4,5,6,7,8,14; // 72 %CONSTBYTEINTEGERARRAY PRECEDENCE (1:12)=0,3,3,3,3,4,4,4,4,5,5,5; #line 72 "regression-compile-tmp/imp918s.imp" const unsigned char PRECEDENCE[12] = { 0, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, }; // 73 %OWNBYTEINTEGERARRAY TRTABS (0:1283)=128(39), #line 73 "regression-compile-tmp/imp918s.imp" static unsigned char TRTABS[1284] = { 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 8, 28, 8, 28, 28, 12, 28, 28, 28, 28, 28, 28, 4, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 28, 28, 28, 28, 28, 28, 28, 24, 28, 28, 28, 28, 28, 28, 28, 28, 32, 28, 20, 28, 28, 28, 28, 36, 28, 28, 28, 28, 28, 16, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 20, 20, 20, 20, 16, 20, 4, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 0, 20, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 20, 20, 20, 16, 20, 4, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 0, 20, 0, 28, 0, 0, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 12, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 8, 20, 20, 20, 20, 16, 20, 4, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 28, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 8, 0, 4, 0, 0, 16, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 128, 128, }; // 74 1,255(8),0(10),255(7),0(26),255(6),255(26),255(133), // 75 28(34),8,28,8,28(2),12,28(6),4,28,0(10), // 76 28(8),24,28(8),32,28,20,28(4),36,28(5),16,28(167), // 77 0(9),1,0(49),2,0(196), // 78 0(10),12,0(21),8,20(4),16,20,4, // 79 20(25),24(26),20(32),0,20,0,28,0,0, // 80 0(10),12,0(21),0,20(4),16,20,4 , // 81 20(25),24(26),20(32),0,20,0,28,0,0, // 82 128(10),12,128(21),8,20(4),16,20,4, // 83 20(25),0(26),20(32),20,20,20,28,128(2), // 84 128(32),8,0,4,0,0,16,0,4, // 85 0(25),0(26),0(32),0,0,0,28,128,128 // 86 %COMMENT TABLE 1 FOR NAMES --2 FOR CONSTS -- 3 FOR TEXT // 87 %COMMENT LAST 129 =TABLE FOR READ LINE KEY AS FOLLOWS. // 88 %COMMENT 0=ILLEGAL,4='''',8=SP,12=NL,16=%,20=NONALPHA,24=ALPHA // 89 %OWNBYTEINTEGERARRAY TYPEFLAG(1:6)=1,2, #line 89 "regression-compile-tmp/imp918s.imp" static unsigned char TYPEFLAG[6] = { 1, 2, 9, 17, 26, 5, }; // 90 B'1001',B'10001',B'11010',5; // 91 %OWNSHORTINTEGERARRAY WARNINGS(0:30) #line 91 "regression-compile-tmp/imp918s.imp" static short WARNINGS[31]; // 92 %OWNINTEGER MASK1=X'0F0F0F0F' #line 92 "regression-compile-tmp/imp918s.imp" static int MASK1 = 252645135; // 93 %OWNINTEGER MASK2=X'0F0F0F0F' #line 93 "regression-compile-tmp/imp918s.imp" static int MASK2 = 252645135; // 94 %OWNINTEGER PI1=X'413243F6', PI2=X'A8885A31' #line 94 "regression-compile-tmp/imp918s.imp" static int PI1 = 1093813238; #line 94 "regression-compile-tmp/imp918s.imp" static int PI2 = (-1467459023); // 95 %CONSTINTEGER RELEASE=9,VERSION=18 // 96 %CONSTSHORTINTEGER MAXLEVELS=11 // 97 %CONSTSHORTINTEGER PTBASE=256 // 98 %CONSTSHORTINTEGER SNPT=10006; ! SPECIALNAME PTYPE // 99 %CONSTINTEGER CODER=12 // 100 %CONSTINTEGER WSPR =11 // 101 %CONSTINTEGER GLA =13 // 102 %OWNINTEGER HH1=X'0047002F',HH2=X'00610035' #line 102 "regression-compile-tmp/imp918s.imp" static int HH1 = 4653103; #line 102 "regression-compile-tmp/imp918s.imp" static int HH2 = 6357045; // 103 ! // 104 ! THE FOLLOWING FUNNY WORDS ARE CYCLE CONTROL WORDS FOR SEARCHING THE // 105 ! LIST OF FREE REGISTERS. THE TOP HALF IS INC(SIGNED) AND THE BOTTOM // 106 ! TWO BYTES ARE START AND FINISH RESPECTIVELY // 107 ! // 108 %CONSTINTEGER GR0 =X'10F1E'; ! 15,1,14 // 109 %CONSTINTEGER GR1 =X'1010F'; ! 1,1,15 // 110 %CONSTINTEGER FR0 =X'FFFE1610';! 6,-2,0 // 111 %CONSTINTEGER ADDREG=X'FFFF0E01';! 14,-1,1 // 112 %CONSTINTEGER SAFE =X'FFFF0E04';! 14,-1,4 // 113 %CONSTINTEGER CLMABL=X'1050E'; ! 5,1,14 // 114 %SHORTINTEGER CCSIZE,ARSIZE,DSIZE,DUMMY FORMAT #line 114 "regression-compile-tmp/imp918s.imp" short CCSIZE; #line 114 "regression-compile-tmp/imp918s.imp" short ARSIZE; #line 114 "regression-compile-tmp/imp918s.imp" short DSIZE; #line 114 "regression-compile-tmp/imp918s.imp" short DUMMYFORMAT; // 115 %INTEGER ASL,NNAMES,FLAG,GLAFLAG #line 115 "regression-compile-tmp/imp918s.imp" int ASL; #line 115 "regression-compile-tmp/imp918s.imp" int NNAMES; #line 115 "regression-compile-tmp/imp918s.imp" int FLAG; #line 115 "regression-compile-tmp/imp918s.imp" int GLAFLAG; // 116 %INTEGER CABUF,PPCURR,LCA,OLDLINE,LINE,LENGTH,LENGTHP, %C #line 116 "regression-compile-tmp/imp918s.imp" int CABUF; #line 116 "regression-compile-tmp/imp918s.imp" int PPCURR; #line 116 "regression-compile-tmp/imp918s.imp" int LCA; #line 116 "regression-compile-tmp/imp918s.imp" int OLDLINE; #line 116 "regression-compile-tmp/imp918s.imp" int LINE; #line 116 "regression-compile-tmp/imp918s.imp" int LENGTH; #line 116 "regression-compile-tmp/imp918s.imp" int LENGTHP; #line 116 "regression-compile-tmp/imp918s.imp" int N0; #line 116 "regression-compile-tmp/imp918s.imp" int NUM; #line 116 "regression-compile-tmp/imp918s.imp" int SNUM; #line 116 "regression-compile-tmp/imp918s.imp" int RLEVEL; #line 116 "regression-compile-tmp/imp918s.imp" int NMAX; #line 116 "regression-compile-tmp/imp918s.imp" int LOPCODE; #line 116 "regression-compile-tmp/imp918s.imp" int CONSTPTR; #line 116 "regression-compile-tmp/imp918s.imp" int PLABEL; #line 116 "regression-compile-tmp/imp918s.imp" int LEVEL; #line 116 "regression-compile-tmp/imp918s.imp" int CA; #line 116 "regression-compile-tmp/imp918s.imp" int MARKER1; #line 116 "regression-compile-tmp/imp918s.imp" int MARKER2; #line 116 "regression-compile-tmp/imp918s.imp" int LABSET; #line 116 "regression-compile-tmp/imp918s.imp" int CCSTATE; #line 116 "regression-compile-tmp/imp918s.imp" int CYCLENUM; #line 116 "regression-compile-tmp/imp918s.imp" int CSAVED; #line 116 "regression-compile-tmp/imp918s.imp" int CURCYCVAR; #line 116 "regression-compile-tmp/imp918s.imp" int CYCREGS; #line 116 "regression-compile-tmp/imp918s.imp" int CYCBITS; #line 116 "regression-compile-tmp/imp918s.imp" int CYCASS; // 117 N0,NUM,SNUM,RLEVEL,NMAX,LOPCODE,CONSTPTR, %C // 118 PLABEL,LEVEL,CA,MARKER1,MARKER2,LABSET,CCSTATE, %C // 119 CYCLE NUM,CSAVED,CUR CYC VAR,CYC REGS,CYC BITS,CYC ASS // 120 ! // 121 %BYTEINTEGER FFLAG,CHECKS,SBFLAG,LAST INST,FAULTY,MONE, %C #line 121 "regression-compile-tmp/imp918s.imp" unsigned char FFLAG; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char CHECKS; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char SBFLAG; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char LASTINST; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char FAULTY; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char MONE; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char HIT; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char LET; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char DIAGS2; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char LIST; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char ALLLONG; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char INHCODE; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char LINENOS; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char DIAGS1; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char IMPS; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char CHECKSP; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char CTYPE; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char DCOMP; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char COMPILER; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char CPRMODE; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char UNASS; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char PRINTMAP; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char BFFLAG; #line 121 "regression-compile-tmp/imp918s.imp" unsigned char NMDECS; // 122 HIT,LET,DIAGS2,LIST,ALLLONG,INHCODE,LINENOS, %C // 123 DIAGS1,IMPS,CHECKSP,CTYPE,DCOMP,COMPILER,CPRMODE, %C // 124 UNASS,PRINTMAP,BFFLAG,NMDECS // 125 ! // 126 %LONGREAL CVALUE,IMAX #line 126 "regression-compile-tmp/imp918s.imp" double CVALUE; #line 126 "regression-compile-tmp/imp918s.imp" double IMAX; // 127 %INTEGER MASK,RBASE,SFLABEL,NEXT,N,MAX ULAB,GSAVED,CODEBASE, %C #line 127 "regression-compile-tmp/imp918s.imp" int MASK; #line 127 "regression-compile-tmp/imp918s.imp" int RBASE; #line 127 "regression-compile-tmp/imp918s.imp" int SFLABEL; #line 127 "regression-compile-tmp/imp918s.imp" int NEXT; #line 127 "regression-compile-tmp/imp918s.imp" int N; #line 127 "regression-compile-tmp/imp918s.imp" int MAXULAB; #line 127 "regression-compile-tmp/imp918s.imp" int GSAVED; #line 127 "regression-compile-tmp/imp918s.imp" int CODEBASE; #line 127 "regression-compile-tmp/imp918s.imp" int P; #line 127 "regression-compile-tmp/imp918s.imp" int Q; #line 127 "regression-compile-tmp/imp918s.imp" int R; #line 127 "regression-compile-tmp/imp918s.imp" int S; #line 127 "regression-compile-tmp/imp918s.imp" int TTOPUT; #line 127 "regression-compile-tmp/imp918s.imp" int U; #line 127 "regression-compile-tmp/imp918s.imp" int V; #line 127 "regression-compile-tmp/imp918s.imp" int NEST; #line 127 "regression-compile-tmp/imp918s.imp" int FNAME; #line 127 "regression-compile-tmp/imp918s.imp" int NOTUSED; #line 127 "regression-compile-tmp/imp918s.imp" int FILEPTR; #line 127 "regression-compile-tmp/imp918s.imp" int FILEEND; #line 127 "regression-compile-tmp/imp918s.imp" int SSTL; #line 127 "regression-compile-tmp/imp918s.imp" int QMAX; #line 127 "regression-compile-tmp/imp918s.imp" int STMTS; #line 127 "regression-compile-tmp/imp918s.imp" int MAINEP1; #line 127 "regression-compile-tmp/imp918s.imp" int MAINEP2; #line 127 "regression-compile-tmp/imp918s.imp" int MAINEP3; #line 127 "regression-compile-tmp/imp918s.imp" int GLACA; #line 127 "regression-compile-tmp/imp918s.imp" int GLACURR; #line 127 "regression-compile-tmp/imp918s.imp" int GLACABUF; #line 127 "regression-compile-tmp/imp918s.imp" int CYCBASE; #line 127 "regression-compile-tmp/imp918s.imp" int CYCADDR; // 128 P,Q,R,S,TTOPUT,U,V,NEST,FNAME,NOT USED,FILEPTR, %C // 129 FILE END,SSTL,QMAX,STMTS,MAINEP1,MAINEP2,MAINEP3, %C // 130 GLACA,GLACURR,GLACABUF,CYC BASE,CYC ADDR // 131 ! // 132 %SHORTINTEGER RELHEAD,EPLINK,LEVELINF,DVHEAD,GLAHOLES, %C #line 132 "regression-compile-tmp/imp918s.imp" short RELHEAD; #line 132 "regression-compile-tmp/imp918s.imp" short EPLINK; #line 132 "regression-compile-tmp/imp918s.imp" short LEVELINF; #line 132 "regression-compile-tmp/imp918s.imp" short DVHEAD; #line 132 "regression-compile-tmp/imp918s.imp" short GLAHOLES; #line 132 "regression-compile-tmp/imp918s.imp" short CONSTL2; #line 132 "regression-compile-tmp/imp918s.imp" short CONSTL4; #line 132 "regression-compile-tmp/imp918s.imp" short CONSTL6; #line 132 "regression-compile-tmp/imp918s.imp" short CONSTL8; #line 132 "regression-compile-tmp/imp918s.imp" short RNEXT; // 133 CONSTL2,CONSTL4,CONSTL6,CONSTL8,RNEXT // 134 ! // 135 ! THIS IS THE LIMIT OF INITIALISATION OF SCALARS TO ZERO // 136 ! // 137 %INTEGER QUICK,MARGIN,IOCP1,IOCP2,IOCP3,XLABEL,IMPMON1, %C #line 137 "regression-compile-tmp/imp918s.imp" int QUICK; #line 137 "regression-compile-tmp/imp918s.imp" int MARGIN; #line 137 "regression-compile-tmp/imp918s.imp" int IOCP1; #line 137 "regression-compile-tmp/imp918s.imp" int IOCP2; #line 137 "regression-compile-tmp/imp918s.imp" int IOCP3; #line 137 "regression-compile-tmp/imp918s.imp" int XLABEL; #line 137 "regression-compile-tmp/imp918s.imp" int IMPMON1; #line 137 "regression-compile-tmp/imp918s.imp" int IMPMON2; #line 137 "regression-compile-tmp/imp918s.imp" int IMPMON3; #line 137 "regression-compile-tmp/imp918s.imp" int STMTSHELD; #line 137 "regression-compile-tmp/imp918s.imp" int STOPSTM; #line 137 "regression-compile-tmp/imp918s.imp" int TOPPTR; #line 137 "regression-compile-tmp/imp918s.imp" int PREV3CL; #line 137 "regression-compile-tmp/imp918s.imp" int FILEADDR; // 138 IMPMON2,IMPMON3,STMTSHELD,STOPSTM,TOPPTR,PREV3CL,FILEADDR // 139 %SHORTINTEGERARRAY STPTRS (1:15) #line 139 "regression-compile-tmp/imp918s.imp" short STPTRS[15]; // 140 %ROUTINESPEC FETCH AR #line 140 "regression-compile-tmp/imp918s.imp" auto void FETCHAR( void ); // 141 %ROUTINESPEC STORE AR(%INTEGERNAME I) #line 141 "regression-compile-tmp/imp918s.imp" auto void STOREAR( int /*name*/*I ); // 142 %INTEGERARRAY REGISTER,GRUSE,GRINF,GRAT(0:22) #line 142 "regression-compile-tmp/imp918s.imp" int REGISTER[23]; #line 142 "regression-compile-tmp/imp918s.imp" int GRUSE[23]; #line 142 "regression-compile-tmp/imp918s.imp" int GRINF[23]; #line 142 "regression-compile-tmp/imp918s.imp" int GRAT[23]; // 143 %SHORTINTEGERARRAY A(-7:800) #line 143 "regression-compile-tmp/imp918s.imp" short A[808]; // 144 %INTEGERARRAY SET(0:11) #line 144 "regression-compile-tmp/imp918s.imp" int SET[12]; // 145 %SHORTINTEGERARRAY CYCLE,LABEL,SBR,L,M,NAMES(0:11) #line 145 "regression-compile-tmp/imp918s.imp" short CYCLE[12]; #line 145 "regression-compile-tmp/imp918s.imp" short LABEL[12]; #line 145 "regression-compile-tmp/imp918s.imp" short SBR[12]; #line 145 "regression-compile-tmp/imp918s.imp" short L[12]; #line 145 "regression-compile-tmp/imp918s.imp" short M[12]; #line 145 "regression-compile-tmp/imp918s.imp" short NAMES[12]; // 146 %SHORTINTEGERARRAY AVLWSP(0:7,0:MAXLEVELS) #line 146 "regression-compile-tmp/imp918s.imp" short AVLWSP[8][12]; // 147 %INTEGERARRAY UVARREG(5:14) #line 147 "regression-compile-tmp/imp918s.imp" int UVARREG[10]; // 148 %RECORDFORMAT OPTFORM(%BYTEINTEGER COUNT,TYPE,%INTEGER BITS,%C #line 148 "regression-compile-tmp/imp918s.imp" typedef struct OPTFORM OPTFORM; struct OPTFORM { unsigned char COUNT; unsigned char TYPE; int BITS; int PTYPE; int XTRA; }; // 149 PTYPE,XTRA) // 150 %RECORD(OPTFORM)%ARRAY OPTINF(0:25) #line 150 "regression-compile-tmp/imp918s.imp" OPTFORM OPTINF[26]; // 151 %INTEGER OPTPTR #line 151 "regression-compile-tmp/imp918s.imp" int OPTPTR; // 152 %BYTEINTEGERARRAY GLABUF,CODE(0:268) #line 152 "regression-compile-tmp/imp918s.imp" unsigned char GLABUF[269]; #line 152 "regression-compile-tmp/imp918s.imp" unsigned char CODE[269]; // 153 %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N) #line 153 "regression-compile-tmp/imp918s.imp" extern int /*map*/*comreg( int N ); // 154 !*INSERT // 155 %BEGIN #line 155 "regression-compile-tmp/imp918s.imp" void _BLOCK_1_LEVEL_1_(void) { // 156 {%SHORTROUTINE} // 157 %INTEGER FREE,TOTAL #line 157 "regression-compile-tmp/imp918s.imp" int FREE; #line 157 "regression-compile-tmp/imp918s.imp" int TOTAL; // 158 ! BLOCK TO ALLOCATE AVAILABLE STACK SPACE TO THE MAIN ARRAYS // 159 FILE ADDR=COMREG(46) #line 159 "regression-compile-tmp/imp918s.imp" FILEADDR = *comreg(46); // 160 %IF FILE ADDR#0 %THEN %START; ! ON EMAS #line 160 "regression-compile-tmp/imp918s.imp" if (((FILEADDR) == (0))) goto L_0002; // 161 TOTAL=INTEGER(FILEADDR); NNAMES=255 #line 161 "regression-compile-tmp/imp918s.imp" TOTAL = *_imp_INTEGER(FILEADDR); #line 161 "regression-compile-tmp/imp918s.imp" NNAMES = 255; // 162 %IF TOTAL>8000 %THEN NNAMES=511 #line 162 "regression-compile-tmp/imp918s.imp" if (((TOTAL) <= (8000))) goto L_0003; #line 162 "regression-compile-tmp/imp918s.imp" NNAMES = 511; #line 162 "regression-compile-tmp/imp918s.imp" L_0003:; // 163 %IF TOTAL>32000 %THEN NNAMES=1023 #line 163 "regression-compile-tmp/imp918s.imp" if (((TOTAL) <= (32000))) goto L_0004; #line 163 "regression-compile-tmp/imp918s.imp" NNAMES = 1023; #line 163 "regression-compile-tmp/imp918s.imp" L_0004:; // 164 %IF TOTAL>409600 %OR COMREG(27)&8#0 %THEN NNAMES=2047 #line 164 "regression-compile-tmp/imp918s.imp" if (((TOTAL) > (409600))) goto L_0005; #line 164 "regression-compile-tmp/imp918s.imp" if (((((*comreg(27)) & (8))) == (0))) goto L_0006; #line 164 "regression-compile-tmp/imp918s.imp" L_0005:; #line 164 "regression-compile-tmp/imp918s.imp" NNAMES = 2047; #line 164 "regression-compile-tmp/imp918s.imp" L_0006:; // 165 DSIZE=7*NNAMES; ASL=DSIZE<<2 #line 165 "regression-compile-tmp/imp918s.imp" DSIZE = (((int)(7)) * (NNAMES)); #line 165 "regression-compile-tmp/imp918s.imp" ASL = ((DSIZE) << (2)); // 166 CCSIZE=100+NNAMES; ->Label2 #line 166 "regression-compile-tmp/imp918s.imp" CCSIZE = (((int)(100)) + (NNAMES)); #line 166 "regression-compile-tmp/imp918s.imp" goto U_1000; // 167 %FINISH #line 167 "regression-compile-tmp/imp918s.imp" L_0002:; // 168 FREE=COMREG(1)-ADDR(TOTAL)-6000; ! ON IBM 370 #line 168 "regression-compile-tmp/imp918s.imp" FREE = (((int)(((*(int *)(comreg(1))) - (_imp_ADDR(&TOTAL))))) - (6000)); // 169 %CYCLE I=2,1,4; ! ALLOWS 255,511,1023 OR 2047 NAMES #line 169 "regression-compile-tmp/imp918s.imp" I = 1; if ((((4)-(2)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 2, 1, 4"); L_0007:; if (I == 4) goto L_0008; I += 1; // 170 NNAMES=128*2^^I-1 #line 170 "regression-compile-tmp/imp918s.imp" NNAMES = (((int)(((128) * ((int)(_imp_IEXP(2, I)))))) - (1)); // 171 DSIZE=7*NNAMES #line 171 "regression-compile-tmp/imp918s.imp" DSIZE = (((int)(7)) * (NNAMES)); // 172 ASL=DSIZE<<2 #line 172 "regression-compile-tmp/imp918s.imp" ASL = ((DSIZE) << (2)); // 173 CCSIZE=250+100*I #line 173 "regression-compile-tmp/imp918s.imp" CCSIZE = ((250) + ((int)((((int)(100)) * (I))))); // 174 TOTAL=CCSIZE+ASL+DSIZE<<1 #line 174 "regression-compile-tmp/imp918s.imp" TOTAL = ((((((int)(CCSIZE)) + (ASL)))) + (((DSIZE) << (1)))); // 175 ->Label1 %IF TOTAL>FREE #line 175 "regression-compile-tmp/imp918s.imp" if (((TOTAL) <= (FREE))) goto L_000a; #line 175 "regression-compile-tmp/imp918s.imp" goto U_1001; #line 175 "regression-compile-tmp/imp918s.imp" L_000a:; // 176 %REPEAT #line 176 "regression-compile-tmp/imp918s.imp" goto L_0007; #line 176 "regression-compile-tmp/imp918s.imp" L_0008:; // 177 ->Label2 #line 177 "regression-compile-tmp/imp918s.imp" goto U_1000; // 178 Label1: CCSIZE=CCSIZE-100 #line 178 "regression-compile-tmp/imp918s.imp" U_1001:; #line 178 "regression-compile-tmp/imp918s.imp" CCSIZE = (((int)(CCSIZE)) - (100)); // 179 NNAMES=NNAMES>>1 #line 179 "regression-compile-tmp/imp918s.imp" NNAMES = (int)((((unsigned int)(NNAMES)) >> (1))); // 180 ASL=(ASL>>1+(FREE-CCSIZE-DSIZE))//2;! HALF 'EXTRA' SPACE TO ASL #line 180 "regression-compile-tmp/imp918s.imp" ASL = (long)((long)((((((int)((((unsigned int)(ASL)) >> (1))))) + ((((short)(((FREE) - ((int)(CCSIZE))))) - (DSIZE)))))) / (long)((int)(2))); // 181 DSIZE=DSIZE>>1 #line 181 "regression-compile-tmp/imp918s.imp" DSIZE = (short)((((unsigned short)(DSIZE)) >> (1))); // 182 Label2: ASL=32760%IF ASL>32760 #line 182 "regression-compile-tmp/imp918s.imp" U_1000:; #line 182 "regression-compile-tmp/imp918s.imp" if (((ASL) <= (32760))) goto L_000b; #line 182 "regression-compile-tmp/imp918s.imp" ASL = 32760; #line 182 "regression-compile-tmp/imp918s.imp" L_000b:; // 183 ASL=ASL&X'FFFFFFF0' #line 183 "regression-compile-tmp/imp918s.imp" ASL = ((ASL) & ((-16))); // 184 %END #line 184 "regression-compile-tmp/imp918s.imp" return; } // End of block _BLOCK_1_LEVEL_1_ at level 2 _BLOCK_1_LEVEL_1_(); // 185 %BYTEINTEGERARRAY CC(0:CCSIZE+10), %C #line 185 "regression-compile-tmp/imp918s.imp" unsigned char CC[(((unsigned char)((((int)(CCSIZE)) + (10)))) + (1))]; #line 185 "regression-compile-tmp/imp918s.imp" unsigned char ASLIST[(((unsigned char)((((int)(ASL)) + (32)))) + (1))]; #line 185 "regression-compile-tmp/imp918s.imp" unsigned char LETT[(((unsigned char)((((int)(DSIZE)) + (20)))) + (1))]; // 186 ASLIST(0:ASL+32),LETT(0:DSIZE+20) // 187 %SHORTINTEGERARRAY WORD,TAGS(0:NNAMES) #line 187 "regression-compile-tmp/imp918s.imp" short WORD[((NNAMES) + ((int)(1)))]; #line 187 "regression-compile-tmp/imp918s.imp" short TAGS[((NNAMES) + ((int)(1)))]; // 188 %SYSTEMROUTINESPEC IOCP(%INTEGER A,B) #line 188 "regression-compile-tmp/imp918s.imp" extern void iocp( int A, int B ); // 189 %ROUTINESPEC CODE OUT #line 189 "regression-compile-tmp/imp918s.imp" auto void CODEOUT( void ); // 190 %ROUTINESPEC CNOP(%INTEGER I,J) #line 190 "regression-compile-tmp/imp918s.imp" auto void CNOP( int I, int J ); // 191 %ROUTINESPEC PCONST(%INTEGER X) #line 191 "regression-compile-tmp/imp918s.imp" auto void PCONST( int X ); // 192 %ROUTINESPEC PSI(%INTEGER OPCODE,J,BASE,DISP) #line 192 "regression-compile-tmp/imp918s.imp" auto void PSI( int OPCODE, int J, int BASE, int DISP ); // 193 %ROUTINESPEC PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q) #line 193 "regression-compile-tmp/imp918s.imp" auto void PSS( int OPCODE, int N, int BASE, int DISP, int P, int Q ); // 194 %ROUTINESPEC PRX(%INTEGER OPCODE,R1,R2,BASE,DISP) #line 194 "regression-compile-tmp/imp918s.imp" auto void PRX( int OPCODE, int R1, int R2, int BASE, int DISP ); // 195 %ROUTINESPEC PLANT(%INTEGER VALUE) #line 195 "regression-compile-tmp/imp918s.imp" auto void PLANT( int VALUE ); // 196 %ROUTINESPEC PRR (%INTEGER OPCODE,R1,R2) #line 196 "regression-compile-tmp/imp918s.imp" auto void PRR( int OPCODE, int R1, int R2 ); // 197 %ROUTINESPEC PGLA(%INTEGER I,J,K) #line 197 "regression-compile-tmp/imp918s.imp" auto void PGLA( int I, int J, int K ); // 198 %SYSTEMROUTINESPEC LPUT(%INTEGER A,B,C,D) #line 198 "regression-compile-tmp/imp918s.imp" extern void lput( int A, int B, int C, int D ); // 199 %ROUTINESPEC SET PERMBASE #line 199 "regression-compile-tmp/imp918s.imp" auto void SETPERMBASE( void ); // 200 %ROUTINESPEC PLUG(%INTEGER AREA,J,K) #line 200 "regression-compile-tmp/imp918s.imp" auto void PLUG( int AREA, int J, int K ); // 201 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES) #line 201 "regression-compile-tmp/imp918s.imp" auto void PRHEX( int VALUE, int PLACES ); // 202 %ROUTINESPEC RESTORE(%SHORTINTEGER HEAD) #line 202 "regression-compile-tmp/imp918s.imp" auto void RESTORE( short HEAD ); // 203 %ROUTINESPEC GET ENV(%SHORTINTEGERNAME HEAD) #line 203 "regression-compile-tmp/imp918s.imp" auto void GETENV( short /*name*/*HEAD ); // 204 ! %INTEGERFNSPEC NEWCELL // 205 %ROUTINESPEC INSERTAFTER(%SHORTINTEGERNAME STAD,%INTEGER S1,S2) #line 205 "regression-compile-tmp/imp918s.imp" auto void INSERTAFTER( short /*name*/*STAD, int S1, int S2 ); // 206 ! %ROUTINESPEC INSERTATEND(%SHORTINTEGERNAME S,%INTEGER A,B) // 207 %ROUTINESPEC FROM12(%INTEGER CELL,%INTEGERNAME S1,S2) #line 207 "regression-compile-tmp/imp918s.imp" auto void FROM12( int CELL, int /*name*/*S1, int /*name*/*S2 ); // 208 %ROUTINESPEC FROM123(%INTEGER CELL,%INTEGERNAME S1,S2,S3) #line 208 "regression-compile-tmp/imp918s.imp" auto void FROM123( int CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 ); // 209 %ROUTINESPEC POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2) #line 209 "regression-compile-tmp/imp918s.imp" auto void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 ); // 210 %ROUTINESPEC POP123(%SHORTINTEGERNAME C,%INTEGERNAME P,Q,R) #line 210 "regression-compile-tmp/imp918s.imp" auto void POP123( short /*name*/*C, int /*name*/*P, int /*name*/*Q, int /*name*/*R ); // 211 %ROUTINESPEC PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) #line 211 "regression-compile-tmp/imp918s.imp" auto void PUSH( short /*name*/*CELL, int S1, int S2 ); // 212 %ROUTINESPEC PUSH123(%SHORTINTEGERNAME C,%INTEGER S1,S2,S3) #line 212 "regression-compile-tmp/imp918s.imp" auto void PUSH123( short /*name*/*C, int S1, int S2, int S3 ); // 213 %INTEGERFNSPEC FIND(%INTEGER LAB,LIST) #line 213 "regression-compile-tmp/imp918s.imp" auto int FIND( int LAB, int LIST ); // 214 %INTEGERFNSPEC FIND3(%INTEGER LAB,LIST) #line 214 "regression-compile-tmp/imp918s.imp" auto int FIND3( int LAB, int LIST ); // 215 %ROUTINESPEC MLINK(%INTEGERNAME CELL) #line 215 "regression-compile-tmp/imp918s.imp" auto void MLINK( int /*name*/*CELL ); // 216 %ROUTINESPEC REPLACE2(%INTEGER CELL,S2) #line 216 "regression-compile-tmp/imp918s.imp" auto void REPLACE2( int CELL, int S2 ); // 217 %ROUTINESPEC REPLACE1(%INTEGER CELL,S1) #line 217 "regression-compile-tmp/imp918s.imp" auto void REPLACE1( int CELL, int S1 ); // 218 %ROUTINESPEC REPLACE123(%INTEGER CELL,S1,S2,S3) #line 218 "regression-compile-tmp/imp918s.imp" auto void REPLACE123( int CELL, int S1, int S2, int S3 ); // 219 %INTEGERFNSPEC FROM2(%INTEGER CELL) #line 219 "regression-compile-tmp/imp918s.imp" auto int FROM2( int CELL ); // 220 %INTEGERFNSPEC FROM1(%INTEGER CELL) #line 220 "regression-compile-tmp/imp918s.imp" auto int FROM1( int CELL ); // 221 %INTEGERFNSPEC FROM3(%INTEGER CELL) #line 221 "regression-compile-tmp/imp918s.imp" auto int FROM3( int CELL ); // 222 ! %ROUTINESPEC CHECK ASL // 223 !%if INCLUDE DELSTART = 1 %start // 224 %ROUTINESPEC COMPARE #line 224 "regression-compile-tmp/imp918s.imp" auto void COMPARE( void ); // 225 %ROUTINESPEC PNAME #line 225 "regression-compile-tmp/imp918s.imp" auto void PNAME( void ); // 226 %ROUTINESPEC CONST(%INTEGER MODE) #line 226 "regression-compile-tmp/imp918s.imp" auto void CONST( int MODE ); // 227 %ROUTINESPEC CONSTLIST #line 227 "regression-compile-tmp/imp918s.imp" auto void CONSTLIST( void ); // 228 %ROUTINESPEC TEXTTEXT #line 228 "regression-compile-tmp/imp918s.imp" auto void TEXTTEXT( void ); // 229 %ROUTINESPEC READ LINE(%BYTEINTEGER N,CHAR) #line 229 "regression-compile-tmp/imp918s.imp" auto void READLINE( unsigned char N, unsigned char CHAR ); // 230 !%finish // 231 %ROUTINESPEC FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE) #line 231 "regression-compile-tmp/imp918s.imp" auto void FROMAR8( int PTR, double /*name*/*VALUE ); // 232 %ROUTINESPEC FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE) #line 232 "regression-compile-tmp/imp918s.imp" auto void FROMAR4( int PTR, int /*name*/*VALUE ); // 233 %ROUTINESPEC TOAR8(%INTEGER PTR,%LONGREAL VALUE) #line 233 "regression-compile-tmp/imp918s.imp" auto void TOAR8( int PTR, double VALUE ); // 234 %ROUTINESPEC TOAR4(%INTEGER PTR,VALUE) #line 234 "regression-compile-tmp/imp918s.imp" auto void TOAR4( int PTR, int VALUE ); // 235 %ROUTINESPEC CSS(%INTEGER P,MODE) #line 235 "regression-compile-tmp/imp918s.imp" auto void CSS( int P, int MODE ); // 236 %ROUTINESPEC FAULT(%INTEGER N,FNAME) #line 236 "regression-compile-tmp/imp918s.imp" auto void FAULT( int N, int FNAME ); // 237 %ROUTINESPEC ABORT #line 237 "regression-compile-tmp/imp918s.imp" auto void ABORT( void ); // 238 %ROUTINESPEC PRINT USE #line 238 "regression-compile-tmp/imp918s.imp" auto void PRINTUSE( void ); // 239 %ROUTINESPEC PRINTNAME (%INTEGER N) #line 239 "regression-compile-tmp/imp918s.imp" auto void PRINTNAME( int N ); // 240 %SYSTEM %C // 241 %ROUTINESPEC RECODE (%INTEGER START,FINISH,CA) #line 241 "regression-compile-tmp/imp918s.imp" extern void recode( int START, int FINISH, int CA ); // 242 %ROUTINESPEC MESSAGE(%INTEGER N) #line 242 "regression-compile-tmp/imp918s.imp" auto void MESSAGE( int N ); // 243 {%FAULT 1,2->OFL,9->INEND,18->SUBSCHAR} // 244 %on %event 1,2,9{,18} %start #line 244 "regression-compile-tmp/imp918s.imp" if (!_imp_on_event(1, 2, 9)) goto L_000c; /* TO DO: Remove %on %event handler just before L_000c: if present for this block */ // 245 ->OFL %if event_event = 1 #line 245 "regression-compile-tmp/imp918s.imp" if (((_imp_EVENT().EVENT) != (1))) goto L_000d; #line 245 "regression-compile-tmp/imp918s.imp" goto U_1002; #line 245 "regression-compile-tmp/imp918s.imp" L_000d:; // 246 ->OFL %if event_event = 2 #line 246 "regression-compile-tmp/imp918s.imp" if (((_imp_EVENT().EVENT) != (2))) goto L_000e; #line 246 "regression-compile-tmp/imp918s.imp" goto U_1002; #line 246 "regression-compile-tmp/imp918s.imp" L_000e:; // 247 ->INEND %if event_event = 9 #line 247 "regression-compile-tmp/imp918s.imp" if (((_imp_EVENT().EVENT) != (9))) goto L_000f; #line 247 "regression-compile-tmp/imp918s.imp" goto U_1003; #line 247 "regression-compile-tmp/imp918s.imp" L_000f:; // 248 {->SUBSCHAR %if event_event = 18} // 249 %finish #line 249 "regression-compile-tmp/imp918s.imp" L_000c:; // 250 ! START OF COMPILATION // 251 %BEGIN #line 251 "regression-compile-tmp/imp918s.imp" void _BLOCK_2_LEVEL_1_(void) { // 252 !*********************************************************************** // 253 !* THIS BLOCK INITIALISE THE COMPILER SCALARS AND ARRAYS * // 254 !* WAS ORIGINALLY ROUTINE 'INITIALISE'. * // 255 !* THE INITIALISATION OF THE CONSTANT LISTS WITH THE VALUES * // 256 !* IN PERM MAY BE OMITTED IN BATCH OR CUT-DOWN VERSIONS. * // 257 !*********************************************************************** // 258 {%SHORTROUTINE} // 259 !%if INCLUDE DELSTART = 1 %start // 260 %CONSTBYTEINTEGERARRAY ILETT(0: 410)= 11, #line 260 "regression-compile-tmp/imp918s.imp" const unsigned char ILETT[411] = { 11, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 12, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 7, 78, 69, 87, 76, 73, 78, 69, 5, 83, 80, 65, 67, 69, 10, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 84, 82, 73, 78, 71, 8, 78, 69, 87, 76, 73, 78, 69, 83, 6, 83, 80, 65, 67, 69, 83, 10, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 11, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 4, 82, 69, 65, 68, 5, 87, 82, 73, 84, 69, 7, 78, 69, 87, 80, 65, 71, 69, 4, 65, 68, 68, 82, 6, 65, 82, 67, 83, 73, 78, 3, 73, 78, 84, 5, 73, 78, 84, 80, 84, 6, 70, 82, 65, 67, 80, 84, 5, 80, 82, 73, 78, 84, 7, 80, 82, 73, 78, 84, 70, 76, 4, 82, 69, 65, 76, 7, 73, 78, 84, 69, 71, 69, 82, 3, 77, 79, 68, 6, 65, 82, 67, 67, 79, 83, 4, 83, 81, 82, 84, 3, 76, 79, 71, 3, 83, 73, 78, 3, 67, 79, 83, 3, 84, 65, 78, 3, 69, 88, 80, 11, 67, 76, 79, 83, 69, 83, 84, 82, 69, 65, 77, 11, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 12, 83, 72, 79, 82, 84, 73, 78, 84, 69, 71, 69, 82, 6, 82, 65, 68, 73, 85, 83, 6, 65, 82, 67, 84, 65, 78, 6, 76, 69, 78, 71, 84, 72, 11, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 2, 78, 76, 8, 76, 79, 78, 71, 82, 69, 65, 76, 7, 80, 82, 73, 78, 84, 67, 72, 6, 82, 69, 65, 68, 67, 72, 6, 83, 84, 82, 73, 78, 71, 8, 82, 69, 65, 68, 73, 84, 69, 77, 8, 78, 69, 88, 84, 73, 84, 69, 77, 6, 67, 72, 65, 82, 78, 79, 8, 84, 79, 83, 84, 82, 73, 78, 71, 10, 70, 82, 79, 77, 83, 84, 82, 73, 78, 71, 6, 82, 69, 67, 79, 82, 68, 5, 65, 82, 82, 65, 89, 10, 83, 69, 84, 77, 65, 82, 71, 73, 78, 83, 4, 73, 77, 79, 68, 2, 80, 73, 6, 78, 69, 88, 84, 67, 72, 255, }; // 261 'S','E','L','E','C','T','I','N','P','U','T', 12,'S','E','L','E', // 262 'C','T','O','U','T','P','U','T', 7,'N','E','W','L','I','N','E', // 263 5,'S','P','A','C','E', 10,'S','K','I','P','S','Y','M','B','O', // 264 'L', 10,'R','E','A','D','S','T','R','I','N','G', 8,'N','E','W', // 265 'L','I','N','E','S', 6,'S','P','A','C','E','S', 10,'N','E','X', // 266 'T','S','Y','M','B','O','L', 11,'P','R','I','N','T','S','Y','M', // 267 'B','O','L', 10,'R','E','A','D','S','Y','M','B','O','L', 4,'R', // 268 'E','A','D', 5,'W','R','I','T','E', 7,'N','E','W','P','A','G', // 269 'E', 4,'A','D','D','R', 6,'A','R','C','S','I','N', 3,'I','N', // 270 'T', 5,'I','N','T','P','T', 6,'F','R','A','C','P','T', 5,'P', // 271 'R','I','N','T', 7,'P','R','I','N','T','F','L', 4,'R','E','A', // 272 'L', 7,'I','N','T','E','G','E','R', 3,'M','O','D', 6,'A','R', // 273 'C','C','O','S', 4,'S','Q','R','T', 3,'L','O','G', 3,'S','I', // 274 'N', 3,'C','O','S', 3,'T','A','N', 3,'E','X','P', 11,'C','L', // 275 'O','S','E','S','T','R','E','A','M', 11,'B','Y','T','E','I','N', // 276 'T','E','G','E','R', 12,'S','H','O','R','T','I','N','T','E','G', // 277 'E','R', 6,'R','A','D','I','U','S', 6,'A','R','C','T','A','N', // 278 6,'L','E','N','G','T','H', 11,'P','R','I','N','T','S','T','R', // 279 'I','N','G', 2,'N','L', 8,'L','O','N','G','R','E','A','L', 7, // 280 'P','R','I','N','T','C','H', 6,'R','E','A','D','C','H', 6,'S', // 281 'T','R','I','N','G', 8,'R','E','A','D','I','T','E','M', 8,'N', // 282 'E','X','T','I','T','E','M', 6,'C','H','A','R','N','O', 8,'T', // 283 'O','S','T','R','I','N','G', 10,'F','R','O','M','S','T','R','I', // 284 'N','G', 6,'R','E','C','O','R','D', 5,'A','R','R','A','Y', 10, // 285 'S','E','T','M','A','R','G','I','N','S',4,'I','M','O','D', // 286 2,'P','I',6,'N','E','X','T','C','H',255; // 287 !%finish // 288 !%if USE MC = 1 %start // 289 ! *XC_CABUF(108),CABUF ;!CLEAR INTEGER // 290 ! *XC_FFLAG(24),FFLAG; !CLEAR BYTE FLAG VARIABLES // 291 ! *XC_MASK(144),MASK; ! CLEAR WORK VARIABLES // 292 !%finish // 293 STMTSHELD=0; TOPPTR=500 #line 293 "regression-compile-tmp/imp918s.imp" STMTSHELD = 0; #line 293 "regression-compile-tmp/imp918s.imp" TOPPTR = 500; // 294 IMAX=(-1)>>1;PLABEL=26999 #line 294 "regression-compile-tmp/imp918s.imp" IMAX = (int)((((unsigned int)((-1))) >> (1))); #line 294 "regression-compile-tmp/imp918s.imp" PLABEL = 26999; // 295 LABSET=3<<30;LETT(0)=0 #line 295 "regression-compile-tmp/imp918s.imp" LABSET = ((3) << (30)); #line 295 "regression-compile-tmp/imp918s.imp" LETT[0] = 0; // 296 N0=27; N=12; MARGIN=1024 #line 296 "regression-compile-tmp/imp918s.imp" N0 = 27; #line 296 "regression-compile-tmp/imp918s.imp" N = 12; #line 296 "regression-compile-tmp/imp918s.imp" MARGIN = 1024; // 297 MAX ULAB=NNAMES+16384; ! LARGEST VALID USER LABEL #line 297 "regression-compile-tmp/imp918s.imp" MAXULAB = (((int)(NNAMES)) + (16384)); // 298 GLACA=N0<<2; GLACABUF=GLACA #line 298 "regression-compile-tmp/imp918s.imp" GLACA = ((N0) << (2)); #line 298 "regression-compile-tmp/imp918s.imp" GLACABUF = GLACA; // 299 CHECKSP=1 ; CHECKS=1 #line 299 "regression-compile-tmp/imp918s.imp" CHECKSP = 1; #line 299 "regression-compile-tmp/imp918s.imp" CHECKS = 1; // 300 LINENOS=1; DIAGS1=1; MONE=1 #line 300 "regression-compile-tmp/imp918s.imp" LINENOS = 1; #line 300 "regression-compile-tmp/imp918s.imp" DIAGS1 = 1; #line 300 "regression-compile-tmp/imp918s.imp" MONE = 1; // 301 LIST=1; SFLABEL=21999; UNASS=1 #line 301 "regression-compile-tmp/imp918s.imp" LIST = 1; #line 301 "regression-compile-tmp/imp918s.imp" SFLABEL = 21999; #line 301 "regression-compile-tmp/imp918s.imp" UNASS = 1; // 302 LET=1; XLABEL=19999; ! FOR EXIT STATEMENTS #line 302 "regression-compile-tmp/imp918s.imp" LET = 1; #line 302 "regression-compile-tmp/imp918s.imp" XLABEL = 19999; // 303 ARSIZE=480 #line 303 "regression-compile-tmp/imp918s.imp" ARSIZE = 480; // 304 QUICK=11009 #line 304 "regression-compile-tmp/imp918s.imp" QUICK = 11009; // 305 MAINEP1=4; MAINEP2=M'S#GO'; ! DEFAULT ENTRY POINT #line 305 "regression-compile-tmp/imp918s.imp" MAINEP1 = 4; #line 305 "regression-compile-tmp/imp918s.imp" MAINEP2 = 1394820943; // 306 IOCP1=6; IOCP2=M'S#IO'; IOCP3=M'CPXX' #line 306 "regression-compile-tmp/imp918s.imp" IOCP1 = 6; #line 306 "regression-compile-tmp/imp918s.imp" IOCP2 = 1394821455; #line 306 "regression-compile-tmp/imp918s.imp" IOCP3 = 1129338968; // 307 IMPMON1=8; IMPMON2=M'S#IM'; IMPMON3=M'PMON' #line 307 "regression-compile-tmp/imp918s.imp" IMPMON1 = 8; #line 307 "regression-compile-tmp/imp918s.imp" IMPMON2 = 1394821453; #line 307 "regression-compile-tmp/imp918s.imp" IMPMON3 = 1347243854; // 308 !*INSERT // 309 %IF FILE ADDR#0 %THEN %START #line 309 "regression-compile-tmp/imp918s.imp" if (((FILEADDR) == (0))) goto L_0010; // 310 FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4) #line 310 "regression-compile-tmp/imp918s.imp" FILEPTR = (((int)(FILEADDR)) + (*_imp_INTEGER((((int)(FILEADDR)) + (4))))); // 311 FILE END=FILE ADDR+INTEGER(FILE ADDR) #line 311 "regression-compile-tmp/imp918s.imp" FILEEND = (((int)(FILEADDR)) + (*_imp_INTEGER(FILEADDR))); // 312 %FINISH #line 312 "regression-compile-tmp/imp918s.imp" L_0010:; // 313 I=COMREG(27) #line 313 "regression-compile-tmp/imp918s.imp" I = *comreg(27); // 314 %IF I&2=2 %THEN LIST=0 #line 314 "regression-compile-tmp/imp918s.imp" if (((((I) & (2))) != (2))) goto L_0011; #line 314 "regression-compile-tmp/imp918s.imp" LIST = 0; #line 314 "regression-compile-tmp/imp918s.imp" L_0011:; // 315 %IF I&4=4 %THEN LINENOS=0 #line 315 "regression-compile-tmp/imp918s.imp" if (((((I) & (4))) != (4))) goto L_0012; #line 315 "regression-compile-tmp/imp918s.imp" LINENOS = 0; #line 315 "regression-compile-tmp/imp918s.imp" L_0012:; // 316 %IF I&16=16 %THEN UNASS=0 #line 316 "regression-compile-tmp/imp918s.imp" if (((((I) & (16))) != (16))) goto L_0013; #line 316 "regression-compile-tmp/imp918s.imp" UNASS = 0; #line 316 "regression-compile-tmp/imp918s.imp" L_0013:; // 317 %IF I&32=32 %THEN CHECKS=0 #line 317 "regression-compile-tmp/imp918s.imp" if (((((I) & (32))) != (32))) goto L_0014; #line 317 "regression-compile-tmp/imp918s.imp" CHECKS = 0; #line 317 "regression-compile-tmp/imp918s.imp" L_0014:; // 318 %IF I&(128<<8)#0 %THEN PRINTMAP=1 #line 318 "regression-compile-tmp/imp918s.imp" if (((((I) & (((128) << (8))))) == (0))) goto L_0015; #line 318 "regression-compile-tmp/imp918s.imp" PRINTMAP = 1; #line 318 "regression-compile-tmp/imp918s.imp" L_0015:; // 319 %IF I&(32<<8)#0 %THEN LET=0 #line 319 "regression-compile-tmp/imp918s.imp" if (((((I) & (((32) << (8))))) == (0))) goto L_0016; #line 319 "regression-compile-tmp/imp918s.imp" LET = 0; #line 319 "regression-compile-tmp/imp918s.imp" L_0016:; // 320 %IF I&64=64 %THEN DIAGS1=0 #line 320 "regression-compile-tmp/imp918s.imp" if (((((I) & (64))) != (64))) goto L_0017; #line 320 "regression-compile-tmp/imp918s.imp" DIAGS1 = 0; #line 320 "regression-compile-tmp/imp918s.imp" L_0017:; // 321 DIAGS2=I>>18&1 #line 321 "regression-compile-tmp/imp918s.imp" DIAGS2 = (((int)((((unsigned int)(I)) >> (18)))) & (1)); // 322 TTOPUT=I>>21&1 #line 322 "regression-compile-tmp/imp918s.imp" TTOPUT = (((int)((((unsigned int)(I)) >> (21)))) & (1)); // 323 %IF I&(1<<16)#0 %THEN %START #line 323 "regression-compile-tmp/imp918s.imp" if (((((I) & (((1) << (16))))) == (0))) goto L_0018; // 324 CHECKS=0; CHECKSP=0 #line 324 "regression-compile-tmp/imp918s.imp" CHECKS = 0; #line 324 "regression-compile-tmp/imp918s.imp" CHECKSP = 0; // 325 LINENOS=0; UNASS=0 #line 325 "regression-compile-tmp/imp918s.imp" LINENOS = 0; #line 325 "regression-compile-tmp/imp918s.imp" UNASS = 0; // 326 %FINISH #line 326 "regression-compile-tmp/imp918s.imp" L_0018:; // 327 GLAFLAG=CHECKSP; ! GLAFLAG SHOULD BE SET TO 0 IF #line 327 "regression-compile-tmp/imp918s.imp" GLAFLAG = CHECKSP; // 328 ! IMPS IS COMPILED NON OPTIMISED. // 329 WARNINGS(0)=0 #line 329 "regression-compile-tmp/imp918s.imp" WARNINGS[0] = 0; // 330 IMPS=I>>23&1; ! BIT SET IF IMPS REQUESTED #line 330 "regression-compile-tmp/imp918s.imp" IMPS = (((int)((((unsigned int)(I)) >> (23)))) & (1)); // 331 ! // 332 ! OPEN OBJECT FILE HERE BEFORE MORE PAGES OF COMPILER CODE // 333 ! ARE PAGED IN AND SUB-SYSTEM PAGES MOVE OUT // 334 ! // 335 LPUT(0,IMPS<<1+1,RELEASE,VERSION) #line 335 "regression-compile-tmp/imp918s.imp" lput(0, (((int)(((IMPS) << (1)))) + (1)), 9, 18); // 336 NEWLINES(3); SPACES(20) #line 336 "regression-compile-tmp/imp918s.imp" _imp_NEWLINES(3); #line 336 "regression-compile-tmp/imp918s.imp" _imp_SPACES(20); // 337 printstring("E.R.C.C. IMP") #line 337 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("E.R.C.C. IMP")); // 338 %IF IMPS#0 %THEN printstring("S") #line 338 "regression-compile-tmp/imp918s.imp" if (((IMPS) == (0))) goto L_0019; #line 338 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("S")); #line 338 "regression-compile-tmp/imp918s.imp" L_0019:; // 339 printstring(" COMPILER RELEASE") #line 339 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" COMPILER RELEASE")); // 340 WRITE(RELEASE,1) #line 340 "regression-compile-tmp/imp918s.imp" _imp_WRITE(9, 1); // 341 printstring(" VERSION") #line 341 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" VERSION")); // 342 WRITE(VERSION,2) #line 342 "regression-compile-tmp/imp918s.imp" _imp_WRITE(18, 2); // 343 NEWLINES(3) #line 343 "regression-compile-tmp/imp918s.imp" _imp_NEWLINES(3); // 344 WRITE(NNAMES,5); WRITE(ASL,5) #line 344 "regression-compile-tmp/imp918s.imp" _imp_WRITE(NNAMES, 5); #line 344 "regression-compile-tmp/imp918s.imp" _imp_WRITE(ASL, 5); // 345 !%if USE MC = 1 %start // 346 ! *L_1,SET; *XC_0(48,1),0(1) // 347 ! *L_1,CYCLE; *XC_0(24,1),0(1) // 348 ! *L_1,NAMES; *XC_0(24,1),0(1) // 349 ! *L_1,LABEL; *XC_0(24,1),0(1) // 350 ! *L_1,SBR; *XC_0(24,1),0(1) // 351 ! *L_1,AVL WSP; *XC_0(192,1),0(1) // 352 ! *L_1,REGISTER; *XC_0(92,1),0(1) // 353 ! *L_1,GRUSE; *XC_0(92,1),0(1) // 354 ! *L_1,GRINF; *XC_0(92,1),0(1) // 355 ! *L_1,GRAT; *XC_0(92,1),0(1) // 356 !%finish // 357 REGISTER(10)=-1; GRUSE(10)=12 #line 357 "regression-compile-tmp/imp918s.imp" REGISTER[10] = (-1); #line 357 "regression-compile-tmp/imp918s.imp" GRUSE[10] = 12; // 358 REGISTER(11)=-1; REGISTER(13)=-1 #line 358 "regression-compile-tmp/imp918s.imp" REGISTER[11] = (-1); #line 358 "regression-compile-tmp/imp918s.imp" REGISTER[13] = (-1); // 359 !%if USE MC = 1 %start // 360 ! *L_1,UVARREG+4; *XC_0(40,1),0(1);!NO USER DEFINED REGS // 361 !%finish // 362 %CYCLE I=0,16,ASL-16 #line 362 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 16; _final = (((int)(ASL)) - (16)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 16, (((int)(ASL)) - (16))"); I -= _increment; _control -= _increment; L_001a:; if (I == _final) goto L_001b; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 363 SHORT INTEGER(ADDR(ASLIST(I))+30)=I #line 363 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER((((int)(_imp_ADDR(&ASLIST[I]))) + (30))) = I; // 364 %REPEAT #line 364 "regression-compile-tmp/imp918s.imp" goto L_001a; #line 364 "regression-compile-tmp/imp918s.imp" L_001b:; // 365 INTEGER(ADDR(ASLIST(0)))=-1 #line 365 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[0])) = (-1); // 366 INTEGER(ADDR(ASLIST(4)))=-1 #line 366 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[4])) = (-1); // 367 INTEGER(ADDR(ASLIST(8)))=-1 #line 367 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[8])) = (-1); // 368 INTEGER(ADDR(ASLIST(12)))=X'FFFF0000' #line 368 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[12])) = (-65536); // 369 SET PERMBASE #line 369 "regression-compile-tmp/imp918s.imp" SETPERMBASE(); // 370 PCONST(X'50FB003C'); ! ST 15,60(11) #line 370 "regression-compile-tmp/imp918s.imp" PCONST(1358626876); // 371 PCONST(X'45FC004C'); ! BAL 15,RTI1 #line 371 "regression-compile-tmp/imp918s.imp" PCONST(1174143052); // 372 %CYCLE I=0,1,NNAMES #line 372 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = NNAMES; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NNAMES"); I -= _increment; _control -= _increment; L_001d:; if (I == _final) goto L_001e; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 373 WORD(I)=0; TAGS(I)=0 #line 373 "regression-compile-tmp/imp918s.imp" WORD[I] = 0; #line 373 "regression-compile-tmp/imp918s.imp" TAGS[I] = 0; // 374 %REPEAT #line 374 "regression-compile-tmp/imp918s.imp" goto L_001d; #line 374 "regression-compile-tmp/imp918s.imp" L_001e:; // 375 ! // 376 ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT. A SPECIAL // 377 ! ALTERNATIVE (19) OF PHRASE IS PROVIDED FOR THIS PURPOSE // 378 ! // 379 !%if INCLUDE DELSTART = 1 %start // 380 A(1)=19; K=0; NEXT=1 #line 380 "regression-compile-tmp/imp918s.imp" A[8] = 19; #line 380 "regression-compile-tmp/imp918s.imp" K = 0; #line 380 "regression-compile-tmp/imp918s.imp" NEXT = 1; // 381 I=ILETT(0) #line 381 "regression-compile-tmp/imp918s.imp" I = ILETT[0]; // 382 %WHILE I<255 %CYCLE #line 382 "regression-compile-tmp/imp918s.imp" L_0020:; #line 382 "regression-compile-tmp/imp918s.imp" if (((I) >= (255))) goto L_0021; // 383 %CYCLE J=1,1,I #line 383 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = I; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, I"); J -= _increment; _control -= _increment; L_0023:; if (J == _final) goto L_0024; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 384 CC(J)=ILETT(K+J) #line 384 "regression-compile-tmp/imp918s.imp" CC[J] = ILETT[(((int)(K)) + (J))]; // 385 %REPEAT; CC(J+1)=';' #line 385 "regression-compile-tmp/imp918s.imp" goto L_0023; #line 385 "regression-compile-tmp/imp918s.imp" L_0024:; #line 385 "regression-compile-tmp/imp918s.imp" CC[(((int)(J)) + (1))] = 59; // 386 R=2; Q=ADDR(CC(1)); PNAME #line 386 "regression-compile-tmp/imp918s.imp" R = 2; #line 386 "regression-compile-tmp/imp918s.imp" Q = _imp_ADDR(&CC[1]); #line 386 "regression-compile-tmp/imp918s.imp" PNAME(); // 387 CSS(1,1); K=K+I+1; I=ILETT(K) #line 387 "regression-compile-tmp/imp918s.imp" CSS(1, 1); #line 387 "regression-compile-tmp/imp918s.imp" K = (((int)((((int)(K)) + (I)))) + (1)); #line 387 "regression-compile-tmp/imp918s.imp" I = ILETT[K]; // 388 %REPEAT #line 388 "regression-compile-tmp/imp918s.imp" goto L_0020; #line 388 "regression-compile-tmp/imp918s.imp" L_0021:; // 389 !%finish // 390 ! // 391 A(-7)=2; TOAR4(-6,PI1); TOAR4(-4,PI2) #line 391 "regression-compile-tmp/imp918s.imp" A[0] = 2; #line 391 "regression-compile-tmp/imp918s.imp" TOAR4((-6), PI1); #line 391 "regression-compile-tmp/imp918s.imp" TOAR4((-4), PI2); // 392 A(0)=0; A(1)=12; CSS(1,1); ! COMPILE A BEGIN @ LINE 0 #line 392 "regression-compile-tmp/imp918s.imp" A[7] = 0; #line 392 "regression-compile-tmp/imp918s.imp" A[8] = 12; #line 392 "regression-compile-tmp/imp918s.imp" CSS(1, 1); // 393 COMREG(24)=16; ! RETURN CODE #line 393 "regression-compile-tmp/imp918s.imp" *comreg(24) = 16; // 394 %CYCLE I=1,1,3 #line 394 "regression-compile-tmp/imp918s.imp" I = 0; if ((((3)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 3"); L_0026:; if (I == 3) goto L_0027; I += 1; // 395 PUSH123(CONSTL4,I,0,X'800000E0'+I<<2) #line 395 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, I, 0, (((-2147483424)) + ((int)(((I) << (2)))))); // 396 PUSH123(CONSTL4,I<<12,0,X'80000100'+I<<2) #line 396 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, ((I) << (12)), 0, (((-2147483392)) + ((int)(((I) << (2)))))); // 397 %REPEAT #line 397 "regression-compile-tmp/imp918s.imp" goto L_0026; #line 397 "regression-compile-tmp/imp918s.imp" L_0027:; // 398 PUSH123(CONSTL4,-1,0,16) #line 398 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, (-1), 0, 16); // 399 PUSH123(CONSTL4,255,0,24) #line 399 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, 255, 0, 24); // 400 PUSH123(CONSTL4,-4,0,X'800000F8') #line 400 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, (-4), 0, (-2147483400)); // 401 PUSH123(CONSTL4,-8,0,X'800000FC') #line 401 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL4, (-8), 0, (-2147483396)); // 402 PUSH123(CONSTL8,X'41100000',0,X'800000C8');! FLOATNG =D'1' #line 402 "regression-compile-tmp/imp918s.imp" PUSH123(&CONSTL8, 1091567616, 0, (-2147483448)); // 403 DUMMY FORMAT=0; ! DUMMY RECORD FORMAT #line 403 "regression-compile-tmp/imp918s.imp" DUMMYFORMAT = 0; // 404 PUSH(CONSTL6,0,0) #line 404 "regression-compile-tmp/imp918s.imp" PUSH(&CONSTL6, 0, 0); // 405 PUSH123(DUMMY FORMAT,0,0,CONSTL6); ! FOR BETTER ERROR RECOVERY #line 405 "regression-compile-tmp/imp918s.imp" PUSH123(&DUMMYFORMAT, 0, 0, CONSTL6); // 406 CONSTL6=0 #line 406 "regression-compile-tmp/imp918s.imp" CONSTL6 = 0; // 407 %END #line 407 "regression-compile-tmp/imp918s.imp" return; } // End of block _BLOCK_2_LEVEL_1_ at level 2 _BLOCK_2_LEVEL_1_(); // 408 ! // 409 ->Label8 #line 409 "regression-compile-tmp/imp918s.imp" goto U_1004; // 410 %ROUTINE LOAD DATA #line 410 "regression-compile-tmp/imp918s.imp" void LOADDATA( void ) #line 410 "regression-compile-tmp/imp918s.imp" { // 411 {%SHORTROUTINE} // 412 !*********************************************************************** // 413 !* PASS INFORMATION TO LPUT TO ENABLE IT TO GENERATE THE * // 414 !* LOADER DATA AND COMPLETE THE PROGRAM FILE. * // 415 !*********************************************************************** // 416 %INTEGER JJ,KK,FLAG,XTRA,ID1,ID2,ID3 #line 416 "regression-compile-tmp/imp918s.imp" int JJ; #line 416 "regression-compile-tmp/imp918s.imp" int KK; #line 416 "regression-compile-tmp/imp918s.imp" int FLAG; #line 416 "regression-compile-tmp/imp918s.imp" int XTRA; #line 416 "regression-compile-tmp/imp918s.imp" int ID1; #line 416 "regression-compile-tmp/imp918s.imp" int ID2; #line 416 "regression-compile-tmp/imp918s.imp" int ID3; // 417 %SHORTINTEGER HEAD #line 417 "regression-compile-tmp/imp918s.imp" short HEAD; // 418 GLACA=(GLACA+7)&(-8) #line 418 "regression-compile-tmp/imp918s.imp" GLACA = (((((int)(GLACA)) + (7))) & ((-8))); // 419 CONSTPTR=(CONSTPTR+7)&(-8) #line 419 "regression-compile-tmp/imp918s.imp" CONSTPTR = (((((int)(CONSTPTR)) + (7))) & ((-8))); // 420 ! // 421 ! DEFINE ANY DATA EPS FOR DATA IN THE GLA SYMBOL TABLES. THESE CAN NOT // 422 ! BE DEFINED BEFORE THE SIZE OF THE GLA IS KNOWN // 423 ! // 424 %WHILE EPLINK#0 %CYCLE #line 424 "regression-compile-tmp/imp918s.imp" L_0029:; #line 424 "regression-compile-tmp/imp918s.imp" if (((EPLINK) == (0))) goto L_002a; // 425 POP123(EPLINK,JJ,XTRA,KK) #line 425 "regression-compile-tmp/imp918s.imp" POP123(&EPLINK, &JJ, &XTRA, &KK); // 426 HEAD=KK; FLAG=JJ>>24; JJ=JJ&X'FFFFFF' #line 426 "regression-compile-tmp/imp918s.imp" HEAD = KK; #line 426 "regression-compile-tmp/imp918s.imp" FLAG = (int)((((unsigned int)(JJ)) >> (24))); #line 426 "regression-compile-tmp/imp918s.imp" JJ = ((JJ) & (16777215)); // 427 JJ=JJ+GLACA #line 427 "regression-compile-tmp/imp918s.imp" JJ = (((int)(JJ)) + (GLACA)); // 428 POP123(HEAD,ID1,ID2,ID3) #line 428 "regression-compile-tmp/imp918s.imp" POP123(&HEAD, &ID1, &ID2, &ID3); // 429 ID3=ID3<<16 #line 429 "regression-compile-tmp/imp918s.imp" ID3 = ((ID3) << (16)); // 430 LPUT(14,XTRA,JJ,ADDR(ID1)) #line 430 "regression-compile-tmp/imp918s.imp" lput(14, XTRA, JJ, _imp_ADDR(&ID1)); // 431 %REPEAT #line 431 "regression-compile-tmp/imp918s.imp" goto L_0029; #line 431 "regression-compile-tmp/imp918s.imp" L_002a:; // 432 CNOP(0,8) #line 432 "regression-compile-tmp/imp918s.imp" CNOP(0, 8); // 433 FIXED GLA(2)=GLACA; ! GLA SYMTABS FROM HEAD OF GLA #line 433 "regression-compile-tmp/imp918s.imp" FIXEDGLA[2] = GLACA; // 434 FIXED GLA(3)=CA; ! CODE SYMTABS FROM HEAD OF CODE #line 434 "regression-compile-tmp/imp918s.imp" FIXEDGLA[3] = CA; // 435 FIXED GLA(0)=CA; ! WILL BE RELOCATED #line 435 "regression-compile-tmp/imp918s.imp" FIXEDGLA[0] = CA; // 436 CODE OUT #line 436 "regression-compile-tmp/imp918s.imp" CODEOUT(); // 437 I=GLACA-GLACABUF #line 437 "regression-compile-tmp/imp918s.imp" I = (((int)(GLACA)) - (GLACABUF)); // 438 %IF INHCODE=0 %THEN %START #line 438 "regression-compile-tmp/imp918s.imp" if (((INHCODE) != (0))) goto L_002c; // 439 LPUT(2,I,GLACABUF,ADDR(GLABUF(0))) %UNLESS I=0;! BACK OF GLAP #line 439 "regression-compile-tmp/imp918s.imp" if (((I) == (0))) goto L_002d; #line 439 "regression-compile-tmp/imp918s.imp" lput(2, I, GLACABUF, _imp_ADDR(&GLABUF[0])); #line 439 "regression-compile-tmp/imp918s.imp" L_002d:; // 440 ! // 441 ! NOW SET THE LANGUAGE FLAG(BYTE 4 OF GLA) 1=IMP,3=IMPS // 442 ! // 443 BYTE INTEGER(ADDR(FIXED GLA(1)))=16+IMPS<<5;! LANGUAGE FLAG #line 443 "regression-compile-tmp/imp918s.imp" *_imp_BYTEINTEGER(_imp_ADDR(&FIXEDGLA[1])) = ((16) + ((int)(((IMPS) << (5))))); // 444 LPUT(2,N0<<2,0,ADDR(FIXED GLA(0))); ! FRONT OF GLAP #line 444 "regression-compile-tmp/imp918s.imp" lput(2, ((N0) << (2)), 0, _imp_ADDR(&FIXEDGLA[0])); // 445 I=X'E2E2E2E2' #line 445 "regression-compile-tmp/imp918s.imp" I = (-488447262); // 446 LPUT(4,4,SSTL,ADDR(I)) #line 446 "regression-compile-tmp/imp918s.imp" lput(4, 4, SSTL, _imp_ADDR(&I)); // 447 ! // 448 ! NOW PLANT ANY RELOCATION INFO THAT HAS BEEN HELD UP AS IT IS RELATIVE // 449 ! TO THE SYMBOL TABLES. LPUT DEALS ONLY IN CODE & GLA SO THE COMPILER // 450 ! HAS TO ADJUST ST REFEFERNCES TO ALLOW FOR FRONT OF CODE OR GLA // 451 ! // 452 ! %WHILE RELHEAD#0 %CYCLE // 453 ! POP123(RELHEAD,JJ,KK,XTRA) // 454 ! %IF XTRA=4 %THEN %START; ! CODE ST // 455 ! KK=KK+CA // 456 ! %FINISH %ELSE %START; ! GLA ST // 457 ! KK=KK+GLACA // 458 ! %FINISH // 459 ! LPUT(2,4,JJ,ADDR(KK)); ! OUTPUT ADJUSTED POINTER // 460 ! LPUT(XTRA+16,0,JJ,0); ! AND RELOCATION INFO // 461 ! %REPEAT // 462 ! // 463 LPUT(20,0,0,0); ! RELOCATE POINTER TO CST #line 463 "regression-compile-tmp/imp918s.imp" lput(20, 0, 0, 0); // 464 LPUT(20,0,28,0); ! RELOCATE GLA HDOFCODE WORD #line 464 "regression-compile-tmp/imp918s.imp" lput(20, 0, 28, 0); // 465 LPUT(12,0,23<<2,ADDR(FIXEDGLA(27)));! O-P PERM REFERENCE #line 465 "regression-compile-tmp/imp918s.imp" lput(12, 0, ((23) << (2)), _imp_ADDR(&FIXEDGLA[27])); // 466 LPUT(16,0,64,0); ! DEFINE TOPOFSTORE WORD #line 466 "regression-compile-tmp/imp918s.imp" lput(16, 0, 64, 0); // 467 %FINISH #line 467 "regression-compile-tmp/imp918s.imp" L_002c:; // 468 SSTL=(SSTL+11)&(-8) #line 468 "regression-compile-tmp/imp918s.imp" SSTL = (((((int)(SSTL)) + (11))) & ((-8))); // 469 printstring(" #line 469 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\nCODE")); // 470 CODE") // 471 WRITE(CA,6); PRINTSTRING(" BYTES GLAP") #line 471 "regression-compile-tmp/imp918s.imp" _imp_WRITE(CA, 6); #line 471 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES GLAP")); // 472 WRITE(GLACA,3); printstring("+") #line 472 "regression-compile-tmp/imp918s.imp" _imp_WRITE(GLACA, 3); #line 472 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("+")); // 473 WRITE(CONSTPTR,1); printstring(" BYTES DIAG TABLES") #line 473 "regression-compile-tmp/imp918s.imp" _imp_WRITE(CONSTPTR, 1); #line 473 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES DIAG TABLES")); // 474 WRITE(SSTL,3); printstring(" BYTES #line 474 "regression-compile-tmp/imp918s.imp" _imp_WRITE(SSTL, 3); #line 474 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES\nTOTAL")); // 475 TOTAL") // 476 REGISTER(0)=CA; REGISTER(1)=GLACA #line 476 "regression-compile-tmp/imp918s.imp" REGISTER[0] = CA; #line 476 "regression-compile-tmp/imp918s.imp" REGISTER[1] = GLACA; // 477 REGISTER(2)=0 #line 477 "regression-compile-tmp/imp918s.imp" REGISTER[2] = 0; // 478 REGISTER(3)=SSTL #line 478 "regression-compile-tmp/imp918s.imp" REGISTER[3] = SSTL; // 479 REGISTER(4)=CONSTPTR #line 479 "regression-compile-tmp/imp918s.imp" REGISTER[4] = CONSTPTR; // 480 K=CA+GLACA+SSTL+CONSTPTR;REGISTER(5)=K #line 480 "regression-compile-tmp/imp918s.imp" K = (((int)((((int)((((int)(CA)) + (GLACA)))) + (SSTL)))) + (CONSTPTR)); #line 480 "regression-compile-tmp/imp918s.imp" REGISTER[5] = K; // 481 WRITE(K,5); printstring(" BYTES") #line 481 "regression-compile-tmp/imp918s.imp" _imp_WRITE(K, 5); #line 481 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES")); // 482 %IF IMPS=0 %AND WARNINGS(0)>0 %START #line 482 "regression-compile-tmp/imp918s.imp" if (((IMPS) != (0))) goto L_002e; #line 482 "regression-compile-tmp/imp918s.imp" if (((WARNINGS[0]) <= (0))) goto L_002e; // 483 J=WARNINGS(0) #line 483 "regression-compile-tmp/imp918s.imp" J = WARNINGS[0]; // 484 PRINTSTRING(" #line 484 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\nTHE FOLLOWING LINES ARE NOT ACCEPTABLE TO 2900 IMP:-")); // 485 THE FOLLOWING LINES ARE NOT ACCEPTABLE TO 2900 IMP:-") // 486 NEWLINE #line 486 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); // 487 %CYCLE I=1,1,J #line 487 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = J; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, J"); I -= _increment; _control -= _increment; L_002f:; if (I == _final) goto L_0030; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 488 WRITE(WARNINGS(I),3) #line 488 "regression-compile-tmp/imp918s.imp" _imp_WRITE(WARNINGS[I], 3); // 489 %EXIT %IF I>=30 #line 489 "regression-compile-tmp/imp918s.imp" if (((I) < (30))) goto L_0032; #line 489 "regression-compile-tmp/imp918s.imp" goto L_0030; #line 489 "regression-compile-tmp/imp918s.imp" L_0032:; // 490 %REPEAT #line 490 "regression-compile-tmp/imp918s.imp" goto L_002f; #line 490 "regression-compile-tmp/imp918s.imp" L_0030:; // 491 NEWLINE #line 491 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); // 492 %IF J>30 %THEN PRINTSTRING("PLUS ") %AND WRITE(J-30,3) %C #line 492 "regression-compile-tmp/imp918s.imp" if (((J) <= (30))) goto L_0033; #line 492 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("PLUS ")); #line 492 "regression-compile-tmp/imp918s.imp" _imp_WRITE((((int)(J)) - (30)), 3); #line 492 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" MORE\n")); #line 492 "regression-compile-tmp/imp918s.imp" L_0033:; // 493 %AND PRINTSTRING(" MORE // 494 ") // 495 %FINISH #line 495 "regression-compile-tmp/imp918s.imp" L_002e:; // 496 NEWLINE; print symbol(13); ! MARKER FOR COMP TO PRINT SUMMARY #line 496 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); #line 496 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL(13); // 497 %IF FAULTY=0 %THEN %START #line 497 "regression-compile-tmp/imp918s.imp" if (((FAULTY) != (0))) goto L_0034; // 498 WRITE(STMTS,7); printstring(" STATEMENTS COMPILED") #line 498 "regression-compile-tmp/imp918s.imp" _imp_WRITE(STMTS, 7); #line 498 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED")); // 499 %IF GLACA>4096 %THEN printstring(" #line 499 "regression-compile-tmp/imp918s.imp" if (((GLACA) <= (4096))) goto L_0035; #line 499 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\nWARNING:- GLAP ROOT IS GREATER THAN 4096 BYTES!\n********\n OBJECT PROGRAM IS LIABLE TO BE VERY INEFFICIENT\n")); #line 499 "regression-compile-tmp/imp918s.imp" L_0035:; // 500 WARNING:- GLAP ROOT IS GREATER THAN 4096 BYTES! // 501 ******** // 502 OBJECT PROGRAM IS LIABLE TO BE VERY INEFFICIENT // 503 "); // 504 COMREG(47) = STMTS #line 504 "regression-compile-tmp/imp918s.imp" *comreg(47) = STMTS; // 505 %FINISH %ELSE %START #line 505 "regression-compile-tmp/imp918s.imp" goto L_0036; #line 505 "regression-compile-tmp/imp918s.imp" L_0034:; // 506 printstring("PROGRAM CONTAINS"); WRITE(FAULTY,2) #line 506 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("PROGRAM CONTAINS")); #line 506 "regression-compile-tmp/imp918s.imp" _imp_WRITE(FAULTY, 2); // 507 printstring(" FAULT"); PRINTSYMBOL('S') %IF FAULTY>1 #line 507 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" FAULT")); #line 507 "regression-compile-tmp/imp918s.imp" if (((FAULTY) <= (1))) goto L_0037; #line 507 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL(83); #line 507 "regression-compile-tmp/imp918s.imp" L_0037:; // 508 COMREG(47)=FAULTY; ! FOR COMPER #line 508 "regression-compile-tmp/imp918s.imp" *comreg(47) = FAULTY; // 509 %FINISH #line 509 "regression-compile-tmp/imp918s.imp" L_0036:; // 510 NEWLINES(2) #line 510 "regression-compile-tmp/imp918s.imp" _imp_NEWLINES(2); // 511 I=0; I=8 %IF FAULTY#0 #line 511 "regression-compile-tmp/imp918s.imp" I = 0; #line 511 "regression-compile-tmp/imp918s.imp" if (((FAULTY) == (0))) goto L_0038; #line 511 "regression-compile-tmp/imp918s.imp" I = 8; #line 511 "regression-compile-tmp/imp918s.imp" L_0038:; // 512 COMREG(24)=I #line 512 "regression-compile-tmp/imp918s.imp" *comreg(24) = I; // 513 %IF INHCODE=0 %THEN %C #line 513 "regression-compile-tmp/imp918s.imp" if (((INHCODE) != (0))) goto L_0039; #line 513 "regression-compile-tmp/imp918s.imp" lput(7, 24, 0, _imp_ADDR(®ISTER[0])); #line 513 "regression-compile-tmp/imp918s.imp" L_0039:; // 514 LPUT(7,24,0,ADDR(REGISTER(0)));! SUMMARY INFO..REGISTER AS BUF // 515 %STOP #line 515 "regression-compile-tmp/imp918s.imp" exit(0); // 516 %END #line 516 "regression-compile-tmp/imp918s.imp" return; } // End of block LOADDATA at level 2 // 517 %ROUTINE FAULT(%INTEGER N,FNAME) #line 517 "regression-compile-tmp/imp918s.imp" void FAULT( int N, int FNAME ) #line 517 "regression-compile-tmp/imp918s.imp" { // 518 {%SHORTROUTINE} // 519 %INTEGER I,J,QP,FLINE #line 519 "regression-compile-tmp/imp918s.imp" int I; #line 519 "regression-compile-tmp/imp918s.imp" int J; #line 519 "regression-compile-tmp/imp918s.imp" int QP; #line 519 "regression-compile-tmp/imp918s.imp" int FLINE; // 520 %IF N=100 %THEN FLINE=LINE %ELSE FLINE=A(STPTRS(1)-1) #line 520 "regression-compile-tmp/imp918s.imp" if (((N) != (100))) goto L_003a; #line 520 "regression-compile-tmp/imp918s.imp" FLINE = LINE; #line 520 "regression-compile-tmp/imp918s.imp" goto L_003b; #line 520 "regression-compile-tmp/imp918s.imp" L_003a:; #line 520 "regression-compile-tmp/imp918s.imp" FLINE = A[(((unsigned char)((((int)(STPTRS[0])) - (1)))) + (7))]; #line 520 "regression-compile-tmp/imp918s.imp" L_003b:; // 521 QP=Q #line 521 "regression-compile-tmp/imp918s.imp" QP = Q; // 522 printstring(" #line 522 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\n*")); // 523 *"); WRITE(FLINE,4) #line 523 "regression-compile-tmp/imp918s.imp" _imp_WRITE(FLINE, 4); // 524 I=3; I=3*LEVEL %IF LIST=0; SPACES(I) #line 524 "regression-compile-tmp/imp918s.imp" I = 3; #line 524 "regression-compile-tmp/imp918s.imp" if (((LIST) != (0))) goto L_003c; #line 524 "regression-compile-tmp/imp918s.imp" I = (((int)(3)) * (LEVEL)); #line 524 "regression-compile-tmp/imp918s.imp" L_003c:; #line 524 "regression-compile-tmp/imp918s.imp" _imp_SPACES(I); // 525 CHECKSP=1; FAULTY=FAULTY+1 #line 525 "regression-compile-tmp/imp918s.imp" CHECKSP = 1; #line 525 "regression-compile-tmp/imp918s.imp" FAULTY = (((int)(FAULTY)) + (1)); // 526 INHCODE=1 %UNLESS LET=0; ! STOP GENERATING CODE #line 526 "regression-compile-tmp/imp918s.imp" if (((LET) == (0))) goto L_003d; #line 526 "regression-compile-tmp/imp918s.imp" INHCODE = 1; #line 526 "regression-compile-tmp/imp918s.imp" L_003d:; // 527 %IF N#100 %THEN %START; ! ALL EXCEPT SYNTAX #line 527 "regression-compile-tmp/imp918s.imp" if (((N) == (100))) goto L_003e; // 528 printstring("FAULT"); WRITE(N,2) #line 528 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("FAULT")); #line 528 "regression-compile-tmp/imp918s.imp" _imp_WRITE(N, 2); // 529 MESSAGE(N) #line 529 "regression-compile-tmp/imp918s.imp" MESSAGE(N); // 530 %IF N>100 %THEN %START #line 530 "regression-compile-tmp/imp918s.imp" if (((N) <= (100))) goto L_003f; // 531 printstring(" DISASTER ") #line 531 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" DISASTER ")); // 532 ABORT %UNLESS N<=108; %STOP #line 532 "regression-compile-tmp/imp918s.imp" if (((N) <= (108))) goto L_0040; #line 532 "regression-compile-tmp/imp918s.imp" ABORT(); #line 532 "regression-compile-tmp/imp918s.imp" L_0040:; #line 532 "regression-compile-tmp/imp918s.imp" exit(0); // 533 %FINISH #line 533 "regression-compile-tmp/imp918s.imp" L_003f:; // 534 PRINTNAME(FNAME) %UNLESS FNAME=0 #line 534 "regression-compile-tmp/imp918s.imp" if (((FNAME) == (0))) goto L_0041; #line 534 "regression-compile-tmp/imp918s.imp" PRINTNAME(FNAME); #line 534 "regression-compile-tmp/imp918s.imp" L_0041:; // 535 %FINISH %ELSE %START; ! SYMTAX FAULTS #line 535 "regression-compile-tmp/imp918s.imp" goto L_0042; #line 535 "regression-compile-tmp/imp918s.imp" L_003e:; // 536 printstring(" SYNTAX ") #line 536 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" SYNTAX ")); // 537 %IF LINE#OLDLINE %THEN %START #line 537 "regression-compile-tmp/imp918s.imp" if (((LINE) == (OLDLINE))) goto L_0043; // 538 printstring(" #line 538 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\n TEXT MODE FAILURE ")); // 539 TEXT MODE FAILURE ") // 540 WRITE(LINE-OLDLINE,1) #line 540 "regression-compile-tmp/imp918s.imp" _imp_WRITE((((int)(LINE)) - (OLDLINE)), 1); // 541 printstring(" LINES LOST #line 541 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" LINES LOST \n")); // 542 ") // 543 Q=QMAX #line 543 "regression-compile-tmp/imp918s.imp" Q = QMAX; // 544 %FINISH %ELSE %START #line 544 "regression-compile-tmp/imp918s.imp" goto L_0044; #line 544 "regression-compile-tmp/imp918s.imp" L_0043:; // 545 %CYCLE #line 545 "regression-compile-tmp/imp918s.imp" L_0045:; // 546 J=BYTE INTEGER(Q) #line 546 "regression-compile-tmp/imp918s.imp" J = *_imp_BYTEINTEGER(Q); // 547 PRINT SYMBOL(J) #line 547 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL(J); // 548 Q=Q+1 #line 548 "regression-compile-tmp/imp918s.imp" Q = (((int)(Q)) + (1)); // 549 %REPEAT %UNTIL J=';' %OR Q=LENGTH #line 549 "regression-compile-tmp/imp918s.imp" if (((J) == (59))) goto L_0046; #line 549 "regression-compile-tmp/imp918s.imp" if (((Q) == (LENGTH))) goto L_0046; #line 549 "regression-compile-tmp/imp918s.imp" goto L_0045; #line 549 "regression-compile-tmp/imp918s.imp" L_0046:; // 550 %IF I+20+Q-QP<=120 %THEN %START #line 550 "regression-compile-tmp/imp918s.imp" if ((((((int)((((int)((((int)(I)) + (20)))) + (Q)))) - (QP))) > (120))) goto L_0048; // 551 NEWLINE; SPACES(I+QMAX-QP+17) #line 551 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); #line 551 "regression-compile-tmp/imp918s.imp" _imp_SPACES((((int)((((int)((((int)(I)) + (QMAX)))) - (QP)))) + (17))); // 552 printstring("! #line 552 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("!\n")); // 553 ") // 554 %FINISH #line 554 "regression-compile-tmp/imp918s.imp" L_0048:; // 555 %FINISH #line 555 "regression-compile-tmp/imp918s.imp" L_0044:; // 556 %FINISH #line 556 "regression-compile-tmp/imp918s.imp" L_0042:; // 557 %IF TTOPUT#0 %THEN %START #line 557 "regression-compile-tmp/imp918s.imp" if (((TTOPUT) == (0))) goto L_0049; // 558 Q=QP; TTOPUT=0 #line 558 "regression-compile-tmp/imp918s.imp" Q = QP; #line 558 "regression-compile-tmp/imp918s.imp" TTOPUT = 0; // 559 SELECT OUTPUT(87) #line 559 "regression-compile-tmp/imp918s.imp" _imp_SELECTOUTPUT(87); // 560 FAULT(N,FNAME) #line 560 "regression-compile-tmp/imp918s.imp" FAULT(N, FNAME); // 561 FAULTY=FAULTY-1 #line 561 "regression-compile-tmp/imp918s.imp" FAULTY = (((int)(FAULTY)) - (1)); // 562 NEWLINE #line 562 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); // 563 SELECT OUTPUT(82) #line 563 "regression-compile-tmp/imp918s.imp" _imp_SELECTOUTPUT(82); // 564 TTOPUT=1 #line 564 "regression-compile-tmp/imp918s.imp" TTOPUT = 1; // 565 %FINISH #line 565 "regression-compile-tmp/imp918s.imp" L_0049:; // 566 %END #line 566 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 2 // 567 // 568 %ROUTINE WARN(%INTEGER LINE) #line 568 "regression-compile-tmp/imp918s.imp" void WARN( int LINE ) #line 568 "regression-compile-tmp/imp918s.imp" { // 569 !*********************************************************************** // 570 !* STORE A WARNING IF STMNT NOT 2900 IMP COMPATIBLE * // 571 !*********************************************************************** // 572 %INTEGER I,J #line 572 "regression-compile-tmp/imp918s.imp" int I; #line 572 "regression-compile-tmp/imp918s.imp" int J; // 573 I=WARNINGS(0); J=I+1 #line 573 "regression-compile-tmp/imp918s.imp" I = WARNINGS[0]; #line 573 "regression-compile-tmp/imp918s.imp" J = (((int)(I)) + (1)); // 574 %IF J>30 %THEN WARNINGS(0)=J %AND %RETURN #line 574 "regression-compile-tmp/imp918s.imp" if (((J) <= (30))) goto L_004a; #line 574 "regression-compile-tmp/imp918s.imp" WARNINGS[0] = J; #line 574 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; #line 574 "regression-compile-tmp/imp918s.imp" L_004a:; // 575 %IF LINE>WARNINGS(I) %THEN WARNINGS(J)=LINE %AND %C #line 575 "regression-compile-tmp/imp918s.imp" if (((LINE) <= (WARNINGS[I]))) goto L_004b; #line 575 "regression-compile-tmp/imp918s.imp" WARNINGS[J] = LINE; #line 575 "regression-compile-tmp/imp918s.imp" WARNINGS[0] = J; #line 575 "regression-compile-tmp/imp918s.imp" L_004b:; // 576 WARNINGS(0)=J // 577 %END #line 577 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block WARN at level 2 // 578 %ROUTINE ABORT #line 578 "regression-compile-tmp/imp918s.imp" void ABORT( void ) #line 578 "regression-compile-tmp/imp918s.imp" { // 579 printstring(" #line 579 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\n**************** ABORT******************** ABORT *******")); // 580 **************** ABORT******************** ABORT *******") // 581 RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF) %UNLESS CA=CABUF #line 581 "regression-compile-tmp/imp918s.imp" if (((CA) == (CABUF))) goto L_004c; #line 581 "regression-compile-tmp/imp918s.imp" recode(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF); #line 581 "regression-compile-tmp/imp918s.imp" L_004c:; // 582 PRINT USE #line 582 "regression-compile-tmp/imp918s.imp" PRINTUSE(); // 583 %MONITOR ; %STOP; %END #line 583 "regression-compile-tmp/imp918s.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 583 "regression-compile-tmp/imp918s.imp" exit(0); #line 583 "regression-compile-tmp/imp918s.imp" return; } // End of block ABORT at level 2 // 584 %ROUTINE PRINT USE #line 584 "regression-compile-tmp/imp918s.imp" void PRINTUSE( void ) #line 584 "regression-compile-tmp/imp918s.imp" { // 585 %INTEGER I, J, K #line 585 "regression-compile-tmp/imp918s.imp" int I; #line 585 "regression-compile-tmp/imp918s.imp" int J; #line 585 "regression-compile-tmp/imp918s.imp" int K; // 586 %ROUTINESPEC USES(%INTEGER I) #line 586 "regression-compile-tmp/imp918s.imp" auto void USES( int I ); // 587 %OWNSTRING (10) %ARRAY STATUS(-1:2)=" LOCKED ", #line 587 "regression-compile-tmp/imp918s.imp" static _imp_string /*%string(10)*/ STATUS[4] = { _imp_str_literal(" LOCKED "), _imp_str_literal(" FREE "), _imp_str_literal(" CLAIMED "), _imp_str_literal(" RESERVED "), }; // 588 " FREE "," CLAIMED "," RESERVED " // 589 %INTEGER NNAMES #line 589 "regression-compile-tmp/imp918s.imp" int NNAMES; // 590 !%if USE MC = 1 %start // 591 ! *L_1,TAGS+8; *MVC_NNAMES(4),8(1) // 592 !%finish // 593 NEWLINES(2) #line 593 "regression-compile-tmp/imp918s.imp" _imp_NEWLINES(2); // 594 %CYCLE I=0, 1, 15 #line 594 "regression-compile-tmp/imp918s.imp" I = (-1); if ((((15)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 15"); L_004d:; if (I == 15) goto L_004e; I += 1; // 595 ->Label9 %IF 10<=I<=13 #line 595 "regression-compile-tmp/imp918s.imp" if ((((10) > (I))) || (((I) > (13)))) goto L_0050; #line 595 "regression-compile-tmp/imp918s.imp" goto U_1005; #line 595 "regression-compile-tmp/imp918s.imp" L_0050:; // 596 ->Label9 %IF REGISTER(I)=0 %AND GRUSE(I)=0 %AND (I>6 %C #line 596 "regression-compile-tmp/imp918s.imp" if (((REGISTER[I]) != (0))) goto L_0051; #line 596 "regression-compile-tmp/imp918s.imp" if (((GRUSE[I]) != (0))) goto L_0051; #line 596 "regression-compile-tmp/imp918s.imp" if (((I) > (6))) goto L_0031; #line 596 "regression-compile-tmp/imp918s.imp" if (((REGISTER[(((int)(I)) + (16))]) != (0))) goto L_0051; #line 596 "regression-compile-tmp/imp918s.imp" if (((GRUSE[(((int)(I)) + (16))]) != (0))) goto L_0051; #line 596 "regression-compile-tmp/imp918s.imp" L_0031:; #line 596 "regression-compile-tmp/imp918s.imp" goto U_1005; #line 596 "regression-compile-tmp/imp918s.imp" L_0051:; // 597 %OR (REGISTER(I+16)=0 %AND GRUSE(I+16)=0)) // 598 WRITE(I, 2) #line 598 "regression-compile-tmp/imp918s.imp" _imp_WRITE(I, 2); // 599 PRINTSTRING(STATUS(REGISTER(I))) #line 599 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING((STATUS+1)[REGISTER[I]]); // 600 USES(I) #line 600 "regression-compile-tmp/imp918s.imp" USES(I); // 601 ->Label4 %IF I>6 %OR (REGISTER(I+16)=0=GRUSE(I+16)) #line 601 "regression-compile-tmp/imp918s.imp" if (((I) > (6))) goto L_0052; #line 601 "regression-compile-tmp/imp918s.imp" if ((((REGISTER[(((int)(I)) + (16))]) != (0))) || (((0) != (GRUSE[(((int)(I)) + (16))])))) goto L_0053; #line 601 "regression-compile-tmp/imp918s.imp" L_0052:; #line 601 "regression-compile-tmp/imp918s.imp" goto U_1006; #line 601 "regression-compile-tmp/imp918s.imp" L_0053:; // 602 SPACES(13-K) #line 602 "regression-compile-tmp/imp918s.imp" _imp_SPACES((((int)(13)) - (K))); // 603 PRINTSTRING(STATUS(REGISTER(I+16))) #line 603 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING((STATUS+1)[REGISTER[(((int)(I)) + (16))]]); // 604 USES(I+16) #line 604 "regression-compile-tmp/imp918s.imp" USES((((int)(I)) + (16))); // 605 Label4: NEWLINE #line 605 "regression-compile-tmp/imp918s.imp" U_1006:; #line 605 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); // 606 Label9: %REPEAT #line 606 "regression-compile-tmp/imp918s.imp" U_1005:; #line 606 "regression-compile-tmp/imp918s.imp" goto L_004d; #line 606 "regression-compile-tmp/imp918s.imp" L_004e:; // 607 I=CCSTATE>>16 #line 607 "regression-compile-tmp/imp918s.imp" I = (int)((((unsigned int)(CCSTATE)) >> (16))); // 608 %IF 1<=I<=2 %THEN %START #line 608 "regression-compile-tmp/imp918s.imp" if ((((1) > (I))) || (((I) > (2)))) goto L_0054; // 609 %IF I=1 %THEN PRINTSTRING("ARITHMETIC CC ON REG") %C #line 609 "regression-compile-tmp/imp918s.imp" if (((I) != (1))) goto L_0055; #line 609 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("ARITHMETIC CC ON REG")); #line 609 "regression-compile-tmp/imp918s.imp" goto L_0056; #line 609 "regression-compile-tmp/imp918s.imp" L_0055:; #line 609 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("LOGICAL CC ON REG")); #line 609 "regression-compile-tmp/imp918s.imp" L_0056:; // 610 %ELSE PRINTSTRING("LOGICAL CC ON REG") // 611 WRITE(CCSTATE&255, 5) #line 611 "regression-compile-tmp/imp918s.imp" _imp_WRITE(((CCSTATE) & (255)), 5); // 612 NEWLINE #line 612 "regression-compile-tmp/imp918s.imp" _imp_NEWLINE(); // 613 %FINISH #line 613 "regression-compile-tmp/imp918s.imp" L_0054:; // 614 %RETURN #line 614 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; // 615 %ROUTINE PN(%INTEGER N) #line 615 "regression-compile-tmp/imp918s.imp" void PN( int N ) #line 615 "regression-compile-tmp/imp918s.imp" { // 616 %INTEGER J, P, Q, R #line 616 "regression-compile-tmp/imp918s.imp" int J; #line 616 "regression-compile-tmp/imp918s.imp" int P; #line 616 "regression-compile-tmp/imp918s.imp" int Q; #line 616 "regression-compile-tmp/imp918s.imp" int R; // 617 %CYCLE J=0, 1, NNAMES #line 617 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = NNAMES; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, NNAMES"); J -= _increment; _control -= _increment; L_0057:; if (J == _final) goto L_0058; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 618 ->FOUND %IF N=TAGS(J) #line 618 "regression-compile-tmp/imp918s.imp" if (((N) != (TAGS[J]))) goto L_005a; #line 618 "regression-compile-tmp/imp918s.imp" goto U_1007; #line 618 "regression-compile-tmp/imp918s.imp" L_005a:; // 619 %REPEAT; PRINTSTRING(" ??") #line 619 "regression-compile-tmp/imp918s.imp" goto L_0057; #line 619 "regression-compile-tmp/imp918s.imp" L_0058:; #line 619 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" ??")); // 620 K=K+3; ->Label99 #line 620 "regression-compile-tmp/imp918s.imp" K = (((int)(K)) + (3)); #line 620 "regression-compile-tmp/imp918s.imp" goto U_1008; // 621 FOUND: P=WORD(J); R=LETT(P) #line 621 "regression-compile-tmp/imp918s.imp" U_1007:; #line 621 "regression-compile-tmp/imp918s.imp" P = WORD[J]; #line 621 "regression-compile-tmp/imp918s.imp" R = LETT[P]; // 622 %IF R#0 %THEN %START #line 622 "regression-compile-tmp/imp918s.imp" if (((R) == (0))) goto L_005b; // 623 %CYCLE Q=1, 1, R #line 623 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = R; Q = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = 1, 1, R"); Q -= _increment; _control -= _increment; L_005c:; if (Q == _final) goto L_005d; Q += _increment; _control += _increment; if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */ } // 624 PRINT SYMBOL(LETT(P+Q)) #line 624 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL(LETT[(((int)(P)) + (Q))]); // 625 %REPEAT #line 625 "regression-compile-tmp/imp918s.imp" goto L_005c; #line 625 "regression-compile-tmp/imp918s.imp" L_005d:; // 626 %FINISH %ELSE PRINTSTRING("?") #line 626 "regression-compile-tmp/imp918s.imp" goto L_005f; #line 626 "regression-compile-tmp/imp918s.imp" L_005b:; #line 626 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("?")); #line 626 "regression-compile-tmp/imp918s.imp" L_005f:; // 627 K=K+1+R #line 627 "regression-compile-tmp/imp918s.imp" K = (((int)((((int)(K)) + (1)))) + (R)); // 628 Label99: %END #line 628 "regression-compile-tmp/imp918s.imp" U_1008:; #line 628 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PN at level 3 // 629 %ROUTINE USES(%INTEGER I) #line 629 "regression-compile-tmp/imp918s.imp" void USES( int I ) #line 629 "regression-compile-tmp/imp918s.imp" { // 630 %SWITCH SW(0:18) #line 630 "regression-compile-tmp/imp918s.imp" static int sw1_SW_idx; static const void * /*SWITCH*/ sw1_SW[19] = { &&sw1_SW_0, &&sw1_SW_1, &&sw1_SW_2, &&sw1_SW_3, &&sw1_SW_4, &&sw1_SW_5, &&sw1_SW_6, &&sw1_SW_7, &&sw1_SW_8, &&sw1_SW_9, &&sw1_SW_10, &&sw1_SW_11, &&sw1_SW_12, &&sw1_SW_13, &&sw1_SW_14, &&sw1_SW_15, &&sw1_SW_16, &&sw1_SW_17, &&sw1_SW_18, }; // 631 %INTEGER INF, J #line 631 "regression-compile-tmp/imp918s.imp" int INF; #line 631 "regression-compile-tmp/imp918s.imp" int J; // 632 PRINTSTRING(" USE = ") #line 632 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" USE = ")); // 633 K=0; J=GRUSE(I); INF=GRINF(I) #line 633 "regression-compile-tmp/imp918s.imp" K = 0; #line 633 "regression-compile-tmp/imp918s.imp" J = GRUSE[I]; #line 633 "regression-compile-tmp/imp918s.imp" INF = GRINF[I]; // 634 ->SW(J) #line 634 "regression-compile-tmp/imp918s.imp" sw1_SW_idx = J; if ((0 <= sw1_SW_idx) && (sw1_SW_idx <= 18)) goto *sw1_SW[sw1_SW_idx]; else { /*_imp_signal(8, 2, sw1_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:18 at %s:%d\n", sw1_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 635 SW(0): PRINTSTRING(" NOT KNOWN"); ->Label99 #line 635 "regression-compile-tmp/imp918s.imp" sw1_SW_0:; #line 635 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" NOT KNOWN")); #line 635 "regression-compile-tmp/imp918s.imp" goto U_1009; // 636 SW(1): PRINTSTRING(" I/RESULT ") #line 636 "regression-compile-tmp/imp918s.imp" sw1_SW_1:; #line 636 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" I/RESULT ")); // 637 Label1: K=7; WRITE(INF, 6); ->Label99 #line 637 "regression-compile-tmp/imp918s.imp" U_1007:; #line 637 "regression-compile-tmp/imp918s.imp" K = 7; #line 637 "regression-compile-tmp/imp918s.imp" _imp_WRITE(INF, 6); #line 637 "regression-compile-tmp/imp918s.imp" goto U_1009; // 638 SW(2): PRINTSTRING(" CONST = "); ->Label1 #line 638 "regression-compile-tmp/imp918s.imp" sw1_SW_2:; #line 638 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" CONST = ")); #line 638 "regression-compile-tmp/imp918s.imp" goto U_1007; // 639 SW(3): PRINTSTRING(" LOCAL ") #line 639 "regression-compile-tmp/imp918s.imp" sw1_SW_3:; #line 639 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" LOCAL ")); // 640 Label2: PN(INF); ->Label99 #line 640 "regression-compile-tmp/imp918s.imp" U_1008:; #line 640 "regression-compile-tmp/imp918s.imp" PN(INF); #line 640 "regression-compile-tmp/imp918s.imp" goto U_1009; // 641 SW(4): #line 641 "regression-compile-tmp/imp918s.imp" sw1_SW_4:; // 642 SW(5): #line 642 "regression-compile-tmp/imp918s.imp" sw1_SW_5:; // 643 SW(6): PRINTSTRING(" ERROR "); ->Label1 #line 643 "regression-compile-tmp/imp918s.imp" sw1_SW_6:; #line 643 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" ERROR ")); #line 643 "regression-compile-tmp/imp918s.imp" goto U_1007; // 644 SW(7): PRINTSTRING(" ADDR OF "); ->Label2 #line 644 "regression-compile-tmp/imp918s.imp" sw1_SW_7:; #line 644 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" ADDR OF ")); #line 644 "regression-compile-tmp/imp918s.imp" goto U_1008; // 645 SW(8): PRINTSTRING(" BASE OF "); ->Label2 #line 645 "regression-compile-tmp/imp918s.imp" sw1_SW_8:; #line 645 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BASE OF ")); #line 645 "regression-compile-tmp/imp918s.imp" goto U_1008; // 646 SW(9): PN(INF&X'FFFF') #line 646 "regression-compile-tmp/imp918s.imp" sw1_SW_9:; #line 646 "regression-compile-tmp/imp918s.imp" PN(((INF) & (65535))); // 647 PRINTSTRING(" TIMES "); WRITE(INF>>24, 2); ->Label99 #line 647 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" TIMES ")); #line 647 "regression-compile-tmp/imp918s.imp" _imp_WRITE((int)((((unsigned int)(INF)) >> (24))), 2); #line 647 "regression-compile-tmp/imp918s.imp" goto U_1009; // 648 SW(10): PRINTSTRING("DOPE V OF "); ->Label2 #line 648 "regression-compile-tmp/imp918s.imp" sw1_SW_10:; #line 648 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("DOPE V OF ")); #line 648 "regression-compile-tmp/imp918s.imp" goto U_1008; // 649 SW(11): %IF INF>0 %THEN ->Label111 #line 649 "regression-compile-tmp/imp918s.imp" sw1_SW_11:; #line 649 "regression-compile-tmp/imp918s.imp" if (((INF) <= (0))) goto L_0060; #line 649 "regression-compile-tmp/imp918s.imp" goto U_100a; #line 649 "regression-compile-tmp/imp918s.imp" L_0060:; // 650 PRINTSTRING(" 4K FOR LAB ") #line 650 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" 4K FOR LAB ")); // 651 K=8; WRITE(\INF, 6); ->Label99 #line 651 "regression-compile-tmp/imp918s.imp" K = 8; #line 651 "regression-compile-tmp/imp918s.imp" _imp_WRITE((~(INF)), 6); #line 651 "regression-compile-tmp/imp918s.imp" goto U_1009; // 652 Label111: PRINTSTRING(" 4096 * "); K=8; WRITE(INF, 6); ->Label99 #line 652 "regression-compile-tmp/imp918s.imp" U_100a:; #line 652 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" 4096 * ")); #line 652 "regression-compile-tmp/imp918s.imp" K = 8; #line 652 "regression-compile-tmp/imp918s.imp" _imp_WRITE(INF, 6); #line 652 "regression-compile-tmp/imp918s.imp" goto U_1009; // 653 SW(12): PRINTSTRING(" BASE AT "); ->Label1 #line 653 "regression-compile-tmp/imp918s.imp" sw1_SW_12:; #line 653 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" BASE AT ")); #line 653 "regression-compile-tmp/imp918s.imp" goto U_1007; // 654 SW(13): PRINTSTRING(" STR LEN "); ->Label1 #line 654 "regression-compile-tmp/imp918s.imp" sw1_SW_13:; #line 654 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" STR LEN ")); #line 654 "regression-compile-tmp/imp918s.imp" goto U_1007; // 655 SW(14): PRINTSTRING(" CYCLE VAR "); ->Label99 #line 655 "regression-compile-tmp/imp918s.imp" sw1_SW_14:; #line 655 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" CYCLE VAR ")); #line 655 "regression-compile-tmp/imp918s.imp" goto U_1009; // 656 SW(15): PRINTSTRING(" RT PARAM "); ->Label99 #line 656 "regression-compile-tmp/imp918s.imp" sw1_SW_15:; #line 656 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" RT PARAM ")); #line 656 "regression-compile-tmp/imp918s.imp" goto U_1009; // 657 SW(16): PRINTSTRING(" RSLN PARM "); ->Label1 #line 657 "regression-compile-tmp/imp918s.imp" sw1_SW_16:; #line 657 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" RSLN PARM ")); #line 657 "regression-compile-tmp/imp918s.imp" goto U_1007; // 658 SW(17): PRINTSTRING(" ADDR SST "); ->Label1 #line 658 "regression-compile-tmp/imp918s.imp" sw1_SW_17:; #line 658 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" ADDR SST ")); #line 658 "regression-compile-tmp/imp918s.imp" goto U_1007; // 659 SW(18): PRINTSTRING(" PERMBASE "); ->Label99 #line 659 "regression-compile-tmp/imp918s.imp" sw1_SW_18:; #line 659 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" PERMBASE ")); #line 659 "regression-compile-tmp/imp918s.imp" goto U_1009; // 660 Label99: %END #line 660 "regression-compile-tmp/imp918s.imp" U_1009:; #line 660 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block USES at level 3 // 661 %END #line 661 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTUSE at level 2 // 662 // 663 // 664 %ROUTINE MESSAGE(%INTEGER N) #line 664 "regression-compile-tmp/imp918s.imp" void MESSAGE( int N ) #line 664 "regression-compile-tmp/imp918s.imp" { // 665 !*********************************************************************** // 666 !* OUTPUTS AN ERROR MESSAGE STORED IN A COMPRESSED FORMAT * // 667 !*********************************************************************** // 668 %CONSTBYTEINTEGERARRAY WORD(0: 330)=0,%C #line 668 "regression-compile-tmp/imp918s.imp" const unsigned char WORD[331] = { 0, 1, 1, 2, 3, 0, 2, 4, 5, 7, 8, 4, 9, 10, 11, 7, 5, 9, 4, 12, 0, 6, 9, 4, 7, 8, 7, 10, 7, 8, 0, 8, 13, 14, 11, 16, 9, 13, 14, 11, 16, 10, 13, 14, 11, 16, 11, 4, 11, 7, 0, 13, 1, 18, 0, 0, 14, 2, 3, 20, 0, 15, 18, 20, 0, 0, 16, 10, 11, 7, 0, 17, 11, 21, 10, 0, 18, 9, 23, 12, 0, 19, 24, 25, 26, 14, 20, 9, 10, 27, 28, 22, 30, 14, 11, 16, 23, 21, 10, 27, 28, 24, 31, 27, 32, 28, 25, 34, 35, 11, 32, 26, 37, 38, 24, 39, 28, 21, 40, 18, 0, 29, 41, 11, 42, 0, 30, 44, 45, 26, 46, 31, 48, 45, 26, 46, 34, 2, 3, 49, 0, 35, 2, 3, 21, 49, 36, 50, 37, 25, 0, 39, 31, 52, 0, 0, 40, 23, 53, 0, 0, 42, 55, 35, 27, 28, 43, 56, 57, 45, 0, 44, 50, 58, 0, 0, 45, 24, 25, 26, 58, 47, 50, 59, 0, 0, 48, 60, 61, 27, 38, 51, 62, 2, 3, 0, 52, 1, 18, 63, 62, 53, 62, 18, 0, 0, 54, 64, 45, 26, 46, 57, 65, 18, 0, 0, 62, 11, 66, 10, 0, 64, 67, 18, 0, 0, 65, 67, 11, 27, 66, 66, 50, 69, 70, 0, 67, 11, 69, 10, 0, 69, 67, 45, 26, 46, 70, 50, 55, 23, 0, 71, 35, 27, 55, 28, 72, 50, 55, 72, 0, 73, 74, 45, 26, 46, 74, 74, 24, 66, 0, 81, 50, 76, 0, 0, 82, 41, 11, 78, 10, 83, 80, 76, 0, 0, 84, 50, 69, 70, 0, 85, 81, 0, 0, 0, 98, 84, 0, 0, 0, 99, 84, 0, 0, 0, 103, 87, 2, 88, 0, 104, 2, 3, 87, 0, 106, 55, 58, 2, 88, 108, 89, 61, 27, 38, 127, 90, 0, 0, 0, }; // 669 1, 1, 2, 3, 0, 2, 4, 5, // 670 7, 8, 4, 9, 10, 11, 7, 5, // 671 9, 4, 12, 0, 6, 9, 4, 7, // 672 8, 7, 10, 7, 8, 0, 8, 13, // 673 14, 11, 16, 9, 13, 14, 11, 16, // 674 10, 13, 14, 11, 16, 11, 4, 11, // 675 7, 0, 13, 1, 18, 0, 0, 14, // 676 2, 3, 20, 0, 15, 18, 20, 0, // 677 0, 16, 10, 11, 7, 0, 17, 11, // 678 21, 10, 0, 18, 9, 23, 12, 0, // 679 19, 24, 25, 26, 14, 20, 9, 10, // 680 27, 28, 22, 30, 14, 11, 16, 23, // 681 21, 10, 27, 28, 24, 31, 27, 32, // 682 28, 25, 34, 35, 11, 32, 26, 37, // 683 38, 24, 39, 28, 21, 40, 18, 0, // 684 29, 41, 11, 42, 0, 30, 44, 45, // 685 26, 46, 31, 48, 45, 26, 46, 34, // 686 2, 3, 49, 0, 35, 2, 3, 21, // 687 49, 36, 50, 37, 25, 0, 39, 31, // 688 52, 0, 0, 40, 23, 53, 0, 0, // 689 42, 55, 35, 27, 28, 43, 56, 57, // 690 45, 0, 44, 50, 58, 0, 0, 45, // 691 24, 25, 26, 58, 47, 50, 59, 0, // 692 0, 48, 60, 61, 27, 38, 51, 62, // 693 2, 3, 0, 52, 1, 18, 63, 62, // 694 53, 62, 18, 0, 0, 54, 64, 45, // 695 26, 46, 57, 65, 18, 0, 0, 62, // 696 11, 66, 10, 0, 64, 67, 18, 0, // 697 0, 65, 67, 11, 27, 66, 66, 50, // 698 69, 70, 0, 67, 11, 69, 10, 0, // 699 69, 67, 45, 26, 46, 70, 50, 55, // 700 23, 0, 71, 35, 27, 55, 28, 72, // 701 50, 55, 72, 0, 73, 74, 45, 26, // 702 46, 74, 74, 24, 66, 0, 81, 50, // 703 76, 0, 0, 82, 41, 11, 78, 10, // 704 83, 80, 76, 0, 0, 84, 50, 69, // 705 70, 0, 85, 81, 0, 0, 0, 98, // 706 84, 0, 0, 0, 99, 84, 0, 0, // 707 0, 103, 87, 2, 88, 0, 104, 2, // 708 3, 87, 0, 106, 55, 58, 2, 88, // 709 108, 89, 61, 27, 38, 127, 90, 0, // 710 0, 0 // 711 %CONSTINTEGERARRAY LETT(0: 92)=0,%C #line 711 "regression-compile-tmp/imp918s.imp" const int LETT[93] = { 0, 1219504232, 1374617600, 875481088, 807545600, 634784531, 334467072, 1286864896, 1391008064, 1323933904, 942483456, 972292096, 374504576, 435316824, 1077021515, 1353881600, 109026315, 201326592, 892574301, 469762048, 365205504, 1240834653, 335544320, 279143296, 1582264768, 970981376, 1019215872, 633339904, 386962663, 939524096, 74754136, 1218535424, 634661323, 1207959552, 253976896, 1479690309, 815792128, 406152448, 1317893376, 817244928, 165988352, 823328768, 280208297, 939524096, 1219800220, 1051983872, 233742705, 1342177280, 1219734312, 817244966, 629942723, 805306368, 386954496, 892568323, 212074496, 1318210446, 106040896, 634603786, 233741568, 361965568, 1319239680, 218206208, 422464720, 109051904, 386506752, 145181568, 435316840, 1319268443, 335544320, 1218673800, 1040552041, 939524096, 1040552041, 1044381696, 1219722027, 1362063360, 372592003, 816716096, 1105818891, 1207959552, 971898880, 288172967, 636357395, 1394606080, 75796839, 1277315859, 1394606080, 942484672, 837695488, 362807296, 1285945947, 1139608491, 92274688, }; // 712 X'48B02868',X'51EF0000',X'342EC800',X'30222B00', // 713 X'25D60B13',X'13EF9000',X'4CB40000',X'52E91940', // 714 X'4EE9A0D0',X'382D2800',X'39F40000',X'16527C80', // 715 X'19F26858',X'40320B4B',X'50B29800',X'067F9C0B', // 716 X'0C000000',X'35339A5D',X'1C000000',X'15C49800', // 717 X'49F5A25D',X'14000000',X'10A36380',X'5E4F71C0', // 718 X'39E00000',X'3CC00000',X'25C00000',X'171094E7', // 719 X'38000000',X'0474A858',X'48A16000',X'25D429CB', // 720 X'48000000',X'0F236140',X'58324845',X'30A00000', // 721 X'18356500',X'4E8D7500',X'30B62B00',X'09E4C800', // 722 X'31130000',X'10B3A3A9',X'38000000',X'48B4AC9C', // 723 X'3EB40000',X'0DEEA171',X'50000000',X'48B3AB28', // 724 X'30B62B26',X'258C29C3',X'30000000',X'17107500', // 725 X'35338303',X'0CA40000',X'4E924B8E',X'06520E40', // 726 X'25D3490A',X'0DEE9D00',X'15932800',X'4EA20000', // 727 X'0D019000',X'192E4CD0',X'06800000',X'1709A000', // 728 X'08A74B80',X'19F26868',X'4EA2705B',X'14000000', // 729 X'48A37C88',X'3E059069',X'38000000',X'3E059069', // 730 X'3E400000',X'48B37B2B',X'512F7000',X'16354D83', // 731 X'30AE1940',X'41E9750B',X'48000000',X'39EE0000', // 732 X'112D2BA7',X'25EE0B13',X'53200000',X'04849167', // 733 X'4C224B13',X'53200000',X'382D2CC0',X'31EE3800', // 734 X'15A00000',X'4CA5FA5B',X'43ED0BAB',X'05800000' // 735 // 736 %INTEGER I,J,K,M,Q,S #line 736 "regression-compile-tmp/imp918s.imp" int I; #line 736 "regression-compile-tmp/imp918s.imp" int J; #line 736 "regression-compile-tmp/imp918s.imp" int K; #line 736 "regression-compile-tmp/imp918s.imp" int M; #line 736 "regression-compile-tmp/imp918s.imp" int Q; #line 736 "regression-compile-tmp/imp918s.imp" int S; // 737 printstring(" (") #line 737 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" (")); // 738 I=-4 #line 738 "regression-compile-tmp/imp918s.imp" I = (-4); // 739 I=I+5 %UNTIL N=WORD(I) %OR I= 326 #line 739 "regression-compile-tmp/imp918s.imp" L_0061:; #line 739 "regression-compile-tmp/imp918s.imp" I = (((int)(I)) + (5)); #line 739 "regression-compile-tmp/imp918s.imp" if (((N) == (WORD[I]))) goto L_0062; #line 739 "regression-compile-tmp/imp918s.imp" if (((I) == (326))) goto L_0062; #line 739 "regression-compile-tmp/imp918s.imp" goto L_0061; #line 739 "regression-compile-tmp/imp918s.imp" L_0062:; // 740 %CYCLE J=1,1,4 #line 740 "regression-compile-tmp/imp918s.imp" J = 0; if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4"); L_0064:; if (J == 4) goto L_0065; J += 1; // 741 K=WORD(I+J) #line 741 "regression-compile-tmp/imp918s.imp" K = WORD[(((int)(I)) + (J))]; // 742 %IF K=0 %THEN %EXIT #line 742 "regression-compile-tmp/imp918s.imp" if (((K) != (0))) goto L_0067; #line 742 "regression-compile-tmp/imp918s.imp" goto L_0065; #line 742 "regression-compile-tmp/imp918s.imp" L_0067:; // 743 SPACE %UNLESS J=1 #line 743 "regression-compile-tmp/imp918s.imp" if (((J) == (1))) goto L_0068; #line 743 "regression-compile-tmp/imp918s.imp" _imp_SPACE(); #line 743 "regression-compile-tmp/imp918s.imp" L_0068:; // 744 %CYCLE #line 744 "regression-compile-tmp/imp918s.imp" L_0069:; // 745 M=LETT(K); S=26 #line 745 "regression-compile-tmp/imp918s.imp" M = LETT[K]; #line 745 "regression-compile-tmp/imp918s.imp" S = 26; // 746 %CYCLE #line 746 "regression-compile-tmp/imp918s.imp" L_006c:; // 747 Q=M>>S&31; #line 747 "regression-compile-tmp/imp918s.imp" Q = (((int)((((unsigned int)(M)) >> (S)))) & (31)); // 748 %IF Q=31 %THEN Q=-32 #line 748 "regression-compile-tmp/imp918s.imp" if (((Q) != (31))) goto L_006f; #line 748 "regression-compile-tmp/imp918s.imp" Q = (-32); #line 748 "regression-compile-tmp/imp918s.imp" L_006f:; // 749 %IF Q\=0 %THEN PRINT SYMBOL(Q+64) #line 749 "regression-compile-tmp/imp918s.imp" if (((Q) == (0))) goto L_0070; #line 749 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL((((int)(Q)) + (64))); #line 749 "regression-compile-tmp/imp918s.imp" L_0070:; // 750 S=S-5 #line 750 "regression-compile-tmp/imp918s.imp" S = (((int)(S)) - (5)); // 751 %REPEAT %UNTIL S<0 #line 751 "regression-compile-tmp/imp918s.imp" if (((S) < (0))) goto L_006d; #line 751 "regression-compile-tmp/imp918s.imp" goto L_006c; #line 751 "regression-compile-tmp/imp918s.imp" L_006d:; // 752 K=K+1 #line 752 "regression-compile-tmp/imp918s.imp" K = (((int)(K)) + (1)); // 753 %REPEAT %UNTIL M&1=0 #line 753 "regression-compile-tmp/imp918s.imp" if (((((M) & (1))) == (0))) goto L_006a; #line 753 "regression-compile-tmp/imp918s.imp" goto L_0069; #line 753 "regression-compile-tmp/imp918s.imp" L_006a:; // 754 %REPEAT #line 754 "regression-compile-tmp/imp918s.imp" goto L_0064; #line 754 "regression-compile-tmp/imp918s.imp" L_0065:; // 755 printstring(") ") #line 755 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(") ")); // 756 %END #line 756 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MESSAGE at level 2 // 757 INEND: FAULT(108,0) #line 757 "regression-compile-tmp/imp918s.imp" U_1003:; #line 757 "regression-compile-tmp/imp918s.imp" FAULT(108, 0); // 758 OFL: FAULT(38,0); ->Label8 #line 758 "regression-compile-tmp/imp918s.imp" U_1002:; #line 758 "regression-compile-tmp/imp918s.imp" FAULT(38, 0); #line 758 "regression-compile-tmp/imp918s.imp" goto U_1004; // 759 SUBSCHAR:LINE=LINE+1;FAULT(48,0) #line 759 "regression-compile-tmp/imp918s.imp" U_100b:; #line 759 "regression-compile-tmp/imp918s.imp" LINE = (((int)(LINE)) + (1)); #line 759 "regression-compile-tmp/imp918s.imp" FAULT(48, 0); // 760 SPACES(5) #line 760 "regression-compile-tmp/imp918s.imp" _imp_SPACES(5); // 761 Label15: READSYMBOL(I); ->Label8 %IF I=10 #line 761 "regression-compile-tmp/imp918s.imp" U_100c:; #line 761 "regression-compile-tmp/imp918s.imp" _imp_READSYMBOL(&I); #line 761 "regression-compile-tmp/imp918s.imp" if (((I) != (10))) goto L_0071; #line 761 "regression-compile-tmp/imp918s.imp" goto U_1004; #line 761 "regression-compile-tmp/imp918s.imp" L_0071:; // 762 PRINTSYMBOL(I); ->Label15 #line 762 "regression-compile-tmp/imp918s.imp" _imp_PRINTSYMBOL(I); #line 762 "regression-compile-tmp/imp918s.imp" goto U_100c; // 763 %ROUTINE PRINTNAME (%INTEGER N) #line 763 "regression-compile-tmp/imp918s.imp" void PRINTNAME( int N ) #line 763 "regression-compile-tmp/imp918s.imp" { // 764 %IF N<0 %THEN %START #line 764 "regression-compile-tmp/imp918s.imp" if (((N) >= (0))) goto L_0072; // 765 N=-N #line 765 "regression-compile-tmp/imp918s.imp" N = (-(N)); // 766 %IF 16384<=N<=MAX ULAB %THEN N=N-16384 %ELSE %START #line 766 "regression-compile-tmp/imp918s.imp" if ((((16384) > (N))) || (((N) > (MAXULAB)))) goto L_0073; #line 766 "regression-compile-tmp/imp918s.imp" N = (((int)(N)) - (16384)); #line 766 "regression-compile-tmp/imp918s.imp" goto L_0074; #line 766 "regression-compile-tmp/imp918s.imp" L_0073:; // 767 WRITE(N,5); ->Label99 #line 767 "regression-compile-tmp/imp918s.imp" _imp_WRITE(N, 5); #line 767 "regression-compile-tmp/imp918s.imp" goto U_100d; // 768 %FINISH #line 768 "regression-compile-tmp/imp918s.imp" L_0074:; // 769 %FINISH #line 769 "regression-compile-tmp/imp918s.imp" L_0072:; // 770 printstring(" ") #line 770 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal(" ")); // 771 !%if USE MC = 1 %start // 772 ! **1,WORD(N) // 773 ! *A_1,LETT; *->P5; ! USE PRINTSTRING IN PERM // 774 !%finish // 775 Label99: %END #line 775 "regression-compile-tmp/imp918s.imp" U_100d:; #line 775 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTNAME at level 2 // 776 ! // 777 !*********************************************************************** // 778 !* IMP CODE PLANTING ROUTINES * // 779 !* CODE AND GLAP ARE PUT INTO THE BUFFERS 'CODE,GLABUF(0:268)' * // 780 !* BY A NUMBER OF TRIVIAL ROUTINES.LPUT IS CALLED TO ADD THE * // 781 !* BUFFER TO THE OUTPUT FILE. THE BUFFERS ARE BASICALLY 0:255 * // 782 !* WITH A 12-BYTE MARGIN TO MINIMISE THE NUMBER OF TESTS FOR * // 783 !* THE BUFFER FULL CONDITION * // 784 !* * // 785 !* PPCURR(GLACURR) IS THE BUFFER POINTER * // 786 !* CA(GLACA) IS THE RELATIVE ADDRESS OF THE NEXT BYTE * // 787 !* CABUF(GLACABUF) IS CA(GLACA) FOR START OF BUFFER * // 788 !*********************************************************************** // 789 %ROUTINE CODEOUT #line 789 "regression-compile-tmp/imp918s.imp" void CODEOUT( void ) #line 789 "regression-compile-tmp/imp918s.imp" { // 790 %IF PPCURR>0 %THEN %START #line 790 "regression-compile-tmp/imp918s.imp" if (((PPCURR) <= (0))) goto L_0075; // 791 %IF DCOMP#0 %THEN %C #line 791 "regression-compile-tmp/imp918s.imp" if (((DCOMP) == (0))) goto L_0076; #line 791 "regression-compile-tmp/imp918s.imp" recode(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF); #line 791 "regression-compile-tmp/imp918s.imp" L_0076:; // 792 RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF) // 793 LPUT(1,PPCURR,CABUF,ADDR(CODE(0))) %IF INHCODE=0 #line 793 "regression-compile-tmp/imp918s.imp" if (((INHCODE) != (0))) goto L_0077; #line 793 "regression-compile-tmp/imp918s.imp" lput(1, PPCURR, CABUF, _imp_ADDR(&CODE[0])); #line 793 "regression-compile-tmp/imp918s.imp" L_0077:; // 794 PPCURR=0; CABUF=CA #line 794 "regression-compile-tmp/imp918s.imp" PPCURR = 0; #line 794 "regression-compile-tmp/imp918s.imp" CABUF = CA; // 795 %FINISH #line 795 "regression-compile-tmp/imp918s.imp" L_0075:; // 796 %END #line 796 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CODEOUT at level 2 // 797 %ROUTINE PLANT(%INTEGER HALFWORD) #line 797 "regression-compile-tmp/imp918s.imp" void PLANT( int HALFWORD ) #line 797 "regression-compile-tmp/imp918s.imp" { // 798 ! ADD A HALF WORD OF BINARY TO THE BUFFER // 799 SHORT INTEGER(ADDR(CODE(PPCURR)))<-HALFWORD #line 799 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER(_imp_ADDR(&CODE[PPCURR])) = HALFWORD; // 800 PPCURR=PPCURR+2 #line 800 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (2)); // 801 CA=CA+2 #line 801 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (2)); // 802 CODEOUT %IF PPCURR>=256 #line 802 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_0078; #line 802 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 802 "regression-compile-tmp/imp918s.imp" L_0078:; // 803 %END #line 803 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLANT at level 2 // 804 %ROUTINE PCONST(%INTEGER WORD) #line 804 "regression-compile-tmp/imp918s.imp" void PCONST( int WORD ) #line 804 "regression-compile-tmp/imp918s.imp" { // 805 ! ADD A WORD OF BINARY TO THE BUFFER // 806 !%if USE MC = 1 %start // 807 ! **1,ADDR(CODE(PPCURR)) // 808 ! *MVC_0(4,1),WORD // 809 !%finish // 810 PPCURR=PPCURR+4 #line 810 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (4)); // 811 CA=CA+4 #line 811 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (4)); // 812 CODEOUT %IF PPCURR>=256 #line 812 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_0079; #line 812 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 812 "regression-compile-tmp/imp918s.imp" L_0079:; // 813 %END #line 813 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PCONST at level 2 // 814 %ROUTINE PRR(%INTEGER OPCODE,R1,R2) #line 814 "regression-compile-tmp/imp918s.imp" void PRR( int OPCODE, int R1, int R2 ) #line 814 "regression-compile-tmp/imp918s.imp" { // 815 CODE(PPCURR)=OPCODE #line 815 "regression-compile-tmp/imp918s.imp" CODE[PPCURR] = OPCODE; // 816 CODE(PPCURR+1)=R1<<4!R2 #line 816 "regression-compile-tmp/imp918s.imp" CODE[(((int)(PPCURR)) + (1))] = ((((R1) << (4))) | (R2)); // 817 PPCURR=PPCURR+2 #line 817 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (2)); // 818 CA=CA+2 #line 818 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (2)); // 819 CODEOUT %IF PPCURR>=256 #line 819 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_007a; #line 819 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 819 "regression-compile-tmp/imp918s.imp" L_007a:; // 820 %END #line 820 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRR at level 2 // 821 %ROUTINE MOVE BACK PC #line 821 "regression-compile-tmp/imp918s.imp" void MOVEBACKPC( void ) #line 821 "regression-compile-tmp/imp918s.imp" { // 822 %IF LCA= (CABUF))) goto L_007b; #line 822 "regression-compile-tmp/imp918s.imp" CABUF = LCA; #line 822 "regression-compile-tmp/imp918s.imp" PPCURR = 0; #line 822 "regression-compile-tmp/imp918s.imp" goto L_007c; #line 822 "regression-compile-tmp/imp918s.imp" L_007b:; #line 822 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)((((int)(PPCURR)) - (CA)))) + (LCA)); #line 822 "regression-compile-tmp/imp918s.imp" L_007c:; // 823 PPCURR=PPCURR-CA+LCA // 824 CA=LCA #line 824 "regression-compile-tmp/imp918s.imp" CA = LCA; // 825 %END #line 825 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MOVEBACKPC at level 2 // 826 %ROUTINE PRX(%INTEGER OPCODE,R1,R2,B,D) #line 826 "regression-compile-tmp/imp918s.imp" void PRX( int OPCODE, int R1, int R2, int B, int D ) #line 826 "regression-compile-tmp/imp918s.imp" { // 827 {%SHORTROUTINE} // 828 %OWNINTEGER LR1,LR2,LB,LD #line 828 "regression-compile-tmp/imp918s.imp" static int LR1; #line 828 "regression-compile-tmp/imp918s.imp" static int LR2; #line 828 "regression-compile-tmp/imp918s.imp" static int LB; #line 828 "regression-compile-tmp/imp918s.imp" static int LD; // 829 %IF CHECKSP=0 %THEN %START #line 829 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (0))) goto L_007d; // 830 %IF OPCODE=X'58' %OR OPCODE=X'50' %THEN %START #line 830 "regression-compile-tmp/imp918s.imp" if (((OPCODE) == (88))) goto L_006b; #line 830 "regression-compile-tmp/imp918s.imp" if (((OPCODE) != (80))) goto L_007e; #line 830 "regression-compile-tmp/imp918s.imp" L_006b:; // 831 %IF LCA+4=CA %AND LB=B %AND R2=0 %AND %C #line 831 "regression-compile-tmp/imp918s.imp" if ((((((int)(LCA)) + (4))) != (CA))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" if (((LB) != (B))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" if (((R2) != (0))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" if (((LOPCODE) != (OPCODE))) goto L_0080; #line 831 "regression-compile-tmp/imp918s.imp" if ((((((((int)(LR1)) + (1))) & (15))) != (R1))) goto L_0080; #line 831 "regression-compile-tmp/imp918s.imp" if (((LR2) != (0))) goto L_0080; #line 831 "regression-compile-tmp/imp918s.imp" if (((D) == ((((int)(LD)) + (4))))) goto L_006e; #line 831 "regression-compile-tmp/imp918s.imp" L_0080:; #line 831 "regression-compile-tmp/imp918s.imp" if (((LOPCODE) != ((((int)(OPCODE)) + (64))))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" if ((((((((int)(LR2)) + (1))) & (15))) != (R1))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" if (((D) != (((LD) + ((int)((((int)((((((int)(R1)) - (LR1))) & (15)))) * (4)))))))) goto L_007f; #line 831 "regression-compile-tmp/imp918s.imp" L_006e:; // 832 ((LOPCODE=OPCODE %AND (LR1+1)&15=R1 %AND LR2=0 %AND %C // 833 D=LD+4) %OR (LOPCODE=OPCODE+X'40' %AND %C // 834 (LR2+1)&15=R1 %AND D=LD+((R1-LR1)&15)*4)) %START // 835 %IF DCOMP#0 %THEN printstring("** LOADS COMBINED **") #line 835 "regression-compile-tmp/imp918s.imp" if (((DCOMP) == (0))) goto L_0081; #line 835 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("** LOADS COMBINED **")); #line 835 "regression-compile-tmp/imp918s.imp" L_0081:; // 836 MOVE BACK PC #line 836 "regression-compile-tmp/imp918s.imp" MOVEBACKPC(); // 837 CSAVED=CSAVED+4 #line 837 "regression-compile-tmp/imp918s.imp" CSAVED = (((int)(CSAVED)) + (4)); // 838 PRX(X'90'+OPCODE&15,LR1,R1,LB,LD) #line 838 "regression-compile-tmp/imp918s.imp" PRX(((144) + ((int)(((OPCODE) & (15))))), LR1, R1, LB, LD); // 839 %RETURN #line 839 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; // 840 %FINISH #line 840 "regression-compile-tmp/imp918s.imp" L_007f:; // 841 %FINISH #line 841 "regression-compile-tmp/imp918s.imp" L_007e:; // 842 LCA=CA; LR1=R1; LR2=R2 #line 842 "regression-compile-tmp/imp918s.imp" LCA = CA; #line 842 "regression-compile-tmp/imp918s.imp" LR1 = R1; #line 842 "regression-compile-tmp/imp918s.imp" LR2 = R2; // 843 LB=B; LD=D; LOPCODE=OPCODE #line 843 "regression-compile-tmp/imp918s.imp" LB = B; #line 843 "regression-compile-tmp/imp918s.imp" LD = D; #line 843 "regression-compile-tmp/imp918s.imp" LOPCODE = OPCODE; // 844 %FINISH #line 844 "regression-compile-tmp/imp918s.imp" L_007d:; // 845 CODE(PPCURR)=OPCODE #line 845 "regression-compile-tmp/imp918s.imp" CODE[PPCURR] = OPCODE; // 846 CODE(PPCURR+1)=R1<<4!R2 #line 846 "regression-compile-tmp/imp918s.imp" CODE[(((int)(PPCURR)) + (1))] = ((((R1) << (4))) | (R2)); // 847 SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B<<12!D #line 847 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER(_imp_ADDR(&CODE[(((int)(PPCURR)) + (2))])) = ((((B) << (12))) | (D)); // 848 PPCURR=PPCURR+4 #line 848 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (4)); // 849 CA=CA+4 #line 849 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (4)); // 850 CODEOUT %IF PPCURR>=256 #line 850 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_0082; #line 850 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 850 "regression-compile-tmp/imp918s.imp" L_0082:; // 851 %END #line 851 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRX at level 2 // 852 %ROUTINE PSI(%INTEGER OPCODE,J,B,D) #line 852 "regression-compile-tmp/imp918s.imp" void PSI( int OPCODE, int J, int B, int D ) #line 852 "regression-compile-tmp/imp918s.imp" { // 853 CODE(PPCURR)=OPCODE #line 853 "regression-compile-tmp/imp918s.imp" CODE[PPCURR] = OPCODE; // 854 CODE(PPCURR+1)=J #line 854 "regression-compile-tmp/imp918s.imp" CODE[(((int)(PPCURR)) + (1))] = J; // 855 SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B<<12!D #line 855 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER(_imp_ADDR(&CODE[(((int)(PPCURR)) + (2))])) = ((((B) << (12))) | (D)); // 856 PPCURR=PPCURR+4 #line 856 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (4)); // 857 CA=CA+4 #line 857 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (4)); // 858 CODEOUT %IF PPCURR>=256 #line 858 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_0083; #line 858 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 858 "regression-compile-tmp/imp918s.imp" L_0083:; // 859 %END #line 859 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSI at level 2 // 860 %ROUTINE PSS(%INTEGER OPCODE,N,B1,D1,B2,D2) #line 860 "regression-compile-tmp/imp918s.imp" void PSS( int OPCODE, int N, int B1, int D1, int B2, int D2 ) #line 860 "regression-compile-tmp/imp918s.imp" { // 861 CODE(PPCURR)=OPCODE #line 861 "regression-compile-tmp/imp918s.imp" CODE[PPCURR] = OPCODE; // 862 N=N-1 %UNLESS N=0 #line 862 "regression-compile-tmp/imp918s.imp" if (((N) == (0))) goto L_0084; #line 862 "regression-compile-tmp/imp918s.imp" N = (((int)(N)) - (1)); #line 862 "regression-compile-tmp/imp918s.imp" L_0084:; // 863 CODE(PPCURR+1)=N #line 863 "regression-compile-tmp/imp918s.imp" CODE[(((int)(PPCURR)) + (1))] = N; // 864 SHORT INTEGER(ADDR(CODE(PPCURR+2)))<- B1<<12!D1 #line 864 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER(_imp_ADDR(&CODE[(((int)(PPCURR)) + (2))])) = ((((B1) << (12))) | (D1)); // 865 SHORT INTEGER(ADDR(CODE(PPCURR+4)))<- B2<<12!D2 #line 865 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER(_imp_ADDR(&CODE[(((int)(PPCURR)) + (4))])) = ((((B2) << (12))) | (D2)); // 866 PPCURR=PPCURR+6 #line 866 "regression-compile-tmp/imp918s.imp" PPCURR = (((int)(PPCURR)) + (6)); // 867 CA=CA+6 #line 867 "regression-compile-tmp/imp918s.imp" CA = (((int)(CA)) + (6)); // 868 CODEOUT %IF PPCURR>=256 #line 868 "regression-compile-tmp/imp918s.imp" if (((PPCURR) < (256))) goto L_0085; #line 868 "regression-compile-tmp/imp918s.imp" CODEOUT(); #line 868 "regression-compile-tmp/imp918s.imp" L_0085:; // 869 %END #line 869 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSS at level 2 // 870 %ROUTINE PMVC(%INTEGER L,B1,D1,B2,D2) #line 870 "regression-compile-tmp/imp918s.imp" void PMVC( int L, int B1, int D1, int B2, int D2 ) #line 870 "regression-compile-tmp/imp918s.imp" { // 871 {%SHORTROUTINE} // 872 !*********************************************************************** // 873 !* PLANTS AN MVC INSTRN. IN OPTIMISING MODE TRIES TO GLUE IT * // 874 !* ON TO THE LAST ONE PLANTED * // 875 !*********************************************************************** // 876 %OWNINTEGER LL,LB1,LD1,LB2,LD2 #line 876 "regression-compile-tmp/imp918s.imp" static int LL; #line 876 "regression-compile-tmp/imp918s.imp" static int LB1; #line 876 "regression-compile-tmp/imp918s.imp" static int LD1; #line 876 "regression-compile-tmp/imp918s.imp" static int LB2; #line 876 "regression-compile-tmp/imp918s.imp" static int LD2; // 877 %IF CHECKSP#1 %THEN %START #line 877 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) == (1))) goto L_0086; // 878 %IF LCA+6=CA %AND B1=LB1 %AND B2=LB2 %AND LOPCODE=X'D2' %C #line 878 "regression-compile-tmp/imp918s.imp" if ((((((int)(LCA)) + (6))) != (CA))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if (((B1) != (LB1))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if (((B2) != (LB2))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if (((LOPCODE) != (210))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if (((D1) != ((((int)(LD1)) + (LL))))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if (((D2) != ((((int)(LD2)) + (LL))))) goto L_0087; #line 878 "regression-compile-tmp/imp918s.imp" if ((((((int)(LL)) + (L))) > (256))) goto L_0087; // 879 %AND D1=LD1+LL %AND D2=LD2+LL %AND LL+L<=256 %START // 880 MOVE BACK PC #line 880 "regression-compile-tmp/imp918s.imp" MOVEBACKPC(); // 881 CA=LCA; L=L+LL #line 881 "regression-compile-tmp/imp918s.imp" CA = LCA; #line 881 "regression-compile-tmp/imp918s.imp" L = (((int)(L)) + (LL)); // 882 D1=LD1; D2=LD2 #line 882 "regression-compile-tmp/imp918s.imp" D1 = LD1; #line 882 "regression-compile-tmp/imp918s.imp" D2 = LD2; // 883 %FINISH #line 883 "regression-compile-tmp/imp918s.imp" L_0087:; // 884 LCA=CA; LL=L; LB1=B1; LD1=D1 #line 884 "regression-compile-tmp/imp918s.imp" LCA = CA; #line 884 "regression-compile-tmp/imp918s.imp" LL = L; #line 884 "regression-compile-tmp/imp918s.imp" LB1 = B1; #line 884 "regression-compile-tmp/imp918s.imp" LD1 = D1; // 885 LB2=B2; LD2=D2; LOPCODE=X'D2' #line 885 "regression-compile-tmp/imp918s.imp" LB2 = B2; #line 885 "regression-compile-tmp/imp918s.imp" LD2 = D2; #line 885 "regression-compile-tmp/imp918s.imp" LOPCODE = 210; // 886 %FINISH #line 886 "regression-compile-tmp/imp918s.imp" L_0086:; // 887 PSS(X'D2',L,B1,D1,B2,D2) #line 887 "regression-compile-tmp/imp918s.imp" PSS(210, L, B1, D1, B2, D2); // 888 %END #line 888 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PMVC at level 2 // 889 %ROUTINE CNOP(%INTEGER I,J) #line 889 "regression-compile-tmp/imp918s.imp" void CNOP( int I, int J ) #line 889 "regression-compile-tmp/imp918s.imp" { // 890 PLANT(X'0700') %WHILE CA&(J-1)#I #line 890 "regression-compile-tmp/imp918s.imp" L_0088:; #line 890 "regression-compile-tmp/imp918s.imp" if (((((CA) & ((((int)(J)) - (1))))) == (I))) goto L_0089; #line 890 "regression-compile-tmp/imp918s.imp" PLANT(1792); #line 890 "regression-compile-tmp/imp918s.imp" goto L_0088; #line 890 "regression-compile-tmp/imp918s.imp" L_0089:; // 891 %END #line 891 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CNOP at level 2 // 892 %ROUTINE PGLA(%INTEGER BDRY,L,INF ADR) #line 892 "regression-compile-tmp/imp918s.imp" void PGLA( int BDRY, int L, int INFADR ) #line 892 "regression-compile-tmp/imp918s.imp" { // 893 {%SHORTROUTINE} // 894 %INTEGER I,J #line 894 "regression-compile-tmp/imp918s.imp" int I; #line 894 "regression-compile-tmp/imp918s.imp" int J; // 895 J=GLACA; GLACA=(J+BDRY-1)&(-BDRY) #line 895 "regression-compile-tmp/imp918s.imp" J = GLACA; #line 895 "regression-compile-tmp/imp918s.imp" GLACA = (((((int)((((int)(J)) + (BDRY)))) - (1))) & ((-(BDRY)))); // 896 GLACURR=GLACURR+GLACA-J; ! COMPLETE THE ROUNDING #line 896 "regression-compile-tmp/imp918s.imp" GLACURR = (((int)((((int)(GLACURR)) + (GLACA)))) - (J)); // 897 ! // 898 ! RECORD HOLES IN THE GLA FOR FUTURE USE // 899 ! // 900 %IF J&1#0 %THEN J=J+1 #line 900 "regression-compile-tmp/imp918s.imp" if (((((J) & (1))) == (0))) goto L_008b; #line 900 "regression-compile-tmp/imp918s.imp" J = (((int)(J)) + (1)); #line 900 "regression-compile-tmp/imp918s.imp" L_008b:; // 901 %WHILE J+2<=GLACA %CYCLE #line 901 "regression-compile-tmp/imp918s.imp" L_008c:; #line 901 "regression-compile-tmp/imp918s.imp" if ((((((int)(J)) + (2))) > (GLACA))) goto L_008d; // 902 PUSH(GLAHOLES,J,0) #line 902 "regression-compile-tmp/imp918s.imp" PUSH(&GLAHOLES, J, 0); // 903 J=J+2 #line 903 "regression-compile-tmp/imp918s.imp" J = (((int)(J)) + (2)); // 904 %REPEAT #line 904 "regression-compile-tmp/imp918s.imp" goto L_008c; #line 904 "regression-compile-tmp/imp918s.imp" L_008d:; // 905 %IF L+GLACURR>256 %THEN %START #line 905 "regression-compile-tmp/imp918s.imp" if ((((((int)(L)) + (GLACURR))) <= (256))) goto L_008f; // 906 %IF INHCODE=0 %THEN LPUT(2,GLACURR,GLACABUF,ADDR(GLABUF(0))) #line 906 "regression-compile-tmp/imp918s.imp" if (((INHCODE) != (0))) goto L_0090; #line 906 "regression-compile-tmp/imp918s.imp" lput(2, GLACURR, GLACABUF, _imp_ADDR(&GLABUF[0])); #line 906 "regression-compile-tmp/imp918s.imp" L_0090:; // 907 GLACA=(GLACA+1)&(-2) #line 907 "regression-compile-tmp/imp918s.imp" GLACA = (((((int)(GLACA)) + (1))) & ((-2))); // 908 GLACURR=0; GLACABUF=GLACA #line 908 "regression-compile-tmp/imp918s.imp" GLACURR = 0; #line 908 "regression-compile-tmp/imp918s.imp" GLACABUF = GLACA; // 909 %FINISH #line 909 "regression-compile-tmp/imp918s.imp" L_008f:; // 910 !%if USE MC = 1 %start // 911 ! *LM_1,2,L; *L_3,GLABUF // 912 ! *A_3,GLACURR; *BCTR_1,0 // 913 ! *EX_1, // 914 !%finish // 915 GLACA=GLACA+L; GLACURR=GLACURR+L #line 915 "regression-compile-tmp/imp918s.imp" GLACA = (((int)(GLACA)) + (L)); #line 915 "regression-compile-tmp/imp918s.imp" GLACURR = (((int)(GLACURR)) + (L)); // 916 %RETURN #line 916 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; // 917 !%if USE MC = 1 %start // 918 !MOVE: *MVC_0(1,3),0(2) // 919 !%finish // 920 %END #line 920 "regression-compile-tmp/imp918s.imp" return; } // End of block PGLA at level 2 // 921 %ROUTINE PLUG(%INTEGER AREA,AT,VALUE) #line 921 "regression-compile-tmp/imp918s.imp" void PLUG( int AREA, int AT, int VALUE ) #line 921 "regression-compile-tmp/imp918s.imp" { // 922 {%SHORTROUTINE} // 923 !*********************************************************************** // 924 !* WRITE ONE HALFWORD INTO OBJECT FILE OUT OF SEQUENCE * // 925 !*********************************************************************** // 926 %INTEGERNAME WCABUF #line 926 "regression-compile-tmp/imp918s.imp" int /*name*/*WCABUF; // 927 %INTEGER RELAD,BUFAD #line 927 "regression-compile-tmp/imp918s.imp" int RELAD; #line 927 "regression-compile-tmp/imp918s.imp" int BUFAD; // 928 WCABUF==CABUF; BUFAD=ADDR(CODE(0)) #line 928 "regression-compile-tmp/imp918s.imp" WCABUF = &CABUF; #line 928 "regression-compile-tmp/imp918s.imp" BUFAD = _imp_ADDR(&CODE[0]); // 929 %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0)) #line 929 "regression-compile-tmp/imp918s.imp" if (((AREA) != (2))) goto L_0091; #line 929 "regression-compile-tmp/imp918s.imp" WCABUF = &GLACABUF; #line 929 "regression-compile-tmp/imp918s.imp" BUFAD = _imp_ADDR(&GLABUF[0]); #line 929 "regression-compile-tmp/imp918s.imp" L_0091:; // 930 RELAD=AT-WCABUF #line 930 "regression-compile-tmp/imp918s.imp" RELAD = (((int)(AT)) - (*WCABUF)); // 931 %IF RELAD>=0 %THEN SHORTINTEGER(RELAD+BUFAD)<-VALUE %ELSESTART #line 931 "regression-compile-tmp/imp918s.imp" if (((RELAD) < (0))) goto L_0092; #line 931 "regression-compile-tmp/imp918s.imp" *_imp_SHORTINTEGER((((int)(RELAD)) + (BUFAD))) = VALUE; #line 931 "regression-compile-tmp/imp918s.imp" goto L_0093; #line 931 "regression-compile-tmp/imp918s.imp" L_0092:; // 932 %IF INHCODE=0 %THEN LPUT(AREA,2,AT,ADDR(VALUE)+2) #line 932 "regression-compile-tmp/imp918s.imp" if (((INHCODE) != (0))) goto L_0094; #line 932 "regression-compile-tmp/imp918s.imp" lput(AREA, 2, AT, (((int)(_imp_ADDR(&VALUE))) + (2))); #line 932 "regression-compile-tmp/imp918s.imp" L_0094:; // 933 %FINISH #line 933 "regression-compile-tmp/imp918s.imp" L_0093:; // 934 %END #line 934 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLUG at level 2 // 935 %ROUTINE SET PERMBASE #line 935 "regression-compile-tmp/imp918s.imp" void SETPERMBASE( void ) #line 935 "regression-compile-tmp/imp918s.imp" { // 936 PCONST(X'58CD005C') #line 936 "regression-compile-tmp/imp918s.imp" PCONST(1489829980); // 937 REGISTER(12)=-1 #line 937 "regression-compile-tmp/imp918s.imp" REGISTER[12] = (-1); // 938 GRUSE(12)=18 #line 938 "regression-compile-tmp/imp918s.imp" GRUSE[12] = 18; // 939 GRINF(12)=0 #line 939 "regression-compile-tmp/imp918s.imp" GRINF[12] = 0; // 940 %END #line 940 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETPERMBASE at level 2 // 941 %ROUTINE PRHEX(%INTEGER VALUE,PLACES) #line 941 "regression-compile-tmp/imp918s.imp" void PRHEX( int VALUE, int PLACES ) #line 941 "regression-compile-tmp/imp918s.imp" { // 942 %OWNINTEGER HT1=M'0123' #line 942 "regression-compile-tmp/imp918s.imp" static int HT1 = 808530483; // 943 %OWNINTEGER HT2=M'4567' #line 943 "regression-compile-tmp/imp918s.imp" static int HT2 = 875902519; // 944 %OWNINTEGER HT3=M'89AB' #line 944 "regression-compile-tmp/imp918s.imp" static int HT3 = 943276354; // 945 %OWNINTEGER HT4=M'CDEF' #line 945 "regression-compile-tmp/imp918s.imp" static int HT4 = 1128547654; // 946 %INTEGER W1,W2,W3 #line 946 "regression-compile-tmp/imp918s.imp" int W1; #line 946 "regression-compile-tmp/imp918s.imp" int W2; #line 946 "regression-compile-tmp/imp918s.imp" int W3; // 947 !%if USE MC = 1 %start // 948 ! *UNPK_W1+1(9),VALUE(5) // 949 ! *NC_W1+1(8),MASK1 // 950 ! *TR_W1+1(8),HT1 // 951 ! *LA_1,W1+8; *S_1,PLACES // 952 ! *MVC_ 0(1,1),PLACES+3 // 953 ! *-> P5; ! PRINTSTRING IN PERM // 954 !%finish // 955 %END #line 955 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRHEX at level 2 // 956 %ROUTINE GET ENV(%SHORTINTEGERNAME HEAD) #line 956 "regression-compile-tmp/imp918s.imp" void GETENV( short /*name*/*HEAD ) #line 956 "regression-compile-tmp/imp918s.imp" { // 957 {%SHORTROUTINE} // 958 !*********************************************************************** // 959 !* SAVE A COPY OF THE REGISTER STATE FOR FUTURE REFERENCE * // 960 !*********************************************************************** // 961 %INTEGER I,J #line 961 "regression-compile-tmp/imp918s.imp" int I; #line 961 "regression-compile-tmp/imp918s.imp" int J; // 962 %CYCLE J=0,1,14; I=GRMAP(J) #line 962 "regression-compile-tmp/imp918s.imp" J = (-1); if ((((14)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 14"); L_0095:; if (J == 14) goto L_0096; J += 1; #line 962 "regression-compile-tmp/imp918s.imp" I = GRMAP[J]; // 963 PUSH123(HEAD,GRINF(I),GRAT(I),I<<8!GRUSE(I)) %IF GRUSE(I)>1 #line 963 "regression-compile-tmp/imp918s.imp" if (((GRUSE[I]) <= (1))) goto L_0098; #line 963 "regression-compile-tmp/imp918s.imp" PUSH123(HEAD, GRINF[I], GRAT[I], ((((I) << (8))) | (GRUSE[I]))); #line 963 "regression-compile-tmp/imp918s.imp" L_0098:; // 964 %REPEAT #line 964 "regression-compile-tmp/imp918s.imp" goto L_0095; #line 964 "regression-compile-tmp/imp918s.imp" L_0096:; // 965 %END #line 965 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GETENV at level 2 // 966 %ROUTINE RESTORE(%SHORTINTEGER HEAD) #line 966 "regression-compile-tmp/imp918s.imp" void RESTORE( short HEAD ) #line 966 "regression-compile-tmp/imp918s.imp" { // 967 {%SHORTROUTINE} // 968 !*********************************************************************** // 969 !* RESET THE REGISTERS TO ENVIRONMENT IN LIST HEADED BY 'HEAD' * // 970 !*********************************************************************** // 971 %INTEGER I,J,R,USE,INF,AT #line 971 "regression-compile-tmp/imp918s.imp" int I; #line 971 "regression-compile-tmp/imp918s.imp" int J; #line 971 "regression-compile-tmp/imp918s.imp" int R; #line 971 "regression-compile-tmp/imp918s.imp" int USE; #line 971 "regression-compile-tmp/imp918s.imp" int INF; #line 971 "regression-compile-tmp/imp918s.imp" int AT; // 972 CCSTATE=-1 #line 972 "regression-compile-tmp/imp918s.imp" CCSTATE = (-1); // 973 %CYCLE J=0,1,14; I=GRMAP(J) #line 973 "regression-compile-tmp/imp918s.imp" J = (-1); if ((((14)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 14"); L_0099:; if (J == 14) goto L_009a; J += 1; #line 973 "regression-compile-tmp/imp918s.imp" I = GRMAP[J]; // 974 %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF(I)=0 #line 974 "regression-compile-tmp/imp918s.imp" if (((REGISTER[I]) < (0))) goto L_009c; #line 974 "regression-compile-tmp/imp918s.imp" GRUSE[I] = 0; #line 974 "regression-compile-tmp/imp918s.imp" GRINF[I] = 0; #line 974 "regression-compile-tmp/imp918s.imp" L_009c:; // 975 %REPEAT #line 975 "regression-compile-tmp/imp918s.imp" goto L_0099; #line 975 "regression-compile-tmp/imp918s.imp" L_009a:; // 976 %WHILE HEAD#0 %CYCLE #line 976 "regression-compile-tmp/imp918s.imp" L_009d:; #line 976 "regression-compile-tmp/imp918s.imp" if (((HEAD) == (0))) goto L_009e; // 977 POP123(HEAD,INF,AT,I) #line 977 "regression-compile-tmp/imp918s.imp" POP123(&HEAD, &INF, &AT, &I); // 978 R=I>>8 #line 978 "regression-compile-tmp/imp918s.imp" R = (int)((((unsigned int)(I)) >> (8))); // 979 %IF REGISTER(R)>=0 %THEN GRUSE(R)=I&255 %AND GRINF(R)=INF #line 979 "regression-compile-tmp/imp918s.imp" if (((REGISTER[R]) < (0))) goto L_00a0; #line 979 "regression-compile-tmp/imp918s.imp" GRUSE[R] = ((I) & (255)); #line 979 "regression-compile-tmp/imp918s.imp" GRINF[R] = INF; #line 979 "regression-compile-tmp/imp918s.imp" L_00a0:; // 980 GRAT(R)=AT #line 980 "regression-compile-tmp/imp918s.imp" GRAT[R] = AT; // 981 %REPEAT #line 981 "regression-compile-tmp/imp918s.imp" goto L_009d; #line 981 "regression-compile-tmp/imp918s.imp" L_009e:; // 982 %END #line 982 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RESTORE at level 2 // 983 ! %ROUTINE PRINT LIST(%INTEGER HEAD) // 984 ! {%SHORTROUTINE} // 985 ! %INTEGER I,J,K // 986 !1: %IF HEAD=0 %THEN %RETURN // 987 ! FROM123(HEAD,I,J,K) // 988 ! NEWLINE // 989 ! PRHEX(I,8) // 990 ! SPACES(3) // 991 ! PRHEX(J,8) // 992 ! SPACES(3) // 993 ! PRHEX(K,8) // 994 ! NEWLINE // 995 ! MLINK(HEAD) // 996 ! ->Label1 // 997 ! %END // 998 ! // 999 ! ******* LIST***PROCESSING***ROUTINES // 1000 ! NEW VERSIONS BASED ON A 96BIT(12 BYTE) UNIT // 1001 ! S1=S2=32 BIT STREAM, S3=16 BIT STREAM // 1002 ! // 1003 ! %ROUTINE CHECK ASL // 1004 !! CHECK ASL FOR CONSISTENCY AND PRINT OUT FREE CELLS // 1005 !! FOR DEBUGGING OBSCURE LIST PROCESSING FAULTS ONLY // 1006 ! {%SHORTROUTINE} // 1007 ! %INTEGER N,Q // 1008 ! N=0 // 1009 ! Q=ASL // 1010 !1: ->Label2 %IF Q=0 // 1011 ! ABORT %UNLESS Q&3=0 // 1012 ! MLINK(Q) // 1013 ! N=N+1 // 1014 ! ->Label1 // 1015 !2: printstring(" FREE CELLS=") // 1016 ! WRITE(N,3) // 1017 ! NEWLINE // 1018 ! %END // 1019 ! // 1020 ! %INTEGERFN NEW CELL // 1021 ! %INTEGER I // 1022 !%if USE MC = 1 %start // 1023 ! *L_1,ASL // 1024 ! *LTR_2,1 // 1025 ! *BC_7,<1> // 1026 !%finish // 1027 ! FAULT(107,0) // 1028 !%if USE MC = 1 %start // 1029 !1: *A_2,ASLIST // 1030 ! *MVC_ASL+2(2),14(2); !ASL TO NEXT FREE CELL // 1031 ! *XC_0(16,2),0(2); ! NEWCELL TO ZERO // 1032 ! *LM_4,15,16(8) // 1033 ! *BCR_15,15 // 1034 !%finish // 1035 ! %END // 1036 %ROUTINE PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) #line 1036 "regression-compile-tmp/imp918s.imp" void PUSH( short /*name*/*CELL, int S1, int S2 ) #line 1036 "regression-compile-tmp/imp918s.imp" { // 1037 !%if USE MC = 1 %start // 1038 ! *L_4,ASL; *LTR_5,4; *BC_7,<1> // 1039 !%finish // 1040 FAULT(107,0) #line 1040 "regression-compile-tmp/imp918s.imp" FAULT(107, 0); // 1041 !%if USE MC = 1 %start // 1042 !1: *A_5,ASLIST; *MVC_ASL+2(2),14(5) // 1043 ! *LM_15,1,CELL; *LH_3,0(15); *SR_2,2 // 1044 ! *STH_4,0(15); *STM_0,3,0(5) // 1045 !%finish // 1046 %END #line 1046 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PUSH at level 2 // 1047 %ROUTINE PUSH123(%SHORTINTEGERNAME CELL,%INTEGER S1,S2,S3) #line 1047 "regression-compile-tmp/imp918s.imp" void PUSH123( short /*name*/*CELL, int S1, int S2, int S3 ) #line 1047 "regression-compile-tmp/imp918s.imp" { // 1048 !%if USE MC = 1 %start // 1049 ! *L_4,ASL; *LTR_5,4; *BC_7,<1> // 1050 !%finish // 1051 FAULT(107,0) #line 1051 "regression-compile-tmp/imp918s.imp" FAULT(107, 0); // 1052 !%if USE MC = 1 %start // 1053 !1: *A_5,ASLIST; *MVC_ASL+2(2),14(5) // 1054 ! *LM_15,2,CELL; *LH_3,0(15) // 1055 ! *STH_4,0(15); *STM_0,3,0(5) // 1056 !%finish // 1057 %END #line 1057 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PUSH123 at level 2 // 1058 %ROUTINE POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2) #line 1058 "regression-compile-tmp/imp918s.imp" void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 ) #line 1058 "regression-compile-tmp/imp918s.imp" { // 1059 !%if USE MC = 1 %start // 1060 ! *LM_1,3,CELL; *LH_4,0(1); *L_15,ASLIST // 1061 ! *L_0,0(4,15); *ST_0,0(2); ! SET S1 // 1062 ! *L_0,4(4,15); *ST_0,0(3); ! SET S2 // 1063 ! *LTR_4,4; *BC_8,<1>; ! HEAD =0 FOR NULL LIST // 1064 ! *LH_0,14(4,15); *STH_0,0(1); ! HEADCELL TO OLD 2ND CELL // 1065 ! *L_3,ASL; *STH_3,14(4,15); *ST_4,ASL // 1066 !%finish // 1067 Label1: %END #line 1067 "regression-compile-tmp/imp918s.imp" U_1006:; #line 1067 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POP at level 2 // 1068 %ROUTINE POP123(%SHORTINTEGERNAME CELL,%C #line 1068 "regression-compile-tmp/imp918s.imp" void POP123( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 ) #line 1068 "regression-compile-tmp/imp918s.imp" { // 1069 %INTEGERNAME S1,S2,S3) // 1070 // 1071 !%if USE MC = 1 %start // 1072 ! *LM_1,3,CELL; *LH_4,0(1); *L_15,ASLIST // 1073 ! *L_0,0(4,15); *ST_0,0(2); ! SET S1 // 1074 ! *L_0,4(4,15); *ST_0,0(3); ! SET S2 // 1075 ! *L_0,8(4,15); *L_3,S3; *ST_0,0(3); ! SET S3 // 1076 ! *LTR_4,4; *BC_8,<1>; ! HEAD =0 FOR NULL LIST // 1077 ! *LH_0,14(4,15); *STH_0,0(1); ! HEADCELL TO OLD 2ND CELL // 1078 ! *L_3,ASL; *STH_3,14(4,15); *ST_4,ASL // 1079 !%finish // 1080 Label1: %END #line 1080 "regression-compile-tmp/imp918s.imp" U_100e:; #line 1080 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POP123 at level 2 // 1081 %ROUTINE INSERT AFTER(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) #line 1081 "regression-compile-tmp/imp918s.imp" void INSERTAFTER( short /*name*/*CELL, int S1, int S2 ) #line 1081 "regression-compile-tmp/imp918s.imp" { // 1082 !%if USE MC = 1 %start // 1083 ! *L_1,ASL; *LTR_2,1; *BC_7,<2> // 1084 !%finish // 1085 FAULT(107,0) #line 1085 "regression-compile-tmp/imp918s.imp" FAULT(107, 0); // 1086 !%if USE MC = 1 %start // 1087 !2: *A_2,ASLIST; *MVC_ASL+2(2),14(2) // 1088 ! *SR_0,0; *ST_0,12(2); *ST_0,8(2) // 1089 ! *L_2,ASLIST;*LM_3,4,S1;*ST_3,0(1,2);*ST_4,4(1,2) // 1090 ! *L_4,CELL; *LH_3,0(4); *STH_1,0(4) // 1091 ! *LTR_3,3;*BC_8,<1>;*LH_4,14(3,2) // 1092 ! *STH_4,14(1,2); *STH_1,14(3,2) // 1093 !%finish // 1094 Label1: %END #line 1094 "regression-compile-tmp/imp918s.imp" U_1006:; #line 1094 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INSERTAFTER at level 2 // 1095 // 1096 %ROUTINE BINSERT(%SHORTINTEGERNAME TOP,BOT,%INTEGER S1,S2,S3) #line 1096 "regression-compile-tmp/imp918s.imp" void BINSERT( short /*name*/*TOP, short /*name*/*BOT, int S1, int S2, int S3 ) #line 1096 "regression-compile-tmp/imp918s.imp" { // 1097 !*********************************************************************** // 1098 !* ADD A NEWCELL AT THE BOTTOM OF A LIST * // 1099 !*********************************************************************** // 1100 !%if USE MC = 1 %start // 1101 ! *LM_14,2,TOP; *L_3,ASL // 1102 ! *LTR_4,3; *BC_7,<1> // 1103 !%finish // 1104 FAULT(107,0) #line 1104 "regression-compile-tmp/imp918s.imp" FAULT(107, 0); // 1105 !%if USE MC = 1 %start // 1106 !1: *L_5,ASLIST; *LH_6,14(3,5); *ST_6,ASL // 1107 ! *LH_6,0(15); *LTR_6,6; *BC_7,<2>; ! IS BOT 0 ? // 1108 ! *STH_3,0(14); *BC_15,<3>; ! YES SET TOP =NEWCELL // 1109 !2: *STH_3,14(6,5); ! LINK NEWCELL TO PREV BOT // 1110 !3: *STH_3,0(15); ! BOT =NEWCELL // 1111 ! *SR_3,3; *AR_4,5 // 1112 ! *STM_0,3,0(4) // 1113 !%finish // 1114 %END #line 1114 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block BINSERT at level 2 // 1115 %ROUTINE REPLACE123(%INTEGER CELL,S1,S2,S3) #line 1115 "regression-compile-tmp/imp918s.imp" void REPLACE123( int CELL, int S1, int S2, int S3 ) #line 1115 "regression-compile-tmp/imp918s.imp" { // 1116 !%if USE MC = 1 %start // 1117 ! *LM_15,2,CELL;*A_15,ASLIST // 1118 ! *STM_0,2,0(15) // 1119 ! *LM_8,15,32(8); *BCR_15,15 // 1120 !%finish // 1121 %END #line 1121 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE123 at level 2 // 1122 %ROUTINE REPLACE1(%INTEGER CELL,S1) #line 1122 "regression-compile-tmp/imp918s.imp" void REPLACE1( int CELL, int S1 ) #line 1122 "regression-compile-tmp/imp918s.imp" { // 1123 INTEGER(ADDR(ASLIST(CELL)))=S1 #line 1123 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[CELL])) = S1; // 1124 %END #line 1124 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE1 at level 2 // 1125 %ROUTINE REPLACE2(%INTEGER CELL,S2) #line 1125 "regression-compile-tmp/imp918s.imp" void REPLACE2( int CELL, int S2 ) #line 1125 "regression-compile-tmp/imp918s.imp" { // 1126 INTEGER(ADDR(ASLIST(CELL+4)))=S2 #line 1126 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (4))])) = S2; // 1127 %END #line 1127 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE2 at level 2 // 1128 %ROUTINE REPLACE3(%INTEGER CELL,S3) #line 1128 "regression-compile-tmp/imp918s.imp" void REPLACE3( int CELL, int S3 ) #line 1128 "regression-compile-tmp/imp918s.imp" { // 1129 INTEGER(ADDR(ASLIST(CELL+8)))=S3 #line 1129 "regression-compile-tmp/imp918s.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (8))])) = S3; // 1130 %END #line 1130 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE3 at level 2 // 1131 %ROUTINE MLINK(%INTEGERNAME CELL) #line 1131 "regression-compile-tmp/imp918s.imp" void MLINK( int /*name*/*CELL ) #line 1131 "regression-compile-tmp/imp918s.imp" { // 1132 CELL=SHORTINTEGER(ADDR(ASLIST(CELL+14))) #line 1132 "regression-compile-tmp/imp918s.imp" *CELL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (14))])); // 1133 %END #line 1133 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MLINK at level 2 // 1134 %INTEGERFN FIND(%INTEGER LAB,LIST) #line 1134 "regression-compile-tmp/imp918s.imp" int FIND( int LAB, int LIST ) #line 1134 "regression-compile-tmp/imp918s.imp" { // 1135 ! THIS FUNCTION SEARCHES LIST 'LIST' FOR LAB IN STREAM2 AND // 1136 ! RETURNS THE CORRESPONDING CELL NO.IT USED FOR MORE THAN // 1137 ! SCANNING LABEL LISTS. // 1138 !%if USE MC = 1 %start // 1139 ! %MCODE // 1140 ! *LM_0,1,LAB; *L_2,ASLIST // 1141 ! *LTR_15,1; *BC_8, // 1142 !AGAIN: *C_0,4(1,2); // 1143 ! *BC_8, // 1144 ! *LH_1,14(1,2) // 1145 ! *LTR_15,1 // 1146 ! *BC_7, // 1147 !FAIL: *L_1,0(15,2); ! IF FAIL LOADS-1 ELSE RESULT // 1148 !FOUND: *LM_8,15,32(8); *BCR_15,15 // 1149 ! %ENDOFMCODE // 1150 !%finish // 1151 %result=-1 #line 1151 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return (-1); // 1152 %END #line 1152 "regression-compile-tmp/imp918s.imp" } // End of block FIND at level 2 // 1153 %INTEGERFN FIND3(%INTEGER S3,LIST) #line 1153 "regression-compile-tmp/imp918s.imp" int FIND3( int S3, int LIST ) #line 1153 "regression-compile-tmp/imp918s.imp" { // 1154 !*********************************************************************** // 1155 !* SEARCHES LIST FOR S3 IN STREAM 3 * // 1156 !* RETURNS CELL NO AS RESULT * // 1157 !*********************************************************************** // 1158 !%if USE MC = 1 %start // 1159 ! *LM_0,1,S3; *L_2,ASLIST; *SR_3,3 // 1160 ! *LTR_1,1; *BC_8, // 1161 !AGAIN: *C_0,8(1,2) // 1162 ! *BC_8, // 1163 ! *LR_3,1; ! SAVE PREVIOUS CELL // 1164 ! *LH_1,14(1,2) // 1165 ! *LTR_1,1 // 1166 ! *BC_7, // 1167 !FAIL: *BCTR_1,0 // 1168 !FOUND: *ST_3,PREV3CL; // 1169 ! *LM_8,15,32(8); *BCR_15,15 // 1170 !%finish // 1171 %result=-1 #line 1171 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return (-1); // 1172 %END #line 1172 "regression-compile-tmp/imp918s.imp" } // End of block FIND3 at level 2 // 1173 %ROUTINE FROM123(%INTEGER CELL,%INTEGERNAME S1,S2,S3) #line 1173 "regression-compile-tmp/imp918s.imp" void FROM123( int CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 ) #line 1173 "regression-compile-tmp/imp918s.imp" { // 1174 !%if USE MC = 1 %start // 1175 ! *LM_1,4,CELL; *A_1,ASLIST; // 1176 ! *LM_15,1,0(1); * ST_15,0(2) // 1177 ! *ST_ 0,0(3); *ST_1,0(4) // 1178 ! *LM_8,15,32(8); *BCR_15,15 // 1179 !%finish // 1180 %END #line 1180 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROM123 at level 2 // 1181 %ROUTINE FROM12(%INTEGER CELL,%INTEGERNAME S1,S2) #line 1181 "regression-compile-tmp/imp918s.imp" void FROM12( int CELL, int /*name*/*S1, int /*name*/*S2 ) #line 1181 "regression-compile-tmp/imp918s.imp" { // 1182 !%if USE MC = 1 %start // 1183 ! *LM_1,3,CELL ;*A_1,ASLIST ; // 1184 ! *LM_0,1,0(1); *ST_0,0(2); *ST_1,0(3) // 1185 !%finish // 1186 %END #line 1186 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROM12 at level 2 // 1187 %INTEGERFN FROM1(%INTEGER CELL) #line 1187 "regression-compile-tmp/imp918s.imp" int FROM1( int CELL ) #line 1187 "regression-compile-tmp/imp918s.imp" { // 1188 %RESULT=INTEGER(ADDR(ASLIST(CELL))) #line 1188 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return *_imp_INTEGER(_imp_ADDR(&ASLIST[CELL])); // 1189 %END #line 1189 "regression-compile-tmp/imp918s.imp" } // End of block FROM1 at level 2 // 1190 %INTEGERFN FROM2(%INTEGER CELL) #line 1190 "regression-compile-tmp/imp918s.imp" int FROM2( int CELL ) #line 1190 "regression-compile-tmp/imp918s.imp" { // 1191 %RESULT=INTEGER(ADDR(ASLIST(CELL))+4) #line 1191 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return *_imp_INTEGER((((int)(_imp_ADDR(&ASLIST[CELL]))) + (4))); // 1192 %END #line 1192 "regression-compile-tmp/imp918s.imp" } // End of block FROM2 at level 2 // 1193 %INTEGERFN FROM3(%INTEGER CELL) #line 1193 "regression-compile-tmp/imp918s.imp" int FROM3( int CELL ) #line 1193 "regression-compile-tmp/imp918s.imp" { // 1194 %RESULT=INTEGER(ADDR(ASLIST(CELL))+8) #line 1194 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return *_imp_INTEGER((((int)(_imp_ADDR(&ASLIST[CELL]))) + (8))); // 1195 %END #line 1195 "regression-compile-tmp/imp918s.imp" } // End of block FROM3 at level 2 // 1196 %ROUTINE CLEAR LIST (%SHORTINTEGERNAME OPHEAD) #line 1196 "regression-compile-tmp/imp918s.imp" void CLEARLIST( short /*name*/*OPHEAD ) #line 1196 "regression-compile-tmp/imp918s.imp" { // 1197 !%if USE MC = 1 %start // 1198 ! **1,OPHEAD; *LTR_1,1; *BC_8, // 1199 ! *L_2,ASLIST; *L_0,ASL; *ST_1,ASL // 1200 !AGAIN: *LR_3,1; *LH_1,14(1,2); ! NEXT LINK // 1201 ! *LTR_1,1; *BC_7,; ! IS IT ZERO? // 1202 ! *STH_0,14(3,2); ! LAST LINK TO OLD VALUE OF ASL // 1203 !%finish // 1204 EMPTY: OPHEAD=0; #line 1204 "regression-compile-tmp/imp918s.imp" U_100e:; #line 1204 "regression-compile-tmp/imp918s.imp" *OPHEAD = 0; // 1205 %END #line 1205 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLEARLIST at level 2 // 1206 ! %ROUTINE CONCAT(%SHORTINTEGERNAME LIST1,LIST2) // 1207 ! %COMMENT ADDS LIST2 TO BOTTOM OF LIST1 // 1208 !%if USE MC = 1 %start // 1209 ! *L_4,LIST1 // 1210 ! *L_15,LIST2 // 1211 ! *LH_0,0(15) // 1212 ! *L_2,ASLIST // 1213 ! *LH_1,0(4) // 1214 ! *LTR_3,1 // 1215 ! *BC_7, // 1216 ! *STH_0,0(4) // 1217 ! *BC_15, // 1218 !ON: *LR_3,1 // 1219 ! *LH_1,14(3,2); ! NEXT LINK // 1220 ! *LTR_1,1 // 1221 ! *BC_7, // 1222 ! *STH_0,14(3,2); ! LAST LINK TO NEW LIST // 1223 !COMM: *STH_1,0(15); ! ZERO HEAD OF LIST2 IN CASE // 1224 !%finish // 1225 ! %END; ! AN ERROR PUTS CELL TWICE ONTO // 1226 ! FREE LIST - CATASTROPHIC! // 1227 ! %ROUTINE INSERT AT END(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) // 1228 ! {%SHORTROUTINE} // 1229 !!*********************************************************************** // 1230 !!* ADD A CELL TO THE BOTTOM OF THE LIST HEADED BY 'CELL' * // 1231 !!*********************************************************************** // 1232 !%if USE MC = 1 %start // 1233 ! *L_1,ASL // 1234 ! *LTR_2,1 // 1235 ! *BC_7,<1> // 1236 !%finish // 1237 ! FAULT(107,0) // 1238 !%if USE MC = 1 %start // 1239 !1: *A_2,ASLIST // 1240 ! *MVC_ASL+2(2),14(2) // 1241 ! *SR_0,0 // 1242 ! *ST_0,12(2) // 1243 ! *L_2,ASLIST // 1244 ! *L_4,CELL // 1245 ! *LH_3,0(4); ! GET HEAD CELL // 1246 ! *LTR_3,3 // 1247 ! *BC_7,; ! LIST NOT EMPTY // 1248 ! *STH_1,0(4) // 1249 ! *BC_15,; ! EMPTY LIST -- CELL TO TOP // 1250 !ON: *LR_4,3 // 1251 ! *LH_3,14(2,4); ! IS NEXT CELL THE BOTTOM?? // 1252 ! *LTR_3,3 // 1253 ! *BC_7, // 1254 ! *STH_1,14(2,4) // 1255 !LOAD: *AR_1,2 // 1256 ! *MVC_0(8,1),S1 // 1257 !%finish // 1258 ! %END // 1259 ! ************END****OF****LIST****PROCESSING ROUTINES // 1260 %ROUTINE CSS(%INTEGER PIN,CSSMODE) #line 1260 "regression-compile-tmp/imp918s.imp" void CSS( int PIN, int CSSMODE ) #line 1260 "regression-compile-tmp/imp918s.imp" { // 1261 %ROUTINESPEC CIOCP(%INTEGER N) #line 1261 "regression-compile-tmp/imp918s.imp" auto void CIOCP( int N ); // 1262 %ROUTINESPEC DEFINE EP(%INTEGER A,B,C,D) #line 1262 "regression-compile-tmp/imp918s.imp" auto void DEFINEEP( int A, int B, int C, int D ); // 1263 %ROUTINESPEC LAB LOOK(%INTEGERNAME A,%INTEGER B) #line 1263 "regression-compile-tmp/imp918s.imp" auto void LABLOOK( int /*name*/*A, int B ); // 1264 %ROUTINESPEC SET LOCAL BASE #line 1264 "regression-compile-tmp/imp918s.imp" auto void SETLOCALBASE( void ); // 1265 %ROUTINESPEC STRINGOP(%INTEGER Z,L,BTO,DTO,BFRM,DFRM,BML,DML,X) #line 1265 "regression-compile-tmp/imp918s.imp" auto void STRINGOP( int Z, int L, int BTO, int DTO, int BFRM, int DFRM, int BML, int DML, int X ); // 1266 %ROUTINESPEC CEND(%INTEGER KKK) #line 1266 "regression-compile-tmp/imp918s.imp" auto void CEND( int KKK ); // 1267 %ROUTINESPEC CBPAIR(%INTEGERNAME LB,UB) #line 1267 "regression-compile-tmp/imp918s.imp" auto void CBPAIR( int /*name*/*LB, int /*name*/*UB ); // 1268 %ROUTINESPEC CCOND(%INTEGER IU,FARLAB) #line 1268 "regression-compile-tmp/imp918s.imp" auto void CCOND( int IU, int FARLAB ); // 1269 %ROUTINESPEC SET LINE #line 1269 "regression-compile-tmp/imp918s.imp" auto void SETLINE( void ); // 1270 %ROUTINESPEC CUI(%INTEGER CODE) #line 1270 "regression-compile-tmp/imp918s.imp" auto void CUI( int CODE ); // 1271 %ROUTINESPEC CSTART(%INTEGER CODE) #line 1271 "regression-compile-tmp/imp918s.imp" auto void CSTART( int CODE ); // 1272 %ROUTINESPEC BULKM(%INTEGER A,B,C,D,E,F) #line 1272 "regression-compile-tmp/imp918s.imp" auto void BULKM( int A, int B, int C, int D, int E, int F ); // 1273 %ROUTINESPEC TORP(%SHORTINTEGERNAME H,B,NOPS,%INTEGER MODE) #line 1273 "regression-compile-tmp/imp918s.imp" auto void TORP( short /*name*/*H, short /*name*/*B, short /*name*/*NOPS, int MODE ); // 1274 %ROUTINESPEC SET USE(%INTEGER R,U,I) #line 1274 "regression-compile-tmp/imp918s.imp" auto void SETUSE( int R, int U, int I ); // 1275 %ROUTINESPEC CSEXP(%INTEGER REG,MODE) #line 1275 "regression-compile-tmp/imp918s.imp" auto void CSEXP( int REG, int MODE ); // 1276 %ROUTINESPEC DSEXP(%INTEGER REG,MODE) #line 1276 "regression-compile-tmp/imp918s.imp" auto void DSEXP( int REG, int MODE ); // 1277 %ROUTINESPEC FREE AND FORGET(%INTEGER REG) #line 1277 "regression-compile-tmp/imp918s.imp" auto void FREEANDFORGET( int REG ); // 1278 %ROUTINESPEC SAVE IRS(%INTEGER MODE) #line 1278 "regression-compile-tmp/imp918s.imp" auto void SAVEIRS( int MODE ); // 1279 %ROUTINESPEC BOOT OUT(%INTEGER MODE) #line 1279 "regression-compile-tmp/imp918s.imp" auto void BOOTOUT( int MODE ); // 1280 %ROUTINESPEC EXPOP(%INTEGER A,B,C,D) #line 1280 "regression-compile-tmp/imp918s.imp" auto void EXPOP( int A, int B, int C, int D ); // 1281 %ROUTINESPEC CSTREXP(%INTEGER MODE,REG) #line 1281 "regression-compile-tmp/imp918s.imp" auto void CSTREXP( int MODE, int REG ); // 1282 %ROUTINESPEC ASSIGN (%INTEGER P1,P2) #line 1282 "regression-compile-tmp/imp918s.imp" auto void ASSIGN( int P1, int P2 ); // 1283 %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS) #line 1283 "regression-compile-tmp/imp918s.imp" auto int COPYRECORDTAG( int /*name*/*SUBS ); // 1284 %ROUTINESPEC TEST APP(%INTEGERNAME NUM) #line 1284 "regression-compile-tmp/imp918s.imp" auto void TESTAPP( int /*name*/*NUM ); // 1285 %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK) #line 1285 "regression-compile-tmp/imp918s.imp" auto int DISPLACEMENT( int LINK ); // 1286 %ROUTINESPEC SKIP APP #line 1286 "regression-compile-tmp/imp918s.imp" auto void SKIPAPP( void ); // 1287 %ROUTINESPEC CRFORMAT(%SHORTINTEGERNAME HEAD) #line 1287 "regression-compile-tmp/imp918s.imp" auto void CRFORMAT( short /*name*/*HEAD ); // 1288 %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,C) #line 1288 "regression-compile-tmp/imp918s.imp" auto int DOPEVECTOR( int A, int B, int C ); // 1289 %ROUTINESPEC DECLARE ARRAYS(%INTEGER MODE,XTRA) #line 1289 "regression-compile-tmp/imp918s.imp" auto void DECLAREARRAYS( int MODE, int XTRA ); // 1290 %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B) #line 1290 "regression-compile-tmp/imp918s.imp" auto void DECLARESCALARS( int A, int B ); // 1291 %ROUTINESPEC CQN(%INTEGER P) #line 1291 "regression-compile-tmp/imp918s.imp" auto void CQN( int P ); // 1292 %ROUTINESPEC CLT #line 1292 "regression-compile-tmp/imp918s.imp" auto void CLT( void ); // 1293 %ROUTINESPEC MOVE R(%INTEGER R,N) #line 1293 "regression-compile-tmp/imp918s.imp" auto void MOVER( int R, int N ); // 1294 %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE) #line 1294 "regression-compile-tmp/imp918s.imp" auto void GETWSP( int /*name*/*PLACE, int SIZE ); // 1295 %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE) #line 1295 "regression-compile-tmp/imp918s.imp" auto void RETURNWSP( int PLACE, int SIZE ); // 1296 %ROUTINESPEC CRCALL(%INTEGER A) #line 1296 "regression-compile-tmp/imp918s.imp" auto void CRCALL( int A ); // 1297 %ROUTINESPEC CNAME(%INTEGER Z,REG) #line 1297 "regression-compile-tmp/imp918s.imp" auto void CNAME( int Z, int REG ); // 1298 %ROUTINESPEC CRNAME(%INTEGER Z,REG,MODE,CLINK,BS,IX,DP) #line 1298 "regression-compile-tmp/imp918s.imp" auto void CRNAME( int Z, int REG, int MODE, int CLINK, int BS, int IX, int DP ); // 1299 %ROUTINESPEC CANAME(%INTEGER Z,BS,DP,LINK) #line 1299 "regression-compile-tmp/imp918s.imp" auto void CANAME( int Z, int BS, int DP, int LINK ); // 1300 %ROUTINESPEC ADJUST INDEX(%INTEGER M,%INTEGERNAME I,D) #line 1300 "regression-compile-tmp/imp918s.imp" auto void ADJUSTINDEX( int M, int /*name*/*I, int /*name*/*D ); // 1301 %ROUTINESPEC CREATE AH(%INTEGER M,R,B,D) #line 1301 "regression-compile-tmp/imp918s.imp" auto void CREATEAH( int M, int R, int B, int D ); // 1302 %ROUTINESPEC CRES(%INTEGER LAB) #line 1302 "regression-compile-tmp/imp918s.imp" auto void CRES( int LAB ); // 1303 %ROUTINESPEC CSNAME(%INTEGER Z,REG) #line 1303 "regression-compile-tmp/imp918s.imp" auto void CSNAME( int Z, int REG ); // 1304 %ROUTINESPEC COPY TAG(%INTEGER KK) #line 1304 "regression-compile-tmp/imp918s.imp" auto void COPYTAG( int KK ); // 1305 %ROUTINESPEC REDUCE TAG(%INTEGER MODE) #line 1305 "regression-compile-tmp/imp918s.imp" auto void REDUCETAG( int MODE ); // 1306 %ROUTINESPEC REPLACE TAG (%INTEGER KK) #line 1306 "regression-compile-tmp/imp918s.imp" auto void REPLACETAG( int KK ); // 1307 %ROUTINESPEC RT EXIT #line 1307 "regression-compile-tmp/imp918s.imp" auto void RTEXIT( void ); // 1308 %ROUTINESPEC RT JUMP(%INTEGER CODE,R1,RT,WKREG) #line 1308 "regression-compile-tmp/imp918s.imp" auto void RTJUMP( int CODE, int R1, int RT, int WKREG ); // 1309 %ROUTINESPEC MERGE INFO #line 1309 "regression-compile-tmp/imp918s.imp" auto void MERGEINFO( void ); // 1310 %ROUTINESPEC REDUCE ENV(%SHORTINTEGERNAME HEAD) #line 1310 "regression-compile-tmp/imp918s.imp" auto void REDUCEENV( short /*name*/*HEAD ); // 1311 %ROUTINESPEC RELOCATE(%INTEGER A,B,C) #line 1311 "regression-compile-tmp/imp918s.imp" auto void RELOCATE( int A, int B, int C ); // 1312 %ROUTINESPEC GXREF(%INTEGER A,B,C,D) #line 1312 "regression-compile-tmp/imp918s.imp" auto void GXREF( int A, int B, int C, int D ); // 1313 %ROUTINESPEC CXREF(%INTEGER A,B,C,%INTEGERNAME D) #line 1313 "regression-compile-tmp/imp918s.imp" auto void CXREF( int A, int B, int C, int /*name*/*D ); // 1314 %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK) #line 1314 "regression-compile-tmp/imp918s.imp" auto void STORETAG( int KK, int SLINK ); // 1315 %ROUTINESPEC TESTNST #line 1315 "regression-compile-tmp/imp918s.imp" auto void TESTNST( void ); // 1316 %ROUTINESPEC CUCI #line 1316 "regression-compile-tmp/imp918s.imp" auto void CUCI( void ); // 1317 %ROUTINESPEC SKIP EXP #line 1317 "regression-compile-tmp/imp918s.imp" auto void SKIPEXP( void ); // 1318 %ROUTINESPEC UNPACK #line 1318 "regression-compile-tmp/imp918s.imp" auto void UNPACK( void ); // 1319 %ROUTINESPEC PACK(%INTEGERNAME PTYPE) #line 1319 "regression-compile-tmp/imp918s.imp" auto void PACK( int /*name*/*PTYPE ); // 1320 %ROUTINESPEC CRSPEC (%INTEGER M) #line 1320 "regression-compile-tmp/imp918s.imp" auto void CRSPEC( int M ); // 1321 %ROUTINESPEC LOAD DV(%INTEGERNAME REG,%INTEGER B,D,T) #line 1321 "regression-compile-tmp/imp918s.imp" auto void LOADDV( int /*name*/*REG, int B, int D, int T ); // 1322 %ROUTINESPEC DUMP(%INTEGER CODE,REG,DIS,X,LEVEL) #line 1322 "regression-compile-tmp/imp918s.imp" auto void DUMP( int CODE, int REG, int DIS, int X, int LEVEL ); // 1323 %ROUTINESPEC DUMPM(%INTEGER OPCODE,R1,R2,B,D) #line 1323 "regression-compile-tmp/imp918s.imp" auto void DUMPM( int OPCODE, int R1, int R2, int B, int D ); // 1324 %ROUTINESPEC DUMPSI(%INTEGER OPCODE,L,B,D) #line 1324 "regression-compile-tmp/imp918s.imp" auto void DUMPSI( int OPCODE, int L, int B, int D ); // 1325 %ROUTINESPEC DUMPSS(%INTEGER OP,L,B1,D1,B2,D2) #line 1325 "regression-compile-tmp/imp918s.imp" auto void DUMPSS( int OP, int L, int B1, int D1, int B2, int D2 ); // 1326 %ROUTINESPEC RHEAD(%INTEGER KK) #line 1326 "regression-compile-tmp/imp918s.imp" auto void RHEAD( int KK ); // 1327 %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG) #line 1327 "regression-compile-tmp/imp918s.imp" auto void ENTERJUMP( int MASK, int STAD, int FLAG ); // 1328 %ROUTINESPEC CFPDEL #line 1328 "regression-compile-tmp/imp918s.imp" auto void CFPDEL( void ); // 1329 %ROUTINESPEC PPJ(%INTEGER N) #line 1329 "regression-compile-tmp/imp918s.imp" auto void PPJ( int N ); // 1330 %ROUTINESPEC ENTER LAB(%INTEGER M,FLAG) #line 1330 "regression-compile-tmp/imp918s.imp" auto void ENTERLAB( int M, int FLAG ); // 1331 %ROUTINESPEC CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL) #line 1331 "regression-compile-tmp/imp918s.imp" auto void CHECKCAPACITY( int REG, int DIS, int X, int LEVEL ); // 1332 %INTEGERFNSPEC TSEXP(%INTEGERNAME CODE,%INTEGER I) #line 1332 "regression-compile-tmp/imp918s.imp" auto int TSEXP( int /*name*/*CODE, int I ); // 1333 %ROUTINESPEC FIND USE(%INTEGERNAME REG,%INTEGER TYPE,USE,INF) #line 1333 "regression-compile-tmp/imp918s.imp" auto void FINDUSE( int /*name*/*REG, int TYPE, int USE, int INF ); // 1334 %ROUTINESPEC CLAIM THIS REG(%INTEGER A) #line 1334 "regression-compile-tmp/imp918s.imp" auto void CLAIMTHISREG( int A ); // 1335 %ROUTINESPEC CLAIM(%INTEGER A,%INTEGERNAME REG) #line 1335 "regression-compile-tmp/imp918s.imp" auto void CLAIM( int A, int /*name*/*REG ); // 1336 %ROUTINESPEC FIND REG (%INTEGER A,%INTEGERNAME REG) #line 1336 "regression-compile-tmp/imp918s.imp" auto void FINDREG( int A, int /*name*/*REG ); // 1337 %ROUTINESPEC FORGET(%INTEGER REG) #line 1337 "regression-compile-tmp/imp918s.imp" auto void FORGET( int REG ); // 1338 %ROUTINESPEC FORGETM(%INTEGER UPPER) #line 1338 "regression-compile-tmp/imp918s.imp" auto void FORGETM( int UPPER ); // 1339 %ROUTINESPEC FIND SEQ(%INTEGERNAME ONE,TWO) #line 1339 "regression-compile-tmp/imp918s.imp" auto void FINDSEQ( int /*name*/*ONE, int /*name*/*TWO ); // 1340 %ROUTINESPEC REMEMBER #line 1340 "regression-compile-tmp/imp918s.imp" auto void REMEMBER( void ); // 1341 %INTEGERFNSPEC CONST FIND (%INTEGER L,AD) #line 1341 "regression-compile-tmp/imp918s.imp" auto int CONSTFIND( int L, int AD ); // 1342 %ROUTINESPEC STORE CONST(%INTEGERNAME B,D,%INTEGER L,AD) #line 1342 "regression-compile-tmp/imp918s.imp" auto void STORECONST( int /*name*/*B, int /*name*/*D, int L, int AD ); // 1343 %ROUTINESPEC NOTE ASSMENT(%INTEGER REG,ASSOP,VAR) #line 1343 "regression-compile-tmp/imp918s.imp" auto void NOTEASSMENT( int REG, int ASSOP, int VAR ); // 1344 %ROUTINESPEC TEXTOUT(%INTEGER REG) #line 1344 "regression-compile-tmp/imp918s.imp" auto void TEXTOUT( int REG ); // 1345 %ROUTINESPEC VALLOC(%INTEGER A,B) #line 1345 "regression-compile-tmp/imp918s.imp" auto void VALLOC( int A, int B ); // 1346 %ROUTINESPEC VDALLOC(%INTEGER A,B) #line 1346 "regression-compile-tmp/imp918s.imp" auto void VDALLOC( int A, int B ); // 1347 %ROUTINESPEC CYCOPT(%INTEGERNAME FLAG,%INTEGER WU) #line 1347 "regression-compile-tmp/imp918s.imp" auto void CYCOPT( int /*name*/*FLAG, int WU ); // 1348 %ROUTINESPEC EXTRA PASS(%INTEGER I,J,K) #line 1348 "regression-compile-tmp/imp918s.imp" auto void EXTRAPASS( int I, int J, int K ); // 1349 %ROUTINESPEC CYC RESTORE #line 1349 "regression-compile-tmp/imp918s.imp" auto void CYCRESTORE( void ); // 1350 %SWITCH SW(1:30) #line 1350 "regression-compile-tmp/imp918s.imp" static int sw2_SW_idx; static const void * /*SWITCH*/ sw2_SW[30] = { &&sw2_SW_1, &&sw2_SW_2, &&sw2_SW_3, &&sw2_SW_4, &&sw2_SW_5, &&sw2_SW_6, &&sw2_SW_7, &&sw2_SW_8, &&sw2_SW_9, &&sw2_SW_10, &&sw2_SW_11, &&sw2_SW_12, &&sw2_SW_13, &&sw2_SW_14, &&sw2_SW_15, &&sw2_SW_16, &&sw2_SW_17, &&sw2_SW_18, &&sw2_SW_19, &&sw2_SW_20, &&sw2_SW_21, &&sw2_SW_22, &&sw2_SW_23, &&sw2_SW_24, &&sw2_SW_25, &&sw2_SW_26, &&sw2_SW_27, &&sw2_SW_28, &&sw2_SW_29, &&sw2_SW_30, }; // 1351 %RECORDFORMAT RD(%SHORTINTEGER PTYPE,%BYTEINTEGER XB,FLAG,%C #line 1351 "regression-compile-tmp/imp918s.imp" typedef struct RD RD; struct RD { short PTYPE; unsigned char XB; unsigned char FLAG; int D; short XTRA; }; // 1352 %INTEGER D,%SHORTINTEGER XTRA) // 1353 %SHORTINTEGER OPHEAD,SFHEAD,TWSPHEAD,DUMHEAD,SNDISP,ACC,K,KFORM #line 1353 "regression-compile-tmp/imp918s.imp" short OPHEAD; #line 1353 "regression-compile-tmp/imp918s.imp" short SFHEAD; #line 1353 "regression-compile-tmp/imp918s.imp" short TWSPHEAD; #line 1353 "regression-compile-tmp/imp918s.imp" short DUMHEAD; #line 1353 "regression-compile-tmp/imp918s.imp" short SNDISP; #line 1353 "regression-compile-tmp/imp918s.imp" short ACC; #line 1353 "regression-compile-tmp/imp918s.imp" short K; #line 1353 "regression-compile-tmp/imp918s.imp" short KFORM; // 1354 %INTEGER BXLE,TCELL,CURRINST,ADISP,BIMSTR,JJ,JJJ,KK,KKK, %C #line 1354 "regression-compile-tmp/imp918s.imp" int BXLE; #line 1354 "regression-compile-tmp/imp918s.imp" int TCELL; #line 1354 "regression-compile-tmp/imp918s.imp" int CURRINST; #line 1354 "regression-compile-tmp/imp918s.imp" int ADISP; #line 1354 "regression-compile-tmp/imp918s.imp" int BIMSTR; #line 1354 "regression-compile-tmp/imp918s.imp" int JJ; #line 1354 "regression-compile-tmp/imp918s.imp" int JJJ; #line 1354 "regression-compile-tmp/imp918s.imp" int KK; #line 1354 "regression-compile-tmp/imp918s.imp" int KKK; #line 1354 "regression-compile-tmp/imp918s.imp" int Q; #line 1354 "regression-compile-tmp/imp918s.imp" int QQ; #line 1354 "regression-compile-tmp/imp918s.imp" int EXTRN; #line 1354 "regression-compile-tmp/imp918s.imp" int STARTCOND; #line 1354 "regression-compile-tmp/imp918s.imp" int MARKIU; #line 1354 "regression-compile-tmp/imp918s.imp" int MARKUI; #line 1354 "regression-compile-tmp/imp918s.imp" int MARKC; #line 1354 "regression-compile-tmp/imp918s.imp" int MARKE; #line 1354 "regression-compile-tmp/imp918s.imp" int MARKR; #line 1354 "regression-compile-tmp/imp918s.imp" int BASE; #line 1354 "regression-compile-tmp/imp918s.imp" int INDEX; #line 1354 "regression-compile-tmp/imp918s.imp" int DISP; #line 1354 "regression-compile-tmp/imp918s.imp" int VALUE; #line 1354 "regression-compile-tmp/imp918s.imp" int BML; #line 1354 "regression-compile-tmp/imp918s.imp" int DML; #line 1354 "regression-compile-tmp/imp918s.imp" int LOCALBASE; #line 1354 "regression-compile-tmp/imp918s.imp" int LOCALADDR; #line 1354 "regression-compile-tmp/imp918s.imp" int PTYPE; #line 1354 "regression-compile-tmp/imp918s.imp" int I; #line 1354 "regression-compile-tmp/imp918s.imp" int J; #line 1354 "regression-compile-tmp/imp918s.imp" int OLDI; #line 1354 "regression-compile-tmp/imp918s.imp" int USEBITS; #line 1354 "regression-compile-tmp/imp918s.imp" int SENOPS; #line 1354 "regression-compile-tmp/imp918s.imp" int SEFOP; #line 1354 "regression-compile-tmp/imp918s.imp" int PTYPEP; #line 1354 "regression-compile-tmp/imp918s.imp" int STRINGL; #line 1354 "regression-compile-tmp/imp918s.imp" int LINE; // 1355 Q,QQ,EXTRN,STARTCOND,MARKIU,MARKUI,MARKC,MARKE,MARKR, %C // 1356 BASE,INDEX,DISP,VALUE,BML,DML,LOCAL BASE, LOCAL ADDR, %C // 1357 PTYPE,I,J,OLDI,USEBITS,SENOPS,SEFOP,PTYPEP,STRINGL,LINE // 1358 %BYTEINTEGER ROUT,NAM,ARR,PREC,TYPE,REPORTUI #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char ROUT; #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char NAM; #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char ARR; #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char PREC; #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char TYPE; #line 1358 "regression-compile-tmp/imp918s.imp" unsigned char REPORTUI; // 1359 {%REGISTER P(14)}%integer P; P=PIN #line 1359 "regression-compile-tmp/imp918s.imp" int P; #line 1359 "regression-compile-tmp/imp918s.imp" P = PIN; // 1360 %INTEGERARRAY SGRUSE,SGRINF(0:22) #line 1360 "regression-compile-tmp/imp918s.imp" int SGRUSE[23]; #line 1360 "regression-compile-tmp/imp918s.imp" int SGRINF[23]; // 1361 %CONSTINTEGER WSPTRTAB1=X'00010204',WSPTRTAB2= X'04060607' // 1362 LINE=A(P-1) #line 1362 "regression-compile-tmp/imp918s.imp" LINE = A[(((unsigned char)((((int)(P)) - (1)))) + (7))]; // 1363 LOCAL BASE=0; TWSPHEAD=0 #line 1363 "regression-compile-tmp/imp918s.imp" LOCALBASE = 0; #line 1363 "regression-compile-tmp/imp918s.imp" TWSPHEAD = 0; // 1364 STARTCOND=0; CURRINST=0 #line 1364 "regression-compile-tmp/imp918s.imp" STARTCOND = 0; #line 1364 "regression-compile-tmp/imp918s.imp" CURRINST = 0; // 1365 CYC BITS=0; BIMSTR=0 #line 1365 "regression-compile-tmp/imp918s.imp" CYCBITS = 0; #line 1365 "regression-compile-tmp/imp918s.imp" BIMSTR = 0; // 1366 SENOPS=0; SEFOP=0 #line 1366 "regression-compile-tmp/imp918s.imp" SENOPS = 0; #line 1366 "regression-compile-tmp/imp918s.imp" SEFOP = 0; // 1367 ! // 1368 ! CHECK THERE ARE SOME CELLS LEFT ON THE AVAILABLE SPACE LIST // 1369 ! // 1370 %IF ASL<200 %AND CSSMODE#0 %THEN %START;! GARBAGE COLLECT NEEDED #line 1370 "regression-compile-tmp/imp918s.imp" if (((ASL) >= (200))) goto L_00a1; #line 1370 "regression-compile-tmp/imp918s.imp" if (((CSSMODE) == (0))) goto L_00a1; // 1371 %IF PRINTMAP=1 %THEN printstring(" #line 1371 "regression-compile-tmp/imp918s.imp" if (((PRINTMAP) != (1))) goto L_00a2; #line 1371 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("\n? LIST SPACE")); #line 1371 "regression-compile-tmp/imp918s.imp" L_00a2:; // 1372 ? LIST SPACE") // 1373 %IF ASL<200 %THEN %START; ! STILL SHORT OF SPACE #line 1373 "regression-compile-tmp/imp918s.imp" if (((ASL) >= (200))) goto L_00a3; // 1374 printstring("?") #line 1374 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("?")); // 1375 CLEAR LIST(DVHEAD); ! REMOVE LIST OF SHAREABLE D-VS #line 1375 "regression-compile-tmp/imp918s.imp" CLEARLIST(&DVHEAD); // 1376 CLEAR LIST(CONSTL8); ! AND SHAREABLE LONG CONSTANTS #line 1376 "regression-compile-tmp/imp918s.imp" CLEARLIST(&CONSTL8); // 1377 CLEAR LIST(CONSTL6) #line 1377 "regression-compile-tmp/imp918s.imp" CLEARLIST(&CONSTL6); // 1378 %IF ASL<200 %THEN %START #line 1378 "regression-compile-tmp/imp918s.imp" if (((ASL) >= (200))) goto L_00a4; // 1379 printstring("?") #line 1379 "regression-compile-tmp/imp918s.imp" _imp_PRINTSTRING(_imp_str_literal("?")); // 1380 CLEAR LIST(CONSTL4);! & INTEGER CONSTANTS #line 1380 "regression-compile-tmp/imp918s.imp" CLEARLIST(&CONSTL4); // 1381 CLEAR LIST(CONSTL2);! & SHORT INT CONSTANTS #line 1381 "regression-compile-tmp/imp918s.imp" CLEARLIST(&CONSTL2); // 1382 %FINISH #line 1382 "regression-compile-tmp/imp918s.imp" L_00a4:; // 1383 %FINISH #line 1383 "regression-compile-tmp/imp918s.imp" L_00a3:; // 1384 %FINISH #line 1384 "regression-compile-tmp/imp918s.imp" L_00a1:; // 1385 OLDI=0; ->SW(A(P)) #line 1385 "regression-compile-tmp/imp918s.imp" OLDI = 0; #line 1385 "regression-compile-tmp/imp918s.imp" sw2_SW_idx = A[((P) + ((int)(7)))]; if ((1 <= sw2_SW_idx) && (sw2_SW_idx <= 30)) goto *(sw2_SW-1)[sw2_SW_idx]; /* Bounds=1:30 */ else { /*_imp_signal(8, 2, sw2_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:30 at %s:%d\n", sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1386 SW(23): #line 1386 "regression-compile-tmp/imp918s.imp" sw2_SW_23:; // 1387 WARN(LINE) #line 1387 "regression-compile-tmp/imp918s.imp" WARN(LINE); // 1388 SBFLAG=1 %IF CHECKSP=0; ! '{%SHORTROUTINE}' #line 1388 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (0))) goto L_00a5; #line 1388 "regression-compile-tmp/imp918s.imp" SBFLAG = 1; #line 1388 "regression-compile-tmp/imp918s.imp" L_00a5:; // 1389 ! // 1390 Label1: LAST INST=CURR INST #line 1390 "regression-compile-tmp/imp918s.imp" U_100f:; #line 1390 "regression-compile-tmp/imp918s.imp" LASTINST = CURRINST; // 1391 %WHILE TWSPHEAD#0 %CYCLE #line 1391 "regression-compile-tmp/imp918s.imp" L_00a6:; #line 1391 "regression-compile-tmp/imp918s.imp" if (((TWSPHEAD) == (0))) goto L_00a7; // 1392 POP(TWSPHEAD,JJ,KK) #line 1392 "regression-compile-tmp/imp918s.imp" POP(&TWSPHEAD, &JJ, &KK); // 1393 RETURN WSP(JJ,KK) #line 1393 "regression-compile-tmp/imp918s.imp" RETURNWSP(JJ, KK); // 1394 %REPEAT #line 1394 "regression-compile-tmp/imp918s.imp" goto L_00a6; #line 1394 "regression-compile-tmp/imp918s.imp" L_00a7:; // 1395 SW(29): ! REDUNDANT SEP #line 1395 "regression-compile-tmp/imp918s.imp" sw2_SW_29:; // 1396 SW(10): ! #line 1396 "regression-compile-tmp/imp918s.imp" sw2_SW_10:; // 1397 ! %CYCLE I=10,1,13 // 1398 ! ABORT %UNLESS REGISTER(I)=-1 // 1399 ! %REPEAT // 1400 %RETURN #line 1400 "regression-compile-tmp/imp918s.imp" /* Remove %on %event handler here if present for this block */ return; // 1401 SW(1): MARKER2=P+1+A(P+1); P=P+2 #line 1401 "regression-compile-tmp/imp918s.imp" sw2_SW_1:; #line 1401 "regression-compile-tmp/imp918s.imp" MARKER2 = (((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (7))])); #line 1401 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) + (2)); // 1402 ->LABFND %IF A(MARKER2)=1 #line 1402 "regression-compile-tmp/imp918s.imp" if (((A[((MARKER2) + ((int)(7)))]) != (1))) goto L_00a9; #line 1402 "regression-compile-tmp/imp918s.imp" goto U_1010; #line 1402 "regression-compile-tmp/imp918s.imp" L_00a9:; // 1403 SET LINE %IF LINENOS#0 #line 1403 "regression-compile-tmp/imp918s.imp" if (((LINENOS) == (0))) goto L_00aa; #line 1403 "regression-compile-tmp/imp918s.imp" SETLINE(); #line 1403 "regression-compile-tmp/imp918s.imp" L_00aa:; // 1404 ->Label101 %IF A(MARKER2)<=3 #line 1404 "regression-compile-tmp/imp918s.imp" if (((A[((MARKER2) + ((int)(7)))]) > (3))) goto L_00ab; #line 1404 "regression-compile-tmp/imp918s.imp" goto U_1011; #line 1404 "regression-compile-tmp/imp918s.imp" L_00ab:; // 1405 MASK=15; CUI(0); ->Label1 #line 1405 "regression-compile-tmp/imp918s.imp" MASK = 15; #line 1405 "regression-compile-tmp/imp918s.imp" CUI(0); #line 1405 "regression-compile-tmp/imp918s.imp" goto U_100f; // 1406 LABFND: ->SWITCH %UNLESS A(P)<2 %AND A(P+3)=2;! 1ST ALT UI & NO APP #line 1406 "regression-compile-tmp/imp918s.imp" U_1010:; #line 1406 "regression-compile-tmp/imp918s.imp" if (((A[((P) + ((int)(7)))]) >= (2))) goto L_00a8; #line 1406 "regression-compile-tmp/imp918s.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (7))]) == (2))) goto L_00ac; #line 1406 "regression-compile-tmp/imp918s.imp" L_00a8:; #line 1406 "regression-compile-tmp/imp918s.imp" goto U_1012; #line 1406 "regression-compile-tmp/imp918s.imp" L_00ac:; // 1407 ->SWITCH %UNLESS A(P+4)=2 %AND A(P+5)=2;! NO ENAME OR ASSOP #line 1407 "regression-compile-tmp/imp918s.imp" if (((A[(((unsigned char)((((int)(P)) + (4)))) + (7))]) != (2))) goto L_00ad; #line 1407 "regression-compile-tmp/imp918s.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (7))]) == (2))) goto L_00ae; #line 1407 "regression-compile-tmp/imp918s.imp" L_00ad:; #line 1407 "regression-compile-tmp/imp918s.imp" goto U_1012; #line 1407 "regression-compile-tmp/imp918s.imp" L_00ae:; // 1408 K=16384+A(P+2); ->Label401 #line 1408 "regression-compile-tmp/imp918s.imp" K = ((16384) + ((int)(A[(((unsigned char)((((int)(P)) + (2)))) + (7))]))); #line 1408 "regression-compile-tmp/imp918s.imp" goto U_1013; // 1409 Label101: MARKE=0; MARKR=0 #line 1409 "regression-compile-tmp/imp918s.imp" U_1011:; #line 1409 "regression-compile-tmp/imp918s.imp" MARKE = 0; #line 1409 "regression-compile-tmp/imp918s.imp" MARKR = 0; // 1410 MARKUI=P; MARKIU=MARKER2+1;MARKC=MARKIU+1 #line 1410 "regression-compile-tmp/imp918s.imp" MARKUI = P; #line 1410 "regression-compile-tmp/imp918s.imp" MARKIU = (((int)(MARKER2)) + (1)); #line 1410 "regression-compile-tmp/imp918s.imp" MARKC = (((int)(MARKIU)) + (1)); // 1411 -> CONEXP %IF A(MARKER2)=2; ->WHILE #line 1411 "regression-compile-tmp/imp918s.imp" if (((A[((MARKER2) + ((int)(7)))]) != (2))) goto L_00af; #line 1411 "regression-compile-tmp/imp918s.imp" goto U_1014; #line 1411 "regression-compile-tmp/imp918s.imp" L_00af:; #line 1411 "regression-compile-tmp/imp918s.imp" goto U_1015; // 1412 ! // 1413 SW(2): ! %CYCLE #line 1413 "regression-compile-tmp/imp918s.imp" sw2_SW_2:; // 1414 !*********************************************************************** // 1415 !* THE LAYOUT OF AN ENTRY ON THE CYCLE LIST IS:- * // 1416 !* S1= CNAME<<16!LABEL N0 * // 1417 !* S2= EL<<16!BXLE<<15! CYCLE WORK AREA DISPLACEMENT FROM RBASE * // 1418 !* S3= BREG (THE REGISTER USED FOR INCREMENT AND FINAL VALUE)* // 1419 !* WHERE :- * // 1420 !* CNAME= CYCLE CONTROL NAME(IF SIMPLE SCALAR) OR * // 1421 !* X'3000'!CYCLE NUM FOR CHECKED OR COMPLEX CYCLES* // 1422 !* LABEL= NO OF INTERNAL LABEL FOR REPEAT TO JUMP TO * // 1423 !* BXLE=1 IF 'BXLE' CAN BE USED (IE INCREMENT +VE) ,=0 OTHERWISE* // 1424 !* EL=LABEL NO FOR EXIT STATEMENT (TOP BIT SET WHEN USED) * // 1425 !*********************************************************************** // 1426 %BEGIN #line 1426 "regression-compile-tmp/imp918s.imp" void _BLOCK_3_LEVEL_2_(void) { // 1427 {%SHORTROUTINE} // 1428 %INTEGER PP,Q,INC,NAME,TNAME,PASS,WSPL,CFLAG,BREG,OPEN,CREG #line 1428 "regression-compile-tmp/imp918s.imp" int PP; #line 1428 "regression-compile-tmp/imp918s.imp" int Q; #line 1428 "regression-compile-tmp/imp918s.imp" int INC; #line 1428 "regression-compile-tmp/imp918s.imp" int NAME; #line 1428 "regression-compile-tmp/imp918s.imp" int TNAME; #line 1428 "regression-compile-tmp/imp918s.imp" int PASS; #line 1428 "regression-compile-tmp/imp918s.imp" int WSPL; #line 1428 "regression-compile-tmp/imp918s.imp" int CFLAG; #line 1428 "regression-compile-tmp/imp918s.imp" int BREG; #line 1428 "regression-compile-tmp/imp918s.imp" int OPEN; #line 1428 "regression-compile-tmp/imp918s.imp" int CREG; // 1429 SET LINE #line 1429 "regression-compile-tmp/imp918s.imp" SETLINE(); // 1430 CUR CYC VAR=0; CYC REGS=0 #line 1430 "regression-compile-tmp/imp918s.imp" CURCYCVAR = 0; #line 1430 "regression-compile-tmp/imp918s.imp" CYCREGS = 0; // 1431 BXLE=0; INC=0; BREG=2; CREG=1; ! DEFAULTS #line 1431 "regression-compile-tmp/imp918s.imp" BXLE = 0; #line 1431 "regression-compile-tmp/imp918s.imp" INC = 0; #line 1431 "regression-compile-tmp/imp918s.imp" BREG = 2; #line 1431 "regression-compile-tmp/imp918s.imp" CREG = 1; // 1432 OPEN=A(P+1)-1; P=P+2; PP=P #line 1432 "regression-compile-tmp/imp918s.imp" OPEN = (((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (7))])) - (1)); #line 1432 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) + (2)); #line 1432 "regression-compile-tmp/imp918s.imp" PP = P; // 1433 %IF OPEN #0 %THEN %START #line 1433 "regression-compile-tmp/imp918s.imp" if (((OPEN) == (0))) goto L_00b0; // 1434 CYCOPT(CFLAG,2) %IF CHECKSP=0 #line 1434 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (0))) goto L_00b1; #line 1434 "regression-compile-tmp/imp918s.imp" CYCOPT(&CFLAG, 2); #line 1434 "regression-compile-tmp/imp918s.imp" L_00b1:; // 1435 PASS=X'10000000' #line 1435 "regression-compile-tmp/imp918s.imp" PASS = 268435456; // 1436 %FINISH %ELSE %START #line 1436 "regression-compile-tmp/imp918s.imp" goto L_00b2; #line 1436 "regression-compile-tmp/imp918s.imp" L_00b0:; // 1437 NAME=A(P); TNAME = TAGS(NAME) #line 1437 "regression-compile-tmp/imp918s.imp" NAME = A[((P) + ((int)(7)))]; #line 1437 "regression-compile-tmp/imp918s.imp" TNAME = TAGS[NAME]; // 1438 COPY TAG (NAME) #line 1438 "regression-compile-tmp/imp918s.imp" COPYTAG(NAME); // 1439 FAULT(25,NAME) %UNLESS TYPE=1 %AND PREC=0 #line 1439 "regression-compile-tmp/imp918s.imp" if (((TYPE) != (1))) goto L_00b3; #line 1439 "regression-compile-tmp/imp918s.imp" if (((PREC) == (0))) goto L_00b4; #line 1439 "regression-compile-tmp/imp918s.imp" L_00b3:; #line 1439 "regression-compile-tmp/imp918s.imp" FAULT(25, NAME); #line 1439 "regression-compile-tmp/imp918s.imp" L_00b4:; // 1440 %IF A(P+1)=2=A(P+2)%AND UNASS=0%AND CHECKSP=0 %AND %C #line 1440 "regression-compile-tmp/imp918s.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (7))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (7))])))) goto L_00b5; #line 1440 "regression-compile-tmp/imp918s.imp" if (((UNASS) != (0))) goto L_00b5; #line 1440 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (0))) goto L_00b5; #line 1440 "regression-compile-tmp/imp918s.imp" if (((NAM) != (0))) goto L_00b5; #line 1440 "regression-compile-tmp/imp918s.imp" if (((K) >= (4095))) goto L_00b5; // 1441 NAM=0 %AND K<4095 %THEN %START;! CONTROL A LOCAL SCALAR // 1442 WSPL=2; P=P+3; PASS= NAME<<16 #line 1442 "regression-compile-tmp/imp918s.imp" WSPL = 2; #line 1442 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) + (3)); #line 1442 "regression-compile-tmp/imp918s.imp" PASS = ((NAME) << (16)); // 1443 CUR CYC VAR=NAME #line 1443 "regression-compile-tmp/imp918s.imp" CURCYCVAR = NAME; // 1444 Q=P; FFLAG=0; #line 1444 "regression-compile-tmp/imp918s.imp" Q = P; #line 1444 "regression-compile-tmp/imp918s.imp" FFLAG = 0; // 1445 SKIP EXP; SKIP EXP; SKIP EXP #line 1445 "regression-compile-tmp/imp918s.imp" SKIPEXP(); #line 1445 "regression-compile-tmp/imp918s.imp" SKIPEXP(); #line 1445 "regression-compile-tmp/imp918s.imp" SKIPEXP(); // 1446 P=Q; ! CHECK FNS IN CNTRL EXPRSNS #line 1446 "regression-compile-tmp/imp918s.imp" P = Q; // 1447 CYCOPT(CFLAG,0) #line 1447 "regression-compile-tmp/imp918s.imp" CYCOPT(&CFLAG, 0); // 1448 P=Q #line 1448 "regression-compile-tmp/imp918s.imp" P = Q; // 1449 %IF CFLAG=0 %THEN CUR CYC VAR=0 #line 1449 "regression-compile-tmp/imp918s.imp" if (((CFLAG) != (0))) goto L_00b6; #line 1449 "regression-compile-tmp/imp918s.imp" CURCYCVAR = 0; #line 1449 "regression-compile-tmp/imp918s.imp" L_00b6:; // 1450 %IF CFLAG>0 %THEN BREG=CFLAG&15 #line 1450 "regression-compile-tmp/imp918s.imp" if (((CFLAG) <= (0))) goto L_00b7; #line 1450 "regression-compile-tmp/imp918s.imp" BREG = ((CFLAG) & (15)); #line 1450 "regression-compile-tmp/imp918s.imp" L_00b7:; // 1451 COPYTAG(NAME) #line 1451 "regression-compile-tmp/imp918s.imp" COPYTAG(NAME); // 1452 %IF PTYPE=8 %THEN CREG=K #line 1452 "regression-compile-tmp/imp918s.imp" if (((PTYPE) != (8))) goto L_00b8; #line 1452 "regression-compile-tmp/imp918s.imp" CREG = K; #line 1452 "regression-compile-tmp/imp918s.imp" L_00b8:; // 1453 %FINISH %ELSE %START; ! CONTROL NAMETYPE OR ARRAY ELEMENT #line 1453 "regression-compile-tmp/imp918s.imp" goto L_00b9; #line 1453 "regression-compile-tmp/imp918s.imp" L_00b5:; // 1454 CYCLE NUM=CYCLE NUM+1 #line 1454 "regression-compile-tmp/imp918s.imp" CYCLENUM = (((int)(CYCLENUM)) + (1)); // 1455 PASS=X'30000000'!CYCLE NUM<<16 #line 1455 "regression-compile-tmp/imp918s.imp" PASS = ((805306368) | (((CYCLENUM) << (16)))); // 1456 WSPL=3; CNAME(3,4) #line 1456 "regression-compile-tmp/imp918s.imp" WSPL = 3; #line 1456 "regression-compile-tmp/imp918s.imp" CNAME(3, 4); // 1457 REGISTER(4)=1 #line 1457 "regression-compile-tmp/imp918s.imp" REGISTER[4] = 1; // 1458 %FINISH #line 1458 "regression-compile-tmp/imp918s.imp" L_00b9:; // 1459 %IF BREG=2 %THEN %START; ! REGISTER PAIR NOT AVAILABLE #line 1459 "regression-compile-tmp/imp918s.imp" if (((BREG) != (2))) goto L_00ba; // 1460 GET WSP(INC,WSPL); ! WORKAREA TO INC #line 1460 "regression-compile-tmp/imp918s.imp" GETWSP(&INC, WSPL); // 1461 POP(TWSPHEAD,JJ,KK); ! MUST NOT BE FREED BEFORE REPEAT #line 1461 "regression-compile-tmp/imp918s.imp" POP(&TWSPHEAD, &JJ, &KK); // 1462 %FINISH #line 1462 "regression-compile-tmp/imp918s.imp" L_00ba:; // 1463 Q=P; SKIP EXP; JJ=P; ! Q TO 1ST EXP, JJ TO SECOND #line 1463 "regression-compile-tmp/imp918s.imp" Q = P; #line 1463 "regression-compile-tmp/imp918s.imp" SKIPEXP(); #line 1463 "regression-compile-tmp/imp918s.imp" JJ = P; // 1464 BXLE=1 %IF (3900>CA-CODEBASE %OR CYC BASE#0) %C #line 1464 "regression-compile-tmp/imp918s.imp" if (((3900) > ((((int)(CA)) - (CODEBASE))))) goto L_00bb; #line 1464 "regression-compile-tmp/imp918s.imp" if (((CYCBASE) == (0))) goto L_00bc; #line 1464 "regression-compile-tmp/imp918s.imp" L_00bb:; #line 1464 "regression-compile-tmp/imp918s.imp" if (({int tmp1 = 1, tmp2 = TSEXP(&JJJ, 0), tmp3 = 2; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_00bc; #line 1464 "regression-compile-tmp/imp918s.imp" if (((TYPE) != (1))) goto L_00bc; #line 1464 "regression-compile-tmp/imp918s.imp" BXLE = 1; #line 1464 "regression-compile-tmp/imp918s.imp" L_00bc:; // 1465 %AND 1<=TSEXP (JJJ,0)<=2 %AND TYPE=1 // 1466 P=JJ #line 1466 "regression-compile-tmp/imp918s.imp" P = JJ; // 1467 ! // 1468 ! LOAD INCREMENT AND FINAL TO BREG & BREG+1 UNLESS THIS HAS BEEN // 1469 ! DONE BY THE LOOP OPTIMISING // 1470 ! // 1471 DSEXP(BREG,0) %UNLESS BREG>2 %AND GRUSE(BREG)=14 #line 1471 "regression-compile-tmp/imp918s.imp" if (((BREG) <= (2))) goto L_00bd; #line 1471 "regression-compile-tmp/imp918s.imp" if (((GRUSE[BREG]) == (14))) goto L_00be; #line 1471 "regression-compile-tmp/imp918s.imp" L_00bd:; #line 1471 "regression-compile-tmp/imp918s.imp" DSEXP(BREG, 0); #line 1471 "regression-compile-tmp/imp918s.imp" L_00be:; // 1472 %IF BREG=2 %THEN DUMPM(X'90',2,WSPL+1,RBASE,INC);! STORE PARAMS #line 1472 "regression-compile-tmp/imp918s.imp" if (((BREG) != (2))) goto L_00bf; #line 1472 "regression-compile-tmp/imp918s.imp" DUMPM(144, 2, (((int)(WSPL)) + (1)), RBASE, INC); #line 1472 "regression-compile-tmp/imp918s.imp" L_00bf:; // 1473 DUMPSI(X'92',CYCLE NUM&255,RBASE,INC+8) %IF UNASS=1 #line 1473 "regression-compile-tmp/imp918s.imp" if (((UNASS) != (1))) goto L_00c0; #line 1473 "regression-compile-tmp/imp918s.imp" DUMPSI(146, ((CYCLENUM) & (255)), RBASE, (((int)(INC)) + (8))); #line 1473 "regression-compile-tmp/imp918s.imp" L_00c0:; // 1474 %CYCLE KK=BREG,1,BREG+WSPL-1 #line 1474 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = BREG; _increment = 1; _final = (((int)((((int)(BREG)) + (WSPL)))) - (1)); KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = BREG, 1, (((int)((((int)(BREG)) + (WSPL)))) - (1))"); KK -= _increment; _control -= _increment; L_00c1:; if (KK == _final) goto L_00c2; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 1475 %IF KK<4 %AND REGISTER(KK)>0 %THEN REGISTER(KK)=0 #line 1475 "regression-compile-tmp/imp918s.imp" if (((KK) >= (4))) goto L_00c4; #line 1475 "regression-compile-tmp/imp918s.imp" if (((REGISTER[KK]) <= (0))) goto L_00c4; #line 1475 "regression-compile-tmp/imp918s.imp" REGISTER[KK] = 0; #line 1475 "regression-compile-tmp/imp918s.imp" L_00c4:; // 1476 %IF CFLAG=0 %THEN FORGET(KK) %ELSE SET USE(KK,14,TNAME) #line 1476 "regression-compile-tmp/imp918s.imp" if (((CFLAG) != (0))) goto L_00c5; #line 1476 "regression-compile-tmp/imp918s.imp" FORGET(KK); #line 1476 "regression-compile-tmp/imp918s.imp" goto L_00c6; #line 1476 "regression-compile-tmp/imp918s.imp" L_00c5:; #line 1476 "regression-compile-tmp/imp918s.imp" SETUSE(KK, 14, TNAME); #line 1476 "regression-compile-tmp/imp918s.imp" L_00c6:; // 1477 %REPEAT #line 1477 "regression-compile-tmp/imp918s.imp" goto L_00c1; #line 1477 "regression-compile-tmp/imp918s.imp" L_00c2:; // 1478 P=Q; CSEXP(CREG,1) #line 1478 "regression-compile-tmp/imp918s.imp" P = Q; #line 1478 "regression-compile-tmp/imp918s.imp" CSEXP(CREG, 1); // 1479 FORGET(CREG); ! BEFORE PPJ TO AVOID A BOOTOUT #line 1479 "regression-compile-tmp/imp918s.imp" FORGET(CREG); // 1480 REGISTER(CREG)=1 #line 1480 "regression-compile-tmp/imp918s.imp" REGISTER[CREG] = 1; // 1481 %IF CHECKSP=1 %THEN DUMP(0,2,INC,0,RBASE);! LA 2, CYCLE PARAMS #line 1481 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (1))) goto L_00c7; #line 1481 "regression-compile-tmp/imp918s.imp" DUMP(0, 2, INC, 0, RBASE); #line 1481 "regression-compile-tmp/imp918s.imp" L_00c7:; // 1482 REGISTER(CREG)=0; MONE=1 #line 1482 "regression-compile-tmp/imp918s.imp" REGISTER[CREG] = 0; #line 1482 "regression-compile-tmp/imp918s.imp" MONE = 1; // 1483 %IF CHECKSP=1 %THEN PPJ(17);! CHECK VALIDITY #line 1483 "regression-compile-tmp/imp918s.imp" if (((CHECKSP) != (1))) goto L_00c8; #line 1483 "regression-compile-tmp/imp918s.imp" PPJ(17); #line 1483 "regression-compile-tmp/imp918s.imp" L_00c8:; // 1484 %FINISH #line 1484 "regression-compile-tmp/imp918s.imp" L_00b2:; // 1485 PLABEL=PLABEL-1; PASS=PASS!PLABEL #line 1485 "regression-compile-tmp/imp918s.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 1485 "regression-compile-tmp/imp918s.imp" PASS = ((PASS) | (PLABEL)); // 1486 PUSH123(LABEL(LEVEL),CA,0,PLABEL);! STORE LABEL #line 1486 "regression-compile-tmp/imp918s.imp" PUSH123(&LABEL[LEVEL], CA, 0, PLABEL); // 1487 CCSTATE=-1; LCA=0 #line 1487 "regression-compile-tmp/imp918s.imp" CCSTATE = (-1); #line 1487 "regression-compile-tmp/imp918s.imp" LCA = 0; // 1488 %IF OPEN#0 %THEN %START #line 1488 "regression-compile-tmp/imp918s.imp" if (((OPEN) == (0))) goto L_00c9; // 1489 PLABEL=PLABEL-1 #line 1489 "regression-compile-tmp/imp918s.imp" PLABEL = (((int)(PLABEL)) - (1)); // 1490 FORGETM(14) #line 1490 "regression-compile-tmp/imp918s.imp" FORGETM(14); // 1491 %FINISH %ELSE %START #line 1491 "regression-compile-tmp/imp918s.imp" goto L_00ca; #line 1491 "regression-compile-tmp/imp918s.imp" L_00c9:; // 1492 %CYCLE JJ=0,1,22 #line 1492 "regression-compile-tmp/imp918s.imp" JJ = (-1); if ((((22)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, 22"); L_00cb:; if (JJ == 22) goto L_00cc; JJ += 1; // 1493 FORGET(JJ) %IF REGISTER(JJ)=0 %AND GRUSE(JJ)#14 #line 1493 "regression-compile-tmp/imp918s.imp" if (((REGISTER[JJ]) != (0))) goto L_00ce; #line 1493 "regression-compile-tmp/imp918s.imp" if (((GRUSE[JJ]) == (14))) goto L_00ce; #line 1493 "regression-compile-tmp/imp918s.imp" FORGET(JJ); #line 1493 "regression-compile-tmp/imp918s.imp" L_00ce:; // 1494 %REPEAT #line 1494 "regression-compile-tmp/imp918s.imp" goto L_00cb; #line 1494 "regression-compile-tmp/imp918s.imp" L_00cc:; // 1495 %IF WSPL=3 %THEN %START #line 1495 "regression-compile-tmp/imp918s.imp" if (((WSPL) != (3))) goto L_00cf; // 1496 DUMP(1,1,0,0,4) #line 1496 "regression-compile-tmp/imp918s.imp" DUMP(1, 1, 0, 0, 4); // 1497 REGISTER(4)=0 #line 1497 "regression-compile-tmp/imp918s.imp" REGISTER[4] = 0; // 1498 %FINISH %ELSE %START #line 1498 "regression-compile-tmp/imp918s.imp" goto L_00d0; #line 1498 "regression-compile-tmp/imp918s.imp" L_00cf:; // 1499 %IF CREG=1 %THEN %START #line 1499 "regression-compile-tmp/imp918s.imp" if (((CREG) != (1))) goto L_00d1; // 1500 P=PP; CNAME(1,1) #line 1500 "regression-compile-tmp/imp918s.imp" P = PP; #line 1500 "regression-compile-tmp/imp918s.imp" CNAME(1, 1); // 1501 DUMP(1,1,DISP,INDEX,BASE) #line 1501 "regression-compile-tmp/imp918s.imp" DUMP(1, 1, DISP, INDEX, BASE); // 1502 %FINISH #line 1502 "regression-compile-tmp/imp918s.imp" L_00d1:; // 1503 NOTE ASSMENT(CREG,2,NAME) #line 1503 "regression-compile-tmp/imp918s.imp" NOTEASSMENT(CREG, 2, NAME); // 1504 %IF CREG#1 %THEN REGISTER(CREG)=-1 #line 1504 "regression-compile-tmp/imp918s.imp" if (((CREG) == (1))) goto L_00d2; #line 1504 "regression-compile-tmp/imp918s.imp" REGISTER[CREG] = (-1); #line 1504 "regression-compile-tmp/imp918s.imp" L_00d2:; // 1505 %FINISH #line 1505 "regression-compile-tmp/imp918s.imp" L_00d0:; // 1506 INC=INC!BXLE<<15 #line 1506 "regression-compile-tmp/imp918s.imp" INC = ((INC) | (((BXLE) << (15)))); // 1507 %FINISH #line 1507 "regression-compile-tmp/imp918s.imp" L_00ca:; // 1508 XLABEL=XLABEL-1 #line 1508 "regression-compile-tmp/imp918s.imp" XLABEL = (((int)(XLABEL)) - (1)); // 1509 PUSH123(CYCLE(LEVEL),PASS,XLABEL<<16!INC,CREG<<16!BREG) #line 1509 "regression-compile-tmp/imp918s.imp" PUSH123(&CYCLE[LEVEL], PASS, ((((XLABEL) << (16))) | (INC)), ((((CREG) << (16))) | (BREG))); // 1510 %END; ->Label1 #line 1510 "regression-compile-tmp/imp918s.imp" return; } // End of block _BLOCK_3_LEVEL_2_ at level 3 _BLOCK_3_LEVEL_2_(); #line 1510 "regression-compile-tmp/imp918s.imp" goto U_100f; // 1511 ! // 1512 SW(3): !REPEAT #line 1512 "regression-compile-tmp/imp918s.imp" sw2_SW_3:; // 1513 %BEGIN #line 1513 "regression-compile-tmp/imp918s.imp" void _BLOCK_4_LEVEL_2_(void) { // 1514 {%SHORTROUTINE} // 1515 %INTEGER NAME,TOPREG,CNUM,DSP,WSPL,LAB,KK,BREG,ELABEL,EUSED,CREG #line 1515 "regression-compile-tmp/imp918s.imp" int NAME; #line 1515 "regression-compile-tmp/imp918s.imp" int TOPREG; #line 1515 "regression-compile-tmp/imp918s.imp" int CNUM; #line 1515 "regression-compile-tmp/imp918s.imp" int DSP; #line 1515 "regression-compile-tmp/imp918s.imp" int WSPL; #line 1515 "regression-compile-tmp/imp918s.imp" int LAB; #line 1515 "regression-compile-tmp/imp918s.imp" int KK; #line 1515 "regression-compile-tmp/imp918s.imp" int BREG; #line 1515 "regression-compile-tmp/imp918s.imp" int ELABEL; #line 1515 "regression-compile-tmp/imp918s.imp" int EUSED; #line 1515 "regression-compile-tmp/imp918s.imp" int CREG; // 1516 %SHORTINTEGER HEAD #line 1516 "regression-compile-tmp/imp918s.imp" short HEAD; // 1517 %SWITCH CTYPE(0:3) #line 1517 "regression-compile-tmp/imp918s.imp" static int sw3_CTYPE_idx; static const void * /*SWITCH*/ sw3_CTYPE[4] = { &&sw3_CTYPE_0, &&sw3_CTYPE_1, &&sw3_CTYPE_2, &&sw3_CTYPE_3, }; // 1518 SET LINE #line 1518 "regression-compile-tmp/imp918s.imp" SETLINE(); // 1519 %IF -1<=FROM1(CYCLE(LEVEL))<=0 %THEN FAULT(1,0) %AND ->Label1 #line 1519 "regression-compile-tmp/imp918s.imp" if (({int tmp1 = (-1), tmp2 = FROM1(CYCLE[LEVEL]), tmp3 = 0; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_00d3; #line 1519 "regression-compile-tmp/imp918s.imp" FAULT(1, 0); #line 1519 "regression-compile-tmp/imp918s.imp" goto U_1016; #line 1519 "regression-compile-tmp/imp918s.imp" L_00d3:; // 1520 CUR CYC VAR=0 #line 1520 "regression-compile-tmp/imp918s.imp" CURCYCVAR = 0; // 1521 POP123(CYCLE(LEVEL),J,DSP,BREG) #line 1521 "regression-compile-tmp/imp918s.imp" POP123(&CYCLE[LEVEL], &J, &DSP, &BREG); // 1522 ELABEL=DSP>>16&X'7FFF' #line 1522 "regression-compile-tmp/imp918s.imp" ELABEL = (((int)((((unsigned int)(DSP)) >> (16)))) & (32767)); // 1523 EUSED=DSP>>31 #line 1523 "regression-compile-tmp/imp918s.imp" EUSED = (int)((((unsigned int)(DSP)) >> (31))); // 1524 BXLE=DSP>>15&1; DSP=DSP&X'7FFF'; LAB=J&X'FFFF' #line 1524 "regression-compile-tmp/imp918s.imp" BXLE = (((int)((((unsigned int)(DSP)) >> (15)))) & (1)); #line 1524 "regression-compile-tmp/imp918s.imp" DSP = ((DSP) & (32767)); #line 1524 "regression-compile-tmp/imp918s.imp" LAB = ((J) & (65535)); // 1525 CREG=BREG>>16; BREG=BREG&X'FFFF' #line 1525 "regression-compile-tmp/imp918s.imp" CREG = (int)((((unsigned int)(BREG)) >> (16))); #line 1525 "regression-compile-tmp/imp918s.imp" BREG = ((BREG) & (65535)); // 1526 ->CTYPE(J>>28) #line 1526 "regression-compile-tmp/imp918s.imp" sw3_CTYPE_idx = (int)((((unsigned int)(J)) >> (28))); if ((0 <= sw3_CTYPE_idx) && (sw3_CTYPE_idx <= 3)) goto *sw3_CTYPE[sw3_CTYPE_idx]; else { /*_imp_signal(8, 2, sw3_CTYPE_idx);*/ fprintf(stderr, "%%SWITCH index CTYPE(%d) not in range 0:3 at %s:%d\n", sw3_CTYPE_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1527 CTYPE(3): ! STEP CYCLE WITH PTR TO CONTROL #line 1527 "regression-compile-tmp/imp918s.imp" sw3_CTYPE_3:; // 1528 CNUM=J>>16&255; TOPREG=4; WSPL=3; NAME=-1; ->COM #line 1528 "regression-compile-tmp/imp918s.imp" CNUM = (((int)((((unsigned int)(J)) >> (16)))) & (255)); #line 1528 "regression-compile-tmp/imp918s.imp" TOPREG = 4; #line 1528 "regression-compile-tmp/imp918s.imp" WSPL = 3; #line 1528 "regression-compile-tmp/imp918s.imp" NAME = (-1); #line 1528 "regression-compile-tmp/imp918s.imp" goto U_1017; // 1529 CTYPE(0): ! STEP CYCLE LOCAL SCALAR CONTROL #line 1529 "regression-compile-tmp/imp918s.imp" sw3_CTYPE_0:; // 1530 TOPREG=3; WSPL=2; NAME=J>>16 #line 1530 "regression-compile-tmp/imp918s.imp" TOPREG = 3; #line 1530 "regression-compile-tmp/imp918s.imp" WSPL = 2; #line 1530 "regression-compile-tmp/imp918s.imp" NAME = (int)((((unsigned int)(J)) >> (16))); // 1531 COM: ! ALL STEPWISE CYCLES #line 1531 "regression-compile-tmp/imp918s.imp" U_1017:; // 1532 %IF UNASS=1 %THEN %START; ! CHECK CYCLE ENTERD OK #line 1532 "regression-compile-tmp/imp918s.imp" if (((UNASS) != (1))) goto L_00d4; // 1533 DUMPSI(X'95',CNUM,RBASE,DSP+8);! CLI CYCLE WK AREA,CODE NO #line 1533 "regression-compile-tmp/imp918s.imp" DUMPSI(149, CNUM, RBASE, (((int)(DSP)) + (8))); // 1534 PCONST(X'477C0028'); ! BNE UNASSIGNED VARIABLE USED #line 1534 "regression-compile-tmp/imp918s.imp" PCONST(1199308840); // 1535 %FINISH #line 1535 "regression-compile-tmp/imp918s.imp" L_00d4:; // 1536 ! // 1537 ! LOAD UP CYCLE PARAMETERS FROM WKAREA UNLESS THEY ARE LOADED ALREADY // 1538 ! // 1539 %UNLESS BREG>2 %OR (GRUSE(2)=14=GRUSE(3) %AND %C #line 1539 "regression-compile-tmp/imp918s.imp" if (((BREG) > (2))) goto L_00d5; #line 1539 "regression-compile-tmp/imp918s.imp" if ((((GRUSE[2]) != (14))) || (((14) != (GRUSE[3])))) goto L_00d6; #line 1539 "regression-compile-tmp/imp918s.imp" if (((GRUSE[4]) == (14))) goto L_00d5; #line 1539 "regression-compile-tmp/imp918s.imp" if (((NAME) >= (0))) goto L_00d5; #line 1539 "regression-compile-tmp/imp918s.imp" L_00d6:; // 1540 (GRUSE(4)=14 %OR NAME>=0)) %THEN %START // 1541 DUMPM(X'98',2,TOPREG,RBASE,DSP);! LM CYCLE PARAMS #line 1541 "regression-compile-tmp/imp918s.imp" DUMPM(152, 2, TOPREG, RBASE, DSP); // 1542 %CYCLE I=1,1,TOPREG #line 1542 "regression-compile-tmp/imp918s.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = TOPREG; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, TOPREG"); I -= _increment; _control -= _increment; L_00d7:; if (I == _final) goto L_00d8; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1543 FORGET(I); ! FORGET REGISTER USED #line 1543 "regression-compile-tmp/imp918s.imp" FORGET(I); // 1544 %REPEAT #line 1544 "regression-compile-tmp/imp918s.imp" goto L_00d7; #line 1544 "regression-compile-tmp/imp918s.imp" L_00d8:; // 1545 %FINISH #line 1545 "regression-compile-tmp/imp918s.imp" L_00d5:; // 1546 ! // 1547 ! NOW GET CONTROL TO REG 1 VIA POINTER OR DIRECTLY AS RELEVANT // 1548 ! // 1549 %IF NAME<0 %THEN %START; ! VIA POINTER (REGS NOT ALLOCATED) #line 1549 "regression-compile-tmp/imp918s.imp" if (((NAME) >= (0))) goto L_00da; // 1550 PRX(X'58',1,0,4,0) #line 1550 "regression-compile-tmp/imp918s.imp" PRX(88, 1, 0, 4, 0); // 1551 REGISTER(4)=1 #line 1551 "regression-compile-tmp/imp918s.imp" REGISTER[4] = 1; // 1552 %FINISH %ELSE %START; ! LOCAL SCALAR USE CNAME #line 1552 "regression-compile-tmp/imp918s.imp" goto L_00db; #line 1552 "regression-compile-tmp/imp918s.imp" L_00da:; // 1553 P=R; A(P)=NAME #line 1553 "regression-compile-tmp/imp918s.imp" P = R; #line 1553 "regression-compile-tmp/imp918s.imp" A[((P) + ((int)(7)))] = NAME; // 1554 A(P+1)=2; A(P+2)=2; ! SET NO APP OR ENAME #line 1554 "regression-compile-tmp/imp918s.imp" A[(((unsigned char)((((int)(P)) + (1)))) + (7))] = 2; #line 1554 "regression-compile-tmp/imp918s.imp" A[(((unsigned char)((((int)(P)) + (2)))) + (7))] = 2; // 1555 CNAME(2,CREG); ! CONTROL -> R1 OPTIMUM METHOD #line 1555 "regression-compile-tmp/imp918s.imp" CNAME(2, CREG); // 1556 %FINISH #line 1556 "regression-compile-tmp/imp918s.imp" L_00db:; // 1557 ! // 1558 ! NOW PLANT CODE TO DO THE TEST AND BRANCH.AGAIN 2 WAYS POSSIBLE // 1559 ! // 1560 %IF BXLE=0 %THEN %START; ! THE TEDIOUS BUT VALID ROUTE #line 1560 "regression-compile-tmp/imp918s.imp" if (((BXLE) != (0))) goto L_00dc; // 1561 PRR(X'18',0,CREG); ! LR 0,1 #line 1561 "regression-compile-tmp/imp918s.imp" PRR(24, 0, CREG); // 1562 PRR(X'1A',CREG,BREG); ! AR 1,INC #line 1562 "regression-compile-tmp/imp918s.imp" PRR(26, CREG, BREG); // 1563 PRR(X'19',0,BREG+1); ! CR 0,FINAL #line 1563 "regression-compile-tmp/imp918s.imp" PRR(25, 0, (((int)(BREG)) + (1))); // 1564 FORGET(0) #line 1564 "regression-compile-tmp/imp918s.imp" FORGET(0); // 1565 REGISTER(CREG)=1; ! JUMP MAY LOAD 4K MULTIPLE #line 1565 "regression-compile-tmp/imp918s.imp" REGISTER[CREG] = 1; // 1566 REGISTER(BREG)=1; ! SO PROTECT REGISTER IN USE #line 1566 "regression-compile-tmp/imp918s.imp" REGISTER[BREG] = 1; // 1567 REGISTER(BREG+1)=1 #line 1567 "regression-compile-tmp/imp918s.imp" REGISTER[(((int)(BREG)) + (1))] = 1; // 1568 ENTER JUMP(7,LAB,0); ! BNE #line 1568 "regression-compile-tmp/imp918s.imp" ENTERJUMP(7, LAB, 0); // 1569 %FINISH %ELSE %START; ! THE BXLE INSTRUCTION CAN BE USED #line 1569 "regression-compile-tmp/imp918s.imp" goto L_00dd; #line 1569 "regression-compile-tmp/imp918s.imp" L_00dc:; // 1570 KK=FIND3(LAB,LABEL(LEVEL)) #line 1570 "regression-compile-tmp/imp918s.imp" KK = FIND3(LAB, LABEL[LEVEL]); // 1571 KK=FROM1(KK); ! EXTRACT LABEL ADDRESS #line 1571 "regression-compile-tmp/imp918s.imp" KK = FROM1(KK); // 1572 %IF CYC BASE=0 %THEN I=10 %AND KK=KK-CODEBASE %ELSE %C #line 1572 "regression-compile-tmp/imp918s.imp" if (((CYCBASE) != (0))) goto L_00de; #line 1572 "regression-compile-tmp/imp918s.imp" I = 10; #line 1572 "regression-compile-tmp/imp918s.imp" KK = (((int)(KK)) - (CODEBASE)); #line 1572 "regression-compile-tmp/imp918s.imp" goto L_00df; #line 1572 "regression-compile-tmp/imp918s.imp" L_00de:; #line 1572 "regression-compile-tmp/imp918s.imp" I = CYCBASE; #line 1572 "regression-compile-tmp/imp918s.imp" KK = (((int)(KK)) - (CYCADDR)); #line 1572 "regression-compile-tmp/imp918s.imp" L_00df:; // 1573 I=CYC BASE %AND KK=KK-CYC ADDR // 1574 PRX(X'87',CREG,BREG,I,KK); ! BXLE 1,2, #line 1574 "regression-compile-tmp/imp918s.imp" PRX(135, CREG, BREG, I, KK); // 1575 %FINISH #line 1575 "regression-compile-tmp/imp918s.imp" L_00dd:; // 1576 %IF CREG#1 %THEN CYC REGS=CYCREGS!!(1<= (0))) goto L_00e6; #line 1586 "regression-compile-tmp/imp918s.imp" FREEANDFORGET(4); #line 1586 "regression-compile-tmp/imp918s.imp" L_00e6:; // 1587 %IF DSP#0 %THEN RETURN WSP(DSP,WSPL);!WORKAREA TO FREE LIST #line 1587 "regression-compile-tmp/imp918s.imp" if (((DSP) == (0))) goto L_00e7; #line 1587 "regression-compile-tmp/imp918s.imp" RETURNWSP(DSP, WSPL); #line 1587 "regression-compile-tmp/imp918s.imp" L_00e7:; // 1588 %IF UNASS=1 %THEN DUMPSI(X'92',0,RBASE,DSP+8) #line 1588 "regression-compile-tmp/imp918s.imp" if (((UNASS) != (1))) goto L_00e8; #line 1588 "regression-compile-tmp/imp918s.imp" DUMPSI(146, 0, RBASE, (((int)(DSP)) + (8))); #line 1588 "regression-compile-tmp/imp918s.imp" L_00e8:; // 1589 CYC REGS=0; CYC BASE=0 #line 1589 "regression-compile-tmp/imp918s.imp" CYCREGS = 0; #line 1589 "regression-compile-tmp/imp918s.imp" CYCBASE = 0; // 1590 CCSTATE=-1; ->Label1 #line 1590 "regression-compile-tmp/imp918s.imp" CCSTATE = (-1); #line 1590 "regression-compile-tmp/imp918s.imp" goto U_1016; // 1591 CTYPE(1): ! '%WHILE' '%CYCLE' #line 1591 "regression-compile-tmp/imp918s.imp" sw3_CTYPE_1:; // 1592 ENTER JUMP(15,LAB,0); ! UNCONDITIONALLY TO WHILE CLAUS #line 1592 "regression-compile-tmp/imp918s.imp" ENTERJUMP(15, LAB, 0); // 1593 ENTER LAB(LAB-1,B'111'); ! CONDITIONAL/REPLACE ENV #line 1593 "regression-compile-tmp/imp918s.imp" ENTERLAB((((int)(LAB)) - (1)), 7); // 1594 ->Label2 #line 1594 "regression-compile-tmp/imp918s.imp" goto U_1018; // 1595 CTYPE(2): ! '%UNTIL' ... '%CYCLE' #line 1595 "regression-compile-tmp/imp918s.imp" sw3_CTYPE_2:; // 1596 %IF 500-R>799-TOPPTR %THEN %START #line 1596 "regression-compile-tmp/imp918s.imp" if ((((((int)(500)) - (R))) <= ((((int)(799)) - (TOPPTR))))) goto L_00e9; // 1597 P=R+1; WSPL=499-P #line 1597 "regression-compile-tmp/imp918s.imp" P = (((int)(R)) + (1)); #line 1597 "regression-compile-tmp/imp918s.imp" WSPL = (((int)(499)) - (P)); // 1598 %FINISH %ELSE %START #line 1598 "regression-compile-tmp/imp918s.imp" goto L_00ea; #line 1598 "regression-compile-tmp/imp918s.imp" L_00e9:; // 1599 P=TOPPTR+1; WSPL=799-P #line 1599 "regression-compile-tmp/imp918s.imp" P = (((int)(TOPPTR)) + (1)); #line 1599 "regression-compile-tmp/imp918s.imp" WSPL = (((int)(799)) - (P)); // 1600 %FINISH #line 1600 "regression-compile-tmp/imp918s.imp" L_00ea:; // 1601 %IF WSPL= (DSP))) goto L_00eb; #line 1601 "regression-compile-tmp/imp918s.imp" FAULT(102, 0); #line 1601 "regression-compile-tmp/imp918s.imp" L_00eb:; // 1602 WSPL=P; P=P+DSP; HEAD=BREG #line 1602 "regression-compile-tmp/imp918s.imp" WSPL = P; #line 1602 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) + (DSP)); #line 1602 "regression-compile-tmp/imp918s.imp" HEAD = BREG; // 1603 %CYCLE; ! RETRIEVE AR FROM LIST #line 1603 "regression-compile-tmp/imp918s.imp" L_00ec:; // 1604 POP123(HEAD,JJJ,KKK,KK) #line 1604 "regression-compile-tmp/imp918s.imp" POP123(&HEAD, &JJJ, &KKK, &KK); // 1605 P=P-5 #line 1605 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) - (5)); // 1606 TOAR4(P,JJJ) #line 1606 "regression-compile-tmp/imp918s.imp" TOAR4(P, JJJ); // 1607 TOAR4(P+2,KKK) #line 1607 "regression-compile-tmp/imp918s.imp" TOAR4((((int)(P)) + (2)), KKK); // 1608 A(P+4)=KK #line 1608 "regression-compile-tmp/imp918s.imp" A[(((unsigned char)((((int)(P)) + (4)))) + (7))] = KK; // 1609 %REPEAT %UNTIL HEAD=0 #line 1609 "regression-compile-tmp/imp918s.imp" if (((HEAD) == (0))) goto L_00ed; #line 1609 "regression-compile-tmp/imp918s.imp" goto L_00ec; #line 1609 "regression-compile-tmp/imp918s.imp" L_00ed:; // 1610 A(PIN-1)=A(P); ! SET UP LINE NO OF CONDITION #line 1610 "regression-compile-tmp/imp918s.imp" A[(((unsigned char)((((int)(PIN)) - (1)))) + (7))] = A[((P) + ((int)(7)))]; // 1611 P=P+1 #line 1611 "regression-compile-tmp/imp918s.imp" P = (((int)(P)) + (1)); // 1612 R=R+DSP #line 1612 "regression-compile-tmp/imp918s.imp" R = (((int)(R)) + (DSP)); // 1613 CCOND(1,LAB) #line 1613 "regression-compile-tmp/imp918s.imp" CCOND(1, LAB); // 1614 R=R-DSP #line 1614 "regression-compile-tmp/imp918s.imp" R = (((int)(R)) - (DSP)); // 1615 Label2: CYC RESTORE #line 1615 "regression-compile-tmp/imp918s.imp" U_1018:; #line 1615 "regression-compile-tmp/imp918s.imp" CYCRESTORE(); // 1616 CYC REGS=0; CYC BASE=0 #line 1616 "regression-compile-tmp/imp918s.imp" CYCREGS = 0; #line 1616 "regression-compile-tmp/imp918s.imp" CYCBASE = 0; // 1617 Label1: %IF EUSED#0 %THEN ENTER LAB(ELABEL,B'11') #line 1617 "regression-compile-tmp/imp918s.imp" U_1016:; #line 1617 "regression-compile-tmp/imp918s.imp" if (((EUSED) == (0))) goto L_00ef; #line 1617 "regression-compile-tmp/imp918s.imp" ENTERLAB(ELABEL, 3); #line 1617 "regression-compile-tmp/imp918s.imp" L_00ef:; // 1618 %END; ->Label1 #line 1618 "regression-compile-tmp/imp918s.imp" return; } // End of block _BLOCK_4_LEVEL_2_ at level 3 _BLOCK_4_LEVEL_2_(); #line 1618 "regression-compile-tmp/imp918s.imp" goto U_100f; // 1619 ! // 1620 SW(4): ! (LABEL)':' #line 1620 "regression-compile-tmp/imp918s.imp" sw2_SW_4:; // 1621 K=A(P+1) #line 1621 "regression-compile-tmp/imp918s.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (7))]; // 1622 FAULT(2,0) %IF K=0 %OR K>16383 #line 1622 "regression-compile-tmp/imp918s.imp" if (((K) == (0))) goto L_00ee; #line 1622 "regression-compile-tmp/imp918s.imp" if (((K) <= (16383))) goto L_00f0; #line 1622 "regression-compile-tmp/imp918s.imp" L_00ee:; #line 1622 "regression-compile-tmp/imp918s.imp" FAULT(2, 0); #line 1622 "regression-compile-tmp/imp918s.imp" L_00f0:; // 1623 Label401: NMDECS=NMDECS!1 #line 1623 "regression-compile-tmp/imp918s.imp" U_1013:; #line 1623 "regression-compile-tmp/imp918s.imp" NMDECS = ((NMDECS) | (1)); // 1624 ENTER LAB(K,0) #line 1624 "regression-compile-tmp/imp918s.imp" ENTERLAB(K, 0); // 1625 CYC BITS=CYC BITS!1; ! SET 'LABEL' BIT #line 1625 "regression-compile-tmp/imp918s.imp" CYCBITS = ((CYCBITS) | (1)); // 1626 ->Label1 #line 1626 "regression-compile-tmp/imp918s.imp" goto U_100f; // 1627 ! // 1628 SW(5): ! (%IU)(COND)%THEN(UI)(ELSE') #line 1628 "regression-compile-tmp/imp918s.imp" sw2_SW_5:; // 1629 MARKIU=P+1; MARKC=MARKIU+2 #line 1629 "regression-compile-tmp/imp918s.imp" MARKIU = (((int)(P)) + (1)); #line 1629 "regression-compile-tmp/imp918s.imp" MARKC = (((int)(MARKIU)) + (2)); // 1630 MARKR=P+2+A(P+2); MARKE=0 #line 1630 "regression-compile-tmp/imp918s.imp" MARKR = (((short)((((int)(P)) + (2)))) + (A[(((unsigned char)((((int)(P)) + (2)))) + (7))])); #line 1630 "regression-compile-tmp/imp918s.imp" MARKE = 0; // 1631 %IF A(MARKR)=3 %THEN %START #line 1631 "regression-compile-tmp/imp918s.imp" if (((A[((MARKR) + ((int)(7)))]) != (3))) goto L_00f1; // 1632 MARKE=MARKR+1+A(MARKR+1); MARKUI=MARKR+2 #line 1632 "regression-compile-tmp/imp918s.imp" MARKE = (((short)((((int)(MARKR)) + (1)))) + (A[(((unsigned char)((((int)(MARKR)) + (1)))) + (7))])); #line 1632 "regression-compile-tmp/imp918s.imp" MARKUI = (((int)(MARKR)) + (2)); // 1633 %FINISH #line 1633 "regression-compile-tmp/imp918s.imp" L_00f1:; // 1634 SET LINE %IF LINENOS#0 #line 1634 "regression-compile-tmp/imp918s.imp" if (((LINENOS) == (0))) goto L_00f2; #line 1634 "regression-compile-tmp/imp918s.imp" SETLINE(); #line 1634 "regression-compile-tmp/imp918s.imp" L_00f2:; // 1635 CONEXP: %BEGIN #line 1635 "regression-compile-tmp/imp918s.imp" U_1014:; #line 1635 "regression-compile-tmp/imp918s.imp" void _BLOCK_5_LEVEL_2_(void) { // 1636 !*********************************************************************** // 1637 !* THIS BLOCK COMPILES CONDITIONAL EXPRESSIONS.IT REQUIRES THE * // 1638 !* FOLLOWING GLOBAL POINTERS TO BE SET TO THEIR A .R. ENTRY. * // 1639 !* MARKIU TO THE ENTRY FOR P(%IU) * // 1640 !* MARKC TO THE ENTRY FOR P(COND) * // 1641 !* MARKUI TO THE ENTRY FOR (FIRST OCCURRENCE OF) P(UI) * // 1642 !* MARKE TO THE ENTRY FOR P(ELSE') - =0 FOR BACKWARDS CONDITION* // 1643 !* MARKR TO ENTRY FOR P(RESTOFIU) * // 1644 !*********************************************************************** // 1645 {%SHORTROUTINE} // 1646 MARKIU=A(MARKIU); ! ALT OF IU 1=%IF,2=%UNLESS #line 1646 "regression-compile-tmp/imp918s.imp" MARKIU = A[((MARKIU) + ((int)(7)))]; // 1647 KKK=-1 #line 1647 "regression-compile-tmp/imp918s.imp" KKK = (-1); // 1648 %IF MARKR>0 %AND A(MARKR)<=2 %START;! '%START' OR '%THENSTART' #line 1648 "regression-compile-tmp/imp918s.imp" if (((MARKR) <= (0))) goto L_00f3; #line 1648 "regression-compile-tmp/imp918s.imp" if (((A[((MARKR) + ((int)(7)))]) > (2))) goto L_00f3; // 1649 KKK=SFLABEL-1 #line 1649 "regression-compile-tmp/imp918s.imp" KKK = (((int)(SFLABEL)) - (1)); // 1650 P=MARKC; CCOND(MARKIU,KKK) #line 1650 "regression-compile-tmp/imp918s.imp" P = MARKC; #line 1650 "regression-compile-tmp/imp918s.imp" CCOND(MARKIU, KKK); // 1651 CSTART(1) #line 1651 "regression-compile-tmp/imp918s.imp" CSTART(1); // 1652 ->Label1 #line 1652 "regression-compile-tmp/imp918s.imp" goto U_1019; // 1653 %FINISH #line 1653 "regression-compile-tmp/imp918s.imp" L_00f3:; // 1654 %IF A(MARKUI)=2 %AND (A(MARKUI+1)<2 %OR A(MARKUI+3)=2) %THEN %C #line 1654 "regression-compile-tmp/imp918s.imp" if (((A[((MARKUI) + ((int)(7)))]) != (2))) goto L_00f4; #line 1654 "regression-compile-tmp/imp918s.imp" if (((A[(((unsigned char)((((int)(MARKUI)) + (1)))) + (7))]) < (2))) goto L_00f5; #line 1654 "regression-compile-tmp/imp918s.imp" if (((A[(((unsigned char)((((int)(MARKUI)) + (3)))) + (7))]) != (2))) goto L_00f4; #line 1654 "regression-compile-tmp/imp918s.imp" L_00f5:; #line 1654 "regression-compile-tmp/imp918s.imp" KKK = ((A[(((unsigned char)((((int)(MARKUI)) + (2)))) + (7))]) + ((short)((((((int)(A[(((unsigned char)((((int)(MARKUI)) + (1)))) + (7))])) - (1))) << (14))))); #line 1654 "regression-compile-tmp/imp918s.imp" L_00f4:; // 1655 KKK=A(MARKUI+2)+(A(MARKUI+1)-1)<<14;! UI = SIMPLE LABEL // 1656 ! // 1657 %IF A(MARKUI)=8 %AND CYCLE(LEVEL)#0 %START; ! VALID EXIT #line 1657 "regression-compile-tmp/imp918s.imp" if (((A[((MARKUI) + ((int)(7)))]) != (8))) goto L_00f6; #line 1657 "regression-compile-tmp/imp918s.imp" if (((CYCLE[LEVEL]) == (0))) goto L_00f6; // 1658 KKK=FROM2(CYCLE(LEVEL)) #line 1658 "regression-compile-tmp/imp918s.imp" KKK = FROM2(CYCLE[LEVEL]); // 1659 REPLACE2(CYCLE(LEVEL),KKK!X'80000000') #line 1659 "regression-compile-tmp/imp918s.imp" REPLACE2(CYCLE[LEVEL], ((KKK) | ((-2147483648)))); // 1660 KKK=KKK>>16&X'7FFF' #line 1660 "regression-compile-tmp/imp918s.imp" KKK = (((int)((((unsigned int)(KKK)) >> (16)))) & (32767)); // 1661 %FINISH #line 1661 "regression-compile-tmp/imp918s.imp" L_00f6:; // 1662 ! // 1663 %IF KKK>=0 %THEN %START; ! FIRST UI IS'->'