#include <perms.h>

                                                                //      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 1762 "regression-compile-tmp/asm6809.imp"
*A = ((*A) << (B));
                                                                //   1763     %finish %else %if op='>' %start
#line 1763 "regression-compile-tmp/asm6809.imp"
goto L_0227;
#line 1763 "regression-compile-tmp/asm6809.imp"
L_022f:;
#line 1763 "regression-compile-tmp/asm6809.imp"
if (((OP) != (62))) goto L_0230;
                                                                //   1764        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(&REG))) 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 l<r
#line 2538 "regression-compile-tmp/asm6809.imp"
if (((L) < (R))) goto L_0384;
#line 2538 "regression-compile-tmp/asm6809.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2538 "regression-compile-tmp/asm6809.imp"
L_0384:;
                                                                //   2539     %while r-l>insert 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
