339 lines
9.4 KiB
C
339 lines
9.4 KiB
C
|
/* ===========================================================================
|
||
|
|
* uz80as, an assembler for the Zilog Z80 and several other microprocessors.
|
||
|
|
*
|
||
|
|
* Motorola 6800, 6801.
|
||
|
|
* ===========================================================================
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "pp.h"
|
||
|
|
#include "err.h"
|
||
|
|
#include "options.h"
|
||
|
|
#include "uz80as.h"
|
||
|
|
#include <stddef.h>
|
||
|
|
|
||
|
|
/* pat:
|
||
|
|
* a: expr
|
||
|
|
* b: NEGA,COMA,LSRA,RORA,ASRA,
|
||
|
|
* ROLA,DECA,INCA,TSTA,CLRA
|
||
|
|
* c: NEGB,COMB,LSRB,RORB,ASRB,
|
||
|
|
* ROLB,DECB,INCB,TSTB,CLRB
|
||
|
|
* d: NEG,COM,LSR,ROR,ASR,
|
||
|
|
* ROL,DEC,INC,TST,JMP,CLR
|
||
|
|
* e: SUBA,CMPA,SBCA,ANDA,BITA,LDAA,
|
||
|
|
* EORA,ADCA,ORAA,ADDA
|
||
|
|
* f: SUBB,CMPB,SBCB,ANDB,BITB,LDAB,
|
||
|
|
* EORB,ADCB,ORAB,ADDB
|
||
|
|
* g: INX,DEX,CLV,SEV,CLC,SEC,CLI,SEI
|
||
|
|
* h: BRA,BHI,BLS,BCC,BCS,BNE,BEQ,
|
||
|
|
* BVC,BVS,BPL,BMI,BGE,BLT,BGT,BLE
|
||
|
|
* i: TSX,INS,PULA,PULB,DES,TXS,PSHA,
|
||
|
|
* PSHB,RTS,RTI,WAI,SWI
|
||
|
|
*
|
||
|
|
* gen:
|
||
|
|
* .: output lastbyte
|
||
|
|
* b: (op << 3) | lastbyte
|
||
|
|
* c: op | lastbyte
|
||
|
|
* d: lastbyte = op as 8 bit value
|
||
|
|
* e: output op as word (no '.' should follow)
|
||
|
|
* f: ouput op as big endian word (no '.' should follow)
|
||
|
|
* g: if op<=$ff output lastbyte and output op as byte
|
||
|
|
* else output (lastbyte | 0x20) and output op as big endian word
|
||
|
|
* (no '.' should follow)
|
||
|
|
* h: relative - 2
|
||
|
|
* i: relative - 4
|
||
|
|
* i: relative - 5
|
||
|
|
*/
|
||
|
|
|
||
|
|
static const struct matchtab s_matchtab_mc6800[] = {
|
||
|
|
{ "NOP", "01.", 1, 0 },
|
||
|
|
{ "TAP", "06.", 1, 0 },
|
||
|
|
{ "TPA", "07.", 1, 0 },
|
||
|
|
{ "g", "08c0.", 1, 0 },
|
||
|
|
{ "SBA", "10.", 1, 0 },
|
||
|
|
{ "CBA", "11.", 1, 0 },
|
||
|
|
{ "TAB", "16.", 1, 0 },
|
||
|
|
{ "TBA", "17.", 1, 0 },
|
||
|
|
{ "DAA", "19.", 1, 0 },
|
||
|
|
{ "ABA", "1B.", 1, 0 },
|
||
|
|
{ "i", "30c0.", 1, 0 },
|
||
|
|
{ "h a", "20c0.h1.", 1, 0, "r8" },
|
||
|
|
{ "b", "40c0.", 1, 0 },
|
||
|
|
{ "c", "50c0.", 1, 0 },
|
||
|
|
{ "d a,X", "60c0.d1.", 1, 0, "e8" },
|
||
|
|
{ "d a,Y", "18.60c0.d1.", 8, 0, "e8" },
|
||
|
|
{ "d a", "70c0.f1", 1, 0, "e16" },
|
||
|
|
{ "e #a", "80c0.d1.", 1, 0, "e8" },
|
||
|
|
{ "f #a", "C0c0.d1.", 1, 0, "e8" },
|
||
|
|
{ "e >a", "B0c0.f1", 1, 0, "e16" },
|
||
|
|
{ "f >a", "F0c0.f1", 1, 0, "e16" },
|
||
|
|
{ "e a,X", "A0c0.d1.", 1, 0, "e8" },
|
||
|
|
{ "f a,X", "E0c0.d1.", 1, 0, "e8" },
|
||
|
|
{ "e a,Y", "18.A0c0.d1.", 8, 0, "e8" },
|
||
|
|
{ "f a,Y", "18.E0c0.d1.", 8, 0, "e8" },
|
||
|
|
{ "e a", "90c0g1", 1, 0 },
|
||
|
|
{ "f a", "D0c0g1", 1, 0 },
|
||
|
|
{ "STAA >a", "B7.f0", 1, 0, "e16" },
|
||
|
|
{ "STAA a,X", "A7.d0.", 1, 0, "e8" },
|
||
|
|
{ "STAA a,Y", "18.A7.d0.", 8, 0, "e8" },
|
||
|
|
{ "STAA a", "97g0", 1, 0 },
|
||
|
|
{ "STAB >a", "F7.f0", 1, 0, "e16" },
|
||
|
|
{ "STAB a,X", "E7.d0.", 1, 0, "e8" },
|
||
|
|
{ "STAB a,Y", "18.E7.d0.", 8, 0, "e8" },
|
||
|
|
{ "STAB a", "D7g0", 1, 0 },
|
||
|
|
{ "CPX #a", "8C.f0", 1, 0, "e16" },
|
||
|
|
{ "CPX >a", "BC.f0", 1, 0, "e16" },
|
||
|
|
{ "CPX a,X", "AC.d0.", 1, 0, "e8" },
|
||
|
|
{ "CPX a,Y", "CD.AC.d0.", 8, 0, "e8" },
|
||
|
|
{ "CPX a", "9Cg0", 1, 0 },
|
||
|
|
{ "LDS #a", "8E.f0", 1, 0, "e16" },
|
||
|
|
{ "LDS >a", "BE.f0", 1, 0, "e16" },
|
||
|
|
{ "LDS a,X", "AE.d0.", 1, 0, "e8" },
|
||
|
|
{ "LDS a,Y", "18.AE.d0.", 8, 0, "e8" },
|
||
|
|
{ "LDS a", "9Eg0", 1, 0 },
|
||
|
|
{ "STS >a", "BF.f0", 1, 0, "e16" },
|
||
|
|
{ "STS a,X", "AF.d0.", 1, 0, "e8" },
|
||
|
|
{ "STS a,Y", "18.AF.d0.", 8, 0, "e8" },
|
||
|
|
{ "STS a", "9Fg0", 1, 0 },
|
||
|
|
{ "LDX #a", "CE.f0", 1, 0, "e16" },
|
||
|
|
{ "LDX >a", "FE.f0", 1, 0, "e16" },
|
||
|
|
{ "LDX a,X", "EE.d0.", 1, 0, "e8" },
|
||
|
|
{ "LDX a,Y", "CD.EE.d0.", 8, 0, "e8" },
|
||
|
|
{ "LDX a", "DEg0", 1, 0 },
|
||
|
|
{ "STX >a", "FF.f0", 1, 0, "e16" },
|
||
|
|
{ "STX a,X", "EF.d0.", 1, 0, "e8" },
|
||
|
|
{ "STX a,Y", "CD.EF.d0.", 8, 0, "e8" },
|
||
|
|
{ "STX a", "DFg0", 1, 0 },
|
||
|
|
{ "BSR a", "8D.h0.", 1, 0, "r8" },
|
||
|
|
{ "JSR >a", "BD.f0", 4, 0, "e16" },
|
||
|
|
{ "JSR a,X", "AD.d0.", 1, 0, "e8" },
|
||
|
|
{ "JSR a,Y", "18.AD.d0.", 8, 0, "e8" },
|
||
|
|
{ "JSR a", "BD.f0", 2, 0, "e16" },
|
||
|
|
{ "JSR a", "9Dg0", 4, 0 },
|
||
|
|
{ "ABX", "3A.", 4, 0 },
|
||
|
|
{ "ADDD #a", "C3.f0", 4, 0, "e16" },
|
||
|
|
{ "ADDD >a", "F3.f0", 4, 0, "e16" },
|
||
|
|
{ "ADDD a,X", "E3.d0.", 4, 0, "e8" },
|
||
|
|
{ "ADDD a,Y", "18.E3.d0.", 8, 0, "e8" },
|
||
|
|
{ "ADDD a", "D3g0", 4, 0 },
|
||
|
|
{ "ASLD", "05.", 4, 0 },
|
||
|
|
{ "LSLD", "05.", 4, 0 },
|
||
|
|
{ "BHS a", "24.h0.", 4, 0, "r8" },
|
||
|
|
{ "BLO a", "25.h0.", 4, 0, "r8" },
|
||
|
|
{ "BRN a", "21.h0.", 4, 0, "r8" },
|
||
|
|
{ "LDD #a", "CC.f0", 4, 0, "e16" },
|
||
|
|
{ "LDD >a", "FC.f0", 4, 0, "e16" },
|
||
|
|
{ "LDD a,X", "EC.d0.", 4, 0, "e8" },
|
||
|
|
{ "LDD a,Y", "18.EC.d0.", 8, 0, "e8" },
|
||
|
|
{ "LDD a", "DCg0", 4, 0 },
|
||
|
|
{ "LSL a,X", "68.d0.", 4, 0, "e8" },
|
||
|
|
{ "LSL a,Y", "18.68.d0.", 8, 0, "e8" },
|
||
|
|
{ "LSL a", "78.f0", 4, 0, "e16" },
|
||
|
|
{ "LSRD", "04.", 4, 0 },
|
||
|
|
{ "MUL", "3D.", 4, 0 },
|
||
|
|
{ "PSHX", "3C.", 4, 0 },
|
||
|
|
{ "PSHY", "18.3C.", 8, 0 },
|
||
|
|
{ "PULX", "38.", 4, 0 },
|
||
|
|
{ "PULY", "18.38.", 8, 0 },
|
||
|
|
{ "STD >a", "FD.f0", 4, 0, "e16" },
|
||
|
|
{ "STD a,X", "ED.d0.", 4, 0, "e8" },
|
||
|
|
{ "STD a,Y", "18.ED.d0.", 8, 0, "e8" },
|
||
|
|
{ "STD a", "DDg0", 4, 0 },
|
||
|
|
{ "SUBD #a", "83.f0", 4, 0, "e16" },
|
||
|
|
{ "SUBD >a", "B3.f0", 4, 0, "e16" },
|
||
|
|
{ "SUBD a,X", "A3.d0.", 4, 0, "e8" },
|
||
|
|
{ "SUBD a,Y", "18.A3.d0.", 8, 0, "e8" },
|
||
|
|
{ "SUBD a", "93g0", 4, 0 },
|
||
|
|
{ "TEST", "00.", 8, 0 },
|
||
|
|
{ "IDIV", "02.", 8, 0 },
|
||
|
|
{ "FDIV", "03.", 8, 0 },
|
||
|
|
{ "BRSET a,X,a,a", "1E.d0.d1.i2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BRSET a,Y,a,a", "18.1E.d0.d1.j2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BRSET a,a,a", "12.d0.d1.i2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BRCLR a,X,a,a", "1F.d0.d1.i2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BRCLR a,Y,a,a", "18.1F.d0.d1.j2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BRCLR a,a,a", "13.d0.d1.i2.", 8, 0, "e8e8r8" },
|
||
|
|
{ "BSET a,X,a", "1C.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "BSET a,Y,a", "18.1C.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "BSET a,a", "14.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "BCLR a,X,a", "1D.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "BCLR a,Y,a", "18.1D.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "BCLR a,a", "15.d0.d1.", 8, 0, "e8e8" },
|
||
|
|
{ "LSLA", "48.", 8, 0 },
|
||
|
|
{ "LSLB", "58.", 8, 0 },
|
||
|
|
{ "XGDX", "8F.", 8, 0 },
|
||
|
|
{ "STOP", "CF.", 8, 0 },
|
||
|
|
{ "ABY", "18.3A.", 8, 0 },
|
||
|
|
{ "CPY #a", "18.8C.f0", 8, 0, "e16" },
|
||
|
|
{ "CPY >a", "18.BC.f0", 8, 0, "e16" },
|
||
|
|
{ "CPY a,X", "1A.AC.d0.", 8, 0, "e8" },
|
||
|
|
{ "CPY a,Y", "18.AC.d0.", 8, 0, "e8" },
|
||
|
|
{ "CPY a", "18.9Cg0", 8, 0 },
|
||
|
|
{ "DEY", "18.09.", 8, 0 },
|
||
|
|
{ "INY", "18.08.", 8, 0 },
|
||
|
|
{ "LDY #a", "18.CE.f0", 8, 0, "e16" },
|
||
|
|
{ "LDY >a", "18.FE.f0", 8, 0, "e16" },
|
||
|
|
{ "LDY a,X", "1A.EE.d0.", 8, 0, "e8" },
|
||
|
|
{ "LDY a,Y", "18.EE.d0.", 8, 0, "e8" },
|
||
|
|
{ "LDY a", "18.DEg0", 8, 0 },
|
||
|
|
{ "STY >a", "18.FF.f0", 8, 0, "e16" },
|
||
|
|
{ "STY a,X", "1A.EF.d0.", 8, 0, "e8" },
|
||
|
|
{ "STY a,Y", "18.EF.d0.", 8, 0, "e8" },
|
||
|
|
{ "STY a", "18.DFg0", 8, 0 },
|
||
|
|
{ "TSY", "18.30.", 8, 0 },
|
||
|
|
{ "TYS", "18.35.", 8, 0 },
|
||
|
|
{ "XGDY", "18.8F.", 8, 0 },
|
||
|
|
{ "CPD #a", "1A.83.f0", 8, 0, "e16" },
|
||
|
|
{ "CPD >a", "1A.B3.f0", 8, 0, "e16" },
|
||
|
|
{ "CPD a,X", "1A.A3.d0.", 8, 0, "e8" },
|
||
|
|
{ "CPD a,Y", "CD.A3.d0.", 8, 0, "e8" },
|
||
|
|
{ "CPD a", "1A.93g0", 8, 0 },
|
||
|
|
{ NULL, NULL },
|
||
|
|
};
|
||
|
|
|
||
|
|
static const char *const bval[] = {
|
||
|
|
"NEGA", "", "", "COMA", "LSRA", "", "RORA", "ASRA",
|
||
|
|
"ASLA", "ROLA", "DECA", "", "INCA", "TSTA", "", "CLRA",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const cval[] = {
|
||
|
|
"NEGB", "", "", "COMB", "LSRB", "", "RORB", "ASRB",
|
||
|
|
"ASLB", "ROLB", "DECB", "", "INCB", "TSTB", "", "CLRB",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const dval[] = {
|
||
|
|
"NEG", "", "", "COM", "LSR", "", "ROR", "ASR",
|
||
|
|
"ASL", "ROL", "DEC", "", "INC", "TST", "JMP", "CLR",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const eval[] = {
|
||
|
|
"SUBA", "CMPA", "SBCA", "", "ANDA", "BITA", "LDAA", "",
|
||
|
|
"EORA", "ADCA", "ORAA", "ADDA",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const fval[] = {
|
||
|
|
"SUBB", "CMPB", "SBCB", "", "ANDB", "BITB", "LDAB", "",
|
||
|
|
"EORB", "ADCB", "ORAB", "ADDB",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const gval[] = {
|
||
|
|
"INX", "DEX", "CLV", "SEV", "CLC", "SEC", "CLI", "SEI",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const hval[] = {
|
||
|
|
"BRA", "", "BHI", "BLS", "BCC", "BCS", "BNE", "BEQ",
|
||
|
|
"BVC", "BVS", "BPL", "BMI", "BGE", "BLT", "BGT", "BLE",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const ival[] = {
|
||
|
|
"TSX", "INS", "PULA", "PULB", "DES", "TXS", "PSHA",
|
||
|
|
"PSHB", "", "RTS", "", "RTI", "", "", "WAI", "SWI",
|
||
|
|
NULL };
|
||
|
|
|
||
|
|
static const char *const *const valtab[] = {
|
||
|
|
bval, cval, dval, eval, fval,
|
||
|
|
gval, hval, ival
|
||
|
|
};
|
||
|
|
|
||
|
|
static int match_mc6800(char c, const char *p, const char **q)
|
||
|
|
{
|
||
|
|
int v;
|
||
|
|
|
||
|
|
if (c <= 'i') {
|
||
|
|
v = mreg(p, valtab[(int) (c - 'b')], q);
|
||
|
|
} else {
|
||
|
|
v = -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
return v;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int gen_mc6800(int *eb, char p, const int *vs, int i, int savepc)
|
||
|
|
{
|
||
|
|
int b;
|
||
|
|
|
||
|
|
b = *eb;
|
||
|
|
switch (p) {
|
||
|
|
case 'f': genb(vs[i] >> 8, s_pline_ep);
|
||
|
|
genb(vs[i], s_pline_ep);
|
||
|
|
break;
|
||
|
|
case 'g': if (vs[i] <= 255) {
|
||
|
|
genb(b, s_pline_ep);
|
||
|
|
genb(vs[i], s_pline_ep);
|
||
|
|
} else {
|
||
|
|
genb(b | 0x20, s_pline_ep);
|
||
|
|
genb(vs[i] >> 8, s_pline_ep);
|
||
|
|
genb(vs[i], s_pline_ep);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'h': b = (vs[i] - savepc - 2);
|
||
|
|
break;
|
||
|
|
case 'i': b = (vs[i] - savepc - 4);
|
||
|
|
break;
|
||
|
|
case 'j': b = (vs[i] - savepc - 5);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
*eb = b;
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int s_pat_char = 'b';
|
||
|
|
static int s_pat_index;
|
||
|
|
|
||
|
|
static void pat_char_rewind_mc6800(int c)
|
||
|
|
{
|
||
|
|
s_pat_char = c;
|
||
|
|
s_pat_index = 0;
|
||
|
|
};
|
||
|
|
|
||
|
|
static const char *pat_next_str_mc6800(void)
|
||
|
|
{
|
||
|
|
const char *s;
|
||
|
|
|
||
|
|
if (s_pat_char >= 'b' && s_pat_char <= 'i') {
|
||
|
|
s = valtab[(int) (s_pat_char - 'b')][s_pat_index];
|
||
|
|
if (s != NULL) {
|
||
|
|
s_pat_index++;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
s = NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
return s;
|
||
|
|
};
|
||
|
|
|
||
|
|
const struct target s_target_mc6800 = {
|
||
|
|
.id = "mc6800",
|
||
|
|
.descr = "Motorola 6800",
|
||
|
|
.matcht = s_matchtab_mc6800,
|
||
|
|
.matchf = match_mc6800,
|
||
|
|
.genf = gen_mc6800,
|
||
|
|
.pat_char_rewind = pat_char_rewind_mc6800,
|
||
|
|
.pat_next_str = pat_next_str_mc6800,
|
||
|
|
.mask = 3
|
||
|
|
};
|
||
|
|
|
||
|
|
const struct target s_target_mc6801 = {
|
||
|
|
.id = "mc6801",
|
||
|
|
.descr = "Motorola 6801",
|
||
|
|
.matcht = s_matchtab_mc6800,
|
||
|
|
.matchf = match_mc6800,
|
||
|
|
.genf = gen_mc6800,
|
||
|
|
.pat_char_rewind = pat_char_rewind_mc6800,
|
||
|
|
.pat_next_str = pat_next_str_mc6800,
|
||
|
|
.mask = 5
|
||
|
|
};
|
||
|
|
|
||
|
|
const struct target s_target_m68hc11 = {
|
||
|
|
.id = "m68hc11",
|
||
|
|
.descr = "Motorola 68HC11",
|
||
|
|
.matcht = s_matchtab_mc6800,
|
||
|
|
.matchf = match_mc6800,
|
||
|
|
.genf = gen_mc6800,
|
||
|
|
.pat_char_rewind = pat_char_rewind_mc6800,
|
||
|
|
.pat_next_str = pat_next_str_mc6800,
|
||
|
|
.mask = 13
|
||
|
|
};
|