#include // 1 %begin #line 1 "regression-compile-tmp/asm6809.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 2 {--------------------------------} // 3 { } // 4 { Motorola M6809 Assembler. } // 5 { } // 6 { Copyright M.R.King, 26/3/1984. } // 7 { All rights reserved. } // 8 { } // 9 {--------------------------------} // 10 // 11 %own %string(255) copyright = %c #line 11 "regression-compile-tmp/asm6809.imp" static _imp_string /*%string(255)*/ COPYRIGHT = _imp_str_literal("Motorola M6809 Assembler. Copyright M.R.King, 26/3/1984. All rights reserved."); // 12 "Motorola M6809 Assembler. Copyright M.R.King, 26/3/1984. All rights reserved." // 13 // 14 %constant %integer names = 1023, // 15 line width = 78, // 16 lines on page = 66, // 17 max line = 512, // 18 insert limit = 10, // 19 xentries = 4096 // 20 %constinteger ihash = 59 // 21 %constant %byte %integer %array hilink(0:58) = %c #line 21 "regression-compile-tmp/asm6809.imp" const unsigned char HILINK[59] = { 46, 80, 28, 43, 71, 51, 11, 73, 106, 96, 22, 122, 2, 5, 97, 6, 33, 30, 19, 20, 138, 42, 3, 4, 75, 45, 124, 76, 77, 108, 7, 27, 8, 111, 32, 9, 10, 143, 57, 134, 153, 47, 158, 29, 59, 150, 0, 78, 119, 26, 36, 23, 21, 35, 12, 1, 49, 16, 31, }; // 22 46, 80, 28, 43, 71, 51, 11, 73, 106, 96, 22, 122, // 23 2, 5, 97, 6, 33, 30, 19, 20, 138, 42, 3, 4, // 24 75, 45, 124, 76, 77, 108, 7, 27, 8, 111, 32, 9, // 25 10, 143, 57, 134, 153, 47, 158, 29, 59, 150, 0, 78, // 26 119, 26, 36, 23, 21, 35, 12, 1, 49, 16, 31 // 27 %constant %byte %integer %array ilink(1:198) = %c #line 27 "regression-compile-tmp/asm6809.imp" const unsigned char ILINK[198] = { 15, 34, 13, 14, 17, 18, 114, 37, 40, 24, 82, 39, 74, 50, 68, 69, 38, 48, 25, 99, 61, 121, 115, 92, 54, 117, 66, 65, 44, 41, 63, 162, 88, 62, 0, 70, 0, 60, 67, 198, 94, 84, 58, 120, 147, 55, 52, 87, 56, 53, 72, 188, 110, 98, 64, 140, 133, 81, 85, 0, 116, 137, 100, 102, 90, 160, 186, 89, 154, 0, 112, 113, 83, 109, 126, 123, 79, 86, 0, 101, 91, 105, 170, 146, 151, 118, 128, 93, 139, 104, 0, 142, 193, 95, 164, 107, 127, 141, 166, 185, 103, 155, 0, 167, 0, 0, 0, 0, 144, 0, 0, 129, 0, 132, 163, 183, 131, 161, 130, 149, 175, 136, 125, 148, 184, 0, 177, 135, 156, 0, 0, 0, 157, 152, 159, 187, 145, 176, 169, 0, 165, 168, 179, 171, 181, 174, 0, 0, 0, 0, 197, 0, 172, 0, 0, 0, 0, 0, 0, 0, 194, 0, 196, 190, 0, 178, 0, 0, 192, 173, 0, 180, 189, 182, 0, 0, 0, 0, 0, 0, 0, 195, 0, 0, 0, 0, 0, 191, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; // 28 15, 34, 13, 14, 17, 18, 114, 37, 40, 24, 82, 39, // 29 74, 50, 68, 69, 38, 48, 25, 99, 61, 121, 115, 92, // 30 54, 117, 66, 65, 44, 41, 63, 162, 88, 62, 0, 70, // 31 0, 60, 67, 198, 94, 84, 58, 120, 147, 55, 52, 87, // 32 56, 53, 72, 188, 110, 98, 64, 140, 133, 81, 85, 0, // 33 116, 137, 100, 102, 90, 160, 186, 89, 154, 0, 112, 113, // 34 83, 109, 126, 123, 79, 86, 0, 101, 91, 105, 170, 146, // 35 151, 118, 128, 93, 139, 104, 0, 142, 193, 95, 164, 107, // 36 127, 141, 166, 185, 103, 155, 0, 167, 0, 0, 0, 0, // 37 144, 0, 0, 129, 0, 132, 163, 183, 131, 161, 130, 149, // 38 175, 136, 125, 148, 184, 0, 177, 135, 156, 0, 0, 0, // 39 157, 152, 159, 187, 145, 176, 169, 0, 165, 168, 179, 171, // 40 181, 174, 0, 0, 0, 0, 197, 0, 172, 0, 0, 0, // 41 0, 0, 0, 0, 194, 0, 196, 190, 0, 178, 0, 0, // 42 192, 173, 0, 180, 189, 182, 0, 0, 0, 0, 0, 0, // 43 0, 195, 0, 0, 0, 0, 0, 191, 0, 0, 0, 0, // 44 0, 0, 0, 0, 0, 0 // 45 %constant %string(5) %array instr(1:198) = %c #line 45 "regression-compile-tmp/asm6809.imp" const _imp_string /*%string(5)*/ INSTR[198] = { _imp_str_literal("LD"), _imp_str_literal("LDA"), _imp_str_literal("LDAA"), _imp_str_literal("LDAB"), _imp_str_literal("LDB"), _imp_str_literal("LDD"), _imp_str_literal("LDS"), _imp_str_literal("LDU"), _imp_str_literal("LDX"), _imp_str_literal("LDY"), _imp_str_literal("ST"), _imp_str_literal("STA"), _imp_str_literal("STAA"), _imp_str_literal("STAB"), _imp_str_literal("STB"), _imp_str_literal("STD"), _imp_str_literal("STS"), _imp_str_literal("STU"), _imp_str_literal("STX"), _imp_str_literal("STY"), _imp_str_literal("JSR"), _imp_str_literal("BSR"), _imp_str_literal("LBSR"), _imp_str_literal("BRA"), _imp_str_literal("LBRA"), _imp_str_literal("BRN"), _imp_str_literal("LBRN"), _imp_str_literal("BHI"), _imp_str_literal("LBHI"), _imp_str_literal("BLS"), _imp_str_literal("LBLS"), _imp_str_literal("BCC"), _imp_str_literal("LBCC"), _imp_str_literal("BHS"), _imp_str_literal("LBHS"), _imp_str_literal("BCS"), _imp_str_literal("LBCS"), _imp_str_literal("BLO"), _imp_str_literal("LBLO"), _imp_str_literal("BNE"), _imp_str_literal("LBNE"), _imp_str_literal("BEQ"), _imp_str_literal("LBEQ"), _imp_str_literal("BVC"), _imp_str_literal("LBVC"), _imp_str_literal("BVS"), _imp_str_literal("LBVS"), _imp_str_literal("BPL"), _imp_str_literal("LBPL"), _imp_str_literal("BMI"), _imp_str_literal("LBMI"), _imp_str_literal("BGE"), _imp_str_literal("LBGE"), _imp_str_literal("BLT"), _imp_str_literal("LBLT"), _imp_str_literal("BGT"), _imp_str_literal("LBGT"), _imp_str_literal("BLE"), _imp_str_literal("LBLE"), _imp_str_literal("JMP"), _imp_str_literal("RTS"), _imp_str_literal("SUB"), _imp_str_literal("SUBA"), _imp_str_literal("SUBB"), _imp_str_literal("SUBD"), _imp_str_literal("ADD"), _imp_str_literal("ADDA"), _imp_str_literal("ADDB"), _imp_str_literal("ADDD"), _imp_str_literal("CMP"), _imp_str_literal("CMPA"), _imp_str_literal("CMPB"), _imp_str_literal("CMPD"), _imp_str_literal("CMPS"), _imp_str_literal("CMPU"), _imp_str_literal("CMPX"), _imp_str_literal("CMPY"), _imp_str_literal("CPX"), _imp_str_literal("LEA"), _imp_str_literal("LEAS"), _imp_str_literal("LEAU"), _imp_str_literal("LEAX"), _imp_str_literal("LEAY"), _imp_str_literal("EXG"), _imp_str_literal("TFR"), _imp_str_literal("DEC"), _imp_str_literal("DECA"), _imp_str_literal("DECB"), _imp_str_literal("INC"), _imp_str_literal("INCA"), _imp_str_literal("INCB"), _imp_str_literal("CLR"), _imp_str_literal("CLRA"), _imp_str_literal("CLRB"), _imp_str_literal("INX"), _imp_str_literal("DEX"), _imp_str_literal("AND"), _imp_str_literal("ANDA"), _imp_str_literal("ANDB"), _imp_str_literal("OR"), _imp_str_literal("ORA"), _imp_str_literal("ORAA"), _imp_str_literal("ORAB"), _imp_str_literal("ORB"), _imp_str_literal("EOR"), _imp_str_literal("EORA"), _imp_str_literal("EORB"), _imp_str_literal("BIT"), _imp_str_literal("BITA"), _imp_str_literal("BITB"), _imp_str_literal("LSR"), _imp_str_literal("LSRA"), _imp_str_literal("LSRB"), _imp_str_literal("ROR"), _imp_str_literal("RORA"), _imp_str_literal("RORB"), _imp_str_literal("ASR"), _imp_str_literal("ASRA"), _imp_str_literal("ASRB"), _imp_str_literal("ASL"), _imp_str_literal("ASLA"), _imp_str_literal("ASLB"), _imp_str_literal("LSL"), _imp_str_literal("LSLA"), _imp_str_literal("LSLB"), _imp_str_literal("ROL"), _imp_str_literal("ROLA"), _imp_str_literal("ROLB"), _imp_str_literal("SBC"), _imp_str_literal("SBCA"), _imp_str_literal("SBCB"), _imp_str_literal("ADC"), _imp_str_literal("ADCA"), _imp_str_literal("ADCB"), _imp_str_literal("NEG"), _imp_str_literal("NEGA"), _imp_str_literal("NEGB"), _imp_str_literal("COM"), _imp_str_literal("COMA"), _imp_str_literal("COMB"), _imp_str_literal("TST"), _imp_str_literal("TSTA"), _imp_str_literal("TSTB"), _imp_str_literal("TSX"), _imp_str_literal("INS"), _imp_str_literal("PUL"), _imp_str_literal("PULA"), _imp_str_literal("PULB"), _imp_str_literal("PULS"), _imp_str_literal("PULU"), _imp_str_literal("PSH"), _imp_str_literal("PSHA"), _imp_str_literal("PSHB"), _imp_str_literal("PSHS"), _imp_str_literal("PSHU"), _imp_str_literal("DES"), _imp_str_literal("TXS"), _imp_str_literal("RTI"), _imp_str_literal("WAI"), _imp_str_literal("CWAI"), _imp_str_literal("ANDCC"), _imp_str_literal("ORCC"), _imp_str_literal("SWI"), _imp_str_literal("SWI1"), _imp_str_literal("SWI2"), _imp_str_literal("SWI3"), _imp_str_literal("SBA"), _imp_str_literal("CBA"), _imp_str_literal("ABA"), _imp_str_literal("TAB"), _imp_str_literal("TBA"), _imp_str_literal("DAA"), _imp_str_literal("NOP"), _imp_str_literal("TAP"), _imp_str_literal("TPA"), _imp_str_literal("MUL"), _imp_str_literal("SEX"), _imp_str_literal("ABX"), _imp_str_literal("SYNC"), _imp_str_literal("CLV"), _imp_str_literal("SEV"), _imp_str_literal("CLC"), _imp_str_literal("SEC"), _imp_str_literal("CLI"), _imp_str_literal("SEI"), _imp_str_literal("FCB"), _imp_str_literal("FDB"), _imp_str_literal("EQU"), _imp_str_literal("ORG"), _imp_str_literal("SETDP"), _imp_str_literal("RMB"), _imp_str_literal("FCC"), _imp_str_literal("NAM"), _imp_str_literal("OPT"), _imp_str_literal("PAGE"), _imp_str_literal("SPC"), _imp_str_literal("MON"), _imp_str_literal("END"), }; // 46 "LD","LDA","LDAA","LDAB","LDB","LDD","LDS","LDU","LDX", // 47 "LDY","ST","STA","STAA","STAB","STB","STD","STS","STU", // 48 "STX","STY","JSR","BSR","LBSR","BRA","LBRA","BRN","LBRN", // 49 "BHI","LBHI","BLS","LBLS","BCC","LBCC","BHS","LBHS","BCS", // 50 "LBCS","BLO","LBLO","BNE","LBNE","BEQ","LBEQ","BVC","LBVC", // 51 "BVS","LBVS","BPL","LBPL","BMI","LBMI","BGE","LBGE","BLT", // 52 "LBLT","BGT","LBGT","BLE","LBLE","JMP","RTS","SUB","SUBA", // 53 "SUBB","SUBD","ADD","ADDA","ADDB","ADDD","CMP","CMPA","CMPB", // 54 "CMPD","CMPS","CMPU","CMPX","CMPY","CPX","LEA","LEAS","LEAU", // 55 "LEAX","LEAY","EXG","TFR","DEC","DECA","DECB","INC","INCA", // 56 "INCB","CLR","CLRA","CLRB","INX","DEX","AND","ANDA","ANDB", // 57 "OR","ORA","ORAA","ORAB","ORB","EOR","EORA","EORB","BIT", // 58 "BITA","BITB","LSR","LSRA","LSRB","ROR","RORA","RORB","ASR", // 59 "ASRA","ASRB","ASL","ASLA","ASLB","LSL","LSLA","LSLB","ROL", // 60 "ROLA","ROLB","SBC","SBCA","SBCB","ADC","ADCA","ADCB","NEG", // 61 "NEGA","NEGB","COM","COMA","COMB","TST","TSTA","TSTB","TSX", // 62 "INS","PUL","PULA","PULB","PULS","PULU","PSH","PSHA","PSHB", // 63 "PSHS","PSHU","DES","TXS","RTI","WAI","CWAI","ANDCC","ORCC", // 64 "SWI","SWI1","SWI2","SWI3","SBA","CBA","ABA","TAB","TBA", // 65 "DAA","NOP","TAP","TPA","MUL","SEX","ABX","SYNC","CLV", // 66 "SEV","CLC","SEC","CLI","SEI","FCB","FDB","EQU","ORG", // 67 "SETDP","RMB","FCC","NAM","OPT","PAGE","SPC","MON","END" // 68 // 69 %constant %integer %array icode(1:198) = %c #line 69 "regression-compile-tmp/asm6809.imp" const int ICODE[198] = { 134, 134, 134, 198, 198, 204, 4302, 206, 142, 4238, 135, 135, 135, 199, 199, 205, 4303, 207, 143, 4239, 141, 141, 141, 32, 32, 8448, 4129, 34, 34, 35, 35, 36, 36, 36, 36, 37, 37, 37, 37, 38, 38, 39, 39, 40, 40, 41, 41, 42, 42, 43, 43, 44, 44, 45, 45, 46, 46, 47, 47, 14, 57, 128, 128, 192, 131, 139, 139, 203, 195, 129, 129, 193, 4227, 4492, 4483, 140, 4236, 140, 48, 50, 51, 48, 49, 30, 31, 10, 74, 90, 12, 76, 92, 15, 79, 95, 12289, 12319, 132, 132, 196, 138, 138, 138, 202, 202, 136, 136, 200, 133, 133, 197, 4, 68, 84, 6, 70, 86, 7, 71, 87, 8, 72, 88, 8, 72, 88, 9, 73, 89, 130, 130, 194, 137, 137, 201, 0, 64, 80, 3, 67, 83, 13, 77, 93, 8001, 12897, 53, 13570, 13572, 53, 55, 52, 13314, 13316, 52, 54, 12927, 7956, 59, 15615, 60, 28, 26, 63, 63, 4159, 4415, 41184, 41440, 44000, 35165, 38989, 25, 18, 8074, 8104, 61, 29, 58, 19, 7421, 6658, 7422, 6657, 7407, 6672, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; // 70 16_86,16_86,16_86,16_C6,16_C6,16_CC,16_10CE,16_CE,16_8E, // 71 16_108E,16_87,16_87,16_87,16_C7,16_C7,16_CD,16_10CF,16_CF, // 72 16_8F,16_108F,16_8D,16_8D,16_8D,16_20,16_20,16_2100,16_1021, // 73 16_22,16_22,16_23,16_23,16_24,16_24,16_24,16_24,16_25, // 74 16_25,16_25,16_25,16_26,16_26,16_27,16_27,16_28,16_28, // 75 16_29,16_29,16_2A,16_2A,16_2B,16_2B,16_2C,16_2C,16_2D, // 76 16_2D,16_2E,16_2E,16_2F,16_2F,16_0E,16_39,16_80,16_80, // 77 16_C0,16_83,16_8B,16_8B,16_CB,16_C3,16_81,16_81,16_C1, // 78 16_1083,16_118C,16_1183,16_8C,16_108C,16_8C,16_30,16_32,16_33, // 79 16_30,16_31,16_1E,16_1F,16_0A,16_4A,16_5A,16_0C,16_4C, // 80 16_5C,16_0F,16_4F,16_5F,16_3001,16_301F,16_84,16_84,16_C4, // 81 16_8A,16_8A,16_8A,16_CA,16_CA,16_88,16_88,16_C8,16_85, // 82 16_85,16_C5,16_04,16_44,16_54,16_06,16_46,16_56,16_07, // 83 16_47,16_57,16_08,16_48,16_58,16_08,16_48,16_58,16_09, // 84 16_49,16_59,16_82,16_82,16_C2,16_89,16_89,16_C9,16_00, // 85 16_40,16_50,16_03,16_43,16_53,16_0D,16_4D,16_5D,16_1F41, // 86 16_3261,16_35,16_3502,16_3504,16_35,16_37,16_34,16_3402,16_3404, // 87 16_34,16_36,16_327F,16_1F14,16_3B,16_3CFF,16_3C,16_1C,16_1A, // 88 16_3F,16_3F,16_103F,16_113F,16_A0E0,16_A1E0,16_ABE0,16_895D,16_984D, // 89 16_19,16_12,16_1F8A,16_1FA8,16_3D,16_1D,16_3A,16_13,16_1CFD, // 90 16_1A02,16_1CFE,16_1A01,16_1CEF,16_1A10,16_00,16_00,16_00,16_00, // 91 16_00,16_00,16_00,16_00,16_00,16_00,16_00,16_00,16_00 // 92 %constant %byte %integer %array itype(1:198) = %c #line 92 "regression-compile-tmp/asm6809.imp" const unsigned char ITYPE[198] = { 6, 4, 12, 12, 12, 9, 9, 9, 9, 9, 10, 5, 13, 13, 13, 13, 13, 13, 13, 13, 13, 3, 3, 3, 3, 2, 24, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 14, 1, 8, 12, 12, 9, 8, 12, 12, 9, 7, 12, 12, 9, 9, 9, 9, 9, 9, 16, 17, 17, 17, 17, 18, 18, 15, 1, 1, 15, 1, 1, 15, 1, 1, 2, 2, 11, 12, 12, 11, 4, 12, 12, 12, 11, 12, 12, 11, 12, 12, 15, 1, 1, 15, 1, 1, 15, 1, 1, 15, 1, 1, 15, 1, 1, 15, 1, 1, 11, 12, 12, 11, 12, 12, 15, 1, 1, 15, 1, 1, 15, 1, 1, 2, 2, 19, 2, 2, 20, 20, 19, 2, 2, 20, 20, 2, 2, 1, 2, 21, 21, 21, 23, 1, 1, 1, 25, 25, 25, 22, 22, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 37, }; // 93 6, 4, 12, 12, 12, 9, 9, 9, 9, 9, 10, 5, 13, 13, 13, // 94 13, 13, 13, 13, 13, 13, 3, 3, 3, 3, 2, 24, 3, 3, 3, // 95 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, // 96 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 14, // 97 1, 8, 12, 12, 9, 8, 12, 12, 9, 7, 12, 12, 9, 9, 9, // 98 9, 9, 9, 16, 17, 17, 17, 17, 18, 18, 15, 1, 1, 15, 1, // 99 1, 15, 1, 1, 2, 2, 11, 12, 12, 11, 4, 12, 12, 12, 11, // 100 12, 12, 11, 12, 12, 15, 1, 1, 15, 1, 1, 15, 1, 1, 15, // 101 1, 1, 15, 1, 1, 15, 1, 1, 11, 12, 12, 11, 12, 12, 15, // 102 1, 1, 15, 1, 1, 15, 1, 1, 2, 2, 19, 2, 2, 20, 20, // 103 19, 2, 2, 20, 20, 2, 2, 1, 2, 21, 21, 21, 23, 1, 1, // 104 1, 25, 25, 25, 22, 22, 1, 1, 2, 2, 1, 1, 1, 1, 2, // 105 2, 2, 2, 2, 2, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, // 106 36, 37, 37 // 107 %constant %integer %array icycles(1:198) = %c #line 107 "regression-compile-tmp/asm6809.imp" const int ICYCLES[198] = { 2, 2, 2, 2, 2, 3, 4, 3, 3, 4, 2, 2, 2, 2, 2, 3, 4, 3, 3, 4, 5, 7, 7, 3, 3, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 5, 2, 2, 2, 4, 2, 2, 2, 4, 2, 2, 2, 5, 5, 5, 4, 5, 4, 2, 2, 2, 2, 2, 8, 7, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 6, 5, 5, 6, 6, 5, 5, 5, 6, 6, 5, 5, 5, 6, 15, 21, 21, 3, 3, 19, 19, 20, 20, 11, 11, 11, 8, 8, 2, 2, 6, 6, 11, 2, 3, 2, 3, 3, 3, 3, 3, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; // 108 2, 2, 2, 2, 2, 3, 4, 3, 3, 4, 2, 2, 2, 2, 2, // 109 3, 4, 3, 3, 4, 5, 7, 7, 3, 3, 3, 5, 3, 3, 3, // 110 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, // 111 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, // 112 5, 2, 2, 2, 4, 2, 2, 2, 4, 2, 2, 2, 5, 5, 5, // 113 4, 5, 4, 2, 2, 2, 2, 2, 8, 7, 2, 2, 2, 2, 2, // 114 2, 2, 2, 2, 5, 5, 2, 2, 2, 2, 2, 2, 2, 2, 2, // 115 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, // 116 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, // 117 2, 2, 2, 2, 2, 2, 2, 2, 6, 5, 5, 6, 6, 5, 5, // 118 5, 6, 6, 5, 5, 5, 6, 15, 21, 21, 3, 3, 19, 19, 20, // 119 20, 11, 11, 11, 8, 8, 2, 2, 6, 6, 11, 2, 3, 2, 3, // 120 3, 3, 3, 3, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 121 0, 0, 0 // 122 %constant %integer no options = 51 // 123 %constant %string(10) %array option text(1:no options) = %c #line 123 "regression-compile-tmp/asm6809.imp" const _imp_string /*%string(10)*/ OPTIONTEXT[51] = { _imp_str_literal("BLANK"), _imp_str_literal("B"), _imp_str_literal("NOBLANK"), _imp_str_literal("NOB"), _imp_str_literal("CYCLE"), _imp_str_literal("C"), _imp_str_literal("NOCYCLE"), _imp_str_literal("NOC"), _imp_str_literal("DB8"), _imp_str_literal("DB10"), _imp_str_literal("DB16"), _imp_str_literal("ERROR"), _imp_str_literal("E"), _imp_str_literal("SERROR"), _imp_str_literal("SER"), _imp_str_literal("NOERROR"), _imp_str_literal("NOE"), _imp_str_literal("FULL"), _imp_str_literal("F"), _imp_str_literal("NOFULL"), _imp_str_literal("NOF"), _imp_str_literal("GENERATE"), _imp_str_literal("G"), _imp_str_literal("NOGENERATE"), _imp_str_literal("NOG"), _imp_str_literal("LIST"), _imp_str_literal("L"), _imp_str_literal("SLIST"), _imp_str_literal("SLIS"), _imp_str_literal("NOLIST"), _imp_str_literal("NOL"), _imp_str_literal("PAGE"), _imp_str_literal("P"), _imp_str_literal("NOPAGE"), _imp_str_literal("NOP"), _imp_str_literal("SYMBOL"), _imp_str_literal("S"), _imp_str_literal("NOSYMBOL"), _imp_str_literal("NOS"), _imp_str_literal("TAB"), _imp_str_literal("T"), _imp_str_literal("NOTAB"), _imp_str_literal("NOT"), _imp_str_literal("WRAP"), _imp_str_literal("W"), _imp_str_literal("NOWRAP"), _imp_str_literal("NOW"), _imp_str_literal("XREF"), _imp_str_literal("X"), _imp_str_literal("NOXREF"), _imp_str_literal("NOX"), }; // 124 "BLANK", "B", "NOBLANK", "NOB", "CYCLE", "C", "NOCYCLE", "NOC", // 125 "DB8", "DB10", "DB16", "ERROR", "E", "SERROR", "SER", "NOERROR", // 126 "NOE", "FULL", "F", "NOFULL", "NOF", "GENERATE", "G", "NOGENERATE", // 127 "NOG", "LIST", "L", "SLIST", "SLIS", "NOLIST", "NOL", "PAGE", "P", // 128 "NOPAGE", "NOP", "SYMBOL", "S", "NOSYMBOL", "NOS", "TAB", "T", // 129 "NOTAB", "NOT", "WRAP", "W", "NOWRAP", "NOW", "XREF", "X", "NOXREF", // 130 "NOX" // 131 %string(255) %function %spec lc(%string(255) source) #line 131 "regression-compile-tmp/asm6809.imp" auto _imp_string /*%string(255)*/ LC( _imp_string /*%string(255)*/ SOURCE ); // 132 %predicate %spec matches(%string(255) source, pattern, #line 132 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ MATCHES( _imp_string /*%string(255)*/ SOURCE, _imp_string /*%string(255)*/ PATTERN, int MIN, int /*name*/*I ); // 133 %integer min, %integer %name i) // 134 %predicate %spec is typed(%string(255) source, %string(255) %name file) #line 134 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ ISTYPED( _imp_string /*%string(255)*/ SOURCE, _imp_string /*%string(255)*/ /*name*/*FILE ); // 135 %routine %spec read line #line 135 "regression-compile-tmp/asm6809.imp" auto void READLINE( void ); // 136 %routine %spec next char #line 136 "regression-compile-tmp/asm6809.imp" auto void NEXTCHAR( void ); // 137 %routine %spec skip blanks #line 137 "regression-compile-tmp/asm6809.imp" auto void SKIPBLANKS( void ); // 138 %predicate %spec more items #line 138 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ MOREITEMS( void ); // 139 %integerfn %spec get name(%integername nid) #line 139 "regression-compile-tmp/asm6809.imp" auto int GETNAME( int /*name*/*NID ); // 140 %predicate %spec get option(%integer %name opt) #line 140 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ GETOPTION( int /*name*/*OPT ); // 141 %predicate %spec get instr(%integername id) #line 141 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ GETINSTR( int /*name*/*ID ); // 142 %integerfn %spec get opd(%integername opd) #line 142 "regression-compile-tmp/asm6809.imp" auto int GETOPD( int /*name*/*OPD ); // 143 %integer %function %spec get term(%integer %name opd) #line 143 "regression-compile-tmp/asm6809.imp" auto int GETTERM( int /*name*/*OPD ); // 144 %integer %function %spec get expression(%integer %name opd) #line 144 "regression-compile-tmp/asm6809.imp" auto int GETEXPRESSION( int /*name*/*OPD ); // 145 %routine %spec evaluate(%integer %name a, %integer b, %byte %integer op) #line 145 "regression-compile-tmp/asm6809.imp" auto void EVALUATE( int /*name*/*A, int B, unsigned char OP ); // 146 %integerfn %spec get const(%integername cval) #line 146 "regression-compile-tmp/asm6809.imp" auto int GETCONST( int /*name*/*CVAL ); // 147 %routine %spec analise operand(%integer eca, #line 147 "regression-compile-tmp/asm6809.imp" auto void ANALISEOPERAND( int ECA, int /*name*/*POST, int /*name*/*OPD, int /*name*/*TYPE, int /*name*/*CYCLES ); // 148 %integer %name post, opd, type, cycles) // 149 %routine %spec out symbol(%byte %integer char) #line 149 "regression-compile-tmp/asm6809.imp" auto void OUTSYMBOL( unsigned char CHAR ); // 150 %routine %spec out tag(%integer %name i, j, %integer col) #line 150 "regression-compile-tmp/asm6809.imp" auto void OUTTAG( int /*name*/*I, int /*name*/*J, int COL ); // 151 %routine %spec instr out(%integer op, post,opd,b, cyc) #line 151 "regression-compile-tmp/asm6809.imp" auto void INSTROUT( int OP, int POST, int OPD, int B, int CYC ); // 152 %routine %spec close #line 152 "regression-compile-tmp/asm6809.imp" auto void CLOSE( void ); // 153 %routine %spec fault(%string(63) s) #line 153 "regression-compile-tmp/asm6809.imp" auto void FAULT( _imp_string /*%string(63)*/ S ); // 154 %routine %spec nline(%integer n) #line 154 "regression-compile-tmp/asm6809.imp" auto void NLINE( int N ); // 155 %routine %spec print number(%integer n,d) #line 155 "regression-compile-tmp/asm6809.imp" auto void PRINTNUMBER( int N, int D ); // 156 %predicate %spec accumulator #line 156 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ ACCUMULATOR( void ); // 157 %predicate %spec acc(%byte %integer acc id) #line 157 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ ACC( unsigned char ACCID ); // 158 %predicate %spec auto indexed(%integer %name post, cycles) #line 158 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ AUTOINDEXED( int /*name*/*POST, int /*name*/*CYCLES ); // 159 %predicate %spec cc #line 159 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ CC( void ); // 160 %predicate %spec dp #line 160 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ DP( void ); // 161 %predicate %spec pc #line 161 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ PC( void ); // 162 %predicate %spec pc relative #line 162 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ PCRELATIVE( void ); // 163 %predicate %spec index reg(%integer %name reg) #line 163 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ INDEXREG( int /*name*/*REG ); // 164 %predicate %spec transfer reg(%integer %name reg) #line 164 "regression-compile-tmp/asm6809.imp" auto int /*Boolean*/ TRANSFERREG( int /*name*/*REG ); // 165 %routine %spec sqs(%integer l, r) #line 165 "regression-compile-tmp/asm6809.imp" auto void SQS( int L, int R ); // 166 %byte %integer %array buffer(1:16) #line 166 "regression-compile-tmp/asm6809.imp" unsigned char BUFFER[16]; // 167 %byteinteger %array line(1:max line+1) #line 167 "regression-compile-tmp/asm6809.imp" unsigned char LINE[513]; // 168 %integer ca, pass, faults, lp, opd, iid, lid, ln, nnames, i, j, k, opt, #line 168 "regression-compile-tmp/asm6809.imp" int CA; #line 168 "regression-compile-tmp/asm6809.imp" int PASS; #line 168 "regression-compile-tmp/asm6809.imp" int FAULTS; #line 168 "regression-compile-tmp/asm6809.imp" int LP; #line 168 "regression-compile-tmp/asm6809.imp" int OPD; #line 168 "regression-compile-tmp/asm6809.imp" int IID; #line 168 "regression-compile-tmp/asm6809.imp" int LID; #line 168 "regression-compile-tmp/asm6809.imp" int LN; #line 168 "regression-compile-tmp/asm6809.imp" int NNAMES; #line 168 "regression-compile-tmp/asm6809.imp" int I; #line 168 "regression-compile-tmp/asm6809.imp" int J; #line 168 "regression-compile-tmp/asm6809.imp" int K; #line 168 "regression-compile-tmp/asm6809.imp" int OPT; #line 168 "regression-compile-tmp/asm6809.imp" int ORDER; #line 168 "regression-compile-tmp/asm6809.imp" int CONSISTENT; #line 168 "regression-compile-tmp/asm6809.imp" int LASTCONSISTENT; #line 168 "regression-compile-tmp/asm6809.imp" int HEADSET; #line 168 "regression-compile-tmp/asm6809.imp" int PRESCHAR; #line 168 "regression-compile-tmp/asm6809.imp" int DELIM; #line 168 "regression-compile-tmp/asm6809.imp" int DRAD; #line 168 "regression-compile-tmp/asm6809.imp" int BCHAR; #line 168 "regression-compile-tmp/asm6809.imp" int PFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int SFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int GFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int EFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int LFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int CFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int WFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int TFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int XFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int CONT; #line 168 "regression-compile-tmp/asm6809.imp" int SP1; #line 168 "regression-compile-tmp/asm6809.imp" int SP2; #line 168 "regression-compile-tmp/asm6809.imp" int SP3; #line 168 "regression-compile-tmp/asm6809.imp" int OLDCA; #line 168 "regression-compile-tmp/asm6809.imp" int MCYCLES; #line 168 "regression-compile-tmp/asm6809.imp" int NONDENSE; #line 168 "regression-compile-tmp/asm6809.imp" int ACCOP; #line 168 "regression-compile-tmp/asm6809.imp" int BUFFERCA; #line 168 "regression-compile-tmp/asm6809.imp" int BP; #line 168 "regression-compile-tmp/asm6809.imp" int L; #line 168 "regression-compile-tmp/asm6809.imp" int XXENTRIES; #line 168 "regression-compile-tmp/asm6809.imp" int POST; #line 168 "regression-compile-tmp/asm6809.imp" int TYPE; #line 168 "regression-compile-tmp/asm6809.imp" int ACCFAULT; #line 168 "regression-compile-tmp/asm6809.imp" int DPCONTENTS; #line 168 "regression-compile-tmp/asm6809.imp" int FFLAG; #line 168 "regression-compile-tmp/asm6809.imp" int OSTARTED; #line 168 "regression-compile-tmp/asm6809.imp" int ECA; #line 168 "regression-compile-tmp/asm6809.imp" int LOOKAHEAD; #line 168 "regression-compile-tmp/asm6809.imp" int DIFF; #line 168 "regression-compile-tmp/asm6809.imp" int NOLONGS; #line 168 "regression-compile-tmp/asm6809.imp" int LASTNOLONGS; // 169 order, consistent, last consistent, headset, pres char, delim, drad, // 170 bchar, pflag, sflag, gflag, eflag, lflag, cflag, wflag, tflag, xflag, // 171 cont, sp1, sp2, sp3, old ca, mcycles, non dense, accop, buffer ca, bp, // 172 l, xxentries, post, type, acc fault, dp contents, fflag, ostarted, // 173 eca, look ahead, diff, no longs, last no longs // 174 %constant %integer nhash=67 // 175 %integer %array hnlink(0:nhash-1) #line 175 "regression-compile-tmp/asm6809.imp" int HNLINK[67]; // 176 %string(6)%array name(1:names) #line 176 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(6)*/ NAME[1023]; // 177 %integer %array nval, xhead, ndiff, nlink(1:names) #line 177 "regression-compile-tmp/asm6809.imp" int NVAL[1023]; #line 177 "regression-compile-tmp/asm6809.imp" int XHEAD[1023]; #line 177 "regression-compile-tmp/asm6809.imp" int NDIFF[1023]; #line 177 "regression-compile-tmp/asm6809.imp" int NLINK[1023]; // 178 %byteinteger%array nass(1:names) #line 178 "regression-compile-tmp/asm6809.imp" unsigned char NASS[1023]; // 179 %integer %array xentry, xlink(1:xentries) #line 179 "regression-compile-tmp/asm6809.imp" int XENTRY[4096]; #line 179 "regression-compile-tmp/asm6809.imp" int XLINK[4096]; // 180 %switch option action(-1:no options) #line 180 "regression-compile-tmp/asm6809.imp" static int sw1_OPTIONACTION_idx; static const void * /*SWITCH*/ sw1_OPTIONACTION[53] = { &&sw1_OPTIONACTION_M_1, &&sw1_OPTIONACTION_0, &&sw1_OPTIONACTION_1, &&sw1_OPTIONACTION_2, &&sw1_OPTIONACTION_3, &&sw1_OPTIONACTION_4, &&sw1_OPTIONACTION_5, &&sw1_OPTIONACTION_6, &&sw1_OPTIONACTION_7, &&sw1_OPTIONACTION_8, &&sw1_OPTIONACTION_9, &&sw1_OPTIONACTION_10, &&sw1_OPTIONACTION_11, &&sw1_OPTIONACTION_12, &&sw1_OPTIONACTION_13, &&sw1_OPTIONACTION_14, &&sw1_OPTIONACTION_15, &&sw1_OPTIONACTION_16, &&sw1_OPTIONACTION_17, &&sw1_OPTIONACTION_18, &&sw1_OPTIONACTION_19, &&sw1_OPTIONACTION_20, &&sw1_OPTIONACTION_21, &&sw1_OPTIONACTION_22, &&sw1_OPTIONACTION_23, &&sw1_OPTIONACTION_24, &&sw1_OPTIONACTION_25, &&sw1_OPTIONACTION_26, &&sw1_OPTIONACTION_27, &&sw1_OPTIONACTION_28, &&sw1_OPTIONACTION_29, &&sw1_OPTIONACTION_30, &&sw1_OPTIONACTION_31, &&sw1_OPTIONACTION_32, &&sw1_OPTIONACTION_33, &&sw1_OPTIONACTION_34, &&sw1_OPTIONACTION_35, &&sw1_OPTIONACTION_36, &&sw1_OPTIONACTION_37, &&sw1_OPTIONACTION_38, &&sw1_OPTIONACTION_39, &&sw1_OPTIONACTION_40, &&sw1_OPTIONACTION_41, &&sw1_OPTIONACTION_42, &&sw1_OPTIONACTION_43, &&sw1_OPTIONACTION_44, &&sw1_OPTIONACTION_45, &&sw1_OPTIONACTION_46, &&sw1_OPTIONACTION_47, &&sw1_OPTIONACTION_48, &&sw1_OPTIONACTION_49, &&sw1_OPTIONACTION_50, &&sw1_OPTIONACTION_51, }; // 181 %switch itype1,itype3(1:37) #line 181 "regression-compile-tmp/asm6809.imp" static int sw2_ITYPE1_idx; static const void * /*SWITCH*/ sw2_ITYPE1[37] = { &&sw2_ITYPE1_1, &&sw2_ITYPE1_2, &&sw2_ITYPE1_3, &&sw2_ITYPE1_4, &&sw2_ITYPE1_5, &&sw2_ITYPE1_6, &&sw2_ITYPE1_7, &&sw2_ITYPE1_8, &&sw2_ITYPE1_9, &&sw2_ITYPE1_10, &&sw2_ITYPE1_11, &&sw2_ITYPE1_12, &&sw2_ITYPE1_13, &&sw2_ITYPE1_14, &&sw2_ITYPE1_15, &&sw2_ITYPE1_16, &&sw2_ITYPE1_17, &&sw2_ITYPE1_18, &&sw2_ITYPE1_19, &&sw2_ITYPE1_20, &&sw2_ITYPE1_21, &&sw2_ITYPE1_22, &&sw2_ITYPE1_23, &&sw2_ITYPE1_24, &&sw2_ITYPE1_25, &&sw2_ITYPE1_26, &&sw2_ITYPE1_27, &&sw2_ITYPE1_28, &&sw2_ITYPE1_29, &&sw2_ITYPE1_30, &&sw2_ITYPE1_31, &&sw2_ITYPE1_32, &&sw2_ITYPE1_33, &&sw2_ITYPE1_34, &&sw2_ITYPE1_35, &&sw2_ITYPE1_36, &&sw2_ITYPE1_37, }; #line 181 "regression-compile-tmp/asm6809.imp" static int sw3_ITYPE3_idx; static const void * /*SWITCH*/ sw3_ITYPE3[37] = { &&sw3_ITYPE3_1, &&sw3_ITYPE3_2, &&sw3_ITYPE3_3, &&sw3_ITYPE3_4, &&sw3_ITYPE3_5, &&sw3_ITYPE3_6, &&sw3_ITYPE3_7, &&sw3_ITYPE3_8, &&sw3_ITYPE3_9, &&sw3_ITYPE3_10, &&sw3_ITYPE3_11, &&sw3_ITYPE3_12, &&sw3_ITYPE3_13, &&sw3_ITYPE3_14, &&sw3_ITYPE3_15, &&sw3_ITYPE3_16, &&sw3_ITYPE3_17, &&sw3_ITYPE3_18, &&sw3_ITYPE3_19, &&sw3_ITYPE3_20, &&sw3_ITYPE3_21, &&sw3_ITYPE3_22, &&sw3_ITYPE3_23, &&sw3_ITYPE3_24, &&sw3_ITYPE3_25, &&sw3_ITYPE3_26, &&sw3_ITYPE3_27, &&sw3_ITYPE3_28, &&sw3_ITYPE3_29, &&sw3_ITYPE3_30, &&sw3_ITYPE3_31, &&sw3_ITYPE3_32, &&sw3_ITYPE3_33, &&sw3_ITYPE3_34, &&sw3_ITYPE3_35, &&sw3_ITYPE3_36, &&sw3_ITYPE3_37, }; // 182 %string(line width-37) header #line 182 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(41)*/ HEADER; // 183 %string(*) %name file #line 183 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ /*name*/*FILE; // 184 %string(255) params, source, list, object, dummy #line 184 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ PARAMS; #line 184 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ SOURCE; #line 184 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ LIST; #line 184 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ OBJECT; #line 184 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ DUMMY; // 185 // 186 %on %event 9 %start #line 186 "regression-compile-tmp/asm6809.imp" if (!_imp_on_event(9)) goto L_0002; /* TO DO: Remove %on %event handler just before L_0002: if present for this block */ // 187 select output(0) #line 187 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(0); // 188 print string(event_message{source." does not exist."}) #line 188 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_EVENT().MESSAGE); // 189 new line #line 189 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 190 %stop #line 190 "regression-compile-tmp/asm6809.imp" exit(0); // 191 %finish #line 191 "regression-compile-tmp/asm6809.imp" L_0002:; // 192 // 193 ! params = "" // 194 ! select input(0) // 195 ! read symbol(i) // 196 ! params = params.to string(i) %and read symbol(i) %while i#nl // 197 ! params = lc(params) // 198 params = lc(cliparam) #line 198 "regression-compile-tmp/asm6809.imp" PARAMS = LC(_imp_CLIPARAM()); // 199 source = "" #line 199 "regression-compile-tmp/asm6809.imp" SOURCE = _imp_str_literal(""); // 200 list = ".n" #line 200 "regression-compile-tmp/asm6809.imp" LIST = _imp_str_literal(".n"); // 201 object = "" #line 201 "regression-compile-tmp/asm6809.imp" OBJECT = _imp_str_literal(""); // 202 dummy = "" #line 202 "regression-compile-tmp/asm6809.imp" DUMMY = _imp_str_literal(""); // 203 %cycle #line 203 "regression-compile-tmp/asm6809.imp" L_0003:; // 204 i = 1 #line 204 "regression-compile-tmp/asm6809.imp" I = 1; // 205 i = i+1 %while i<=length(params) %and charno(params, i)=' ' #line 205 "regression-compile-tmp/asm6809.imp" L_0006:; #line 205 "regression-compile-tmp/asm6809.imp" if (((I) > (*_imp_LENGTH(&PARAMS)))) goto L_0007; #line 205 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&PARAMS, I)) != (32))) goto L_0007; #line 205 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); #line 205 "regression-compile-tmp/asm6809.imp" goto L_0006; #line 205 "regression-compile-tmp/asm6809.imp" L_0007:; // 206 %exit %if i>length(params) #line 206 "regression-compile-tmp/asm6809.imp" if (((I) <= (*_imp_LENGTH(&PARAMS)))) goto L_0009; #line 206 "regression-compile-tmp/asm6809.imp" goto L_0004; #line 206 "regression-compile-tmp/asm6809.imp" L_0009:; // 207 params = substring(params, i, length(params)) #line 207 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_SUBSTRING(&PARAMS, I, *_imp_LENGTH(&PARAMS)); // 208 %if charno(params, 1)='/' %start #line 208 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&PARAMS, 1)) != (47))) goto L_000a; // 209 params = substring(params, 2, length(params)) #line 209 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_SUBSTRING(&PARAMS, 2, *_imp_LENGTH(&PARAMS)); // 210 %if matches(params, "list", 1, i) %start #line 210 "regression-compile-tmp/asm6809.imp" if (!(MATCHES(PARAMS, _imp_str_literal("list"), 1, &I))) goto L_000b; // 211 list = "" #line 211 "regression-compile-tmp/asm6809.imp" LIST = _imp_str_literal(""); // 212 file == list #line 212 "regression-compile-tmp/asm6809.imp" FILE = &LIST; // 213 %finish %else %if matches(params, "object", 1, i) %start #line 213 "regression-compile-tmp/asm6809.imp" goto L_000c; #line 213 "regression-compile-tmp/asm6809.imp" L_000b:; #line 213 "regression-compile-tmp/asm6809.imp" if (!(MATCHES(PARAMS, _imp_str_literal("object"), 1, &I))) goto L_000d; // 214 object = "" #line 214 "regression-compile-tmp/asm6809.imp" OBJECT = _imp_str_literal(""); // 215 file == object #line 215 "regression-compile-tmp/asm6809.imp" FILE = &OBJECT; // 216 %finish %else %if matches(params, "nolist", 3, i) %start #line 216 "regression-compile-tmp/asm6809.imp" goto L_000c; #line 216 "regression-compile-tmp/asm6809.imp" L_000d:; #line 216 "regression-compile-tmp/asm6809.imp" if (!(MATCHES(PARAMS, _imp_str_literal("nolist"), 3, &I))) goto L_000e; // 217 list = ".n" #line 217 "regression-compile-tmp/asm6809.imp" LIST = _imp_str_literal(".n"); // 218 file == dummy #line 218 "regression-compile-tmp/asm6809.imp" FILE = &DUMMY; // 219 %finish %else %if matches(params, "noobject", 3, i) %start #line 219 "regression-compile-tmp/asm6809.imp" goto L_000c; #line 219 "regression-compile-tmp/asm6809.imp" L_000e:; #line 219 "regression-compile-tmp/asm6809.imp" if (!(MATCHES(PARAMS, _imp_str_literal("noobject"), 3, &I))) goto L_000f; // 220 object = ".n" #line 220 "regression-compile-tmp/asm6809.imp" OBJECT = _imp_str_literal(".n"); // 221 file == dummy #line 221 "regression-compile-tmp/asm6809.imp" FILE = &DUMMY; // 222 %else #line 222 "regression-compile-tmp/asm6809.imp" goto L_000c; #line 222 "regression-compile-tmp/asm6809.imp" L_000f:; // 223 i = 1 #line 223 "regression-compile-tmp/asm6809.imp" I = 1; // 224 file == dummy #line 224 "regression-compile-tmp/asm6809.imp" FILE = &DUMMY; // 225 %finish #line 225 "regression-compile-tmp/asm6809.imp" L_000c:; // 226 %exit %if i>length(params) #line 226 "regression-compile-tmp/asm6809.imp" if (((I) <= (*_imp_LENGTH(&PARAMS)))) goto L_0010; #line 226 "regression-compile-tmp/asm6809.imp" goto L_0004; #line 226 "regression-compile-tmp/asm6809.imp" L_0010:; // 227 params = substring(params, i, length(params)) #line 227 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_SUBSTRING(&PARAMS, I, *_imp_LENGTH(&PARAMS)); // 228 %continue %unless charno(params, 1)='=' #line 228 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&PARAMS, 1)) == (61))) goto L_0011; #line 228 "regression-compile-tmp/asm6809.imp" goto L_0005; #line 228 "regression-compile-tmp/asm6809.imp" L_0011:; // 229 %if length(params)>1 %start #line 229 "regression-compile-tmp/asm6809.imp" if (((*_imp_LENGTH(&PARAMS)) <= (1))) goto L_0012; // 230 params = substring(params, 2, length(params)) #line 230 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_SUBSTRING(&PARAMS, 2, *_imp_LENGTH(&PARAMS)); // 231 %else #line 231 "regression-compile-tmp/asm6809.imp" goto L_0013; #line 231 "regression-compile-tmp/asm6809.imp" L_0012:; // 232 params = "" #line 232 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_str_literal(""); // 233 %finish #line 233 "regression-compile-tmp/asm6809.imp" L_0013:; // 234 %else #line 234 "regression-compile-tmp/asm6809.imp" goto L_0014; #line 234 "regression-compile-tmp/asm6809.imp" L_000a:; // 235 file == source #line 235 "regression-compile-tmp/asm6809.imp" FILE = &SOURCE; // 236 %finish #line 236 "regression-compile-tmp/asm6809.imp" L_0014:; // 237 i = 1 #line 237 "regression-compile-tmp/asm6809.imp" I = 1; // 238 i = i+1 %while i<=length(params) %and charno(params, i)#' ' %and %c #line 238 "regression-compile-tmp/asm6809.imp" L_0015:; #line 238 "regression-compile-tmp/asm6809.imp" if (((I) > (*_imp_LENGTH(&PARAMS)))) goto L_0016; #line 238 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&PARAMS, I)) == (32))) goto L_0016; #line 238 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&PARAMS, I)) == (47))) goto L_0016; #line 238 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); #line 238 "regression-compile-tmp/asm6809.imp" goto L_0015; #line 238 "regression-compile-tmp/asm6809.imp" L_0016:; // 239 charno(params, i)#'/' // 240 file = substring(params, 1, i-1) %if i>1 #line 240 "regression-compile-tmp/asm6809.imp" if (((I) <= (1))) goto L_0018; #line 240 "regression-compile-tmp/asm6809.imp" *FILE = _imp_SUBSTRING(&PARAMS, 1, (((int)(I)) - (1))); #line 240 "regression-compile-tmp/asm6809.imp" L_0018:; // 241 %exit %if i>length(params) #line 241 "regression-compile-tmp/asm6809.imp" if (((I) <= (*_imp_LENGTH(&PARAMS)))) goto L_0019; #line 241 "regression-compile-tmp/asm6809.imp" goto L_0004; #line 241 "regression-compile-tmp/asm6809.imp" L_0019:; // 242 params = substring(params, i, length(params)) #line 242 "regression-compile-tmp/asm6809.imp" PARAMS = _imp_SUBSTRING(&PARAMS, I, *_imp_LENGTH(&PARAMS)); // 243 %repeat #line 243 "regression-compile-tmp/asm6809.imp" L_0005:; #line 243 "regression-compile-tmp/asm6809.imp" goto L_0003; #line 243 "regression-compile-tmp/asm6809.imp" L_0004:; // 244 // 245 %if source="" %start #line 245 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(SOURCE, _imp_str_literal("")) != 0)) goto L_001a; // 246 select output(0) #line 246 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(0); // 247 print string("No source file specified.") #line 247 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal("No source file specified.")); // 248 new line #line 248 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 249 %stop #line 249 "regression-compile-tmp/asm6809.imp" exit(0); // 250 %finish #line 250 "regression-compile-tmp/asm6809.imp" L_001a:; // 251 // 252 source = source.".asm" %unless is typed(source, params) #line 252 "regression-compile-tmp/asm6809.imp" if (ISTYPED(SOURCE, &PARAMS)) goto L_001b; #line 252 "regression-compile-tmp/asm6809.imp" SOURCE = _imp_join((_imp_string)SOURCE,(_imp_string)_imp_str_literal(".asm")); #line 252 "regression-compile-tmp/asm6809.imp" L_001b:; // 253 // 254 list = params %if list="" #line 254 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(LIST, _imp_str_literal("")) != 0)) goto L_001c; #line 254 "regression-compile-tmp/asm6809.imp" LIST = PARAMS; #line 254 "regression-compile-tmp/asm6809.imp" L_001c:; // 255 object = params %if object="" #line 255 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(OBJECT, _imp_str_literal("")) != 0)) goto L_001d; #line 255 "regression-compile-tmp/asm6809.imp" OBJECT = PARAMS; #line 255 "regression-compile-tmp/asm6809.imp" L_001d:; // 256 list = list.".lis" %unless is typed(list, dummy) #line 256 "regression-compile-tmp/asm6809.imp" if (ISTYPED(LIST, &DUMMY)) goto L_001e; #line 256 "regression-compile-tmp/asm6809.imp" LIST = _imp_join((_imp_string)LIST,(_imp_string)_imp_str_literal(".lis")); #line 256 "regression-compile-tmp/asm6809.imp" L_001e:; // 257 object = object.".obj" %unless is typed(object, dummy) #line 257 "regression-compile-tmp/asm6809.imp" if (ISTYPED(OBJECT, &DUMMY)) goto L_001f; #line 257 "regression-compile-tmp/asm6809.imp" OBJECT = _imp_join((_imp_string)OBJECT,(_imp_string)_imp_str_literal(".obj")); #line 257 "regression-compile-tmp/asm6809.imp" L_001f:; // 258 // 259 open input(1, source) #line 259 "regression-compile-tmp/asm6809.imp" _imp_OPENINPUT(1, SOURCE); // 260 open output(1, object) #line 260 "regression-compile-tmp/asm6809.imp" _imp_OPENOUTPUT(1, OBJECT); // 261 open output(2, list) #line 261 "regression-compile-tmp/asm6809.imp" _imp_OPENOUTPUT(2, LIST); // 262 select output(2) #line 262 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(2); // 263 headset = 0 #line 263 "regression-compile-tmp/asm6809.imp" HEADSET = 0; // 264 header = "" #line 264 "regression-compile-tmp/asm6809.imp" HEADER = _imp_str_literal(""); // 265 drad = 8 #line 265 "regression-compile-tmp/asm6809.imp" DRAD = 8; // 266 sp1 = 2 #line 266 "regression-compile-tmp/asm6809.imp" SP1 = 2; // 267 sp2 = 4 #line 267 "regression-compile-tmp/asm6809.imp" SP2 = 4; // 268 pflag = 3 #line 268 "regression-compile-tmp/asm6809.imp" PFLAG = 3; // 269 sflag = 0 #line 269 "regression-compile-tmp/asm6809.imp" SFLAG = 0; // 270 eflag = 1 #line 270 "regression-compile-tmp/asm6809.imp" EFLAG = 1; // 271 gflag = 1 #line 271 "regression-compile-tmp/asm6809.imp" GFLAG = 1; // 272 lflag = 2 #line 272 "regression-compile-tmp/asm6809.imp" LFLAG = 2; // 273 cflag = 0 #line 273 "regression-compile-tmp/asm6809.imp" CFLAG = 0; // 274 wflag = 0 #line 274 "regression-compile-tmp/asm6809.imp" WFLAG = 0; // 275 tflag = 1 #line 275 "regression-compile-tmp/asm6809.imp" TFLAG = 1; // 276 xflag = 0 #line 276 "regression-compile-tmp/asm6809.imp" XFLAG = 0; // 277 sp3 = line width-sp1-sp2*3-cflag*3-wflag-11 #line 277 "regression-compile-tmp/asm6809.imp" SP3 = (((int)((((int)((((((((((int)(78)) - (SP1)))) - ((((int)(SP2)) * (3)))))) - ((((int)(CFLAG)) * (3)))))) - (WFLAG)))) - (11)); // 278 cont = 0 #line 278 "regression-compile-tmp/asm6809.imp" CONT = 0; // 279 faults=0 #line 279 "regression-compile-tmp/asm6809.imp" FAULTS = 0; // 280 nnames=0 #line 280 "regression-compile-tmp/asm6809.imp" NNAMES = 0; // 281 xxentries = 0 #line 281 "regression-compile-tmp/asm6809.imp" XXENTRIES = 0; // 282 consistent = 0 #line 282 "regression-compile-tmp/asm6809.imp" CONSISTENT = 0; // 283 last consistent = 0 #line 283 "regression-compile-tmp/asm6809.imp" LASTCONSISTENT = 0; // 284 last no longs = 0 #line 284 "regression-compile-tmp/asm6809.imp" LASTNOLONGS = 0; // 285 hnlink(i)=0 %for i = 0, 1, nhash-1 #line 285 "regression-compile-tmp/asm6809.imp" I = (-1); if ((((66)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 66"); L_0020:; if (I == 66) goto L_0021; I += 1; #line 285 "regression-compile-tmp/asm6809.imp" HNLINK[I] = 0; #line 285 "regression-compile-tmp/asm6809.imp" goto L_0020; #line 285 "regression-compile-tmp/asm6809.imp" L_0021:; // 286 ostarted = 0 #line 286 "regression-compile-tmp/asm6809.imp" OSTARTED = 0; // 287 bp = 0 #line 287 "regression-compile-tmp/asm6809.imp" BP = 0; // 288 look ahead = 0 #line 288 "regression-compile-tmp/asm6809.imp" LOOKAHEAD = 0; // 289 !----------------------------------------------------------------------- // 290 select input(1) #line 290 "regression-compile-tmp/asm6809.imp" _imp_SELECTINPUT(1); // 291 pass = 1 #line 291 "regression-compile-tmp/asm6809.imp" PASS = 1; // 292 %cycle #line 292 "regression-compile-tmp/asm6809.imp" L_0023:; // 293 ln = 0 #line 293 "regression-compile-tmp/asm6809.imp" LN = 0; // 294 dp contents = 0 #line 294 "regression-compile-tmp/asm6809.imp" DPCONTENTS = 0; // 295 ca = 0 #line 295 "regression-compile-tmp/asm6809.imp" CA = 0; // 296 bchar = -1 #line 296 "regression-compile-tmp/asm6809.imp" BCHAR = (-1); // 297 fflag = 0 #line 297 "regression-compile-tmp/asm6809.imp" FFLAG = 0; // 298 no longs = 0 #line 298 "regression-compile-tmp/asm6809.imp" NOLONGS = 0; // 299 %cycle #line 299 "regression-compile-tmp/asm6809.imp" L_0026:; // 300 read line #line 300 "regression-compile-tmp/asm6809.imp" READLINE(); // 301 %continue %if pres char='*' #line 301 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (42))) goto L_0029; #line 301 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 301 "regression-compile-tmp/asm6809.imp" L_0029:; // 302 %if get name(lid)=0 %start #line 302 "regression-compile-tmp/asm6809.imp" if (((GETNAME(&LID)) != (0))) goto L_002a; // 303 %if pass=1 %start #line 303 "regression-compile-tmp/asm6809.imp" if (((PASS) != (1))) goto L_002b; // 304 %if nass(lid)=0 %start #line 304 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (0))) goto L_002c; // 305 nval(lid) = ca #line 305 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = CA; // 306 nass(lid) = 1 #line 306 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 1; // 307 %else #line 307 "regression-compile-tmp/asm6809.imp" goto L_002d; #line 307 "regression-compile-tmp/asm6809.imp" L_002c:; // 308 nval(lid) = 0 #line 308 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 309 nass(lid) = 2 #line 309 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 2; // 310 %finish #line 310 "regression-compile-tmp/asm6809.imp" L_002d:; // 311 %finish %else %if nass(lid)=1 %and ca#nval(lid) %start #line 311 "regression-compile-tmp/asm6809.imp" goto L_002e; #line 311 "regression-compile-tmp/asm6809.imp" L_002b:; #line 311 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (1))) goto L_002f; #line 311 "regression-compile-tmp/asm6809.imp" if (((CA) == (NVAL[(((int)(LID)) - (1))]))) goto L_002f; // 312 diff = nval(lid)-ca #line 312 "regression-compile-tmp/asm6809.imp" DIFF = (((int)(NVAL[(((int)(LID)) - (1))])) - (CA)); // 313 nval(lid) = ca #line 313 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = CA; // 314 %if pass=3 %start #line 314 "regression-compile-tmp/asm6809.imp" if (((PASS) != (3))) goto L_0030; // 315 %for i = 1, 1, consistent %cycle #line 315 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = CONSISTENT; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, CONSISTENT"); I -= _increment; _control -= _increment; L_0031:; if (I == _final) goto L_0032; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 316 -> diff found %if ndiff(i)=diff #line 316 "regression-compile-tmp/asm6809.imp" if (((NDIFF[(((int)(I)) - (1))]) != (DIFF))) goto L_0034; #line 316 "regression-compile-tmp/asm6809.imp" goto U_1000; #line 316 "regression-compile-tmp/asm6809.imp" L_0034:; // 317 %repeat #line 317 "regression-compile-tmp/asm6809.imp" goto L_0031; #line 317 "regression-compile-tmp/asm6809.imp" L_0032:; // 318 consistent = consistent+1 #line 318 "regression-compile-tmp/asm6809.imp" CONSISTENT = (((int)(CONSISTENT)) + (1)); // 319 ndiff(consistent) = diff #line 319 "regression-compile-tmp/asm6809.imp" NDIFF[(((int)(CONSISTENT)) - (1))] = DIFF; // 320 diff found: %finish #line 320 "regression-compile-tmp/asm6809.imp" U_1000:; #line 320 "regression-compile-tmp/asm6809.imp" L_0030:; // 321 %finish #line 321 "regression-compile-tmp/asm6809.imp" L_002f:; #line 321 "regression-compile-tmp/asm6809.imp" L_002e:; // 322 %else #line 322 "regression-compile-tmp/asm6809.imp" goto L_0035; #line 322 "regression-compile-tmp/asm6809.imp" L_002a:; // 323 lid = 0 #line 323 "regression-compile-tmp/asm6809.imp" LID = 0; // 324 %finish #line 324 "regression-compile-tmp/asm6809.imp" L_0035:; // 325 next char %while pres char=' ' #line 325 "regression-compile-tmp/asm6809.imp" L_0036:; #line 325 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (32))) goto L_0037; #line 325 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 325 "regression-compile-tmp/asm6809.imp" goto L_0036; #line 325 "regression-compile-tmp/asm6809.imp" L_0037:; // 326 %continue %unless get instr(iid) #line 326 "regression-compile-tmp/asm6809.imp" if (GETINSTR(&IID)) goto L_0039; #line 326 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 326 "regression-compile-tmp/asm6809.imp" L_0039:; // 327 next char %while pres char=' ' #line 327 "regression-compile-tmp/asm6809.imp" L_003a:; #line 327 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (32))) goto L_003b; #line 327 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 327 "regression-compile-tmp/asm6809.imp" goto L_003a; #line 327 "regression-compile-tmp/asm6809.imp" L_003b:; // 328 %if itype(iid)<=25 %start #line 328 "regression-compile-tmp/asm6809.imp" if ((((ITYPE-1)[IID]) > (25))) goto L_003d; // 329 %if 0<=icode(iid)<=255 %start #line 329 "regression-compile-tmp/asm6809.imp" if ((((0) > ((ICODE-1)[IID]))) || ((((ICODE-1)[IID]) > (255)))) goto L_003e; // 330 ca = ca+1 #line 330 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 331 %else #line 331 "regression-compile-tmp/asm6809.imp" goto L_003f; #line 331 "regression-compile-tmp/asm6809.imp" L_003e:; // 332 ca = ca+2 #line 332 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); // 333 %finish #line 333 "regression-compile-tmp/asm6809.imp" L_003f:; // 334 %finish #line 334 "regression-compile-tmp/asm6809.imp" L_003d:; // 335 ->itype1(itype(iid)) #line 335 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = (ITYPE-1)[IID]; if ((1 <= sw2_ITYPE1_idx) && (sw2_ITYPE1_idx <= 37)) goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ else { /*_imp_signal(8, 2, sw2_ITYPE1_idx);*/ fprintf(stderr, "%%SWITCH index ITYPE1(%d) not in range 1:37 at %s:%d\n", sw2_ITYPE1_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 336 !----------------------------------------------------------------------- // 337 itype1(1):! implied #line 337 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_1:; // 338 itype1(2): ! 6800 special implied #line 338 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_2:; // 339 %continue #line 339 "regression-compile-tmp/asm6809.imp" goto L_0028; // 340 !----------------------------------------------------------------------- // 341 itype1(3):! relative #line 341 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_3:; // 342 %if pass<3 %or get opd(opd)#0 %or -128<=opd-ca-1<=127 %start #line 342 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_003c; #line 342 "regression-compile-tmp/asm6809.imp" if (((GETOPD(&OPD)) != (0))) goto L_003c; #line 342 "regression-compile-tmp/asm6809.imp" if (((((-128)) > ((((int)((((int)(OPD)) - (CA)))) - (1))))) || ((((((int)((((int)(OPD)) - (CA)))) - (1))) > (127)))) goto L_0040; #line 342 "regression-compile-tmp/asm6809.imp" L_003c:; // 343 ca = ca+1 #line 343 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 344 %finish %else %if icode(iid)=16_20 %or icode(iid)=16_8D %start #line 344 "regression-compile-tmp/asm6809.imp" goto L_0041; #line 344 "regression-compile-tmp/asm6809.imp" L_0040:; #line 344 "regression-compile-tmp/asm6809.imp" if ((((ICODE-1)[IID]) == (32))) goto L_0042; #line 344 "regression-compile-tmp/asm6809.imp" if ((((ICODE-1)[IID]) != (141))) goto L_0043; #line 344 "regression-compile-tmp/asm6809.imp" L_0042:; // 345 ca = ca+2 #line 345 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); // 346 no longs = no longs+1 #line 346 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)(NOLONGS)) + (1)); // 347 %else #line 347 "regression-compile-tmp/asm6809.imp" goto L_0041; #line 347 "regression-compile-tmp/asm6809.imp" L_0043:; // 348 ca = ca+3 #line 348 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (3)); // 349 no longs = no longs+1 #line 349 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)(NOLONGS)) + (1)); // 350 %finish #line 350 "regression-compile-tmp/asm6809.imp" L_0041:; // 351 %continue #line 351 "regression-compile-tmp/asm6809.imp" goto L_0028; // 352 !----------------------------------------------------------------------- // 353 itype1(4): ! lda, ora #line 353 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_4:; // 354 ca = ca+1 %and %continue %if pres char='#' #line 354 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_0044; #line 354 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); #line 354 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 354 "regression-compile-tmp/asm6809.imp" L_0044:; // 355 analise operand(ca, post, opd, type, mcycles) #line 355 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(CA, &POST, &OPD, &TYPE, &MCYCLES); // 356 %if 1<=type<=2 %start #line 356 "regression-compile-tmp/asm6809.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0045; // 357 skip blanks #line 357 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 358 -> itype1(12) #line 358 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 359 %finish #line 359 "regression-compile-tmp/asm6809.imp" L_0045:; // 360 -> analise double #line 360 "regression-compile-tmp/asm6809.imp" goto U_1001; // 361 !---------------------------------------------------------------------- // 362 itype1(5): ! sta #line 362 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_5:; // 363 analise operand(ca, post, opd, type, mcycles) #line 363 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(CA, &POST, &OPD, &TYPE, &MCYCLES); // 364 %if 1<=type<=2 %start #line 364 "regression-compile-tmp/asm6809.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0046; // 365 skip blanks #line 365 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 366 -> itype1(13) #line 366 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 13; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 367 %finish #line 367 "regression-compile-tmp/asm6809.imp" L_0046:; // 368 -> analise double #line 368 "regression-compile-tmp/asm6809.imp" goto U_1001; // 369 !----------------------------------------------------------------------- // 370 itype1(6): ! ld #line 370 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_6:; // 371 %if accumulator %start #line 371 "regression-compile-tmp/asm6809.imp" if (!(ACCUMULATOR())) goto L_0047; // 372 skip blanks #line 372 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 373 -> itype1(12) #line 373 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 374 %finish %else %if acc('S') %or acc('Y') %start #line 374 "regression-compile-tmp/asm6809.imp" L_0047:; #line 374 "regression-compile-tmp/asm6809.imp" if (ACC(83)) goto L_0048; #line 374 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_0049; #line 374 "regression-compile-tmp/asm6809.imp" L_0048:; // 375 ca = ca+1 #line 375 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 376 %finish %else %unless acc('D') %or acc('U') %or acc('X') %start #line 376 "regression-compile-tmp/asm6809.imp" goto L_004a; #line 376 "regression-compile-tmp/asm6809.imp" L_0049:; #line 376 "regression-compile-tmp/asm6809.imp" if (ACC(68)) goto L_004b; #line 376 "regression-compile-tmp/asm6809.imp" if (ACC(85)) goto L_004b; #line 376 "regression-compile-tmp/asm6809.imp" if (ACC(88)) goto L_004b; // 377 -> itype1(12) #line 377 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 378 %finish #line 378 "regression-compile-tmp/asm6809.imp" L_004b:; #line 378 "regression-compile-tmp/asm6809.imp" L_004a:; // 379 skip blanks #line 379 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 380 -> itype1(9) #line 380 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 9; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 381 !----------------------------------------------------------------------- // 382 itype1(7): ! cmp #line 382 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_7:; // 383 %if accumulator %start #line 383 "regression-compile-tmp/asm6809.imp" if (!(ACCUMULATOR())) goto L_004c; // 384 skip blanks #line 384 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 385 -> itype1(12) #line 385 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 386 %finish %else %if acc('D') %or acc('S') %or acc('U') %or %c #line 386 "regression-compile-tmp/asm6809.imp" L_004c:; #line 386 "regression-compile-tmp/asm6809.imp" if (ACC(68)) goto L_004d; #line 386 "regression-compile-tmp/asm6809.imp" if (ACC(83)) goto L_004d; #line 386 "regression-compile-tmp/asm6809.imp" if (ACC(85)) goto L_004d; #line 386 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_004e; #line 386 "regression-compile-tmp/asm6809.imp" L_004d:; // 387 acc('Y') %start // 388 ca = ca+1 #line 388 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 389 %finish %else %unless acc('X') %start #line 389 "regression-compile-tmp/asm6809.imp" goto L_004f; #line 389 "regression-compile-tmp/asm6809.imp" L_004e:; #line 389 "regression-compile-tmp/asm6809.imp" if (ACC(88)) goto L_0050; // 390 -> itype1(12) #line 390 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 391 %finish #line 391 "regression-compile-tmp/asm6809.imp" L_0050:; #line 391 "regression-compile-tmp/asm6809.imp" L_004f:; // 392 skip blanks #line 392 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 393 -> itype1(9) #line 393 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 9; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 394 !----------------------------------------------------------------------- // 395 itype1(8): ! add, sub #line 395 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_8:; // 396 %if accumulator %start #line 396 "regression-compile-tmp/asm6809.imp" if (!(ACCUMULATOR())) goto L_0051; // 397 skip blanks #line 397 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 398 -> itype1(12) #line 398 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 399 %finish %else %if acc('D') %start #line 399 "regression-compile-tmp/asm6809.imp" L_0051:; #line 399 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_0052; // 400 skip blanks #line 400 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 401 %else #line 401 "regression-compile-tmp/asm6809.imp" goto L_0053; #line 401 "regression-compile-tmp/asm6809.imp" L_0052:; // 402 -> itype1(12) #line 402 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 12; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 403 %finish #line 403 "regression-compile-tmp/asm6809.imp" L_0053:; // 404 !----------------------------------------------------------------------- // 405 itype1(9): ! immediate(3), direct, index, extend #line 405 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_9:; // 406 ca = ca+2 %and %continue %if pres char='#' #line 406 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_0054; #line 406 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); #line 406 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 406 "regression-compile-tmp/asm6809.imp" L_0054:; // 407 ->itype1(13) #line 407 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 13; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 408 !----------------------------------------------------------------------- // 409 itype1(10): ! st #line 409 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_10:; // 410 %if acc('S') %or acc('Y') %start #line 410 "regression-compile-tmp/asm6809.imp" if (ACC(83)) goto L_0055; #line 410 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_0056; #line 410 "regression-compile-tmp/asm6809.imp" L_0055:; // 411 ca = ca+1 #line 411 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 412 skip blanks #line 412 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 413 %finish %else %if acc('D') %or acc('U') %or acc('X') %or %c #line 413 "regression-compile-tmp/asm6809.imp" goto L_0057; #line 413 "regression-compile-tmp/asm6809.imp" L_0056:; #line 413 "regression-compile-tmp/asm6809.imp" if (ACC(68)) goto L_0058; #line 413 "regression-compile-tmp/asm6809.imp" if (ACC(85)) goto L_0058; #line 413 "regression-compile-tmp/asm6809.imp" if (ACC(88)) goto L_0058; #line 413 "regression-compile-tmp/asm6809.imp" if (!(ACCUMULATOR())) goto L_0059; #line 413 "regression-compile-tmp/asm6809.imp" L_0058:; // 414 accumulator %start // 415 skip blanks #line 415 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 416 %finish #line 416 "regression-compile-tmp/asm6809.imp" L_0059:; #line 416 "regression-compile-tmp/asm6809.imp" L_0057:; // 417 -> itype1(13) #line 417 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_idx = 13; goto *(sw2_ITYPE1-1)[sw2_ITYPE1_idx]; /* Bounds=1:37 */ // 418 !----------------------------------------------------------------------- // 419 itype1(11): ! inherent*(immediate(2), direct, index, extend) #line 419 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_11:; // 420 skip blanks %if accumulator #line 420 "regression-compile-tmp/asm6809.imp" if (!(ACCUMULATOR())) goto L_005a; #line 420 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); #line 420 "regression-compile-tmp/asm6809.imp" L_005a:; // 421 !----------------------------------------------------------------------- // 422 itype1(12):! immediate(2), direct, index, extend #line 422 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_12:; // 423 ca = ca+1 %and %continue %if pres char='#' #line 423 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_005b; #line 423 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); #line 423 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 423 "regression-compile-tmp/asm6809.imp" L_005b:; // 424 !----------------------------------------------------------------------- // 425 itype1(13):! direct, index, extend #line 425 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_13:; // 426 itype1(14): ! jmp #line 426 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_14:; // 427 analise operand(ca, post, opd, type, mcycles) #line 427 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(CA, &POST, &OPD, &TYPE, &MCYCLES); // 428 analise double: #line 428 "regression-compile-tmp/asm6809.imp" U_1001:; // 429 %if type<=3 %start #line 429 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (3))) goto L_005c; // 430 ca = ca+1 #line 430 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 431 %finish %else %if type=4 %start #line 431 "regression-compile-tmp/asm6809.imp" goto L_005d; #line 431 "regression-compile-tmp/asm6809.imp" L_005c:; #line 431 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (4))) goto L_005e; // 432 ca = ca+2 #line 432 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); // 433 no longs = no longs+1 #line 433 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)(NOLONGS)) + (1)); // 434 %else #line 434 "regression-compile-tmp/asm6809.imp" goto L_005d; #line 434 "regression-compile-tmp/asm6809.imp" L_005e:; // 435 ca = ca+type-4 #line 435 "regression-compile-tmp/asm6809.imp" CA = (((int)((((int)(CA)) + (TYPE)))) - (4)); // 436 no longs = no longs+type-5 #line 436 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)((((int)(NOLONGS)) + (TYPE)))) - (5)); // 437 %finish #line 437 "regression-compile-tmp/asm6809.imp" L_005d:; // 438 %continue #line 438 "regression-compile-tmp/asm6809.imp" goto L_0028; // 439 !----------------------------------------------------------------------- // 440 itype1(15): ! inherent, index, extend #line 440 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_15:; // 441 analise operand(ca, post, opd, type, mcycles) #line 441 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(CA, &POST, &OPD, &TYPE, &MCYCLES); // 442 %if 3<=type<=4 %start #line 442 "regression-compile-tmp/asm6809.imp" if ((((3) > (TYPE))) || (((TYPE) > (4)))) goto L_005f; // 443 ca = ca+type-2 #line 443 "regression-compile-tmp/asm6809.imp" CA = (((int)((((int)(CA)) + (TYPE)))) - (2)); // 444 no longs = no longs+type-3 #line 444 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)((((int)(NOLONGS)) + (TYPE)))) - (3)); // 445 %finish %else %if type>=5 %start #line 445 "regression-compile-tmp/asm6809.imp" goto L_0060; #line 445 "regression-compile-tmp/asm6809.imp" L_005f:; #line 445 "regression-compile-tmp/asm6809.imp" if (((TYPE) < (5))) goto L_0061; // 446 ca = ca+type-4 #line 446 "regression-compile-tmp/asm6809.imp" CA = (((int)((((int)(CA)) + (TYPE)))) - (4)); // 447 no longs = no longs+type-5 #line 447 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)((((int)(NOLONGS)) + (TYPE)))) - (5)); // 448 %finish #line 448 "regression-compile-tmp/asm6809.imp" L_0061:; #line 448 "regression-compile-tmp/asm6809.imp" L_0060:; // 449 %continue #line 449 "regression-compile-tmp/asm6809.imp" goto L_0028; // 450 !----------------------------------------------------------------------- // 451 itype1(16): ! lea #line 451 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_16:; // 452 skip blanks %if index reg(i) #line 452 "regression-compile-tmp/asm6809.imp" if (!(INDEXREG(&I))) goto L_0062; #line 452 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); #line 452 "regression-compile-tmp/asm6809.imp" L_0062:; // 453 !----------------------------------------------------------------------- // 454 itype1(17):! Load effective address #line 454 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_17:; // 455 analise operand(ca, post, opd, type, mcycles) #line 455 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(CA, &POST, &OPD, &TYPE, &MCYCLES); // 456 %if type<=5 %start #line 456 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (5))) goto L_0063; // 457 ca = ca+1 #line 457 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 458 %else #line 458 "regression-compile-tmp/asm6809.imp" goto L_0064; #line 458 "regression-compile-tmp/asm6809.imp" L_0063:; // 459 ca = ca+type-4 #line 459 "regression-compile-tmp/asm6809.imp" CA = (((int)((((int)(CA)) + (TYPE)))) - (4)); // 460 no longs = no longs+type-5 #line 460 "regression-compile-tmp/asm6809.imp" NOLONGS = (((int)((((int)(NOLONGS)) + (TYPE)))) - (5)); // 461 %finish #line 461 "regression-compile-tmp/asm6809.imp" L_0064:; // 462 %continue #line 462 "regression-compile-tmp/asm6809.imp" goto L_0028; // 463 !----------------------------------------------------------------------- // 464 itype1(18): ! tfr, exg #line 464 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_18:; // 465 itype1(19): ! pul, psh #line 465 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_19:; // 466 itype1(20): ! pulu, puls, pshu, pshs #line 466 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_20:; // 467 itype1(21): ! cwai, andcc, orcc #line 467 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_21:; // 468 itype1(22): ! tab, tba #line 468 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_22:; // 469 ca = ca+1 #line 469 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 470 %continue #line 470 "regression-compile-tmp/asm6809.imp" goto L_0028; // 471 !----------------------------------------------------------------------- // 472 itype1(23): ! swi #line 472 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_23:; // 473 ca = ca+1 %if acc('2') %or acc('3') #line 473 "regression-compile-tmp/asm6809.imp" if (ACC(50)) goto L_0065; #line 473 "regression-compile-tmp/asm6809.imp" if (!(ACC(51))) goto L_0066; #line 473 "regression-compile-tmp/asm6809.imp" L_0065:; #line 473 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); #line 473 "regression-compile-tmp/asm6809.imp" L_0066:; // 474 %continue #line 474 "regression-compile-tmp/asm6809.imp" goto L_0028; // 475 !----------------------------------------------------------------------- // 476 itype1(24): ! lbrn #line 476 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_24:; // 477 itype1(25): ! sba, cba, aba #line 477 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_25:; // 478 ca = ca+2 #line 478 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); // 479 %continue #line 479 "regression-compile-tmp/asm6809.imp" goto L_0028; // 480 !----------------------------------------------------------------------- // 481 itype1(26): ! fcb #line 481 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_26:; // 482 %cycle #line 482 "regression-compile-tmp/asm6809.imp" L_0067:; // 483 ca = ca+1 #line 483 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 484 i = get opd(opd) %unless pres char=',' #line 484 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_006a; #line 484 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); #line 484 "regression-compile-tmp/asm6809.imp" L_006a:; // 485 %repeat %until %not more items #line 485 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0068; #line 485 "regression-compile-tmp/asm6809.imp" goto L_0067; #line 485 "regression-compile-tmp/asm6809.imp" L_0068:; // 486 %continue #line 486 "regression-compile-tmp/asm6809.imp" goto L_0028; // 487 !----------------------------------------------------------------------- // 488 itype1(27): ! fdb #line 488 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_27:; // 489 %cycle #line 489 "regression-compile-tmp/asm6809.imp" L_006b:; // 490 ca = ca+2 #line 490 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (2)); // 491 i = get opd(opd) %unless pres char=',' #line 491 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_006e; #line 491 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); #line 491 "regression-compile-tmp/asm6809.imp" L_006e:; // 492 %repeat %until %not more items #line 492 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_006c; #line 492 "regression-compile-tmp/asm6809.imp" goto L_006b; #line 492 "regression-compile-tmp/asm6809.imp" L_006c:; // 493 %continue #line 493 "regression-compile-tmp/asm6809.imp" goto L_0028; // 494 !----------------------------------------------------------------------- // 495 itype1(28):! equ #line 495 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_28:; // 496 %unless lid=0 %start #line 496 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_006f; // 497 %if get opd(opd)=0 %start #line 497 "regression-compile-tmp/asm6809.imp" if (((GETOPD(&OPD)) != (0))) goto L_0070; // 498 %if pass=1 %start #line 498 "regression-compile-tmp/asm6809.imp" if (((PASS) != (1))) goto L_0071; // 499 %if nass(lid)=1 %start #line 499 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (1))) goto L_0072; // 500 nval(lid) = opd #line 500 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = OPD; // 501 nass(lid) = 3 #line 501 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 3; // 502 %finish #line 502 "regression-compile-tmp/asm6809.imp" L_0072:; // 503 %finish %else %if nass(lid)=3 %and opd#nval(lid) %start #line 503 "regression-compile-tmp/asm6809.imp" goto L_0073; #line 503 "regression-compile-tmp/asm6809.imp" L_0071:; #line 503 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (3))) goto L_0074; #line 503 "regression-compile-tmp/asm6809.imp" if (((OPD) == (NVAL[(((int)(LID)) - (1))]))) goto L_0074; // 504 diff = nval(lid)-opd #line 504 "regression-compile-tmp/asm6809.imp" DIFF = (((int)(NVAL[(((int)(LID)) - (1))])) - (OPD)); // 505 nval(lid) = opd #line 505 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = OPD; // 506 %if pass=3 %start #line 506 "regression-compile-tmp/asm6809.imp" if (((PASS) != (3))) goto L_0075; // 507 %for i = 1, 1, consistent %cycle #line 507 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = CONSISTENT; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, CONSISTENT"); I -= _increment; _control -= _increment; L_0076:; if (I == _final) goto L_0077; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 508 ->equ diff found %if ndiff(i)=diff #line 508 "regression-compile-tmp/asm6809.imp" if (((NDIFF[(((int)(I)) - (1))]) != (DIFF))) goto L_0079; #line 508 "regression-compile-tmp/asm6809.imp" goto U_1002; #line 508 "regression-compile-tmp/asm6809.imp" L_0079:; // 509 %repeat #line 509 "regression-compile-tmp/asm6809.imp" goto L_0076; #line 509 "regression-compile-tmp/asm6809.imp" L_0077:; // 510 consistent = consistent+1 #line 510 "regression-compile-tmp/asm6809.imp" CONSISTENT = (((int)(CONSISTENT)) + (1)); // 511 ndiff(consistent) = diff #line 511 "regression-compile-tmp/asm6809.imp" NDIFF[(((int)(CONSISTENT)) - (1))] = DIFF; // 512 equ diff found: %finish #line 512 "regression-compile-tmp/asm6809.imp" U_1002:; #line 512 "regression-compile-tmp/asm6809.imp" L_0075:; // 513 %finish #line 513 "regression-compile-tmp/asm6809.imp" L_0074:; #line 513 "regression-compile-tmp/asm6809.imp" L_0073:; // 514 %else #line 514 "regression-compile-tmp/asm6809.imp" goto L_007a; #line 514 "regression-compile-tmp/asm6809.imp" L_0070:; // 515 %unless nass(lid)=2 %start #line 515 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) == (2))) goto L_007b; // 516 nval(lid) = 0 #line 516 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 517 nass(lid) = 4 #line 517 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 4; // 518 %finish #line 518 "regression-compile-tmp/asm6809.imp" L_007b:; // 519 %finish #line 519 "regression-compile-tmp/asm6809.imp" L_007a:; // 520 %finish #line 520 "regression-compile-tmp/asm6809.imp" L_006f:; // 521 %continue #line 521 "regression-compile-tmp/asm6809.imp" goto L_0028; // 522 !----------------------------------------------------------------------- // 523 itype1(29):! org #line 523 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_29:; // 524 %unless lid=0 %start #line 524 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_007c; // 525 nval(lid) = 0 #line 525 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 526 nass(lid) = 4 #line 526 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 4; // 527 %finish #line 527 "regression-compile-tmp/asm6809.imp" L_007c:; // 528 ca = opd %if get opd(opd)=0 #line 528 "regression-compile-tmp/asm6809.imp" if (((GETOPD(&OPD)) != (0))) goto L_007d; #line 528 "regression-compile-tmp/asm6809.imp" CA = OPD; #line 528 "regression-compile-tmp/asm6809.imp" L_007d:; // 529 %continue #line 529 "regression-compile-tmp/asm6809.imp" goto L_0028; // 530 !----------------------------------------------------------------------- // 531 itype1(30): ! setdp #line 531 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_30:; // 532 %unless lid=0 %start #line 532 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_007e; // 533 nval(lid) = 0 #line 533 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 534 nass(lid) = 4 #line 534 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 4; // 535 %finish #line 535 "regression-compile-tmp/asm6809.imp" L_007e:; // 536 dp contents = opd<<8 %if get opd(opd)=0 #line 536 "regression-compile-tmp/asm6809.imp" if (((GETOPD(&OPD)) != (0))) goto L_007f; #line 536 "regression-compile-tmp/asm6809.imp" DPCONTENTS = ((OPD) << (8)); #line 536 "regression-compile-tmp/asm6809.imp" L_007f:; // 537 %continue #line 537 "regression-compile-tmp/asm6809.imp" goto L_0028; // 538 !----------------------------------------------------------------------- // 539 itype1(31): ! rmb #line 539 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_31:; // 540 ca = ca+opd %if get opd(opd)=0 #line 540 "regression-compile-tmp/asm6809.imp" if (((GETOPD(&OPD)) != (0))) goto L_0080; #line 540 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (OPD)); #line 540 "regression-compile-tmp/asm6809.imp" L_0080:; // 541 %continue #line 541 "regression-compile-tmp/asm6809.imp" goto L_0028; // 542 !----------------------------------------------------------------------- // 543 itype1(32):! fcc #line 543 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_32:; // 544 %if '0'<=pres char<='9' %start #line 544 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0081; // 545 i = lp #line 545 "regression-compile-tmp/asm6809.imp" I = LP; // 546 j = 0 #line 546 "regression-compile-tmp/asm6809.imp" J = 0; // 547 %cycle #line 547 "regression-compile-tmp/asm6809.imp" L_0082:; // 548 j = j*10+pres char-'0' #line 548 "regression-compile-tmp/asm6809.imp" J = (((int)((((int)((((int)(J)) * (10)))) + (PRESCHAR)))) - (48)); // 549 next char #line 549 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 550 %repeat %until %not '0'<=pres char<='9' #line 550 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0083; #line 550 "regression-compile-tmp/asm6809.imp" goto L_0082; #line 550 "regression-compile-tmp/asm6809.imp" L_0083:; // 551 %if pres char=',' %start #line 551 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (44))) goto L_0085; // 552 ca = ca+j #line 552 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (J)); // 553 %continue #line 553 "regression-compile-tmp/asm6809.imp" goto L_0028; // 554 %finish #line 554 "regression-compile-tmp/asm6809.imp" L_0085:; // 555 lp = i-1 #line 555 "regression-compile-tmp/asm6809.imp" LP = (((int)(I)) - (1)); // 556 next char #line 556 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 557 %finish #line 557 "regression-compile-tmp/asm6809.imp" L_0081:; // 558 %continue %if pres char<' ' #line 558 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) >= (32))) goto L_0086; #line 558 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 558 "regression-compile-tmp/asm6809.imp" L_0086:; // 559 delim = pres char #line 559 "regression-compile-tmp/asm6809.imp" DELIM = PRESCHAR; // 560 next char #line 560 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 561 %cycle #line 561 "regression-compile-tmp/asm6809.imp" L_0087:; // 562 %exit %if pres char=nl #line 562 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (10))) goto L_008a; #line 562 "regression-compile-tmp/asm6809.imp" goto L_0088; #line 562 "regression-compile-tmp/asm6809.imp" L_008a:; // 563 %if pres char=delim %start #line 563 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (DELIM))) goto L_008b; // 564 next char #line 564 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 565 %exit %unless pres char=delim #line 565 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (DELIM))) goto L_008c; #line 565 "regression-compile-tmp/asm6809.imp" goto L_0088; #line 565 "regression-compile-tmp/asm6809.imp" L_008c:; // 566 %finish #line 566 "regression-compile-tmp/asm6809.imp" L_008b:; // 567 next char #line 567 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 568 ca=ca+1 #line 568 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 569 %repeat #line 569 "regression-compile-tmp/asm6809.imp" goto L_0087; #line 569 "regression-compile-tmp/asm6809.imp" L_0088:; // 570 %continue #line 570 "regression-compile-tmp/asm6809.imp" goto L_0028; // 571 !----------------------------------------------------------------------- // 572 itype1(33): ! nam #line 572 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_33:; // 573 %unless lid=0 %start #line 573 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_008d; // 574 nval(lid) = 0 #line 574 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 575 nass(lid) = 4 #line 575 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 4; // 576 %finish #line 576 "regression-compile-tmp/asm6809.imp" L_008d:; // 577 %continue %unless headset=0 #line 577 "regression-compile-tmp/asm6809.imp" if (((HEADSET) == (0))) goto L_008e; #line 577 "regression-compile-tmp/asm6809.imp" goto L_0028; #line 577 "regression-compile-tmp/asm6809.imp" L_008e:; // 578 headset = 1 #line 578 "regression-compile-tmp/asm6809.imp" HEADSET = 1; // 579 header = "" #line 579 "regression-compile-tmp/asm6809.imp" HEADER = _imp_str_literal(""); // 580 %while pres char#nl %cycle #line 580 "regression-compile-tmp/asm6809.imp" L_008f:; #line 580 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (10))) goto L_0090; // 581 header <- header.to string(line(lp)) #line 581 "regression-compile-tmp/asm6809.imp" HEADER = _imp_join((_imp_string)HEADER,(_imp_string)_imp_TOSTRING(LINE[(((int)(LP)) - (1))])); // 582 next char #line 582 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 583 %repeat #line 583 "regression-compile-tmp/asm6809.imp" goto L_008f; #line 583 "regression-compile-tmp/asm6809.imp" L_0090:; // 584 %continue #line 584 "regression-compile-tmp/asm6809.imp" goto L_0028; // 585 !----------------------------------------------------------------------- // 586 itype1(34): ! opt #line 586 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_34:; // 587 %cycle #line 587 "regression-compile-tmp/asm6809.imp" L_0092:; // 588 %if get option(opt) %start #line 588 "regression-compile-tmp/asm6809.imp" if (!(GETOPTION(&OPT))) goto L_0095; // 589 %if 1<=opt<=2 %start #line 589 "regression-compile-tmp/asm6809.imp" if ((((1) > (OPT))) || (((OPT) > (2)))) goto L_0096; // 590 bchar = ' ' #line 590 "regression-compile-tmp/asm6809.imp" BCHAR = 32; // 591 %finish %else %if 3<=opt<=4 %start #line 591 "regression-compile-tmp/asm6809.imp" goto L_0097; #line 591 "regression-compile-tmp/asm6809.imp" L_0096:; #line 591 "regression-compile-tmp/asm6809.imp" if ((((3) > (OPT))) || (((OPT) > (4)))) goto L_0098; // 592 bchar = -1 #line 592 "regression-compile-tmp/asm6809.imp" BCHAR = (-1); // 593 %finish %else %if 18<=opt<=19 %start #line 593 "regression-compile-tmp/asm6809.imp" goto L_0097; #line 593 "regression-compile-tmp/asm6809.imp" L_0098:; #line 593 "regression-compile-tmp/asm6809.imp" if ((((18) > (OPT))) || (((OPT) > (19)))) goto L_0099; // 594 fflag = 1 #line 594 "regression-compile-tmp/asm6809.imp" FFLAG = 1; // 595 %finish %else %if 20<=opt<=21 %start #line 595 "regression-compile-tmp/asm6809.imp" goto L_0097; #line 595 "regression-compile-tmp/asm6809.imp" L_0099:; #line 595 "regression-compile-tmp/asm6809.imp" if ((((20) > (OPT))) || (((OPT) > (21)))) goto L_009a; // 596 fflag = 0 #line 596 "regression-compile-tmp/asm6809.imp" FFLAG = 0; // 597 %finish #line 597 "regression-compile-tmp/asm6809.imp" L_009a:; #line 597 "regression-compile-tmp/asm6809.imp" L_0097:; // 598 %finish #line 598 "regression-compile-tmp/asm6809.imp" L_0095:; // 599 %repeat %until %not more items #line 599 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0093; #line 599 "regression-compile-tmp/asm6809.imp" goto L_0092; #line 599 "regression-compile-tmp/asm6809.imp" L_0093:; // 600 !----------------------------------------------------------------------- // 601 itype1(35): ! page #line 601 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_35:; // 602 !----------------------------------------------------------------------- // 603 itype1(36): ! spc #line 603 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_36:; // 604 %unless lid=0 %start #line 604 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_009b; // 605 nval(lid) = 0 #line 605 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 606 nass(lid) = 4 #line 606 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 4; // 607 %finish #line 607 "regression-compile-tmp/asm6809.imp" L_009b:; // 608 !----------------------------------------------------------------------- // 609 %repeat #line 609 "regression-compile-tmp/asm6809.imp" L_0028:; #line 609 "regression-compile-tmp/asm6809.imp" goto L_0026; // 610 !----------------------------------------------------------------------- // 611 itype1(37):! end #line 611 "regression-compile-tmp/asm6809.imp" sw2_ITYPE1_37:; // 612 %unless lid=0 %start #line 612 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_0027; // 613 nval(lid) = 0 #line 613 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = 0; // 614 nass(lid) = 2 #line 614 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LID)) - (1))] = 2; // 615 %finish #line 615 "regression-compile-tmp/asm6809.imp" L_0027:; // 616 %if pass<3 %start #line 616 "regression-compile-tmp/asm6809.imp" if (((PASS) >= (3))) goto L_009c; // 617 pass = pass+1 #line 617 "regression-compile-tmp/asm6809.imp" PASS = (((int)(PASS)) + (1)); // 618 %else #line 618 "regression-compile-tmp/asm6809.imp" goto L_009d; #line 618 "regression-compile-tmp/asm6809.imp" L_009c:; // 619 %exit %if consistent=0 %or %c #line 619 "regression-compile-tmp/asm6809.imp" if (((CONSISTENT) == (0))) goto L_0094; #line 619 "regression-compile-tmp/asm6809.imp" if (((LASTCONSISTENT) == (0))) goto L_009e; #line 619 "regression-compile-tmp/asm6809.imp" if (((CONSISTENT) < (LASTCONSISTENT))) goto L_009e; #line 619 "regression-compile-tmp/asm6809.imp" if (((NOLONGS) < (LASTNOLONGS))) goto L_009e; #line 619 "regression-compile-tmp/asm6809.imp" L_0094:; #line 619 "regression-compile-tmp/asm6809.imp" goto L_0024; #line 619 "regression-compile-tmp/asm6809.imp" L_009e:; // 620 (last consistent#0 %and consistent>=last consistent %and %c // 621 no longs>=last no longs) // 622 last consistent = consistent #line 622 "regression-compile-tmp/asm6809.imp" LASTCONSISTENT = CONSISTENT; // 623 %finish #line 623 "regression-compile-tmp/asm6809.imp" L_009d:; // 624 last no longs = no longs #line 624 "regression-compile-tmp/asm6809.imp" LASTNOLONGS = NOLONGS; // 625 consistent = 0 #line 625 "regression-compile-tmp/asm6809.imp" CONSISTENT = 0; // 626 reset input #line 626 "regression-compile-tmp/asm6809.imp" _imp_RESETINPUT(); // 627 %repeat #line 627 "regression-compile-tmp/asm6809.imp" goto L_0023; #line 627 "regression-compile-tmp/asm6809.imp" L_0024:; // 628 !----------------------------------------------------------------------- // 629 nline(0) #line 629 "regression-compile-tmp/asm6809.imp" NLINE(0); // 630 reset input #line 630 "regression-compile-tmp/asm6809.imp" _imp_RESETINPUT(); // 631 pass = 4 #line 631 "regression-compile-tmp/asm6809.imp" PASS = 4; // 632 ln = 0 #line 632 "regression-compile-tmp/asm6809.imp" LN = 0; // 633 ca = 0 #line 633 "regression-compile-tmp/asm6809.imp" CA = 0; // 634 dp contents = 0 #line 634 "regression-compile-tmp/asm6809.imp" DPCONTENTS = 0; // 635 old ca = 0 #line 635 "regression-compile-tmp/asm6809.imp" OLDCA = 0; // 636 lid = 0 #line 636 "regression-compile-tmp/asm6809.imp" LID = 0; // 637 bchar = -1 #line 637 "regression-compile-tmp/asm6809.imp" BCHAR = (-1); // 638 fflag = 0 #line 638 "regression-compile-tmp/asm6809.imp" FFLAG = 0; // 639 %cycle #line 639 "regression-compile-tmp/asm6809.imp" L_009f:; // 640 %unless lid=0 %start #line 640 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_00a2; // 641 fault("Multiply defined label") %if nass(lid)=2 #line 641 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (2))) goto L_00a3; #line 641 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Multiply defined label")); #line 641 "regression-compile-tmp/asm6809.imp" L_00a3:; // 642 %if nass(lid)=1 %and nval(lid)#old ca %start #line 642 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (1))) goto L_00a4; #line 642 "regression-compile-tmp/asm6809.imp" if (((NVAL[(((int)(LID)) - (1))]) == (OLDCA))) goto L_00a4; // 643 fault("Inconsistent label") #line 643 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Inconsistent label")); // 644 nval(lid) = old ca #line 644 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = OLDCA; // 645 %finish #line 645 "regression-compile-tmp/asm6809.imp" L_00a4:; // 646 %finish #line 646 "regression-compile-tmp/asm6809.imp" L_00a2:; // 647 old ca = ca #line 647 "regression-compile-tmp/asm6809.imp" OLDCA = CA; // 648 lid = 0 #line 648 "regression-compile-tmp/asm6809.imp" LID = 0; // 649 read line #line 649 "regression-compile-tmp/asm6809.imp" READLINE(); // 650 accop = 0 #line 650 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 651 acc fault = 0 #line 651 "regression-compile-tmp/asm6809.imp" ACCFAULT = 0; // 652 non dense = 0 #line 652 "regression-compile-tmp/asm6809.imp" NONDENSE = 0; // 653 instr out(0, 0, 0, -7, 0) %and %continue %if pres char='*' #line 653 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (42))) goto L_00a5; #line 653 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); #line 653 "regression-compile-tmp/asm6809.imp" goto L_00a1; #line 653 "regression-compile-tmp/asm6809.imp" L_00a5:; // 654 lid = 0 %unless get name(lid)=0 #line 654 "regression-compile-tmp/asm6809.imp" if (((GETNAME(&LID)) == (0))) goto L_00a6; #line 654 "regression-compile-tmp/asm6809.imp" LID = 0; #line 654 "regression-compile-tmp/asm6809.imp" L_00a6:; // 655 skip blanks #line 655 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 656 %if pres char=nl %start #line 656 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (10))) goto L_00a7; // 657 instr out(0, 0, 0, -7, 0) #line 657 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 658 %finish %else %if get instr(iid) %start #line 658 "regression-compile-tmp/asm6809.imp" goto L_00a8; #line 658 "regression-compile-tmp/asm6809.imp" L_00a7:; #line 658 "regression-compile-tmp/asm6809.imp" if (!(GETINSTR(&IID))) goto L_00a9; // 659 order = icode(iid) #line 659 "regression-compile-tmp/asm6809.imp" ORDER = (ICODE-1)[IID]; // 660 %if 0<=order<=255 %start #line 660 "regression-compile-tmp/asm6809.imp" if ((((0) > (ORDER))) || (((ORDER) > (255)))) goto L_00aa; // 661 eca = ca+1 #line 661 "regression-compile-tmp/asm6809.imp" ECA = (((int)(CA)) + (1)); // 662 %else #line 662 "regression-compile-tmp/asm6809.imp" goto L_00ab; #line 662 "regression-compile-tmp/asm6809.imp" L_00aa:; // 663 eca = ca+2 #line 663 "regression-compile-tmp/asm6809.imp" ECA = (((int)(CA)) + (2)); // 664 %finish #line 664 "regression-compile-tmp/asm6809.imp" L_00ab:; // 665 mcycles = icycles(iid) #line 665 "regression-compile-tmp/asm6809.imp" MCYCLES = (ICYCLES-1)[IID]; // 666 skip blanks #line 666 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 667 ->itype3(itype(iid)) #line 667 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = (ITYPE-1)[IID]; if ((1 <= sw3_ITYPE3_idx) && (sw3_ITYPE3_idx <= 37)) goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ else { /*_imp_signal(8, 2, sw3_ITYPE3_idx);*/ fprintf(stderr, "%%SWITCH index ITYPE3(%d) not in range 1:37 at %s:%d\n", sw3_ITYPE3_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 668 %else #line 668 "regression-compile-tmp/asm6809.imp" L_00a9:; // 669 instr out(0, 0, 0, -7, 0) #line 669 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 670 fault("Unknown operation") #line 670 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Unknown operation")); // 671 %finish #line 671 "regression-compile-tmp/asm6809.imp" L_00a8:; // 672 %continue #line 672 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 673 !----------------------------------------------------------------------- // 674 itype3(1):! implied #line 674 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_1:; // 675 instr out(order, 0, 0, 1, mcycles) #line 675 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 0, 0, 1, MCYCLES); // 676 %continue #line 676 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 677 !----------------------------------------------------------------------- // 678 itype3(2): ! 6800 special implied #line 678 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_2:; // 679 instr out((order>>8)&255, order&255, 0, 2, mcycles) #line 679 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)((((unsigned int)(ORDER)) >> (8)))) & (255)), ((ORDER) & (255)), 0, 2, MCYCLES); // 680 %continue #line 680 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 681 !----------------------------------------------------------------------- // 682 itype3(3):! relative #line 682 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_3:; // 683 i=get opd(opd) #line 683 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 684 j=opd-eca-1 #line 684 "regression-compile-tmp/asm6809.imp" J = (((int)((((int)(OPD)) - (ECA)))) - (1)); // 685 %if i#0 %or -128<=j<=127 %start #line 685 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_00ac; #line 685 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (J))) || (((J) > (127)))) goto L_00ad; #line 685 "regression-compile-tmp/asm6809.imp" L_00ac:; // 686 instr out(order, j, 0, 2, mcycles) #line 686 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, J, 0, 2, MCYCLES); // 687 fault("Cannot evaluate operand") %unless i=0 #line 687 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_00ae; #line 687 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); #line 687 "regression-compile-tmp/asm6809.imp" L_00ae:; // 688 %finish %else %if order=16_20 %start #line 688 "regression-compile-tmp/asm6809.imp" goto L_00af; #line 688 "regression-compile-tmp/asm6809.imp" L_00ad:; #line 688 "regression-compile-tmp/asm6809.imp" if (((ORDER) != (32))) goto L_00b0; // 689 instr out(16_16, j-1, 0, 5, mcycles+2) #line 689 "regression-compile-tmp/asm6809.imp" INSTROUT(22, (((int)(J)) - (1)), 0, 5, (((int)(MCYCLES)) + (2))); // 690 %finish %else %if order=16_8D %start #line 690 "regression-compile-tmp/asm6809.imp" goto L_00af; #line 690 "regression-compile-tmp/asm6809.imp" L_00b0:; #line 690 "regression-compile-tmp/asm6809.imp" if (((ORDER) != (141))) goto L_00b1; // 691 instr out(16_17, j-1, 0, 5, mcycles+2) #line 691 "regression-compile-tmp/asm6809.imp" INSTROUT(23, (((int)(J)) - (1)), 0, 5, (((int)(MCYCLES)) + (2))); // 692 %else #line 692 "regression-compile-tmp/asm6809.imp" goto L_00af; #line 692 "regression-compile-tmp/asm6809.imp" L_00b1:; // 693 instr out(16_1000+order, j-2, 0, 5, mcycles+3) #line 693 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(4096)) + (ORDER)), (((int)(J)) - (2)), 0, 5, (((int)(MCYCLES)) + (3))); // 694 %finish #line 694 "regression-compile-tmp/asm6809.imp" L_00af:; // 695 %continue #line 695 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 696 !---------------------------------------------------------------------- // 697 itype3(4): ! lda, ora #line 697 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_4:; // 698 -> itype3(12) %if pres char='#' #line 698 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_00b2; #line 698 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ #line 698 "regression-compile-tmp/asm6809.imp" L_00b2:; // 699 analise operand(eca, post, opd, type, mcycles) #line 699 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 700 %if 1<=type<=2 %start #line 700 "regression-compile-tmp/asm6809.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_00b3; // 701 order = order+16_40 %if type=2 #line 701 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (2))) goto L_00b4; #line 701 "regression-compile-tmp/asm6809.imp" ORDER = (((int)(ORDER)) + (64)); #line 701 "regression-compile-tmp/asm6809.imp" L_00b4:; // 702 accop = 1 #line 702 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 703 skip blanks #line 703 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 704 -> itype3(12) #line 704 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 705 %finish #line 705 "regression-compile-tmp/asm6809.imp" L_00b3:; // 706 -> generate double #line 706 "regression-compile-tmp/asm6809.imp" goto U_1003; // 707 !--------------------------------------------------------------------- // 708 itype3(5): ! sta #line 708 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_5:; // 709 analise operand(eca, post, opd, type, mcycles) #line 709 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 710 %if 1<=type<=2 %start #line 710 "regression-compile-tmp/asm6809.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_00b5; // 711 order = order+16_40 %if type=2 #line 711 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (2))) goto L_00b6; #line 711 "regression-compile-tmp/asm6809.imp" ORDER = (((int)(ORDER)) + (64)); #line 711 "regression-compile-tmp/asm6809.imp" L_00b6:; // 712 accop = 1 #line 712 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 713 skip blanks #line 713 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 714 -> itype3(13) #line 714 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 13; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 715 %finish #line 715 "regression-compile-tmp/asm6809.imp" L_00b5:; // 716 -> generate double #line 716 "regression-compile-tmp/asm6809.imp" goto U_1003; // 717 !---------------------------------------------------------------------- // 718 itype3(6): ! ld #line 718 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_6:; // 719 accop = 1 #line 719 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 720 %if acc('A') %start #line 720 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_00b7; // 721 skip blanks #line 721 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 722 -> itype3(12) #line 722 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 723 %finish %else %if acc('B') %start #line 723 "regression-compile-tmp/asm6809.imp" L_00b7:; #line 723 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_00b8; // 724 order = 16_C6 #line 724 "regression-compile-tmp/asm6809.imp" ORDER = 198; // 725 skip blanks #line 725 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 726 -> itype3(12) #line 726 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 727 %finish %else %if acc('D') %start #line 727 "regression-compile-tmp/asm6809.imp" L_00b8:; #line 727 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_00b9; // 728 order = 16_CC #line 728 "regression-compile-tmp/asm6809.imp" ORDER = 204; // 729 %finish %else %if acc('U') %start #line 729 "regression-compile-tmp/asm6809.imp" goto L_00ba; #line 729 "regression-compile-tmp/asm6809.imp" L_00b9:; #line 729 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_00bb; // 730 order = 16_CE #line 730 "regression-compile-tmp/asm6809.imp" ORDER = 206; // 731 %finish %else %if acc('X') %start #line 731 "regression-compile-tmp/asm6809.imp" goto L_00ba; #line 731 "regression-compile-tmp/asm6809.imp" L_00bb:; #line 731 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_00bc; // 732 order = 16_8E #line 732 "regression-compile-tmp/asm6809.imp" ORDER = 142; // 733 %finish %else %if acc('S') %start #line 733 "regression-compile-tmp/asm6809.imp" goto L_00ba; #line 733 "regression-compile-tmp/asm6809.imp" L_00bc:; #line 733 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_00bd; // 734 order = 16_10CE #line 734 "regression-compile-tmp/asm6809.imp" ORDER = 4302; // 735 mcycles = mcycles+1 #line 735 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 736 %finish %else %if acc('Y') %start #line 736 "regression-compile-tmp/asm6809.imp" goto L_00ba; #line 736 "regression-compile-tmp/asm6809.imp" L_00bd:; #line 736 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_00be; // 737 order = 16_108E #line 737 "regression-compile-tmp/asm6809.imp" ORDER = 4238; // 738 mcycles = mcycles+1 #line 738 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 739 %else #line 739 "regression-compile-tmp/asm6809.imp" goto L_00ba; #line 739 "regression-compile-tmp/asm6809.imp" L_00be:; // 740 acc fault = 2 #line 740 "regression-compile-tmp/asm6809.imp" ACCFAULT = 2; // 741 accop = 0 #line 741 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 742 -> itype3(12) #line 742 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 743 %finish #line 743 "regression-compile-tmp/asm6809.imp" L_00ba:; // 744 skip blanks #line 744 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 745 mcycles = mcycles+1 #line 745 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 746 -> itype3(9) #line 746 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 9; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 747 !---------------------------------------------------------------------- // 748 itype3(7): ! cmp #line 748 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_7:; // 749 accop = 1 #line 749 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 750 %if acc('A') %start #line 750 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_00bf; // 751 skip blanks #line 751 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 752 -> itype3(12) #line 752 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 753 %finish %else %if acc('B') %start #line 753 "regression-compile-tmp/asm6809.imp" L_00bf:; #line 753 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_00c0; // 754 order = 16_C1 #line 754 "regression-compile-tmp/asm6809.imp" ORDER = 193; // 755 skip blanks #line 755 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 756 -> itype3(12) #line 756 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 757 %finish %else %if acc('D') %start #line 757 "regression-compile-tmp/asm6809.imp" L_00c0:; #line 757 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_00c1; // 758 order = 16_1083 #line 758 "regression-compile-tmp/asm6809.imp" ORDER = 4227; // 759 mcycles = mcycles+1 #line 759 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 760 %finish %else %if acc('U') %start #line 760 "regression-compile-tmp/asm6809.imp" goto L_00c2; #line 760 "regression-compile-tmp/asm6809.imp" L_00c1:; #line 760 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_00c3; // 761 order = 16_1183 #line 761 "regression-compile-tmp/asm6809.imp" ORDER = 4483; // 762 mcycles = mcycles+1 #line 762 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 763 %finish %else %if acc('X') %start #line 763 "regression-compile-tmp/asm6809.imp" goto L_00c2; #line 763 "regression-compile-tmp/asm6809.imp" L_00c3:; #line 763 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_00c4; // 764 order = 16_8C #line 764 "regression-compile-tmp/asm6809.imp" ORDER = 140; // 765 %finish %else %if acc('S') %start #line 765 "regression-compile-tmp/asm6809.imp" goto L_00c2; #line 765 "regression-compile-tmp/asm6809.imp" L_00c4:; #line 765 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_00c5; // 766 order = 16_118C #line 766 "regression-compile-tmp/asm6809.imp" ORDER = 4492; // 767 mcycles = mcycles+1 #line 767 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 768 %finish %else %if acc('Y') %start #line 768 "regression-compile-tmp/asm6809.imp" goto L_00c2; #line 768 "regression-compile-tmp/asm6809.imp" L_00c5:; #line 768 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_00c6; // 769 order = 16_108C #line 769 "regression-compile-tmp/asm6809.imp" ORDER = 4236; // 770 mcycles = mcycles+1 #line 770 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 771 %else #line 771 "regression-compile-tmp/asm6809.imp" goto L_00c2; #line 771 "regression-compile-tmp/asm6809.imp" L_00c6:; // 772 acc fault = 2 #line 772 "regression-compile-tmp/asm6809.imp" ACCFAULT = 2; // 773 accop = 0 #line 773 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 774 -> itype3(12) #line 774 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 775 %finish #line 775 "regression-compile-tmp/asm6809.imp" L_00c2:; // 776 skip blanks #line 776 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 777 mcycles = mcycles+2 #line 777 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); // 778 -> itype3(9) #line 778 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 9; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 779 !----------------------------------------------------------------------- // 780 itype3(8): ! add, sub #line 780 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_8:; // 781 accop = 1 #line 781 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 782 %if acc('A') %start #line 782 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_00c7; // 783 skip blanks #line 783 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 784 -> itype3(12) #line 784 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 785 %finish %else %if acc('B') %start #line 785 "regression-compile-tmp/asm6809.imp" L_00c7:; #line 785 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_00c8; // 786 order = order+16_40 #line 786 "regression-compile-tmp/asm6809.imp" ORDER = (((int)(ORDER)) + (64)); // 787 skip blanks #line 787 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 788 -> itype3(12) #line 788 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 789 %finish %else %if acc('D') %start #line 789 "regression-compile-tmp/asm6809.imp" L_00c8:; #line 789 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_00c9; // 790 %if order=16_80 %start #line 790 "regression-compile-tmp/asm6809.imp" if (((ORDER) != (128))) goto L_00ca; // 791 order = 16_83 #line 791 "regression-compile-tmp/asm6809.imp" ORDER = 131; // 792 %else #line 792 "regression-compile-tmp/asm6809.imp" goto L_00cb; #line 792 "regression-compile-tmp/asm6809.imp" L_00ca:; // 793 order = 16_C3 #line 793 "regression-compile-tmp/asm6809.imp" ORDER = 195; // 794 %finish #line 794 "regression-compile-tmp/asm6809.imp" L_00cb:; // 795 %else #line 795 "regression-compile-tmp/asm6809.imp" goto L_00cc; #line 795 "regression-compile-tmp/asm6809.imp" L_00c9:; // 796 acc fault = 1 #line 796 "regression-compile-tmp/asm6809.imp" ACCFAULT = 1; // 797 accop = 0 #line 797 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 798 -> itype3(12) #line 798 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 12; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 799 %finish #line 799 "regression-compile-tmp/asm6809.imp" L_00cc:; // 800 skip blanks #line 800 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 801 mcycles = mcycles+2 #line 801 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); // 802 !----------------------------------------------------------------------- // 803 itype3(9):! immediate(3), direct, index, extend #line 803 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_9:; // 804 %if pres char='#' %start #line 804 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_00cd; // 805 next char %until pres char#bchar #line 805 "regression-compile-tmp/asm6809.imp" L_00ce:; #line 805 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 805 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_00cf; #line 805 "regression-compile-tmp/asm6809.imp" goto L_00ce; #line 805 "regression-compile-tmp/asm6809.imp" L_00cf:; // 806 i = get opd(opd) #line 806 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 807 instr out(order, opd, 0, 5, mcycles) #line 807 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, OPD, 0, 5, MCYCLES); // 808 fault("Cannot evaluate operand") %unless i=0 #line 808 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_00d1; #line 808 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); #line 808 "regression-compile-tmp/asm6809.imp" L_00d1:; // 809 %continue #line 809 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 810 %finish #line 810 "regression-compile-tmp/asm6809.imp" L_00cd:; // 811 ->itype3(13) #line 811 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 13; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 812 !----------------------------------------------------------------------- // 813 itype3(10): ! st #line 813 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_10:; // 814 accop = 1 #line 814 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 815 %if acc('B') %start #line 815 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_00d2; // 816 order = 16_C7 #line 816 "regression-compile-tmp/asm6809.imp" ORDER = 199; // 817 %finish %else %if acc('D') %start #line 817 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 817 "regression-compile-tmp/asm6809.imp" L_00d2:; #line 817 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_00d4; // 818 order = 16_CD #line 818 "regression-compile-tmp/asm6809.imp" ORDER = 205; // 819 mcycles = mcycles+1 #line 819 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 820 %finish %else %if acc('U') %start #line 820 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 820 "regression-compile-tmp/asm6809.imp" L_00d4:; #line 820 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_00d5; // 821 order = 16_CF #line 821 "regression-compile-tmp/asm6809.imp" ORDER = 207; // 822 mcycles = mcycles+1 #line 822 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 823 %finish %else %if acc('X') %start #line 823 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 823 "regression-compile-tmp/asm6809.imp" L_00d5:; #line 823 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_00d6; // 824 order = 16_8F #line 824 "regression-compile-tmp/asm6809.imp" ORDER = 143; // 825 mcycles = mcycles+1 #line 825 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 826 %finish %else %if acc('S') %start #line 826 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 826 "regression-compile-tmp/asm6809.imp" L_00d6:; #line 826 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_00d7; // 827 order = 16_10CF #line 827 "regression-compile-tmp/asm6809.imp" ORDER = 4303; // 828 mcycles = mcycles+2 #line 828 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); // 829 %finish %else %if acc('Y') %start #line 829 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 829 "regression-compile-tmp/asm6809.imp" L_00d7:; #line 829 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_00d8; // 830 order = 16_108F #line 830 "regression-compile-tmp/asm6809.imp" ORDER = 4239; // 831 mcycles = mcycles+2 #line 831 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); // 832 %finish %else %unless acc('A') %start #line 832 "regression-compile-tmp/asm6809.imp" goto L_00d3; #line 832 "regression-compile-tmp/asm6809.imp" L_00d8:; #line 832 "regression-compile-tmp/asm6809.imp" if (ACC(65)) goto L_00d9; // 833 acc fault = 2 #line 833 "regression-compile-tmp/asm6809.imp" ACCFAULT = 2; // 834 accop = 0 #line 834 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 835 %finish #line 835 "regression-compile-tmp/asm6809.imp" L_00d9:; #line 835 "regression-compile-tmp/asm6809.imp" L_00d3:; // 836 skip blanks #line 836 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 837 -> itype3(13) #line 837 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_idx = 13; goto *(sw3_ITYPE3-1)[sw3_ITYPE3_idx]; /* Bounds=1:37 */ // 838 !----------------------------------------------------------------------- // 839 itype3(11): ! inherent*(immediate(2), direct, index, extend) #line 839 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_11:; // 840 accop = 1 #line 840 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 841 %if acc('B') %start #line 841 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_00da; // 842 order = order+16_40 #line 842 "regression-compile-tmp/asm6809.imp" ORDER = (((int)(ORDER)) + (64)); // 843 %finish %else %unless acc('A') %start #line 843 "regression-compile-tmp/asm6809.imp" goto L_00db; #line 843 "regression-compile-tmp/asm6809.imp" L_00da:; #line 843 "regression-compile-tmp/asm6809.imp" if (ACC(65)) goto L_00dc; // 844 accop = 0 #line 844 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 845 acc fault = 1 #line 845 "regression-compile-tmp/asm6809.imp" ACCFAULT = 1; // 846 %finish #line 846 "regression-compile-tmp/asm6809.imp" L_00dc:; #line 846 "regression-compile-tmp/asm6809.imp" L_00db:; // 847 skip blanks #line 847 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 848 !----------------------------------------------------------------------- // 849 itype3(12): ! immediate(2), direct, index, extend #line 849 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_12:; // 850 %if pres char='#' %start #line 850 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_00dd; // 851 next char %until pres char#bchar #line 851 "regression-compile-tmp/asm6809.imp" L_00de:; #line 851 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 851 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_00df; #line 851 "regression-compile-tmp/asm6809.imp" goto L_00de; #line 851 "regression-compile-tmp/asm6809.imp" L_00df:; // 852 i = get opd(opd) #line 852 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 853 instr out(order, opd, 0, 2, mcycles) #line 853 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, OPD, 0, 2, MCYCLES); // 854 %unless i=0 %start #line 854 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_00e1; // 855 fault("Cannot evaluate operand") #line 855 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 856 %finish %else %unless -128<=opd<=255 %start #line 856 "regression-compile-tmp/asm6809.imp" goto L_00e2; #line 856 "regression-compile-tmp/asm6809.imp" L_00e1:; #line 856 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (OPD))) || (((OPD) <= (255)))) goto L_00e3; #line 856 "regression-compile-tmp/asm6809.imp" L_00e0:; // 857 fault("Invalid constant") #line 857 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid constant")); // 858 %finish #line 858 "regression-compile-tmp/asm6809.imp" L_00e3:; #line 858 "regression-compile-tmp/asm6809.imp" L_00e2:; // 859 %continue #line 859 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 860 %finish #line 860 "regression-compile-tmp/asm6809.imp" L_00dd:; // 861 !----------------------------------------------------------------------- // 862 itype3(13):! direct,index,extend #line 862 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_13:; // 863 analise operand(eca, post, opd, type, mcycles) #line 863 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 864 generate double: #line 864 "regression-compile-tmp/asm6809.imp" U_1003:; // 865 %if type<=3 %start #line 865 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (3))) goto L_00e4; // 866 instr out(order+16_10, opd, 0, 2, mcycles) #line 866 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (16)), OPD, 0, 2, MCYCLES); // 867 %if type=0 %start #line 867 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (0))) goto L_00e5; // 868 fault("Cannot evaluate operand") #line 868 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 869 %finish %else %unless type=3 %start #line 869 "regression-compile-tmp/asm6809.imp" goto L_00e6; #line 869 "regression-compile-tmp/asm6809.imp" L_00e5:; #line 869 "regression-compile-tmp/asm6809.imp" if (((TYPE) == (3))) goto L_00e7; // 870 fault("Illegal operand") #line 870 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal operand")); // 871 %finish #line 871 "regression-compile-tmp/asm6809.imp" L_00e7:; #line 871 "regression-compile-tmp/asm6809.imp" L_00e6:; // 872 %finish %else %if type=4 %start #line 872 "regression-compile-tmp/asm6809.imp" goto L_00e8; #line 872 "regression-compile-tmp/asm6809.imp" L_00e4:; #line 872 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (4))) goto L_00e9; // 873 instr out(order+16_30, opd, 0, 5, mcycles) #line 873 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (48)), OPD, 0, 5, MCYCLES); // 874 %else #line 874 "regression-compile-tmp/asm6809.imp" goto L_00e8; #line 874 "regression-compile-tmp/asm6809.imp" L_00e9:; // 875 instr out(order+16_20, post, opd, type-3, mcycles) #line 875 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (32)), POST, OPD, (((int)(TYPE)) - (3)), MCYCLES); // 876 %finish #line 876 "regression-compile-tmp/asm6809.imp" L_00e8:; // 877 fault("Accumulator not specified") %if acc fault=1 #line 877 "regression-compile-tmp/asm6809.imp" if (((ACCFAULT) != (1))) goto L_00ea; #line 877 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Accumulator not specified")); #line 877 "regression-compile-tmp/asm6809.imp" L_00ea:; // 878 fault("Register not specified") %if acc fault=2 #line 878 "regression-compile-tmp/asm6809.imp" if (((ACCFAULT) != (2))) goto L_00eb; #line 878 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Register not specified")); #line 878 "regression-compile-tmp/asm6809.imp" L_00eb:; // 879 %continue #line 879 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 880 !---------------------------------------------------------------------- // 881 itype3(14): ! jmp #line 881 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_14:; // 882 analise operand(eca, post, opd, type, mcycles) #line 882 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 883 %if type<=3 %start #line 883 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (3))) goto L_00ec; // 884 instr out(order, opd, 0, 2, mcycles) #line 884 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, OPD, 0, 2, MCYCLES); // 885 %if type=0 %start #line 885 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (0))) goto L_00ed; // 886 fault("Cannot evaluate operand") #line 886 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 887 %finish %else %unless type=3 %start #line 887 "regression-compile-tmp/asm6809.imp" goto L_00ee; #line 887 "regression-compile-tmp/asm6809.imp" L_00ed:; #line 887 "regression-compile-tmp/asm6809.imp" if (((TYPE) == (3))) goto L_00ef; // 888 fault("Illegal operand") #line 888 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal operand")); // 889 %finish #line 889 "regression-compile-tmp/asm6809.imp" L_00ef:; #line 889 "regression-compile-tmp/asm6809.imp" L_00ee:; // 890 %finish %else %if type=4 %start #line 890 "regression-compile-tmp/asm6809.imp" goto L_00f0; #line 890 "regression-compile-tmp/asm6809.imp" L_00ec:; #line 890 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (4))) goto L_00f1; // 891 instr out(order+16_70, opd, 0, 5, mcycles) #line 891 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (112)), OPD, 0, 5, MCYCLES); // 892 %else #line 892 "regression-compile-tmp/asm6809.imp" goto L_00f0; #line 892 "regression-compile-tmp/asm6809.imp" L_00f1:; // 893 instr out(order+16_60, post, opd, type-3, mcycles) #line 893 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (96)), POST, OPD, (((int)(TYPE)) - (3)), MCYCLES); // 894 %finish #line 894 "regression-compile-tmp/asm6809.imp" L_00f0:; // 895 %continue #line 895 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 896 !---------------------------------------------------------------------- // 897 itype3(15): ! inherent, direct, indexed, extended #line 897 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_15:; // 898 analise operand(eca, post, opd, type, mcycles) #line 898 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 899 %if type<=1 %start #line 899 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (1))) goto L_00f2; // 900 accop = 1 %if type=1 #line 900 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (1))) goto L_00f3; #line 900 "regression-compile-tmp/asm6809.imp" ACCOP = 1; #line 900 "regression-compile-tmp/asm6809.imp" L_00f3:; // 901 instr out(order+16_40, 0, 0, 1, mcycles) #line 901 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (64)), 0, 0, 1, MCYCLES); // 902 fault("Cannot evaluate operand") %if type=0 #line 902 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (0))) goto L_00f4; #line 902 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); #line 902 "regression-compile-tmp/asm6809.imp" L_00f4:; // 903 %finish %else %if type=2 %start #line 903 "regression-compile-tmp/asm6809.imp" goto L_00f5; #line 903 "regression-compile-tmp/asm6809.imp" L_00f2:; #line 903 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (2))) goto L_00f6; // 904 accop = 1 #line 904 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 905 instr out(order+16_50, 0, 0, 1, mcycles) #line 905 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (80)), 0, 0, 1, MCYCLES); // 906 %finish %else %if type=3 %start #line 906 "regression-compile-tmp/asm6809.imp" goto L_00f5; #line 906 "regression-compile-tmp/asm6809.imp" L_00f6:; #line 906 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (3))) goto L_00f7; // 907 instr out(order, opd, 0, 2, mcycles+2) #line 907 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, OPD, 0, 2, (((int)(MCYCLES)) + (2))); // 908 %finish %else %if type=4 %start #line 908 "regression-compile-tmp/asm6809.imp" goto L_00f5; #line 908 "regression-compile-tmp/asm6809.imp" L_00f7:; #line 908 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (4))) goto L_00f8; // 909 instr out(order+16_70, opd, 0, 5, mcycles+2) #line 909 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (112)), OPD, 0, 5, (((int)(MCYCLES)) + (2))); // 910 %else #line 910 "regression-compile-tmp/asm6809.imp" goto L_00f5; #line 910 "regression-compile-tmp/asm6809.imp" L_00f8:; // 911 instr out(order+16_60, post, opd, type-3, mcycles+2) #line 911 "regression-compile-tmp/asm6809.imp" INSTROUT((((int)(ORDER)) + (96)), POST, OPD, (((int)(TYPE)) - (3)), (((int)(MCYCLES)) + (2))); // 912 %finish #line 912 "regression-compile-tmp/asm6809.imp" L_00f5:; // 913 %continue #line 913 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 914 !----------------------------------------------------------------------- // 915 itype3(16): ! lea #line 915 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_16:; // 916 accop = 1 #line 916 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 917 %if acc('X') %start #line 917 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_00f9; // 918 order = 16_30 #line 918 "regression-compile-tmp/asm6809.imp" ORDER = 48; // 919 %finish %else %if acc('Y') %start #line 919 "regression-compile-tmp/asm6809.imp" goto L_00fa; #line 919 "regression-compile-tmp/asm6809.imp" L_00f9:; #line 919 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_00fb; // 920 order = 16_31 #line 920 "regression-compile-tmp/asm6809.imp" ORDER = 49; // 921 %finish %else %if acc('S') %start #line 921 "regression-compile-tmp/asm6809.imp" goto L_00fa; #line 921 "regression-compile-tmp/asm6809.imp" L_00fb:; #line 921 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_00fc; // 922 order = 16_32 #line 922 "regression-compile-tmp/asm6809.imp" ORDER = 50; // 923 %finish %else %if acc('U') %start #line 923 "regression-compile-tmp/asm6809.imp" goto L_00fa; #line 923 "regression-compile-tmp/asm6809.imp" L_00fc:; #line 923 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_00fd; // 924 order = 16_33 #line 924 "regression-compile-tmp/asm6809.imp" ORDER = 51; // 925 %else #line 925 "regression-compile-tmp/asm6809.imp" goto L_00fa; #line 925 "regression-compile-tmp/asm6809.imp" L_00fd:; // 926 acc fault = 2 #line 926 "regression-compile-tmp/asm6809.imp" ACCFAULT = 2; // 927 accop = 0 #line 927 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 928 %finish #line 928 "regression-compile-tmp/asm6809.imp" L_00fa:; // 929 skip blanks #line 929 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 930 !----------------------------------------------------------------------- // 931 itype3(17): ! load effective address #line 931 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_17:; // 932 analise operand(eca, post, opd, type, mcycles) #line 932 "regression-compile-tmp/asm6809.imp" ANALISEOPERAND(ECA, &POST, &OPD, &TYPE, &MCYCLES); // 933 %if type<=5 %start #line 933 "regression-compile-tmp/asm6809.imp" if (((TYPE) > (5))) goto L_00fe; // 934 instr out(order, post, opd, 2, mcycles) #line 934 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, POST, OPD, 2, MCYCLES); // 935 %if type=0 %start #line 935 "regression-compile-tmp/asm6809.imp" if (((TYPE) != (0))) goto L_00ff; // 936 fault("Cannot evaluate operand") #line 936 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 937 %finish %else %unless type=5 %start #line 937 "regression-compile-tmp/asm6809.imp" goto L_0100; #line 937 "regression-compile-tmp/asm6809.imp" L_00ff:; #line 937 "regression-compile-tmp/asm6809.imp" if (((TYPE) == (5))) goto L_0101; // 938 fault("Illegal operand") #line 938 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal operand")); // 939 %finish #line 939 "regression-compile-tmp/asm6809.imp" L_0101:; #line 939 "regression-compile-tmp/asm6809.imp" L_0100:; // 940 %else #line 940 "regression-compile-tmp/asm6809.imp" goto L_0102; #line 940 "regression-compile-tmp/asm6809.imp" L_00fe:; // 941 instr out(order, post, opd, type-3, mcycles) #line 941 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, POST, OPD, (((int)(TYPE)) - (3)), MCYCLES); // 942 %finish #line 942 "regression-compile-tmp/asm6809.imp" L_0102:; // 943 fault("Index register not specified") %unless acc fault=0 #line 943 "regression-compile-tmp/asm6809.imp" if (((ACCFAULT) == (0))) goto L_0103; #line 943 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Index register not specified")); #line 943 "regression-compile-tmp/asm6809.imp" L_0103:; // 944 %continue #line 944 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 945 !----------------------------------------------------------------------- // 946 itype3(18): ! tfr,exg #line 946 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_18:; // 947 %if transfer reg(post) %start #line 947 "regression-compile-tmp/asm6809.imp" if (!(TRANSFERREG(&POST))) goto L_0104; // 948 accop = 1 %unless more items #line 948 "regression-compile-tmp/asm6809.imp" if (MOREITEMS()) goto L_0105; #line 948 "regression-compile-tmp/asm6809.imp" ACCOP = 1; #line 948 "regression-compile-tmp/asm6809.imp" L_0105:; // 949 %if transfer reg(opd) %start #line 949 "regression-compile-tmp/asm6809.imp" if (!(TRANSFERREG(&OPD))) goto L_0106; // 950 instr out(order, (post<<4)!opd, 0, 2, mcycles) #line 950 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, ((((POST) << (4))) | (OPD)), 0, 2, MCYCLES); // 951 %if (post<8 %and 8<=opd) %or (opd<8 %and 8<=post) %start #line 951 "regression-compile-tmp/asm6809.imp" if (((POST) >= (8))) goto L_0107; #line 951 "regression-compile-tmp/asm6809.imp" if (((8) <= (OPD))) goto L_0084; #line 951 "regression-compile-tmp/asm6809.imp" L_0107:; #line 951 "regression-compile-tmp/asm6809.imp" if (((OPD) >= (8))) goto L_0108; #line 951 "regression-compile-tmp/asm6809.imp" if (((8) > (POST))) goto L_0108; #line 951 "regression-compile-tmp/asm6809.imp" L_0084:; // 952 fault("Different size registers") #line 952 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Different size registers")); // 953 %finish #line 953 "regression-compile-tmp/asm6809.imp" L_0108:; // 954 %else #line 954 "regression-compile-tmp/asm6809.imp" goto L_0109; #line 954 "regression-compile-tmp/asm6809.imp" L_0106:; // 955 instr out(order, post<<4, 0, 2, mcycles) #line 955 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, ((POST) << (4)), 0, 2, MCYCLES); // 956 fault("Second register not specified") #line 956 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Second register not specified")); // 957 %finish #line 957 "regression-compile-tmp/asm6809.imp" L_0109:; // 958 %else #line 958 "regression-compile-tmp/asm6809.imp" goto L_010a; #line 958 "regression-compile-tmp/asm6809.imp" L_0104:; // 959 instr out(order, 0, 0, 2, mcycles) #line 959 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 0, 0, 2, MCYCLES); // 960 fault("Registers not specified") #line 960 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Registers not specified")); // 961 %finish #line 961 "regression-compile-tmp/asm6809.imp" L_010a:; // 962 %continue #line 962 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 963 !----------------------------------------------------------------------- // 964 itype3(19): ! psh, pul #line 964 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_19:; // 965 accop = 1 #line 965 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 966 %if acc('A') %start #line 966 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_010b; // 967 instr out(order, 2, 0, 2, mcycles+1) #line 967 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 2, 0, 2, (((int)(MCYCLES)) + (1))); // 968 %continue #line 968 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 969 %finish %else %if acc('B') %start #line 969 "regression-compile-tmp/asm6809.imp" L_010b:; #line 969 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_010c; // 970 instr out(order, 4, 0, 2, mcycles+1) #line 970 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 4, 0, 2, (((int)(MCYCLES)) + (1))); // 971 %continue #line 971 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 972 %finish %else %if acc('U') %start #line 972 "regression-compile-tmp/asm6809.imp" L_010c:; #line 972 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_010d; // 973 order = order+2 #line 973 "regression-compile-tmp/asm6809.imp" ORDER = (((int)(ORDER)) + (2)); // 974 %finish %else %unless acc('S') %start #line 974 "regression-compile-tmp/asm6809.imp" goto L_010e; #line 974 "regression-compile-tmp/asm6809.imp" L_010d:; #line 974 "regression-compile-tmp/asm6809.imp" if (ACC(83)) goto L_010f; // 975 accop = 0 #line 975 "regression-compile-tmp/asm6809.imp" ACCOP = 0; // 976 acc fault = 1 #line 976 "regression-compile-tmp/asm6809.imp" ACCFAULT = 1; // 977 %finish #line 977 "regression-compile-tmp/asm6809.imp" L_010f:; #line 977 "regression-compile-tmp/asm6809.imp" L_010e:; // 978 skip blanks #line 978 "regression-compile-tmp/asm6809.imp" SKIPBLANKS(); // 979 !----------------------------------------------------------------------- // 980 itype3(20): ! pshu, pshs, pulu, puls #line 980 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_20:; // 981 post = 0 #line 981 "regression-compile-tmp/asm6809.imp" POST = 0; // 982 i = 0 #line 982 "regression-compile-tmp/asm6809.imp" I = 0; // 983 j = 0 #line 983 "regression-compile-tmp/asm6809.imp" J = 0; // 984 %cycle #line 984 "regression-compile-tmp/asm6809.imp" L_0110:; // 985 %if cc %start #line 985 "regression-compile-tmp/asm6809.imp" if (!(CC())) goto L_0113; // 986 mcycles = mcycles+1 %and post = post!1 %if post&1=0 #line 986 "regression-compile-tmp/asm6809.imp" if (((((POST) & (1))) != (0))) goto L_0114; #line 986 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 986 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (1)); #line 986 "regression-compile-tmp/asm6809.imp" L_0114:; // 987 %finish %else %if acc('A') %start #line 987 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 987 "regression-compile-tmp/asm6809.imp" L_0113:; #line 987 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_0116; // 988 mcycles = mcycles+1 %and post = post!2 %if post&2=0 #line 988 "regression-compile-tmp/asm6809.imp" if (((((POST) & (2))) != (0))) goto L_0117; #line 988 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 988 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (2)); #line 988 "regression-compile-tmp/asm6809.imp" L_0117:; // 989 %finish %else %if acc('B') %start #line 989 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 989 "regression-compile-tmp/asm6809.imp" L_0116:; #line 989 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_0118; // 990 mcycles = mcycles+1 %and post = post!4 %if post&4=0 #line 990 "regression-compile-tmp/asm6809.imp" if (((((POST) & (4))) != (0))) goto L_0119; #line 990 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 990 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (4)); #line 990 "regression-compile-tmp/asm6809.imp" L_0119:; // 991 %finish %else %if acc('D') %start #line 991 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 991 "regression-compile-tmp/asm6809.imp" L_0118:; #line 991 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_011a; // 992 mcycles = mcycles+1 %and post = post!2 %if post&2=0 #line 992 "regression-compile-tmp/asm6809.imp" if (((((POST) & (2))) != (0))) goto L_011b; #line 992 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 992 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (2)); #line 992 "regression-compile-tmp/asm6809.imp" L_011b:; // 993 mcycles = mcycles+1 %and post = post!4 %if post&4=0 #line 993 "regression-compile-tmp/asm6809.imp" if (((((POST) & (4))) != (0))) goto L_011c; #line 993 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 993 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (4)); #line 993 "regression-compile-tmp/asm6809.imp" L_011c:; // 994 %finish %else %if dp %start #line 994 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 994 "regression-compile-tmp/asm6809.imp" L_011a:; #line 994 "regression-compile-tmp/asm6809.imp" if (!(DP())) goto L_011d; // 995 mcycles = mcycles+1 %and post = post!8 %if post&8=0 #line 995 "regression-compile-tmp/asm6809.imp" if (((((POST) & (8))) != (0))) goto L_011e; #line 995 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); #line 995 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (8)); #line 995 "regression-compile-tmp/asm6809.imp" L_011e:; // 996 %finish %else %if acc('X') %start #line 996 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 996 "regression-compile-tmp/asm6809.imp" L_011d:; #line 996 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_011f; // 997 mcycles = mcycles+2 %and post = post!16 %if post&16=0 #line 997 "regression-compile-tmp/asm6809.imp" if (((((POST) & (16))) != (0))) goto L_0120; #line 997 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); #line 997 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (16)); #line 997 "regression-compile-tmp/asm6809.imp" L_0120:; // 998 %finish %else %if acc('Y') %start #line 998 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 998 "regression-compile-tmp/asm6809.imp" L_011f:; #line 998 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_0121; // 999 mcycles = mcycles+2 %and post = post!32 %if post&32=0 #line 999 "regression-compile-tmp/asm6809.imp" if (((((POST) & (32))) != (0))) goto L_0122; #line 999 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); #line 999 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (32)); #line 999 "regression-compile-tmp/asm6809.imp" L_0122:; // 1000 %finish %else %if acc('S') %start #line 1000 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 1000 "regression-compile-tmp/asm6809.imp" L_0121:; #line 1000 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_0123; // 1001 %if 16_36<=order<=16_37 %start #line 1001 "regression-compile-tmp/asm6809.imp" if ((((54) > (ORDER))) || (((ORDER) > (55)))) goto L_0124; // 1002 mcycles = mcycles+2 %and post = post!64 %if post&64=0 #line 1002 "regression-compile-tmp/asm6809.imp" if (((((POST) & (64))) != (0))) goto L_0125; #line 1002 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); #line 1002 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (64)); #line 1002 "regression-compile-tmp/asm6809.imp" L_0125:; // 1003 %else #line 1003 "regression-compile-tmp/asm6809.imp" goto L_0126; #line 1003 "regression-compile-tmp/asm6809.imp" L_0124:; // 1004 i = i+1 #line 1004 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); // 1005 %finish #line 1005 "regression-compile-tmp/asm6809.imp" L_0126:; // 1006 %finish %else %if acc('U') %start #line 1006 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 1006 "regression-compile-tmp/asm6809.imp" L_0123:; #line 1006 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_0127; // 1007 %if 16_34<=order<=16_35 %start #line 1007 "regression-compile-tmp/asm6809.imp" if ((((52) > (ORDER))) || (((ORDER) > (53)))) goto L_0128; // 1008 mcycles = mcycles+2 %and post = post!64 %if post&64=0 #line 1008 "regression-compile-tmp/asm6809.imp" if (((((POST) & (64))) != (0))) goto L_0129; #line 1008 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); #line 1008 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (64)); #line 1008 "regression-compile-tmp/asm6809.imp" L_0129:; // 1009 %else #line 1009 "regression-compile-tmp/asm6809.imp" goto L_012a; #line 1009 "regression-compile-tmp/asm6809.imp" L_0128:; // 1010 i = i+1 #line 1010 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); // 1011 %finish #line 1011 "regression-compile-tmp/asm6809.imp" L_012a:; // 1012 %finish %else %if pc %start #line 1012 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 1012 "regression-compile-tmp/asm6809.imp" L_0127:; #line 1012 "regression-compile-tmp/asm6809.imp" if (!(PC())) goto L_012b; // 1013 mcycles = mcycles+2 %and post = post!128 %if post&128=0 #line 1013 "regression-compile-tmp/asm6809.imp" if (((((POST) & (128))) != (0))) goto L_012c; #line 1013 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (2)); #line 1013 "regression-compile-tmp/asm6809.imp" POST = ((POST) | (128)); #line 1013 "regression-compile-tmp/asm6809.imp" L_012c:; // 1014 %finish %else %if pres char=',' %start #line 1014 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 1014 "regression-compile-tmp/asm6809.imp" L_012b:; #line 1014 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (44))) goto L_012d; // 1015 next char #line 1015 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1016 %else #line 1016 "regression-compile-tmp/asm6809.imp" goto L_0115; #line 1016 "regression-compile-tmp/asm6809.imp" L_012d:; // 1017 j = 1 #line 1017 "regression-compile-tmp/asm6809.imp" J = 1; // 1018 %exit #line 1018 "regression-compile-tmp/asm6809.imp" goto L_0111; // 1019 %finish #line 1019 "regression-compile-tmp/asm6809.imp" L_0115:; // 1020 %repeat %until %not more items #line 1020 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0111; #line 1020 "regression-compile-tmp/asm6809.imp" goto L_0110; #line 1020 "regression-compile-tmp/asm6809.imp" L_0111:; // 1021 instr out(order, post, 0, 2, mcycles) #line 1021 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, POST, 0, 2, MCYCLES); // 1022 fault("Stack not specified") %unless acc fault=0 #line 1022 "regression-compile-tmp/asm6809.imp" if (((ACCFAULT) == (0))) goto L_012e; #line 1022 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Stack not specified")); #line 1022 "regression-compile-tmp/asm6809.imp" L_012e:; // 1023 fault("Cannot stack stack pointer") %for i = i, -1, 1 #line 1023 "regression-compile-tmp/asm6809.imp" I = ((I) + ((int)(1))); if ((((1)-(I)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = I, (-1), 1"); L_012f:; if (I == 1) goto L_0130; I += (-1); #line 1023 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot stack stack pointer")); #line 1023 "regression-compile-tmp/asm6809.imp" goto L_012f; #line 1023 "regression-compile-tmp/asm6809.imp" L_0130:; // 1024 fault("Illegal operand") %unless j=0 #line 1024 "regression-compile-tmp/asm6809.imp" if (((J) == (0))) goto L_0132; #line 1024 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal operand")); #line 1024 "regression-compile-tmp/asm6809.imp" L_0132:; // 1025 %continue #line 1025 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1026 !----------------------------------------------------------------------- // 1027 itype3(21): ! cwai,andcc,orcc #line 1027 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_21:; // 1028 %if pres char='#' %start #line 1028 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (35))) goto L_0133; // 1029 next char %until pres char#bchar #line 1029 "regression-compile-tmp/asm6809.imp" L_0134:; #line 1029 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1029 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0135; #line 1029 "regression-compile-tmp/asm6809.imp" goto L_0134; #line 1029 "regression-compile-tmp/asm6809.imp" L_0135:; // 1030 %finish #line 1030 "regression-compile-tmp/asm6809.imp" L_0133:; // 1031 i = get opd(opd) #line 1031 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1032 instr out(order, opd, 0, 2, mcycles) #line 1032 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, OPD, 0, 2, MCYCLES); // 1033 %unless i=0 %start #line 1033 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_0137; // 1034 fault("Cannot evaluate operand") #line 1034 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 1035 %finish %else %unless 0<=opd<=255 %start #line 1035 "regression-compile-tmp/asm6809.imp" goto L_0138; #line 1035 "regression-compile-tmp/asm6809.imp" L_0137:; #line 1035 "regression-compile-tmp/asm6809.imp" if ((((0) > (OPD))) || (((OPD) <= (255)))) goto L_0139; #line 1035 "regression-compile-tmp/asm6809.imp" L_0131:; // 1036 fault("Illegal mask") #line 1036 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal mask")); // 1037 %finish #line 1037 "regression-compile-tmp/asm6809.imp" L_0139:; #line 1037 "regression-compile-tmp/asm6809.imp" L_0138:; // 1038 %continue #line 1038 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1039 !----------------------------------------------------------------------- // 1040 itype3(22): ! tab, tba #line 1040 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_22:; // 1041 instr out(16_1F, (order>>8)&255, order&255, 3, mcycles) #line 1041 "regression-compile-tmp/asm6809.imp" INSTROUT(31, (((int)((((unsigned int)(ORDER)) >> (8)))) & (255)), ((ORDER) & (255)), 3, MCYCLES); // 1042 %continue #line 1042 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1043 !----------------------------------------------------------------------- // 1044 itype3(23): ! swi #line 1044 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_23:; // 1045 %if acc('1') %start #line 1045 "regression-compile-tmp/asm6809.imp" if (!(ACC(49))) goto L_013a; // 1046 accop = 1 #line 1046 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 1047 %finish %else %if acc('2') %start #line 1047 "regression-compile-tmp/asm6809.imp" goto L_013b; #line 1047 "regression-compile-tmp/asm6809.imp" L_013a:; #line 1047 "regression-compile-tmp/asm6809.imp" if (!(ACC(50))) goto L_013c; // 1048 accop = 1 #line 1048 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 1049 order = order!16_1000 #line 1049 "regression-compile-tmp/asm6809.imp" ORDER = ((ORDER) | (4096)); // 1050 mcycles = mcycles+1 #line 1050 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 1051 %finish %else %if acc('3') %start #line 1051 "regression-compile-tmp/asm6809.imp" goto L_013b; #line 1051 "regression-compile-tmp/asm6809.imp" L_013c:; #line 1051 "regression-compile-tmp/asm6809.imp" if (!(ACC(51))) goto L_013d; // 1052 accop = 1 #line 1052 "regression-compile-tmp/asm6809.imp" ACCOP = 1; // 1053 order = order!16_1100 #line 1053 "regression-compile-tmp/asm6809.imp" ORDER = ((ORDER) | (4352)); // 1054 mcycles = mcycles+1 #line 1054 "regression-compile-tmp/asm6809.imp" MCYCLES = (((int)(MCYCLES)) + (1)); // 1055 %finish #line 1055 "regression-compile-tmp/asm6809.imp" L_013d:; #line 1055 "regression-compile-tmp/asm6809.imp" L_013b:; // 1056 instr out(order, 0, 0, 1, mcycles) #line 1056 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 0, 0, 1, MCYCLES); // 1057 %continue #line 1057 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1058 !----------------------------------------------------------------------- // 1059 itype3(24): ! lbrn #line 1059 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_24:; // 1060 instr out(order, 0, 0, 5, mcycles) #line 1060 "regression-compile-tmp/asm6809.imp" INSTROUT(ORDER, 0, 0, 5, MCYCLES); // 1061 %continue #line 1061 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1062 !----------------------------------------------------------------------- // 1063 itype3(25): ! sba, cba, aba #line 1063 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_25:; // 1064 instr out(16_34, 16_04, order, 4, mcycles) #line 1064 "regression-compile-tmp/asm6809.imp" INSTROUT(52, 4, ORDER, 4, MCYCLES); // 1065 %continue #line 1065 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1066 !----------------------------------------------------------------------- // 1067 itype3(26): ! fcb #line 1067 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_26:; // 1068 %cycle #line 1068 "regression-compile-tmp/asm6809.imp" L_013e:; // 1069 %if pres char=',' %start #line 1069 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (44))) goto L_0141; // 1070 opd = 0 #line 1070 "regression-compile-tmp/asm6809.imp" OPD = 0; // 1071 i = 0 #line 1071 "regression-compile-tmp/asm6809.imp" I = 0; // 1072 %else #line 1072 "regression-compile-tmp/asm6809.imp" goto L_0142; #line 1072 "regression-compile-tmp/asm6809.imp" L_0141:; // 1073 i = get opd(opd) #line 1073 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1074 %finish #line 1074 "regression-compile-tmp/asm6809.imp" L_0142:; // 1075 %if cont=0 %start #line 1075 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_0143; // 1076 j = lp #line 1076 "regression-compile-tmp/asm6809.imp" J = LP; // 1077 look ahead = 1 #line 1077 "regression-compile-tmp/asm6809.imp" LOOKAHEAD = 1; // 1078 %while more items %cycle #line 1078 "regression-compile-tmp/asm6809.imp" L_0144:; #line 1078 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0145; // 1079 k = get opd(k) %unless pres char=',' #line 1079 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_0147; #line 1079 "regression-compile-tmp/asm6809.imp" K = GETOPD(&K); #line 1079 "regression-compile-tmp/asm6809.imp" L_0147:; // 1080 %repeat #line 1080 "regression-compile-tmp/asm6809.imp" goto L_0144; #line 1080 "regression-compile-tmp/asm6809.imp" L_0145:; // 1081 look ahead = 0 #line 1081 "regression-compile-tmp/asm6809.imp" LOOKAHEAD = 0; // 1082 instr out(0, opd&255, 0, -1, 0) #line 1082 "regression-compile-tmp/asm6809.imp" INSTROUT(0, ((OPD) & (255)), 0, (-1), 0); // 1083 lp = j-1 #line 1083 "regression-compile-tmp/asm6809.imp" LP = (((int)(J)) - (1)); // 1084 next char #line 1084 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1085 cont = 1 #line 1085 "regression-compile-tmp/asm6809.imp" CONT = 1; // 1086 %else #line 1086 "regression-compile-tmp/asm6809.imp" goto L_0148; #line 1086 "regression-compile-tmp/asm6809.imp" L_0143:; // 1087 instr out(0, opd&255, 0, -1, 0) #line 1087 "regression-compile-tmp/asm6809.imp" INSTROUT(0, ((OPD) & (255)), 0, (-1), 0); // 1088 %finish #line 1088 "regression-compile-tmp/asm6809.imp" L_0148:; // 1089 fault("Invalid constant") %unless i=0 %and -128<=opd<=255 #line 1089 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0136; #line 1089 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (OPD))) || (((OPD) <= (255)))) goto L_0149; #line 1089 "regression-compile-tmp/asm6809.imp" L_0136:; #line 1089 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid constant")); #line 1089 "regression-compile-tmp/asm6809.imp" L_0149:; // 1090 %repeat %until %not more items #line 1090 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_013f; #line 1090 "regression-compile-tmp/asm6809.imp" goto L_013e; #line 1090 "regression-compile-tmp/asm6809.imp" L_013f:; // 1091 cont = 0 #line 1091 "regression-compile-tmp/asm6809.imp" CONT = 0; // 1092 %continue #line 1092 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1093 !------------------------------------------------------------------------ // 1094 itype3(27): ! fdb #line 1094 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_27:; // 1095 %cycle #line 1095 "regression-compile-tmp/asm6809.imp" L_014a:; // 1096 %if pres char=',' %start #line 1096 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (44))) goto L_014d; // 1097 opd = 0 #line 1097 "regression-compile-tmp/asm6809.imp" OPD = 0; // 1098 i = 0 #line 1098 "regression-compile-tmp/asm6809.imp" I = 0; // 1099 %else #line 1099 "regression-compile-tmp/asm6809.imp" goto L_014e; #line 1099 "regression-compile-tmp/asm6809.imp" L_014d:; // 1100 i = get opd(opd) #line 1100 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1101 %finish #line 1101 "regression-compile-tmp/asm6809.imp" L_014e:; // 1102 %if cont=0 %start #line 1102 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_014f; // 1103 j = lp #line 1103 "regression-compile-tmp/asm6809.imp" J = LP; // 1104 look ahead = 1 #line 1104 "regression-compile-tmp/asm6809.imp" LOOKAHEAD = 1; // 1105 %while more items %cycle #line 1105 "regression-compile-tmp/asm6809.imp" L_0150:; #line 1105 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0151; // 1106 k = get opd(k) %unless pres char=',' #line 1106 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_0153; #line 1106 "regression-compile-tmp/asm6809.imp" K = GETOPD(&K); #line 1106 "regression-compile-tmp/asm6809.imp" L_0153:; // 1107 %repeat #line 1107 "regression-compile-tmp/asm6809.imp" goto L_0150; #line 1107 "regression-compile-tmp/asm6809.imp" L_0151:; // 1108 look ahead = 0 #line 1108 "regression-compile-tmp/asm6809.imp" LOOKAHEAD = 0; // 1109 instr out(0, opd, 0, -2, 0) #line 1109 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-2), 0); // 1110 lp = j-1 #line 1110 "regression-compile-tmp/asm6809.imp" LP = (((int)(J)) - (1)); // 1111 next char #line 1111 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1112 cont = 1 #line 1112 "regression-compile-tmp/asm6809.imp" CONT = 1; // 1113 %else #line 1113 "regression-compile-tmp/asm6809.imp" goto L_0154; #line 1113 "regression-compile-tmp/asm6809.imp" L_014f:; // 1114 instr out(0, opd, 0, -2, 0) #line 1114 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-2), 0); // 1115 %finish #line 1115 "regression-compile-tmp/asm6809.imp" L_0154:; // 1116 fault("Invalid constant") %unless i=0 #line 1116 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_0155; #line 1116 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid constant")); #line 1116 "regression-compile-tmp/asm6809.imp" L_0155:; // 1117 %repeat %until %not more items #line 1117 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_014b; #line 1117 "regression-compile-tmp/asm6809.imp" goto L_014a; #line 1117 "regression-compile-tmp/asm6809.imp" L_014b:; // 1118 cont = 0 #line 1118 "regression-compile-tmp/asm6809.imp" CONT = 0; // 1119 %continue #line 1119 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1120 !----------------------------------------------------------------------- // 1121 itype3(28):! equ #line 1121 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_28:; // 1122 i = get opd(opd) #line 1122 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1123 instr out(0, opd, 0, -6, 0) #line 1123 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-6), 0); // 1124 fault("No name to equate") %if lid=0 #line 1124 "regression-compile-tmp/asm6809.imp" if (((LID) != (0))) goto L_0156; #line 1124 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("No name to equate")); #line 1124 "regression-compile-tmp/asm6809.imp" L_0156:; // 1125 fault("Cannot evaluate operand") %unless i=0 #line 1125 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_0157; #line 1125 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); #line 1125 "regression-compile-tmp/asm6809.imp" L_0157:; // 1126 %if lid#0 %and i=0 %and nass(lid)=3 %and nval(lid)#opd %start #line 1126 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_0158; #line 1126 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0158; #line 1126 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(LID)) - (1))]) != (3))) goto L_0158; #line 1126 "regression-compile-tmp/asm6809.imp" if (((NVAL[(((int)(LID)) - (1))]) == (OPD))) goto L_0158; // 1127 fault("Inconsistent label") #line 1127 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Inconsistent label")); // 1128 nval(lid) = opd #line 1128 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LID)) - (1))] = OPD; // 1129 %finish #line 1129 "regression-compile-tmp/asm6809.imp" L_0158:; // 1130 %continue #line 1130 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1131 !----------------------------------------------------------------------- // 1132 itype3(29):! org #line 1132 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_29:; // 1133 i = get opd(opd) #line 1133 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1134 ca = opd %if i=0 #line 1134 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0159; #line 1134 "regression-compile-tmp/asm6809.imp" CA = OPD; #line 1134 "regression-compile-tmp/asm6809.imp" L_0159:; // 1135 instr out(0, 0, 0, 0, 0) #line 1135 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, 0, 0); // 1136 fault("Illegal label") %unless lid=0 #line 1136 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_015a; #line 1136 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); #line 1136 "regression-compile-tmp/asm6809.imp" L_015a:; // 1137 fault("Cannot evaluate operand") %unless i=0 #line 1137 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_015b; #line 1137 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); #line 1137 "regression-compile-tmp/asm6809.imp" L_015b:; // 1138 %continue #line 1138 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1139 !----------------------------------------------------------------------- // 1140 itype3(30): ! setdp #line 1140 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_30:; // 1141 i = get opd(opd) #line 1141 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1142 dp contents = opd<<8 %if i=0 %and 0<=opd<=255 #line 1142 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_015c; #line 1142 "regression-compile-tmp/asm6809.imp" if ((((0) > (OPD))) || (((OPD) > (255)))) goto L_015c; #line 1142 "regression-compile-tmp/asm6809.imp" DPCONTENTS = ((OPD) << (8)); #line 1142 "regression-compile-tmp/asm6809.imp" L_015c:; // 1143 instr out(0, opd, 0, -3, 0) #line 1143 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-3), 0); // 1144 fault("Illegal label") %unless lid=0 #line 1144 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_015d; #line 1144 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); #line 1144 "regression-compile-tmp/asm6809.imp" L_015d:; // 1145 %unless i=0 %start #line 1145 "regression-compile-tmp/asm6809.imp" if (((I) == (0))) goto L_015e; // 1146 fault("Cannot evaluate operand") #line 1146 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 1147 %finish %else %unless 0<=opd<=255 %start #line 1147 "regression-compile-tmp/asm6809.imp" goto L_015f; #line 1147 "regression-compile-tmp/asm6809.imp" L_015e:; #line 1147 "regression-compile-tmp/asm6809.imp" if ((((0) > (OPD))) || (((OPD) <= (255)))) goto L_0160; #line 1147 "regression-compile-tmp/asm6809.imp" L_014c:; // 1148 fault("Invalid direct page contents") #line 1148 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid direct page contents")); // 1149 %finish #line 1149 "regression-compile-tmp/asm6809.imp" L_0160:; #line 1149 "regression-compile-tmp/asm6809.imp" L_015f:; // 1150 %continue #line 1150 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1151 !----------------------------------------------------------------------- // 1152 itype3(31): ! rmb #line 1152 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_31:; // 1153 i = get opd(opd) #line 1153 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1154 instr out(0, opd, 0, -4, 0) #line 1154 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-4), 0); // 1155 %if i=0 %start #line 1155 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0161; // 1156 ca = ca+opd #line 1156 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (OPD)); // 1157 %else #line 1157 "regression-compile-tmp/asm6809.imp" goto L_0162; #line 1157 "regression-compile-tmp/asm6809.imp" L_0161:; // 1158 fault("Cannot evaluate operand") #line 1158 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 1159 %finish #line 1159 "regression-compile-tmp/asm6809.imp" L_0162:; // 1160 %continue #line 1160 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1161 !----------------------------------------------------------------------- // 1162 itype3(32):! fcc #line 1162 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_32:; // 1163 non dense = 1 #line 1163 "regression-compile-tmp/asm6809.imp" NONDENSE = 1; // 1164 %if '0'<=pres char<='9' %start #line 1164 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0163; // 1165 i = 0 #line 1165 "regression-compile-tmp/asm6809.imp" I = 0; // 1166 j = lp #line 1166 "regression-compile-tmp/asm6809.imp" J = LP; // 1167 %cycle #line 1167 "regression-compile-tmp/asm6809.imp" L_0164:; // 1168 i = i*10+pres char-'0' #line 1168 "regression-compile-tmp/asm6809.imp" I = (((int)((((int)((((int)(I)) * (10)))) + (PRESCHAR)))) - (48)); // 1169 next char #line 1169 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1170 %repeat %until %not '0'<=pres char<='9' #line 1170 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0165; #line 1170 "regression-compile-tmp/asm6809.imp" goto L_0164; #line 1170 "regression-compile-tmp/asm6809.imp" L_0165:; // 1171 %if pres char=',' %start #line 1171 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (44))) goto L_0167; // 1172 next char #line 1172 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1173 %if i=0 %start #line 1173 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0168; // 1174 instr out(0, 0, 0, 0, 0) #line 1174 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, 0, 0); // 1175 fault("Invalid string") #line 1175 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid string")); // 1176 %else #line 1176 "regression-compile-tmp/asm6809.imp" goto L_0169; #line 1176 "regression-compile-tmp/asm6809.imp" L_0168:; // 1177 %while i>0 %cycle #line 1177 "regression-compile-tmp/asm6809.imp" L_016a:; #line 1177 "regression-compile-tmp/asm6809.imp" if (((I) <= (0))) goto L_016b; // 1178 %if pres char=nl %start #line 1178 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (10))) goto L_016d; // 1179 opd = ' ' #line 1179 "regression-compile-tmp/asm6809.imp" OPD = 32; // 1180 %else #line 1180 "regression-compile-tmp/asm6809.imp" goto L_016e; #line 1180 "regression-compile-tmp/asm6809.imp" L_016d:; // 1181 opd = line(lp) #line 1181 "regression-compile-tmp/asm6809.imp" OPD = LINE[(((int)(LP)) - (1))]; // 1182 next char #line 1182 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1183 %finish #line 1183 "regression-compile-tmp/asm6809.imp" L_016e:; // 1184 i = i-1 #line 1184 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) - (1)); // 1185 %if cont=0 %start #line 1185 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_016f; // 1186 j = lp #line 1186 "regression-compile-tmp/asm6809.imp" J = LP; // 1187 %for k = 1, 1, i %cycle #line 1187 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = I; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, I"); K -= _increment; _control -= _increment; L_0170:; if (K == _final) goto L_0171; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 1188 %exit %if pres char=nl #line 1188 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (10))) goto L_0173; #line 1188 "regression-compile-tmp/asm6809.imp" goto L_0171; #line 1188 "regression-compile-tmp/asm6809.imp" L_0173:; // 1189 next char #line 1189 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1190 %repeat #line 1190 "regression-compile-tmp/asm6809.imp" goto L_0170; #line 1190 "regression-compile-tmp/asm6809.imp" L_0171:; // 1191 instr out(0, opd, 0, -1, 0) #line 1191 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-1), 0); // 1192 lp = j-1 #line 1192 "regression-compile-tmp/asm6809.imp" LP = (((int)(J)) - (1)); // 1193 next char #line 1193 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1194 cont = 1 #line 1194 "regression-compile-tmp/asm6809.imp" CONT = 1; // 1195 %else #line 1195 "regression-compile-tmp/asm6809.imp" goto L_0174; #line 1195 "regression-compile-tmp/asm6809.imp" L_016f:; // 1196 instr out(0, opd, 0, -1, 0) #line 1196 "regression-compile-tmp/asm6809.imp" INSTROUT(0, OPD, 0, (-1), 0); // 1197 %finish #line 1197 "regression-compile-tmp/asm6809.imp" L_0174:; // 1198 %repeat #line 1198 "regression-compile-tmp/asm6809.imp" goto L_016a; #line 1198 "regression-compile-tmp/asm6809.imp" L_016b:; // 1199 cont = 0 #line 1199 "regression-compile-tmp/asm6809.imp" CONT = 0; // 1200 %finish #line 1200 "regression-compile-tmp/asm6809.imp" L_0169:; // 1201 %continue #line 1201 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1202 %else #line 1202 "regression-compile-tmp/asm6809.imp" L_0167:; // 1203 lp = j-1 #line 1203 "regression-compile-tmp/asm6809.imp" LP = (((int)(J)) - (1)); // 1204 next char #line 1204 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1205 %finish // 1206 %finish #line 1206 "regression-compile-tmp/asm6809.imp" L_0163:; // 1207 %if pres char<' ' %start #line 1207 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) >= (32))) goto L_0175; // 1208 next char %while pres char#nl #line 1208 "regression-compile-tmp/asm6809.imp" L_0176:; #line 1208 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (10))) goto L_0177; #line 1208 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1208 "regression-compile-tmp/asm6809.imp" goto L_0176; #line 1208 "regression-compile-tmp/asm6809.imp" L_0177:; // 1209 instr out(0, 0, 0, 0, 0) #line 1209 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, 0, 0); // 1210 fault("Invalid string delimiter") #line 1210 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid string delimiter")); // 1211 %else #line 1211 "regression-compile-tmp/asm6809.imp" goto L_0179; #line 1211 "regression-compile-tmp/asm6809.imp" L_0175:; // 1212 delim = pres char #line 1212 "regression-compile-tmp/asm6809.imp" DELIM = PRESCHAR; // 1213 next char #line 1213 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1214 %cycle #line 1214 "regression-compile-tmp/asm6809.imp" L_017a:; // 1215 %if pres char=nl %start #line 1215 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (10))) goto L_017d; // 1216 %if cont=0 %start #line 1216 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_017e; // 1217 instr out(0, 0, 0, 0, 0) #line 1217 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, 0, 0); // 1218 fault("Invalid string") #line 1218 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid string")); // 1219 %finish #line 1219 "regression-compile-tmp/asm6809.imp" L_017e:; // 1220 %exit #line 1220 "regression-compile-tmp/asm6809.imp" goto L_017b; // 1221 %finish #line 1221 "regression-compile-tmp/asm6809.imp" L_017d:; // 1222 %if pres char=delim %start #line 1222 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (DELIM))) goto L_017f; // 1223 next char #line 1223 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1224 %unless pres char=delim %start #line 1224 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (DELIM))) goto L_0180; // 1225 %if cont=0 %start #line 1225 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_0181; // 1226 instr out(0, 0, 0, 0, 0) #line 1226 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, 0, 0); // 1227 fault("Invalid string") #line 1227 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Invalid string")); // 1228 %finish #line 1228 "regression-compile-tmp/asm6809.imp" L_0181:; // 1229 %exit #line 1229 "regression-compile-tmp/asm6809.imp" goto L_017b; // 1230 %finish #line 1230 "regression-compile-tmp/asm6809.imp" L_0180:; // 1231 %finish #line 1231 "regression-compile-tmp/asm6809.imp" L_017f:; // 1232 %if cont=0 %start #line 1232 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_0182; // 1233 i = lp #line 1233 "regression-compile-tmp/asm6809.imp" I = LP; // 1234 %cycle #line 1234 "regression-compile-tmp/asm6809.imp" L_0183:; // 1235 next char %while pres char#delim %and pres char#nl #line 1235 "regression-compile-tmp/asm6809.imp" L_0186:; #line 1235 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (DELIM))) goto L_0187; #line 1235 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (10))) goto L_0187; #line 1235 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1235 "regression-compile-tmp/asm6809.imp" goto L_0186; #line 1235 "regression-compile-tmp/asm6809.imp" L_0187:; // 1236 %if pres char=delim %start #line 1236 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (DELIM))) goto L_0189; // 1237 next char #line 1237 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1238 %finish #line 1238 "regression-compile-tmp/asm6809.imp" L_0189:; // 1239 %exit %unless pres char=delim #line 1239 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (DELIM))) goto L_018a; #line 1239 "regression-compile-tmp/asm6809.imp" goto L_0184; #line 1239 "regression-compile-tmp/asm6809.imp" L_018a:; // 1240 next char #line 1240 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1241 %repeat #line 1241 "regression-compile-tmp/asm6809.imp" goto L_0183; #line 1241 "regression-compile-tmp/asm6809.imp" L_0184:; // 1242 instr out(0, line(i), 0, -1, 0) #line 1242 "regression-compile-tmp/asm6809.imp" INSTROUT(0, LINE[(((int)(I)) - (1))], 0, (-1), 0); // 1243 lp = i-1 #line 1243 "regression-compile-tmp/asm6809.imp" LP = (((int)(I)) - (1)); // 1244 next char #line 1244 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1245 cont = 1 #line 1245 "regression-compile-tmp/asm6809.imp" CONT = 1; // 1246 %else #line 1246 "regression-compile-tmp/asm6809.imp" goto L_018b; #line 1246 "regression-compile-tmp/asm6809.imp" L_0182:; // 1247 instr out(0, line(lp), 0, -1, 0) #line 1247 "regression-compile-tmp/asm6809.imp" INSTROUT(0, LINE[(((int)(LP)) - (1))], 0, (-1), 0); // 1248 %finish #line 1248 "regression-compile-tmp/asm6809.imp" L_018b:; // 1249 next char #line 1249 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1250 %repeat #line 1250 "regression-compile-tmp/asm6809.imp" goto L_017a; #line 1250 "regression-compile-tmp/asm6809.imp" L_017b:; // 1251 cont = 0 #line 1251 "regression-compile-tmp/asm6809.imp" CONT = 0; // 1252 %finish #line 1252 "regression-compile-tmp/asm6809.imp" L_0179:; // 1253 %continue #line 1253 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1254 !----------------------------------------------------------------------- // 1255 itype3(33): ! nam #line 1255 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_33:; // 1256 non dense = 1 #line 1256 "regression-compile-tmp/asm6809.imp" NONDENSE = 1; // 1257 header = "" #line 1257 "regression-compile-tmp/asm6809.imp" HEADER = _imp_str_literal(""); // 1258 %while pres char#nl %cycle #line 1258 "regression-compile-tmp/asm6809.imp" L_018c:; #line 1258 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (10))) goto L_018d; // 1259 header <- header.to string(line(lp)) #line 1259 "regression-compile-tmp/asm6809.imp" HEADER = _imp_join((_imp_string)HEADER,(_imp_string)_imp_TOSTRING(LINE[(((int)(LP)) - (1))])); // 1260 next char #line 1260 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1261 %repeat #line 1261 "regression-compile-tmp/asm6809.imp" goto L_018c; #line 1261 "regression-compile-tmp/asm6809.imp" L_018d:; // 1262 instr out(0, 0, 0, -7, 0) #line 1262 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 1263 fault("Illegal label") %unless lid=0 #line 1263 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_018f; #line 1263 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); #line 1263 "regression-compile-tmp/asm6809.imp" L_018f:; // 1264 %continue #line 1264 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1265 !----------------------------------------------------------------------- // 1266 itype3(34): ! opt #line 1266 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_34:; // 1267 i = lp #line 1267 "regression-compile-tmp/asm6809.imp" I = LP; // 1268 j = bchar #line 1268 "regression-compile-tmp/asm6809.imp" J = BCHAR; // 1269 %cycle #line 1269 "regression-compile-tmp/asm6809.imp" L_0190:; // 1270 %if get option(opt) %start #line 1270 "regression-compile-tmp/asm6809.imp" if (!(GETOPTION(&OPT))) goto L_0193; // 1271 ->option action(opt) #line 1271 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_idx = OPT; if ((-1 <= sw1_OPTIONACTION_idx) && (sw1_OPTIONACTION_idx <= 51)) goto *(sw1_OPTIONACTION+1)[sw1_OPTIONACTION_idx]; /* Bounds=-1:51 */ else { /*_imp_signal(8, 2, sw1_OPTIONACTION_idx);*/ fprintf(stderr, "%%SWITCH index OPTIONACTION(%d) not in range -1:51 at %s:%d\n", sw1_OPTIONACTION_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1272 option action(1): #line 1272 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_1:; // 1273 option action(2): #line 1273 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_2:; // 1274 bchar = ' ' #line 1274 "regression-compile-tmp/asm6809.imp" BCHAR = 32; // 1275 -> next option #line 1275 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1276 option action(3): #line 1276 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_3:; // 1277 option action(4): #line 1277 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_4:; // 1278 bchar = -1 #line 1278 "regression-compile-tmp/asm6809.imp" BCHAR = (-1); // 1279 -> next option #line 1279 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1280 option action(5): #line 1280 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_5:; // 1281 option action(6): #line 1281 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_6:; // 1282 cflag = 1 #line 1282 "regression-compile-tmp/asm6809.imp" CFLAG = 1; // 1283 -> next option #line 1283 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1284 option action(7): #line 1284 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_7:; // 1285 option action(8): #line 1285 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_8:; // 1286 cflag = 0 #line 1286 "regression-compile-tmp/asm6809.imp" CFLAG = 0; // 1287 -> next option #line 1287 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1288 option action(9): #line 1288 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_9:; // 1289 drad = 4 #line 1289 "regression-compile-tmp/asm6809.imp" DRAD = 4; // 1290 sp1 = 3 #line 1290 "regression-compile-tmp/asm6809.imp" SP1 = 3; // 1291 sp2 = 6 #line 1291 "regression-compile-tmp/asm6809.imp" SP2 = 6; // 1292 -> next option #line 1292 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1293 option action(10): #line 1293 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_10:; // 1294 drad = 5 #line 1294 "regression-compile-tmp/asm6809.imp" DRAD = 5; // 1295 sp1 = 3 #line 1295 "regression-compile-tmp/asm6809.imp" SP1 = 3; // 1296 sp2 = 5 #line 1296 "regression-compile-tmp/asm6809.imp" SP2 = 5; // 1297 -> next option #line 1297 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1298 option action(11): #line 1298 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_11:; // 1299 drad = 8 #line 1299 "regression-compile-tmp/asm6809.imp" DRAD = 8; // 1300 sp1 = 2 #line 1300 "regression-compile-tmp/asm6809.imp" SP1 = 2; // 1301 sp2 = 4 #line 1301 "regression-compile-tmp/asm6809.imp" SP2 = 4; // 1302 -> next option #line 1302 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1303 option action(12): #line 1303 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_12:; // 1304 option action(13): #line 1304 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_13:; // 1305 option action(14): #line 1305 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_14:; // 1306 option action(15): #line 1306 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_15:; // 1307 eflag = 1 #line 1307 "regression-compile-tmp/asm6809.imp" EFLAG = 1; // 1308 -> next option #line 1308 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1309 option action(16): #line 1309 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_16:; // 1310 option action(17): #line 1310 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_17:; // 1311 eflag = 0 #line 1311 "regression-compile-tmp/asm6809.imp" EFLAG = 0; // 1312 -> next option #line 1312 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1313 option action(18): #line 1313 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_18:; // 1314 option action(19): #line 1314 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_19:; // 1315 fflag = 1 #line 1315 "regression-compile-tmp/asm6809.imp" FFLAG = 1; // 1316 -> next option #line 1316 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1317 option action(20): #line 1317 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_20:; // 1318 option action(21): #line 1318 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_21:; // 1319 fflag = 0 #line 1319 "regression-compile-tmp/asm6809.imp" FFLAG = 0; // 1320 -> next option #line 1320 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1321 option action(22): #line 1321 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_22:; // 1322 option action(23): #line 1322 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_23:; // 1323 gflag = 1 #line 1323 "regression-compile-tmp/asm6809.imp" GFLAG = 1; // 1324 -> next option #line 1324 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1325 option action(24): #line 1325 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_24:; // 1326 option action(25): #line 1326 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_25:; // 1327 gflag = 0 #line 1327 "regression-compile-tmp/asm6809.imp" GFLAG = 0; // 1328 -> next option #line 1328 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1329 option action(26): #line 1329 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_26:; // 1330 option action(27): #line 1330 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_27:; // 1331 lflag = 2 #line 1331 "regression-compile-tmp/asm6809.imp" LFLAG = 2; // 1332 -> next option #line 1332 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1333 option action(28): #line 1333 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_28:; // 1334 option action(29): #line 1334 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_29:; // 1335 lflag = 1 #line 1335 "regression-compile-tmp/asm6809.imp" LFLAG = 1; // 1336 -> next option #line 1336 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1337 option action(30): #line 1337 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_30:; // 1338 option action(31): #line 1338 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_31:; // 1339 lflag = 0 #line 1339 "regression-compile-tmp/asm6809.imp" LFLAG = 0; // 1340 -> next option #line 1340 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1341 option action(32): #line 1341 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_32:; // 1342 option action(33): #line 1342 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_33:; // 1343 pflag = 3 #line 1343 "regression-compile-tmp/asm6809.imp" PFLAG = 3; // 1344 -> next option #line 1344 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1345 option action(34): #line 1345 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_34:; // 1346 option action(35): #line 1346 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_35:; // 1347 pflag = 0 #line 1347 "regression-compile-tmp/asm6809.imp" PFLAG = 0; // 1348 -> next option #line 1348 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1349 option action(36): #line 1349 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_36:; // 1350 option action(37): #line 1350 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_37:; // 1351 sflag = 1 #line 1351 "regression-compile-tmp/asm6809.imp" SFLAG = 1; // 1352 -> next option #line 1352 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1353 option action(38): #line 1353 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_38:; // 1354 option action(39): #line 1354 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_39:; // 1355 sflag = 0 #line 1355 "regression-compile-tmp/asm6809.imp" SFLAG = 0; // 1356 -> next option #line 1356 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1357 option action(40): #line 1357 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_40:; // 1358 option action(41): #line 1358 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_41:; // 1359 tflag = 1 #line 1359 "regression-compile-tmp/asm6809.imp" TFLAG = 1; // 1360 -> next option #line 1360 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1361 option action(42): #line 1361 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_42:; // 1362 option action(43): #line 1362 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_43:; // 1363 tflag = 0 #line 1363 "regression-compile-tmp/asm6809.imp" TFLAG = 0; // 1364 -> next option #line 1364 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1365 option action(44): #line 1365 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_44:; // 1366 option action(45): #line 1366 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_45:; // 1367 wflag = 1 #line 1367 "regression-compile-tmp/asm6809.imp" WFLAG = 1; // 1368 -> next option #line 1368 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1369 option action(46): #line 1369 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_46:; // 1370 option action(47): #line 1370 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_47:; // 1371 wflag = 0 #line 1371 "regression-compile-tmp/asm6809.imp" WFLAG = 0; // 1372 -> next option #line 1372 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1373 option action(48): #line 1373 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_48:; // 1374 option action(49): #line 1374 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_49:; // 1375 xflag = 1 #line 1375 "regression-compile-tmp/asm6809.imp" XFLAG = 1; // 1376 -> next option #line 1376 "regression-compile-tmp/asm6809.imp" goto U_1004; // 1377 option action(50): #line 1377 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_50:; // 1378 option action(51): #line 1378 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_51:; // 1379 xflag = 0 #line 1379 "regression-compile-tmp/asm6809.imp" XFLAG = 0; // 1380 option action(-1): #line 1380 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_M_1:; // 1381 option action(0): #line 1381 "regression-compile-tmp/asm6809.imp" sw1_OPTIONACTION_0:; // 1382 next option: #line 1382 "regression-compile-tmp/asm6809.imp" U_1004:; // 1383 %finish #line 1383 "regression-compile-tmp/asm6809.imp" L_0193:; // 1384 %repeat %until %not more items #line 1384 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0191; #line 1384 "regression-compile-tmp/asm6809.imp" goto L_0190; #line 1384 "regression-compile-tmp/asm6809.imp" L_0191:; // 1385 %if lflag=2 %start #line 1385 "regression-compile-tmp/asm6809.imp" if (((LFLAG) != (2))) goto L_0194; // 1386 sp3 = line width-sp1-sp2*3-cflag*3-wflag-11 #line 1386 "regression-compile-tmp/asm6809.imp" SP3 = (((int)((((int)((((((((((int)(78)) - (SP1)))) - ((((int)(SP2)) * (3)))))) - ((((int)(CFLAG)) * (3)))))) - (WFLAG)))) - (11)); // 1387 %else #line 1387 "regression-compile-tmp/asm6809.imp" goto L_0195; #line 1387 "regression-compile-tmp/asm6809.imp" L_0194:; // 1388 sp3 = line width-wflag-7 #line 1388 "regression-compile-tmp/asm6809.imp" SP3 = (((int)((((int)(78)) - (WFLAG)))) - (7)); // 1389 %finish #line 1389 "regression-compile-tmp/asm6809.imp" L_0195:; // 1390 instr out(0, 0, 0, -7, 0) #line 1390 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 1391 fault("Illegal label") %unless lid=0 #line 1391 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_0196; #line 1391 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); #line 1391 "regression-compile-tmp/asm6809.imp" L_0196:; // 1392 lp = i-1 #line 1392 "regression-compile-tmp/asm6809.imp" LP = (((int)(I)) - (1)); // 1393 next char #line 1393 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1394 bchar = j #line 1394 "regression-compile-tmp/asm6809.imp" BCHAR = J; // 1395 %cycle #line 1395 "regression-compile-tmp/asm6809.imp" L_0197:; // 1396 %if get option(opt) %start #line 1396 "regression-compile-tmp/asm6809.imp" if (!(GETOPTION(&OPT))) goto L_019a; // 1397 %if opt=1 %or opt=2 %start #line 1397 "regression-compile-tmp/asm6809.imp" if (((OPT) == (1))) goto L_0152; #line 1397 "regression-compile-tmp/asm6809.imp" if (((OPT) != (2))) goto L_019b; #line 1397 "regression-compile-tmp/asm6809.imp" L_0152:; // 1398 bchar = ' ' #line 1398 "regression-compile-tmp/asm6809.imp" BCHAR = 32; // 1399 %finish %else %if opt=3 %or opt=4 %start #line 1399 "regression-compile-tmp/asm6809.imp" goto L_019c; #line 1399 "regression-compile-tmp/asm6809.imp" L_019b:; #line 1399 "regression-compile-tmp/asm6809.imp" if (((OPT) == (3))) goto L_019d; #line 1399 "regression-compile-tmp/asm6809.imp" if (((OPT) != (4))) goto L_019e; #line 1399 "regression-compile-tmp/asm6809.imp" L_019d:; // 1400 bchar = -1 #line 1400 "regression-compile-tmp/asm6809.imp" BCHAR = (-1); // 1401 %finish %else %if opt<0 %start #line 1401 "regression-compile-tmp/asm6809.imp" goto L_019c; #line 1401 "regression-compile-tmp/asm6809.imp" L_019e:; #line 1401 "regression-compile-tmp/asm6809.imp" if (((OPT) >= (0))) goto L_019f; // 1402 fault("Unknown option") #line 1402 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Unknown option")); // 1403 %finish #line 1403 "regression-compile-tmp/asm6809.imp" L_019f:; #line 1403 "regression-compile-tmp/asm6809.imp" L_019c:; // 1404 %else #line 1404 "regression-compile-tmp/asm6809.imp" goto L_01a0; #line 1404 "regression-compile-tmp/asm6809.imp" L_019a:; // 1405 fault("Cannot evaluate operand") #line 1405 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Cannot evaluate operand")); // 1406 %finish #line 1406 "regression-compile-tmp/asm6809.imp" L_01a0:; // 1407 %repeat %until %not more items #line 1407 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_0198; #line 1407 "regression-compile-tmp/asm6809.imp" goto L_0197; #line 1407 "regression-compile-tmp/asm6809.imp" L_0198:; // 1408 %continue #line 1408 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1409 !----------------------------------------------------------------------- // 1410 itype3(35): ! page #line 1410 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_35:; // 1411 %unless lid=0 %start #line 1411 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_01a1; // 1412 instr out(0, 0, 0, -7, 0) #line 1412 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 1413 fault("Illegal label") #line 1413 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); // 1414 %finish #line 1414 "regression-compile-tmp/asm6809.imp" L_01a1:; // 1415 nline(lines on page) %unless lflag=0 #line 1415 "regression-compile-tmp/asm6809.imp" if (((LFLAG) == (0))) goto L_01a2; #line 1415 "regression-compile-tmp/asm6809.imp" NLINE(66); #line 1415 "regression-compile-tmp/asm6809.imp" L_01a2:; // 1416 %continue #line 1416 "regression-compile-tmp/asm6809.imp" goto L_00a1; // 1417 !----------------------------------------------------------------------- // 1418 itype3(36): ! spc #line 1418 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_36:; // 1419 i = get opd(opd) #line 1419 "regression-compile-tmp/asm6809.imp" I = GETOPD(&OPD); // 1420 %unless lid=0 %start #line 1420 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_01a3; // 1421 instr out(0, 0, 0, -7, 0) #line 1421 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 1422 fault("Illegal label") #line 1422 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); // 1423 %finish #line 1423 "regression-compile-tmp/asm6809.imp" L_01a3:; // 1424 %unless lflag=0 %start #line 1424 "regression-compile-tmp/asm6809.imp" if (((LFLAG) == (0))) goto L_01a4; // 1425 %if i=0 %start #line 1425 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_01a5; // 1426 nline(opd) #line 1426 "regression-compile-tmp/asm6809.imp" NLINE(OPD); // 1427 %else #line 1427 "regression-compile-tmp/asm6809.imp" goto L_01a6; #line 1427 "regression-compile-tmp/asm6809.imp" L_01a5:; // 1428 nline(1) #line 1428 "regression-compile-tmp/asm6809.imp" NLINE(1); // 1429 %finish #line 1429 "regression-compile-tmp/asm6809.imp" L_01a6:; // 1430 %finish #line 1430 "regression-compile-tmp/asm6809.imp" L_01a4:; // 1431 !----------------------------------------------------------------------- // 1432 %repeat #line 1432 "regression-compile-tmp/asm6809.imp" L_00a1:; #line 1432 "regression-compile-tmp/asm6809.imp" goto L_009f; // 1433 !----------------------------------------------------------------------- // 1434 itype3(37):! end #line 1434 "regression-compile-tmp/asm6809.imp" sw3_ITYPE3_37:; // 1435 instr out(0, 0, 0, -7, 0) #line 1435 "regression-compile-tmp/asm6809.imp" INSTROUT(0, 0, 0, (-7), 0); // 1436 fault("Illegal label") %unless lid=0 #line 1436 "regression-compile-tmp/asm6809.imp" if (((LID) == (0))) goto L_00a0; #line 1436 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Illegal label")); #line 1436 "regression-compile-tmp/asm6809.imp" L_00a0:; // 1437 %for i = 1, 1, nnames %cycle #line 1437 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = NNAMES; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, NNAMES"); I -= _increment; _control -= _increment; L_01a7:; if (I == _final) goto L_01a8; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1438 fault("Symbol ".name(i)." has no value") %if nass(i)=0 #line 1438 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) != (0))) goto L_01aa; #line 1438 "regression-compile-tmp/asm6809.imp" FAULT(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("Symbol "),(_imp_string)NAME[(((int)(I)) - (1))]),(_imp_string)_imp_str_literal(" has no value"))); #line 1438 "regression-compile-tmp/asm6809.imp" L_01aa:; // 1439 %repeat #line 1439 "regression-compile-tmp/asm6809.imp" goto L_01a7; #line 1439 "regression-compile-tmp/asm6809.imp" L_01a8:; // 1440 !----------------------------------------------------------------------- // 1441 %unless xflag=0 %start #line 1441 "regression-compile-tmp/asm6809.imp" if (((XFLAG) == (0))) goto L_01ab; // 1442 sqs(1, nnames) #line 1442 "regression-compile-tmp/asm6809.imp" SQS(1, NNAMES); // 1443 nline(lines on page) #line 1443 "regression-compile-tmp/asm6809.imp" NLINE(66); // 1444 print string(" Symbol Cross Reference Table") #line 1444 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" Symbol Cross Reference Table")); // 1445 nline(2) #line 1445 "regression-compile-tmp/asm6809.imp" NLINE(2); // 1446 sp3 = (linewidth-6-sp2)//6 #line 1446 "regression-compile-tmp/asm6809.imp" SP3 = (long)((long)(((((int)(72)) - (SP2)))) / (long)((int)(6))); // 1447 %for i = 1, 1, nnames %cycle #line 1447 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = NNAMES; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, NNAMES"); I -= _increment; _control -= _increment; L_01ac:; if (I == _final) goto L_01ad; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1448 print string(name(i)) #line 1448 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(NAME[(((int)(I)) - (1))]); // 1449 spaces(7-length(name(i))) #line 1449 "regression-compile-tmp/asm6809.imp" _imp_SPACES(((7) - (*(int *)(_imp_LENGTH(&NAME[(((int)(I)) - (1))]))))); // 1450 %if nass(i)=0 %or nass(i)=2 %or nass(i)=4 %start #line 1450 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) == (0))) goto L_017c; #line 1450 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) == (2))) goto L_017c; #line 1450 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) != (4))) goto L_01af; #line 1450 "regression-compile-tmp/asm6809.imp" L_017c:; // 1451 print symbol('*') %for j = 1, 1, sp2 #line 1451 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = SP2; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, SP2"); J -= _increment; _control -= _increment; L_01b0:; if (J == _final) goto L_01b1; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } #line 1451 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(42); #line 1451 "regression-compile-tmp/asm6809.imp" goto L_01b0; #line 1451 "regression-compile-tmp/asm6809.imp" L_01b1:; // 1452 %else #line 1452 "regression-compile-tmp/asm6809.imp" goto L_01b3; #line 1452 "regression-compile-tmp/asm6809.imp" L_01af:; // 1453 print number(nval(i), 2) #line 1453 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(NVAL[(((int)(I)) - (1))], 2); // 1454 %finish #line 1454 "regression-compile-tmp/asm6809.imp" L_01b3:; // 1455 j = xhead(i) #line 1455 "regression-compile-tmp/asm6809.imp" J = XHEAD[(((int)(I)) - (1))]; // 1456 k = 0 #line 1456 "regression-compile-tmp/asm6809.imp" K = 0; // 1457 %cycle #line 1457 "regression-compile-tmp/asm6809.imp" L_01b4:; // 1458 l = xlink(j) #line 1458 "regression-compile-tmp/asm6809.imp" L = XLINK[(((int)(J)) - (1))]; // 1459 xlink(j) = k #line 1459 "regression-compile-tmp/asm6809.imp" XLINK[(((int)(J)) - (1))] = K; // 1460 k = j #line 1460 "regression-compile-tmp/asm6809.imp" K = J; // 1461 j = l #line 1461 "regression-compile-tmp/asm6809.imp" J = L; // 1462 %repeat %until j=0 #line 1462 "regression-compile-tmp/asm6809.imp" if (((J) == (0))) goto L_01b5; #line 1462 "regression-compile-tmp/asm6809.imp" goto L_01b4; #line 1462 "regression-compile-tmp/asm6809.imp" L_01b5:; // 1463 j = 0 #line 1463 "regression-compile-tmp/asm6809.imp" J = 0; // 1464 %cycle #line 1464 "regression-compile-tmp/asm6809.imp" L_01b7:; // 1465 %if j=sp3 %start #line 1465 "regression-compile-tmp/asm6809.imp" if (((J) != (SP3))) goto L_01ba; // 1466 nline(1) #line 1466 "regression-compile-tmp/asm6809.imp" NLINE(1); // 1467 spaces(7+sp2) #line 1467 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(7)) + (SP2))); // 1468 j = 0 #line 1468 "regression-compile-tmp/asm6809.imp" J = 0; // 1469 %finish #line 1469 "regression-compile-tmp/asm6809.imp" L_01ba:; // 1470 write(xentry(k), 5) #line 1470 "regression-compile-tmp/asm6809.imp" _imp_WRITE(XENTRY[(((int)(K)) - (1))], 5); // 1471 j = j+1 #line 1471 "regression-compile-tmp/asm6809.imp" J = (((int)(J)) + (1)); // 1472 k = xlink(k) #line 1472 "regression-compile-tmp/asm6809.imp" K = XLINK[(((int)(K)) - (1))]; // 1473 %repeat %until k=0 #line 1473 "regression-compile-tmp/asm6809.imp" if (((K) == (0))) goto L_01b8; #line 1473 "regression-compile-tmp/asm6809.imp" goto L_01b7; #line 1473 "regression-compile-tmp/asm6809.imp" L_01b8:; // 1474 nline(1) #line 1474 "regression-compile-tmp/asm6809.imp" NLINE(1); // 1475 %repeat #line 1475 "regression-compile-tmp/asm6809.imp" goto L_01ac; #line 1475 "regression-compile-tmp/asm6809.imp" L_01ad:; // 1476 %finish %else %unless sflag=0 %start #line 1476 "regression-compile-tmp/asm6809.imp" goto L_01bb; #line 1476 "regression-compile-tmp/asm6809.imp" L_01ab:; #line 1476 "regression-compile-tmp/asm6809.imp" if (((SFLAG) == (0))) goto L_01bc; // 1477 sqs(1, nnames) #line 1477 "regression-compile-tmp/asm6809.imp" SQS(1, NNAMES); // 1478 nline(lines on page) #line 1478 "regression-compile-tmp/asm6809.imp" NLINE(66); // 1479 print string(" Symbol Table") #line 1479 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" Symbol Table")); // 1480 nline(2) #line 1480 "regression-compile-tmp/asm6809.imp" NLINE(2); // 1481 sp3 = (line width+8-sp2)//15 #line 1481 "regression-compile-tmp/asm6809.imp" SP3 = (long)((long)(((((int)(86)) - (SP2)))) / (long)((int)(15))); // 1482 sp1 = (linewidth-sp3*15+9-sp2)>>1 #line 1482 "regression-compile-tmp/asm6809.imp" SP1 = (((((((int)((((int)(((78) - ((int)((((int)(SP3)) * (15))))))) + (9)))) - (SP2)))) >> (1))); // 1483 %for j = 1, 1, nnames %cycle #line 1483 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = NNAMES; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, NNAMES"); J -= _increment; _control -= _increment; L_01bd:; if (J == _final) goto L_01be; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 1484 %if (j-1)=(j-1)//sp3*sp3 %start #line 1484 "regression-compile-tmp/asm6809.imp" if ((((((int)(J)) - (1))) != (((((long)((long)(((((int)(J)) - (1)))) / (long)((int)(_Z(SP3)))))) * (SP3))))) goto L_01c0; // 1485 nline(1) #line 1485 "regression-compile-tmp/asm6809.imp" NLINE(1); // 1486 spaces(sp2) #line 1486 "regression-compile-tmp/asm6809.imp" _imp_SPACES(SP2); // 1487 %else #line 1487 "regression-compile-tmp/asm6809.imp" goto L_01c1; #line 1487 "regression-compile-tmp/asm6809.imp" L_01c0:; // 1488 spaces(8-sp2) #line 1488 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(8)) - (SP2))); // 1489 %finish #line 1489 "regression-compile-tmp/asm6809.imp" L_01c1:; // 1490 print string(name(j)) #line 1490 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(NAME[(((int)(J)) - (1))]); // 1491 spaces(7-length(name(j))) #line 1491 "regression-compile-tmp/asm6809.imp" _imp_SPACES(((7) - (*(int *)(_imp_LENGTH(&NAME[(((int)(J)) - (1))]))))); // 1492 %if nass(j)=0 %or nass(j)=2 %or nass(j)=4 %start #line 1492 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(J)) - (1))]) == (0))) goto L_01b9; #line 1492 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(J)) - (1))]) == (2))) goto L_01b9; #line 1492 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(J)) - (1))]) != (4))) goto L_01c2; #line 1492 "regression-compile-tmp/asm6809.imp" L_01b9:; // 1493 print symbol('*') %for i = 1, 1, sp2 #line 1493 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = SP2; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, SP2"); I -= _increment; _control -= _increment; L_01c3:; if (I == _final) goto L_01c4; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } #line 1493 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(42); #line 1493 "regression-compile-tmp/asm6809.imp" goto L_01c3; #line 1493 "regression-compile-tmp/asm6809.imp" L_01c4:; // 1494 %else #line 1494 "regression-compile-tmp/asm6809.imp" goto L_01c6; #line 1494 "regression-compile-tmp/asm6809.imp" L_01c2:; // 1495 print number(nval(j),2) #line 1495 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(NVAL[(((int)(J)) - (1))], 2); // 1496 %finish #line 1496 "regression-compile-tmp/asm6809.imp" L_01c6:; // 1497 %repeat #line 1497 "regression-compile-tmp/asm6809.imp" goto L_01bd; #line 1497 "regression-compile-tmp/asm6809.imp" L_01be:; // 1498 nline(1) #line 1498 "regression-compile-tmp/asm6809.imp" NLINE(1); // 1499 %finish #line 1499 "regression-compile-tmp/asm6809.imp" L_01bc:; #line 1499 "regression-compile-tmp/asm6809.imp" L_01bb:; // 1500 nline(2) #line 1500 "regression-compile-tmp/asm6809.imp" NLINE(2); // 1501 spaces(2) #line 1501 "regression-compile-tmp/asm6809.imp" _imp_SPACES(2); // 1502 %if faults=0 %start #line 1502 "regression-compile-tmp/asm6809.imp" if (((FAULTS) != (0))) goto L_01c7; // 1503 print string("No") #line 1503 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal("No")); // 1504 %else #line 1504 "regression-compile-tmp/asm6809.imp" goto L_01c8; #line 1504 "regression-compile-tmp/asm6809.imp" L_01c7:; // 1505 write(faults, 0) #line 1505 "regression-compile-tmp/asm6809.imp" _imp_WRITE(FAULTS, 0); // 1506 %finish #line 1506 "regression-compile-tmp/asm6809.imp" L_01c8:; // 1507 print string(" fault") #line 1507 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" fault")); // 1508 print symbol('s') %unless faults=1 #line 1508 "regression-compile-tmp/asm6809.imp" if (((FAULTS) == (1))) goto L_01c9; #line 1508 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(115); #line 1508 "regression-compile-tmp/asm6809.imp" L_01c9:; // 1509 print string(" in this assembly.") #line 1509 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" in this assembly.")); // 1510 newline #line 1510 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 1511 select output(0) #line 1511 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(0); // 1512 spaces(2) #line 1512 "regression-compile-tmp/asm6809.imp" _imp_SPACES(2); // 1513 %if faults=0 %start #line 1513 "regression-compile-tmp/asm6809.imp" if (((FAULTS) != (0))) goto L_01ca; // 1514 write(ln, 0) #line 1514 "regression-compile-tmp/asm6809.imp" _imp_WRITE(LN, 0); // 1515 print string(" line") #line 1515 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" line")); // 1516 print symbol('s') %unless ln=1 #line 1516 "regression-compile-tmp/asm6809.imp" if (((LN) == (1))) goto L_01cb; #line 1516 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(115); #line 1516 "regression-compile-tmp/asm6809.imp" L_01cb:; // 1517 print string(" assembled.") #line 1517 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" assembled.")); // 1518 %else #line 1518 "regression-compile-tmp/asm6809.imp" goto L_01cc; #line 1518 "regression-compile-tmp/asm6809.imp" L_01ca:; // 1519 write(faults, 0) #line 1519 "regression-compile-tmp/asm6809.imp" _imp_WRITE(FAULTS, 0); // 1520 print string(" fault") #line 1520 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" fault")); // 1521 print symbol('s') %unless faults=1 #line 1521 "regression-compile-tmp/asm6809.imp" if (((FAULTS) == (1))) goto L_01cd; #line 1521 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(115); #line 1521 "regression-compile-tmp/asm6809.imp" L_01cd:; // 1522 print string(" in this assembly.") #line 1522 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" in this assembly.")); // 1523 %finish #line 1523 "regression-compile-tmp/asm6809.imp" L_01cc:; // 1524 new line #line 1524 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 1525 close #line 1525 "regression-compile-tmp/asm6809.imp" CLOSE(); // 1526 %stop #line 1526 "regression-compile-tmp/asm6809.imp" exit(0); // 1527 !------------------------------------------------------- // 1528 %predicate matches(%string(255) source, pattern, #line 1528 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ MATCHES( _imp_string /*%string(255)*/ SOURCE, _imp_string /*%string(255)*/ PATTERN, int MIN, int /*name*/*I ) #line 1528 "regression-compile-tmp/asm6809.imp" { // 1529 %integer min, %integer %name i) // 1530 %integer l #line 1530 "regression-compile-tmp/asm6809.imp" int L; // 1531 l = length(pattern) #line 1531 "regression-compile-tmp/asm6809.imp" L = *_imp_LENGTH(&PATTERN); // 1532 %if length(pattern)>=length(source) %start #line 1532 "regression-compile-tmp/asm6809.imp" if (((*_imp_LENGTH(&PATTERN)) < (*_imp_LENGTH(&SOURCE)))) goto L_01ce; // 1533 l = length(source) #line 1533 "regression-compile-tmp/asm6809.imp" L = *_imp_LENGTH(&SOURCE); // 1534 %else #line 1534 "regression-compile-tmp/asm6809.imp" goto L_01cf; #line 1534 "regression-compile-tmp/asm6809.imp" L_01ce:; // 1535 l = length(pattern) #line 1535 "regression-compile-tmp/asm6809.imp" L = *_imp_LENGTH(&PATTERN); // 1536 %finish #line 1536 "regression-compile-tmp/asm6809.imp" L_01cf:; // 1537 %for i = 1, 1, l %cycle #line 1537 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = L; *I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle *I = 1, 1, L"); *I -= _increment; _control -= _increment; L_01d0:; if (*I == _final) goto L_01d1; *I += _increment; _control += _increment; if (*I != _control) _imp_signal(4,2,0,"Corrupt control variable *I"); /* FOR loop control variable corrupted */ } // 1538 %unless charno(source, i)=charno(pattern, i) %start #line 1538 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&SOURCE, *I)) == (*_imp_CHARNO(&PATTERN, *I)))) goto L_01d3; // 1539 %if 'A'<=charno(source, i)<='Z' %start #line 1539 "regression-compile-tmp/asm6809.imp" if (({int tmp1 = 65, tmp2 = *_imp_CHARNO(&SOURCE, *I), tmp3 = 90; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_01d4; // 1540 %false #line 1540 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1541 %finish %else %if i<=min %start #line 1541 "regression-compile-tmp/asm6809.imp" L_01d4:; #line 1541 "regression-compile-tmp/asm6809.imp" if (((*I) > (MIN))) goto L_01d5; // 1542 %false #line 1542 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1543 %else #line 1543 "regression-compile-tmp/asm6809.imp" L_01d5:; // 1544 %true #line 1544 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1545 %finish // 1546 %finish #line 1546 "regression-compile-tmp/asm6809.imp" L_01d3:; // 1547 %repeat #line 1547 "regression-compile-tmp/asm6809.imp" goto L_01d0; #line 1547 "regression-compile-tmp/asm6809.imp" L_01d1:; // 1548 i = i+1 #line 1548 "regression-compile-tmp/asm6809.imp" *I = ((*(int *)(I)) + (1)); // 1549 %false %if i<=min #line 1549 "regression-compile-tmp/asm6809.imp" if (((*I) > (MIN))) goto L_01d6; #line 1549 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1549 "regression-compile-tmp/asm6809.imp" L_01d6:; // 1550 %true #line 1550 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1551 %end #line 1551 "regression-compile-tmp/asm6809.imp" } // End of block MATCHES at level 2 // 1552 !--------------------------------------------------------------------- // 1553 %string(255) %function lc(%string(255) source) #line 1553 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ LC( _imp_string /*%string(255)*/ SOURCE ) #line 1553 "regression-compile-tmp/asm6809.imp" { // 1554 %string(255) result #line 1554 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(255)*/ RESULT; // 1555 %integer i #line 1555 "regression-compile-tmp/asm6809.imp" int I; // 1556 // 1557 result = "" #line 1557 "regression-compile-tmp/asm6809.imp" RESULT = _imp_str_literal(""); // 1558 %for i = 1, 1, length(source) %cycle #line 1558 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = *_imp_LENGTH(&SOURCE); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, *_imp_LENGTH(&SOURCE)"); I -= _increment; _control -= _increment; L_01d7:; if (I == _final) goto L_01d8; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1559 %if 'A'<=charno(source, i)&127<='Z' %start #line 1559 "regression-compile-tmp/asm6809.imp" if ((((65) > (((*_imp_CHARNO(&SOURCE, I)) & (127))))) || (((((*_imp_CHARNO(&SOURCE, I)) & (127))) > (90)))) goto L_01da; // 1560 result = result.tostring((charno(source, i)&127)+'a'-'A') #line 1560 "regression-compile-tmp/asm6809.imp" RESULT = _imp_join((_imp_string)RESULT,(_imp_string)_imp_TOSTRING((((int)((((int)(((*_imp_CHARNO(&SOURCE, I)) & (127)))) + (97)))) - (65)))); // 1561 %else #line 1561 "regression-compile-tmp/asm6809.imp" goto L_01db; #line 1561 "regression-compile-tmp/asm6809.imp" L_01da:; // 1562 result = result.tostring(charno(source, i)&127) #line 1562 "regression-compile-tmp/asm6809.imp" RESULT = _imp_join((_imp_string)RESULT,(_imp_string)_imp_TOSTRING(((*_imp_CHARNO(&SOURCE, I)) & (127)))); // 1563 %finish #line 1563 "regression-compile-tmp/asm6809.imp" L_01db:; // 1564 %repeat #line 1564 "regression-compile-tmp/asm6809.imp" goto L_01d7; #line 1564 "regression-compile-tmp/asm6809.imp" L_01d8:; // 1565 %result = result #line 1565 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return RESULT; // 1566 %end #line 1566 "regression-compile-tmp/asm6809.imp" } // End of block LC at level 2 // 1567 !--------------------------------------------------------------------- // 1568 %predicate is typed(%string(255) source, %string(255)%name file) #line 1568 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ ISTYPED( _imp_string /*%string(255)*/ SOURCE, _imp_string /*%string(255)*/ /*name*/*FILE ) #line 1568 "regression-compile-tmp/asm6809.imp" { // 1569 %integer i #line 1569 "regression-compile-tmp/asm6809.imp" int I; // 1570 // 1571 %for i = 1, 1, length(source) %cycle #line 1571 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = *_imp_LENGTH(&SOURCE); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, *_imp_LENGTH(&SOURCE)"); I -= _increment; _control -= _increment; L_01dc:; if (I == _final) goto L_01dd; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1572 file = substring(source, 1, i-1) %and %true %if charno(source, i)='.' #line 1572 "regression-compile-tmp/asm6809.imp" if (((*_imp_CHARNO(&SOURCE, I)) != (46))) goto L_01df; #line 1572 "regression-compile-tmp/asm6809.imp" *FILE = _imp_SUBSTRING(&SOURCE, 1, (((int)(I)) - (1))); #line 1572 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1572 "regression-compile-tmp/asm6809.imp" L_01df:; // 1573 %repeat #line 1573 "regression-compile-tmp/asm6809.imp" goto L_01dc; #line 1573 "regression-compile-tmp/asm6809.imp" L_01dd:; // 1574 file = source #line 1574 "regression-compile-tmp/asm6809.imp" *FILE = SOURCE; // 1575 %false #line 1575 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1576 %end #line 1576 "regression-compile-tmp/asm6809.imp" } // End of block ISTYPED at level 2 // 1577 !----------------------------------------------------------------------- // 1578 %routine read line #line 1578 "regression-compile-tmp/asm6809.imp" void READLINE( void ) #line 1578 "regression-compile-tmp/asm6809.imp" { // 1579 %integer ch #line 1579 "regression-compile-tmp/asm6809.imp" int CH; // 1580 %integer i #line 1580 "regression-compile-tmp/asm6809.imp" int I; // 1581 %on %event 9 %start #line 1581 "regression-compile-tmp/asm6809.imp" if (!_imp_on_event(9)) goto L_01e0; /* TO DO: Remove %on %event handler just before L_01e0: if present for this block */ // 1582 %if i=1 %start #line 1582 "regression-compile-tmp/asm6809.imp" if (((I) != (1))) goto L_01e1; // 1583 line(1) = ' ' #line 1583 "regression-compile-tmp/asm6809.imp" LINE[0] = 32; // 1584 line(2) = 'E' #line 1584 "regression-compile-tmp/asm6809.imp" LINE[1] = 69; // 1585 line(3) = 'N' #line 1585 "regression-compile-tmp/asm6809.imp" LINE[2] = 78; // 1586 line(4) = 'D' #line 1586 "regression-compile-tmp/asm6809.imp" LINE[3] = 68; // 1587 line(5) = nl #line 1587 "regression-compile-tmp/asm6809.imp" LINE[4] = 10; // 1588 %else #line 1588 "regression-compile-tmp/asm6809.imp" goto L_01e2; #line 1588 "regression-compile-tmp/asm6809.imp" L_01e1:; // 1589 line(i) = nl #line 1589 "regression-compile-tmp/asm6809.imp" LINE[(((int)(I)) - (1))] = 10; // 1590 %finish #line 1590 "regression-compile-tmp/asm6809.imp" L_01e2:; // 1591 -> eof exit #line 1591 "regression-compile-tmp/asm6809.imp" goto U_1005; // 1592 %finish #line 1592 "regression-compile-tmp/asm6809.imp" L_01e0:; // 1593 // 1594 ln=ln+1 #line 1594 "regression-compile-tmp/asm6809.imp" LN = (((int)(LN)) + (1)); // 1595 %for i = 1, 1, max line+1 %cycle #line 1595 "regression-compile-tmp/asm6809.imp" I = 0; if ((((513)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 513"); L_01e3:; if (I == 513) goto L_01e4; I += 1; // 1596 read symbol(ch); line(i) = ch #line 1596 "regression-compile-tmp/asm6809.imp" _imp_READSYMBOL(&CH); #line 1596 "regression-compile-tmp/asm6809.imp" LINE[(((int)(I)) - (1))] = CH; // 1597 %exit %if line(i)&127=nl %or line(i)&127=12 #line 1597 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_01bf; #line 1597 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (12))) goto L_01e6; #line 1597 "regression-compile-tmp/asm6809.imp" L_01bf:; #line 1597 "regression-compile-tmp/asm6809.imp" goto L_01e4; #line 1597 "regression-compile-tmp/asm6809.imp" L_01e6:; // 1598 %repeat #line 1598 "regression-compile-tmp/asm6809.imp" goto L_01e3; #line 1598 "regression-compile-tmp/asm6809.imp" L_01e4:; // 1599 read symbol(ch) %and line(i) = ch %while line(i)&127#nl %and line(i)&127#12 #line 1599 "regression-compile-tmp/asm6809.imp" L_01e7:; #line 1599 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_01e8; #line 1599 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (12))) goto L_01e8; #line 1599 "regression-compile-tmp/asm6809.imp" _imp_READSYMBOL(&CH); #line 1599 "regression-compile-tmp/asm6809.imp" LINE[(((int)(I)) - (1))] = CH; #line 1599 "regression-compile-tmp/asm6809.imp" goto L_01e7; #line 1599 "regression-compile-tmp/asm6809.imp" L_01e8:; // 1600 eof exit: #line 1600 "regression-compile-tmp/asm6809.imp" U_1005:; // 1601 lp = 0 #line 1601 "regression-compile-tmp/asm6809.imp" LP = 0; // 1602 next char #line 1602 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1603 %end #line 1603 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block READLINE at level 2 // 1604 !----------------------------------------------------------------------- // 1605 %routine next char #line 1605 "regression-compile-tmp/asm6809.imp" void NEXTCHAR( void ) #line 1605 "regression-compile-tmp/asm6809.imp" { // 1606 // 1607 lp = lp+1 #line 1607 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) + (1)); // 1608 pres char = line(lp)&127 #line 1608 "regression-compile-tmp/asm6809.imp" PRESCHAR = ((LINE[(((int)(LP)) - (1))]) & (127)); // 1609 %if 'a'<=pres char<='z' %start #line 1609 "regression-compile-tmp/asm6809.imp" if ((((97) > (PRESCHAR))) || (((PRESCHAR) > (122)))) goto L_01ea; // 1610 pres char = pres char+'A'-'a' #line 1610 "regression-compile-tmp/asm6809.imp" PRESCHAR = (((int)((((int)(PRESCHAR)) + (65)))) - (97)); // 1611 %finish %else %if pres char=12 %start #line 1611 "regression-compile-tmp/asm6809.imp" goto L_01eb; #line 1611 "regression-compile-tmp/asm6809.imp" L_01ea:; #line 1611 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (12))) goto L_01ec; // 1612 pres char = nl #line 1612 "regression-compile-tmp/asm6809.imp" PRESCHAR = 10; // 1613 %finish %else %if pres char=9 %start #line 1613 "regression-compile-tmp/asm6809.imp" goto L_01eb; #line 1613 "regression-compile-tmp/asm6809.imp" L_01ec:; #line 1613 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (9))) goto L_01ed; // 1614 pres char = ' ' #line 1614 "regression-compile-tmp/asm6809.imp" PRESCHAR = 32; // 1615 %finish #line 1615 "regression-compile-tmp/asm6809.imp" L_01ed:; #line 1615 "regression-compile-tmp/asm6809.imp" L_01eb:; // 1616 %end #line 1616 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block NEXTCHAR at level 2 // 1617 !----------------------------------------------------------------------- // 1618 %routine skip blanks #line 1618 "regression-compile-tmp/asm6809.imp" void SKIPBLANKS( void ) #line 1618 "regression-compile-tmp/asm6809.imp" { // 1619 // 1620 next char %while pres char=' ' #line 1620 "regression-compile-tmp/asm6809.imp" L_01ee:; #line 1620 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (32))) goto L_01ef; #line 1620 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1620 "regression-compile-tmp/asm6809.imp" goto L_01ee; #line 1620 "regression-compile-tmp/asm6809.imp" L_01ef:; // 1621 %end #line 1621 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SKIPBLANKS at level 2 // 1622 !----------------------------------------------------------------------- // 1623 %predicate more items #line 1623 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ MOREITEMS( void ) #line 1623 "regression-compile-tmp/asm6809.imp" { // 1624 // 1625 next char %while pres char=bchar #line 1625 "regression-compile-tmp/asm6809.imp" L_01f1:; #line 1625 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_01f2; #line 1625 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1625 "regression-compile-tmp/asm6809.imp" goto L_01f1; #line 1625 "regression-compile-tmp/asm6809.imp" L_01f2:; // 1626 %false %unless pres char=',' #line 1626 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_01f4; #line 1626 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1626 "regression-compile-tmp/asm6809.imp" L_01f4:; // 1627 next char %until pres char#bchar #line 1627 "regression-compile-tmp/asm6809.imp" L_01f5:; #line 1627 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1627 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_01f6; #line 1627 "regression-compile-tmp/asm6809.imp" goto L_01f5; #line 1627 "regression-compile-tmp/asm6809.imp" L_01f6:; // 1628 %true #line 1628 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1629 %end #line 1629 "regression-compile-tmp/asm6809.imp" } // End of block MOREITEMS at level 2 // 1630 !----------------------------------------------------------------------- // 1631 %predicate get option(%integer %name opt) #line 1631 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ GETOPTION( int /*name*/*OPT ) #line 1631 "regression-compile-tmp/asm6809.imp" { // 1632 %string(11) option #line 1632 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(11)*/ OPTION; // 1633 // 1634 %if 'A'<=pres char<='Z' %start #line 1634 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) > (90)))) goto L_01f8; // 1635 option = to string(pres char) #line 1635 "regression-compile-tmp/asm6809.imp" OPTION = _imp_TOSTRING(PRESCHAR); // 1636 %cycle #line 1636 "regression-compile-tmp/asm6809.imp" L_01f9:; // 1637 next char #line 1637 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1638 %exit %unless 'A'<=pres char<='Z' %or '0'<=pres char<='9' #line 1638 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_01fd; #line 1638 "regression-compile-tmp/asm6809.imp" L_01fc:; #line 1638 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (57)))) goto L_01fd; #line 1638 "regression-compile-tmp/asm6809.imp" L_01fe:; #line 1638 "regression-compile-tmp/asm6809.imp" goto L_01fa; #line 1638 "regression-compile-tmp/asm6809.imp" L_01fd:; // 1639 option <- option.to string(pres char) #line 1639 "regression-compile-tmp/asm6809.imp" OPTION = _imp_join((_imp_string)OPTION,(_imp_string)_imp_TOSTRING(PRESCHAR)); // 1640 %repeat #line 1640 "regression-compile-tmp/asm6809.imp" goto L_01f9; #line 1640 "regression-compile-tmp/asm6809.imp" L_01fa:; // 1641 %for opt = 1, 1, no options %cycle #line 1641 "regression-compile-tmp/asm6809.imp" *OPT = 0; if ((((51)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle *OPT = 1, 1, 51"); L_01ff:; if (*OPT == 51) goto L_0200; *OPT += 1; // 1642 %true %if option text(opt)=option #line 1642 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp((OPTIONTEXT-1)[*OPT], OPTION) != 0)) goto L_0202; #line 1642 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1642 "regression-compile-tmp/asm6809.imp" L_0202:; // 1643 %repeat #line 1643 "regression-compile-tmp/asm6809.imp" goto L_01ff; #line 1643 "regression-compile-tmp/asm6809.imp" L_0200:; // 1644 opt = -1 #line 1644 "regression-compile-tmp/asm6809.imp" *OPT = (-1); // 1645 %true #line 1645 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1646 %else #line 1646 "regression-compile-tmp/asm6809.imp" L_01f8:; // 1647 opt = 0 #line 1647 "regression-compile-tmp/asm6809.imp" *OPT = 0; // 1648 %false %unless pres char=',' #line 1648 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (44))) goto L_0203; #line 1648 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1648 "regression-compile-tmp/asm6809.imp" L_0203:; // 1649 next char #line 1649 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1650 %true #line 1650 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1651 %finish // 1652 %end #line 1652 "regression-compile-tmp/asm6809.imp" } // End of block GETOPTION at level 2 // 1653 !----------------------------------------------------------------------- // 1654 %integerfn get name(%integername nid) #line 1654 "regression-compile-tmp/asm6809.imp" int GETNAME( int /*name*/*NID ) #line 1654 "regression-compile-tmp/asm6809.imp" { // 1655 %string(6) n #line 1655 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(6)*/ N; // 1656 %integer h,l #line 1656 "regression-compile-tmp/asm6809.imp" int H; #line 1656 "regression-compile-tmp/asm6809.imp" int L; // 1657 // 1658 nid = 0 %and %result = 1 %unless 'A'<=pres char<='Z' #line 1658 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_0204; #line 1658 "regression-compile-tmp/asm6809.imp" L_01f7:; #line 1658 "regression-compile-tmp/asm6809.imp" *NID = 0; #line 1658 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1658 "regression-compile-tmp/asm6809.imp" L_0204:; // 1659 h=pres char-'0' #line 1659 "regression-compile-tmp/asm6809.imp" H = (((int)(PRESCHAR)) - (48)); // 1660 n=tostring(pres char) #line 1660 "regression-compile-tmp/asm6809.imp" N = _imp_TOSTRING(PRESCHAR); // 1661 l = 1 #line 1661 "regression-compile-tmp/asm6809.imp" L = 1; // 1662 %cycle #line 1662 "regression-compile-tmp/asm6809.imp" L_0205:; // 1663 next char #line 1663 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1664 %exit %unless 'A'<=pres char<='Z' %or '0'<=pres char<='9' #line 1664 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_0208; #line 1664 "regression-compile-tmp/asm6809.imp" L_0201:; #line 1664 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (57)))) goto L_0208; #line 1664 "regression-compile-tmp/asm6809.imp" L_0209:; #line 1664 "regression-compile-tmp/asm6809.imp" goto L_0206; #line 1664 "regression-compile-tmp/asm6809.imp" L_0208:; // 1665 l = l+1 #line 1665 "regression-compile-tmp/asm6809.imp" L = (((int)(L)) + (1)); // 1666 h=h<<4+pres char-'0' %and n=n.tostring(pres char) %unless l>6 #line 1666 "regression-compile-tmp/asm6809.imp" if (((L) > (6))) goto L_020a; #line 1666 "regression-compile-tmp/asm6809.imp" H = (((int)((((int)(((H) << (4)))) + (PRESCHAR)))) - (48)); #line 1666 "regression-compile-tmp/asm6809.imp" N = _imp_join((_imp_string)N,(_imp_string)_imp_TOSTRING(PRESCHAR)); #line 1666 "regression-compile-tmp/asm6809.imp" L_020a:; // 1667 %repeat #line 1667 "regression-compile-tmp/asm6809.imp" goto L_0205; #line 1667 "regression-compile-tmp/asm6809.imp" L_0206:; // 1668 h=h&32767 #line 1668 "regression-compile-tmp/asm6809.imp" H = ((H) & (32767)); // 1669 h=h-h//nhash*nhash #line 1669 "regression-compile-tmp/asm6809.imp" H = ((H) - (((((long)((long)((int)(H)) / (long)((int)(67))))) * (67)))); // 1670 l=hnlink(h) #line 1670 "regression-compile-tmp/asm6809.imp" L = HNLINK[H]; // 1671 %while l#0 %cycle #line 1671 "regression-compile-tmp/asm6809.imp" L_020b:; #line 1671 "regression-compile-tmp/asm6809.imp" if (((L) == (0))) goto L_020c; // 1672 %if name(l)=n %start #line 1672 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(NAME[(((int)(L)) - (1))], N) != 0)) goto L_020e; // 1673 nid = l #line 1673 "regression-compile-tmp/asm6809.imp" *NID = L; // 1674 %if pass=4 %and xxentries<=xentries %and %c #line 1674 "regression-compile-tmp/asm6809.imp" if (((PASS) != (4))) goto L_020f; #line 1674 "regression-compile-tmp/asm6809.imp" if (((XXENTRIES) > (4096))) goto L_020f; #line 1674 "regression-compile-tmp/asm6809.imp" if (((LOOKAHEAD) != (0))) goto L_020f; // 1675 look ahead=0 %start // 1676 xxentries = xxentries+1 #line 1676 "regression-compile-tmp/asm6809.imp" XXENTRIES = (((int)(XXENTRIES)) + (1)); // 1677 %if xxentries>xentries %start #line 1677 "regression-compile-tmp/asm6809.imp" if (((XXENTRIES) <= (4096))) goto L_0210; // 1678 fault("Too many references") #line 1678 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Too many references")); // 1679 %else #line 1679 "regression-compile-tmp/asm6809.imp" goto L_0211; #line 1679 "regression-compile-tmp/asm6809.imp" L_0210:; // 1680 xlink(xxentries) = xhead(l) #line 1680 "regression-compile-tmp/asm6809.imp" XLINK[(((int)(XXENTRIES)) - (1))] = XHEAD[(((int)(L)) - (1))]; // 1681 xentry(xxentries) = ln #line 1681 "regression-compile-tmp/asm6809.imp" XENTRY[(((int)(XXENTRIES)) - (1))] = LN; // 1682 xhead(l) = xxentries #line 1682 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(L)) - (1))] = XXENTRIES; // 1683 %finish #line 1683 "regression-compile-tmp/asm6809.imp" L_0211:; // 1684 %finish #line 1684 "regression-compile-tmp/asm6809.imp" L_020f:; // 1685 %result = 0 #line 1685 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1686 %finish #line 1686 "regression-compile-tmp/asm6809.imp" L_020e:; // 1687 l=nlink(l) #line 1687 "regression-compile-tmp/asm6809.imp" L = NLINK[(((int)(L)) - (1))]; // 1688 %repeat #line 1688 "regression-compile-tmp/asm6809.imp" goto L_020b; #line 1688 "regression-compile-tmp/asm6809.imp" L_020c:; // 1689 fault("Too many names") %and %stop %if nnames=names #line 1689 "regression-compile-tmp/asm6809.imp" if (((NNAMES) != (1023))) goto L_0212; #line 1689 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Too many names")); #line 1689 "regression-compile-tmp/asm6809.imp" exit(0); #line 1689 "regression-compile-tmp/asm6809.imp" L_0212:; // 1690 nnames = nnames+1 #line 1690 "regression-compile-tmp/asm6809.imp" NNAMES = (((int)(NNAMES)) + (1)); // 1691 name(nnames) = n #line 1691 "regression-compile-tmp/asm6809.imp" NAME[(((int)(NNAMES)) - (1))] = N; // 1692 nlink(nnames) = hnlink(h) #line 1692 "regression-compile-tmp/asm6809.imp" NLINK[(((int)(NNAMES)) - (1))] = HNLINK[H]; // 1693 %if n="A" %or n="B" %or n="CC" %or n="DP" %or n="X" %or %c #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("A")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("B")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("CC")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("DP")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("X")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("Y")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("U")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("S")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("PC")) == 0)) goto L_020d; #line 1693 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(N, _imp_str_literal("PCR")) != 0)) goto L_0213; #line 1693 "regression-compile-tmp/asm6809.imp" L_020d:; // 1694 n="Y" %or n="U" %or n="S" %or n="PC" %or n="PCR" %start // 1695 nass(nnames) = 2 #line 1695 "regression-compile-tmp/asm6809.imp" NASS[(((int)(NNAMES)) - (1))] = 2; // 1696 %else #line 1696 "regression-compile-tmp/asm6809.imp" goto L_0214; #line 1696 "regression-compile-tmp/asm6809.imp" L_0213:; // 1697 nass(nnames) = 0 #line 1697 "regression-compile-tmp/asm6809.imp" NASS[(((int)(NNAMES)) - (1))] = 0; // 1698 %finish #line 1698 "regression-compile-tmp/asm6809.imp" L_0214:; // 1699 nval(nnames) = 0 #line 1699 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(NNAMES)) - (1))] = 0; // 1700 %if pass=4 %and xxentries<=xentries %start #line 1700 "regression-compile-tmp/asm6809.imp" if (((PASS) != (4))) goto L_0215; #line 1700 "regression-compile-tmp/asm6809.imp" if (((XXENTRIES) > (4096))) goto L_0215; // 1701 xxentries = xxentries+1 #line 1701 "regression-compile-tmp/asm6809.imp" XXENTRIES = (((int)(XXENTRIES)) + (1)); // 1702 %if xxentries>xentries %start #line 1702 "regression-compile-tmp/asm6809.imp" if (((XXENTRIES) <= (4096))) goto L_0216; // 1703 fault("Too many references") #line 1703 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Too many references")); // 1704 %else #line 1704 "regression-compile-tmp/asm6809.imp" goto L_0217; #line 1704 "regression-compile-tmp/asm6809.imp" L_0216:; // 1705 xlink(xxentries) = 0 #line 1705 "regression-compile-tmp/asm6809.imp" XLINK[(((int)(XXENTRIES)) - (1))] = 0; // 1706 xentry(xxentries) = ln #line 1706 "regression-compile-tmp/asm6809.imp" XENTRY[(((int)(XXENTRIES)) - (1))] = LN; // 1707 xhead(nnames) = xxentries #line 1707 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(NNAMES)) - (1))] = XXENTRIES; // 1708 %finish #line 1708 "regression-compile-tmp/asm6809.imp" L_0217:; // 1709 %else #line 1709 "regression-compile-tmp/asm6809.imp" goto L_0218; #line 1709 "regression-compile-tmp/asm6809.imp" L_0215:; // 1710 xhead(nnames) = 0 #line 1710 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(NNAMES)) - (1))] = 0; // 1711 %finish #line 1711 "regression-compile-tmp/asm6809.imp" L_0218:; // 1712 hnlink(h) = nnames #line 1712 "regression-compile-tmp/asm6809.imp" HNLINK[H] = NNAMES; // 1713 nid = nnames #line 1713 "regression-compile-tmp/asm6809.imp" *NID = NNAMES; // 1714 %result=0 #line 1714 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1715 %end #line 1715 "regression-compile-tmp/asm6809.imp" } // End of block GETNAME at level 2 // 1716 !----------------------------------------------------------------------- // 1717 %predicate get instr(%integername iid) #line 1717 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ GETINSTR( int /*name*/*IID ) #line 1717 "regression-compile-tmp/asm6809.imp" { // 1718 %string(5) i #line 1718 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(5)*/ I; // 1719 %integer h,l #line 1719 "regression-compile-tmp/asm6809.imp" int H; #line 1719 "regression-compile-tmp/asm6809.imp" int L; // 1720 // 1721 iid=0 #line 1721 "regression-compile-tmp/asm6809.imp" *IID = 0; // 1722 %false %unless 'A'<=pres char<='Z' #line 1722 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_021a; #line 1722 "regression-compile-tmp/asm6809.imp" L_0219:; #line 1722 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1722 "regression-compile-tmp/asm6809.imp" L_021a:; // 1723 h=pres char-'0' #line 1723 "regression-compile-tmp/asm6809.imp" H = (((int)(PRESCHAR)) - (48)); // 1724 i=tostring(pres char) #line 1724 "regression-compile-tmp/asm6809.imp" I = _imp_TOSTRING(PRESCHAR); // 1725 %for l = 2, 1, 5 %cycle #line 1725 "regression-compile-tmp/asm6809.imp" L = 1; if ((((5)-(2)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle L = 2, 1, 5"); L_021b:; if (L == 5) goto L_021c; L += 1; // 1726 next char #line 1726 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1727 -> goti %unless 'A'<=pres char<='Z' %or '0'<=pres char<='9' #line 1727 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_021f; #line 1727 "regression-compile-tmp/asm6809.imp" L_021e:; #line 1727 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (57)))) goto L_021f; #line 1727 "regression-compile-tmp/asm6809.imp" L_0220:; #line 1727 "regression-compile-tmp/asm6809.imp" goto U_1006; #line 1727 "regression-compile-tmp/asm6809.imp" L_021f:; // 1728 h=h<<4+pres char-'0' #line 1728 "regression-compile-tmp/asm6809.imp" H = (((int)((((int)(((H) << (4)))) + (PRESCHAR)))) - (48)); // 1729 i=i.tostring(pres char) #line 1729 "regression-compile-tmp/asm6809.imp" I = _imp_join((_imp_string)I,(_imp_string)_imp_TOSTRING(PRESCHAR)); // 1730 %repeat #line 1730 "regression-compile-tmp/asm6809.imp" goto L_021b; #line 1730 "regression-compile-tmp/asm6809.imp" L_021c:; // 1731 next char #line 1731 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1732 %false %if 'A'<=pres char<='Z' #line 1732 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) > (90)))) goto L_0221; #line 1732 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1732 "regression-compile-tmp/asm6809.imp" L_0221:; // 1733 goti: h=h&32767 #line 1733 "regression-compile-tmp/asm6809.imp" U_1006:; #line 1733 "regression-compile-tmp/asm6809.imp" H = ((H) & (32767)); // 1734 h=h-h//ihash*ihash #line 1734 "regression-compile-tmp/asm6809.imp" H = ((H) - (((((long)((long)((int)(H)) / (long)((int)(59))))) * (59)))); // 1735 l=hilink(h) #line 1735 "regression-compile-tmp/asm6809.imp" L = HILINK[H]; // 1736 %while l#0 %cycle #line 1736 "regression-compile-tmp/asm6809.imp" L_0222:; #line 1736 "regression-compile-tmp/asm6809.imp" if (((L) == (0))) goto L_0223; // 1737 iid=l %and %true %if instr(l)=i #line 1737 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp((INSTR-1)[L], I) != 0)) goto L_0225; #line 1737 "regression-compile-tmp/asm6809.imp" *IID = L; #line 1737 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1737 "regression-compile-tmp/asm6809.imp" L_0225:; // 1738 l=ilink(l) #line 1738 "regression-compile-tmp/asm6809.imp" L = (ILINK-1)[L]; // 1739 %repeat #line 1739 "regression-compile-tmp/asm6809.imp" goto L_0222; #line 1739 "regression-compile-tmp/asm6809.imp" L_0223:; // 1740 %false #line 1740 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1741 %end #line 1741 "regression-compile-tmp/asm6809.imp" } // End of block GETINSTR at level 2 // 1742 !----------------------------------------------------------------------- // 1743 %routine evaluate(%integer %name a, %integer b, %byte %integer op) #line 1743 "regression-compile-tmp/asm6809.imp" void EVALUATE( int /*name*/*A, int B, unsigned char OP ) #line 1743 "regression-compile-tmp/asm6809.imp" { // 1744 // 1745 %if op='+' %start #line 1745 "regression-compile-tmp/asm6809.imp" if (((OP) != (43))) goto L_0226; // 1746 a = a+b #line 1746 "regression-compile-tmp/asm6809.imp" *A = ((*(int *)(A)) + (B)); // 1747 %finish %else %if op='-' %start #line 1747 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1747 "regression-compile-tmp/asm6809.imp" L_0226:; #line 1747 "regression-compile-tmp/asm6809.imp" if (((OP) != (45))) goto L_0228; // 1748 a = a-b #line 1748 "regression-compile-tmp/asm6809.imp" *A = ((*(int *)(A)) - (B)); // 1749 %finish %else %if op='*' %start #line 1749 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1749 "regression-compile-tmp/asm6809.imp" L_0228:; #line 1749 "regression-compile-tmp/asm6809.imp" if (((OP) != (42))) goto L_0229; // 1750 a = a*b #line 1750 "regression-compile-tmp/asm6809.imp" *A = ((*(int *)(A)) * (B)); // 1751 %finish %else %if op='/' %start #line 1751 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1751 "regression-compile-tmp/asm6809.imp" L_0229:; #line 1751 "regression-compile-tmp/asm6809.imp" if (((OP) != (47))) goto L_022a; // 1752 a = a//b #line 1752 "regression-compile-tmp/asm6809.imp" *A = (long)((long)(*(int *)(A)) / (long)((int)(_Z(B)))); // 1753 %finish %else %if op='|' %start #line 1753 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1753 "regression-compile-tmp/asm6809.imp" L_022a:; #line 1753 "regression-compile-tmp/asm6809.imp" if (((OP) != (124))) goto L_022b; // 1754 a = a-a//b*b #line 1754 "regression-compile-tmp/asm6809.imp" *A = ((*A) - (((((long)((long)(*(int *)(A)) / (long)((int)(_Z(B)))))) * (B)))); // 1755 %finish %else %if op='!' %start #line 1755 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1755 "regression-compile-tmp/asm6809.imp" L_022b:; #line 1755 "regression-compile-tmp/asm6809.imp" if (((OP) != (33))) goto L_022c; // 1756 a = a!b #line 1756 "regression-compile-tmp/asm6809.imp" *A = ((*A) | (B)); // 1757 %finish %else %if op='&' %start #line 1757 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1757 "regression-compile-tmp/asm6809.imp" L_022c:; #line 1757 "regression-compile-tmp/asm6809.imp" if (((OP) != (38))) goto L_022d; // 1758 a = a&b #line 1758 "regression-compile-tmp/asm6809.imp" *A = ((*A) & (B)); // 1759 %finish %else %if op='\' %start #line 1759 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1759 "regression-compile-tmp/asm6809.imp" L_022d:; #line 1759 "regression-compile-tmp/asm6809.imp" if (((OP) != (92))) goto L_022e; // 1760 a = a!!b #line 1760 "regression-compile-tmp/asm6809.imp" *A = ((*A) ^ (B)); // 1761 %finish %else %if op='<' %start #line 1761 "regression-compile-tmp/asm6809.imp" goto L_0227; #line 1761 "regression-compile-tmp/asm6809.imp" L_022e:; #line 1761 "regression-compile-tmp/asm6809.imp" if (((OP) != (60))) goto L_022f; // 1762 a = a<>b #line 1764 "regression-compile-tmp/asm6809.imp" *A = (int)(((*(unsigned int *)(A)) >> (B))); // 1765 %finish #line 1765 "regression-compile-tmp/asm6809.imp" L_0230:; #line 1765 "regression-compile-tmp/asm6809.imp" L_0227:; // 1766 %end #line 1766 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block EVALUATE at level 2 // 1767 !----------------------------------------------------------------------- // 1768 %integer %function get term(%integer %name opd) #line 1768 "regression-compile-tmp/asm6809.imp" int GETTERM( int /*name*/*OPD ) #line 1768 "regression-compile-tmp/asm6809.imp" { // 1769 %integer i #line 1769 "regression-compile-tmp/asm6809.imp" int I; // 1770 // 1771 %while pres char='+' %cycle #line 1771 "regression-compile-tmp/asm6809.imp" L_0231:; #line 1771 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (43))) goto L_0232; // 1772 next char %until pres char#bchar #line 1772 "regression-compile-tmp/asm6809.imp" L_0234:; #line 1772 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1772 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0235; #line 1772 "regression-compile-tmp/asm6809.imp" goto L_0234; #line 1772 "regression-compile-tmp/asm6809.imp" L_0235:; // 1773 %repeat #line 1773 "regression-compile-tmp/asm6809.imp" goto L_0231; #line 1773 "regression-compile-tmp/asm6809.imp" L_0232:; // 1774 %if pres char='-' %start #line 1774 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (45))) goto L_0237; // 1775 next char %until pres char#bchar #line 1775 "regression-compile-tmp/asm6809.imp" L_0238:; #line 1775 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1775 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0239; #line 1775 "regression-compile-tmp/asm6809.imp" goto L_0238; #line 1775 "regression-compile-tmp/asm6809.imp" L_0239:; // 1776 i = get term(opd) #line 1776 "regression-compile-tmp/asm6809.imp" I = GETTERM(OPD); // 1777 opd = -opd #line 1777 "regression-compile-tmp/asm6809.imp" *OPD = (-(*OPD)); // 1778 %finish %else %if pres char='\' %start #line 1778 "regression-compile-tmp/asm6809.imp" goto L_023b; #line 1778 "regression-compile-tmp/asm6809.imp" L_0237:; #line 1778 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (92))) goto L_023c; // 1779 next char %until pres char#bchar #line 1779 "regression-compile-tmp/asm6809.imp" L_023d:; #line 1779 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1779 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_023e; #line 1779 "regression-compile-tmp/asm6809.imp" goto L_023d; #line 1779 "regression-compile-tmp/asm6809.imp" L_023e:; // 1780 i = get term(opd) #line 1780 "regression-compile-tmp/asm6809.imp" I = GETTERM(OPD); // 1781 opd = \opd #line 1781 "regression-compile-tmp/asm6809.imp" *OPD = (~(*OPD)); // 1782 %finish %else %if pres char='(' %start #line 1782 "regression-compile-tmp/asm6809.imp" goto L_023b; #line 1782 "regression-compile-tmp/asm6809.imp" L_023c:; #line 1782 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (40))) goto L_0240; // 1783 next char %until pres char#bchar #line 1783 "regression-compile-tmp/asm6809.imp" L_0241:; #line 1783 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1783 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0242; #line 1783 "regression-compile-tmp/asm6809.imp" goto L_0241; #line 1783 "regression-compile-tmp/asm6809.imp" L_0242:; // 1784 i = get expression(opd) #line 1784 "regression-compile-tmp/asm6809.imp" I = GETEXPRESSION(OPD); // 1785 %if i=0 %start #line 1785 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0244; // 1786 next char %while pres char=bchar #line 1786 "regression-compile-tmp/asm6809.imp" L_0245:; #line 1786 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0246; #line 1786 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1786 "regression-compile-tmp/asm6809.imp" goto L_0245; #line 1786 "regression-compile-tmp/asm6809.imp" L_0246:; // 1787 %if pres char=')' %start #line 1787 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (41))) goto L_0248; // 1788 next char #line 1788 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1789 %else #line 1789 "regression-compile-tmp/asm6809.imp" goto L_0249; #line 1789 "regression-compile-tmp/asm6809.imp" L_0248:; // 1790 i = 1 #line 1790 "regression-compile-tmp/asm6809.imp" I = 1; // 1791 %finish #line 1791 "regression-compile-tmp/asm6809.imp" L_0249:; // 1792 %finish #line 1792 "regression-compile-tmp/asm6809.imp" L_0244:; // 1793 %finish %else %if get name(i)=0 %start #line 1793 "regression-compile-tmp/asm6809.imp" goto L_023b; #line 1793 "regression-compile-tmp/asm6809.imp" L_0240:; #line 1793 "regression-compile-tmp/asm6809.imp" if (((GETNAME(&I)) != (0))) goto L_024a; // 1794 %if pass=1 %or nass(i)=1 %or nass(i)=3 %start #line 1794 "regression-compile-tmp/asm6809.imp" if (((PASS) == (1))) goto L_0243; #line 1794 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) == (1))) goto L_0243; #line 1794 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(I)) - (1))]) != (3))) goto L_024b; #line 1794 "regression-compile-tmp/asm6809.imp" L_0243:; // 1795 opd = nval(i) #line 1795 "regression-compile-tmp/asm6809.imp" *OPD = NVAL[(((int)(I)) - (1))]; // 1796 i = 0 #line 1796 "regression-compile-tmp/asm6809.imp" I = 0; // 1797 %else #line 1797 "regression-compile-tmp/asm6809.imp" goto L_024c; #line 1797 "regression-compile-tmp/asm6809.imp" L_024b:; // 1798 i = 1 #line 1798 "regression-compile-tmp/asm6809.imp" I = 1; // 1799 %finish #line 1799 "regression-compile-tmp/asm6809.imp" L_024c:; // 1800 %else #line 1800 "regression-compile-tmp/asm6809.imp" goto L_023b; #line 1800 "regression-compile-tmp/asm6809.imp" L_024a:; // 1801 i = get const(opd) #line 1801 "regression-compile-tmp/asm6809.imp" I = GETCONST(OPD); // 1802 %finish #line 1802 "regression-compile-tmp/asm6809.imp" L_023b:; // 1803 %result = i #line 1803 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return I; // 1804 %end #line 1804 "regression-compile-tmp/asm6809.imp" } // End of block GETTERM at level 2 // 1805 !----------------------------------------------------------------------- // 1806 %integer %function get expression(%integer %name opd) #line 1806 "regression-compile-tmp/asm6809.imp" int GETEXPRESSION( int /*name*/*OPD ) #line 1806 "regression-compile-tmp/asm6809.imp" { // 1807 %integer sp, prio, i #line 1807 "regression-compile-tmp/asm6809.imp" int SP; #line 1807 "regression-compile-tmp/asm6809.imp" int PRIO; #line 1807 "regression-compile-tmp/asm6809.imp" int I; // 1808 %byte %integer %array op stk, prio stk(1:5) #line 1808 "regression-compile-tmp/asm6809.imp" unsigned char OPSTK[5]; #line 1808 "regression-compile-tmp/asm6809.imp" unsigned char PRIOSTK[5]; // 1809 %integer %array opd stk(0:5) #line 1809 "regression-compile-tmp/asm6809.imp" int OPDSTK[6]; // 1810 // 1811 %result = 1 %unless get term(opd stk(0))=0 #line 1811 "regression-compile-tmp/asm6809.imp" if (((GETTERM(&OPDSTK[0])) == (0))) goto L_024d; #line 1811 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1811 "regression-compile-tmp/asm6809.imp" L_024d:; // 1812 sp = 0 #line 1812 "regression-compile-tmp/asm6809.imp" SP = 0; // 1813 i = 0 #line 1813 "regression-compile-tmp/asm6809.imp" I = 0; // 1814 %cycle #line 1814 "regression-compile-tmp/asm6809.imp" L_024e:; // 1815 next char %while pres char=bchar #line 1815 "regression-compile-tmp/asm6809.imp" L_0251:; #line 1815 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0252; #line 1815 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1815 "regression-compile-tmp/asm6809.imp" goto L_0251; #line 1815 "regression-compile-tmp/asm6809.imp" L_0252:; // 1816 %if pres char='!' %or pres char='\' %start #line 1816 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (33))) goto L_0253; #line 1816 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (92))) goto L_0254; #line 1816 "regression-compile-tmp/asm6809.imp" L_0253:; // 1817 prio = 0 #line 1817 "regression-compile-tmp/asm6809.imp" PRIO = 0; // 1818 %finish %else %if pres char='&' %start #line 1818 "regression-compile-tmp/asm6809.imp" goto L_0255; #line 1818 "regression-compile-tmp/asm6809.imp" L_0254:; #line 1818 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (38))) goto L_0256; // 1819 prio = 1 #line 1819 "regression-compile-tmp/asm6809.imp" PRIO = 1; // 1820 %finish %else %if pres char='+' %or pres char='-' %start #line 1820 "regression-compile-tmp/asm6809.imp" goto L_0255; #line 1820 "regression-compile-tmp/asm6809.imp" L_0256:; #line 1820 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (43))) goto L_0257; #line 1820 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (45))) goto L_0258; #line 1820 "regression-compile-tmp/asm6809.imp" L_0257:; // 1821 prio = 2 #line 1821 "regression-compile-tmp/asm6809.imp" PRIO = 2; // 1822 %finish %else %if pres char='*' %or pres char='/' %or %c #line 1822 "regression-compile-tmp/asm6809.imp" goto L_0255; #line 1822 "regression-compile-tmp/asm6809.imp" L_0258:; #line 1822 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (42))) goto L_0259; #line 1822 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (47))) goto L_0259; #line 1822 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (124))) goto L_025a; #line 1822 "regression-compile-tmp/asm6809.imp" L_0259:; // 1823 pres char='|' %start // 1824 prio = 3 #line 1824 "regression-compile-tmp/asm6809.imp" PRIO = 3; // 1825 %finish %else %if pres char='<' %or pres char='>' %start #line 1825 "regression-compile-tmp/asm6809.imp" goto L_0255; #line 1825 "regression-compile-tmp/asm6809.imp" L_025a:; #line 1825 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (60))) goto L_025b; #line 1825 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (62))) goto L_025c; #line 1825 "regression-compile-tmp/asm6809.imp" L_025b:; // 1826 prio = 4 #line 1826 "regression-compile-tmp/asm6809.imp" PRIO = 4; // 1827 %else #line 1827 "regression-compile-tmp/asm6809.imp" goto L_0255; #line 1827 "regression-compile-tmp/asm6809.imp" L_025c:; // 1828 %exit #line 1828 "regression-compile-tmp/asm6809.imp" goto L_024f; // 1829 %finish #line 1829 "regression-compile-tmp/asm6809.imp" L_0255:; // 1830 %while sp>0 %and prio stk(sp)>=prio %cycle #line 1830 "regression-compile-tmp/asm6809.imp" L_025d:; #line 1830 "regression-compile-tmp/asm6809.imp" if (((SP) <= (0))) goto L_025e; #line 1830 "regression-compile-tmp/asm6809.imp" if (((PRIOSTK[(((int)(SP)) - (1))]) < (PRIO))) goto L_025e; // 1831 evaluate(opd stk(sp-1), opd stk(sp), op stk(sp)) #line 1831 "regression-compile-tmp/asm6809.imp" EVALUATE(&OPDSTK[(((int)(SP)) - (1))], OPDSTK[SP], OPSTK[(((int)(SP)) - (1))]); // 1832 sp = sp-1 #line 1832 "regression-compile-tmp/asm6809.imp" SP = (((int)(SP)) - (1)); // 1833 %repeat #line 1833 "regression-compile-tmp/asm6809.imp" goto L_025d; #line 1833 "regression-compile-tmp/asm6809.imp" L_025e:; // 1834 sp = sp+1 #line 1834 "regression-compile-tmp/asm6809.imp" SP = (((int)(SP)) + (1)); // 1835 op stk(sp) = pres char #line 1835 "regression-compile-tmp/asm6809.imp" OPSTK[(((int)(SP)) - (1))] = PRESCHAR; // 1836 prio stk(sp) = prio #line 1836 "regression-compile-tmp/asm6809.imp" PRIOSTK[(((int)(SP)) - (1))] = PRIO; // 1837 next char %until pres char#bchar #line 1837 "regression-compile-tmp/asm6809.imp" L_0260:; #line 1837 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1837 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0261; #line 1837 "regression-compile-tmp/asm6809.imp" goto L_0260; #line 1837 "regression-compile-tmp/asm6809.imp" L_0261:; // 1838 %unless get term(opd stk(sp))=0 %start #line 1838 "regression-compile-tmp/asm6809.imp" if (((GETTERM(&OPDSTK[SP])) == (0))) goto L_0263; // 1839 sp = sp-1 #line 1839 "regression-compile-tmp/asm6809.imp" SP = (((int)(SP)) - (1)); // 1840 i = 1 #line 1840 "regression-compile-tmp/asm6809.imp" I = 1; // 1841 %exit #line 1841 "regression-compile-tmp/asm6809.imp" goto L_024f; // 1842 %finish #line 1842 "regression-compile-tmp/asm6809.imp" L_0263:; // 1843 %repeat #line 1843 "regression-compile-tmp/asm6809.imp" goto L_024e; #line 1843 "regression-compile-tmp/asm6809.imp" L_024f:; // 1844 evaluate(opd stk(sp-1), opd stk(sp), op stk(sp)) %for sp = sp, -1, 1 #line 1844 "regression-compile-tmp/asm6809.imp" SP = ((SP) + ((int)(1))); if ((((1)-(SP)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle SP = SP, (-1), 1"); L_0264:; if (SP == 1) goto L_0265; SP += (-1); #line 1844 "regression-compile-tmp/asm6809.imp" EVALUATE(&OPDSTK[(((int)(SP)) - (1))], OPDSTK[SP], OPSTK[(((int)(SP)) - (1))]); #line 1844 "regression-compile-tmp/asm6809.imp" goto L_0264; #line 1844 "regression-compile-tmp/asm6809.imp" L_0265:; // 1845 opd = opd stk(0) %if i=0 #line 1845 "regression-compile-tmp/asm6809.imp" if (((I) != (0))) goto L_0267; #line 1845 "regression-compile-tmp/asm6809.imp" *OPD = OPDSTK[0]; #line 1845 "regression-compile-tmp/asm6809.imp" L_0267:; // 1846 %result = i #line 1846 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return I; // 1847 %end #line 1847 "regression-compile-tmp/asm6809.imp" } // End of block GETEXPRESSION at level 2 // 1848 !----------------------------------------------------------------------- // 1849 %integer %function get opd(%integername opd) #line 1849 "regression-compile-tmp/asm6809.imp" int GETOPD( int /*name*/*OPD ) #line 1849 "regression-compile-tmp/asm6809.imp" { // 1850 %integer nid,op,cval #line 1850 "regression-compile-tmp/asm6809.imp" int NID; #line 1850 "regression-compile-tmp/asm6809.imp" int OP; #line 1850 "regression-compile-tmp/asm6809.imp" int CVAL; // 1851 // 1852 %result = get expression(opd) %unless fflag=0 #line 1852 "regression-compile-tmp/asm6809.imp" if (((FFLAG) == (0))) goto L_0268; #line 1852 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return GETEXPRESSION(OPD); #line 1852 "regression-compile-tmp/asm6809.imp" L_0268:; // 1853 opd=0 #line 1853 "regression-compile-tmp/asm6809.imp" *OPD = 0; // 1854 %if pres char='+' %or pres char='-' %start #line 1854 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (43))) goto L_0266; #line 1854 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (45))) goto L_0269; #line 1854 "regression-compile-tmp/asm6809.imp" L_0266:; // 1855 op =pres char #line 1855 "regression-compile-tmp/asm6809.imp" OP = PRESCHAR; // 1856 next char %until pres char#bchar #line 1856 "regression-compile-tmp/asm6809.imp" L_026a:; #line 1856 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1856 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_026b; #line 1856 "regression-compile-tmp/asm6809.imp" goto L_026a; #line 1856 "regression-compile-tmp/asm6809.imp" L_026b:; // 1857 %else #line 1857 "regression-compile-tmp/asm6809.imp" goto L_026d; #line 1857 "regression-compile-tmp/asm6809.imp" L_0269:; // 1858 op = '+' #line 1858 "regression-compile-tmp/asm6809.imp" OP = 43; // 1859 %finish #line 1859 "regression-compile-tmp/asm6809.imp" L_026d:; // 1860 %cycle #line 1860 "regression-compile-tmp/asm6809.imp" L_026e:; // 1861 %if get name(nid)=0 %start #line 1861 "regression-compile-tmp/asm6809.imp" if (((GETNAME(&NID)) != (0))) goto L_0271; // 1862 %result=1 %unless pass=1 %or nass(nid)=1 %or nass(nid)=3 #line 1862 "regression-compile-tmp/asm6809.imp" if (((PASS) == (1))) goto L_0272; #line 1862 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(NID)) - (1))]) == (1))) goto L_0272; #line 1862 "regression-compile-tmp/asm6809.imp" if (((NASS[(((int)(NID)) - (1))]) == (3))) goto L_0272; #line 1862 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1862 "regression-compile-tmp/asm6809.imp" L_0272:; // 1863 cval=nval(nid) #line 1863 "regression-compile-tmp/asm6809.imp" CVAL = NVAL[(((int)(NID)) - (1))]; // 1864 %else #line 1864 "regression-compile-tmp/asm6809.imp" goto L_0273; #line 1864 "regression-compile-tmp/asm6809.imp" L_0271:; // 1865 %result=1 %if get const(cval)#0 #line 1865 "regression-compile-tmp/asm6809.imp" if (((GETCONST(&CVAL)) == (0))) goto L_0274; #line 1865 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1865 "regression-compile-tmp/asm6809.imp" L_0274:; // 1866 %finish #line 1866 "regression-compile-tmp/asm6809.imp" L_0273:; // 1867 evaluate(opd, cval, op) #line 1867 "regression-compile-tmp/asm6809.imp" EVALUATE(OPD, CVAL, OP); // 1868 next char %while pres char=bchar #line 1868 "regression-compile-tmp/asm6809.imp" L_0275:; #line 1868 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_0276; #line 1868 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1868 "regression-compile-tmp/asm6809.imp" goto L_0275; #line 1868 "regression-compile-tmp/asm6809.imp" L_0276:; // 1869 op = pres char #line 1869 "regression-compile-tmp/asm6809.imp" OP = PRESCHAR; // 1870 %result=0 %unless op='+' %or op='-' %or op='*' %or op='/' #line 1870 "regression-compile-tmp/asm6809.imp" if (((OP) == (43))) goto L_0278; #line 1870 "regression-compile-tmp/asm6809.imp" if (((OP) == (45))) goto L_0278; #line 1870 "regression-compile-tmp/asm6809.imp" if (((OP) == (42))) goto L_0278; #line 1870 "regression-compile-tmp/asm6809.imp" if (((OP) == (47))) goto L_0278; #line 1870 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1870 "regression-compile-tmp/asm6809.imp" L_0278:; // 1871 next char %until pres char#bchar #line 1871 "regression-compile-tmp/asm6809.imp" L_0279:; #line 1871 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1871 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_027a; #line 1871 "regression-compile-tmp/asm6809.imp" goto L_0279; #line 1871 "regression-compile-tmp/asm6809.imp" L_027a:; // 1872 %repeat #line 1872 "regression-compile-tmp/asm6809.imp" goto L_026e; // 1873 %end #line 1873 "regression-compile-tmp/asm6809.imp" } // End of block GETOPD at level 2 // 1874 !----------------------------------------------------------------------- // 1875 %integerfn get const(%integername cval) #line 1875 "regression-compile-tmp/asm6809.imp" int GETCONST( int /*name*/*CVAL ) #line 1875 "regression-compile-tmp/asm6809.imp" { // 1876 %integer started, dig val, bin val, oct val, hex val, #line 1876 "regression-compile-tmp/asm6809.imp" int STARTED; #line 1876 "regression-compile-tmp/asm6809.imp" int DIGVAL; #line 1876 "regression-compile-tmp/asm6809.imp" int BINVAL; #line 1876 "regression-compile-tmp/asm6809.imp" int OCTVAL; #line 1876 "regression-compile-tmp/asm6809.imp" int HEXVAL; #line 1876 "regression-compile-tmp/asm6809.imp" int BINPOS; #line 1876 "regression-compile-tmp/asm6809.imp" int OCTPOS; #line 1876 "regression-compile-tmp/asm6809.imp" int DECPOS; // 1877 bin pos, oct pos, dec pos // 1878 // 1879 started=1 #line 1879 "regression-compile-tmp/asm6809.imp" STARTED = 1; // 1880 %if pres char='*' %start #line 1880 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (42))) goto L_026f; // 1881 next char #line 1881 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1882 cval = ca #line 1882 "regression-compile-tmp/asm6809.imp" *CVAL = CA; // 1883 %result = 0 #line 1883 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1884 %finish #line 1884 "regression-compile-tmp/asm6809.imp" L_026f:; // 1885 cval=0 #line 1885 "regression-compile-tmp/asm6809.imp" *CVAL = 0; // 1886 %if '0'<=pres char<='9' %start ;! decimal #line 1886 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_027c; // 1887 bin pos = 0 #line 1887 "regression-compile-tmp/asm6809.imp" BINPOS = 0; // 1888 oct pos = 0 #line 1888 "regression-compile-tmp/asm6809.imp" OCTPOS = 0; // 1889 dec pos = 0 #line 1889 "regression-compile-tmp/asm6809.imp" DECPOS = 0; // 1890 bin val = 0 #line 1890 "regression-compile-tmp/asm6809.imp" BINVAL = 0; // 1891 oct val = 0 #line 1891 "regression-compile-tmp/asm6809.imp" OCTVAL = 0; // 1892 hex val = 0 #line 1892 "regression-compile-tmp/asm6809.imp" HEXVAL = 0; // 1893 %cycle #line 1893 "regression-compile-tmp/asm6809.imp" L_027d:; // 1894 %if bin pos=0 %and pres char='B' %start #line 1894 "regression-compile-tmp/asm6809.imp" if (((BINPOS) != (0))) goto L_0280; #line 1894 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (66))) goto L_0280; // 1895 next char #line 1895 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1896 %if '0'<=pres char<='9' %or 'A'<=pres char<='F' %or %c #line 1896 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (57)))) goto L_01c5; #line 1896 "regression-compile-tmp/asm6809.imp" L_0281:; #line 1896 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (70)))) goto L_01c5; #line 1896 "regression-compile-tmp/asm6809.imp" L_0282:; #line 1896 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (72))) goto L_0283; #line 1896 "regression-compile-tmp/asm6809.imp" L_01c5:; // 1897 pres char='H' %start // 1898 bin pos = 1 #line 1898 "regression-compile-tmp/asm6809.imp" BINPOS = 1; // 1899 oct pos = 1 #line 1899 "regression-compile-tmp/asm6809.imp" OCTPOS = 1; // 1900 dec pos = 1 #line 1900 "regression-compile-tmp/asm6809.imp" DECPOS = 1; // 1901 hex val = (hex val<<4)+11 #line 1901 "regression-compile-tmp/asm6809.imp" HEXVAL = (((int)(((HEXVAL) << (4)))) + (11)); // 1902 %else #line 1902 "regression-compile-tmp/asm6809.imp" goto L_0284; #line 1902 "regression-compile-tmp/asm6809.imp" L_0283:; // 1903 cval = bin val #line 1903 "regression-compile-tmp/asm6809.imp" *CVAL = BINVAL; // 1904 %result = 0 #line 1904 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1905 %finish #line 1905 "regression-compile-tmp/asm6809.imp" L_0284:; // 1906 %finish #line 1906 "regression-compile-tmp/asm6809.imp" L_0280:; // 1907 %if oct pos=0 %and (pres char='O' %or pres char='Q') %start #line 1907 "regression-compile-tmp/asm6809.imp" if (((OCTPOS) != (0))) goto L_0285; #line 1907 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (79))) goto L_0247; #line 1907 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (81))) goto L_0285; #line 1907 "regression-compile-tmp/asm6809.imp" L_0247:; // 1908 cval = oct val #line 1908 "regression-compile-tmp/asm6809.imp" *CVAL = OCTVAL; // 1909 next char #line 1909 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1910 %result = 0 #line 1910 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1911 %finish %else %if pres char='H' %start #line 1911 "regression-compile-tmp/asm6809.imp" L_0285:; #line 1911 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (72))) goto L_0286; // 1912 cval = hex val #line 1912 "regression-compile-tmp/asm6809.imp" *CVAL = HEXVAL; // 1913 next char #line 1913 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1914 %result = 0 #line 1914 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1915 %finish %else %if 'A'<=pres char<='F' %start #line 1915 "regression-compile-tmp/asm6809.imp" L_0286:; #line 1915 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) > (70)))) goto L_0287; // 1916 dig val = pres char-'A'+10 #line 1916 "regression-compile-tmp/asm6809.imp" DIGVAL = (((int)((((int)(PRESCHAR)) - (65)))) + (10)); // 1917 %finish %else %if '0'<=pres char<='9' %start #line 1917 "regression-compile-tmp/asm6809.imp" goto L_0288; #line 1917 "regression-compile-tmp/asm6809.imp" L_0287:; #line 1917 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0289; // 1918 dig val = pres char-'0' #line 1918 "regression-compile-tmp/asm6809.imp" DIGVAL = (((int)(PRESCHAR)) - (48)); // 1919 %else #line 1919 "regression-compile-tmp/asm6809.imp" goto L_0288; #line 1919 "regression-compile-tmp/asm6809.imp" L_0289:; // 1920 %result = dec pos #line 1920 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return DECPOS; // 1921 %finish #line 1921 "regression-compile-tmp/asm6809.imp" L_0288:; // 1922 bin pos = 1 %if dig val>1 #line 1922 "regression-compile-tmp/asm6809.imp" if (((DIGVAL) <= (1))) goto L_028a; #line 1922 "regression-compile-tmp/asm6809.imp" BINPOS = 1; #line 1922 "regression-compile-tmp/asm6809.imp" L_028a:; // 1923 oct pos = 1 %if dig val>7 #line 1923 "regression-compile-tmp/asm6809.imp" if (((DIGVAL) <= (7))) goto L_028b; #line 1923 "regression-compile-tmp/asm6809.imp" OCTPOS = 1; #line 1923 "regression-compile-tmp/asm6809.imp" L_028b:; // 1924 dec pos = 1 %if dig val>9 #line 1924 "regression-compile-tmp/asm6809.imp" if (((DIGVAL) <= (9))) goto L_028c; #line 1924 "regression-compile-tmp/asm6809.imp" DECPOS = 1; #line 1924 "regression-compile-tmp/asm6809.imp" L_028c:; // 1925 bin val = (bin val<<1)+dig val #line 1925 "regression-compile-tmp/asm6809.imp" BINVAL = (((int)(((BINVAL) << (1)))) + (DIGVAL)); // 1926 oct val = (oct val<<3)+dig val #line 1926 "regression-compile-tmp/asm6809.imp" OCTVAL = (((int)(((OCTVAL) << (3)))) + (DIGVAL)); // 1927 cval = cval*10+dig val #line 1927 "regression-compile-tmp/asm6809.imp" *CVAL = (((int)(((*(int *)(CVAL)) * (10)))) + (DIGVAL)); // 1928 hex val = (hex val<<4)+dig val #line 1928 "regression-compile-tmp/asm6809.imp" HEXVAL = (((int)(((HEXVAL) << (4)))) + (DIGVAL)); // 1929 next char #line 1929 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1930 %repeat #line 1930 "regression-compile-tmp/asm6809.imp" goto L_027d; // 1931 %finish #line 1931 "regression-compile-tmp/asm6809.imp" L_027c:; // 1932 %if pres char='$' %start ;! hex #line 1932 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (36))) goto L_028d; // 1933 %cycle #line 1933 "regression-compile-tmp/asm6809.imp" L_028e:; // 1934 next char #line 1934 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1935 %if '0'<=pres char<='9' %start #line 1935 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) > (57)))) goto L_0291; // 1936 cval = cval<<4!(pres char-'0') #line 1936 "regression-compile-tmp/asm6809.imp" *CVAL = ((((*CVAL) << (4))) | ((((int)(PRESCHAR)) - (48)))); // 1937 %finish %else %if 'A'<=pres char<='F' %start #line 1937 "regression-compile-tmp/asm6809.imp" goto L_0292; #line 1937 "regression-compile-tmp/asm6809.imp" L_0291:; #line 1937 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) > (70)))) goto L_0293; // 1938 cval = cval<<4!(pres char-'A'+10) #line 1938 "regression-compile-tmp/asm6809.imp" *CVAL = ((((*CVAL) << (4))) | ((((int)((((int)(PRESCHAR)) - (65)))) + (10)))); // 1939 %else #line 1939 "regression-compile-tmp/asm6809.imp" goto L_0292; #line 1939 "regression-compile-tmp/asm6809.imp" L_0293:; // 1940 %result = started #line 1940 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return STARTED; // 1941 %finish #line 1941 "regression-compile-tmp/asm6809.imp" L_0292:; // 1942 started = 0 #line 1942 "regression-compile-tmp/asm6809.imp" STARTED = 0; // 1943 %repeat #line 1943 "regression-compile-tmp/asm6809.imp" goto L_028e; // 1944 %finish #line 1944 "regression-compile-tmp/asm6809.imp" L_028d:; // 1945 %if pres char='@' %start ;! octal #line 1945 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (64))) goto L_0294; // 1946 %cycle #line 1946 "regression-compile-tmp/asm6809.imp" L_0295:; // 1947 next char #line 1947 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1948 %result = started %unless '0'<=pres char<='7' #line 1948 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (55)))) goto L_0299; #line 1948 "regression-compile-tmp/asm6809.imp" L_0298:; #line 1948 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return STARTED; #line 1948 "regression-compile-tmp/asm6809.imp" L_0299:; // 1949 cval = (cval<<3)!(pres char-'0') #line 1949 "regression-compile-tmp/asm6809.imp" *CVAL = ((((*CVAL) << (3))) | ((((int)(PRESCHAR)) - (48)))); // 1950 started = 0 #line 1950 "regression-compile-tmp/asm6809.imp" STARTED = 0; // 1951 %repeat #line 1951 "regression-compile-tmp/asm6809.imp" goto L_0295; // 1952 %finish #line 1952 "regression-compile-tmp/asm6809.imp" L_0294:; // 1953 %if pres char='%' %start #line 1953 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (37))) goto L_029a; // 1954 %cycle #line 1954 "regression-compile-tmp/asm6809.imp" L_029b:; // 1955 next char #line 1955 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1956 %result = started %unless '0'<=pres char<='1' #line 1956 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (49)))) goto L_029f; #line 1956 "regression-compile-tmp/asm6809.imp" L_029e:; #line 1956 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return STARTED; #line 1956 "regression-compile-tmp/asm6809.imp" L_029f:; // 1957 cval = (cval<<1)!(pres char-'0') #line 1957 "regression-compile-tmp/asm6809.imp" *CVAL = ((((*CVAL) << (1))) | ((((int)(PRESCHAR)) - (48)))); // 1958 started = 0 #line 1958 "regression-compile-tmp/asm6809.imp" STARTED = 0; // 1959 %repeat #line 1959 "regression-compile-tmp/asm6809.imp" goto L_029b; // 1960 %finish #line 1960 "regression-compile-tmp/asm6809.imp" L_029a:; // 1961 %if pres char='''' %start #line 1961 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (39))) goto L_02a0; // 1962 next char #line 1962 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1963 %result=1 %if lp=max line+1 #line 1963 "regression-compile-tmp/asm6809.imp" if (((LP) != (513))) goto L_029c; #line 1963 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 1963 "regression-compile-tmp/asm6809.imp" L_029c:; // 1964 cval=line(lp) #line 1964 "regression-compile-tmp/asm6809.imp" *CVAL = LINE[(((int)(LP)) - (1))]; // 1965 next char #line 1965 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 1966 %result=0 #line 1966 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1967 %finish #line 1967 "regression-compile-tmp/asm6809.imp" L_02a0:; // 1968 %result=1 #line 1968 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1969 %end #line 1969 "regression-compile-tmp/asm6809.imp" } // End of block GETCONST at level 2 // 1970 !----------------------------------------------------------------------- // 1971 %routine analise operand(%integer eca, #line 1971 "regression-compile-tmp/asm6809.imp" void ANALISEOPERAND( int ECA, int /*name*/*POST, int /*name*/*OPD, int /*name*/*TYPE, int /*name*/*CYCLES ) #line 1971 "regression-compile-tmp/asm6809.imp" { // 1972 %integer %name post, opd, type, cycles) // 1973 %integer indirect, i #line 1973 "regression-compile-tmp/asm6809.imp" int INDIRECT; #line 1973 "regression-compile-tmp/asm6809.imp" int I; // 1974 // 1975 type = 5 #line 1975 "regression-compile-tmp/asm6809.imp" *TYPE = 5; // 1976 %if pres char='[' %start #line 1976 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (91))) goto L_02a1; // 1977 next char %until pres char#bchar #line 1977 "regression-compile-tmp/asm6809.imp" L_02a2:; #line 1977 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 1977 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02a3; #line 1977 "regression-compile-tmp/asm6809.imp" goto L_02a2; #line 1977 "regression-compile-tmp/asm6809.imp" L_02a3:; // 1978 indirect = 1 #line 1978 "regression-compile-tmp/asm6809.imp" INDIRECT = 1; // 1979 %else #line 1979 "regression-compile-tmp/asm6809.imp" goto L_02a5; #line 1979 "regression-compile-tmp/asm6809.imp" L_02a1:; // 1980 indirect = 0 #line 1980 "regression-compile-tmp/asm6809.imp" INDIRECT = 0; // 1981 %finish #line 1981 "regression-compile-tmp/asm6809.imp" L_02a5:; // 1982 %if more items %start #line 1982 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_02a6; // 1983 %if pc %start #line 1983 "regression-compile-tmp/asm6809.imp" if (!(PC())) goto L_02a7; // 1984 opd = 0 #line 1984 "regression-compile-tmp/asm6809.imp" *OPD = 0; // 1985 post = 16_8C #line 1985 "regression-compile-tmp/asm6809.imp" *POST = 140; // 1986 type = 6 #line 1986 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 1987 cycles = cycles+3 #line 1987 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 1988 %finish %else %if pc relative %start #line 1988 "regression-compile-tmp/asm6809.imp" goto L_02a8; #line 1988 "regression-compile-tmp/asm6809.imp" L_02a7:; #line 1988 "regression-compile-tmp/asm6809.imp" if (!(PCRELATIVE())) goto L_02a9; // 1989 opd = -2-eca #line 1989 "regression-compile-tmp/asm6809.imp" *OPD = (((int)((-2))) - (ECA)); // 1990 %if pass<3 %or -128<=opd<=127 %start #line 1990 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_02aa; #line 1990 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (*OPD))) || (((*OPD) > (127)))) goto L_02ab; #line 1990 "regression-compile-tmp/asm6809.imp" L_02aa:; // 1991 post = 16_8C #line 1991 "regression-compile-tmp/asm6809.imp" *POST = 140; // 1992 type = 6 #line 1992 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 1993 cycles = cycles+3 #line 1993 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 1994 %else #line 1994 "regression-compile-tmp/asm6809.imp" goto L_02ac; #line 1994 "regression-compile-tmp/asm6809.imp" L_02ab:; // 1995 opd = opd-1 #line 1995 "regression-compile-tmp/asm6809.imp" *OPD = ((*(int *)(OPD)) - (1)); // 1996 post = 16_8D #line 1996 "regression-compile-tmp/asm6809.imp" *POST = 141; // 1997 type = 7 #line 1997 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 1998 cycles = cycles+7 #line 1998 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (7)); // 1999 %finish #line 1999 "regression-compile-tmp/asm6809.imp" L_02ac:; // 2000 %finish %else %unless auto indexed(post, cycles) %start #line 2000 "regression-compile-tmp/asm6809.imp" goto L_02a8; #line 2000 "regression-compile-tmp/asm6809.imp" L_02a9:; #line 2000 "regression-compile-tmp/asm6809.imp" if (AUTOINDEXED(POST, CYCLES)) goto L_02ad; // 2001 type = 0 #line 2001 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2002 %finish #line 2002 "regression-compile-tmp/asm6809.imp" L_02ad:; #line 2002 "regression-compile-tmp/asm6809.imp" L_02a8:; // 2003 %finish %else %if pc %start #line 2003 "regression-compile-tmp/asm6809.imp" goto L_02ae; #line 2003 "regression-compile-tmp/asm6809.imp" L_02a6:; #line 2003 "regression-compile-tmp/asm6809.imp" if (!(PC())) goto L_02af; // 2004 opd = 0 #line 2004 "regression-compile-tmp/asm6809.imp" *OPD = 0; // 2005 post = 16_8C #line 2005 "regression-compile-tmp/asm6809.imp" *POST = 140; // 2006 type = 6 #line 2006 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 2007 cycles = cycles+3 #line 2007 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2008 %finish %else %if pc relative %start #line 2008 "regression-compile-tmp/asm6809.imp" goto L_02ae; #line 2008 "regression-compile-tmp/asm6809.imp" L_02af:; #line 2008 "regression-compile-tmp/asm6809.imp" if (!(PCRELATIVE())) goto L_02b0; // 2009 opd = -2-eca #line 2009 "regression-compile-tmp/asm6809.imp" *OPD = (((int)((-2))) - (ECA)); // 2010 %if pass<3 %or -128<=opd<=127 %start #line 2010 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_02a4; #line 2010 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (*OPD))) || (((*OPD) > (127)))) goto L_02b1; #line 2010 "regression-compile-tmp/asm6809.imp" L_02a4:; // 2011 post = 16_8C #line 2011 "regression-compile-tmp/asm6809.imp" *POST = 140; // 2012 type = 6 #line 2012 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 2013 cycles = cycles+3 #line 2013 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2014 %else #line 2014 "regression-compile-tmp/asm6809.imp" goto L_02b2; #line 2014 "regression-compile-tmp/asm6809.imp" L_02b1:; // 2015 opd = opd-1 #line 2015 "regression-compile-tmp/asm6809.imp" *OPD = ((*(int *)(OPD)) - (1)); // 2016 post = 16_8D #line 2016 "regression-compile-tmp/asm6809.imp" *POST = 141; // 2017 type = 7 #line 2017 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 2018 cycles = cycles+7 #line 2018 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (7)); // 2019 %finish #line 2019 "regression-compile-tmp/asm6809.imp" L_02b2:; // 2020 %finish %else %unless auto indexed(post, cycles) %start #line 2020 "regression-compile-tmp/asm6809.imp" goto L_02ae; #line 2020 "regression-compile-tmp/asm6809.imp" L_02b0:; #line 2020 "regression-compile-tmp/asm6809.imp" if (AUTOINDEXED(POST, CYCLES)) goto L_02b3; // 2021 %if acc('A') %start #line 2021 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_02b4; // 2022 type = 1 %and -> check indirect %unless more items #line 2022 "regression-compile-tmp/asm6809.imp" if (MOREITEMS()) goto L_02b5; #line 2022 "regression-compile-tmp/asm6809.imp" *TYPE = 1; #line 2022 "regression-compile-tmp/asm6809.imp" goto U_1007; #line 2022 "regression-compile-tmp/asm6809.imp" L_02b5:; // 2023 post = 16_86 #line 2023 "regression-compile-tmp/asm6809.imp" *POST = 134; // 2024 cycles = cycles+3 #line 2024 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2025 %finish %else %if acc('B') %start #line 2025 "regression-compile-tmp/asm6809.imp" goto L_02b6; #line 2025 "regression-compile-tmp/asm6809.imp" L_02b4:; #line 2025 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_02b7; // 2026 type = 2 %and -> check indirect %unless more items #line 2026 "regression-compile-tmp/asm6809.imp" if (MOREITEMS()) goto L_02b8; #line 2026 "regression-compile-tmp/asm6809.imp" *TYPE = 2; #line 2026 "regression-compile-tmp/asm6809.imp" goto U_1007; #line 2026 "regression-compile-tmp/asm6809.imp" L_02b8:; // 2027 post = 16_85 #line 2027 "regression-compile-tmp/asm6809.imp" *POST = 133; // 2028 cycles = cycles+3 #line 2028 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2029 %finish %else %if acc('D') %start #line 2029 "regression-compile-tmp/asm6809.imp" goto L_02b6; #line 2029 "regression-compile-tmp/asm6809.imp" L_02b7:; #line 2029 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_02b9; // 2030 type = 0 %and -> check indirect %unless more items #line 2030 "regression-compile-tmp/asm6809.imp" if (MOREITEMS()) goto L_02ba; #line 2030 "regression-compile-tmp/asm6809.imp" *TYPE = 0; #line 2030 "regression-compile-tmp/asm6809.imp" goto U_1007; #line 2030 "regression-compile-tmp/asm6809.imp" L_02ba:; // 2031 post = 16_8B #line 2031 "regression-compile-tmp/asm6809.imp" *POST = 139; // 2032 cycles = cycles+6 #line 2032 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (6)); // 2033 %finish %else %if pres char='<' %start #line 2033 "regression-compile-tmp/asm6809.imp" goto L_02b6; #line 2033 "regression-compile-tmp/asm6809.imp" L_02b9:; #line 2033 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (60))) goto L_02bb; // 2034 next char %until pres char#b char #line 2034 "regression-compile-tmp/asm6809.imp" L_02bc:; #line 2034 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2034 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02bd; #line 2034 "regression-compile-tmp/asm6809.imp" goto L_02bc; #line 2034 "regression-compile-tmp/asm6809.imp" L_02bd:; // 2035 %if get opd(opd)=0 %start #line 2035 "regression-compile-tmp/asm6809.imp" if (((GETOPD(OPD)) != (0))) goto L_02bf; // 2036 type = 4 #line 2036 "regression-compile-tmp/asm6809.imp" *TYPE = 4; // 2037 %else #line 2037 "regression-compile-tmp/asm6809.imp" goto L_02c0; #line 2037 "regression-compile-tmp/asm6809.imp" L_02bf:; // 2038 type = 0 #line 2038 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2039 %finish #line 2039 "regression-compile-tmp/asm6809.imp" L_02c0:; // 2040 cycles = cycles+3 #line 2040 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2041 -> check indirect #line 2041 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2042 %finish %else %if pres char='>' %start #line 2042 "regression-compile-tmp/asm6809.imp" L_02bb:; #line 2042 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (62))) goto L_02c1; // 2043 next char %until pres char#b char #line 2043 "regression-compile-tmp/asm6809.imp" L_02c2:; #line 2043 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2043 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02c3; #line 2043 "regression-compile-tmp/asm6809.imp" goto L_02c2; #line 2043 "regression-compile-tmp/asm6809.imp" L_02c3:; // 2044 %if get opd(opd)=0 %start #line 2044 "regression-compile-tmp/asm6809.imp" if (((GETOPD(OPD)) != (0))) goto L_02c5; // 2045 %if indirect=0 %start #line 2045 "regression-compile-tmp/asm6809.imp" if (((INDIRECT) != (0))) goto L_02c6; // 2046 type = 3 #line 2046 "regression-compile-tmp/asm6809.imp" *TYPE = 3; // 2047 %else #line 2047 "regression-compile-tmp/asm6809.imp" goto L_02c7; #line 2047 "regression-compile-tmp/asm6809.imp" L_02c6:; // 2048 type = 4 #line 2048 "regression-compile-tmp/asm6809.imp" *TYPE = 4; // 2049 cycles = cycles+1 #line 2049 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (1)); // 2050 %finish #line 2050 "regression-compile-tmp/asm6809.imp" L_02c7:; // 2051 %else #line 2051 "regression-compile-tmp/asm6809.imp" goto L_02c8; #line 2051 "regression-compile-tmp/asm6809.imp" L_02c5:; // 2052 type = 0 #line 2052 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2053 %finish #line 2053 "regression-compile-tmp/asm6809.imp" L_02c8:; // 2054 cycles = cycles+2 #line 2054 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (2)); // 2055 -> check indirect #line 2055 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2056 %else #line 2056 "regression-compile-tmp/asm6809.imp" L_02c1:; // 2057 %if get opd(opd)=0 %start #line 2057 "regression-compile-tmp/asm6809.imp" if (((GETOPD(OPD)) != (0))) goto L_02c9; // 2058 %if more items %start #line 2058 "regression-compile-tmp/asm6809.imp" if (!(MOREITEMS())) goto L_02ca; // 2059 %if pc %start #line 2059 "regression-compile-tmp/asm6809.imp" if (!(PC())) goto L_02cb; // 2060 %if pass<3 %or -128<=opd<=127 %start #line 2060 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_0188; #line 2060 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (*OPD))) || (((*OPD) > (127)))) goto L_02cc; #line 2060 "regression-compile-tmp/asm6809.imp" L_0188:; // 2061 post = 16_8C #line 2061 "regression-compile-tmp/asm6809.imp" *POST = 140; // 2062 type = 6 #line 2062 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 2063 cycles = cycles+3 #line 2063 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2064 %else #line 2064 "regression-compile-tmp/asm6809.imp" goto L_02cd; #line 2064 "regression-compile-tmp/asm6809.imp" L_02cc:; // 2065 post = 16_8D #line 2065 "regression-compile-tmp/asm6809.imp" *POST = 141; // 2066 type = 7 #line 2066 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 2067 cycles = cycles+7 #line 2067 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (7)); // 2068 %finish #line 2068 "regression-compile-tmp/asm6809.imp" L_02cd:; // 2069 -> check indirect #line 2069 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2070 %finish %else %if pc relative %start #line 2070 "regression-compile-tmp/asm6809.imp" L_02cb:; #line 2070 "regression-compile-tmp/asm6809.imp" if (!(PCRELATIVE())) goto L_02ce; // 2071 opd = opd-eca-2 #line 2071 "regression-compile-tmp/asm6809.imp" *OPD = (((int)(((*(int *)(OPD)) - (ECA)))) - (2)); // 2072 %if pass<3 %or -128<=opd<=127 %start #line 2072 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_02cf; #line 2072 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (*OPD))) || (((*OPD) > (127)))) goto L_02d0; #line 2072 "regression-compile-tmp/asm6809.imp" L_02cf:; // 2073 post = 16_8C #line 2073 "regression-compile-tmp/asm6809.imp" *POST = 140; // 2074 type = 6 #line 2074 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 2075 cycles = cycles+3 #line 2075 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2076 %else #line 2076 "regression-compile-tmp/asm6809.imp" goto L_02d1; #line 2076 "regression-compile-tmp/asm6809.imp" L_02d0:; // 2077 opd = opd-1 #line 2077 "regression-compile-tmp/asm6809.imp" *OPD = ((*(int *)(OPD)) - (1)); // 2078 post = 16_8D #line 2078 "regression-compile-tmp/asm6809.imp" *POST = 141; // 2079 type = 7 #line 2079 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 2080 cycles = cycles+7 #line 2080 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (7)); // 2081 %finish #line 2081 "regression-compile-tmp/asm6809.imp" L_02d1:; // 2082 ->check indirect #line 2082 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2083 %finish %else %if pass<3 %or opd=0 %start #line 2083 "regression-compile-tmp/asm6809.imp" L_02ce:; #line 2083 "regression-compile-tmp/asm6809.imp" if (((PASS) < (3))) goto L_0185; #line 2083 "regression-compile-tmp/asm6809.imp" if (((*OPD) != (0))) goto L_02d2; #line 2083 "regression-compile-tmp/asm6809.imp" L_0185:; // 2084 type = 0 %unless auto indexed(post, cycles) #line 2084 "regression-compile-tmp/asm6809.imp" if (AUTOINDEXED(POST, CYCLES)) goto L_02d3; #line 2084 "regression-compile-tmp/asm6809.imp" *TYPE = 0; #line 2084 "regression-compile-tmp/asm6809.imp" L_02d3:; // 2085 -> check indirect #line 2085 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2086 %finish %else %if indirect=0 %and -16<=opd<=15 %start #line 2086 "regression-compile-tmp/asm6809.imp" L_02d2:; #line 2086 "regression-compile-tmp/asm6809.imp" if (((INDIRECT) != (0))) goto L_02d4; #line 2086 "regression-compile-tmp/asm6809.imp" if (((((-16)) > (*OPD))) || (((*OPD) > (15)))) goto L_02d4; // 2087 post = opd&31 #line 2087 "regression-compile-tmp/asm6809.imp" *POST = ((*OPD) & (31)); // 2088 cycles = cycles+3 #line 2088 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2089 %finish %else %if -128<=opd<=127 %start #line 2089 "regression-compile-tmp/asm6809.imp" goto L_02d5; #line 2089 "regression-compile-tmp/asm6809.imp" L_02d4:; #line 2089 "regression-compile-tmp/asm6809.imp" if (((((-128)) > (*OPD))) || (((*OPD) > (127)))) goto L_02d6; // 2090 post = 16_88 #line 2090 "regression-compile-tmp/asm6809.imp" *POST = 136; // 2091 type = 6 #line 2091 "regression-compile-tmp/asm6809.imp" *TYPE = 6; // 2092 cycles = cycles+3 #line 2092 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2093 %else #line 2093 "regression-compile-tmp/asm6809.imp" goto L_02d5; #line 2093 "regression-compile-tmp/asm6809.imp" L_02d6:; // 2094 post = 16_89 #line 2094 "regression-compile-tmp/asm6809.imp" *POST = 137; // 2095 type = 7 #line 2095 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 2096 cycles = cycles+6 #line 2096 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (6)); // 2097 %finish #line 2097 "regression-compile-tmp/asm6809.imp" L_02d5:; // 2098 %else #line 2098 "regression-compile-tmp/asm6809.imp" goto L_02d7; #line 2098 "regression-compile-tmp/asm6809.imp" L_02ca:; // 2099 %if indirect=0 %and 0<=opd-dp contents<=255 %start #line 2099 "regression-compile-tmp/asm6809.imp" if (((INDIRECT) != (0))) goto L_02d8; #line 2099 "regression-compile-tmp/asm6809.imp" if ((((0) > (((*(int *)(OPD)) - (DPCONTENTS))))) || (((((*(int *)(OPD)) - (DPCONTENTS))) > (255)))) goto L_02d8; // 2100 type = 3 #line 2100 "regression-compile-tmp/asm6809.imp" *TYPE = 3; // 2101 cycles = cycles+2 #line 2101 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (2)); // 2102 %else #line 2102 "regression-compile-tmp/asm6809.imp" goto L_02d9; #line 2102 "regression-compile-tmp/asm6809.imp" L_02d8:; // 2103 type = 4 #line 2103 "regression-compile-tmp/asm6809.imp" *TYPE = 4; // 2104 cycles = cycles+3 #line 2104 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2105 %finish #line 2105 "regression-compile-tmp/asm6809.imp" L_02d9:; // 2106 -> check indirect #line 2106 "regression-compile-tmp/asm6809.imp" goto U_1007; // 2107 %finish #line 2107 "regression-compile-tmp/asm6809.imp" L_02d7:; // 2108 %else #line 2108 "regression-compile-tmp/asm6809.imp" goto L_02da; #line 2108 "regression-compile-tmp/asm6809.imp" L_02c9:; // 2109 type = 0 #line 2109 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2110 %finish #line 2110 "regression-compile-tmp/asm6809.imp" L_02da:; // 2111 %finish #line 2111 "regression-compile-tmp/asm6809.imp" L_02b6:; // 2112 %if index reg(i) %start #line 2112 "regression-compile-tmp/asm6809.imp" if (!(INDEXREG(&I))) goto L_02db; // 2113 post = post!(i<<5) #line 2113 "regression-compile-tmp/asm6809.imp" *POST = ((*POST) | (((I) << (5)))); // 2114 %else #line 2114 "regression-compile-tmp/asm6809.imp" goto L_02dc; #line 2114 "regression-compile-tmp/asm6809.imp" L_02db:; // 2115 type = 0 #line 2115 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2116 %finish #line 2116 "regression-compile-tmp/asm6809.imp" L_02dc:; // 2117 %finish #line 2117 "regression-compile-tmp/asm6809.imp" L_02b3:; #line 2117 "regression-compile-tmp/asm6809.imp" L_02ae:; // 2118 check indirect: #line 2118 "regression-compile-tmp/asm6809.imp" U_1007:; // 2119 %unless indirect=0 %start #line 2119 "regression-compile-tmp/asm6809.imp" if (((INDIRECT) == (0))) goto L_02dd; // 2120 type = 0 %if 1<=type<=2 %or %c #line 2120 "regression-compile-tmp/asm6809.imp" if ((((1) > (*TYPE))) || (((*TYPE) <= (2)))) goto L_02df; #line 2120 "regression-compile-tmp/asm6809.imp" L_02de:; #line 2120 "regression-compile-tmp/asm6809.imp" if (((*TYPE) != (5))) goto L_02e0; #line 2120 "regression-compile-tmp/asm6809.imp" if (((*POST) == (128))) goto L_02df; #line 2120 "regression-compile-tmp/asm6809.imp" if (((*POST) != (130))) goto L_02e0; #line 2120 "regression-compile-tmp/asm6809.imp" L_02df:; #line 2120 "regression-compile-tmp/asm6809.imp" *TYPE = 0; #line 2120 "regression-compile-tmp/asm6809.imp" L_02e0:; // 2121 (type=5 %and (post=16_80 %or post=16_82)) // 2122 next char %while pres char=b char #line 2122 "regression-compile-tmp/asm6809.imp" L_02e1:; #line 2122 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02e2; #line 2122 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2122 "regression-compile-tmp/asm6809.imp" goto L_02e1; #line 2122 "regression-compile-tmp/asm6809.imp" L_02e2:; // 2123 %if pres char=']' %start #line 2123 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (93))) goto L_02e4; // 2124 next char #line 2124 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2125 cycles = cycles+3 #line 2125 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (3)); // 2126 %if 3<=type<=4 %start #line 2126 "regression-compile-tmp/asm6809.imp" if ((((3) > (*TYPE))) || (((*TYPE) > (4)))) goto L_02e5; // 2127 post = 16_9F #line 2127 "regression-compile-tmp/asm6809.imp" *POST = 159; // 2128 cycles = cycles+4-type #line 2128 "regression-compile-tmp/asm6809.imp" *CYCLES = (((int)(((*(int *)(CYCLES)) + (4)))) - (*TYPE)); // 2129 type = 7 #line 2129 "regression-compile-tmp/asm6809.imp" *TYPE = 7; // 2130 %else #line 2130 "regression-compile-tmp/asm6809.imp" goto L_02e6; #line 2130 "regression-compile-tmp/asm6809.imp" L_02e5:; // 2131 post = post!16_10 #line 2131 "regression-compile-tmp/asm6809.imp" *POST = ((*POST) | (16)); // 2132 %finish #line 2132 "regression-compile-tmp/asm6809.imp" L_02e6:; // 2133 %else #line 2133 "regression-compile-tmp/asm6809.imp" goto L_02e7; #line 2133 "regression-compile-tmp/asm6809.imp" L_02e4:; // 2134 type = 0 #line 2134 "regression-compile-tmp/asm6809.imp" *TYPE = 0; // 2135 %finish #line 2135 "regression-compile-tmp/asm6809.imp" L_02e7:; // 2136 %finish #line 2136 "regression-compile-tmp/asm6809.imp" L_02dd:; // 2137 %end #line 2137 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block ANALISEOPERAND at level 2 // 2138 !----------------------------------------------------------------------- // 2139 %predicate auto indexed(%integer %name post, cycles) #line 2139 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ AUTOINDEXED( int /*name*/*POST, int /*name*/*CYCLES ) #line 2139 "regression-compile-tmp/asm6809.imp" { // 2140 %integer old lp, reg #line 2140 "regression-compile-tmp/asm6809.imp" int OLDLP; #line 2140 "regression-compile-tmp/asm6809.imp" int REG; // 2141 // 2142 old lp = lp #line 2142 "regression-compile-tmp/asm6809.imp" OLDLP = LP; // 2143 %if pres char='-' %start #line 2143 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (45))) goto L_02e8; // 2144 next char %until pres char#b char #line 2144 "regression-compile-tmp/asm6809.imp" L_02e9:; #line 2144 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2144 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02ea; #line 2144 "regression-compile-tmp/asm6809.imp" goto L_02e9; #line 2144 "regression-compile-tmp/asm6809.imp" L_02ea:; // 2145 %if pres char='-' %start #line 2145 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (45))) goto L_02ec; // 2146 next char %until pres char#bchar #line 2146 "regression-compile-tmp/asm6809.imp" L_02ed:; #line 2146 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2146 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02ee; #line 2146 "regression-compile-tmp/asm6809.imp" goto L_02ed; #line 2146 "regression-compile-tmp/asm6809.imp" L_02ee:; // 2147 post = 16_83 #line 2147 "regression-compile-tmp/asm6809.imp" *POST = 131; // 2148 %else #line 2148 "regression-compile-tmp/asm6809.imp" goto L_02f0; #line 2148 "regression-compile-tmp/asm6809.imp" L_02ec:; // 2149 post = 16_82 #line 2149 "regression-compile-tmp/asm6809.imp" *POST = 130; // 2150 %finish #line 2150 "regression-compile-tmp/asm6809.imp" L_02f0:; // 2151 %else #line 2151 "regression-compile-tmp/asm6809.imp" goto L_02f1; #line 2151 "regression-compile-tmp/asm6809.imp" L_02e8:; // 2152 post = 16_84 #line 2152 "regression-compile-tmp/asm6809.imp" *POST = 132; // 2153 %finish #line 2153 "regression-compile-tmp/asm6809.imp" L_02f1:; // 2154 %if index reg(reg) %start #line 2154 "regression-compile-tmp/asm6809.imp" if (!(INDEXREG(®))) goto L_02f2; // 2155 %if post = 16_84 %start #line 2155 "regression-compile-tmp/asm6809.imp" if (((*POST) != (132))) goto L_02f3; // 2156 next char %while pres char=b char #line 2156 "regression-compile-tmp/asm6809.imp" L_02f4:; #line 2156 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02f5; #line 2156 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2156 "regression-compile-tmp/asm6809.imp" goto L_02f4; #line 2156 "regression-compile-tmp/asm6809.imp" L_02f5:; // 2157 %if pres char='+' %start #line 2157 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (43))) goto L_02f7; // 2158 next char %until pres char#b char #line 2158 "regression-compile-tmp/asm6809.imp" L_02f8:; #line 2158 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); #line 2158 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (BCHAR))) goto L_02f9; #line 2158 "regression-compile-tmp/asm6809.imp" goto L_02f8; #line 2158 "regression-compile-tmp/asm6809.imp" L_02f9:; // 2159 %if pres char='+' %start #line 2159 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (43))) goto L_02fb; // 2160 next char #line 2160 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2161 post = 16_81 #line 2161 "regression-compile-tmp/asm6809.imp" *POST = 129; // 2162 cycles = cycles+5 #line 2162 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (5)); // 2163 %else #line 2163 "regression-compile-tmp/asm6809.imp" goto L_02fc; #line 2163 "regression-compile-tmp/asm6809.imp" L_02fb:; // 2164 post = 16_80 #line 2164 "regression-compile-tmp/asm6809.imp" *POST = 128; // 2165 cycles = cycles+4 #line 2165 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (4)); // 2166 %finish #line 2166 "regression-compile-tmp/asm6809.imp" L_02fc:; // 2167 %else #line 2167 "regression-compile-tmp/asm6809.imp" goto L_02fd; #line 2167 "regression-compile-tmp/asm6809.imp" L_02f7:; // 2168 cycles = cycles+2 #line 2168 "regression-compile-tmp/asm6809.imp" *CYCLES = ((*(int *)(CYCLES)) + (2)); // 2169 %finish #line 2169 "regression-compile-tmp/asm6809.imp" L_02fd:; // 2170 %else #line 2170 "regression-compile-tmp/asm6809.imp" goto L_02fe; #line 2170 "regression-compile-tmp/asm6809.imp" L_02f3:; // 2171 cycles = cycles+4+(post&1) #line 2171 "regression-compile-tmp/asm6809.imp" *CYCLES = (((((*(int *)(CYCLES)) + (4)))) + (((*POST) & (1)))); // 2172 %finish #line 2172 "regression-compile-tmp/asm6809.imp" L_02fe:; // 2173 post = post!(reg<<5) #line 2173 "regression-compile-tmp/asm6809.imp" *POST = ((*POST) | (((REG) << (5)))); // 2174 %true #line 2174 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; // 2175 %finish #line 2175 "regression-compile-tmp/asm6809.imp" L_02f2:; // 2176 lp = old lp-1 #line 2176 "regression-compile-tmp/asm6809.imp" LP = (((int)(OLDLP)) - (1)); // 2177 next char #line 2177 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2178 %false #line 2178 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2179 %end #line 2179 "regression-compile-tmp/asm6809.imp" } // End of block AUTOINDEXED at level 2 // 2180 !----------------------------------------------------------------------- // 2181 %predicate accumulator #line 2181 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ ACCUMULATOR( void ) #line 2181 "regression-compile-tmp/asm6809.imp" { // 2182 // 2183 %true %if acc('A') #line 2183 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_02ff; #line 2183 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2183 "regression-compile-tmp/asm6809.imp" L_02ff:; // 2184 %true %if acc('B') #line 2184 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_0300; #line 2184 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2184 "regression-compile-tmp/asm6809.imp" L_0300:; // 2185 %false #line 2185 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2186 %end #line 2186 "regression-compile-tmp/asm6809.imp" } // End of block ACCUMULATOR at level 2 // 2187 !----------------------------------------------------------------------- // 2188 %predicate acc(%byte %integer acc id) #line 2188 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ ACC( unsigned char ACCID ) #line 2188 "regression-compile-tmp/asm6809.imp" { // 2189 // 2190 %false %unless pres char=acc id #line 2190 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (ACCID))) goto L_0301; #line 2190 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2190 "regression-compile-tmp/asm6809.imp" L_0301:; // 2191 next char #line 2191 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2192 %true %unless 'A'<=pres char<='Z' %or '0'<=pres char<='9' #line 2192 "regression-compile-tmp/asm6809.imp" if ((((65) > (PRESCHAR))) || (((PRESCHAR) <= (90)))) goto L_0302; #line 2192 "regression-compile-tmp/asm6809.imp" L_0270:; #line 2192 "regression-compile-tmp/asm6809.imp" if ((((48) > (PRESCHAR))) || (((PRESCHAR) <= (57)))) goto L_0302; #line 2192 "regression-compile-tmp/asm6809.imp" L_0303:; #line 2192 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2192 "regression-compile-tmp/asm6809.imp" L_0302:; // 2193 lp = lp-2 #line 2193 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (2)); // 2194 next char #line 2194 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2195 %false #line 2195 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2196 %end #line 2196 "regression-compile-tmp/asm6809.imp" } // End of block ACC at level 2 // 2197 !----------------------------------------------------------------------- // 2198 %predicate index reg(%integer %name reg) #line 2198 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ INDEXREG( int /*name*/*REG ) #line 2198 "regression-compile-tmp/asm6809.imp" { // 2199 // 2200 reg = 0 %and %true %if acc('X') #line 2200 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_0304; #line 2200 "regression-compile-tmp/asm6809.imp" *REG = 0; #line 2200 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2200 "regression-compile-tmp/asm6809.imp" L_0304:; // 2201 reg = 1 %and %true %if acc('Y') #line 2201 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_0305; #line 2201 "regression-compile-tmp/asm6809.imp" *REG = 1; #line 2201 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2201 "regression-compile-tmp/asm6809.imp" L_0305:; // 2202 reg = 2 %and %true %if acc('U') #line 2202 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_0306; #line 2202 "regression-compile-tmp/asm6809.imp" *REG = 2; #line 2202 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2202 "regression-compile-tmp/asm6809.imp" L_0306:; // 2203 reg = 3 %and %true %if acc('S') #line 2203 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_0307; #line 2203 "regression-compile-tmp/asm6809.imp" *REG = 3; #line 2203 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2203 "regression-compile-tmp/asm6809.imp" L_0307:; // 2204 %false #line 2204 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2205 %end #line 2205 "regression-compile-tmp/asm6809.imp" } // End of block INDEXREG at level 2 // 2206 !----------------------------------------------------------------------- // 2207 %predicate transfer reg(%integer %name reg) #line 2207 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ TRANSFERREG( int /*name*/*REG ) #line 2207 "regression-compile-tmp/asm6809.imp" { // 2208 // 2209 reg = 0 %and %true %if acc('D') #line 2209 "regression-compile-tmp/asm6809.imp" if (!(ACC(68))) goto L_0308; #line 2209 "regression-compile-tmp/asm6809.imp" *REG = 0; #line 2209 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2209 "regression-compile-tmp/asm6809.imp" L_0308:; // 2210 reg = 1 %and %true %if acc('X') #line 2210 "regression-compile-tmp/asm6809.imp" if (!(ACC(88))) goto L_0309; #line 2210 "regression-compile-tmp/asm6809.imp" *REG = 1; #line 2210 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2210 "regression-compile-tmp/asm6809.imp" L_0309:; // 2211 reg = 2 %and %true %if acc('Y') #line 2211 "regression-compile-tmp/asm6809.imp" if (!(ACC(89))) goto L_030a; #line 2211 "regression-compile-tmp/asm6809.imp" *REG = 2; #line 2211 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2211 "regression-compile-tmp/asm6809.imp" L_030a:; // 2212 reg = 3 %and %true %if acc('U') #line 2212 "regression-compile-tmp/asm6809.imp" if (!(ACC(85))) goto L_030b; #line 2212 "regression-compile-tmp/asm6809.imp" *REG = 3; #line 2212 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2212 "regression-compile-tmp/asm6809.imp" L_030b:; // 2213 reg = 4 %and %true %if acc('S') #line 2213 "regression-compile-tmp/asm6809.imp" if (!(ACC(83))) goto L_030c; #line 2213 "regression-compile-tmp/asm6809.imp" *REG = 4; #line 2213 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2213 "regression-compile-tmp/asm6809.imp" L_030c:; // 2214 reg = 5 %and %true %if pc #line 2214 "regression-compile-tmp/asm6809.imp" if (!(PC())) goto L_030d; #line 2214 "regression-compile-tmp/asm6809.imp" *REG = 5; #line 2214 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2214 "regression-compile-tmp/asm6809.imp" L_030d:; // 2215 reg = 8 %and %true %if acc('A') #line 2215 "regression-compile-tmp/asm6809.imp" if (!(ACC(65))) goto L_030e; #line 2215 "regression-compile-tmp/asm6809.imp" *REG = 8; #line 2215 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2215 "regression-compile-tmp/asm6809.imp" L_030e:; // 2216 reg = 9 %and %true %if acc('B') #line 2216 "regression-compile-tmp/asm6809.imp" if (!(ACC(66))) goto L_030f; #line 2216 "regression-compile-tmp/asm6809.imp" *REG = 9; #line 2216 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2216 "regression-compile-tmp/asm6809.imp" L_030f:; // 2217 reg = 10 %and %true %if cc #line 2217 "regression-compile-tmp/asm6809.imp" if (!(CC())) goto L_0310; #line 2217 "regression-compile-tmp/asm6809.imp" *REG = 10; #line 2217 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2217 "regression-compile-tmp/asm6809.imp" L_0310:; // 2218 reg = 11 %and %true %if dp #line 2218 "regression-compile-tmp/asm6809.imp" if (!(DP())) goto L_0311; #line 2218 "regression-compile-tmp/asm6809.imp" *REG = 11; #line 2218 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2218 "regression-compile-tmp/asm6809.imp" L_0311:; // 2219 %false #line 2219 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2220 %end #line 2220 "regression-compile-tmp/asm6809.imp" } // End of block TRANSFERREG at level 2 // 2221 !----------------------------------------------------------------------- // 2222 %predicate cc #line 2222 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ CC( void ) #line 2222 "regression-compile-tmp/asm6809.imp" { // 2223 // 2224 %false %unless pres char='C' #line 2224 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (67))) goto L_0312; #line 2224 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2224 "regression-compile-tmp/asm6809.imp" L_0312:; // 2225 next char #line 2225 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2226 %true %if acc('C') #line 2226 "regression-compile-tmp/asm6809.imp" if (!(ACC(67))) goto L_0313; #line 2226 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2226 "regression-compile-tmp/asm6809.imp" L_0313:; // 2227 lp = lp-2 #line 2227 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (2)); // 2228 next char #line 2228 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2229 %false #line 2229 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2230 %end #line 2230 "regression-compile-tmp/asm6809.imp" } // End of block CC at level 2 // 2231 !----------------------------------------------------------------------- // 2232 %predicate dp #line 2232 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ DP( void ) #line 2232 "regression-compile-tmp/asm6809.imp" { // 2233 // 2234 %false %unless pres char='D' #line 2234 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (68))) goto L_0314; #line 2234 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2234 "regression-compile-tmp/asm6809.imp" L_0314:; // 2235 next char #line 2235 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2236 %true %if acc('P') #line 2236 "regression-compile-tmp/asm6809.imp" if (!(ACC(80))) goto L_0315; #line 2236 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2236 "regression-compile-tmp/asm6809.imp" L_0315:; // 2237 lp = lp-2 #line 2237 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (2)); // 2238 next char #line 2238 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2239 %false #line 2239 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2240 %end #line 2240 "regression-compile-tmp/asm6809.imp" } // End of block DP at level 2 // 2241 !----------------------------------------------------------------------- // 2242 %predicate pc #line 2242 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ PC( void ) #line 2242 "regression-compile-tmp/asm6809.imp" { // 2243 // 2244 %false %unless pres char='P' #line 2244 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (80))) goto L_0316; #line 2244 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2244 "regression-compile-tmp/asm6809.imp" L_0316:; // 2245 next char #line 2245 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2246 %true %if acc('C') #line 2246 "regression-compile-tmp/asm6809.imp" if (!(ACC(67))) goto L_0317; #line 2246 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2246 "regression-compile-tmp/asm6809.imp" L_0317:; // 2247 lp = lp-2 #line 2247 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (2)); // 2248 next char #line 2248 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2249 %false #line 2249 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2250 %end #line 2250 "regression-compile-tmp/asm6809.imp" } // End of block PC at level 2 // 2251 !----------------------------------------------------------------------- // 2252 %predicate pc relative #line 2252 "regression-compile-tmp/asm6809.imp" int /*Boolean*/ PCRELATIVE( void ) #line 2252 "regression-compile-tmp/asm6809.imp" { // 2253 // 2254 %false %unless pres char='P' #line 2254 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) == (80))) goto L_0318; #line 2254 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2254 "regression-compile-tmp/asm6809.imp" L_0318:; // 2255 next char #line 2255 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2256 %if pres char='C' %start #line 2256 "regression-compile-tmp/asm6809.imp" if (((PRESCHAR) != (67))) goto L_0319; // 2257 next char #line 2257 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2258 %true %if acc('R') #line 2258 "regression-compile-tmp/asm6809.imp" if (!(ACC(82))) goto L_031a; #line 2258 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 2258 "regression-compile-tmp/asm6809.imp" L_031a:; // 2259 lp = lp-1 #line 2259 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (1)); // 2260 %finish #line 2260 "regression-compile-tmp/asm6809.imp" L_0319:; // 2261 lp = lp-2 #line 2261 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) - (2)); // 2262 next char #line 2262 "regression-compile-tmp/asm6809.imp" NEXTCHAR(); // 2263 %false #line 2263 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; // 2264 %end #line 2264 "regression-compile-tmp/asm6809.imp" } // End of block PCRELATIVE at level 2 // 2265 !----------------------------------------------------------------------- // 2266 %routine dump block #line 2266 "regression-compile-tmp/asm6809.imp" void DUMPBLOCK( void ) #line 2266 "regression-compile-tmp/asm6809.imp" { // 2267 %integer checksum, old rad, i #line 2267 "regression-compile-tmp/asm6809.imp" int CHECKSUM; #line 2267 "regression-compile-tmp/asm6809.imp" int OLDRAD; #line 2267 "regression-compile-tmp/asm6809.imp" int I; // 2268 // 2269 select output(1) #line 2269 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(1); // 2270 old rad = drad #line 2270 "regression-compile-tmp/asm6809.imp" OLDRAD = DRAD; // 2271 drad = 8 #line 2271 "regression-compile-tmp/asm6809.imp" DRAD = 8; // 2272 print string("S1") #line 2272 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal("S1")); // 2273 print number(bp+3, 1) #line 2273 "regression-compile-tmp/asm6809.imp" PRINTNUMBER((((int)(BP)) + (3)), 1); // 2274 print number(buffer ca, 2) #line 2274 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(BUFFERCA, 2); // 2275 checksum = ((buffer ca>>8)&255)+(buffer ca&255)+bp+3 #line 2275 "regression-compile-tmp/asm6809.imp" CHECKSUM = (((int)((((int)(((((((int)((((unsigned int)(BUFFERCA)) >> (8)))) & (255)))) + (((BUFFERCA) & (255)))))) + (BP)))) + (3)); // 2276 %for i = 1, 1, bp %cycle #line 2276 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = BP; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, BP"); I -= _increment; _control -= _increment; L_031b:; if (I == _final) goto L_031c; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 2277 checksum = check sum+buffer(i) #line 2277 "regression-compile-tmp/asm6809.imp" CHECKSUM = ((CHECKSUM) + ((int)(BUFFER[(((int)(I)) - (1))]))); // 2278 print number(buffer(i), 1) #line 2278 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(BUFFER[(((int)(I)) - (1))], 1); // 2279 %repeat #line 2279 "regression-compile-tmp/asm6809.imp" goto L_031b; #line 2279 "regression-compile-tmp/asm6809.imp" L_031c:; // 2280 print number(\(checksum&255), 1) #line 2280 "regression-compile-tmp/asm6809.imp" PRINTNUMBER((~(((CHECKSUM) & (255)))), 1); // 2281 print symbol(13) #line 2281 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(13); // 2282 new line #line 2282 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2283 drad = old rad #line 2283 "regression-compile-tmp/asm6809.imp" DRAD = OLDRAD; // 2284 select output(2) #line 2284 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(2); // 2285 bp = 0 #line 2285 "regression-compile-tmp/asm6809.imp" BP = 0; // 2286 %end #line 2286 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DUMPBLOCK at level 2 // 2287 !-------------------------------------------------------------------------- // 2288 %routine dump(%byte %integer byte) #line 2288 "regression-compile-tmp/asm6809.imp" void DUMP( unsigned char BYTE ) #line 2288 "regression-compile-tmp/asm6809.imp" { // 2289 %if ostarted=0 %start #line 2289 "regression-compile-tmp/asm6809.imp" if (((OSTARTED) != (0))) goto L_031e; // 2290 select output(1) #line 2290 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(1); // 2291 print symbol(13) #line 2291 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(13); // 2292 new line #line 2292 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2293 print string("S00600004844521B") #line 2293 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal("S00600004844521B")); // 2294 print symbol(13) #line 2294 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(13); // 2295 new line #line 2295 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2296 select output(2) #line 2296 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(2); // 2297 ostarted = 1 #line 2297 "regression-compile-tmp/asm6809.imp" OSTARTED = 1; // 2298 %finish #line 2298 "regression-compile-tmp/asm6809.imp" L_031e:; // 2299 buffer ca = ca %if bp=0 #line 2299 "regression-compile-tmp/asm6809.imp" if (((BP) != (0))) goto L_031f; #line 2299 "regression-compile-tmp/asm6809.imp" BUFFERCA = CA; #line 2299 "regression-compile-tmp/asm6809.imp" L_031f:; // 2300 dump block %and buffer ca = ca %unless buffer ca+bp=ca #line 2300 "regression-compile-tmp/asm6809.imp" if ((((((int)(BUFFERCA)) + (BP))) == (CA))) goto L_0320; #line 2300 "regression-compile-tmp/asm6809.imp" DUMPBLOCK(); #line 2300 "regression-compile-tmp/asm6809.imp" BUFFERCA = CA; #line 2300 "regression-compile-tmp/asm6809.imp" L_0320:; // 2301 bp = bp+1 #line 2301 "regression-compile-tmp/asm6809.imp" BP = (((int)(BP)) + (1)); // 2302 buffer(bp) = byte #line 2302 "regression-compile-tmp/asm6809.imp" BUFFER[(((int)(BP)) - (1))] = BYTE; // 2303 ca = ca+1 #line 2303 "regression-compile-tmp/asm6809.imp" CA = (((int)(CA)) + (1)); // 2304 dump block %if bp=16 #line 2304 "regression-compile-tmp/asm6809.imp" if (((BP) != (16))) goto L_0321; #line 2304 "regression-compile-tmp/asm6809.imp" DUMPBLOCK(); #line 2304 "regression-compile-tmp/asm6809.imp" L_0321:; // 2305 %end #line 2305 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DUMP at level 2 // 2306 !--------------------------------------------------------------------------- // 2307 %routine close #line 2307 "regression-compile-tmp/asm6809.imp" void CLOSE( void ) #line 2307 "regression-compile-tmp/asm6809.imp" { // 2308 %unless ostarted=0 %start #line 2308 "regression-compile-tmp/asm6809.imp" if (((OSTARTED) == (0))) goto L_0322; // 2309 dump block %unless bp=0 #line 2309 "regression-compile-tmp/asm6809.imp" if (((BP) == (0))) goto L_0323; #line 2309 "regression-compile-tmp/asm6809.imp" DUMPBLOCK(); #line 2309 "regression-compile-tmp/asm6809.imp" L_0323:; // 2310 select output(1) #line 2310 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(1); // 2311 print string("S9030000FC") #line 2311 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal("S9030000FC")); // 2312 print symbol(13) #line 2312 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(13); // 2313 new line #line 2313 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2314 select output(2) #line 2314 "regression-compile-tmp/asm6809.imp" _imp_SELECTOUTPUT(2); // 2315 %finish #line 2315 "regression-compile-tmp/asm6809.imp" L_0322:; // 2316 %end #line 2316 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLOSE at level 2 // 2317 !----------------------------------------------------------------------- // 2318 %routine instr out(%integer op, post, opd, b, cyc) #line 2318 "regression-compile-tmp/asm6809.imp" void INSTROUT( int OP, int POST, int OPD, int B, int CYC ) #line 2318 "regression-compile-tmp/asm6809.imp" { // 2319 %integer i, j, k, lit #line 2319 "regression-compile-tmp/asm6809.imp" int I; #line 2319 "regression-compile-tmp/asm6809.imp" int J; #line 2319 "regression-compile-tmp/asm6809.imp" int K; #line 2319 "regression-compile-tmp/asm6809.imp" int LIT; // 2320 // 2321 i = 1 #line 2321 "regression-compile-tmp/asm6809.imp" I = 1; // 2322 %unless lflag=0 %or ((gflag=0 %or lflag=1) %and cont=1) %start #line 2322 "regression-compile-tmp/asm6809.imp" if (((LFLAG) == (0))) goto L_0324; #line 2322 "regression-compile-tmp/asm6809.imp" if (((GFLAG) == (0))) goto L_0325; #line 2322 "regression-compile-tmp/asm6809.imp" if (((LFLAG) != (1))) goto L_031d; #line 2322 "regression-compile-tmp/asm6809.imp" L_0325:; #line 2322 "regression-compile-tmp/asm6809.imp" if (((CONT) == (1))) goto L_0324; #line 2322 "regression-compile-tmp/asm6809.imp" L_031d:; // 2323 write(ln, 5) #line 2323 "regression-compile-tmp/asm6809.imp" _imp_WRITE(LN, 5); // 2324 space %unless wflag=0 #line 2324 "regression-compile-tmp/asm6809.imp" if (((WFLAG) == (0))) goto L_0326; #line 2324 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); #line 2324 "regression-compile-tmp/asm6809.imp" L_0326:; // 2325 %if lflag=2 %start #line 2325 "regression-compile-tmp/asm6809.imp" if (((LFLAG) != (2))) goto L_0327; // 2326 space #line 2326 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); // 2327 %if b<=-5 %start #line 2327 "regression-compile-tmp/asm6809.imp" if (((B) > ((-5)))) goto L_0328; // 2328 spaces(sp2) #line 2328 "regression-compile-tmp/asm6809.imp" _imp_SPACES(SP2); // 2329 %else #line 2329 "regression-compile-tmp/asm6809.imp" goto L_0329; #line 2329 "regression-compile-tmp/asm6809.imp" L_0328:; // 2330 print number(ca, 2) #line 2330 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(CA, 2); // 2331 %finish #line 2331 "regression-compile-tmp/asm6809.imp" L_0329:; // 2332 space #line 2332 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); // 2333 %if -6<=b<=-1 %start #line 2333 "regression-compile-tmp/asm6809.imp" if (((((-6)) > (B))) || (((B) > ((-1))))) goto L_032a; // 2334 spaces(sp2+1) #line 2334 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP2)) + (1))); // 2335 %if b&1=0 %start #line 2335 "regression-compile-tmp/asm6809.imp" if (((((B) & (1))) != (0))) goto L_032b; // 2336 print number(post, 2) #line 2336 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(POST, 2); // 2337 %else #line 2337 "regression-compile-tmp/asm6809.imp" goto L_032c; #line 2337 "regression-compile-tmp/asm6809.imp" L_032b:; // 2338 print number(post, 1) #line 2338 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(POST, 1); // 2339 spaces(sp2-sp1) #line 2339 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP2)) - (SP1))); // 2340 %finish #line 2340 "regression-compile-tmp/asm6809.imp" L_032c:; // 2341 spaces(sp1+1) #line 2341 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP1)) + (1))); // 2342 %else #line 2342 "regression-compile-tmp/asm6809.imp" goto L_032d; #line 2342 "regression-compile-tmp/asm6809.imp" L_032a:; // 2343 %if b<=0 %start #line 2343 "regression-compile-tmp/asm6809.imp" if (((B) > (0))) goto L_032e; // 2344 spaces(sp2) #line 2344 "regression-compile-tmp/asm6809.imp" _imp_SPACES(SP2); // 2345 %finish %else %if 0<=op<=255 %start #line 2345 "regression-compile-tmp/asm6809.imp" goto L_032f; #line 2345 "regression-compile-tmp/asm6809.imp" L_032e:; #line 2345 "regression-compile-tmp/asm6809.imp" if ((((0) > (OP))) || (((OP) > (255)))) goto L_0330; // 2346 print number(op, 1) #line 2346 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(OP, 1); // 2347 spaces(sp2-sp1) #line 2347 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP2)) - (SP1))); // 2348 %else #line 2348 "regression-compile-tmp/asm6809.imp" goto L_032f; #line 2348 "regression-compile-tmp/asm6809.imp" L_0330:; // 2349 print number(op, 2) #line 2349 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(OP, 2); // 2350 %finish #line 2350 "regression-compile-tmp/asm6809.imp" L_032f:; // 2351 space #line 2351 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); // 2352 %if b<=1 %start #line 2352 "regression-compile-tmp/asm6809.imp" if (((B) > (1))) goto L_0331; // 2353 spaces(sp1+sp2+1) #line 2353 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)((((int)(SP1)) + (SP2)))) + (1))); // 2354 %finish %else %if b<=4 %start #line 2354 "regression-compile-tmp/asm6809.imp" goto L_0332; #line 2354 "regression-compile-tmp/asm6809.imp" L_0331:; #line 2354 "regression-compile-tmp/asm6809.imp" if (((B) > (4))) goto L_0333; // 2355 print number(post, 1) #line 2355 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(POST, 1); // 2356 space #line 2356 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); // 2357 %if b<=2 %start #line 2357 "regression-compile-tmp/asm6809.imp" if (((B) > (2))) goto L_0334; // 2358 spaces(sp2) #line 2358 "regression-compile-tmp/asm6809.imp" _imp_SPACES(SP2); // 2359 %finish %else %if b=3 %start #line 2359 "regression-compile-tmp/asm6809.imp" goto L_0335; #line 2359 "regression-compile-tmp/asm6809.imp" L_0334:; #line 2359 "regression-compile-tmp/asm6809.imp" if (((B) != (3))) goto L_0336; // 2360 print number(opd, 1) #line 2360 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(OPD, 1); // 2361 spaces(sp2-sp1) #line 2361 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP2)) - (SP1))); // 2362 %else #line 2362 "regression-compile-tmp/asm6809.imp" goto L_0335; #line 2362 "regression-compile-tmp/asm6809.imp" L_0336:; // 2363 print number(opd, 2) #line 2363 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(OPD, 2); // 2364 %finish #line 2364 "regression-compile-tmp/asm6809.imp" L_0335:; // 2365 %else #line 2365 "regression-compile-tmp/asm6809.imp" goto L_0332; #line 2365 "regression-compile-tmp/asm6809.imp" L_0333:; // 2366 print number(post, 2) #line 2366 "regression-compile-tmp/asm6809.imp" PRINTNUMBER(POST, 2); // 2367 spaces(sp1+1) #line 2367 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)(SP1)) + (1))); // 2368 %finish #line 2368 "regression-compile-tmp/asm6809.imp" L_0332:; // 2369 %finish #line 2369 "regression-compile-tmp/asm6809.imp" L_032d:; // 2370 %unless cflag=0 %start #line 2370 "regression-compile-tmp/asm6809.imp" if (((CFLAG) == (0))) goto L_0337; // 2371 %if cyc=0 %start #line 2371 "regression-compile-tmp/asm6809.imp" if (((CYC) != (0))) goto L_0338; // 2372 spaces(3) #line 2372 "regression-compile-tmp/asm6809.imp" _imp_SPACES(3); // 2373 %else #line 2373 "regression-compile-tmp/asm6809.imp" goto L_0339; #line 2373 "regression-compile-tmp/asm6809.imp" L_0338:; // 2374 write(cyc, 2) #line 2374 "regression-compile-tmp/asm6809.imp" _imp_WRITE(CYC, 2); // 2375 %finish #line 2375 "regression-compile-tmp/asm6809.imp" L_0339:; // 2376 %finish #line 2376 "regression-compile-tmp/asm6809.imp" L_0337:; // 2377 %finish #line 2377 "regression-compile-tmp/asm6809.imp" L_0327:; // 2378 %if cont=0 %start #line 2378 "regression-compile-tmp/asm6809.imp" if (((CONT) != (0))) goto L_033a; // 2379 space #line 2379 "regression-compile-tmp/asm6809.imp" _imp_SPACE(); // 2380 %if tflag=0 %start #line 2380 "regression-compile-tmp/asm6809.imp" if (((TFLAG) != (0))) goto L_033b; // 2381 %cycle #line 2381 "regression-compile-tmp/asm6809.imp" L_033c:; // 2382 out symbol(line(i)) #line 2382 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(LINE[(((int)(I)) - (1))]); // 2383 %exit %if line(i)&127=nl %or line(i)&127=12 #line 2383 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_033f; #line 2383 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (12))) goto L_0340; #line 2383 "regression-compile-tmp/asm6809.imp" L_033f:; #line 2383 "regression-compile-tmp/asm6809.imp" goto L_033d; #line 2383 "regression-compile-tmp/asm6809.imp" L_0340:; // 2384 i = i+1 #line 2384 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); // 2385 %repeat #line 2385 "regression-compile-tmp/asm6809.imp" goto L_033c; #line 2385 "regression-compile-tmp/asm6809.imp" L_033d:; // 2386 %else #line 2386 "regression-compile-tmp/asm6809.imp" goto L_0341; #line 2386 "regression-compile-tmp/asm6809.imp" L_033b:; // 2387 j = 1 #line 2387 "regression-compile-tmp/asm6809.imp" J = 1; // 2388 out tag(i, j, 8) #line 2388 "regression-compile-tmp/asm6809.imp" OUTTAG(&I, &J, 8); // 2389 out tag(i, j, 12) %if accop=1 #line 2389 "regression-compile-tmp/asm6809.imp" if (((ACCOP) != (1))) goto L_0342; #line 2389 "regression-compile-tmp/asm6809.imp" OUTTAG(&I, &J, 12); #line 2389 "regression-compile-tmp/asm6809.imp" L_0342:; // 2390 out tag(i, j, 15) #line 2390 "regression-compile-tmp/asm6809.imp" OUTTAG(&I, &J, 15); // 2391 k = 0 #line 2391 "regression-compile-tmp/asm6809.imp" K = 0; // 2392 lit = 0 #line 2392 "regression-compile-tmp/asm6809.imp" LIT = 0; // 2393 %while i#lp %cycle #line 2393 "regression-compile-tmp/asm6809.imp" L_0343:; #line 2393 "regression-compile-tmp/asm6809.imp" if (((I) == (LP))) goto L_0344; // 2394 %if line(i)&127=' ' %start #line 2394 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (32))) goto L_0346; // 2395 k = k+1 %if non dense=1 %or lit=1 #line 2395 "regression-compile-tmp/asm6809.imp" if (((NONDENSE) == (1))) goto L_0347; #line 2395 "regression-compile-tmp/asm6809.imp" if (((LIT) != (1))) goto L_0348; #line 2395 "regression-compile-tmp/asm6809.imp" L_0347:; #line 2395 "regression-compile-tmp/asm6809.imp" K = (((int)(K)) + (1)); #line 2395 "regression-compile-tmp/asm6809.imp" L_0348:; // 2396 %else #line 2396 "regression-compile-tmp/asm6809.imp" goto L_0349; #line 2396 "regression-compile-tmp/asm6809.imp" L_0346:; // 2397 j = j+k+1 #line 2397 "regression-compile-tmp/asm6809.imp" J = (((int)((((int)(J)) + (K)))) + (1)); // 2398 out symbol(' ') %and k = k-1 %while k>0 #line 2398 "regression-compile-tmp/asm6809.imp" L_034a:; #line 2398 "regression-compile-tmp/asm6809.imp" if (((K) <= (0))) goto L_034b; #line 2398 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(32); #line 2398 "regression-compile-tmp/asm6809.imp" K = (((int)(K)) - (1)); #line 2398 "regression-compile-tmp/asm6809.imp" goto L_034a; #line 2398 "regression-compile-tmp/asm6809.imp" L_034b:; // 2399 out symbol(line(i)) #line 2399 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(LINE[(((int)(I)) - (1))]); // 2400 %finish #line 2400 "regression-compile-tmp/asm6809.imp" L_0349:; // 2401 %if line(i)&127='''' %start #line 2401 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (39))) goto L_034d; // 2402 lit = 1 #line 2402 "regression-compile-tmp/asm6809.imp" LIT = 1; // 2403 %else #line 2403 "regression-compile-tmp/asm6809.imp" goto L_034e; #line 2403 "regression-compile-tmp/asm6809.imp" L_034d:; // 2404 lit = 0 #line 2404 "regression-compile-tmp/asm6809.imp" LIT = 0; // 2405 %finish #line 2405 "regression-compile-tmp/asm6809.imp" L_034e:; // 2406 i = i+1 #line 2406 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); // 2407 %repeat #line 2407 "regression-compile-tmp/asm6809.imp" goto L_0343; #line 2407 "regression-compile-tmp/asm6809.imp" L_0344:; // 2408 i = i+1 %while line(i)&127=' ' #line 2408 "regression-compile-tmp/asm6809.imp" L_034f:; #line 2408 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (32))) goto L_0350; #line 2408 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); #line 2408 "regression-compile-tmp/asm6809.imp" goto L_034f; #line 2408 "regression-compile-tmp/asm6809.imp" L_0350:; // 2409 %unless lp=1 %or line(i)&127=nl %or line(i)&127=12 %start #line 2409 "regression-compile-tmp/asm6809.imp" if (((LP) == (1))) goto L_0352; #line 2409 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_0352; #line 2409 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (12))) goto L_0352; // 2410 out symbol(' ') %and j = j+1 %until j>=24 #line 2410 "regression-compile-tmp/asm6809.imp" L_0353:; #line 2410 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(32); #line 2410 "regression-compile-tmp/asm6809.imp" J = (((int)(J)) + (1)); #line 2410 "regression-compile-tmp/asm6809.imp" if (((J) >= (24))) goto L_0354; #line 2410 "regression-compile-tmp/asm6809.imp" goto L_0353; #line 2410 "regression-compile-tmp/asm6809.imp" L_0354:; // 2411 %finish #line 2411 "regression-compile-tmp/asm6809.imp" L_0352:; // 2412 %cycle #line 2412 "regression-compile-tmp/asm6809.imp" L_0356:; // 2413 out symbol(line(i)) #line 2413 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(LINE[(((int)(I)) - (1))]); // 2414 %exit %if line(i)&127=nl %or line(i)&127=12 #line 2414 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_0355; #line 2414 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) != (12))) goto L_0359; #line 2414 "regression-compile-tmp/asm6809.imp" L_0355:; #line 2414 "regression-compile-tmp/asm6809.imp" goto L_0357; #line 2414 "regression-compile-tmp/asm6809.imp" L_0359:; // 2415 i = i+1 #line 2415 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); // 2416 %repeat #line 2416 "regression-compile-tmp/asm6809.imp" goto L_0356; #line 2416 "regression-compile-tmp/asm6809.imp" L_0357:; // 2417 %finish #line 2417 "regression-compile-tmp/asm6809.imp" L_0341:; // 2418 %else #line 2418 "regression-compile-tmp/asm6809.imp" goto L_035a; #line 2418 "regression-compile-tmp/asm6809.imp" L_033a:; // 2419 nline(1) #line 2419 "regression-compile-tmp/asm6809.imp" NLINE(1); // 2420 %finish #line 2420 "regression-compile-tmp/asm6809.imp" L_035a:; // 2421 %else #line 2421 "regression-compile-tmp/asm6809.imp" goto L_035b; #line 2421 "regression-compile-tmp/asm6809.imp" L_0324:; // 2422 i = i+1 %while line(i)&127#nl %and line(i)&127#12 #line 2422 "regression-compile-tmp/asm6809.imp" L_035c:; #line 2422 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (10))) goto L_035d; #line 2422 "regression-compile-tmp/asm6809.imp" if (((((LINE[(((int)(I)) - (1))]) & (127))) == (12))) goto L_035d; #line 2422 "regression-compile-tmp/asm6809.imp" I = (((int)(I)) + (1)); #line 2422 "regression-compile-tmp/asm6809.imp" goto L_035c; #line 2422 "regression-compile-tmp/asm6809.imp" L_035d:; // 2423 %finish #line 2423 "regression-compile-tmp/asm6809.imp" L_035b:; // 2424 fault("Truncated line") %if i=max line+1 #line 2424 "regression-compile-tmp/asm6809.imp" if (((I) != (513))) goto L_035f; #line 2424 "regression-compile-tmp/asm6809.imp" FAULT(_imp_str_literal("Truncated line")); #line 2424 "regression-compile-tmp/asm6809.imp" L_035f:; // 2425 // 2426 %if b>=1 %start #line 2426 "regression-compile-tmp/asm6809.imp" if (((B) < (1))) goto L_0360; // 2427 dump((op>>8)&255) %unless 0<=op<=255 #line 2427 "regression-compile-tmp/asm6809.imp" if ((((0) > (OP))) || (((OP) <= (255)))) goto L_0361; #line 2427 "regression-compile-tmp/asm6809.imp" L_035e:; #line 2427 "regression-compile-tmp/asm6809.imp" DUMP((((int)((((unsigned int)(OP)) >> (8)))) & (255))); #line 2427 "regression-compile-tmp/asm6809.imp" L_0361:; // 2428 dump(op&255) #line 2428 "regression-compile-tmp/asm6809.imp" DUMP(((OP) & (255))); // 2429 dump((post>>8)&255) %if b=5 #line 2429 "regression-compile-tmp/asm6809.imp" if (((B) != (5))) goto L_0362; #line 2429 "regression-compile-tmp/asm6809.imp" DUMP((((int)((((unsigned int)(POST)) >> (8)))) & (255))); #line 2429 "regression-compile-tmp/asm6809.imp" L_0362:; // 2430 dump(post&255) %if b>=2 #line 2430 "regression-compile-tmp/asm6809.imp" if (((B) < (2))) goto L_0363; #line 2430 "regression-compile-tmp/asm6809.imp" DUMP(((POST) & (255))); #line 2430 "regression-compile-tmp/asm6809.imp" L_0363:; // 2431 dump((opd>>8)&255) %if b=4 #line 2431 "regression-compile-tmp/asm6809.imp" if (((B) != (4))) goto L_0364; #line 2431 "regression-compile-tmp/asm6809.imp" DUMP((((int)((((unsigned int)(OPD)) >> (8)))) & (255))); #line 2431 "regression-compile-tmp/asm6809.imp" L_0364:; // 2432 dump(opd&255) %if 3<=b<=4 #line 2432 "regression-compile-tmp/asm6809.imp" if ((((3) > (B))) || (((B) > (4)))) goto L_0365; #line 2432 "regression-compile-tmp/asm6809.imp" DUMP(((OPD) & (255))); #line 2432 "regression-compile-tmp/asm6809.imp" L_0365:; // 2433 %finish %else %if -2<=b<=-1 %start #line 2433 "regression-compile-tmp/asm6809.imp" goto L_0366; #line 2433 "regression-compile-tmp/asm6809.imp" L_0360:; #line 2433 "regression-compile-tmp/asm6809.imp" if (((((-2)) > (B))) || (((B) > ((-1))))) goto L_0367; // 2434 dump((post>>8)&255) %if b=-2 #line 2434 "regression-compile-tmp/asm6809.imp" if (((B) != ((-2)))) goto L_0368; #line 2434 "regression-compile-tmp/asm6809.imp" DUMP((((int)((((unsigned int)(POST)) >> (8)))) & (255))); #line 2434 "regression-compile-tmp/asm6809.imp" L_0368:; // 2435 dump((post&255)) #line 2435 "regression-compile-tmp/asm6809.imp" DUMP(((POST) & (255))); // 2436 %finish #line 2436 "regression-compile-tmp/asm6809.imp" L_0367:; #line 2436 "regression-compile-tmp/asm6809.imp" L_0366:; // 2437 %end #line 2437 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INSTROUT at level 2 // 2438 !----------------------------------------------------------------------- // 2439 %routine out tag(%integer %name i, j, %integer col) #line 2439 "regression-compile-tmp/asm6809.imp" void OUTTAG( int /*name*/*I, int /*name*/*J, int COL ) #line 2439 "regression-compile-tmp/asm6809.imp" { // 2440 // 2441 %while line(i)&127#' ' %and i#lp %cycle #line 2441 "regression-compile-tmp/asm6809.imp" L_0369:; #line 2441 "regression-compile-tmp/asm6809.imp" if (((((LINE[((*(int *)(I)) - (1))]) & (127))) == (32))) goto L_036a; #line 2441 "regression-compile-tmp/asm6809.imp" if (((*I) == (LP))) goto L_036a; // 2442 out symbol(line(i)) #line 2442 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(LINE[((*(int *)(I)) - (1))]); // 2443 i = i+1 #line 2443 "regression-compile-tmp/asm6809.imp" *I = ((*(int *)(I)) + (1)); // 2444 j = j+1 #line 2444 "regression-compile-tmp/asm6809.imp" *J = ((*(int *)(J)) + (1)); // 2445 %repeat #line 2445 "regression-compile-tmp/asm6809.imp" goto L_0369; #line 2445 "regression-compile-tmp/asm6809.imp" L_036a:; // 2446 i = i+1 %while line(i)&127=' ' %and i#lp #line 2446 "regression-compile-tmp/asm6809.imp" L_036c:; #line 2446 "regression-compile-tmp/asm6809.imp" if (((((LINE[((*(int *)(I)) - (1))]) & (127))) != (32))) goto L_036d; #line 2446 "regression-compile-tmp/asm6809.imp" if (((*I) == (LP))) goto L_036d; #line 2446 "regression-compile-tmp/asm6809.imp" *I = ((*(int *)(I)) + (1)); #line 2446 "regression-compile-tmp/asm6809.imp" goto L_036c; #line 2446 "regression-compile-tmp/asm6809.imp" L_036d:; // 2447 %unless i=lp %start #line 2447 "regression-compile-tmp/asm6809.imp" if (((*I) == (LP))) goto L_036f; // 2448 out symbol(' ') %and j = j+1 %until j>=col #line 2448 "regression-compile-tmp/asm6809.imp" L_0370:; #line 2448 "regression-compile-tmp/asm6809.imp" OUTSYMBOL(32); #line 2448 "regression-compile-tmp/asm6809.imp" *J = ((*(int *)(J)) + (1)); #line 2448 "regression-compile-tmp/asm6809.imp" if (((*J) >= (COL))) goto L_0371; #line 2448 "regression-compile-tmp/asm6809.imp" goto L_0370; #line 2448 "regression-compile-tmp/asm6809.imp" L_0371:; // 2449 %finish #line 2449 "regression-compile-tmp/asm6809.imp" L_036f:; // 2450 %end #line 2450 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block OUTTAG at level 2 // 2451 !------------------------------------------------------------------------ // 2452 %routine out symbol(%byte %integer char) #line 2452 "regression-compile-tmp/asm6809.imp" void OUTSYMBOL( unsigned char CHAR ) #line 2452 "regression-compile-tmp/asm6809.imp" { // 2453 %own %integer optr = 0 #line 2453 "regression-compile-tmp/asm6809.imp" static int OPTR = 0; // 2454 // 2455 %if char&127=nl %start #line 2455 "regression-compile-tmp/asm6809.imp" if (((((CHAR) & (127))) != (10))) goto L_0373; // 2456 optr = 0 #line 2456 "regression-compile-tmp/asm6809.imp" OPTR = 0; // 2457 nline(1) #line 2457 "regression-compile-tmp/asm6809.imp" NLINE(1); // 2458 %finish %else %if char&127=12 %start #line 2458 "regression-compile-tmp/asm6809.imp" goto L_0374; #line 2458 "regression-compile-tmp/asm6809.imp" L_0373:; #line 2458 "regression-compile-tmp/asm6809.imp" if (((((CHAR) & (127))) != (12))) goto L_0375; // 2459 optr = 0 #line 2459 "regression-compile-tmp/asm6809.imp" OPTR = 0; // 2460 nline(lines on page) #line 2460 "regression-compile-tmp/asm6809.imp" NLINE(66); // 2461 %else #line 2461 "regression-compile-tmp/asm6809.imp" goto L_0374; #line 2461 "regression-compile-tmp/asm6809.imp" L_0375:; // 2462 %if optr=sp3 %start #line 2462 "regression-compile-tmp/asm6809.imp" if (((OPTR) != (SP3))) goto L_0376; // 2463 %return %if wflag=0 #line 2463 "regression-compile-tmp/asm6809.imp" if (((WFLAG) != (0))) goto L_0377; #line 2463 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; #line 2463 "regression-compile-tmp/asm6809.imp" L_0377:; // 2464 nline(1) #line 2464 "regression-compile-tmp/asm6809.imp" NLINE(1); // 2465 write(ln, 5) #line 2465 "regression-compile-tmp/asm6809.imp" _imp_WRITE(LN, 5); // 2466 print symbol('+') #line 2466 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(43); // 2467 spaces(line width-sp3-7) #line 2467 "regression-compile-tmp/asm6809.imp" _imp_SPACES((((int)((((int)(78)) - (SP3)))) - (7))); // 2468 optr = 0 #line 2468 "regression-compile-tmp/asm6809.imp" OPTR = 0; // 2469 %finish #line 2469 "regression-compile-tmp/asm6809.imp" L_0376:; // 2470 print symbol(char) #line 2470 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(CHAR); // 2471 optr = optr+1 #line 2471 "regression-compile-tmp/asm6809.imp" OPTR = (((int)(OPTR)) + (1)); // 2472 %finish #line 2472 "regression-compile-tmp/asm6809.imp" L_0374:; // 2473 %end #line 2473 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block OUTSYMBOL at level 2 // 2474 !----------------------------------------------------------------------- // 2475 %routine fault(%string(63) s) #line 2475 "regression-compile-tmp/asm6809.imp" void FAULT( _imp_string /*%string(63)*/ S ) #line 2475 "regression-compile-tmp/asm6809.imp" { // 2476 // 2477 faults=faults+1 #line 2477 "regression-compile-tmp/asm6809.imp" FAULTS = (((int)(FAULTS)) + (1)); // 2478 %unless eflag=0 %start #line 2478 "regression-compile-tmp/asm6809.imp" if (((EFLAG) == (0))) goto L_0378; // 2479 print string("**** ".s.". ****") #line 2479 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("**** "),(_imp_string)S),(_imp_string)_imp_str_literal(". ****"))); // 2480 nline(1) #line 2480 "regression-compile-tmp/asm6809.imp" NLINE(1); // 2481 %finish #line 2481 "regression-compile-tmp/asm6809.imp" L_0378:; // 2482 %end #line 2482 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 2 // 2483 !----------------------------------------------------------------------- // 2484 %routine nline(%integer n) #line 2484 "regression-compile-tmp/asm6809.imp" void NLINE( int N ) #line 2484 "regression-compile-tmp/asm6809.imp" { // 2485 %own %integer line on page = lines on page+1, page no = 0 #line 2485 "regression-compile-tmp/asm6809.imp" static int LINEONPAGE = 67; #line 2485 "regression-compile-tmp/asm6809.imp" static int PAGENO = 0; // 2486 // 2487 %unless n<0 %start #line 2487 "regression-compile-tmp/asm6809.imp" if (((N) < (0))) goto L_0379; // 2488 %if line on page+pflag+n>lines on page %start #line 2488 "regression-compile-tmp/asm6809.imp" if ((((((int)((((int)(LINEONPAGE)) + (PFLAG)))) + (N))) <= (66))) goto L_037a; // 2489 page no = page no+1 #line 2489 "regression-compile-tmp/asm6809.imp" PAGENO = (((int)(PAGENO)) + (1)); // 2490 %unless n=0 %start #line 2490 "regression-compile-tmp/asm6809.imp" if (((N) == (0))) goto L_037b; // 2491 %if line on page=lines on page %start #line 2491 "regression-compile-tmp/asm6809.imp" if (((LINEONPAGE) != (66))) goto L_037c; // 2492 new line #line 2492 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2493 %else #line 2493 "regression-compile-tmp/asm6809.imp" goto L_037d; #line 2493 "regression-compile-tmp/asm6809.imp" L_037c:; // 2494 print symbol(12) #line 2494 "regression-compile-tmp/asm6809.imp" _imp_PRINTSYMBOL(12); // 2495 %finish #line 2495 "regression-compile-tmp/asm6809.imp" L_037d:; // 2496 %finish #line 2496 "regression-compile-tmp/asm6809.imp" L_037b:; // 2497 %if pflag=0 %start #line 2497 "regression-compile-tmp/asm6809.imp" if (((PFLAG) != (0))) goto L_037e; // 2498 line on page = 1 #line 2498 "regression-compile-tmp/asm6809.imp" LINEONPAGE = 1; // 2499 %else #line 2499 "regression-compile-tmp/asm6809.imp" goto L_037f; #line 2499 "regression-compile-tmp/asm6809.imp" L_037e:; // 2500 new line #line 2500 "regression-compile-tmp/asm6809.imp" _imp_NEWLINE(); // 2501 print string(" Motorola M6809 Assembler ") #line 2501 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" Motorola M6809 Assembler ")); // 2502 spaces((line width-37-length(header))//2) #line 2502 "regression-compile-tmp/asm6809.imp" _imp_SPACES(((long)((long)(((((unsigned char)(41)) - (*_imp_LENGTH(&HEADER))))) / (long)((int)(2))))); // 2503 print string(header) #line 2503 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(HEADER); // 2504 spaces((line width-36-length(header))//2) #line 2504 "regression-compile-tmp/asm6809.imp" _imp_SPACES(((long)((long)(((((unsigned char)(42)) - (*_imp_LENGTH(&HEADER))))) / (long)((int)(2))))); // 2505 print string(" Page") #line 2505 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(_imp_str_literal(" Page")); // 2506 write(page no, 2) #line 2506 "regression-compile-tmp/asm6809.imp" _imp_WRITE(PAGENO, 2); // 2507 new lines(2) #line 2507 "regression-compile-tmp/asm6809.imp" _imp_NEWLINES(2); // 2508 line on page = 4 #line 2508 "regression-compile-tmp/asm6809.imp" LINEONPAGE = 4; // 2509 %finish #line 2509 "regression-compile-tmp/asm6809.imp" L_037f:; // 2510 %else #line 2510 "regression-compile-tmp/asm6809.imp" goto L_0380; #line 2510 "regression-compile-tmp/asm6809.imp" L_037a:; // 2511 new lines(n) #line 2511 "regression-compile-tmp/asm6809.imp" _imp_NEWLINES(N); // 2512 line on page = line on page+n #line 2512 "regression-compile-tmp/asm6809.imp" LINEONPAGE = (((int)(LINEONPAGE)) + (N)); // 2513 %finish #line 2513 "regression-compile-tmp/asm6809.imp" L_0380:; // 2514 %finish #line 2514 "regression-compile-tmp/asm6809.imp" L_0379:; // 2515 %end #line 2515 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block NLINE at level 2 // 2516 !----------------------------------------------------------------------- // 2517 %routine print number(%integer n,d) #line 2517 "regression-compile-tmp/asm6809.imp" void PRINTNUMBER( int N, int D ) #line 2517 "regression-compile-tmp/asm6809.imp" { // 2518 %conststring(1)%array h(0:15)="0","1","2","3","4","5","6","7","8","9", #line 2518 "regression-compile-tmp/asm6809.imp" const _imp_string /*%string(1)*/ H[16] = { _imp_str_literal("0"), _imp_str_literal("1"), _imp_str_literal("2"), _imp_str_literal("3"), _imp_str_literal("4"), _imp_str_literal("5"), _imp_str_literal("6"), _imp_str_literal("7"), _imp_str_literal("8"), _imp_str_literal("9"), _imp_str_literal("A"), _imp_str_literal("B"), _imp_str_literal("C"), _imp_str_literal("D"), _imp_str_literal("E"), _imp_str_literal("F"), }; // 2519 "A","B","C","D","E","F" // 2520 %integer model, nn #line 2520 "regression-compile-tmp/asm6809.imp" int MODEL; #line 2520 "regression-compile-tmp/asm6809.imp" int NN; // 2521 %string(6) s #line 2521 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(6)*/ S; // 2522 // 2523 model = 1<<(d*8-1) #line 2523 "regression-compile-tmp/asm6809.imp" MODEL = ((1) << ((((int)((((int)(D)) * (8)))) - (1)))); // 2524 s="" #line 2524 "regression-compile-tmp/asm6809.imp" S = _imp_str_literal(""); // 2525 %cycle #line 2525 "regression-compile-tmp/asm6809.imp" L_0381:; // 2526 model =(model>>1)//drad #line 2526 "regression-compile-tmp/asm6809.imp" MODEL = (long)((long)(((int)((((unsigned int)(MODEL)) >> (1))))) / (long)((int)(_Z(DRAD)))); // 2527 nn = (n>>1)//drad #line 2527 "regression-compile-tmp/asm6809.imp" NN = (long)((long)(((int)((((unsigned int)(N)) >> (1))))) / (long)((int)(_Z(DRAD)))); // 2528 s=h(n-((nn*drad)<<1)).s #line 2528 "regression-compile-tmp/asm6809.imp" S = _imp_join((_imp_string)H[((N) - ((int)((((((int)(NN)) * (DRAD))) << (1)))))],(_imp_string)S); // 2529 n = nn #line 2529 "regression-compile-tmp/asm6809.imp" N = NN; // 2530 %repeat %until model=0 #line 2530 "regression-compile-tmp/asm6809.imp" if (((MODEL) == (0))) goto L_0382; #line 2530 "regression-compile-tmp/asm6809.imp" goto L_0381; #line 2530 "regression-compile-tmp/asm6809.imp" L_0382:; // 2531 print string(s) #line 2531 "regression-compile-tmp/asm6809.imp" _imp_PRINTSTRING(S); // 2532 %end #line 2532 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTNUMBER at level 2 // 2533 !----------------------------------------------------------------------- // 2534 %routine sqs(%integer l, r) #line 2534 "regression-compile-tmp/asm6809.imp" void SQS( int L, int R ) #line 2534 "regression-compile-tmp/asm6809.imp" { // 2535 %integer nass key, nval key, xhead key, lp, rp, i #line 2535 "regression-compile-tmp/asm6809.imp" int NASSKEY; #line 2535 "regression-compile-tmp/asm6809.imp" int NVALKEY; #line 2535 "regression-compile-tmp/asm6809.imp" int XHEADKEY; #line 2535 "regression-compile-tmp/asm6809.imp" int LP; #line 2535 "regression-compile-tmp/asm6809.imp" int RP; #line 2535 "regression-compile-tmp/asm6809.imp" int I; // 2536 %string(6) name key #line 2536 "regression-compile-tmp/asm6809.imp" _imp_string /*%string(6)*/ NAMEKEY; // 2537 // 2538 %return %unless linsert limit %cycle #line 2539 "regression-compile-tmp/asm6809.imp" L_0385:; #line 2539 "regression-compile-tmp/asm6809.imp" if ((((((int)(R)) - (L))) <= (10))) goto L_0386; // 2540 lp = l #line 2540 "regression-compile-tmp/asm6809.imp" LP = L; // 2541 rp = r+1 #line 2541 "regression-compile-tmp/asm6809.imp" RP = (((int)(R)) + (1)); // 2542 name key = name(l) #line 2542 "regression-compile-tmp/asm6809.imp" NAMEKEY = NAME[(((int)(L)) - (1))]; // 2543 nass key = nass(l) #line 2543 "regression-compile-tmp/asm6809.imp" NASSKEY = NASS[(((int)(L)) - (1))]; // 2544 nval key = nval(l) #line 2544 "regression-compile-tmp/asm6809.imp" NVALKEY = NVAL[(((int)(L)) - (1))]; // 2545 xhead key = xhead(l) #line 2545 "regression-compile-tmp/asm6809.imp" XHEADKEY = XHEAD[(((int)(L)) - (1))]; // 2546 %cycle #line 2546 "regression-compile-tmp/asm6809.imp" L_0388:; // 2547 rp = rp-1 %until rp=lp %or name key>name(rp) #line 2547 "regression-compile-tmp/asm6809.imp" L_038b:; #line 2547 "regression-compile-tmp/asm6809.imp" RP = (((int)(RP)) - (1)); #line 2547 "regression-compile-tmp/asm6809.imp" if (((RP) == (LP))) goto L_038c; #line 2547 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(NAMEKEY, NAME[(((int)(RP)) - (1))]) > 0)) goto L_038c; #line 2547 "regression-compile-tmp/asm6809.imp" goto L_038b; #line 2547 "regression-compile-tmp/asm6809.imp" L_038c:; // 2548 %exit %if lp=rp #line 2548 "regression-compile-tmp/asm6809.imp" if (((LP) != (RP))) goto L_038e; #line 2548 "regression-compile-tmp/asm6809.imp" goto L_0389; #line 2548 "regression-compile-tmp/asm6809.imp" L_038e:; // 2549 name(lp) = name(rp) #line 2549 "regression-compile-tmp/asm6809.imp" NAME[(((int)(LP)) - (1))] = NAME[(((int)(RP)) - (1))]; // 2550 nass(lp) = nass(rp) #line 2550 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LP)) - (1))] = NASS[(((int)(RP)) - (1))]; // 2551 nval(lp) = nval(rp) #line 2551 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LP)) - (1))] = NVAL[(((int)(RP)) - (1))]; // 2552 xhead(lp) = xhead(rp) #line 2552 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(LP)) - (1))] = XHEAD[(((int)(RP)) - (1))]; // 2553 lp = lp+1 %until rp=lp %or name key<=name(lp) #line 2553 "regression-compile-tmp/asm6809.imp" L_038f:; #line 2553 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) + (1)); #line 2553 "regression-compile-tmp/asm6809.imp" if (((RP) == (LP))) goto L_0390; #line 2553 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(NAMEKEY, NAME[(((int)(LP)) - (1))]) <= 0)) goto L_0390; #line 2553 "regression-compile-tmp/asm6809.imp" goto L_038f; #line 2553 "regression-compile-tmp/asm6809.imp" L_0390:; // 2554 %exit %if lp=rp #line 2554 "regression-compile-tmp/asm6809.imp" if (((LP) != (RP))) goto L_0392; #line 2554 "regression-compile-tmp/asm6809.imp" goto L_0389; #line 2554 "regression-compile-tmp/asm6809.imp" L_0392:; // 2555 name(rp) = name(lp) #line 2555 "regression-compile-tmp/asm6809.imp" NAME[(((int)(RP)) - (1))] = NAME[(((int)(LP)) - (1))]; // 2556 nass(rp) = nass(lp) #line 2556 "regression-compile-tmp/asm6809.imp" NASS[(((int)(RP)) - (1))] = NASS[(((int)(LP)) - (1))]; // 2557 nval(rp) = nval(lp) #line 2557 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(RP)) - (1))] = NVAL[(((int)(LP)) - (1))]; // 2558 xhead(rp) = xhead(lp) #line 2558 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(RP)) - (1))] = XHEAD[(((int)(LP)) - (1))]; // 2559 %repeat #line 2559 "regression-compile-tmp/asm6809.imp" goto L_0388; #line 2559 "regression-compile-tmp/asm6809.imp" L_0389:; // 2560 name(lp) = name key #line 2560 "regression-compile-tmp/asm6809.imp" NAME[(((int)(LP)) - (1))] = NAMEKEY; // 2561 nass(lp) = nass key #line 2561 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LP)) - (1))] = NASSKEY; // 2562 nval(lp) = nval key #line 2562 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LP)) - (1))] = NVALKEY; // 2563 xhead(lp) = xhead key #line 2563 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(LP)) - (1))] = XHEADKEY; // 2564 %if lp-l>r-rp %start #line 2564 "regression-compile-tmp/asm6809.imp" if ((((((int)(LP)) - (L))) <= ((((int)(R)) - (RP))))) goto L_0393; // 2565 sqs(rp+1, r) #line 2565 "regression-compile-tmp/asm6809.imp" SQS((((int)(RP)) + (1)), R); // 2566 r = lp-1 #line 2566 "regression-compile-tmp/asm6809.imp" R = (((int)(LP)) - (1)); // 2567 %else #line 2567 "regression-compile-tmp/asm6809.imp" goto L_0394; #line 2567 "regression-compile-tmp/asm6809.imp" L_0393:; // 2568 sqs(l, lp-1) #line 2568 "regression-compile-tmp/asm6809.imp" SQS(L, (((int)(LP)) - (1))); // 2569 l = rp+1 #line 2569 "regression-compile-tmp/asm6809.imp" L = (((int)(RP)) + (1)); // 2570 %finish #line 2570 "regression-compile-tmp/asm6809.imp" L_0394:; // 2571 %repeat #line 2571 "regression-compile-tmp/asm6809.imp" goto L_0385; #line 2571 "regression-compile-tmp/asm6809.imp" L_0386:; // 2572 %for rp = l+1, 1, r %cycle #line 2572 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(L)) + (1)); _increment = 1; _final = R; RP = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle RP = (((int)(L)) + (1)), 1, R"); RP -= _increment; _control -= _increment; L_0395:; if (RP == _final) goto L_0396; RP += _increment; _control += _increment; if (RP != _control) _imp_signal(4,2,0,"Corrupt control variable RP"); /* FOR loop control variable corrupted */ } // 2573 name key = name(rp) #line 2573 "regression-compile-tmp/asm6809.imp" NAMEKEY = NAME[(((int)(RP)) - (1))]; // 2574 nass key = nass(rp) #line 2574 "regression-compile-tmp/asm6809.imp" NASSKEY = NASS[(((int)(RP)) - (1))]; // 2575 nval key = nval(rp) #line 2575 "regression-compile-tmp/asm6809.imp" NVALKEY = NVAL[(((int)(RP)) - (1))]; // 2576 xhead key = xhead(rp) #line 2576 "regression-compile-tmp/asm6809.imp" XHEADKEY = XHEAD[(((int)(RP)) - (1))]; // 2577 lp = l #line 2577 "regression-compile-tmp/asm6809.imp" LP = L; // 2578 lp = lp+1 %while lp#rp %and name key>name(lp) #line 2578 "regression-compile-tmp/asm6809.imp" L_0398:; #line 2578 "regression-compile-tmp/asm6809.imp" if (((LP) == (RP))) goto L_0399; #line 2578 "regression-compile-tmp/asm6809.imp" if ((_imp_strcmp(NAMEKEY, NAME[(((int)(LP)) - (1))]) <= 0)) goto L_0399; #line 2578 "regression-compile-tmp/asm6809.imp" LP = (((int)(LP)) + (1)); #line 2578 "regression-compile-tmp/asm6809.imp" goto L_0398; #line 2578 "regression-compile-tmp/asm6809.imp" L_0399:; // 2579 %for i = rp-1, -1, lp %cycle #line 2579 "regression-compile-tmp/asm6809.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(RP)) - (1)); _increment = (-1); _final = LP; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(RP)) - (1)), (-1), LP"); I -= _increment; _control -= _increment; L_039b:; if (I == _final) goto L_039c; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 2580 name(i+1) = name(i) #line 2580 "regression-compile-tmp/asm6809.imp" NAME[(((int)((((int)(I)) + (1)))) - (1))] = NAME[(((int)(I)) - (1))]; // 2581 nass(i+1) = nass(i) #line 2581 "regression-compile-tmp/asm6809.imp" NASS[(((int)((((int)(I)) + (1)))) - (1))] = NASS[(((int)(I)) - (1))]; // 2582 nval(i+1) = nval(i) #line 2582 "regression-compile-tmp/asm6809.imp" NVAL[(((int)((((int)(I)) + (1)))) - (1))] = NVAL[(((int)(I)) - (1))]; // 2583 xhead(i+1) = xhead(i) #line 2583 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)((((int)(I)) + (1)))) - (1))] = XHEAD[(((int)(I)) - (1))]; // 2584 %repeat #line 2584 "regression-compile-tmp/asm6809.imp" goto L_039b; #line 2584 "regression-compile-tmp/asm6809.imp" L_039c:; // 2585 name(lp) = name key #line 2585 "regression-compile-tmp/asm6809.imp" NAME[(((int)(LP)) - (1))] = NAMEKEY; // 2586 nass(lp) = nass key #line 2586 "regression-compile-tmp/asm6809.imp" NASS[(((int)(LP)) - (1))] = NASSKEY; // 2587 nval(lp) = nval key #line 2587 "regression-compile-tmp/asm6809.imp" NVAL[(((int)(LP)) - (1))] = NVALKEY; // 2588 xhead(lp) = xhead key #line 2588 "regression-compile-tmp/asm6809.imp" XHEAD[(((int)(LP)) - (1))] = XHEADKEY; // 2589 %repeat #line 2589 "regression-compile-tmp/asm6809.imp" goto L_0395; #line 2589 "regression-compile-tmp/asm6809.imp" L_0396:; // 2590 %end #line 2590 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SQS at level 2 // 2591 !----------------------------------------------------------------------- // 2592 %end %of %program #line 2592 "regression-compile-tmp/asm6809.imp" /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 #line 2592 "regression-compile-tmp/asm6809.imp" // End of file