mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
992 lines
26 KiB
C
992 lines
26 KiB
C
|
/* Program to write out opcode tables for the W65816 and friends
|
||
|
Copyright (C) 1995 Free Software Foundation, Inc.
|
||
|
Written by Steve Chamberlain sac@cygnus.com
|
||
|
|
||
|
|
||
|
GDB is free software; you can redistribute it and/or modify
|
||
|
it under the terms of the GNU General Public License as published by
|
||
|
the Free Software Foundation; either version 2, or (at your option)
|
||
|
any later version.
|
||
|
|
||
|
GDB is distributed in the hope that it will be useful,
|
||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
GNU General Public License for more details.
|
||
|
|
||
|
You should have received a copy of the GNU General Public License
|
||
|
along with this program; if not, write to the Free Software
|
||
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||
|
|
||
|
|
||
|
#include <stdio.h>
|
||
|
|
||
|
|
||
|
struct opinfo
|
||
|
{
|
||
|
int code;
|
||
|
char *opcode;
|
||
|
char *mode;
|
||
|
int clocks;
|
||
|
int cpu;
|
||
|
struct ainfo *ai;
|
||
|
struct oinfo *oi;
|
||
|
};
|
||
|
|
||
|
#define W16_ONLY 1
|
||
|
#define C02_ONLY 2
|
||
|
|
||
|
struct ainfo
|
||
|
{
|
||
|
char *name;
|
||
|
char *enumname;
|
||
|
char *disasmstring;
|
||
|
char *sizer;
|
||
|
char *reloc0;
|
||
|
char *howlval;
|
||
|
|
||
|
/* If addr val could be reg addr - used for disasssmbly of
|
||
|
args into reg names - you want lda <0x10 to turn into lda <r0
|
||
|
but you don't want lda #0x10 to do the same. */
|
||
|
char regflag;
|
||
|
};
|
||
|
|
||
|
#define GET_M 1
|
||
|
#define SPECIAL_CASE 2
|
||
|
#define COP_GET 3
|
||
|
#define G2_GET 4
|
||
|
#define BRANCH 5
|
||
|
#define GET_X 6
|
||
|
#define STANDARD_PC_GET 7
|
||
|
#define PUSH_16 8
|
||
|
#define PUSH_8 9
|
||
|
#define PUSH_X 10
|
||
|
#define PUSH_M 11
|
||
|
#define POP_16 12
|
||
|
#define POP_8 13
|
||
|
#define POP_X 14
|
||
|
#define POP_M 15
|
||
|
#define STORE_M 16
|
||
|
#define STORE_X 17
|
||
|
struct oinfo
|
||
|
{
|
||
|
char *name;
|
||
|
int howsrc;
|
||
|
char *howto;
|
||
|
};
|
||
|
struct oinfo olist[] =
|
||
|
{
|
||
|
{"adc", GET_M, "{ int old_acc = GET_A; int old_src =src; src = old_src + old_acc + GET_CBIT; SET_NBIT_M(src); SET_VBIT_M(old_src, old_acc, src); SET_CBIT_M(src); SET_ZBIT_M(src); SET_A(src);}"},
|
||
|
{"and", GET_M, "src = GET_A & src; SET_NBIT_M(src); SET_ZBIT_M(src);SET_A(src);"},
|
||
|
{"asl", G2_GET, " src <<=1; SET_CBIT_M(src); SET_ZBIT_M(src);SET_NBIT_M(src);"},
|
||
|
{"bcc", BRANCH, "GET_CBIT==0"},
|
||
|
{"bcs", BRANCH, "GET_CBIT==1"},
|
||
|
{"beq", BRANCH, "GET_ZBIT==1"},
|
||
|
{"bit", GET_M, "SET_NBIT_M(src); SET_VBIT((src >> (GET_MBIT ? 6:14 ) &1)); SET_ZBIT_M (GET_A & src);"},
|
||
|
{"bmi", BRANCH, "GET_NBIT==1"},
|
||
|
{"bne", BRANCH, "GET_ZBIT==0"},
|
||
|
{"bpl", BRANCH, "GET_NBIT==0"},
|
||
|
{"bra", BRANCH, "1"},
|
||
|
{"brk", SPECIAL_CASE,
|
||
|
"\
|
||
|
{\
|
||
|
if (GET_E == 1) \
|
||
|
{ PUSH16(GET_PC + 1); PUSH8 (GET_P | BFLAG); SET_P (GET_P | IFLAG); SET_ONLY_PC(fetch16 (0xfffe));}\
|
||
|
else \
|
||
|
{ PUSH8 (GET_PBR_LOW); PUSH16 (GET_PC); PUSH8(GET_P); SET_P(GET_P |IFLAG); SET_PBRPC(fetch16 (0xffe6));};\
|
||
|
}"},
|
||
|
{"brl", BRANCH, "1"},
|
||
|
{"bvc", BRANCH, "GET_VBIT==0"},
|
||
|
{"bvs", BRANCH, "GET_VBIT==1"},
|
||
|
{"clc", SPECIAL_CASE, "SET_CBIT(0);"},
|
||
|
{"cld", SPECIAL_CASE, "SET_DBIT(0);"},
|
||
|
{"cli", SPECIAL_CASE, "SET_IBIT(0);"},
|
||
|
{"clv", SPECIAL_CASE, "SET_VBIT(0);"},
|
||
|
{"cmp", GET_M, "src = GET_A - src; SET_ZBIT_M(src); SET_CBIT_M(~src); SET_NBIT_M(src);"},
|
||
|
{"cop", COP_GET,
|
||
|
"\
|
||
|
{\
|
||
|
if (GET_E == 1) \
|
||
|
{ PUSH16(GET_PC + 1); PUSH8 (GET_P | BFLAG); SET_P ((GET_P | IFLAG) & ~DFLAG); SET_ONLY_PC(fetch16 (0xfff4));}\
|
||
|
else \
|
||
|
{ PUSH8 (GET_PBR_LOW); PUSH16 (GET_PC); PUSH8(GET_P); SET_P((GET_P |IFLAG) & ~DFLAG); SET_PBRPC(fetch16 (0xffe4));};\
|
||
|
}"},
|
||
|
{"cpx", GET_X, "src = GET_X - src; SET_NBIT_X(src); SET_ZBIT_X(src); SET_CBIT_X(~src);"},
|
||
|
{"cpy", GET_X, "src = GET_Y - src; SET_NBIT_X(src); SET_ZBIT_X(src); SET_CBIT_X(~src);"},
|
||
|
{"dec", G2_GET, "src --; SET_NBIT_M(src); SET_ZBIT_M(src); "},
|
||
|
{"dex", SPECIAL_CASE, "SET_X(GET_X -1); SET_NBIT_X(GET_X); SET_ZBIT_X(GET_X);"},
|
||
|
{"dey", SPECIAL_CASE, "SET_Y(GET_Y -1); SET_NBIT_X(GET_Y); SET_ZBIT_X(GET_Y);"},
|
||
|
{"eor", GET_M, "src = GET_A ^ src; SET_NBIT_M(src); SET_ZBIT_M(src);SET_A(src); "},
|
||
|
{"inc", G2_GET, "src ++; SET_NBIT_M(src); SET_ZBIT_M(src); "},
|
||
|
{"inx", SPECIAL_CASE, "SET_X(GET_X +1); SET_NBIT_X(GET_X); SET_ZBIT_X(GET_X);"},
|
||
|
{"iny", SPECIAL_CASE, "SET_Y(GET_Y +1); SET_NBIT_X(GET_Y); SET_ZBIT_X(GET_Y);"},
|
||
|
{"jmp", STANDARD_PC_GET, "SET_ONLY_PC(lval);"},
|
||
|
{"jsr", STANDARD_PC_GET, "if (l) { PUSH8(GET_PBR_LOW);} PUSH16(GET_PC); SET_ONLY_PC(lval);\n"},
|
||
|
{"lda", GET_M, "SET_A(src); SET_NBIT_M(GET_A); SET_ZBIT_M(GET_A);"},
|
||
|
{"ldx", GET_X, "SET_X(src);SET_NBIT_X(GET_X); SET_ZBIT_X(GET_X);"},
|
||
|
{"ldy", GET_X, "SET_Y(src);SET_NBIT_X(GET_Y); SET_ZBIT_X(GET_Y);"},
|
||
|
{"lsr", G2_GET,
|
||
|
"SET_CBIT(src & 1); \
|
||
|
SET_NBIT(0); \
|
||
|
src = src >> 1; \
|
||
|
SET_ZBIT_M(src);"},
|
||
|
{"mvn", SPECIAL_CASE,
|
||
|
"{ int dst_bank; int src_bank; dst_bank = fetch8 ( GET_PC)<<16; INC_PC(1); src_bank = fetch8 (GET_PC)<<16; INC_PC(1);\
|
||
|
do { store8 ( dst_bank + GET_X, fetch8 (src_bank + GET_Y)); SET_X(GET_X+1); SET_Y(GET_Y+1); SET_A((GET_A-1) & 0xffff); } while (GET_A != 0xffff);}"},
|
||
|
{"mvp", SPECIAL_CASE,
|
||
|
"{ int dst_bank; int src_bank; dst_bank = fetch8 ( GET_PBRPC)<<16; INC_PC(1); src_bank = fetch8 (GET_PBRPC)<<16; INC_PC(1);\
|
||
|
do { store8 ( dst_bank + GET_X, fetch8 (src_bank + GET_Y)); SET_X(GET_X-1); SET_Y(GET_Y-1); SET_A((GET_A-1) & 0xffff); } while (GET_A != 0xffff);}"},
|
||
|
|
||
|
{"nop", SPECIAL_CASE, ""},
|
||
|
{"ora", GET_M, "SET_A(GET_A | src); SET_NBIT_M(GET_A); SET_ZBIT_M(GET_A);"},
|
||
|
{"pea", PUSH_16, "src = fetch16(GET_PBRPC); INC_PC(2);"},
|
||
|
{"pei", PUSH_16, "src = fetch16(fetch8(GET_PBRPC) + GET_D); INC_PC(1);"},
|
||
|
{"per", PUSH_16, "src = fetch16(GET_PBRPC) + GET_PC+2; INC_PC(2);"},
|
||
|
{"pha", PUSH_M, "src = GET_A;"},
|
||
|
{"phb", PUSH_8, "src = GET_DBR_LOW;"},
|
||
|
{"phd", PUSH_16, "src = GET_DPR;"},
|
||
|
{"phk", PUSH_8, "src = GET_PBR_LOW;"},
|
||
|
{"php", PUSH_8, "src = GET_P;"},
|
||
|
{"phx", PUSH_X, "src = GET_X;"},
|
||
|
{"phy", PUSH_X, "src = GET_Y;"},
|
||
|
{"pla", POP_M, "SET_A( src); SET_NBIT_M(GET_A);SET_ZBIT_M(GET_A);"},
|
||
|
{"plb", POP_8, "SET_DBR_LOW(src);SET_NBIT_8(src); SET_ZBIT_8(src);"},
|
||
|
{"pld", POP_16, "SET_DPR(src);SET_NBIT_16(src); SET_ZBIT_16(src);"},
|
||
|
{"plp", POP_8, "SET_P(src); RETHINK;"},
|
||
|
{"plx", POP_X, "SET_X(src);SET_NBIT_X(src);SET_ZBIT_X(src);"},
|
||
|
{"ply", POP_X, "SET_Y(src);SET_NBIT_X(src);SET_ZBIT_X(src);"},
|
||
|
{"rep", COP_GET, "SET_P(GET_P & ~src); RETHINK;"},
|
||
|
{"rol", G2_GET, "src = (src << 1) | GET_CBIT; SET_CBIT((src >> (GET_MBIT ? 7 : 15)) &1); SET_ZBIT_M(src);"},
|
||
|
{"ror", G2_GET, "{ int t = src; src = (src>>1) | (GET_CBIT<<((GET_MBIT ? 8:16)-1));SET_NBIT_M(src);SET_ZBIT_M(src); SET_CBIT(t&1);}"},
|
||
|
{"rti", SPECIAL_CASE, "{ int t; POP16(t); SET_ONLY_PC(t); if (GET_E==0) { POP8(t); SET_PBR(t);} POP8(t);SET_P(t);}"},
|
||
|
{"rtl", SPECIAL_CASE, "{ int t; POP24(t); SET_PBRPC(t);}"},
|
||
|
{"rts", SPECIAL_CASE, "{ int t; POP16(t); SET_ONLY_PC(t);}"},
|
||
|
{"sbc", GET_M,
|
||
|
"{ int old_acc = GET_A & AMASK; int old_src = src & AMASK; src = old_acc - old_src - !GET_CBIT; SET_A(src);\
|
||
|
SET_CBIT(!(src>>(GET_MBIT?8:16) &1)); SET_VBIT_M(old_src,old_acc, src); SET_ZBIT_M(src); SET_NBIT_M(src);}"},
|
||
|
{"sec", SPECIAL_CASE, "SET_CBIT(1);"},
|
||
|
{"sed", SPECIAL_CASE, "SET_DBIT(1);"},
|
||
|
{"sei", SPECIAL_CASE, "SET_IBIT(1);"},
|
||
|
{"sep", COP_GET, "SET_P(GET_P | src);RETHINK;"},
|
||
|
{"sta", STORE_M, "src = GET_A;"},
|
||
|
{"stp", SPECIAL_CASE, "abort();"},
|
||
|
{"stx", STORE_X, "src = GET_X;"},
|
||
|
{"sty", STORE_X, "src = GET_Y;"},
|
||
|
{"stz", STORE_M, "src = 0;"},
|
||
|
{"tax", SPECIAL_CASE, "SET_X(GET_A); SET_NBIT_X(GET_A);SET_ZBIT_X(GET_A);"},
|
||
|
{"tay", SPECIAL_CASE, "SET_Y(GET_A); SET_NBIT_X(GET_A);SET_ZBIT_X(GET_A);"},
|
||
|
{"tcd", SPECIAL_CASE, "SET_DPR(GET_A); SET_NBIT_X(GET_A); SET_ZBIT_X(GET_A);"},
|
||
|
{"tcs", SPECIAL_CASE, "SET_S(GET_A);"},
|
||
|
{"tdc", SPECIAL_CASE, "SET_A(GET_DPR); SET_NBIT_M(GET_A); SET_ZBIT_M(GET_A);"},
|
||
|
{"trb", G2_GET, "SET_ZBIT_M(src & GET_A); src = src & ~GET_A; "},
|
||
|
{"tsb", G2_GET, "SET_ZBIT_M(src & GET_A); src = src | GET_A;"},
|
||
|
{"tsc", SPECIAL_CASE, "SET_A(GET_S); SET_NBIT_16(GET_A); SET_ZBIT_16(GET_A);"},
|
||
|
{"tsx", SPECIAL_CASE, "SET_X(GET_S); SET_NBIT_X(GET_X); SET_ZBIT_X(GET_X);"},
|
||
|
{"txa", SPECIAL_CASE, "SET_A(GET_X); SET_NBIT_M(GET_A); SET_ZBIT_M(GET_A);"},
|
||
|
{"txs", SPECIAL_CASE, "SET_S(GET_X);"},
|
||
|
{"txy", SPECIAL_CASE, "SET_Y(GET_X); SET_NBIT_X(GET_Y); SET_ZBIT_X(GET_Y);"},
|
||
|
{"tya", SPECIAL_CASE, "SET_A(GET_Y); SET_NBIT_M(GET_A); SET_ZBIT_M(GET_A);"},
|
||
|
{"tyx", SPECIAL_CASE, "SET_X(GET_Y); SET_NBIT_X(GET_X); SET_ZBIT_X(GET_X);"},
|
||
|
{"wai", SPECIAL_CASE, "wai();INC_PC(-1);"},
|
||
|
{"wdm", SPECIAL_CASE, "SET_A(wdm(GET_A, GET_X));"},
|
||
|
{"xba", SPECIAL_CASE,
|
||
|
"if (GET_XBIT==0) { SET_A(((GET_A >> 8) & 0xff) | ((GET_A & 0xff)<<8));} else { int t = GET_A; SET_A(GET_B); SET_B(t);}; SET_NBIT_8(GET_A); SET_ZBIT_8(GET_A);"},
|
||
|
{"xce", SPECIAL_CASE, "{ int t = GET_E; SET_E(GET_CBIT); SET_CBIT(GET_E);if (GET_E) { SET_MBIT(1); SET_XBIT(1);}}; goto top;"},
|
||
|
0};
|
||
|
|
||
|
struct ainfo alist[] =
|
||
|
{
|
||
|
{"#a", "IMMTOA", "#$0", "M==0 ? 2:1", "M==0 ? %sR_W65_ABS16 : %sR_W65_ABS8", "lval = GET_PBRPC; INC_PC(GET_MBIT ? 1:2); ", 0},
|
||
|
{"#c", "IMMCOP", "#$0", "1", "%sR_W65_ABS8", "lval = GET_PBRPC; INC_PC(1); ", 0},
|
||
|
{"#i", "IMMTOI", "#$0", "X==0 ? 2:1", "X==0 ? %sR_W65_ABS16 : %sR_W65_ABS8", "lval = GET_PBRPC; INC_PC(GET_XBIT ? 1:2);", 0},
|
||
|
{"A", "ACC", "a", "0", 0, "*FAIL**", 0},
|
||
|
{"r", "PC_REL", "$0", "1", "%sR_W65_PCR8", "lval = GET_PBR_HIGH + (0xffff &(fetch8sext(GET_PBRPC) + GET_PC + 1)); INC_PC(1);", 0},
|
||
|
{"rl", "PC_REL_LONG", "$0", "2", "%sR_W65_PCR16", "lval = GET_PBR_HIGH + (0xffff & (fetch16 (GET_PBRPC) + GET_PC + 2)); INC_PC(2);", 0},
|
||
|
{"i", "IMPLIED", "", "0", "", 0},
|
||
|
{"s", "STACK", "", "0", "", 0},
|
||
|
{"d", "DIR", "<$0", "1", "%sR_W65_ABS8", "lval = fetch8(GET_PBRPC) + GET_D; INC_PC(1);", 1},
|
||
|
{"d,x", "DIR_IDX_X", "<$0,x", "1", "%sR_W65_ABS8", "lval = fetch8(GET_PBRPC) + GET_X+ GET_D; INC_PC(1);", 1},
|
||
|
{"d,y", "DIR_IDX_Y", "<$0,y", "1", "%sR_W65_ABS8", "lval = fetch8(GET_PBRPC) + GET_Y + GET_D; INC_PC(1);", 1},
|
||
|
{"(d)", "DIR_IND", "(<$0)", "1", "%sR_W65_ABS8", "lval = GET_DBR_HIGH + (0xffff & fetch16(fetch8(GET_PBRPC) + GET_D));INC_PC(1);",1},
|
||
|
{"(d,x)", "DIR_IDX_IND_X", "(<$0,x)", "1", "%sR_W65_ABS8", "lval = GET_DBR_HIGH + (0xffff & (fetch8 (GET_PBRPC) + GET_D + GET_X)) ; INC_PC(1);",1},
|
||
|
{"(d),y", "DIR_IND_IDX_Y", "(<$0),y", "1", "%sR_W65_ABS8", "lval = fetch16(fetch8(GET_PBRPC) + GET_D) + GET_Y + GET_DBR_HIGH;INC_PC(1);",1},
|
||
|
{"[d]", "DIR_IND_LONG", "[$0]", "1", "%sR_W65_ABS8", "lval = fetch24(GET_D + fetch8(GET_PBRPC));INC_PC(1);",1},
|
||
|
|
||
|
{"[d],y", "DIR_IND_IDX_Y_LONG", "[$0],y", "1", "%sR_W65_ABS8", "lval = fetch24(fetch8(GET_PBRPC) + GET_D) + GET_Y;INC_PC(1);",1},
|
||
|
|
||
|
{"a", "ABS", "!$0", "2", "%sR_W65_ABS16", "lval = fetch16(GET_PBRPC) + GET_DBR_HIGH; INC_PC(2) ; ",1},
|
||
|
{"a,x", "ABS_IDX_X", "!$0,x", "2", "%sR_W65_ABS16", "lval = fetch16(GET_PBRPC) + GET_DBR_HIGH + GET_X; INC_PC(2); ",1},
|
||
|
{"a,y", "ABS_IDX_Y", "!$0,y", "2", "%sR_W65_ABS16", "lval = fetch16(GET_PBRPC) + GET_DBR_HIGH + GET_Y; INC_PC(2); ", 1},
|
||
|
{"al", "ABS_LONG", ">$0", "3", "%sR_W65_ABS24", "lval = fetch24(GET_PBRPC); INC_PC(3);\nl=1;\n", 1},
|
||
|
{"[a]", "ABS_IND_LONG", "[>$0]", "2", "%sR_W65_ABS16", "lval = fetch24(fetch16(GET_PBRPC)); INC_PC(2);", 1},
|
||
|
{"al,x", "ABS_LONG_IDX_X", ">$0,x", "3", "%sR_W65_ABS24", "lval = fetch24(GET_PBRPC) + GET_X; INC_PC(3);", 1},
|
||
|
{"d,s", "STACK_REL", "$0,s", "1", "%sR_W65_ABS8", "lval = fetch8(GET_PBRPC) + GET_S; INC_PC(1);", 0},
|
||
|
{"(d,s),y", "STACK_REL_INDX_IDX", "($0,s),y", "1", "%sR_W65_ABS8", "lval = fetch16(fetch8(GET_PBRPC) + GET_S) + GET_DBR_HIGH + GET_Y;INC_PC(1);",0},
|
||
|
{"(a)", "ABS_IND", "($0)", "2", "%sR_W65_ABS16", "lval = fetch16(GET_PBRPC) + GET_DBR_HIGH; INC_PC(2);", 1},
|
||
|
{"(a,x)", "ABS_IND_IDX", "($0,x)", "2", "%sR_W65_ABS16",
|
||
|
"lval = fetch16((0xffff & (fetch16(GET_PBRPC) + GET_X )) + GET_PBR_HIGH) + GET_PBR_HIGH;INC_PC(2);",1},
|
||
|
{"xyz", "BLOCK_MOVE", "", "2", "", 0},
|
||
|
0};
|
||
|
|
||
|
|
||
|
struct opinfo optable[257] =
|
||
|
{
|
||
|
{0x00, "brk", "s"},
|
||
|
{0x01, "ora", "(d,x)"},
|
||
|
{0x02, "cop", "#c"},
|
||
|
{0x03, "ora", "d,s"},
|
||
|
{0x04, "tsb", "d"},
|
||
|
{0x05, "ora", "d"},
|
||
|
{0x06, "asl", "d"},
|
||
|
{0x07, "ora", "[d]"},
|
||
|
{0x08, "php", "s"},
|
||
|
{0x09, "ora", "#a"},
|
||
|
{0x0a, "asl", "A"},
|
||
|
{0x0b, "phd", "s"},
|
||
|
{0x0c, "tsb", "a"},
|
||
|
{0x0d, "ora", "a"},
|
||
|
{0x0e, "asl", "a"},
|
||
|
{0x0f, "ora", "al"},
|
||
|
{0x10, "bpl", "r"},
|
||
|
{0x11, "ora", "(d),y"},
|
||
|
{0x12, "ora", "(d)"},
|
||
|
{0x13, "ora", "(d,s),y"},
|
||
|
{0x14, "trb", "d"},
|
||
|
{0x15, "ora", "d,x"},
|
||
|
{0x16, "asl", "d,x"},
|
||
|
{0x17, "ora", "[d],y"},
|
||
|
{0x18, "clc", "i"},
|
||
|
{0x19, "ora", "a,y"},
|
||
|
{0x1a, "inc", "A"},
|
||
|
{0x1b, "tcs", "i"},
|
||
|
{0x1c, "trb", "a"},
|
||
|
{0x1d, "ora", "a,x"},
|
||
|
{0x1e, "asl", "a,x"},
|
||
|
{0x1f, "ora", "al,x"},
|
||
|
{0x20, "jsr", "a"},
|
||
|
{0x21, "and", "(d,x)"},
|
||
|
{0x22, "jsr", "al"},
|
||
|
{0x23, "and", "d,s"},
|
||
|
{0x24, "bit", "(d)"},
|
||
|
{0x25, "and", "d"},
|
||
|
{0x26, "rol", "d"},
|
||
|
{0x27, "and", "[d]"},
|
||
|
{0x28, "plp", "s"},
|
||
|
{0x29, "and", "#a"},
|
||
|
{0x2a, "rol", "A"},
|
||
|
{0x2b, "pld", "s"},
|
||
|
{0x2c, "bit", "a"},
|
||
|
{0x2d, "and", "a"},
|
||
|
{0x2e, "rol", "a"},
|
||
|
{0x2f, "and", "al"},
|
||
|
{0x30, "bmi", "r"},
|
||
|
{0x31, "and", "(d),y"},
|
||
|
{0x32, "and", "(d)"},
|
||
|
{0x33, "and", "(d,s),y"},
|
||
|
{0x34, "bit", "(d,x)"},
|
||
|
{0x35, "and", "d,x"},
|
||
|
{0x36, "rol", "d,x"},
|
||
|
{0x37, "and", "[d],y"},
|
||
|
{0x38, "sec", "i"},
|
||
|
{0x39, "and", "a,y"},
|
||
|
{0x3a, "dec", "A"},
|
||
|
{0x3b, "tsc", "i"},
|
||
|
{0x3c, "bit", "a,x"},
|
||
|
{0x3d, "and", "a,x"},
|
||
|
{0x3e, "rol", "a,x"},
|
||
|
{0x3f, "and", "al,x"},
|
||
|
{0x40, "rti", "s"},
|
||
|
{0x41, "eor", "(d,x)"},
|
||
|
{0x42, "wdm", "i"},
|
||
|
{0x43, "eor", "d,s"},
|
||
|
{0x44, "mvp", "xyz"},
|
||
|
{0x45, "eor", "d"},
|
||
|
{0x46, "lsr", "d"},
|
||
|
{0x47, "eor", "[d]"},
|
||
|
{0x48, "pha", "s"},
|
||
|
{0x49, "eor", "#a"},
|
||
|
{0x4a, "lsr", "A"},
|
||
|
{0x4b, "phk", "s"},
|
||
|
{0x4c, "jmp", "a"},
|
||
|
{0x4d, "eor", "a"},
|
||
|
{0x4e, "lsr", "a"},
|
||
|
{0x4f, "eor", "al"},
|
||
|
{0x50, "bvc", "r"},
|
||
|
{0x51, "eor", "(d),y"},
|
||
|
{0x52, "eor", "(d)"},
|
||
|
{0x53, "eor", "(d,s),y"},
|
||
|
{0x54, "mvn", "xyz"},
|
||
|
{0x55, "eor", "d,x"},
|
||
|
{0x56, "lsr", "d,x"},
|
||
|
{0x57, "eor", "[d],y"},
|
||
|
{0x58, "cli", "i"},
|
||
|
{0x59, "eor", "a,y"},
|
||
|
{0x5a, "phy", "s"},
|
||
|
{0x5b, "tcd", "i"},
|
||
|
{0x5c, "jmp", "al"},
|
||
|
{0x5d, "eor", "a,x"},
|
||
|
{0x5e, "lsr", "a,x"},
|
||
|
{0x5f, "eor", "al,x"},
|
||
|
{0x60, "rts", "s"},
|
||
|
{0x61, "adc", "(d,x)"},
|
||
|
{0x62, "per", "rl"},
|
||
|
{0x63, "adc", "d,s"},
|
||
|
{0x64, "stz", "d"},
|
||
|
{0x65, "adc", "d"},
|
||
|
{0x66, "ror", "d"},
|
||
|
{0x67, "adc", "[d]"},
|
||
|
{0x68, "pla", "s"},
|
||
|
{0x69, "adc", "#a"},
|
||
|
{0x6a, "ror", "A"},
|
||
|
{0x6b, "rtl", "s"},
|
||
|
{0x6c, "jmp", "(a)"},
|
||
|
{0x6d, "adc", "a"},
|
||
|
{0x6e, "ror", "a"},
|
||
|
{0x6f, "adc", "al"},
|
||
|
{0x70, "bvs", "r"},
|
||
|
{0x71, "adc", "(d),y"},
|
||
|
{0x72, "adc", "(d)"},
|
||
|
{0x73, "adc", "(d,s),y"},
|
||
|
{0x74, "stz", "d,x"},
|
||
|
{0x75, "adc", "d,x"},
|
||
|
{0x76, "ror", "d,x"},
|
||
|
{0x77, "adc", "[d],y"},
|
||
|
{0x78, "sei", "i"},
|
||
|
{0x79, "adc", "a,y"},
|
||
|
{0x7a, "ply", "s"},
|
||
|
{0x7b, "tdc", "i"},
|
||
|
{0x7c, "jmp", "(a,x)"},
|
||
|
{0x7d, "adc", "a,x"},
|
||
|
{0x7e, "ror", "a,x"},
|
||
|
{0x7f, "adc", "al,x"},
|
||
|
{0x80, "bra", "r"},
|
||
|
{0x81, "sta", "(d,x)"},
|
||
|
{0x82, "brl", "rl"},
|
||
|
{0x83, "sta", "d,s"},
|
||
|
{0x84, "sty", "d"},
|
||
|
{0x85, "sta", "d"},
|
||
|
{0x86, "stx", "d"},
|
||
|
{0x87, "sta", "[d]"},
|
||
|
{0x88, "dey", "i"},
|
||
|
{0x89, "bit", "#a"},
|
||
|
{0x8a, "txa", "i"},
|
||
|
{0x8b, "phb", "s"},
|
||
|
{0x8c, "sty", "a"},
|
||
|
{0x8d, "sta", "a"},
|
||
|
{0x8e, "stx", "a"},
|
||
|
{0x8f, "sta", "al"},
|
||
|
{0x90, "bcc", "r"},
|
||
|
{0x91, "sta", "(d),y"},
|
||
|
{0x92, "sta", "(d)"},
|
||
|
{0x93, "sta", "(d,s),y"},
|
||
|
{0x94, "sty", "d,x"},
|
||
|
{0x95, "sta", "d,x"},
|
||
|
{0x96, "stx", "d,x"},
|
||
|
{0x97, "sta", "[d],y"},
|
||
|
{0x98, "tya", "i"},
|
||
|
{0x99, "sta", "a,y"},
|
||
|
{0x9a, "txs", "i"},
|
||
|
{0x9b, "txy", "i"},
|
||
|
{0x9c, "stz", "a"},
|
||
|
{0x9d, "sta", "a,x"},
|
||
|
{0x9e, "stz", "a,x"},
|
||
|
{0x9f, "sta", "al,x"},
|
||
|
{0xa0, "ldy", "#i"},
|
||
|
{0xa1, "lda", "(d,x)"},
|
||
|
{0xa2, "ldx", "#i"},
|
||
|
{0xa3, "lda", "d,s"},
|
||
|
{0xa4, "ldy", "d"},
|
||
|
{0xa5, "lda", "d"},
|
||
|
{0xa6, "ldx", "d"},
|
||
|
{0xa7, "lda", "[d]"},
|
||
|
{0xa8, "tay", "i"},
|
||
|
{0xa9, "lda", "#a"},
|
||
|
{0xaa, "tax", "i"},
|
||
|
{0xab, "plb", "s"},
|
||
|
{0xac, "ldy", "a"},
|
||
|
{0xad, "lda", "a"},
|
||
|
{0xae, "ldx", "a"},
|
||
|
{0xaf, "lda", "al"},
|
||
|
{0xb0, "bcs", "r"},
|
||
|
{0xb1, "lda", "(d),y"},
|
||
|
{0xb2, "lda", "(d)"},
|
||
|
{0xb3, "lda", "(d,s),y"},
|
||
|
{0xb4, "ldy", "d,x"},
|
||
|
{0xb5, "lda", "d,x"},
|
||
|
{0xb6, "ldx", "d,y"},
|
||
|
{0xb7, "lda", "[d],y"},
|
||
|
{0xb8, "clv", "i"},
|
||
|
{0xb9, "lda", "a,y"},
|
||
|
{0xba, "tsx", "i"},
|
||
|
{0xbb, "tyx", "i"},
|
||
|
{0xbc, "ldy", "a,x"},
|
||
|
{0xbd, "lda", "a,x"},
|
||
|
{0xbe, "ldx", "a,y"},
|
||
|
{0xbf, "lda", "al,x"},
|
||
|
{0xc0, "cpy", "#i"},
|
||
|
{0xc1, "cmp", "(d,x)"},
|
||
|
{0xc2, "rep", "#c"},
|
||
|
{0xc3, "cmp", "d,s"},
|
||
|
{0xc4, "cpy", "d"},
|
||
|
{0xc5, "cmp", "d"},
|
||
|
{0xc6, "dec", "d"},
|
||
|
{0xc7, "cmp", "[d]"},
|
||
|
{0xc8, "iny", "i"},
|
||
|
{0xc9, "cmp", "#a"},
|
||
|
{0xca, "dex", "i"},
|
||
|
{0xcb, "wai", "i"},
|
||
|
{0xcc, "cpy", "a"},
|
||
|
{0xcd, "cmp", "a"},
|
||
|
{0xce, "dec", "a"},
|
||
|
{0xcf, "cmp", "al"},
|
||
|
{0xd0, "bne", "r"},
|
||
|
{0xd1, "cmp", "(d),y"},
|
||
|
{0xd2, "cmp", "(d)"},
|
||
|
{0xd3, "cmp", "(d,s),y"},
|
||
|
{0xd4, "pei", "d"},
|
||
|
{0xd5, "cmp", "d,x"},
|
||
|
{0xd6, "dec", "d,x"},
|
||
|
{0xd7, "cmp", "[d],y"},
|
||
|
{0xd8, "cld", "i"},
|
||
|
{0xd9, "cmp", "a,y"},
|
||
|
{0xda, "phx", "s"},
|
||
|
{0xdb, "stp", "i"},
|
||
|
{0xdc, "jmp", "[a]"},
|
||
|
{0xdd, "cmp", "a,x"},
|
||
|
{0xde, "dec", "a,x"},
|
||
|
{0xdf, "cmp", "al,x"},
|
||
|
{0xe0, "cpx", "#i"},
|
||
|
{0xe1, "sbc", "(d,x)"},
|
||
|
{0xe2, "sep", "#c"},
|
||
|
{0xe3, "sbc", "d,s"},
|
||
|
{0xe4, "cpx", "d"},
|
||
|
{0xe5, "sbc", "d"},
|
||
|
{0xe6, "inc", "d"},
|
||
|
{0xe7, "sbc", "[d]"},
|
||
|
{0xe8, "inx", "i"},
|
||
|
{0xe9, "sbc", "#a"},
|
||
|
{0xea, "nop", "i"},
|
||
|
{0xeb, "xba", "i"},
|
||
|
{0xec, "cpx", "a"},
|
||
|
{0xed, "sbc", "a"},
|
||
|
{0xee, "inc", "a"},
|
||
|
{0xef, "sbc", "al"},
|
||
|
{0xf0, "beq", "r"},
|
||
|
{0xf1, "sbc", "(d),y"},
|
||
|
{0xf2, "sbc", "(d)"},
|
||
|
{0xf3, "sbc", "(d,s),y"},
|
||
|
{0xf4, "pea", "a"},
|
||
|
{0xf5, "sbc", "d,x"},
|
||
|
{0xf6, "inc", "d,x"},
|
||
|
{0xf7, "sbc", "[d],y"},
|
||
|
{0xf8, "sed", "i"},
|
||
|
{0xf9, "sbc", "a,y"},
|
||
|
{0xfa, "plx", "s"},
|
||
|
{0xfb, "xce", "i"},
|
||
|
{0xfc, "jsr", "(a,x)"},
|
||
|
{0xfd, "sbc", "a,x"},
|
||
|
{0xfe, "inc", "a,x"},
|
||
|
{0xff, "sbc", "al,x"},
|
||
|
0};
|
||
|
|
||
|
|
||
|
int pfunc(a,b)
|
||
|
struct opinfo *a;
|
||
|
struct opinfo *b;
|
||
|
{
|
||
|
return strcmp(a->mode, b->mode);
|
||
|
|
||
|
}
|
||
|
static void
|
||
|
dump_table ()
|
||
|
{
|
||
|
int x;
|
||
|
int y;
|
||
|
printf (" |");
|
||
|
for (x = 0; x < 16; x++)
|
||
|
{
|
||
|
printf (" %x |", x);
|
||
|
}
|
||
|
printf ("\n");
|
||
|
printf (" |");
|
||
|
for (x = 0; x < 16; x++)
|
||
|
{
|
||
|
printf ("-------|");
|
||
|
}
|
||
|
printf ("\n");
|
||
|
|
||
|
for (y = 0; y < 16; y++)
|
||
|
{
|
||
|
printf ("%x |", y);
|
||
|
for (x = 0; x < 16; x++)
|
||
|
{
|
||
|
struct opinfo *p = &optable[y * 16 + x];
|
||
|
if (p->opcode)
|
||
|
{
|
||
|
printf ("%-7s", p->opcode);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
printf ("*******");
|
||
|
}
|
||
|
printf ("|");
|
||
|
}
|
||
|
printf ("\n");
|
||
|
printf (" |");
|
||
|
|
||
|
for (x = 0; x < 16; x++)
|
||
|
{
|
||
|
struct opinfo *p = &optable[y * 16 + x];
|
||
|
if (p->mode)
|
||
|
{
|
||
|
printf ("%-7s", p->mode);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
printf ("*******");
|
||
|
}
|
||
|
printf ("|");
|
||
|
}
|
||
|
printf ("\n");
|
||
|
printf (" |");
|
||
|
for (x = 0; x < 16; x++)
|
||
|
{
|
||
|
printf ("-------|");
|
||
|
}
|
||
|
|
||
|
|
||
|
printf ("\n");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
dt ()
|
||
|
{
|
||
|
#if 0
|
||
|
int i;
|
||
|
for (i = 0; i < 256; i++)
|
||
|
{
|
||
|
struct opinfo *p = &optable[i];
|
||
|
printf ("/* %02x */ ", i);
|
||
|
if (p->opcode)
|
||
|
printf ("{\"%s\",\"%s\",%d,%d},", p->opcode->name, p->addr->name);
|
||
|
|
||
|
printf ("\n");
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
}
|
||
|
static
|
||
|
void
|
||
|
init_table ()
|
||
|
{
|
||
|
int i;
|
||
|
for (i = 0; i < 256; i++)
|
||
|
{
|
||
|
struct opinfo *p = optable + i;
|
||
|
struct ainfo *a;
|
||
|
struct oinfo *o;
|
||
|
for (a = alist; a->name; a++)
|
||
|
{
|
||
|
if (strcmp (a->name, p->mode) == 0)
|
||
|
{
|
||
|
p->ai = a;
|
||
|
goto done;
|
||
|
}
|
||
|
}
|
||
|
printf ("bad %x\n", i);
|
||
|
done:;
|
||
|
for (o = olist; o->name; o++)
|
||
|
{
|
||
|
if (strcmp (o->name, p->opcode) == 0)
|
||
|
{
|
||
|
p->oi = o;
|
||
|
goto doneo;
|
||
|
}
|
||
|
}
|
||
|
printf ("bad %x\n", i);
|
||
|
doneo:;
|
||
|
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* Dump the opcodes sorted by name */
|
||
|
static
|
||
|
void
|
||
|
assembler_table (as)
|
||
|
{
|
||
|
int i;
|
||
|
struct oinfo *o;
|
||
|
struct ainfo *a;
|
||
|
int n = 0;
|
||
|
/* Step through the sorted list of opnames */
|
||
|
printf (" /* WDC 65816 Assembler opcode table */\n");
|
||
|
printf (" /* (generated by the program sim/w65/gencode -a) */\n");
|
||
|
|
||
|
for (a = alist; a->name; a++)
|
||
|
{
|
||
|
printf ("#define ADDR_%-20s%d\t /* %-7s */\n", a->enumname, ++n, a->name);
|
||
|
}
|
||
|
|
||
|
printf ("struct opinfo {\n\tint val;\n\tint code;\n\tchar *name;\n\tint amode;\n};\n");
|
||
|
|
||
|
printf ("struct opinfo optable[257]={\n");
|
||
|
if (as)
|
||
|
{
|
||
|
i = 1;
|
||
|
for (o = olist; o->name; o++)
|
||
|
{
|
||
|
printf ("#define O_%s %d\n", o->name, i++);
|
||
|
}
|
||
|
|
||
|
qsort (optable, 256, sizeof (struct opinfo), pfunc);
|
||
|
|
||
|
printf ("#ifdef DEFINE_TABLE\n");
|
||
|
for (o = olist; o->name; o++)
|
||
|
{
|
||
|
|
||
|
for (i = 0; i < 256; i++)
|
||
|
{
|
||
|
struct opinfo *p = optable + i;
|
||
|
|
||
|
if (p->oi == o)
|
||
|
{
|
||
|
/* This opcode is of the right name */
|
||
|
printf ("\t{0x%02X,\tO_%s,\t\"%s\",\tADDR_%s},\n", p->code, p->oi->name, p->oi->name, p->ai->enumname);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
for (i = 0; i < 256; i++)
|
||
|
{
|
||
|
struct opinfo *p = optable + i;
|
||
|
printf ("\t{0x%02X,\t\"%s\",\tADDR_%s},\n", i, p->oi->name, p->ai->enumname);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
printf ("0};\n");
|
||
|
printf ("#endif\n");
|
||
|
|
||
|
|
||
|
/* Generate the operand disassembly case list */
|
||
|
|
||
|
printf ("#define DISASM()\\\n");
|
||
|
{
|
||
|
struct ainfo *a;
|
||
|
for (a = alist; a->name; a++)
|
||
|
{
|
||
|
printf (" case ADDR_%s:\\\n\t", a->enumname);
|
||
|
if (strcmp (a->enumname, "BLOCK_MOVE") == 0)
|
||
|
{
|
||
|
printf ("args[0] = (asR_W65_ABS16 >>8) &0xff;\\\n");
|
||
|
printf ("\targs[1] = ( asR_W65_ABS16 & 0xff);\\\n");
|
||
|
printf ("\tprint_operand (0,\"\t$0,$1\",args);\\\n");
|
||
|
}
|
||
|
else if (a->reloc0 == 0)
|
||
|
{
|
||
|
printf ("print_operand (0, \"\t%s\", 0);\\\n", a->disasmstring );
|
||
|
}
|
||
|
else if (strlen (a->reloc0))
|
||
|
{
|
||
|
printf ("args[0] = ");
|
||
|
printf (a->reloc0, "as","as");
|
||
|
printf (";\\\n");
|
||
|
printf ("\tprint_operand (%d, \"\t%s\", args);\\\n",
|
||
|
a->regflag,
|
||
|
a->disasmstring);
|
||
|
}
|
||
|
|
||
|
printf ("\tsize += %s;\\\n\tbreak;\\\n", a->sizer);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
printf ("\n");
|
||
|
|
||
|
/* Generate the operand size and type case list */
|
||
|
|
||
|
printf ("#define GETINFO(size,type,pcrel)\\\n");
|
||
|
{
|
||
|
struct ainfo *a;
|
||
|
for (a = alist; a->name; a++)
|
||
|
{
|
||
|
printf ("\tcase ADDR_%s: ", a->enumname);
|
||
|
printf ("size = %s;type=", a->sizer);
|
||
|
if (a->reloc0 && strlen (a->reloc0))
|
||
|
{
|
||
|
printf (a->reloc0, "", "");
|
||
|
}
|
||
|
else
|
||
|
printf ("-1");
|
||
|
printf (";pcrel=%d;", a->name[0] == 'P');
|
||
|
printf ("break;\\\n");
|
||
|
}
|
||
|
}
|
||
|
printf ("\n");
|
||
|
}
|
||
|
|
||
|
|
||
|
/* Write out examples of each opcode */
|
||
|
static
|
||
|
void
|
||
|
test_table ()
|
||
|
{
|
||
|
struct opinfo *o;
|
||
|
for (o = optable; o->opcode; o++)
|
||
|
{
|
||
|
printf ("\t%s\t", o->opcode);
|
||
|
printf (o->ai->disasmstring, 0x6543210, 0x6543210);
|
||
|
printf ("\n");
|
||
|
}
|
||
|
|
||
|
}
|
||
|
|
||
|
static void
|
||
|
op_table ()
|
||
|
{
|
||
|
struct opinfo *o;
|
||
|
int i = 0;
|
||
|
/* Write four optables, M=0,1 X=0,1 */
|
||
|
|
||
|
for (o = optable; o->opcode; o++)
|
||
|
{
|
||
|
printf ("{0x%02x, \"%s\", \"%s\"\t},\n",
|
||
|
i++,
|
||
|
o->opcode,
|
||
|
o->mode);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
int worked_out_lval;
|
||
|
static void
|
||
|
genfetch (amode, size)
|
||
|
struct ainfo *amode;
|
||
|
int size;
|
||
|
{
|
||
|
if (amode->howlval)
|
||
|
{
|
||
|
if (strcmp (amode->name, "A") == 0)
|
||
|
{
|
||
|
/* Can't get the lval for the accumulator */
|
||
|
printf ("src = GET_A;\n");
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
printf ("%s\n", amode->howlval);
|
||
|
worked_out_lval = 1;
|
||
|
if (size == 0)
|
||
|
{
|
||
|
printf ("src = fetch16 (lval);\n");
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
printf ("src = fetch8 (lval);\n");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
}
|
||
|
|
||
|
static void
|
||
|
genstore (amode, size)
|
||
|
struct ainfo *amode;
|
||
|
int size;
|
||
|
{
|
||
|
if (amode->howlval)
|
||
|
{
|
||
|
if (strcmp (amode->name, "A") == 0)
|
||
|
{
|
||
|
/* Can't get the lval for the accumulator */
|
||
|
printf ("SET_A (src);\n");
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
if (!worked_out_lval)
|
||
|
printf ("%s\n", amode->howlval);
|
||
|
if (size == 0)
|
||
|
{
|
||
|
printf ("store16(lval, src);\n");
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
printf ("store8(lval, src);\n");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
/* Generate the code to simulate the instructions */
|
||
|
static void
|
||
|
code_table ()
|
||
|
{
|
||
|
struct opinfo *o;
|
||
|
int x, m;
|
||
|
printf("#include \"interp.h\"\n");
|
||
|
|
||
|
for (x = 0; x < 2; x++) {
|
||
|
for (m = 0; m < 2; m++) {
|
||
|
printf("ifunc_X%d_M%d() {\n",x,m);
|
||
|
printf("#undef GET_MBIT\n");
|
||
|
printf("#undef GET_XBIT\n");
|
||
|
printf("#define GET_XBIT %d\n", x);
|
||
|
printf("#define GET_MBIT %d\n", m);
|
||
|
printf("STARTFUNC();\n");
|
||
|
printf("do { register opcode = fetch8(GET_PBRPC); insts++; INC_PC(1);\n");
|
||
|
printf ("switch (opcode) {\n");
|
||
|
for (o = optable; o->opcode; o++)
|
||
|
{
|
||
|
printf (" /* %s %s */\n", o->opcode, o->ai->name);
|
||
|
printf ("case 0x%02x:\n", o->code);
|
||
|
printf ("{\n");
|
||
|
printf ("int l ;\n");
|
||
|
printf ("register int src;\n");
|
||
|
printf ("register int lval;\n");
|
||
|
worked_out_lval = 0;
|
||
|
switch (o->oi->howsrc)
|
||
|
{
|
||
|
case POP_M:
|
||
|
if (m == 0)
|
||
|
printf ("POP16 (src);");
|
||
|
else
|
||
|
printf ("POP8(src);");
|
||
|
break;
|
||
|
case POP_X:
|
||
|
if (x == 0)
|
||
|
printf ("POP16 (src);");
|
||
|
else
|
||
|
printf ("POP8 (src);");
|
||
|
break;
|
||
|
case POP_8:
|
||
|
printf ("POP8 (src);");
|
||
|
break;
|
||
|
case POP_16:
|
||
|
printf ("POP16 (src);");
|
||
|
break;
|
||
|
|
||
|
case STANDARD_PC_GET:
|
||
|
printf ("%s\n", o->ai->howlval);
|
||
|
break;
|
||
|
|
||
|
case GET_M:
|
||
|
genfetch (o->ai, m);
|
||
|
break;
|
||
|
case G2_GET:
|
||
|
genfetch (o->ai, m);
|
||
|
break;
|
||
|
case GET_X:
|
||
|
genfetch (o->ai, x);
|
||
|
break;
|
||
|
case BRANCH:
|
||
|
printf ("%s", o->ai->howlval);
|
||
|
break;
|
||
|
case COP_GET:
|
||
|
genfetch(o->ai,1);
|
||
|
break;
|
||
|
case STORE_X:
|
||
|
case STORE_M:
|
||
|
;
|
||
|
}
|
||
|
|
||
|
switch (o->oi->howsrc)
|
||
|
{
|
||
|
case BRANCH:
|
||
|
printf ("if (%s) { SET_ONLY_PC(lval);} ", o->oi->howto);
|
||
|
break;
|
||
|
case SPECIAL_CASE:
|
||
|
case GET_M:
|
||
|
case GET_X:
|
||
|
case STORE_X:
|
||
|
case STANDARD_PC_GET:
|
||
|
case G2_GET:
|
||
|
case PUSH_16:
|
||
|
case PUSH_8:
|
||
|
case PUSH_M:
|
||
|
case PUSH_X:
|
||
|
case POP_16:
|
||
|
case POP_8:
|
||
|
case POP_M:
|
||
|
case POP_X:
|
||
|
case COP_GET:
|
||
|
case STORE_M:
|
||
|
printf ("%s", o->oi->howto);
|
||
|
break;
|
||
|
}
|
||
|
|
||
|
switch (o->oi->howsrc)
|
||
|
{
|
||
|
case STORE_M:
|
||
|
genstore (o->ai, m);
|
||
|
break;
|
||
|
case STORE_X:
|
||
|
genstore (o->ai, x);
|
||
|
break;
|
||
|
case PUSH_M:
|
||
|
if (m == 0)
|
||
|
printf ("PUSH16 (src);");
|
||
|
else
|
||
|
printf ("PUSH8(src);");
|
||
|
break;
|
||
|
case PUSH_X:
|
||
|
if (x == 0)
|
||
|
printf ("PUSH16 (src);");
|
||
|
else
|
||
|
printf ("PUSH8 (src);");
|
||
|
break;
|
||
|
case PUSH_8:
|
||
|
printf ("PUSH8 (src);");
|
||
|
break;
|
||
|
case PUSH_16:
|
||
|
printf ("PUSH16 (src);");
|
||
|
break;
|
||
|
case G2_GET:
|
||
|
genstore (o->ai, x, m);
|
||
|
break;
|
||
|
}
|
||
|
printf ("}\n");
|
||
|
|
||
|
printf ("break;\n");
|
||
|
}
|
||
|
printf ("}\n}\n");
|
||
|
printf("while (!saved_state.exception);\n");
|
||
|
printf("#undef GET_MBIT\n");
|
||
|
printf("#undef GET_XBIT\n");
|
||
|
printf("#define GET_MBIT (the_mbit)\n");
|
||
|
printf("#define GET_XBIT (the_xbit)\n");
|
||
|
|
||
|
printf("ENDFUNC();\n");
|
||
|
printf("}");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
int
|
||
|
main (ac, av)
|
||
|
char **av;
|
||
|
{
|
||
|
init_table ();
|
||
|
|
||
|
if (ac > 1)
|
||
|
{
|
||
|
if (av[1][1] == 'a')
|
||
|
{
|
||
|
assembler_table (1);
|
||
|
}
|
||
|
if (av[1][1] == 't')
|
||
|
{
|
||
|
test_table ();
|
||
|
}
|
||
|
if (av[1][1] == 'o')
|
||
|
{
|
||
|
op_table ();
|
||
|
}
|
||
|
if (av[1][1] == 'c')
|
||
|
{
|
||
|
code_table ();
|
||
|
}
|
||
|
}
|
||
|
else
|
||
|
dump_table ();
|
||
|
|
||
|
dt ();
|
||
|
|
||
|
return 0;
|
||
|
}
|