#include // 1 !!%CONTROL 0 // 2 %BEGIN #line 2 "regression-compile-tmp/skimpais.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 3 // 4 %routine newpage #line 4 "regression-compile-tmp/skimpais.imp" void NEWPAGE( void ) #line 4 "regression-compile-tmp/skimpais.imp" { // 5 printsymbol('L'&31) #line 5 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL(((76) & (31))); // 6 %end #line 6 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block NEWPAGE at level 2 // 7 // 8 %routine xreadsym(%integername sym) #line 8 "regression-compile-tmp/skimpais.imp" void XREADSYM( int /*name*/*SYM ) #line 8 "regression-compile-tmp/skimpais.imp" { // 9 readsymbol(sym) ; printsymbol(sym) #line 9 "regression-compile-tmp/skimpais.imp" _imp_READSYMBOL(SYM); #line 9 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL(*SYM); // 10 %end #line 10 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XREADSYM at level 2 // 11 // 12 %routine readsymbol(%integername sym) #line 12 "regression-compile-tmp/skimpais.imp" void READSYMBOL( int /*name*/*SYM ) #line 12 "regression-compile-tmp/skimpais.imp" { // 13 xreadsym(sym) #line 13 "regression-compile-tmp/skimpais.imp" XREADSYM(SYM); // 14 %end #line 14 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block READSYMBOL at level 2 // 15 // 16 %routine xread(%integername num) #line 16 "regression-compile-tmp/skimpais.imp" void XREAD( int /*name*/*NUM ) #line 16 "regression-compile-tmp/skimpais.imp" { // 17 read(num) ; write(num,0) #line 17 "regression-compile-tmp/skimpais.imp" _imp_READ(NUM); #line 17 "regression-compile-tmp/skimpais.imp" _imp_WRITE(*NUM, 0); // 18 %end #line 18 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XREAD at level 2 // 19 // 20 %routine read(%integername num) #line 20 "regression-compile-tmp/skimpais.imp" void READ( int /*name*/*NUM ) #line 20 "regression-compile-tmp/skimpais.imp" { // 21 xread(num) #line 21 "regression-compile-tmp/skimpais.imp" XREAD(NUM); // 22 %end #line 22 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block READ at level 2 // 23 // 24 %INTEGERARRAY RMN,REG(0:15) #line 24 "regression-compile-tmp/skimpais.imp" int RMN[16]; #line 24 "regression-compile-tmp/skimpais.imp" int REG[16]; // 25 %INTEGERARRAY IMN(1:31) #line 25 "regression-compile-tmp/skimpais.imp" int IMN[31]; // 26 %INTEGERARRAY LMN,LAD(1:20) #line 26 "regression-compile-tmp/skimpais.imp" int LMN[20]; #line 26 "regression-compile-tmp/skimpais.imp" int LAD[20]; // 27 %INTEGERARRAY R(1:4000) #line 27 "regression-compile-tmp/skimpais.imp" int R[4000]; // 28 %INTEGERARRAY S(0:16383) #line 28 "regression-compile-tmp/skimpais.imp" int S[16384]; // 29 %INTEGER LP,RP,SP,I,J,K,L,M,N,F,MR,TR,ST,CT #line 29 "regression-compile-tmp/skimpais.imp" int LP; #line 29 "regression-compile-tmp/skimpais.imp" int RP; #line 29 "regression-compile-tmp/skimpais.imp" int SP; #line 29 "regression-compile-tmp/skimpais.imp" int I; #line 29 "regression-compile-tmp/skimpais.imp" int J; #line 29 "regression-compile-tmp/skimpais.imp" int K; #line 29 "regression-compile-tmp/skimpais.imp" int L; #line 29 "regression-compile-tmp/skimpais.imp" int M; #line 29 "regression-compile-tmp/skimpais.imp" int N; #line 29 "regression-compile-tmp/skimpais.imp" int F; #line 29 "regression-compile-tmp/skimpais.imp" int MR; #line 29 "regression-compile-tmp/skimpais.imp" int TR; #line 29 "regression-compile-tmp/skimpais.imp" int ST; #line 29 "regression-compile-tmp/skimpais.imp" int CT; // 30 %ROUTINESPEC READMN(%INTEGERNAME MN,NEXT) #line 30 "regression-compile-tmp/skimpais.imp" auto void READMN( int /*name*/*MN, int /*name*/*NEXT ); // 31 %ROUTINESPEC FAULT(%INTEGER I,J,K,L) #line 31 "regression-compile-tmp/skimpais.imp" auto void FAULT( int I, int J, int K, int L ); // 32 %ROUTINESPEC OUT(%INTEGER I) #line 32 "regression-compile-tmp/skimpais.imp" auto void OUT( int I ); // 33 %ROUTINESPEC DUMP #line 33 "regression-compile-tmp/skimpais.imp" auto void DUMP( void ); // 34 %SWITCH INS(1:31) #line 34 "regression-compile-tmp/skimpais.imp" static int sw1_INS_idx; static const void * /*SWITCH*/ sw1_INS[31] = { &&sw1_INS_1, &&sw1_INS_2, &&sw1_INS_3, &&sw1_INS_4, &&sw1_INS_5, &&sw1_INS_6, &&sw1_INS_7, &&sw1_INS_8, &&sw1_INS_9, &&sw1_INS_10, &&sw1_INS_11, &&sw1_INS_12, &&sw1_INS_13, &&sw1_INS_14, &&sw1_INS_15, &&sw1_INS_16, &&sw1_INS_17, &&sw1_INS_18, &&sw1_INS_19, &&sw1_INS_20, &&sw1_INS_21, &&sw1_INS_22, &&sw1_INS_23, &&sw1_INS_24, &&sw1_INS_25, &&sw1_INS_26, &&sw1_INS_27, &&sw1_INS_28, &&sw1_INS_29, &&sw1_INS_30, &&sw1_INS_31, }; // 35 %SWITCH IOR(0:10) #line 35 "regression-compile-tmp/skimpais.imp" static int sw2_IOR_idx; static const void * /*SWITCH*/ sw2_IOR[11] = { &&sw2_IOR_0, &&sw2_IOR_1, &&sw2_IOR_2, &&sw2_IOR_3, &&sw2_IOR_4, &&sw2_IOR_5, &&sw2_IOR_6, &&sw2_IOR_7, &&sw2_IOR_8, &&sw2_IOR_9, &&sw2_IOR_10, }; // 36 !!%EXTERNALROUTINESPEC DEFINE(%STRING(63) S) // 37 RMN(0)=M'BR0' ; RMN(1)=M'BR1' ; RMN(2)=M'BR2' #line 37 "regression-compile-tmp/skimpais.imp" RMN[0] = 4346416; #line 37 "regression-compile-tmp/skimpais.imp" RMN[1] = 4346417; #line 37 "regression-compile-tmp/skimpais.imp" RMN[2] = 4346418; // 38 RMN(3)=M'BR3' ; RMN(4)=M'BR4' ; RMN(5)=M'BR5' #line 38 "regression-compile-tmp/skimpais.imp" RMN[3] = 4346419; #line 38 "regression-compile-tmp/skimpais.imp" RMN[4] = 4346420; #line 38 "regression-compile-tmp/skimpais.imp" RMN[5] = 4346421; // 39 RMN(6)=M'BR6' ; RMN(7)=M'BR7' ; RMN(8)=M'BR8' #line 39 "regression-compile-tmp/skimpais.imp" RMN[6] = 4346422; #line 39 "regression-compile-tmp/skimpais.imp" RMN[7] = 4346423; #line 39 "regression-compile-tmp/skimpais.imp" RMN[8] = 4346424; // 40 RMN(9)=M'BR9' ; RMN(10)=M'BR10'; RMN(11)=M'BR11' #line 40 "regression-compile-tmp/skimpais.imp" RMN[9] = 4346425; #line 40 "regression-compile-tmp/skimpais.imp" RMN[10] = 1112682800; #line 40 "regression-compile-tmp/skimpais.imp" RMN[11] = 1112682801; // 41 RMN(12)=M'BR12'; RMN(13)=M'WK' ; RMN(14)=M'STP' #line 41 "regression-compile-tmp/skimpais.imp" RMN[12] = 1112682802; #line 41 "regression-compile-tmp/skimpais.imp" RMN[13] = 22347; #line 41 "regression-compile-tmp/skimpais.imp" RMN[14] = 5461072; // 42 RMN(15)=M'ACC' #line 42 "regression-compile-tmp/skimpais.imp" RMN[15] = 4277059; // 43 IMN(1)=M'LOAD' ; IMN(2)=M'LDA' ; IMN(3)=M'ADD' #line 43 "regression-compile-tmp/skimpais.imp" IMN[0] = 1280262468; #line 43 "regression-compile-tmp/skimpais.imp" IMN[1] = 4998209; #line 43 "regression-compile-tmp/skimpais.imp" IMN[2] = 4277316; // 44 IMN(4)=M'SUB' ; IMN(5)=M'MLT' ; IMN(6)=M'DIV' #line 44 "regression-compile-tmp/skimpais.imp" IMN[3] = 5461314; #line 44 "regression-compile-tmp/skimpais.imp" IMN[4] = 5065812; #line 44 "regression-compile-tmp/skimpais.imp" IMN[5] = 4475222; // 45 IMN(7)=M'EXP' ; IMN(8)=M'STR' ; IMN(9)=M'NEG' #line 45 "regression-compile-tmp/skimpais.imp" IMN[6] = 4544592; #line 45 "regression-compile-tmp/skimpais.imp" IMN[7] = 5461074; #line 45 "regression-compile-tmp/skimpais.imp" IMN[8] = 5129543; // 46 IMN(10)=M'NOT' ; IMN(11)=M'SHL' ; IMN(12)=M'SHR' #line 46 "regression-compile-tmp/skimpais.imp" IMN[9] = 5132116; #line 46 "regression-compile-tmp/skimpais.imp" IMN[10] = 5457996; #line 46 "regression-compile-tmp/skimpais.imp" IMN[11] = 5458002; // 47 IMN(13)=M'AND' ; IMN(14)=M'OR' ; IMN(15)=M'XOR' #line 47 "regression-compile-tmp/skimpais.imp" IMN[12] = 4279876; #line 47 "regression-compile-tmp/skimpais.imp" IMN[13] = 20306; #line 47 "regression-compile-tmp/skimpais.imp" IMN[14] = 5787474; // 48 IMN(16)=M'BAL' ; IMN(17)=M'B' ; IMN(18)=M'BZ' #line 48 "regression-compile-tmp/skimpais.imp" IMN[15] = 4342092; #line 48 "regression-compile-tmp/skimpais.imp" IMN[16] = 66; #line 48 "regression-compile-tmp/skimpais.imp" IMN[17] = 16986; // 49 IMN(19)=M'BNZ' ; IMN(20)=M'BG' ; IMN(21)=M'BNG' #line 49 "regression-compile-tmp/skimpais.imp" IMN[18] = 4345434; #line 49 "regression-compile-tmp/skimpais.imp" IMN[19] = 16967; #line 49 "regression-compile-tmp/skimpais.imp" IMN[20] = 4345415; // 50 IMN(22)=M'BL' ; IMN(23)=M'BNL' ; IMN(24)=M'STOP' #line 50 "regression-compile-tmp/skimpais.imp" IMN[21] = 16972; #line 50 "regression-compile-tmp/skimpais.imp" IMN[22] = 4345420; #line 50 "regression-compile-tmp/skimpais.imp" IMN[23] = 1398034256; // 51 IMN(25)=M'ADDF'; IMN(26)=M'SUBF'; IMN(27)=M'MLTF' #line 51 "regression-compile-tmp/skimpais.imp" IMN[24] = 1094992966; #line 51 "regression-compile-tmp/skimpais.imp" IMN[25] = 1398096454; #line 51 "regression-compile-tmp/skimpais.imp" IMN[26] = 1296847942; // 52 IMN(28)=M'DIVF'; IMN(29)=M'EXPF'; IMN(30)=M'NEGF' #line 52 "regression-compile-tmp/skimpais.imp" IMN[27] = 1145656902; #line 52 "regression-compile-tmp/skimpais.imp" IMN[28] = 1163415622; #line 52 "regression-compile-tmp/skimpais.imp" IMN[29] = 1313163078; // 53 IMN(31)=M'FLT' #line 53 "regression-compile-tmp/skimpais.imp" IMN[30] = 4607060; // 54 LP=1 #line 54 "regression-compile-tmp/skimpais.imp" LP = 1; // 55 RP=1 #line 55 "regression-compile-tmp/skimpais.imp" RP = 1; // 56 SP=0 #line 56 "regression-compile-tmp/skimpais.imp" SP = 0; // 57 F=0 #line 57 "regression-compile-tmp/skimpais.imp" F = 0; // 58 MR=0 #line 58 "regression-compile-tmp/skimpais.imp" MR = 0; // 59 TR=0 #line 59 "regression-compile-tmp/skimpais.imp" TR = 0; // 60 !! DEFINE('STREAM01,SKIMPO') // 61 open input(1, "skimp77.asm") #line 61 "regression-compile-tmp/skimpais.imp" _imp_OPENINPUT(1, _imp_str_literal("skimp77.asm")); // 62 SELECT INPUT(1) #line 62 "regression-compile-tmp/skimpais.imp" _imp_SELECTINPUT(1); // 63 !!L1: READ SYMBOL(I) // 64 L1: %begin #line 64 "regression-compile-tmp/skimpais.imp" U_1000:; #line 64 "regression-compile-tmp/skimpais.imp" void _BLOCK_1_LEVEL_1_(void) { // 65 %on %event 9 %start #line 65 "regression-compile-tmp/skimpais.imp" if (!_imp_on_event(9)) goto L_0002; /* TO DO: Remove %on %event handler just before L_0002: if present for this block */ // 66 print string("End of file reading skimp77.asm, not while executing it..."); newline #line 66 "regression-compile-tmp/skimpais.imp" _imp_PRINTSTRING(_imp_str_literal("End of file reading skimp77.asm, not while executing it...")); #line 66 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 67 ! So what is supposed to signify end of the skimp assembly code? // 68 %stop #line 68 "regression-compile-tmp/skimpais.imp" exit(0); // 69 %finish #line 69 "regression-compile-tmp/skimpais.imp" L_0002:; // 70 READ SYMBOL(I) #line 70 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 71 %end #line 71 "regression-compile-tmp/skimpais.imp" return; } // End of block _BLOCK_1_LEVEL_1_ at level 2 _BLOCK_1_LEVEL_1_(); // 72 %if i = ';' %then %start #line 72 "regression-compile-tmp/skimpais.imp" if (((I) != (59))) goto L_0003; // 73 %cycle ;! skip comments. comments with a '.' in them were causing errors. #line 73 "regression-compile-tmp/skimpais.imp" L_0004:; // 74 read symbol(i) #line 74 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 75 %repeat %until i = NL #line 75 "regression-compile-tmp/skimpais.imp" if (((I) == (10))) goto L_0005; #line 75 "regression-compile-tmp/skimpais.imp" goto L_0004; #line 75 "regression-compile-tmp/skimpais.imp" L_0005:; // 76 ->L1 #line 76 "regression-compile-tmp/skimpais.imp" goto U_1000; // 77 %finish #line 77 "regression-compile-tmp/skimpais.imp" L_0003:; // 78 %IF I='''' %THEN %START #line 78 "regression-compile-tmp/skimpais.imp" if (((I) != (39))) goto L_0007; // 79 L10: READ SYMBOL(I) #line 79 "regression-compile-tmp/skimpais.imp" U_1001:; #line 79 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 80 %IF I\='''' %THEN ->L10 #line 80 "regression-compile-tmp/skimpais.imp" if (((I) == (39))) goto L_0008; #line 80 "regression-compile-tmp/skimpais.imp" goto U_1001; #line 80 "regression-compile-tmp/skimpais.imp" L_0008:; // 81 ->L1 ; %FINISH #line 81 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 81 "regression-compile-tmp/skimpais.imp" L_0007:; // 82 %IF I\='.' %THEN ->L1 #line 82 "regression-compile-tmp/skimpais.imp" if (((I) == (46))) goto L_0009; #line 82 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 82 "regression-compile-tmp/skimpais.imp" L_0009:; // 83 READMN(I,J) #line 83 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 84 %IF J=':' %THEN %START #line 84 "regression-compile-tmp/skimpais.imp" if (((J) != (58))) goto L_000a; // 85 %IF LP=1 %THEN ->L2 #line 85 "regression-compile-tmp/skimpais.imp" if (((LP) != (1))) goto L_000b; #line 85 "regression-compile-tmp/skimpais.imp" goto U_1002; #line 85 "regression-compile-tmp/skimpais.imp" L_000b:; // 86 K=1 #line 86 "regression-compile-tmp/skimpais.imp" K = 1; // 87 L4: %IF I=LMN(K) %THEN %START #line 87 "regression-compile-tmp/skimpais.imp" U_1003:; #line 87 "regression-compile-tmp/skimpais.imp" if (((I) != (LMN[(((int)(K)) - (1))]))) goto L_000c; // 88 %IF LAD(K)>=0 %THEN FAULT(M'LABE',M'L SE',M'T TW',M'ICE ') #line 88 "regression-compile-tmp/skimpais.imp" if (((LAD[(((int)(K)) - (1))]) < (0))) goto L_000d; #line 88 "regression-compile-tmp/skimpais.imp" FAULT(1279345221, 1277186885, 1411404887, 1229145376); #line 88 "regression-compile-tmp/skimpais.imp" L_000d:; // 89 ->L3 ; %FINISH #line 89 "regression-compile-tmp/skimpais.imp" goto U_1004; #line 89 "regression-compile-tmp/skimpais.imp" L_000c:; // 90 K=K+1 #line 90 "regression-compile-tmp/skimpais.imp" K = (((int)(K)) + (1)); // 91 %IF KL4 #line 91 "regression-compile-tmp/skimpais.imp" if (((K) >= (LP))) goto L_000e; #line 91 "regression-compile-tmp/skimpais.imp" goto U_1003; #line 91 "regression-compile-tmp/skimpais.imp" L_000e:; // 92 %IF LP>20 %THEN %START #line 92 "regression-compile-tmp/skimpais.imp" if (((LP) <= (20))) goto L_000f; // 93 FAULT(M'TOO ',M'MANY',M' LAB',M'ELS ') #line 93 "regression-compile-tmp/skimpais.imp" FAULT(1414483744, 1296125529, 541868354, 1162629920); // 94 ->L25 ; %FINISH #line 94 "regression-compile-tmp/skimpais.imp" goto U_1005; #line 94 "regression-compile-tmp/skimpais.imp" L_000f:; // 95 L2: LMN(LP)=I #line 95 "regression-compile-tmp/skimpais.imp" U_1002:; #line 95 "regression-compile-tmp/skimpais.imp" LMN[(((int)(LP)) - (1))] = I; // 96 K=LP #line 96 "regression-compile-tmp/skimpais.imp" K = LP; // 97 LP=LP+1 #line 97 "regression-compile-tmp/skimpais.imp" LP = (((int)(LP)) + (1)); // 98 L3: LAD(K)=SP #line 98 "regression-compile-tmp/skimpais.imp" U_1004:; #line 98 "regression-compile-tmp/skimpais.imp" LAD[(((int)(K)) - (1))] = SP; // 99 L25: %IF I=M'ST' %THEN %START #line 99 "regression-compile-tmp/skimpais.imp" U_1005:; #line 99 "regression-compile-tmp/skimpais.imp" if (((I) != (21332))) goto L_0010; // 100 ST=SP #line 100 "regression-compile-tmp/skimpais.imp" ST = SP; // 101 ->L18 ; %FINISH #line 101 "regression-compile-tmp/skimpais.imp" goto U_1006; #line 101 "regression-compile-tmp/skimpais.imp" L_0010:; // 102 ->L1 ; %FINISH #line 102 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 102 "regression-compile-tmp/skimpais.imp" L_000a:; // 103 %IF J='=' %THEN %START #line 103 "regression-compile-tmp/skimpais.imp" if (((J) != (61))) goto L_0011; // 104 READ(K) #line 104 "regression-compile-tmp/skimpais.imp" READ(&K); // 105 %IF K<0 %OR K>15 %THEN %START #line 105 "regression-compile-tmp/skimpais.imp" if (((K) < (0))) goto L_0006; #line 105 "regression-compile-tmp/skimpais.imp" if (((K) <= (15))) goto L_0012; #line 105 "regression-compile-tmp/skimpais.imp" L_0006:; // 106 FAULT(M'EQUA',M'TE N',M'UMBE',M'R ? ') #line 106 "regression-compile-tmp/skimpais.imp" FAULT(1162958145, 1413816398, 1431126597, 1377845024); // 107 ->L1 ; %FINISH #line 107 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 107 "regression-compile-tmp/skimpais.imp" L_0012:; // 108 RMN(K)=I #line 108 "regression-compile-tmp/skimpais.imp" RMN[K] = I; // 109 ->L1 ; %FINISH #line 109 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 109 "regression-compile-tmp/skimpais.imp" L_0011:; // 110 %IF I=M'REGS' %AND J=10 %THEN %START #line 110 "regression-compile-tmp/skimpais.imp" if (((I) != (1380271955))) goto L_0013; #line 110 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_0013; // 111 MR=MR!128 #line 111 "regression-compile-tmp/skimpais.imp" MR = ((MR) | (128)); // 112 ->L1 ; %FINISH #line 112 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 112 "regression-compile-tmp/skimpais.imp" L_0013:; // 113 %IF I=M'TON' %AND J=10 %THEN %START #line 113 "regression-compile-tmp/skimpais.imp" if (((I) != (5525326))) goto L_0014; #line 113 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_0014; // 114 MR=MR!64 #line 114 "regression-compile-tmp/skimpais.imp" MR = ((MR) | (64)); // 115 ->L1 ; %FINISH #line 115 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 115 "regression-compile-tmp/skimpais.imp" L_0014:; // 116 %IF I=M'TOFF' %AND J=10 %THEN %START #line 116 "regression-compile-tmp/skimpais.imp" if (((I) != (1414481478))) goto L_0015; #line 116 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_0015; // 117 MR=MR!32 #line 117 "regression-compile-tmp/skimpais.imp" MR = ((MR) | (32)); // 118 ->L1 ; %FINISH #line 118 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 118 "regression-compile-tmp/skimpais.imp" L_0015:; // 119 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) #line 119 "regression-compile-tmp/skimpais.imp" if (((J) == (44))) goto L_0016; #line 119 "regression-compile-tmp/skimpais.imp" FAULT(1398361684, 1096294463, 0, 0); #line 119 "regression-compile-tmp/skimpais.imp" L_0016:; // 120 %IF I=0 %THEN %START #line 120 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0017; // 121 READMN(I,J) #line 121 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 122 %IF I\=0 %OR J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) #line 122 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0018; #line 122 "regression-compile-tmp/skimpais.imp" if (((J) == (44))) goto L_0019; #line 122 "regression-compile-tmp/skimpais.imp" L_0018:; #line 122 "regression-compile-tmp/skimpais.imp" FAULT(1398361684, 1096294463, 0, 0); #line 122 "regression-compile-tmp/skimpais.imp" L_0019:; // 123 READMN(I,J) #line 123 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 124 %IF I\=0 %OR J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) #line 124 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_001a; #line 124 "regression-compile-tmp/skimpais.imp" if (((J) == (44))) goto L_001b; #line 124 "regression-compile-tmp/skimpais.imp" L_001a:; #line 124 "regression-compile-tmp/skimpais.imp" FAULT(1398361684, 1096294463, 0, 0); #line 124 "regression-compile-tmp/skimpais.imp" L_001b:; // 125 %IF SP>=16384 %THEN %START #line 125 "regression-compile-tmp/skimpais.imp" if (((SP) < (16384))) goto L_001c; // 126 FAULT(M'PROG',M'RAM ',M'TOO ',M'BIG ') #line 126 "regression-compile-tmp/skimpais.imp" FAULT(1347571527, 1380011296, 1414483744, 1112098592); // 127 %STOP ; %FINISH #line 127 "regression-compile-tmp/skimpais.imp" exit(0); #line 127 "regression-compile-tmp/skimpais.imp" L_001c:; // 128 READ(S(SP)) #line 128 "regression-compile-tmp/skimpais.imp" READ(&S[SP]); // 129 SP=SP+1 #line 129 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 130 MR=0 #line 130 "regression-compile-tmp/skimpais.imp" MR = 0; // 131 ->L1 ; %FINISH #line 131 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 131 "regression-compile-tmp/skimpais.imp" L_0017:; // 132 K=1 #line 132 "regression-compile-tmp/skimpais.imp" K = 1; // 133 L6: %IF I=IMN(K) %THEN ->L5 #line 133 "regression-compile-tmp/skimpais.imp" U_1007:; #line 133 "regression-compile-tmp/skimpais.imp" if (((I) != (IMN[(((int)(K)) - (1))]))) goto L_001d; #line 133 "regression-compile-tmp/skimpais.imp" goto U_1008; #line 133 "regression-compile-tmp/skimpais.imp" L_001d:; // 134 K=K+1 #line 134 "regression-compile-tmp/skimpais.imp" K = (((int)(K)) + (1)); // 135 %IF K<=31 %THEN ->L6 #line 135 "regression-compile-tmp/skimpais.imp" if (((K) > (31))) goto L_001e; #line 135 "regression-compile-tmp/skimpais.imp" goto U_1007; #line 135 "regression-compile-tmp/skimpais.imp" L_001e:; // 136 FAULT(M'INST',M'RUCT',M'ION ',M'? ') #line 136 "regression-compile-tmp/skimpais.imp" FAULT(1229869908, 1381319508, 1229934112, 1059069984); // 137 L5: READMN(I,J) #line 137 "regression-compile-tmp/skimpais.imp" U_1008:; #line 137 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 138 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) #line 138 "regression-compile-tmp/skimpais.imp" if (((J) == (44))) goto L_001f; #line 138 "regression-compile-tmp/skimpais.imp" FAULT(1398361684, 1096294463, 0, 0); #line 138 "regression-compile-tmp/skimpais.imp" L_001f:; // 139 %IF I=0 %THEN L=0 %ELSE %START #line 139 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0020; #line 139 "regression-compile-tmp/skimpais.imp" L = 0; #line 139 "regression-compile-tmp/skimpais.imp" goto L_0021; #line 139 "regression-compile-tmp/skimpais.imp" L_0020:; // 140 L=0 #line 140 "regression-compile-tmp/skimpais.imp" L = 0; // 141 L8: %IF I=RMN(L) %THEN ->L7 #line 141 "regression-compile-tmp/skimpais.imp" U_1009:; #line 141 "regression-compile-tmp/skimpais.imp" if (((I) != (RMN[L]))) goto L_0022; #line 141 "regression-compile-tmp/skimpais.imp" goto U_100a; #line 141 "regression-compile-tmp/skimpais.imp" L_0022:; // 142 L=L+1 #line 142 "regression-compile-tmp/skimpais.imp" L = (((int)(L)) + (1)); // 143 %IF L<=15 %THEN ->L8 #line 143 "regression-compile-tmp/skimpais.imp" if (((L) > (15))) goto L_0023; #line 143 "regression-compile-tmp/skimpais.imp" goto U_1009; #line 143 "regression-compile-tmp/skimpais.imp" L_0023:; // 144 FAULT(M'REGI',M'STER',M' ? ',0) #line 144 "regression-compile-tmp/skimpais.imp" FAULT(1380271945, 1398031698, 541007904, 0); // 145 %FINISH #line 145 "regression-compile-tmp/skimpais.imp" L_0021:; // 146 L7: K=K<<4!L #line 146 "regression-compile-tmp/skimpais.imp" U_100a:; #line 146 "regression-compile-tmp/skimpais.imp" K = ((((K) << (4))) | (L)); // 147 READMN(I,J) #line 147 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 148 %IF J='+' %THEN %START #line 148 "regression-compile-tmp/skimpais.imp" if (((J) != (43))) goto L_0024; // 149 READ(M) #line 149 "regression-compile-tmp/skimpais.imp" READ(&M); // 150 %IF M>=65536 %THEN FAULT(M'DISP',M'. TO',M'O BI',M'G ') #line 150 "regression-compile-tmp/skimpais.imp" if (((M) < (65536))) goto L_0025; #line 150 "regression-compile-tmp/skimpais.imp" FAULT(1145656144, 773870671, 1327514185, 1193287712); #line 150 "regression-compile-tmp/skimpais.imp" L_0025:; // 151 %IF LP=1 %THEN ->L9 #line 151 "regression-compile-tmp/skimpais.imp" if (((LP) != (1))) goto L_0026; #line 151 "regression-compile-tmp/skimpais.imp" goto U_100b; #line 151 "regression-compile-tmp/skimpais.imp" L_0026:; // 152 L=1 #line 152 "regression-compile-tmp/skimpais.imp" L = 1; // 153 L12: %IF I=LMN(L) %THEN %START #line 153 "regression-compile-tmp/skimpais.imp" U_100c:; #line 153 "regression-compile-tmp/skimpais.imp" if (((I) != (LMN[(((int)(L)) - (1))]))) goto L_0027; // 154 %IF LAD(L)<0 %THEN ->L11 #line 154 "regression-compile-tmp/skimpais.imp" if (((LAD[(((int)(L)) - (1))]) >= (0))) goto L_0028; #line 154 "regression-compile-tmp/skimpais.imp" goto U_100d; #line 154 "regression-compile-tmp/skimpais.imp" L_0028:; // 155 K=K<<20!(LAD(L)+M) #line 155 "regression-compile-tmp/skimpais.imp" K = ((((K) << (20))) | ((((int)(LAD[(((int)(L)) - (1))])) + (M)))); // 156 ->L13 ; %FINISH #line 156 "regression-compile-tmp/skimpais.imp" goto U_100e; #line 156 "regression-compile-tmp/skimpais.imp" L_0027:; // 157 L=L+1 #line 157 "regression-compile-tmp/skimpais.imp" L = (((int)(L)) + (1)); // 158 %IF LL12 #line 158 "regression-compile-tmp/skimpais.imp" if (((L) >= (LP))) goto L_0029; #line 158 "regression-compile-tmp/skimpais.imp" goto U_100c; #line 158 "regression-compile-tmp/skimpais.imp" L_0029:; // 159 %IF LP>20 %THEN %START #line 159 "regression-compile-tmp/skimpais.imp" if (((LP) <= (20))) goto L_002a; // 160 FAULT(M'TOO ',M'MANY',M' LAB',M'ELS ') #line 160 "regression-compile-tmp/skimpais.imp" FAULT(1414483744, 1296125529, 541868354, 1162629920); // 161 ->L11 ; %FINISH #line 161 "regression-compile-tmp/skimpais.imp" goto U_100d; #line 161 "regression-compile-tmp/skimpais.imp" L_002a:; // 162 L9: LMN(LP)=I #line 162 "regression-compile-tmp/skimpais.imp" U_100b:; #line 162 "regression-compile-tmp/skimpais.imp" LMN[(((int)(LP)) - (1))] = I; // 163 LAD(LP)=-1 #line 163 "regression-compile-tmp/skimpais.imp" LAD[(((int)(LP)) - (1))] = (-1); // 164 L=LP #line 164 "regression-compile-tmp/skimpais.imp" L = LP; // 165 LP=LP+1 #line 165 "regression-compile-tmp/skimpais.imp" LP = (((int)(LP)) + (1)); // 166 L11: %IF RP>4000 %THEN %START #line 166 "regression-compile-tmp/skimpais.imp" U_100d:; #line 166 "regression-compile-tmp/skimpais.imp" if (((RP) <= (4000))) goto L_002b; // 167 FAULT(M'TOO ',M'MANY',M' REL',M'OCS.') #line 167 "regression-compile-tmp/skimpais.imp" FAULT(1414483744, 1296125529, 542262604, 1329812270); // 168 %STOP ; %FINISH #line 168 "regression-compile-tmp/skimpais.imp" exit(0); #line 168 "regression-compile-tmp/skimpais.imp" L_002b:; // 169 R(RP)=L<<16!SP #line 169 "regression-compile-tmp/skimpais.imp" R[(((int)(RP)) - (1))] = ((((L) << (16))) | (SP)); // 170 RP=RP+1 #line 170 "regression-compile-tmp/skimpais.imp" RP = (((int)(RP)) + (1)); // 171 L14: K=K<<20!M #line 171 "regression-compile-tmp/skimpais.imp" U_100f:; #line 171 "regression-compile-tmp/skimpais.imp" K = ((((K) << (20))) | (M)); // 172 L13: %IF SP>=16384 %THEN %START #line 172 "regression-compile-tmp/skimpais.imp" U_100e:; #line 172 "regression-compile-tmp/skimpais.imp" if (((SP) < (16384))) goto L_002c; // 173 FAULT(M'PROG',M'RAM ',M'TOO ',M'BIG ') #line 173 "regression-compile-tmp/skimpais.imp" FAULT(1347571527, 1380011296, 1414483744, 1112098592); // 174 %STOP ; %FINISH #line 174 "regression-compile-tmp/skimpais.imp" exit(0); #line 174 "regression-compile-tmp/skimpais.imp" L_002c:; // 175 S(SP)=K!MR<<24 #line 175 "regression-compile-tmp/skimpais.imp" S[SP] = ((K) | (((MR) << (24)))); // 176 SP=SP+1 #line 176 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 177 MR=0 #line 177 "regression-compile-tmp/skimpais.imp" MR = 0; // 178 ->L1 ; %FINISH #line 178 "regression-compile-tmp/skimpais.imp" goto U_1000; #line 178 "regression-compile-tmp/skimpais.imp" L_0024:; // 179 %IF ('A'<=J %AND J<='Z') %OR J=10 %THEN %START #line 179 "regression-compile-tmp/skimpais.imp" if (((65) > (J))) goto L_002d; #line 179 "regression-compile-tmp/skimpais.imp" if (((J) <= (90))) goto L_002e; #line 179 "regression-compile-tmp/skimpais.imp" L_002d:; #line 179 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_002f; #line 179 "regression-compile-tmp/skimpais.imp" L_002e:; // 180 %IF I=M'READ' %AND J='S' %THEN %START #line 180 "regression-compile-tmp/skimpais.imp" if (((I) != (1380270404))) goto L_0030; #line 180 "regression-compile-tmp/skimpais.imp" if (((J) != (83))) goto L_0030; // 181 M=16384 #line 181 "regression-compile-tmp/skimpais.imp" M = 16384; // 182 L15: READMN(I,J) #line 182 "regression-compile-tmp/skimpais.imp" U_1010:; #line 182 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 183 %IF I\=M'YMBO' %OR J\='L' %THEN ->L26 #line 183 "regression-compile-tmp/skimpais.imp" if (((I) != (1498235471))) goto L_0031; #line 183 "regression-compile-tmp/skimpais.imp" if (((J) == (76))) goto L_0032; #line 183 "regression-compile-tmp/skimpais.imp" L_0031:; #line 183 "regression-compile-tmp/skimpais.imp" goto U_1011; #line 183 "regression-compile-tmp/skimpais.imp" L_0032:; // 184 READ SYMBOL(I) #line 184 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 185 %IF I\=10 %THEN ->L26 #line 185 "regression-compile-tmp/skimpais.imp" if (((I) == (10))) goto L_0033; #line 185 "regression-compile-tmp/skimpais.imp" goto U_1011; #line 185 "regression-compile-tmp/skimpais.imp" L_0033:; // 186 ->L14 ; %FINISH #line 186 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 186 "regression-compile-tmp/skimpais.imp" L_0030:; // 187 %IF I=M'NEXT' %AND J='S' %THEN %START #line 187 "regression-compile-tmp/skimpais.imp" if (((I) != (1313167444))) goto L_0034; #line 187 "regression-compile-tmp/skimpais.imp" if (((J) != (83))) goto L_0034; // 188 M=16385 #line 188 "regression-compile-tmp/skimpais.imp" M = 16385; // 189 ->L15 ; %FINISH #line 189 "regression-compile-tmp/skimpais.imp" goto U_1010; #line 189 "regression-compile-tmp/skimpais.imp" L_0034:; // 190 %IF I=M'SKIP' %AND J='S' %THEN %START #line 190 "regression-compile-tmp/skimpais.imp" if (((I) != (1397442896))) goto L_0035; #line 190 "regression-compile-tmp/skimpais.imp" if (((J) != (83))) goto L_0035; // 191 M=16386 #line 191 "regression-compile-tmp/skimpais.imp" M = 16386; // 192 ->L15 ; %FINISH #line 192 "regression-compile-tmp/skimpais.imp" goto U_1010; #line 192 "regression-compile-tmp/skimpais.imp" L_0035:; // 193 %IF I=M'PRIN' %AND J='T' %THEN %START #line 193 "regression-compile-tmp/skimpais.imp" if (((I) != (1347569998))) goto L_0036; #line 193 "regression-compile-tmp/skimpais.imp" if (((J) != (84))) goto L_0036; // 194 READ SYMBOL(I) #line 194 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 195 %IF I\='S' %THEN ->L26 #line 195 "regression-compile-tmp/skimpais.imp" if (((I) == (83))) goto L_0037; #line 195 "regression-compile-tmp/skimpais.imp" goto U_1011; #line 195 "regression-compile-tmp/skimpais.imp" L_0037:; // 196 M=16387 #line 196 "regression-compile-tmp/skimpais.imp" M = 16387; // 197 ->L15 ; %FINISH #line 197 "regression-compile-tmp/skimpais.imp" goto U_1010; #line 197 "regression-compile-tmp/skimpais.imp" L_0036:; // 198 %IF I=M'SPAC' %AND J='E' %THEN %START #line 198 "regression-compile-tmp/skimpais.imp" if (((I) != (1397768515))) goto L_0038; #line 198 "regression-compile-tmp/skimpais.imp" if (((J) != (69))) goto L_0038; // 199 READMN(I,J) #line 199 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 200 %IF I=0 %AND J=10 %THEN %START #line 200 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0039; #line 200 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_0039; // 201 M=16388 #line 201 "regression-compile-tmp/skimpais.imp" M = 16388; // 202 ->L14 ; %FINISH #line 202 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 202 "regression-compile-tmp/skimpais.imp" L_0039:; // 203 %IF I='S' %AND J=10 %THEN %START #line 203 "regression-compile-tmp/skimpais.imp" if (((I) != (83))) goto L_003a; #line 203 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_003a; // 204 M=16389 #line 204 "regression-compile-tmp/skimpais.imp" M = 16389; // 205 ->L14 ; %FINISH #line 205 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 205 "regression-compile-tmp/skimpais.imp" L_003a:; // 206 ->L26 #line 206 "regression-compile-tmp/skimpais.imp" goto U_1011; // 207 %FINISH #line 207 "regression-compile-tmp/skimpais.imp" L_0038:; // 208 %IF I=M'NEWL' %AND J='I' %THEN %START #line 208 "regression-compile-tmp/skimpais.imp" if (((I) != (1313167180))) goto L_003b; #line 208 "regression-compile-tmp/skimpais.imp" if (((J) != (73))) goto L_003b; // 209 READMN(I,J) #line 209 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 210 %IF I=M'NE' %AND J=10 %THEN %START #line 210 "regression-compile-tmp/skimpais.imp" if (((I) != (20037))) goto L_003c; #line 210 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_003c; // 211 M=16390 #line 211 "regression-compile-tmp/skimpais.imp" M = 16390; // 212 ->L14 ; %FINISH #line 212 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 212 "regression-compile-tmp/skimpais.imp" L_003c:; // 213 %IF I=M'NES' %AND J=10 %THEN %START #line 213 "regression-compile-tmp/skimpais.imp" if (((I) != (5129555))) goto L_003d; #line 213 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_003d; // 214 M=16391 #line 214 "regression-compile-tmp/skimpais.imp" M = 16391; // 215 ->L14 ; %FINISH #line 215 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 215 "regression-compile-tmp/skimpais.imp" L_003d:; // 216 ->L26 #line 216 "regression-compile-tmp/skimpais.imp" goto U_1011; // 217 %FINISH #line 217 "regression-compile-tmp/skimpais.imp" L_003b:; // 218 %IF I=M'NEWP' %AND J='A' %THEN %START #line 218 "regression-compile-tmp/skimpais.imp" if (((I) != (1313167184))) goto L_003e; #line 218 "regression-compile-tmp/skimpais.imp" if (((J) != (65))) goto L_003e; // 219 READMN(I,J) #line 219 "regression-compile-tmp/skimpais.imp" READMN(&I, &J); // 220 %IF I\=M'GE' %OR J\=10 %THEN ->L26 #line 220 "regression-compile-tmp/skimpais.imp" if (((I) != (18245))) goto L_003f; #line 220 "regression-compile-tmp/skimpais.imp" if (((J) == (10))) goto L_0040; #line 220 "regression-compile-tmp/skimpais.imp" L_003f:; #line 220 "regression-compile-tmp/skimpais.imp" goto U_1011; #line 220 "regression-compile-tmp/skimpais.imp" L_0040:; // 221 M=16392 #line 221 "regression-compile-tmp/skimpais.imp" M = 16392; // 222 ->L14 ; %FINISH #line 222 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 222 "regression-compile-tmp/skimpais.imp" L_003e:; // 223 %IF I=M'READ' %AND J=10 %THEN %START #line 223 "regression-compile-tmp/skimpais.imp" if (((I) != (1380270404))) goto L_0041; #line 223 "regression-compile-tmp/skimpais.imp" if (((J) != (10))) goto L_0041; // 224 M=16393 #line 224 "regression-compile-tmp/skimpais.imp" M = 16393; // 225 ->L14 ; %FINISH #line 225 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 225 "regression-compile-tmp/skimpais.imp" L_0041:; // 226 %IF I=M'WRIT' %AND J='E' %THEN %START #line 226 "regression-compile-tmp/skimpais.imp" if (((I) != (1465010516))) goto L_0042; #line 226 "regression-compile-tmp/skimpais.imp" if (((J) != (69))) goto L_0042; // 227 READ SYMBOL(I) #line 227 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 228 %IF I\=10 %THEN ->L26 #line 228 "regression-compile-tmp/skimpais.imp" if (((I) == (10))) goto L_0043; #line 228 "regression-compile-tmp/skimpais.imp" goto U_1011; #line 228 "regression-compile-tmp/skimpais.imp" L_0043:; // 229 M=16394 #line 229 "regression-compile-tmp/skimpais.imp" M = 16394; // 230 ->L14 ; %FINISH #line 230 "regression-compile-tmp/skimpais.imp" goto U_100f; #line 230 "regression-compile-tmp/skimpais.imp" L_0042:; // 231 L26: FAULT(M'I-O ',M'NAME',M' ? ',0) #line 231 "regression-compile-tmp/skimpais.imp" U_1011:; #line 231 "regression-compile-tmp/skimpais.imp" FAULT(1227706144, 1312902469, 541007904, 0); // 232 ->L13 #line 232 "regression-compile-tmp/skimpais.imp" goto U_100e; // 233 %FINISH #line 233 "regression-compile-tmp/skimpais.imp" L_002f:; // 234 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) #line 234 "regression-compile-tmp/skimpais.imp" if (((J) == (44))) goto L_0044; #line 234 "regression-compile-tmp/skimpais.imp" FAULT(1398361684, 1096294463, 0, 0); #line 234 "regression-compile-tmp/skimpais.imp" L_0044:; // 235 %IF I=0 %THEN L=0 %ELSE %START #line 235 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0045; #line 235 "regression-compile-tmp/skimpais.imp" L = 0; #line 235 "regression-compile-tmp/skimpais.imp" goto L_0046; #line 235 "regression-compile-tmp/skimpais.imp" L_0045:; // 236 L=0 #line 236 "regression-compile-tmp/skimpais.imp" L = 0; // 237 L17: %IF I=RMN(L) %THEN ->L16 #line 237 "regression-compile-tmp/skimpais.imp" U_1012:; #line 237 "regression-compile-tmp/skimpais.imp" if (((I) != (RMN[L]))) goto L_0047; #line 237 "regression-compile-tmp/skimpais.imp" goto U_1013; #line 237 "regression-compile-tmp/skimpais.imp" L_0047:; // 238 L=L+1 #line 238 "regression-compile-tmp/skimpais.imp" L = (((int)(L)) + (1)); // 239 %IF L<=15 %THEN ->L17 #line 239 "regression-compile-tmp/skimpais.imp" if (((L) > (15))) goto L_0048; #line 239 "regression-compile-tmp/skimpais.imp" goto U_1012; #line 239 "regression-compile-tmp/skimpais.imp" L_0048:; // 240 FAULT(M'BASE',M' REG',M'ISTE',M'R ? ') #line 240 "regression-compile-tmp/skimpais.imp" FAULT(1111577413, 542262599, 1230197829, 1377845024); // 241 %FINISH #line 241 "regression-compile-tmp/skimpais.imp" L_0046:; // 242 L16: K=K<<4!L #line 242 "regression-compile-tmp/skimpais.imp" U_1013:; #line 242 "regression-compile-tmp/skimpais.imp" K = ((((K) << (4))) | (L)); // 243 READ(M) #line 243 "regression-compile-tmp/skimpais.imp" READ(&M); // 244 %IF M>=65536 %THEN FAULT(M'DISP',M'. TO',M'O BI',M'G ') #line 244 "regression-compile-tmp/skimpais.imp" if (((M) < (65536))) goto L_0049; #line 244 "regression-compile-tmp/skimpais.imp" FAULT(1145656144, 773870671, 1327514185, 1193287712); #line 244 "regression-compile-tmp/skimpais.imp" L_0049:; // 245 K=K<<16!M #line 245 "regression-compile-tmp/skimpais.imp" K = ((((K) << (16))) | (M)); // 246 ->L13 #line 246 "regression-compile-tmp/skimpais.imp" goto U_100e; // 247 L18: READ(I) #line 247 "regression-compile-tmp/skimpais.imp" U_1006:; #line 247 "regression-compile-tmp/skimpais.imp" READ(&I); // 248 %IF I\=0 %THEN %START #line 248 "regression-compile-tmp/skimpais.imp" if (((I) == (0))) goto L_004a; // 249 NEWLINE #line 249 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 250 OUT(M'PROG') ; OUT(M'RAM ') ; OUT(M'FAUL') ; OUT(M'TY !') #line 250 "regression-compile-tmp/skimpais.imp" OUT(1347571527); #line 250 "regression-compile-tmp/skimpais.imp" OUT(1380011296); #line 250 "regression-compile-tmp/skimpais.imp" OUT(1178686796); #line 250 "regression-compile-tmp/skimpais.imp" OUT(1415127073); // 251 NEWLINE #line 251 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 252 %STOP ; %FINISH #line 252 "regression-compile-tmp/skimpais.imp" exit(0); #line 252 "regression-compile-tmp/skimpais.imp" L_004a:; // 253 L38: READ SYMBOL(I) #line 253 "regression-compile-tmp/skimpais.imp" U_1014:; #line 253 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 254 %IF I\='.' %THEN ->L38 #line 254 "regression-compile-tmp/skimpais.imp" if (((I) == (46))) goto L_004b; #line 254 "regression-compile-tmp/skimpais.imp" goto U_1014; #line 254 "regression-compile-tmp/skimpais.imp" L_004b:; // 255 SELECT INPUT(0) #line 255 "regression-compile-tmp/skimpais.imp" _imp_SELECTINPUT(0); // 256 I=ST #line 256 "regression-compile-tmp/skimpais.imp" I = ST; // 257 L28: %IF I>16383 %THEN ->L29 #line 257 "regression-compile-tmp/skimpais.imp" U_1015:; #line 257 "regression-compile-tmp/skimpais.imp" if (((I) <= (16383))) goto L_004c; #line 257 "regression-compile-tmp/skimpais.imp" goto U_1016; #line 257 "regression-compile-tmp/skimpais.imp" L_004c:; // 258 S(I)=999999 #line 258 "regression-compile-tmp/skimpais.imp" S[I] = 999999; // 259 I=I+1 #line 259 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) + (1)); // 260 ->L28 #line 260 "regression-compile-tmp/skimpais.imp" goto U_1015; // 261 L29: NEWLINE #line 261 "regression-compile-tmp/skimpais.imp" U_1016:; #line 261 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 262 OUT(M'LABE') ; OUT(M'LS ') #line 262 "regression-compile-tmp/skimpais.imp" OUT(1279345221); #line 262 "regression-compile-tmp/skimpais.imp" OUT(1280516128); // 263 NEWLINE #line 263 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 264 I=0 #line 264 "regression-compile-tmp/skimpais.imp" I = 0; // 265 J=1 #line 265 "regression-compile-tmp/skimpais.imp" J = 1; // 266 L20: OUT(LMN(J)) ; OUT(M' : ') #line 266 "regression-compile-tmp/skimpais.imp" U_1017:; #line 266 "regression-compile-tmp/skimpais.imp" OUT(LMN[(((int)(J)) - (1))]); #line 266 "regression-compile-tmp/skimpais.imp" OUT(538982944); // 267 %IF LAD(J)<0 %THEN %START #line 267 "regression-compile-tmp/skimpais.imp" if (((LAD[(((int)(J)) - (1))]) >= (0))) goto L_004d; // 268 OUT(M'NOT ') ; OUT(M'SET ') #line 268 "regression-compile-tmp/skimpais.imp" OUT(1313821728); #line 268 "regression-compile-tmp/skimpais.imp" OUT(1397052448); // 269 I=1 #line 269 "regression-compile-tmp/skimpais.imp" I = 1; // 270 %FINISH %ELSE WRITE(LAD(J),1) #line 270 "regression-compile-tmp/skimpais.imp" goto L_004e; #line 270 "regression-compile-tmp/skimpais.imp" L_004d:; #line 270 "regression-compile-tmp/skimpais.imp" _imp_WRITE(LAD[(((int)(J)) - (1))], 1); #line 270 "regression-compile-tmp/skimpais.imp" L_004e:; // 271 NEWLINE #line 271 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 272 %IF LMN(J)=M'CT' %THEN CT=LAD(J) #line 272 "regression-compile-tmp/skimpais.imp" if (((LMN[(((int)(J)) - (1))]) != (17236))) goto L_004f; #line 272 "regression-compile-tmp/skimpais.imp" CT = LAD[(((int)(J)) - (1))]; #line 272 "regression-compile-tmp/skimpais.imp" L_004f:; // 273 J=J+1 #line 273 "regression-compile-tmp/skimpais.imp" J = (((int)(J)) + (1)); // 274 %IF JL20 #line 274 "regression-compile-tmp/skimpais.imp" if (((J) >= (LP))) goto L_0050; #line 274 "regression-compile-tmp/skimpais.imp" goto U_1017; #line 274 "regression-compile-tmp/skimpais.imp" L_0050:; // 275 %IF I\=0 %OR F\=0 %THEN %STOP #line 275 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0051; #line 275 "regression-compile-tmp/skimpais.imp" if (((F) == (0))) goto L_0052; #line 275 "regression-compile-tmp/skimpais.imp" L_0051:; #line 275 "regression-compile-tmp/skimpais.imp" exit(0); #line 275 "regression-compile-tmp/skimpais.imp" L_0052:; // 276 %IF RP=1 %THEN ->L21 #line 276 "regression-compile-tmp/skimpais.imp" if (((RP) != (1))) goto L_0053; #line 276 "regression-compile-tmp/skimpais.imp" goto U_1018; #line 276 "regression-compile-tmp/skimpais.imp" L_0053:; // 277 M=1 #line 277 "regression-compile-tmp/skimpais.imp" M = 1; // 278 L22: I=R(M)>>16 #line 278 "regression-compile-tmp/skimpais.imp" U_1019:; #line 278 "regression-compile-tmp/skimpais.imp" I = (int)((((unsigned int)(R[(((int)(M)) - (1))])) >> (16))); // 279 J=R(M)&65535 #line 279 "regression-compile-tmp/skimpais.imp" J = ((R[(((int)(M)) - (1))]) & (65535)); // 280 K=S(J)&65535 #line 280 "regression-compile-tmp/skimpais.imp" K = ((S[J]) & (65535)); // 281 L=LAD(I)+K #line 281 "regression-compile-tmp/skimpais.imp" L = (((int)(LAD[(((int)(I)) - (1))])) + (K)); // 282 %IF L>=65536 %THEN %START #line 282 "regression-compile-tmp/skimpais.imp" if (((L) < (65536))) goto L_0054; // 283 OUT(M'ADDR') ; OUT(M' TRU') ; OUT(M'NCAT') ; OUT(M'ED ') #line 283 "regression-compile-tmp/skimpais.imp" OUT(1094992978); #line 283 "regression-compile-tmp/skimpais.imp" OUT(542397013); #line 283 "regression-compile-tmp/skimpais.imp" OUT(1313030484); #line 283 "regression-compile-tmp/skimpais.imp" OUT(1162092576); // 284 WRITE(J,1) #line 284 "regression-compile-tmp/skimpais.imp" _imp_WRITE(J, 1); // 285 NEWLINE #line 285 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 286 L=L&65535 #line 286 "regression-compile-tmp/skimpais.imp" L = ((L) & (65535)); // 287 %FINISH #line 287 "regression-compile-tmp/skimpais.imp" L_0054:; // 288 S(J)=S(J)>>16<<16!L #line 288 "regression-compile-tmp/skimpais.imp" S[J] = (((((int)((((unsigned int)(S[J])) >> (16)))) << (16))) | (L)); // 289 M=M+1 #line 289 "regression-compile-tmp/skimpais.imp" M = (((int)(M)) + (1)); // 290 %IF ML22 #line 290 "regression-compile-tmp/skimpais.imp" if (((M) >= (RP))) goto L_0055; #line 290 "regression-compile-tmp/skimpais.imp" goto U_1019; #line 290 "regression-compile-tmp/skimpais.imp" L_0055:; // 291 L21: I=0 #line 291 "regression-compile-tmp/skimpais.imp" U_1018:; #line 291 "regression-compile-tmp/skimpais.imp" I = 0; // 292 L23: REG(I)=0 #line 292 "regression-compile-tmp/skimpais.imp" U_101a:; #line 292 "regression-compile-tmp/skimpais.imp" REG[I] = 0; // 293 I=I+1 #line 293 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) + (1)); // 294 %IF I<=15 %THEN ->L23 #line 294 "regression-compile-tmp/skimpais.imp" if (((I) > (15))) goto L_0056; #line 294 "regression-compile-tmp/skimpais.imp" goto U_101a; #line 294 "regression-compile-tmp/skimpais.imp" L_0056:; // 295 SP=0 #line 295 "regression-compile-tmp/skimpais.imp" SP = 0; // 296 L24: %IF SP<0 %OR SP>=CT %THEN %START #line 296 "regression-compile-tmp/skimpais.imp" U_101b:; #line 296 "regression-compile-tmp/skimpais.imp" if (((SP) < (0))) goto L_0057; #line 296 "regression-compile-tmp/skimpais.imp" if (((SP) < (CT))) goto L_0058; #line 296 "regression-compile-tmp/skimpais.imp" L_0057:; // 297 %IF SP>=16384 %AND SP<=16394 %THEN ->IOR(SP-16384) #line 297 "regression-compile-tmp/skimpais.imp" if (((SP) < (16384))) goto L_0059; #line 297 "regression-compile-tmp/skimpais.imp" if (((SP) > (16394))) goto L_0059; #line 297 "regression-compile-tmp/skimpais.imp" sw2_IOR_idx = (((int)(SP)) - (16384)); if ((0 <= sw2_IOR_idx) && (sw2_IOR_idx <= 10)) goto *sw2_IOR[sw2_IOR_idx]; else { /*_imp_signal(8, 2, sw2_IOR_idx);*/ fprintf(stderr, "%%SWITCH index IOR(%d) not in range 0:10 at %s:%d\n", sw2_IOR_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 297 "regression-compile-tmp/skimpais.imp" L_0059:; // 298 NEWLINE #line 298 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 299 OUT(M'** ') #line 299 "regression-compile-tmp/skimpais.imp" OUT(707403808); // 300 WRITE(SP,1) #line 300 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 1); // 301 SPACES(4) #line 301 "regression-compile-tmp/skimpais.imp" _imp_SPACES(4); // 302 OUT(M'INST') ; OUT(M'R AD') ; OUT(M'DR ?') #line 302 "regression-compile-tmp/skimpais.imp" OUT(1229869908); #line 302 "regression-compile-tmp/skimpais.imp" OUT(1377845572); #line 302 "regression-compile-tmp/skimpais.imp" OUT(1146232895); // 303 %STOP ; %FINISH #line 303 "regression-compile-tmp/skimpais.imp" exit(0); #line 303 "regression-compile-tmp/skimpais.imp" L_0058:; // 304 I=S(SP) #line 304 "regression-compile-tmp/skimpais.imp" I = S[SP]; // 305 J=I>>20&15 #line 305 "regression-compile-tmp/skimpais.imp" J = (((int)((((unsigned int)(I)) >> (20)))) & (15)); // 306 K=I>>16&15 #line 306 "regression-compile-tmp/skimpais.imp" K = (((int)((((unsigned int)(I)) >> (16)))) & (15)); // 307 L=I&65535 #line 307 "regression-compile-tmp/skimpais.imp" L = ((I) & (65535)); // 308 %IF K=0 %THEN M=L %ELSE M=REG(K)+L #line 308 "regression-compile-tmp/skimpais.imp" if (((K) != (0))) goto L_005a; #line 308 "regression-compile-tmp/skimpais.imp" M = L; #line 308 "regression-compile-tmp/skimpais.imp" goto L_005b; #line 308 "regression-compile-tmp/skimpais.imp" L_005a:; #line 308 "regression-compile-tmp/skimpais.imp" M = (((int)(REG[K])) + (L)); #line 308 "regression-compile-tmp/skimpais.imp" L_005b:; // 309 I=I>>24 #line 309 "regression-compile-tmp/skimpais.imp" I = (int)((((unsigned int)(I)) >> (24))); // 310 %IF I>128 %THEN %START #line 310 "regression-compile-tmp/skimpais.imp" if (((I) <= (128))) goto L_005c; // 311 NEWLINE #line 311 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 312 N=0 #line 312 "regression-compile-tmp/skimpais.imp" N = 0; // 313 L27: OUT(RMN(N)) #line 313 "regression-compile-tmp/skimpais.imp" U_101c:; #line 313 "regression-compile-tmp/skimpais.imp" OUT(RMN[N]); // 314 OUT(M' : ') #line 314 "regression-compile-tmp/skimpais.imp" OUT(538982944); // 315 WRITE(REG(N),1) #line 315 "regression-compile-tmp/skimpais.imp" _imp_WRITE(REG[N], 1); // 316 NEWLINE #line 316 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 317 N=N+1 #line 317 "regression-compile-tmp/skimpais.imp" N = (((int)(N)) + (1)); // 318 %IF N<=15 %THEN ->L27 #line 318 "regression-compile-tmp/skimpais.imp" if (((N) > (15))) goto L_005d; #line 318 "regression-compile-tmp/skimpais.imp" goto U_101c; #line 318 "regression-compile-tmp/skimpais.imp" L_005d:; // 319 I=I-128 #line 319 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) - (128)); // 320 %FINISH #line 320 "regression-compile-tmp/skimpais.imp" L_005c:; // 321 %IF I>64 %THEN %START #line 321 "regression-compile-tmp/skimpais.imp" if (((I) <= (64))) goto L_005e; // 322 TR=1 #line 322 "regression-compile-tmp/skimpais.imp" TR = 1; // 323 I=I-64 #line 323 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) - (64)); // 324 %FINISH #line 324 "regression-compile-tmp/skimpais.imp" L_005e:; // 325 %IF I>32 %THEN %START #line 325 "regression-compile-tmp/skimpais.imp" if (((I) <= (32))) goto L_005f; // 326 TR=0 #line 326 "regression-compile-tmp/skimpais.imp" TR = 0; // 327 I=I-32 #line 327 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) - (32)); // 328 %FINISH #line 328 "regression-compile-tmp/skimpais.imp" L_005f:; // 329 %IF X'3E00F9FA'>>I&1\=0 %AND (M=16384) %THEN %START #line 329 "regression-compile-tmp/skimpais.imp" if ((((((int)((((unsigned int)(1040251386)) >> (I)))) & (1))) == (0))) goto L_0060; #line 329 "regression-compile-tmp/skimpais.imp" if (((M) < (CT))) goto L_0061; #line 329 "regression-compile-tmp/skimpais.imp" if (((M) < (16384))) goto L_0060; #line 329 "regression-compile-tmp/skimpais.imp" L_0061:; // 330 NEWLINE #line 330 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 331 OUT(M'** ') #line 331 "regression-compile-tmp/skimpais.imp" OUT(707403808); // 332 WRITE(SP,1) #line 332 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 1); // 333 SPACES(4) #line 333 "regression-compile-tmp/skimpais.imp" _imp_SPACES(4); // 334 OUT(M'EFFE') ; OUT(M'CTIV') ; OUT(M'E AD') ; OUT(M'DR ?') #line 334 "regression-compile-tmp/skimpais.imp" OUT(1162233413); #line 334 "regression-compile-tmp/skimpais.imp" OUT(1129597270); #line 334 "regression-compile-tmp/skimpais.imp" OUT(1159741764); #line 334 "regression-compile-tmp/skimpais.imp" OUT(1146232895); // 335 WRITE(M,1) #line 335 "regression-compile-tmp/skimpais.imp" _imp_WRITE(M, 1); // 336 DUMP #line 336 "regression-compile-tmp/skimpais.imp" DUMP(); // 337 %STOP ; %FINISH #line 337 "regression-compile-tmp/skimpais.imp" exit(0); #line 337 "regression-compile-tmp/skimpais.imp" L_0060:; // 338 %IF I=0 %THEN %START #line 338 "regression-compile-tmp/skimpais.imp" if (((I) != (0))) goto L_0062; // 339 NEWLINE #line 339 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 340 OUT(M'** ') #line 340 "regression-compile-tmp/skimpais.imp" OUT(707403808); // 341 WRITE(SP,1) #line 341 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 1); // 342 SPACES(4) #line 342 "regression-compile-tmp/skimpais.imp" _imp_SPACES(4); // 343 OUT(M'INST') ; OUT(M'RUCT') ; OUT(M'ION?') #line 343 "regression-compile-tmp/skimpais.imp" OUT(1229869908); #line 343 "regression-compile-tmp/skimpais.imp" OUT(1381319508); #line 343 "regression-compile-tmp/skimpais.imp" OUT(1229934143); // 344 DUMP #line 344 "regression-compile-tmp/skimpais.imp" DUMP(); // 345 %STOP ; %FINISH #line 345 "regression-compile-tmp/skimpais.imp" exit(0); #line 345 "regression-compile-tmp/skimpais.imp" L_0062:; // 346 %IF TR#0 %THEN %START #line 346 "regression-compile-tmp/skimpais.imp" if (((TR) == (0))) goto L_0063; // 347 NEWLINE #line 347 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 348 WRITE(SP,3) #line 348 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 3); // 349 SPACES(2) #line 349 "regression-compile-tmp/skimpais.imp" _imp_SPACES(2); // 350 OUT(IMN(I)) #line 350 "regression-compile-tmp/skimpais.imp" OUT(IMN[(((int)(I)) - (1))]); // 351 SPACES(2) #line 351 "regression-compile-tmp/skimpais.imp" _imp_SPACES(2); // 352 OUT(RMN(J)) #line 352 "regression-compile-tmp/skimpais.imp" OUT(RMN[J]); // 353 WRITE(M,4) #line 353 "regression-compile-tmp/skimpais.imp" _imp_WRITE(M, 4); // 354 SPACES(6) #line 354 "regression-compile-tmp/skimpais.imp" _imp_SPACES(6); // 355 %FINISH #line 355 "regression-compile-tmp/skimpais.imp" L_0063:; // 356 ->INS(I) #line 356 "regression-compile-tmp/skimpais.imp" sw1_INS_idx = I; if ((1 <= sw1_INS_idx) && (sw1_INS_idx <= 31)) goto *(sw1_INS-1)[sw1_INS_idx]; /* Bounds=1:31 */ else { /*_imp_signal(8, 2, sw1_INS_idx);*/ fprintf(stderr, "%%SWITCH index INS(%d) not in range 1:31 at %s:%d\n", sw1_INS_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 357 INS(1):! LOAD #line 357 "regression-compile-tmp/skimpais.imp" sw1_INS_1:; // 358 REG(J)=S(M) #line 358 "regression-compile-tmp/skimpais.imp" REG[J] = S[M]; // 359 SP=SP+1 #line 359 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 360 ->L24 #line 360 "regression-compile-tmp/skimpais.imp" goto U_101b; // 361 INS(2):! LDA #line 361 "regression-compile-tmp/skimpais.imp" sw1_INS_2:; // 362 REG(J)=M #line 362 "regression-compile-tmp/skimpais.imp" REG[J] = M; // 363 SP=SP+1 #line 363 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 364 ->L24 #line 364 "regression-compile-tmp/skimpais.imp" goto U_101b; // 365 INS(3):! ADD #line 365 "regression-compile-tmp/skimpais.imp" sw1_INS_3:; // 366 REG(J)=REG(J)+S(M) #line 366 "regression-compile-tmp/skimpais.imp" REG[J] = (((int)(REG[J])) + (S[M])); // 367 SP=SP+1 #line 367 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 368 ->L24 #line 368 "regression-compile-tmp/skimpais.imp" goto U_101b; // 369 INS(4):! SUB #line 369 "regression-compile-tmp/skimpais.imp" sw1_INS_4:; // 370 REG(J)=REG(J)-S(M) #line 370 "regression-compile-tmp/skimpais.imp" REG[J] = (((int)(REG[J])) - (S[M])); // 371 SP=SP+1 #line 371 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 372 ->L24 #line 372 "regression-compile-tmp/skimpais.imp" goto U_101b; // 373 INS(5):! MLT #line 373 "regression-compile-tmp/skimpais.imp" sw1_INS_5:; // 374 REG(J)=REG(J)*S(M) #line 374 "regression-compile-tmp/skimpais.imp" REG[J] = (((int)(REG[J])) * (S[M])); // 375 SP=SP+1 #line 375 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 376 ->L24 #line 376 "regression-compile-tmp/skimpais.imp" goto U_101b; // 377 INS(6):! DIV #line 377 "regression-compile-tmp/skimpais.imp" sw1_INS_6:; // 378 REG(J)=REG(J)//S(M) #line 378 "regression-compile-tmp/skimpais.imp" REG[J] = (long)((long)((int)(REG[J])) / (long)((int)(_Z(S[M])))); // 379 SP=SP+1 #line 379 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 380 ->L24 #line 380 "regression-compile-tmp/skimpais.imp" goto U_101b; // 381 INS(7):! EXP #line 381 "regression-compile-tmp/skimpais.imp" sw1_INS_7:; // 382 REG(J)=REG(J)^^S(M) #line 382 "regression-compile-tmp/skimpais.imp" REG[J] = _imp_IEXP(REG[J], S[M]); // 383 !! REG(J)=REG(J)**S(M) // 384 SP=SP+1 #line 384 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 385 ->L24 #line 385 "regression-compile-tmp/skimpais.imp" goto U_101b; // 386 INS(8):! STR #line 386 "regression-compile-tmp/skimpais.imp" sw1_INS_8:; // 387 S(M)=REG(J) #line 387 "regression-compile-tmp/skimpais.imp" S[M] = REG[J]; // 388 SP=SP+1 #line 388 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 389 ->L24 #line 389 "regression-compile-tmp/skimpais.imp" goto U_101b; // 390 INS(9):! NEG #line 390 "regression-compile-tmp/skimpais.imp" sw1_INS_9:; // 391 REG(J)=-REG(J) #line 391 "regression-compile-tmp/skimpais.imp" REG[J] = (-(REG[J])); // 392 SP=SP+1 #line 392 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 393 ->L24 #line 393 "regression-compile-tmp/skimpais.imp" goto U_101b; // 394 INS(10):! NOT #line 394 "regression-compile-tmp/skimpais.imp" sw1_INS_10:; // 395 REG(J)=\REG(J) #line 395 "regression-compile-tmp/skimpais.imp" REG[J] = (~(REG[J])); // 396 SP=SP+1 #line 396 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 397 ->L24 #line 397 "regression-compile-tmp/skimpais.imp" goto U_101b; // 398 INS(11):! SHL #line 398 "regression-compile-tmp/skimpais.imp" sw1_INS_11:; // 399 REG(J)=REG(J)<L24 #line 401 "regression-compile-tmp/skimpais.imp" goto U_101b; // 402 INS(12):! SHR #line 402 "regression-compile-tmp/skimpais.imp" sw1_INS_12:; // 403 REG(J)=REG(J)>>S(M) #line 403 "regression-compile-tmp/skimpais.imp" REG[J] = (int)((((unsigned int)(REG[J])) >> (S[M]))); // 404 SP=SP+1 #line 404 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 405 ->L24 #line 405 "regression-compile-tmp/skimpais.imp" goto U_101b; // 406 INS(13):! AND #line 406 "regression-compile-tmp/skimpais.imp" sw1_INS_13:; // 407 REG(J)=REG(J)&S(M) #line 407 "regression-compile-tmp/skimpais.imp" REG[J] = ((REG[J]) & (S[M])); // 408 SP=SP+1 #line 408 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 409 ->L24 #line 409 "regression-compile-tmp/skimpais.imp" goto U_101b; // 410 INS(14):! OR #line 410 "regression-compile-tmp/skimpais.imp" sw1_INS_14:; // 411 REG(J)=REG(J)!S(M) #line 411 "regression-compile-tmp/skimpais.imp" REG[J] = ((REG[J]) | (S[M])); // 412 SP=SP+1 #line 412 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 413 ->L24 #line 413 "regression-compile-tmp/skimpais.imp" goto U_101b; // 414 INS(15):! XOR #line 414 "regression-compile-tmp/skimpais.imp" sw1_INS_15:; // 415 REG(J)=REG(J)!!S(M) #line 415 "regression-compile-tmp/skimpais.imp" REG[J] = ((REG[J]) ^ (S[M])); // 416 SP=SP+1 #line 416 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 417 ->L24 #line 417 "regression-compile-tmp/skimpais.imp" goto U_101b; // 418 INS(16):! BAL #line 418 "regression-compile-tmp/skimpais.imp" sw1_INS_16:; // 419 REG(J)=SP+1 #line 419 "regression-compile-tmp/skimpais.imp" REG[J] = (((int)(SP)) + (1)); // 420 SP=M #line 420 "regression-compile-tmp/skimpais.imp" SP = M; // 421 ->L24 #line 421 "regression-compile-tmp/skimpais.imp" goto U_101b; // 422 INS(17):! B #line 422 "regression-compile-tmp/skimpais.imp" sw1_INS_17:; // 423 SP=M #line 423 "regression-compile-tmp/skimpais.imp" SP = M; // 424 ->L24 #line 424 "regression-compile-tmp/skimpais.imp" goto U_101b; // 425 INS(18):! BZ #line 425 "regression-compile-tmp/skimpais.imp" sw1_INS_18:; // 426 %IF REG(J)=0 %THEN SP=M %ELSE SP=SP+1 #line 426 "regression-compile-tmp/skimpais.imp" if (((REG[J]) != (0))) goto L_0064; #line 426 "regression-compile-tmp/skimpais.imp" SP = M; #line 426 "regression-compile-tmp/skimpais.imp" goto L_0065; #line 426 "regression-compile-tmp/skimpais.imp" L_0064:; #line 426 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 426 "regression-compile-tmp/skimpais.imp" L_0065:; // 427 ->L24 #line 427 "regression-compile-tmp/skimpais.imp" goto U_101b; // 428 INS(19):! BNZ #line 428 "regression-compile-tmp/skimpais.imp" sw1_INS_19:; // 429 %IF REG(J)\=0 %THEN SP=M %ELSE SP=SP+1 #line 429 "regression-compile-tmp/skimpais.imp" if (((REG[J]) == (0))) goto L_0066; #line 429 "regression-compile-tmp/skimpais.imp" SP = M; #line 429 "regression-compile-tmp/skimpais.imp" goto L_0067; #line 429 "regression-compile-tmp/skimpais.imp" L_0066:; #line 429 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 429 "regression-compile-tmp/skimpais.imp" L_0067:; // 430 ->L24 #line 430 "regression-compile-tmp/skimpais.imp" goto U_101b; // 431 INS(20):! BG #line 431 "regression-compile-tmp/skimpais.imp" sw1_INS_20:; // 432 %IF REG(J)>0 %THEN SP=M %ELSE SP=SP+1 #line 432 "regression-compile-tmp/skimpais.imp" if (((REG[J]) <= (0))) goto L_0068; #line 432 "regression-compile-tmp/skimpais.imp" SP = M; #line 432 "regression-compile-tmp/skimpais.imp" goto L_0069; #line 432 "regression-compile-tmp/skimpais.imp" L_0068:; #line 432 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 432 "regression-compile-tmp/skimpais.imp" L_0069:; // 433 ->L24 #line 433 "regression-compile-tmp/skimpais.imp" goto U_101b; // 434 INS(21):! BNG #line 434 "regression-compile-tmp/skimpais.imp" sw1_INS_21:; // 435 %IF REG(J)<=0 %THEN SP=M %ELSE SP=SP+1 #line 435 "regression-compile-tmp/skimpais.imp" if (((REG[J]) > (0))) goto L_006a; #line 435 "regression-compile-tmp/skimpais.imp" SP = M; #line 435 "regression-compile-tmp/skimpais.imp" goto L_006b; #line 435 "regression-compile-tmp/skimpais.imp" L_006a:; #line 435 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 435 "regression-compile-tmp/skimpais.imp" L_006b:; // 436 ->L24 #line 436 "regression-compile-tmp/skimpais.imp" goto U_101b; // 437 INS(22):! BL #line 437 "regression-compile-tmp/skimpais.imp" sw1_INS_22:; // 438 %IF REG(J)<0 %THEN SP=M %ELSE SP=SP+1 #line 438 "regression-compile-tmp/skimpais.imp" if (((REG[J]) >= (0))) goto L_006c; #line 438 "regression-compile-tmp/skimpais.imp" SP = M; #line 438 "regression-compile-tmp/skimpais.imp" goto L_006d; #line 438 "regression-compile-tmp/skimpais.imp" L_006c:; #line 438 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 438 "regression-compile-tmp/skimpais.imp" L_006d:; // 439 ->L24 #line 439 "regression-compile-tmp/skimpais.imp" goto U_101b; // 440 INS(23):! BNL #line 440 "regression-compile-tmp/skimpais.imp" sw1_INS_23:; // 441 %IF REG(J)>=0 %THEN SP=M %ELSE SP=SP+1 #line 441 "regression-compile-tmp/skimpais.imp" if (((REG[J]) < (0))) goto L_006e; #line 441 "regression-compile-tmp/skimpais.imp" SP = M; #line 441 "regression-compile-tmp/skimpais.imp" goto L_006f; #line 441 "regression-compile-tmp/skimpais.imp" L_006e:; #line 441 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); #line 441 "regression-compile-tmp/skimpais.imp" L_006f:; // 442 ->L24 #line 442 "regression-compile-tmp/skimpais.imp" goto U_101b; // 443 INS(24):! STOP #line 443 "regression-compile-tmp/skimpais.imp" sw1_INS_24:; // 444 NEWLINE #line 444 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 445 OUT(M'STOP') ; OUT(M'PED ') ; OUT(M'AT ') #line 445 "regression-compile-tmp/skimpais.imp" OUT(1398034256); #line 445 "regression-compile-tmp/skimpais.imp" OUT(1346716704); #line 445 "regression-compile-tmp/skimpais.imp" OUT(1096032288); // 446 WRITE(SP,1) #line 446 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 1); // 447 %STOP #line 447 "regression-compile-tmp/skimpais.imp" exit(0); // 448 INS(25):! ADDF #line 448 "regression-compile-tmp/skimpais.imp" sw1_INS_25:; // 449 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))+REAL(ADDR(S(M))) #line 449 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = ((*(float *)(_imp_REAL(_imp_ADDR(®[J])))) + (*_imp_REAL(_imp_ADDR(&S[M])))); // 450 SP=SP+1 #line 450 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 451 ->L24 #line 451 "regression-compile-tmp/skimpais.imp" goto U_101b; // 452 INS(26):! SUBF #line 452 "regression-compile-tmp/skimpais.imp" sw1_INS_26:; // 453 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))-REAL(ADDR(S(M))) #line 453 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = ((*(float *)(_imp_REAL(_imp_ADDR(®[J])))) - (*_imp_REAL(_imp_ADDR(&S[M])))); // 454 SP=SP+1 #line 454 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 455 ->L24 #line 455 "regression-compile-tmp/skimpais.imp" goto U_101b; // 456 INS(27):! MLTF #line 456 "regression-compile-tmp/skimpais.imp" sw1_INS_27:; // 457 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))*REAL(ADDR(S(M))) #line 457 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = ((*(float *)(_imp_REAL(_imp_ADDR(®[J])))) * (*_imp_REAL(_imp_ADDR(&S[M])))); // 458 SP=SP+1 #line 458 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 459 ->L24 #line 459 "regression-compile-tmp/skimpais.imp" goto U_101b; // 460 INS(28):! DIVF #line 460 "regression-compile-tmp/skimpais.imp" sw1_INS_28:; // 461 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))/REAL(ADDR(S(M))) #line 461 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = (double)((double)(*(float *)(_imp_REAL(_imp_ADDR(®[J])))) / (double)(*(float *)(_imp_REAL(_imp_ADDR(&S[M]))))); // 462 SP=SP+1 #line 462 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 463 ->L24 #line 463 "regression-compile-tmp/skimpais.imp" goto U_101b; // 464 INS(29):! EXPF #line 464 "regression-compile-tmp/skimpais.imp" sw1_INS_29:; // 465 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))^S(M) #line 465 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = _imp_REXP(*_imp_REAL(_imp_ADDR(®[J])), S[M]); // 466 !! REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))**S(M) // 467 SP=SP+1 #line 467 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 468 ->L24 #line 468 "regression-compile-tmp/skimpais.imp" goto U_101b; // 469 INS(30):! NEGF #line 469 "regression-compile-tmp/skimpais.imp" sw1_INS_30:; // 470 REAL(ADDR(REG(J)))=-REAL(ADDR(REG(J))) #line 470 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = (-(*_imp_REAL(_imp_ADDR(®[J])))); // 471 SP=SP+1 #line 471 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 472 ->L24 #line 472 "regression-compile-tmp/skimpais.imp" goto U_101b; // 473 INS(31):! FLT #line 473 "regression-compile-tmp/skimpais.imp" sw1_INS_31:; // 474 REAL(ADDR(REG(J)))=REG(J) #line 474 "regression-compile-tmp/skimpais.imp" *_imp_REAL(_imp_ADDR(®[J])) = REG[J]; // 475 SP=SP+1 #line 475 "regression-compile-tmp/skimpais.imp" SP = (((int)(SP)) + (1)); // 476 ->L24 #line 476 "regression-compile-tmp/skimpais.imp" goto U_101b; // 477 IOR(0):! READ SYMBOL #line 477 "regression-compile-tmp/skimpais.imp" sw2_IOR_0:; // 478 READ SYMBOL(S(S(REG(14)+10))) #line 478 "regression-compile-tmp/skimpais.imp" READSYMBOL(&S[S[(((int)(REG[14])) + (10))]]); // 479 SP=REG(13) #line 479 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 480 ->L24 #line 480 "regression-compile-tmp/skimpais.imp" goto U_101b; // 481 IOR(1):! NEXT SYMBOL #line 481 "regression-compile-tmp/skimpais.imp" sw2_IOR_1:; // 482 REG(15)=NEXT SYMBOL #line 482 "regression-compile-tmp/skimpais.imp" REG[15] = _imp_NEXTSYMBOL(); // 483 SP=REG(13) #line 483 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 484 ->L24 #line 484 "regression-compile-tmp/skimpais.imp" goto U_101b; // 485 IOR(2):! SKIP SYMBOL #line 485 "regression-compile-tmp/skimpais.imp" sw2_IOR_2:; // 486 SKIP SYMBOL #line 486 "regression-compile-tmp/skimpais.imp" _imp_SKIPSYMBOL(); // 487 SP=REG(13) #line 487 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 488 ->L24 #line 488 "regression-compile-tmp/skimpais.imp" goto U_101b; // 489 IOR(3):! PRINT SYMBOL #line 489 "regression-compile-tmp/skimpais.imp" sw2_IOR_3:; // 490 PRINT SYMBOL(S(REG(14)+10)) #line 490 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL(S[(((int)(REG[14])) + (10))]); // 491 SP=REG(13) #line 491 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 492 ->L24 #line 492 "regression-compile-tmp/skimpais.imp" goto U_101b; // 493 IOR(4):! SPACE #line 493 "regression-compile-tmp/skimpais.imp" sw2_IOR_4:; // 494 SPACE #line 494 "regression-compile-tmp/skimpais.imp" _imp_SPACE(); // 495 SP=REG(13) #line 495 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 496 ->L24 #line 496 "regression-compile-tmp/skimpais.imp" goto U_101b; // 497 IOR(5):! SPACES #line 497 "regression-compile-tmp/skimpais.imp" sw2_IOR_5:; // 498 SPACES(S(REG(14)+10)) #line 498 "regression-compile-tmp/skimpais.imp" _imp_SPACES(S[(((int)(REG[14])) + (10))]); // 499 SP=REG(13) #line 499 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 500 ->L24 #line 500 "regression-compile-tmp/skimpais.imp" goto U_101b; // 501 IOR(6):! NEWLINE #line 501 "regression-compile-tmp/skimpais.imp" sw2_IOR_6:; // 502 NEWLINE #line 502 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 503 SP=REG(13) #line 503 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 504 ->L24 #line 504 "regression-compile-tmp/skimpais.imp" goto U_101b; // 505 IOR(7):! NEWLINES #line 505 "regression-compile-tmp/skimpais.imp" sw2_IOR_7:; // 506 NEWLINES(S(REG(14)+10)) #line 506 "regression-compile-tmp/skimpais.imp" _imp_NEWLINES(S[(((int)(REG[14])) + (10))]); // 507 SP=REG(13) #line 507 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 508 ->L24 #line 508 "regression-compile-tmp/skimpais.imp" goto U_101b; // 509 IOR(8):! NEWPAGE #line 509 "regression-compile-tmp/skimpais.imp" sw2_IOR_8:; // 510 NEWPAGE #line 510 "regression-compile-tmp/skimpais.imp" NEWPAGE(); // 511 SP=REG(13) #line 511 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 512 ->L24 #line 512 "regression-compile-tmp/skimpais.imp" goto U_101b; // 513 IOR(9):! READ #line 513 "regression-compile-tmp/skimpais.imp" sw2_IOR_9:; // 514 READ(S(S(REG(14)+10))) #line 514 "regression-compile-tmp/skimpais.imp" READ(&S[S[(((int)(REG[14])) + (10))]]); // 515 SP=REG(13) #line 515 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 516 ->L24 #line 516 "regression-compile-tmp/skimpais.imp" goto U_101b; // 517 IOR(10):! WRITE #line 517 "regression-compile-tmp/skimpais.imp" sw2_IOR_10:; // 518 WRITE(S(REG(14)+10),S(REG(14)+11)) #line 518 "regression-compile-tmp/skimpais.imp" _imp_WRITE(S[(((int)(REG[14])) + (10))], S[(((int)(REG[14])) + (11))]); // 519 SP=REG(13) #line 519 "regression-compile-tmp/skimpais.imp" SP = REG[13]; // 520 ->L24 #line 520 "regression-compile-tmp/skimpais.imp" goto U_101b; // 521 %ROUTINE READMN(%INTEGERNAME MN,NEXT) #line 521 "regression-compile-tmp/skimpais.imp" void READMN( int /*name*/*MN, int /*name*/*NEXT ) #line 521 "regression-compile-tmp/skimpais.imp" { // 522 %INTEGER I,J,K #line 522 "regression-compile-tmp/skimpais.imp" int I; #line 522 "regression-compile-tmp/skimpais.imp" int J; #line 522 "regression-compile-tmp/skimpais.imp" int K; // 523 L1: READ SYMBOL(I) #line 523 "regression-compile-tmp/skimpais.imp" U_101d:; #line 523 "regression-compile-tmp/skimpais.imp" READSYMBOL(&I); // 524 %IF I=' ' %THEN ->L1 #line 524 "regression-compile-tmp/skimpais.imp" if (((I) != (32))) goto L_0070; #line 524 "regression-compile-tmp/skimpais.imp" goto U_101d; #line 524 "regression-compile-tmp/skimpais.imp" L_0070:; // 525 %IF I<'A' %OR I>'Z' %THEN %START #line 525 "regression-compile-tmp/skimpais.imp" if (((I) < (65))) goto L_0071; #line 525 "regression-compile-tmp/skimpais.imp" if (((I) <= (90))) goto L_0072; #line 525 "regression-compile-tmp/skimpais.imp" L_0071:; // 526 MN=0 #line 526 "regression-compile-tmp/skimpais.imp" *MN = 0; // 527 NEXT=I #line 527 "regression-compile-tmp/skimpais.imp" *NEXT = I; // 528 %RETURN ; %FINISH #line 528 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; #line 528 "regression-compile-tmp/skimpais.imp" L_0072:; // 529 J=1 #line 529 "regression-compile-tmp/skimpais.imp" J = 1; // 530 L2: READ SYMBOL(K) #line 530 "regression-compile-tmp/skimpais.imp" U_101e:; #line 530 "regression-compile-tmp/skimpais.imp" READSYMBOL(&K); // 531 %IF J=4 %OR K<'0' %OR (K>'9' %AND K<'A') %OR K>'Z' %THEN %START #line 531 "regression-compile-tmp/skimpais.imp" if (((J) == (4))) goto L_0073; #line 531 "regression-compile-tmp/skimpais.imp" if (((K) < (48))) goto L_0073; #line 531 "regression-compile-tmp/skimpais.imp" if (((K) <= (57))) goto L_0074; #line 531 "regression-compile-tmp/skimpais.imp" if (((K) < (65))) goto L_0073; #line 531 "regression-compile-tmp/skimpais.imp" L_0074:; #line 531 "regression-compile-tmp/skimpais.imp" if (((K) <= (90))) goto L_0075; #line 531 "regression-compile-tmp/skimpais.imp" L_0073:; // 532 MN=I #line 532 "regression-compile-tmp/skimpais.imp" *MN = I; // 533 NEXT=K #line 533 "regression-compile-tmp/skimpais.imp" *NEXT = K; // 534 %RETURN ; %FINISH #line 534 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; #line 534 "regression-compile-tmp/skimpais.imp" L_0075:; // 535 I=I<<8!K #line 535 "regression-compile-tmp/skimpais.imp" I = ((((I) << (8))) | (K)); // 536 J=J+1 #line 536 "regression-compile-tmp/skimpais.imp" J = (((int)(J)) + (1)); // 537 ->L2 #line 537 "regression-compile-tmp/skimpais.imp" goto U_101e; // 538 %END #line 538 "regression-compile-tmp/skimpais.imp" return; } // End of block READMN at level 2 // 539 %ROUTINE FAULT(%INTEGER I,J,K,L) #line 539 "regression-compile-tmp/skimpais.imp" void FAULT( int I, int J, int K, int L ) #line 539 "regression-compile-tmp/skimpais.imp" { // 540 OUT(M'*** ') #line 540 "regression-compile-tmp/skimpais.imp" OUT(707406368); // 541 WRITE(SP,4) #line 541 "regression-compile-tmp/skimpais.imp" _imp_WRITE(SP, 4); // 542 SPACES(6) #line 542 "regression-compile-tmp/skimpais.imp" _imp_SPACES(6); // 543 OUT(I) #line 543 "regression-compile-tmp/skimpais.imp" OUT(I); // 544 OUT(J) #line 544 "regression-compile-tmp/skimpais.imp" OUT(J); // 545 OUT(K) #line 545 "regression-compile-tmp/skimpais.imp" OUT(K); // 546 OUT(L) #line 546 "regression-compile-tmp/skimpais.imp" OUT(L); // 547 NEWLINE #line 547 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 548 F=F+1 #line 548 "regression-compile-tmp/skimpais.imp" F = (((int)(F)) + (1)); // 549 %END #line 549 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 2 // 550 %ROUTINE OUT(%INTEGER I) #line 550 "regression-compile-tmp/skimpais.imp" void OUT( int I ) #line 550 "regression-compile-tmp/skimpais.imp" { // 551 PRINT SYMBOL(I>>24) %if I>>24 # 0 #line 551 "regression-compile-tmp/skimpais.imp" if ((((int)((((unsigned int)(I)) >> (24)))) == (0))) goto L_0076; #line 551 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL((int)((((unsigned int)(I)) >> (24)))); #line 551 "regression-compile-tmp/skimpais.imp" L_0076:; // 552 PRINT SYMBOL(I>>16&255) %if I>>16&255 # 0 #line 552 "regression-compile-tmp/skimpais.imp" if ((((((int)((((unsigned int)(I)) >> (16)))) & (255))) == (0))) goto L_0077; #line 552 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL((((int)((((unsigned int)(I)) >> (16)))) & (255))); #line 552 "regression-compile-tmp/skimpais.imp" L_0077:; // 553 PRINT SYMBOL(I>>8&255) %if I>>8&255 # 0 #line 553 "regression-compile-tmp/skimpais.imp" if ((((((int)((((unsigned int)(I)) >> (8)))) & (255))) == (0))) goto L_0078; #line 553 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL((((int)((((unsigned int)(I)) >> (8)))) & (255))); #line 553 "regression-compile-tmp/skimpais.imp" L_0078:; // 554 PRINT SYMBOL(I&255) %if I&255 # 0 #line 554 "regression-compile-tmp/skimpais.imp" if (((((I) & (255))) == (0))) goto L_0079; #line 554 "regression-compile-tmp/skimpais.imp" _imp_PRINTSYMBOL(((I) & (255))); #line 554 "regression-compile-tmp/skimpais.imp" L_0079:; // 555 %END #line 555 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block OUT at level 2 // 556 %ROUTINE DUMP #line 556 "regression-compile-tmp/skimpais.imp" void DUMP( void ) #line 556 "regression-compile-tmp/skimpais.imp" { // 557 %INTEGER I,J #line 557 "regression-compile-tmp/skimpais.imp" int I; #line 557 "regression-compile-tmp/skimpais.imp" int J; // 558 NEWLINE #line 558 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 559 I=0 #line 559 "regression-compile-tmp/skimpais.imp" I = 0; // 560 L1: OUT(RMN(I)) #line 560 "regression-compile-tmp/skimpais.imp" U_101f:; #line 560 "regression-compile-tmp/skimpais.imp" OUT(RMN[I]); // 561 OUT(M' : ') #line 561 "regression-compile-tmp/skimpais.imp" OUT(538982944); // 562 WRITE(REG(I),1) #line 562 "regression-compile-tmp/skimpais.imp" _imp_WRITE(REG[I], 1); // 563 NEWLINE #line 563 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 564 I=I+1 #line 564 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) + (1)); // 565 %IF I<=15 %THEN ->L1 #line 565 "regression-compile-tmp/skimpais.imp" if (((I) > (15))) goto L_007a; #line 565 "regression-compile-tmp/skimpais.imp" goto U_101f; #line 565 "regression-compile-tmp/skimpais.imp" L_007a:; // 566 %IF REG(14)= (ST))) goto L_007b; // 567 OUT(M'STP<') #line 567 "regression-compile-tmp/skimpais.imp" OUT(1398034492); // 568 OUT(M'ST: ') #line 568 "regression-compile-tmp/skimpais.imp" OUT(1398028832); // 569 NEWLINE #line 569 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 570 %RETURN ; %FINISH #line 570 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; #line 570 "regression-compile-tmp/skimpais.imp" L_007b:; // 571 I=ST #line 571 "regression-compile-tmp/skimpais.imp" I = ST; // 572 J=0 #line 572 "regression-compile-tmp/skimpais.imp" J = 0; // 573 L2: %IF J=0 %THEN %START #line 573 "regression-compile-tmp/skimpais.imp" U_1020:; #line 573 "regression-compile-tmp/skimpais.imp" if (((J) != (0))) goto L_007c; // 574 NEWLINE #line 574 "regression-compile-tmp/skimpais.imp" _imp_NEWLINE(); // 575 WRITE(I,5) #line 575 "regression-compile-tmp/skimpais.imp" _imp_WRITE(I, 5); // 576 SPACES(4) #line 576 "regression-compile-tmp/skimpais.imp" _imp_SPACES(4); // 577 %FINISH #line 577 "regression-compile-tmp/skimpais.imp" L_007c:; // 578 WRITE(S(I),6) #line 578 "regression-compile-tmp/skimpais.imp" _imp_WRITE(S[I], 6); // 579 I=I+1 #line 579 "regression-compile-tmp/skimpais.imp" I = (((int)(I)) + (1)); // 580 J=J+1 #line 580 "regression-compile-tmp/skimpais.imp" J = (((int)(J)) + (1)); // 581 %IF J=8 %THEN J=0 #line 581 "regression-compile-tmp/skimpais.imp" if (((J) != (8))) goto L_007d; #line 581 "regression-compile-tmp/skimpais.imp" J = 0; #line 581 "regression-compile-tmp/skimpais.imp" L_007d:; // 582 %IF I<=REG(14) %THEN ->L2 #line 582 "regression-compile-tmp/skimpais.imp" if (((I) > (REG[14]))) goto L_007e; #line 582 "regression-compile-tmp/skimpais.imp" goto U_1020; #line 582 "regression-compile-tmp/skimpais.imp" L_007e:; // 583 %END #line 583 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DUMP at level 2 // 584 %ENDOFPROGRAM #line 584 "regression-compile-tmp/skimpais.imp" /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 #line 584 "regression-compile-tmp/skimpais.imp" // End of file