mirror of
https://github.com/jamessanford/kegs.git
synced 2024-09-11 12:55:04 +00:00
467 lines
9.8 KiB
C
467 lines
9.8 KiB
C
/************************************************************************/
|
|
/* KEGS: Apple //gs Emulator */
|
|
/* Copyright 2002 by Kent Dickey */
|
|
/* */
|
|
/* This code is covered by the GNU GPL */
|
|
/* */
|
|
/* The KEGS web page is kegs.sourceforge.net */
|
|
/* You may contact the author at: kadickey@alumni.princeton.edu */
|
|
/************************************************************************/
|
|
|
|
#ifdef ASM
|
|
# ifdef INCLUDE_RCSID_S
|
|
.data
|
|
.export rcsdif_op_routs_h,data
|
|
rcsdif_op_routs_h
|
|
.stringz "@(#)$KmKId: op_routs.h,v 1.40 2004-01-10 15:49:46-05 kentd Exp $"
|
|
.code
|
|
# endif
|
|
|
|
.import get_mem_b0_16,code
|
|
.import get_mem_b0_8,code
|
|
|
|
.export op_routs_start,data
|
|
op_routs_start .word 0
|
|
#endif /* ASM */
|
|
|
|
#ifdef ASM
|
|
# define CMP_INDEX_REG_MEAT8(index_reg) \
|
|
extru ret0,31,8,ret0 ! \
|
|
ldi 0xff,scratch3 ! \
|
|
subi 0x100,ret0,ret0 ! \
|
|
add index_reg,ret0,ret0 ! \
|
|
extru ret0,23,1,scratch1 ! \
|
|
and ret0,scratch3,zero ! \
|
|
extru ret0,24,1,neg ! \
|
|
b dispatch ! \
|
|
dep scratch1,31,1,psr
|
|
|
|
# define CMP_INDEX_REG_MEAT16(index_reg) \
|
|
extru ret0,31,16,ret0 ! \
|
|
ldil l%0x10000,scratch2 ! \
|
|
zdepi -1,31,16,scratch3 ! \
|
|
sub scratch2,ret0,ret0 ! \
|
|
add index_reg,ret0,ret0 ! \
|
|
extru ret0,15,1,scratch1 ! \
|
|
and ret0,scratch3,zero ! \
|
|
extru ret0,16,1,neg ! \
|
|
b dispatch ! \
|
|
dep scratch1,31,1,psr
|
|
|
|
# define CMP_INDEX_REG_LOAD(new_label, index_reg) \
|
|
bb,>=,n psr,27,new_label ! \
|
|
bl get_mem_long_8,link ! \
|
|
nop ! \
|
|
CMP_INDEX_REG_MEAT8(index_reg) ! \
|
|
.label new_label ! \
|
|
bl get_mem_long_16,link ! \
|
|
nop ! \
|
|
CMP_INDEX_REG_MEAT16(index_reg)
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
#define GET_DLOC_X_IND_WR() \
|
|
CYCLES_PLUS_1 ! \
|
|
add xreg,direct,scratch2 ! \
|
|
INC_KPC_2 ! \
|
|
add scratch2,arg0,arg0 ! \
|
|
bl get_mem_b0_direct_page_16,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
copy ret0,arg0 ! \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
dep dbank,15,8,arg0
|
|
#else /* C */
|
|
# define GET_DLOC_X_IND_WR() \
|
|
CYCLES_PLUS_1; \
|
|
INC_KPC_2; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
arg = arg + xreg + direct; \
|
|
GET_MEMORY_DIRECT_PAGE16(arg & 0xffff, arg); \
|
|
arg = (dbank << 16) + arg;
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_X_IND_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_X_IND_WR()
|
|
#else /* C */
|
|
# define GET_DLOC_X_IND_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_X_IND_WR()
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
# define GET_DISP8_S_WR() \
|
|
CYCLES_PLUS_1 ! \
|
|
add stack,arg0,arg0 ! \
|
|
INC_KPC_2 ! \
|
|
extru arg0,31,16,arg0
|
|
#else /* C */
|
|
#define GET_DISP8_S_WR() \
|
|
CYCLES_PLUS_1; \
|
|
arg = (arg + stack) & 0xffff; \
|
|
INC_KPC_2;
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DISP8_S_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DISP8_S_WR()
|
|
#else /* C */
|
|
# define GET_DISP8_S_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DISP8_S_WR()
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_WR() \
|
|
INC_KPC_2 ! \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
add direct,arg0,arg0 ! \
|
|
extru arg0,31,16,arg0
|
|
#else /* C */
|
|
# define GET_DLOC_WR() \
|
|
arg = (arg + direct) & 0xffff; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
INC_KPC_2;
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_WR()
|
|
#else /* C */
|
|
# define GET_DLOC_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_WR()
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_L_IND_WR() \
|
|
INC_KPC_2 ! \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
add direct,arg0,arg0 ! \
|
|
bl get_mem_b0_24,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
copy ret0,arg0
|
|
#else /* C */
|
|
# define GET_DLOC_L_IND_WR() \
|
|
arg = (arg + direct) & 0xffff; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
INC_KPC_2; \
|
|
GET_MEMORY24(arg, arg, 1);
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_L_IND_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_L_IND_WR()
|
|
#else /* C */
|
|
# define GET_DLOC_L_IND_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_L_IND_WR()
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_IND_Y_ADDR_FOR_WR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
GET_DLOC_IND_Y_WR_SPECIAL()
|
|
#else /* C */
|
|
# define GET_DLOC_IND_Y_ADDR_FOR_WR() \
|
|
GET_1BYTE_ARG; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
GET_MEMORY_DIRECT_PAGE16((direct + arg) & 0xffff, tmp1); \
|
|
tmp1 += (dbank << 16); \
|
|
arg = tmp1 + yreg; \
|
|
CYCLES_PLUS_1; \
|
|
INC_KPC_2;
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_IND_WR() \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
INC_KPC_2 ! \
|
|
add direct,arg0,arg0 ! \
|
|
bl get_mem_b0_direct_page_16,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
copy ret0,arg0 ! \
|
|
dep dbank,15,16,arg0
|
|
#else /* C */
|
|
# define GET_DLOC_IND_WR() \
|
|
INC_KPC_2; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
GET_MEMORY_DIRECT_PAGE16((direct + arg) & 0xffff, arg); \
|
|
arg = (dbank << 16) + arg;
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_IND_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_IND_WR()
|
|
#else
|
|
# define GET_DLOC_IND_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_IND_WR();
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
#define GET_DLOC_INDEX_WR(index_reg) \
|
|
GET_DLOC_INDEX_WR_A(index_reg) ! GET_DLOC_INDEX_WR_B(index_reg)
|
|
|
|
#define GET_DLOC_INDEX_WR_A(index_reg) \
|
|
CYCLES_PLUS_1 ! \
|
|
add index_reg,direct,scratch2 ! \
|
|
extru direct,23,8,scratch1 ! \
|
|
INC_KPC_2 ! \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
bb,>= psr,23,.+16 ! \
|
|
/* 4*/ add scratch2,arg0,arg0 ! \
|
|
/* 8*/ extru,<> direct,31,8,0 ! \
|
|
/*12*/ dep scratch1,23,8,arg0
|
|
|
|
/* GET_DLOC_INDeX_WR_B must be exactly one instruction! */
|
|
#define GET_DLOC_INDEX_WR_B(index_reg) \
|
|
/*16*/ extru arg0,31,16,arg0
|
|
|
|
#define GET_DLOC_Y_WR() \
|
|
GET_DLOC_INDEX_WR(yreg)
|
|
|
|
#define GET_DLOC_X_WR() \
|
|
GET_DLOC_INDEX_WR(xreg)
|
|
|
|
#define GET_DLOC_Y_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_Y_WR()
|
|
|
|
# define GET_DLOC_X_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_X_WR()
|
|
|
|
#else
|
|
# define GET_DLOC_INDEX_WR(index_reg) \
|
|
CYCLES_PLUS_1; \
|
|
arg = (arg & 0xff) + index_reg; \
|
|
INC_KPC_2; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
if((psr & 0x100) && ((direct & 0xff) == 0)) { \
|
|
arg = (arg & 0xff); \
|
|
} \
|
|
arg = (arg + direct) & 0xffff;
|
|
|
|
# define GET_DLOC_X_WR() \
|
|
GET_DLOC_INDEX_WR(xreg)
|
|
# define GET_DLOC_Y_WR() \
|
|
GET_DLOC_INDEX_WR(yreg)
|
|
|
|
# define GET_DLOC_X_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_INDEX_WR(xreg)
|
|
|
|
# define GET_DLOC_Y_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_INDEX_WR(yreg)
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DISP8_S_IND_Y_WR() \
|
|
add stack,arg0,arg0 ! \
|
|
bl get_mem_b0_16,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
dep dbank,15,16,ret0 ! \
|
|
CYCLES_PLUS_2 ! \
|
|
add ret0,yreg,arg0 ! \
|
|
INC_KPC_2 ! \
|
|
extru arg0,31,24,arg0
|
|
|
|
# define GET_DISP8_S_IND_Y_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DISP8_S_IND_Y_WR()
|
|
#else /* C */
|
|
|
|
# define GET_DISP8_S_IND_Y_WR() \
|
|
arg = (stack + arg) & 0xffff; \
|
|
GET_MEMORY16(arg,arg,1); \
|
|
CYCLES_PLUS_2; \
|
|
arg += (dbank << 16); \
|
|
INC_KPC_2; \
|
|
arg = (arg + yreg) & 0xffffff;
|
|
|
|
# define GET_DISP8_S_IND_Y_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DISP8_S_IND_Y_WR()
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_DLOC_L_IND_Y_WR() \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
INC_KPC_2 ! \
|
|
add direct,arg0,arg0 ! \
|
|
bl get_mem_b0_24,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
add ret0,yreg,arg0 ! \
|
|
extru arg0,31,24,arg0
|
|
|
|
# define GET_DLOC_L_IND_Y_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
GET_DLOC_L_IND_Y_WR()
|
|
#else /* C */
|
|
|
|
# define GET_DLOC_L_IND_Y_WR() \
|
|
arg = (direct + arg) & 0xffff; \
|
|
if(direct & 0xff) { \
|
|
CYCLES_PLUS_1; \
|
|
} \
|
|
GET_MEMORY24(arg,arg,1); \
|
|
INC_KPC_2; \
|
|
arg = (arg + yreg) & 0xffffff;
|
|
|
|
# define GET_DLOC_L_IND_Y_ADDR() \
|
|
GET_1BYTE_ARG; \
|
|
GET_DLOC_L_IND_Y_WR()
|
|
#endif
|
|
|
|
|
|
#ifdef ASM
|
|
# define GET_ABS_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
ldb 2(scratch1),scratch1 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
dep dbank,15,8,arg0 ! \
|
|
INC_KPC_3 ! \
|
|
dep scratch1,23,8,arg0
|
|
|
|
# define GET_LONG_ADDR() \
|
|
ldb 1(scratch1),arg0 ! \
|
|
ldb 2(scratch1),scratch2 ! \
|
|
CYCLES_PLUS_2 ! \
|
|
ldb 3(scratch1),scratch1 ! \
|
|
INC_KPC_4 ! \
|
|
dep scratch2,23,8,arg0 ! \
|
|
dep scratch1,15,8,arg0
|
|
#else /* C */
|
|
|
|
# define GET_ABS_ADDR() \
|
|
GET_2BYTE_ARG; \
|
|
CYCLES_PLUS_1; \
|
|
arg = arg + (dbank << 16); \
|
|
INC_KPC_3;
|
|
|
|
# define GET_LONG_ADDR() \
|
|
GET_3BYTE_ARG; \
|
|
CYCLES_PLUS_2; \
|
|
INC_KPC_4;
|
|
#endif
|
|
|
|
#ifdef ASM
|
|
#define GET_ABS_INDEX_ADDR_FOR_WR(index_reg) \
|
|
ldb 1(scratch1),arg0 ! \
|
|
copy index_reg,scratch3 ! \
|
|
ldb 2(scratch1),scratch2 ! \
|
|
dep dbank,15,8,scratch3 ! \
|
|
INC_KPC_3 ! \
|
|
dep scratch2,23,8,arg0 ! \
|
|
CYCLES_PLUS_2 ! \
|
|
add arg0,scratch3,arg0 ! \
|
|
extru arg0,31,24,arg0
|
|
|
|
#define GET_LONG_X_ADDR_FOR_WR() \
|
|
ldb 3(scratch1),scratch2 ! \
|
|
copy xreg,scratch3 ! \
|
|
ldb 1(scratch1),arg0 ! \
|
|
ldb 2(scratch1),scratch1 ! \
|
|
CYCLES_PLUS_2 ! \
|
|
dep scratch2,15,8,scratch3 ! \
|
|
INC_KPC_4 ! \
|
|
dep scratch1,23,8,arg0 ! \
|
|
add arg0,scratch3,arg0 ! \
|
|
extru arg0,31,24,arg0
|
|
#else /* C */
|
|
|
|
#define GET_ABS_INDEX_ADDR_FOR_WR(index_reg) \
|
|
GET_2BYTE_ARG; \
|
|
arg = arg + (dbank << 16); \
|
|
INC_KPC_3; \
|
|
CYCLES_PLUS_2; \
|
|
arg = (arg + index_reg) & 0xffffff;
|
|
|
|
#define GET_LONG_X_ADDR_FOR_WR() \
|
|
GET_3BYTE_ARG; \
|
|
INC_KPC_4; \
|
|
arg = (arg + xreg) & 0xffffff; \
|
|
CYCLES_PLUS_2;
|
|
|
|
#endif /* ASM */
|
|
|
|
|
|
#ifdef ASM
|
|
.export op_routs_end,data
|
|
op_routs_end .word 0
|
|
|
|
|
|
#define GET_DLOC_IND_Y_WR_SPECIAL() \
|
|
add direct,arg0,arg0 ! \
|
|
extru,= direct,31,8,0 ! \
|
|
CYCLES_PLUS_1 ! \
|
|
bl get_mem_b0_direct_page_16,link ! \
|
|
extru arg0,31,16,arg0 ! \
|
|
dep dbank,15,8,ret0 ! \
|
|
INC_KPC_2 ! \
|
|
add yreg,ret0,arg0 /* don't change this instr */
|
|
/* or add any after */
|
|
/* to preserve ret0 & arg0 */
|
|
|
|
|
|
/* cycle calc: if yreg is 16bit or carry into 2nd byte, inc cycle */
|
|
/* So, if y==16bit, add 1. If x==8bit, add 1 if carry */
|
|
get_dloc_ind_y_rd_8
|
|
stw link,STACK_SAVE_OP_LINK(sp)
|
|
GET_DLOC_IND_Y_WR_SPECIAL()
|
|
xor arg0,ret0,scratch1
|
|
extru,= psr,27,1,0
|
|
extru,= scratch1,23,8,0
|
|
CYCLES_PLUS_1
|
|
b get_mem_long_8
|
|
ldw STACK_SAVE_OP_LINK(sp),link
|
|
|
|
get_dloc_ind_y_rd_16
|
|
stw link,STACK_SAVE_OP_LINK(sp)
|
|
GET_DLOC_IND_Y_WR_SPECIAL()
|
|
xor arg0,ret0,scratch1
|
|
extru,= psr,27,1,0
|
|
extru,= scratch1,23,8,0
|
|
CYCLES_PLUS_1
|
|
b get_mem_long_16
|
|
ldw STACK_SAVE_OP_LINK(sp),link
|
|
|
|
|
|
|
|
#endif /* ASM */
|
|
|