mirror of
https://github.com/mauiaaron/apple2.git
synced 2025-01-12 21:30:07 +00:00
Use name-indirection for assembly acting on full-length registers
This commit is contained in:
Aaron Culliney
parent
efc63aeb7a
commit
71f71af834
@ -35,10 +35,30 @@
|
|||||||
# define _XSP %esp /* x86 stack pointer */
|
# define _XSP %esp /* x86 stack pointer */
|
||||||
# define _XAX %eax /* scratch */
|
# define _XAX %eax /* scratch */
|
||||||
# define _XBX %ebx /* scratch2 */
|
# define _XBX %ebx /* scratch2 */
|
||||||
|
// full-length Apple ][ registers
|
||||||
# define XY_Reg_X %ebx /* 6502 X&Y flags */
|
# define XY_Reg_X %ebx /* 6502 X&Y flags */
|
||||||
# define AF_Reg_X %ecx /* 6502 F&A flags */
|
# define AF_Reg_X %ecx /* 6502 F&A flags */
|
||||||
# define SP_Reg_X %edx /* 6502 Stack pointer */
|
# define SP_Reg_X %edx /* 6502 Stack pointer */
|
||||||
# define PC_Reg_X %esi /* 6502 Program Counter */
|
# define PC_Reg_X %esi /* 6502 Program Counter */
|
||||||
# define EffectiveAddr_X %edi /* Effective address */
|
# define EffectiveAddr_X %edi /* Effective address */
|
||||||
|
// full-length assembly instructions
|
||||||
|
# define addLQ addl
|
||||||
|
# define andLQ andl
|
||||||
|
# define decLQ decl
|
||||||
|
# define orLQ orl
|
||||||
|
# define movLQ movl
|
||||||
|
# define movzbLQ movzbl
|
||||||
|
# define movzwLQ movzwl
|
||||||
|
# define popaLQ popal
|
||||||
|
# define popLQ popl
|
||||||
|
# define pushaLQ pushal
|
||||||
|
# define pushfLQ pushfl
|
||||||
|
# define pushLQ pushl
|
||||||
|
# define rorLQ rorl
|
||||||
|
# define shlLQ shll
|
||||||
|
# define shrLQ shrl
|
||||||
|
# define subLQ subl
|
||||||
|
# define testLQ testl
|
||||||
|
# define xorLQ xorl
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|||||||
126
src/x86/cpu.S
126
src/x86/cpu.S
@ -29,12 +29,12 @@
|
|||||||
------------------------------------------------------------------------- */
|
------------------------------------------------------------------------- */
|
||||||
|
|
||||||
#define GetFromPC_B \
|
#define GetFromPC_B \
|
||||||
movl PC_Reg_X, EffectiveAddr_X; \
|
movLQ PC_Reg_X, EffectiveAddr_X; \
|
||||||
incw PC_Reg; \
|
incw PC_Reg; \
|
||||||
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2);
|
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2);
|
||||||
|
|
||||||
#define GetFromPC_W \
|
#define GetFromPC_W \
|
||||||
movl PC_Reg_X, EffectiveAddr_X; \
|
movLQ PC_Reg_X, EffectiveAddr_X; \
|
||||||
incw EffectiveAddr; \
|
incw EffectiveAddr; \
|
||||||
addw $2, PC_Reg; \
|
addw $2, PC_Reg; \
|
||||||
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2); \
|
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2); \
|
||||||
@ -66,11 +66,11 @@
|
|||||||
call *SN(cpu65_vmem)+4(,EffectiveAddr_X,SZ_PTR*2);
|
call *SN(cpu65_vmem)+4(,EffectiveAddr_X,SZ_PTR*2);
|
||||||
|
|
||||||
#define GetFromMem_B(x) \
|
#define GetFromMem_B(x) \
|
||||||
movl x, EffectiveAddr_X; \
|
movLQ x, EffectiveAddr_X; \
|
||||||
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2);
|
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2);
|
||||||
|
|
||||||
#define GetFromMem_W(x) \
|
#define GetFromMem_W(x) \
|
||||||
movl x, EffectiveAddr_X; \
|
movLQ x, EffectiveAddr_X; \
|
||||||
incw EffectiveAddr; \
|
incw EffectiveAddr; \
|
||||||
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2); \
|
call *SN(cpu65_vmem)(,EffectiveAddr_X,SZ_PTR*2); \
|
||||||
decw EffectiveAddr; \
|
decw EffectiveAddr; \
|
||||||
@ -82,7 +82,7 @@
|
|||||||
|
|
||||||
#define BranchXCycles \
|
#define BranchXCycles \
|
||||||
incb DebugCycleCount; /* +1 branch taken */ \
|
incb DebugCycleCount; /* +1 branch taken */ \
|
||||||
shll $16, _XBX; \
|
shlLQ $16, _XBX; \
|
||||||
movw PC_Reg, %bx; \
|
movw PC_Reg, %bx; \
|
||||||
cbw; \
|
cbw; \
|
||||||
addw %bx, %ax; \
|
addw %bx, %ax; \
|
||||||
@ -90,7 +90,7 @@
|
|||||||
cmpb %ah, %bh; \
|
cmpb %ah, %bh; \
|
||||||
je 9f; \
|
je 9f; \
|
||||||
incb DebugCycleCount; /* +1 branch new page */ \
|
incb DebugCycleCount; /* +1 branch new page */ \
|
||||||
9: shrl $16, _XBX;
|
9: shrLQ $16, _XBX;
|
||||||
|
|
||||||
#define FlagC lahf; \
|
#define FlagC lahf; \
|
||||||
andb $C_Flag, %ah; \
|
andb $C_Flag, %ah; \
|
||||||
@ -125,9 +125,9 @@
|
|||||||
* This doesn't affect the cycle count.
|
* This doesn't affect the cycle count.
|
||||||
*/
|
*/
|
||||||
#define FlagNVZC \
|
#define FlagNVZC \
|
||||||
pushfl; \
|
pushfLQ; \
|
||||||
popl _XAX; \
|
popLQ _XAX; \
|
||||||
andl $0x08C1,_XAX; \
|
andLQ $0x08C1,_XAX; \
|
||||||
andb $~(N_Flag|V_Flag|Z_Flag|C_Flag), F_Reg; \
|
andb $~(N_Flag|V_Flag|Z_Flag|C_Flag), F_Reg; \
|
||||||
orb %ah, F_Reg; \
|
orb %ah, F_Reg; \
|
||||||
orb %al, F_Reg;
|
orb %al, F_Reg;
|
||||||
@ -140,19 +140,19 @@
|
|||||||
|
|
||||||
/* Immediate Addressing - the operand is contained in the second byte of the
|
/* Immediate Addressing - the operand is contained in the second byte of the
|
||||||
instruction. */
|
instruction. */
|
||||||
#define GetImm movl PC_Reg_X, EffectiveAddr_X; \
|
#define GetImm movLQ PC_Reg_X, EffectiveAddr_X; \
|
||||||
incw PC_Reg;
|
incw PC_Reg;
|
||||||
|
|
||||||
/* Absolute Addressing - the second byte of the instruction is the low
|
/* Absolute Addressing - the second byte of the instruction is the low
|
||||||
order address, and the third byte is the high order byte. */
|
order address, and the third byte is the high order byte. */
|
||||||
#define GetAbs GetFromPC_W; \
|
#define GetAbs GetFromPC_W; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Zero Page Addressing - the second byte of the instruction is an
|
/* Zero Page Addressing - the second byte of the instruction is an
|
||||||
address on the zero page */
|
address on the zero page */
|
||||||
#define GetZPage \
|
#define GetZPage \
|
||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Zero Page Indexed Addressing - The effective address is calculated by
|
/* Zero Page Indexed Addressing - The effective address is calculated by
|
||||||
adding the second byte to the contents of the index register. Due
|
adding the second byte to the contents of the index register. Due
|
||||||
@ -162,13 +162,13 @@
|
|||||||
#define GetZPage_X \
|
#define GetZPage_X \
|
||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
addb X_Reg, %al; \
|
addb X_Reg, %al; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
// HACK IS THIS EVER USED?
|
// HACK IS THIS EVER USED?
|
||||||
#define GetZPage_Y \
|
#define GetZPage_Y \
|
||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
addb Y_Reg, %al; \
|
addb Y_Reg, %al; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Absolute Indexed Addressing - The effective address is formed by
|
/* Absolute Indexed Addressing - The effective address is formed by
|
||||||
adding the contents of X or Y to the address contained in the
|
adding the contents of X or Y to the address contained in the
|
||||||
@ -182,11 +182,11 @@
|
|||||||
#define GetAbs_X \
|
#define GetAbs_X \
|
||||||
_GetAbs_X \
|
_GetAbs_X \
|
||||||
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
#define GetAbs_X_STx \
|
#define GetAbs_X_STx \
|
||||||
_GetAbs_X \
|
_GetAbs_X \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
#define _GetAbs_Y \
|
#define _GetAbs_Y \
|
||||||
GetFromPC_W; \
|
GetFromPC_W; \
|
||||||
@ -197,11 +197,11 @@
|
|||||||
#define GetAbs_Y \
|
#define GetAbs_Y \
|
||||||
_GetAbs_Y \
|
_GetAbs_Y \
|
||||||
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
#define GetAbs_Y_STA \
|
#define GetAbs_Y_STA \
|
||||||
_GetAbs_Y \
|
_GetAbs_Y \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Absolute Indirect Addressing - The second and third bytes of the
|
/* Absolute Indirect Addressing - The second and third bytes of the
|
||||||
instruction are the low and high bytes of an address, respectively.
|
instruction are the low and high bytes of an address, respectively.
|
||||||
@ -221,13 +221,13 @@
|
|||||||
#define GetIndZPage \
|
#define GetIndZPage \
|
||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
incb %al; \
|
incb %al; \
|
||||||
movl _XAX, EffectiveAddr_X; \
|
movLQ _XAX, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
movb %al, %ah; \
|
movb %al, %ah; \
|
||||||
decl EffectiveAddr_X; \
|
decLQ EffectiveAddr_X; \
|
||||||
andl $0xFF, EffectiveAddr_X; \
|
andLQ $0xFF, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Zero Page Indexed Indirect Addressing - The second byte is added to
|
/* Zero Page Indexed Indirect Addressing - The second byte is added to
|
||||||
the contents of the X index register; the carry is discarded. The
|
the contents of the X index register; the carry is discarded. The
|
||||||
@ -240,13 +240,13 @@
|
|||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
addb X_Reg, %al; \
|
addb X_Reg, %al; \
|
||||||
incb %al; \
|
incb %al; \
|
||||||
movl _XAX, EffectiveAddr_X; \
|
movLQ _XAX, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
movb %al, %ah; \
|
movb %al, %ah; \
|
||||||
decl EffectiveAddr_X; \
|
decLQ EffectiveAddr_X; \
|
||||||
andl $0xFF, EffectiveAddr_X; \
|
andLQ $0xFF, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
movl _XAX, EffectiveAddr_X;
|
movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
/* Indirect Indexed Addressing - The second byte of the instruction
|
/* Indirect Indexed Addressing - The second byte of the instruction
|
||||||
points to a memory location in page zero. The contents of this
|
points to a memory location in page zero. The contents of this
|
||||||
@ -258,11 +258,11 @@
|
|||||||
#define _GetIndZPage_Y \
|
#define _GetIndZPage_Y \
|
||||||
GetFromPC_B; \
|
GetFromPC_B; \
|
||||||
incb %al; \
|
incb %al; \
|
||||||
movl _XAX, EffectiveAddr_X; \
|
movLQ _XAX, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
movb %al, %ah; \
|
movb %al, %ah; \
|
||||||
decl EffectiveAddr_X; \
|
decLQ EffectiveAddr_X; \
|
||||||
andl $0xFF, EffectiveAddr_X; \
|
andLQ $0xFF, EffectiveAddr_X; \
|
||||||
GetFromEA_B; \
|
GetFromEA_B; \
|
||||||
addb Y_Reg, %al; \
|
addb Y_Reg, %al; \
|
||||||
jnc 9f;
|
jnc 9f;
|
||||||
@ -271,12 +271,12 @@
|
|||||||
_GetIndZPage_Y \
|
_GetIndZPage_Y \
|
||||||
adcb $0, %ah; \
|
adcb $0, %ah; \
|
||||||
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
incb DebugCycleCount; /* +1 cycle on page boundary */ \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
#define GetIndZPage_Y_STA \
|
#define GetIndZPage_Y_STA \
|
||||||
_GetIndZPage_Y \
|
_GetIndZPage_Y \
|
||||||
adcb $0, %ah; \
|
adcb $0, %ah; \
|
||||||
9: movl _XAX, EffectiveAddr_X;
|
9: movLQ _XAX, EffectiveAddr_X;
|
||||||
|
|
||||||
#define DoADC_b GetFromEA_B \
|
#define DoADC_b GetFromEA_B \
|
||||||
bt $C_Flag_Bit, AF_Reg_X; \
|
bt $C_Flag_Bit, AF_Reg_X; \
|
||||||
@ -399,7 +399,7 @@
|
|||||||
|
|
||||||
#define DoROR GetFromEA_B \
|
#define DoROR GetFromEA_B \
|
||||||
movb F_Reg, %ah; \
|
movb F_Reg, %ah; \
|
||||||
rorl $1, _XAX; \
|
rorLQ $1, _XAX; \
|
||||||
orb %al, %al; \
|
orb %al, %al; \
|
||||||
btr $31, _XAX; \
|
btr $31, _XAX; \
|
||||||
FlagNZC \
|
FlagNZC \
|
||||||
@ -818,7 +818,7 @@ E(op_BRK)
|
|||||||
Push(%ah)
|
Push(%ah)
|
||||||
Push(%al)
|
Push(%al)
|
||||||
orb $(B_Flag|X_Flag), F_Reg
|
orb $(B_Flag|X_Flag), F_Reg
|
||||||
movzbl F_Reg, _XAX
|
movzbLQ F_Reg, _XAX
|
||||||
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
||||||
Push(%al)
|
Push(%al)
|
||||||
orb $I_Flag, F_Reg
|
orb $I_Flag, F_Reg
|
||||||
@ -1175,7 +1175,7 @@ jmp_special: // see JMP indirect note in _Understanding the Apple IIe_ 4-25
|
|||||||
E(op_JMP_abs_ind_x)
|
E(op_JMP_abs_ind_x)
|
||||||
GetFromPC_W
|
GetFromPC_W
|
||||||
movw %ax, EffectiveAddr
|
movw %ax, EffectiveAddr
|
||||||
movzbl X_Reg, _XAX
|
movzbLQ X_Reg, _XAX
|
||||||
addw %ax, EffectiveAddr
|
addw %ax, EffectiveAddr
|
||||||
GetFromMem_W(EffectiveAddr_X)
|
GetFromMem_W(EffectiveAddr_X)
|
||||||
movw %ax, PC_Reg
|
movw %ax, PC_Reg
|
||||||
@ -1961,16 +1961,16 @@ E(op_WAI_65c02)
|
|||||||
------------------------------------------------------------------------- */
|
------------------------------------------------------------------------- */
|
||||||
|
|
||||||
continue:
|
continue:
|
||||||
movzbl DebugCurrOpcode, _XAX
|
movzbLQ DebugCurrOpcode, _XAX
|
||||||
movb SN(cpu65__opcycles)(,_XAX,1), %al
|
movb SN(cpu65__opcycles)(,_XAX,1), %al
|
||||||
addb DebugCycleCount, %al
|
addb DebugCycleCount, %al
|
||||||
movb %al, DebugCycleCount
|
movb %al, DebugCycleCount
|
||||||
addw %ax, SN(cpu65_cycle_count)
|
addw %ax, SN(cpu65_cycle_count)
|
||||||
subl _XAX, SN(gc_cycles_timer_0)
|
subLQ _XAX, SN(gc_cycles_timer_0)
|
||||||
subl _XAX, SN(gc_cycles_timer_1)
|
subLQ _XAX, SN(gc_cycles_timer_1)
|
||||||
subw %ax, SN(cpu65_cycles_to_execute)
|
subw %ax, SN(cpu65_cycles_to_execute)
|
||||||
jle exit_cpu65_run
|
jle exit_cpu65_run
|
||||||
continue1: xorl _XAX, _XAX
|
continue1: xorLQ _XAX, _XAX
|
||||||
orb SN(cpu65__signal), %al
|
orb SN(cpu65__signal), %al
|
||||||
jnz exception
|
jnz exception
|
||||||
1: JumpNextInstruction
|
1: JumpNextInstruction
|
||||||
@ -2001,12 +2001,12 @@ ex_irq: testb $I_Flag, F_Reg // Already interrupt
|
|||||||
Push(%ah)
|
Push(%ah)
|
||||||
Push(%al)
|
Push(%al)
|
||||||
orb $X_Flag, F_Reg
|
orb $X_Flag, F_Reg
|
||||||
movzbl F_Reg, _XAX
|
movzbLQ F_Reg, _XAX
|
||||||
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
||||||
Push(%al)
|
Push(%al)
|
||||||
orb $(B_Flag | I_Flag), F_Reg
|
orb $(B_Flag | I_Flag), F_Reg
|
||||||
//andb $~D_Flag, F_Reg // AppleWin clears Decimal bit?
|
//andb $~D_Flag, F_Reg // AppleWin clears Decimal bit?
|
||||||
movl $0xFFFE, EffectiveAddr_X// HACK FIXME : there is a bug somewhere that is occasionally corrupting EffectiveAddr_X
|
movLQ $0xFFFE, EffectiveAddr_X// HACK FIXME : there is a bug somewhere that is occasionally corrupting EffectiveAddr_X
|
||||||
GetFromEA_W
|
GetFromEA_W
|
||||||
movw %ax, PC_Reg
|
movw %ax, PC_Reg
|
||||||
xorb %ah, %ah
|
xorb %ah, %ah
|
||||||
@ -2016,36 +2016,36 @@ ex_irq: testb $I_Flag, F_Reg // Already interrupt
|
|||||||
CPU thread main entry and exit points
|
CPU thread main entry and exit points
|
||||||
------------------------------------------------------------------------- */
|
------------------------------------------------------------------------- */
|
||||||
E(cpu65_run)
|
E(cpu65_run)
|
||||||
pushal // ENTER CPURUN
|
pushaLQ // ENTER CPURUN
|
||||||
cmpb $0, SN(emul_reinitialize)
|
cmpb $0, SN(emul_reinitialize)
|
||||||
jnz 1f
|
jnz 1f
|
||||||
|
|
||||||
// Restore CPU state when being called from C.
|
// Restore CPU state when being called from C.
|
||||||
movl $0x0100, SP_Reg_X
|
movLQ $0x0100, SP_Reg_X
|
||||||
movzwl DebugCurrEA, EffectiveAddr_X
|
movzwLQ DebugCurrEA, EffectiveAddr_X
|
||||||
movzwl SN(cpu65_current), PC_Reg_X
|
movzwLQ SN(cpu65_current), PC_Reg_X
|
||||||
movzbl SN(cpu65_current)+2, AF_Reg_X
|
movzbLQ SN(cpu65_current)+2, AF_Reg_X
|
||||||
movzbl SN(cpu65_current)+3, _XAX
|
movzbLQ SN(cpu65_current)+3, _XAX
|
||||||
movb SN(cpu65_flags_decode)(,_XAX,1), F_Reg
|
movb SN(cpu65_flags_decode)(,_XAX,1), F_Reg
|
||||||
movzbl SN(cpu65_current)+4, XY_Reg_X
|
movzbLQ SN(cpu65_current)+4, XY_Reg_X
|
||||||
movb SN(cpu65_current)+5, Y_Reg
|
movb SN(cpu65_current)+5, Y_Reg
|
||||||
movb SN(cpu65_current)+6, SP_Reg_L
|
movb SN(cpu65_current)+6, SP_Reg_L
|
||||||
#ifdef __APPLE2_VM__
|
#ifdef __APPLE2_VM__
|
||||||
// Apple //e machine specific set stack point to ALTZP (or not)
|
// Apple //e machine specific set stack point to ALTZP (or not)
|
||||||
movl SN(base_stackzp), _XAX
|
movLQ SN(base_stackzp), _XAX
|
||||||
subl $SN(apple_ii_64k), _XAX
|
subLQ $SN(apple_ii_64k), _XAX
|
||||||
orl _XAX, SP_Reg_X
|
orLQ _XAX, SP_Reg_X
|
||||||
#endif
|
#endif
|
||||||
jmp continue1
|
jmp continue1
|
||||||
|
|
||||||
1: movb $0, SN(emul_reinitialize)
|
1: movb $0, SN(emul_reinitialize)
|
||||||
// Zero all used registers
|
// Zero all used registers
|
||||||
xorl _XAX, _XAX
|
xorLQ _XAX, _XAX
|
||||||
xorl XY_Reg_X, XY_Reg_X
|
xorLQ XY_Reg_X, XY_Reg_X
|
||||||
xorl AF_Reg_X, AF_Reg_X
|
xorLQ AF_Reg_X, AF_Reg_X
|
||||||
xorl PC_Reg_X, PC_Reg_X
|
xorLQ PC_Reg_X, PC_Reg_X
|
||||||
xorl EffectiveAddr_X, EffectiveAddr_X
|
xorLQ EffectiveAddr_X, EffectiveAddr_X
|
||||||
movl $0x1FF, SP_Reg_X
|
movLQ $0x1FF, SP_Reg_X
|
||||||
jmp ex_reset
|
jmp ex_reset
|
||||||
|
|
||||||
exit_cpu65_run:
|
exit_cpu65_run:
|
||||||
@ -2053,18 +2053,18 @@ exit_cpu65_run:
|
|||||||
movw EffectiveAddr, DebugCurrEA
|
movw EffectiveAddr, DebugCurrEA
|
||||||
movw PC_Reg, SN(cpu65_current)
|
movw PC_Reg, SN(cpu65_current)
|
||||||
movb A_Reg, SN(cpu65_current)+2
|
movb A_Reg, SN(cpu65_current)+2
|
||||||
movzbl F_Reg, _XAX
|
movzbLQ F_Reg, _XAX
|
||||||
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
movb SN(cpu65_flags_encode)(,_XAX,1), %al
|
||||||
movb %al, SN(cpu65_current)+3
|
movb %al, SN(cpu65_current)+3
|
||||||
movb X_Reg, SN(cpu65_current)+4
|
movb X_Reg, SN(cpu65_current)+4
|
||||||
movb Y_Reg, SN(cpu65_current)+5
|
movb Y_Reg, SN(cpu65_current)+5
|
||||||
movb SP_Reg_L, SN(cpu65_current)+6
|
movb SP_Reg_L, SN(cpu65_current)+6
|
||||||
popal
|
popaLQ
|
||||||
ret
|
ret
|
||||||
|
|
||||||
emul_reinit: movb $0, SN(cpu65__signal)
|
emul_reinit: movb $0, SN(cpu65__signal)
|
||||||
movb $1, SN(emul_reinitialize)
|
movb $1, SN(emul_reinitialize)
|
||||||
popal
|
popaLQ
|
||||||
ret
|
ret
|
||||||
|
|
||||||
/* -------------------------------------------------------------------------
|
/* -------------------------------------------------------------------------
|
||||||
@ -2072,10 +2072,10 @@ emul_reinit: movb $0, SN(cpu65__signal)
|
|||||||
------------------------------------------------------------------------- */
|
------------------------------------------------------------------------- */
|
||||||
|
|
||||||
E(cpu65_direct_write)
|
E(cpu65_direct_write)
|
||||||
pushl EffectiveAddr_X
|
pushLQ EffectiveAddr_X
|
||||||
movl 8(_XSP),EffectiveAddr_X
|
movLQ 8(_XSP),EffectiveAddr_X
|
||||||
movl 12(_XSP),_XAX
|
movLQ 12(_XSP),_XAX
|
||||||
call *SN(cpu65_vmem)+4(,EffectiveAddr_X,SZ_PTR*2)
|
call *SN(cpu65_vmem)+4(,EffectiveAddr_X,SZ_PTR*2)
|
||||||
popl EffectiveAddr_X
|
popLQ EffectiveAddr_X
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
|||||||
@ -28,29 +28,29 @@ E(func) movb %al,SN(address)(EffectiveAddr_X); \
|
|||||||
ret;
|
ret;
|
||||||
|
|
||||||
#define GLUE_BANK_MAYBEREAD(func,pointer) \
|
#define GLUE_BANK_MAYBEREAD(func,pointer) \
|
||||||
E(func) testl $SS_CXROM, SN(softswitches); \
|
E(func) testLQ $SS_CXROM, SN(softswitches); \
|
||||||
jnz 1f; \
|
jnz 1f; \
|
||||||
call *SN(pointer); \
|
call *SN(pointer); \
|
||||||
ret; \
|
ret; \
|
||||||
1: addl SN(pointer),EffectiveAddr_X; \
|
1: addLQ SN(pointer),EffectiveAddr_X; \
|
||||||
movb (EffectiveAddr_X),%al; \
|
movb (EffectiveAddr_X),%al; \
|
||||||
subl SN(pointer),EffectiveAddr_X; \
|
subLQ SN(pointer),EffectiveAddr_X; \
|
||||||
ret;
|
ret;
|
||||||
|
|
||||||
#define GLUE_BANK_READ(func,pointer) \
|
#define GLUE_BANK_READ(func,pointer) \
|
||||||
E(func) addl SN(pointer),EffectiveAddr_X; \
|
E(func) addLQ SN(pointer),EffectiveAddr_X; \
|
||||||
movb (EffectiveAddr_X),%al; \
|
movb (EffectiveAddr_X),%al; \
|
||||||
subl SN(pointer),EffectiveAddr_X; \
|
subLQ SN(pointer),EffectiveAddr_X; \
|
||||||
ret;
|
ret;
|
||||||
|
|
||||||
#define GLUE_BANK_WRITE(func,pointer) \
|
#define GLUE_BANK_WRITE(func,pointer) \
|
||||||
E(func) addl SN(pointer),EffectiveAddr_X; \
|
E(func) addLQ SN(pointer),EffectiveAddr_X; \
|
||||||
movb %al,(EffectiveAddr_X); \
|
movb %al,(EffectiveAddr_X); \
|
||||||
subl SN(pointer),EffectiveAddr_X; \
|
subLQ SN(pointer),EffectiveAddr_X; \
|
||||||
ret;
|
ret;
|
||||||
|
|
||||||
#define GLUE_BANK_MAYBEWRITE(func,pointer) \
|
#define GLUE_BANK_MAYBEWRITE(func,pointer) \
|
||||||
E(func) addl SN(pointer),EffectiveAddr_X; \
|
E(func) addLQ SN(pointer),EffectiveAddr_X; \
|
||||||
cmpl $0,SN(pointer); \
|
cmpl $0,SN(pointer); \
|
||||||
jz 1f; \
|
jz 1f; \
|
||||||
movb %al,(EffectiveAddr_X); \
|
movb %al,(EffectiveAddr_X); \
|
||||||
@ -59,41 +59,41 @@ E(func) addl SN(pointer),EffectiveAddr_X; \
|
|||||||
|
|
||||||
// TODO FIXME : implement CDECL prologue/epilogues...
|
// TODO FIXME : implement CDECL prologue/epilogues...
|
||||||
#define GLUE_C_WRITE(func) \
|
#define GLUE_C_WRITE(func) \
|
||||||
E(func) pushl _XAX; \
|
E(func) pushLQ _XAX; \
|
||||||
pushl XY_Reg_X; \
|
pushLQ XY_Reg_X; \
|
||||||
pushl AF_Reg_X; \
|
pushLQ AF_Reg_X; \
|
||||||
pushl SP_Reg_X; \
|
pushLQ SP_Reg_X; \
|
||||||
pushl PC_Reg_X; \
|
pushLQ PC_Reg_X; \
|
||||||
andl $0xff,_XAX; \
|
andLQ $0xff,_XAX; \
|
||||||
pushl _XAX; \
|
pushLQ _XAX; \
|
||||||
pushl EffectiveAddr_X; \
|
pushLQ EffectiveAddr_X; \
|
||||||
call SN(c_##func); \
|
call SN(c_##func); \
|
||||||
popl EffectiveAddr_X; /* dummy */ \
|
popLQ EffectiveAddr_X; /* dummy */ \
|
||||||
popl _XAX; /* dummy */ \
|
popLQ _XAX; /* dummy */ \
|
||||||
popl PC_Reg_X; \
|
popLQ PC_Reg_X; \
|
||||||
popl SP_Reg_X; \
|
popLQ SP_Reg_X; \
|
||||||
popl AF_Reg_X; \
|
popLQ AF_Reg_X; \
|
||||||
popl XY_Reg_X; \
|
popLQ XY_Reg_X; \
|
||||||
popl _XAX; \
|
popLQ _XAX; \
|
||||||
ret;
|
ret;
|
||||||
|
|
||||||
// TODO FIXME : implement CDECL prologue/epilogues...
|
// TODO FIXME : implement CDECL prologue/epilogues...
|
||||||
#define _GLUE_C_READ(func, ...) \
|
#define _GLUE_C_READ(func, ...) \
|
||||||
E(func) pushl XY_Reg_X; \
|
E(func) pushLQ XY_Reg_X; \
|
||||||
pushl AF_Reg_X; \
|
pushLQ AF_Reg_X; \
|
||||||
pushl SP_Reg_X; \
|
pushLQ SP_Reg_X; \
|
||||||
pushl PC_Reg_X; \
|
pushLQ PC_Reg_X; \
|
||||||
pushl _XAX; /* HACK: works around mysterious issue with generated mov(_XAX), _XAX ... */ \
|
pushLQ _XAX; /* HACK: works around mysterious issue with generated mov(_XAX), _XAX ... */ \
|
||||||
pushl EffectiveAddr_X; \
|
pushLQ EffectiveAddr_X; \
|
||||||
call SN(c_##func); \
|
call SN(c_##func); \
|
||||||
popl EffectiveAddr_X; /* dummy */ \
|
popLQ EffectiveAddr_X; /* dummy */ \
|
||||||
movb %al, %dl; \
|
movb %al, %dl; \
|
||||||
popl _XAX; /* ... ugh */ \
|
popLQ _XAX; /* ... ugh */ \
|
||||||
movb %dl, %al; \
|
movb %dl, %al; \
|
||||||
popl PC_Reg_X; \
|
popLQ PC_Reg_X; \
|
||||||
popl SP_Reg_X; \
|
popLQ SP_Reg_X; \
|
||||||
popl AF_Reg_X; \
|
popLQ AF_Reg_X; \
|
||||||
popl XY_Reg_X; \
|
popLQ XY_Reg_X; \
|
||||||
__VA_ARGS__ \
|
__VA_ARGS__ \
|
||||||
ret;
|
ret;
|
||||||
|
|
||||||
@ -101,11 +101,11 @@ E(func) pushl XY_Reg_X; \
|
|||||||
#define GLUE_C_READ(FUNC) _GLUE_C_READ(FUNC)
|
#define GLUE_C_READ(FUNC) _GLUE_C_READ(FUNC)
|
||||||
|
|
||||||
#define GLUE_C_READ_ALTZP(FUNC) _GLUE_C_READ(FUNC, \
|
#define GLUE_C_READ_ALTZP(FUNC) _GLUE_C_READ(FUNC, \
|
||||||
pushl _XAX; \
|
pushLQ _XAX; \
|
||||||
andl $0xFFFF, SP_Reg_X; \
|
andLQ $0xFFFF, SP_Reg_X; \
|
||||||
movl SN(base_stackzp), _XAX; \
|
movLQ SN(base_stackzp), _XAX; \
|
||||||
subl $SN(apple_ii_64k), _XAX; \
|
subLQ $SN(apple_ii_64k), _XAX; \
|
||||||
orl _XAX, SP_Reg_X; \
|
orLQ _XAX, SP_Reg_X; \
|
||||||
popl _XAX; \
|
popLQ _XAX; \
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user