sa1ops.s

著名SFC模拟器Snes9x的源代码。

/*
 * Snes9x - Portable Super Nintendo Entertainment System (TM) emulator.
 *
 * (c) Copyright 1996 - 2001 Gary Henderson ([e-mail]) and
 *                           Jerremy Koot ([e-mail])
 *
 * Super FX C emulator code 
 * (c) Copyright 1997 - 1999 Ivar ([e-mail]) and
 *                           Gary Henderson.
 * Super FX assembler emulator code (c) Copyright 1998 zsKnight and _Demo_.
 *
 * DSP1 emulator code (c) Copyright 1998 Ivar, _Demo_ and Gary Henderson.
 * C4 asm and some C emulation code (c) Copyright 2000 zsKnight and _Demo_.
 * C4 C code (c) Copyright 2001 Gary Henderson ([e-mail]).
 *
 * DOS port code contains the works of other authors. See headers in
 * individual files.
 *
 * Snes9x homepage: www.snes9x.com
 *
 * Permission to use, copy, modify and distribute Snes9x in both binary and
 * source form, for non-commercial purposes, is hereby granted without fee,
 * providing that this license information and copyright notice appear with
 * all copies and any derived work.
 *
 * This software is provided 'as-is', without any express or implied
 * warranty. In no event shall the authors be held liable for any damages
 * arising from the use of this software.
 *
 * Snes9x is freeware for PERSONAL USE only. Commercial users should
 * seek permission of the copyright holders first. Commercial use includes
 * charging money for Snes9x or software derived from Snes9x.
 *
 * The copyright holders request that bug fixes and improvements to the code
 * should be forwarded to them so everyone can benefit from the modifications
 * in future versions.
 *
 * Super NES and Super Nintendo Entertainment System are trademarks of
 * Nintendo Co., Limited and its subsidiary companies.
 */
#define Registers SA1Registers
#undef VAR_CYCLES
#include "sa1struc.h"

#if 0
#define PCS SA1PCS
#define PB SA1PB
#define PP SA1PP
#define PL SA1PL
#define PH SA1PH
#define AA SA1AA
#define AL SA1AL
#define AH SA1AH
#define DD SA1DD
#define DL SA1DL
#define DH SA1DH
#define SS SA1SS
#define SL SA1SL
#define SH SA1SH
#define XX SA1XX
#define XL SA1XL
#define XH SA1XH
#define YY SA1YY
#define YL SA1YL
#define YH SA1YH
#endif

#undef _Carry
#define _Carry SA1_Carry
#undef _Zero
#define _Zero SA1_Zero
#undef _Negative
#define _Negative SA1_Negative
#undef _Overflow
#define _Overflow SA1_Overflow

#include "sa1addr.h"
#include "sa1ops.h"
#include "sa1gs.S"

.data
.zzz:
.string "*** IRQ\n"

.text

.globl S9xSA1MainLoop
S9xSA1MainLoop:
	LOAD_REGISTERS
	testl $IRQ_PENDING_FLAG, SA1Flags
	jz .nosa1irq2
	testb $0xff, SA1IRQActive
	jz .nosa1irq1
	testb $IRQ, FLAGS
	jnz .nosa1irq2
	cmpb $0, WaitingForInterrupt
	je .nosa1wait
	incl PC
	movb $0, WaitingForInterrupt
.nosa1wait:
	call S9xSA1Opcode_IRQ
	jmp .nosa1irq2
.nosa1irq1:
	andl $~IRQ_PENDING_FLAG, SA1Flags	
.nosa1irq2:
	movl $3, %eax
.instruction_loop:
	testb $0xff, SA1Executing
	jz .exit
	pushl %eax
#ifdef DEBUGGER
	testb $TRACE_FLAG, SA1Flags
	jz .NO_SA1_TRACE
	STORE_REGISTERS
	ccall S9xSA1Trace
	LOAD_REGISTERS
.NO_SA1_TRACE:
#endif
	xorl %eax, %eax
	movl SA1Opcodes, %ecx
#ifdef CPU_SHUTDOWN
        movl PC, SA1PCAtOpcodeStart
#endif
	movb (PC), %al
	incl PC
	jmp *(%ecx,%eax,4)
.globl S9xSA1MainAsmLoop
S9xSA1MainAsmLoop:
	popl %eax
	decl %eax
	jnz .instruction_loop
.exit:
	STORE_REGISTERS
	ret

/* ADC */
Op69M1:
	Immediate8 ADC
	Adc8 IMM8

Op69M0:
	Immediate16 ADC2
	Adc16 IMM16

Op65M1:
	Direct8 ADC2
	call S9xSA1GetByte
	Adc8 DIR8

Op65M0:
	Direct8 ADC
	call S9xSA1GetWord
	Adc16 DIR16
	
Op75M1:
	DirectIndexedX8 ADC
	call S9xSA1GetByte
	Adc8 DIX8

Op75M0:
	DirectIndexedX8 ADC2
	call S9xSA1GetWord
	Adc16 DIX16

Op72M1:
	DirectIndirect8 ADC
	call S9xSA1GetByte
	Adc8 DI8

Op72M0:
	DirectIndirect8 ADC2
	call S9xSA1GetWord
	Adc16 DI16

Op61M1:
	DirectIndexedIndirect8 ADC
	call S9xSA1GetByte
	Adc8 DII8

Op61M0:
	DirectIndexedIndirect8 ADC2
	call S9xSA1GetWord
	Adc16 DII16

Op71M1:
	DirectIndirectIndexed8 ADC
	call S9xSA1GetByte
	Adc8 DIIY8

Op71M0:
	DirectIndirectIndexed8 ADC2
	call S9xSA1GetWord
	Adc16 DIIY16

Op67M1:
	DirectIndirectLong8 ADC
	call S9xSA1GetByte
	Adc8 DIL8

Op67M0:
	DirectIndirectLong8 ADC2
	call S9xSA1GetWord
	Adc16 DIL16

Op77M1:
	DirectIndirectIndexedLong8 ADC
	call S9xSA1GetByte
	Adc8 DIIL8

Op77M0:
	DirectIndirectIndexedLong8 ADC2
	call S9xSA1GetWord
	Adc16 DIIL8

Op6DM1:
	Absolute8 ADC
	call S9xSA1GetByte
	Adc8 ABS8

Op6DM0:
	Absolute8 ADC2
	call S9xSA1GetWord
	Adc16 ABS16

Op7DM1:
	AbsoluteIndexedX8 ADC
	call S9xSA1GetByte
	Adc8 ABSX8

Op7DM0:
	AbsoluteIndexedX8 ADC2
	call S9xSA1GetWord
	Adc16 ABSX16

Op79M1:
	AbsoluteIndexedY8 ADC
	call S9xSA1GetByte
	Adc8 ABSY8

Op79M0:
	AbsoluteIndexedY8 ADC2
	call S9xSA1GetWord
	Adc16 ABSY16

Op6FM1:
	AbsoluteLong8 ADC
	call S9xSA1GetByte
	Adc8 ABSL8

Op6FM0:
	AbsoluteLong8 ADC2
	call S9xSA1GetWord
	Adc16 ABSL16

Op7FM1:
	AbsoluteLongIndexedX8 ADC
	call S9xSA1GetByte
	Adc8 ALX8

Op7FM0:
	AbsoluteLongIndexedX8 ADC2
	call S9xSA1GetWord
	Adc16 ALX16

Op63M1:
	StackRelative8 ADC
	call S9xSA1GetByte
	Adc8 SREL8

Op63M0:
	StackRelative8 ADC2
	call S9xSA1GetWord
	Adc16 SREL16

Op73M1:
	StackRelativeIndirectIndexed8 ADC
	call S9xSA1GetByte
	Adc8 SRII8

Op73M0:
	StackRelativeIndirectIndexed8 ADC2
	call S9xSA1GetWord
	Adc16 SRII16

/* AND */
Op29M1:
	Immediate8 AND
	And8 IMM8

Op29M0:
	Immediate16 AND
	And16 IMM16

Op25M1:
	Direct8 AND
	call S9xSA1GetByte
	And8 DIR8

Op25M0:
	Direct8 AND2
	call S9xSA1GetWord
	And16 DIR16

Op35M1:
	DirectIndexedX8 AND
	call S9xSA1GetByte
	And8 DIX8

Op35M0:
	DirectIndexedX8 AND2
	call S9xSA1GetWord
	And16 DIX16

Op32M1:
	DirectIndirect8 AND
	call S9xSA1GetByte
	And8 DI8

Op32M0:
	DirectIndirect8 AND2
	call S9xSA1GetWord
	And16 DI16

Op21M1:
	DirectIndexedIndirect8 AND
	call S9xSA1GetByte
	And8 DII8

Op21M0:
	DirectIndexedIndirect8 AND2
	call S9xSA1GetWord
	And16 DII16

Op31M1:
	DirectIndirectIndexed8 AND
	call S9xSA1GetByte
	And8 DIIY8

Op31M0:
	DirectIndirectIndexed8 AND2
	call S9xSA1GetWord
	And16 DIIY16

Op27M1:
	DirectIndirectLong8 AND
	call S9xSA1GetByte
	And8 DIL8

Op27M0:
	DirectIndirectLong8 AND2
	call S9xSA1GetWord
	And16 DIL16

Op37M1:
	DirectIndirectIndexedLong8 AND
	call S9xSA1GetByte
	And8 DIIL8

Op37M0:
	DirectIndirectIndexedLong8 AND2
	call S9xSA1GetWord
	And16 DIIL16

Op2DM1:
	Absolute8 AND
	call S9xSA1GetByte
	And8 ABS8

Op2DM0:
	Absolute8 AND2
	call S9xSA1GetWord
	And16 ABS16

Op3DM1:
	AbsoluteIndexedX8 AND
	call S9xSA1GetByte
	And8 ABSX8

Op3DM0:
	AbsoluteIndexedX8 AND2
	call S9xSA1GetWord
	And16 ABSX16

Op39M1:
	AbsoluteIndexedY8 AND
	call S9xSA1GetByte
	And8 ABSY8

Op39M0:
	AbsoluteIndexedY8 AND2
	call S9xSA1GetWord
	And16 ABSY16

Op2FM1:
	AbsoluteLong8 AND
	call S9xSA1GetByte
	And8 ABSL8

Op2FM0:
	AbsoluteLong8 AND2
	call S9xSA1GetWord
	And16 ABSL16

Op3FM1:
	AbsoluteLongIndexedX8 AND
	call S9xSA1GetByte
	And8 ALX8

Op3FM0:
	AbsoluteLongIndexedX8 AND2
	call S9xSA1GetWord
	And16 ALX16

Op23M1:
	StackRelative8 AND
	call S9xSA1GetByte
	And8 SREL8

Op23M0:
	StackRelative8 AND2
	call S9xSA1GetWord
	And16 SREL16

Op33M1:
	StackRelativeIndirectIndexed8 AND
	call S9xSA1GetByte
	And8 SRII8

Op33M0:
	StackRelativeIndirectIndexed8 AND2
	call S9xSA1GetWord
	And16 SRII16

/* ASL */
Op0AM1:
	movb AL, %al
	salb %al
	movb %al, AL
	SetZNC
	jmp S9xSA1MainAsmLoop

Op0AM0:
	movw AA, %ax
	salw %ax
	movw %ax, AA
	setnz SA1_Zero
	setc SA1_Carry
	movb %ah, SA1_Negative
	jmp S9xSA1MainAsmLoop
	
Op06M1:
	Direct8 ASL
	Asl8 DIR8

Op06M0:
	Direct8 ASL2
	Asl16 DIR16

Op16M1:
	DirectIndexedX8 ASL
	Asl8 DIX

Op16M0:
	DirectIndexedX8 ASL2
	Asl16 DIX

Op0EM1:
	Absolute8 ASL
	Asl8 ABS

Op0EM0:
	Absolute8 ASL2
	Asl16 ABS

Op1EM1:
	AbsoluteIndexedX8 ASL
	Asl8 ABSX

Op1EM0:
	AbsoluteIndexedX8 ASL2
	Asl16 ABSX

/* BIT */
Op89M1:
	Immediate8 BIT
	andb AL, %al
	movb %al, SA1_Zero
	jmp S9xSA1MainAsmLoop

Op89M0:
	Immediate16 BIT
	andw AA, %ax
	setnz SA1_Zero
	jmp S9xSA1MainAsmLoop

Op24M1:
	Direct8 BIT
	Bit8 DIR

Op24M0:
	Direct8 BIT
	Bit16 DIR

Op34M1:
	DirectIndexedX8 BIT
	Bit8 DIX

Op34M0:
	DirectIndexedX8 BIT2
	Bit16 DIX

Op2CM1:
	Absolute8 BIT
	Bit8 ABS

Op2CM0:
	Absolute8 BIT2
	Bit16 ABS

Op3CM1:
	AbsoluteIndexedX8 BIT
	Bit8 ABSX

Op3CM0:
	AbsoluteIndexedX8 BIT2
	Bit16 ABSX

/* CMP */
OpC9M1:
	Immediate8 CMP
	Cmp8 IMM

OpC9M0:
	Immediate16 CMP
	Cmp16 IMM

OpC5M1:
	Direct8 CMP
	call S9xSA1GetByte
	Cmp8 DIR

OpC5M0:
	Direct8 CMP2
	call S9xSA1GetWord
	Cmp16 DIR

OpD5M1:
	DirectIndexedX8 CMP
	call S9xSA1GetByte
	Cmp8 DIX

OpD5M0:
	DirectIndexedX8 CMP2
	call S9xSA1GetWord
	Cmp16 DIX

OpD2M1:
	DirectIndirect8 CMP
	call S9xSA1GetByte
	Cmp8 DI

OpD2M0:
	DirectIndirect8 CMP2
	call S9xSA1GetWord
	Cmp16 DI

OpC1M1:
	DirectIndexedIndirect8 CMP
	call S9xSA1GetByte
	Cmp8 DII

OpC1M0:
	DirectIndexedIndirect8 CMP2
	call S9xSA1GetWord
	Cmp16 DII

OpD1M1:
	DirectIndirectIndexed8 CMP
	call S9xSA1GetByte
	Cmp8 DIIY

OpD1M0:
	DirectIndirectIndexed8 CMP2
	call S9xSA1GetWord
	Cmp16 DIIY

OpC7M1:
	DirectIndirectLong8 CMP
	call S9xSA1GetByte
	Cmp8 DIL

OpC7M0:
	DirectIndirectLong8 CMP2
	call S9xSA1GetWord
	Cmp16 DIL

OpD7M1:
	DirectIndirectIndexedLong8 CMP
	call S9xSA1GetByte
	Cmp8 DIIL

OpD7M0:
	DirectIndirectIndexedLong8 CMP2
	call S9xSA1GetWord
	Cmp16 DIIL

OpCDM1:
	Absolute8 CMP
	call S9xSA1GetByte
	Cmp8 ABS

OpCDM0:
	Absolute8 CMP2
	call S9xSA1GetWord
	Cmp16 ABS

OpDDM1:
	AbsoluteIndexedX8 CMP
	call S9xSA1GetByte
	Cmp8 ABSX

OpDDM0:
	AbsoluteIndexedX8 CMP2
	call S9xSA1GetWord
	Cmp16 ABSX

OpD9M1:
	AbsoluteIndexedY8 CMP
	call S9xSA1GetByte
	Cmp8 ABSY

OpD9M0:
	AbsoluteIndexedY8 CMP2
	call S9xSA1GetWord
	Cmp16 ABSY

OpCFM1:
	AbsoluteLong8 CMP
	call S9xSA1GetByte
	Cmp8 ABSL

OpCFM0:
	AbsoluteLong8 CMP2
	call S9xSA1GetWord
	Cmp16 ABSL

OpDFM1:
	AbsoluteLongIndexedX8 CMP
	call S9xSA1GetByte
	Cmp8 ALX

OpDFM0:
	AbsoluteLongIndexedX8 CMP2
	call S9xSA1GetWord
	Cmp16 ALX

OpC3M1:
	StackRelative8 CMP
	call S9xSA1GetByte
	Cmp8 SREL

OpC3M0:
	StackRelative8 CMP2
	call S9xSA1GetWord
	Cmp16 SREL

OpD3M1:
	StackRelativeIndirectIndexed8 CMP
	call S9xSA1GetByte
	Cmp8 SRII

OpD3M0:
	StackRelativeIndirectIndexed8 CMP2
	call S9xSA1GetWord
	Cmp16 SRII

/* CPX */
OpE0X1:
	Immediate8 CPX
	Cpx8 IMM

OpE0X0:
	Immediate16 CPX
	Cpx16 IMM

OpE4X1:
	Direct8 CPX
	call S9xSA1GetByte
	Cpx8 DIR

OpE4X0:
	Direct8 CPX2
	call S9xSA1GetWord
	Cpx16 DIR

OpECX1:
	Absolute8 CPX
	call S9xSA1GetByte
	Cpx8 ABS

OpECX0:
	Absolute8 CPX2
	call S9xSA1GetWord
	Cpx16 ABS


/* CPY */
OpC0X1:
	Immediate8 CPY
	Cpy8 IMM

OpC0X0:
	Immediate16 CPY
	Cpy16 IMM

OpC4X1:
	Direct8 CPY
	call S9xSA1GetByte
	Cpy8 DIR

OpC4X0:
	Direct8 CPY2
	call S9xSA1GetWord
	Cpy16 DIR

OpCCX1:
	Absolute8 CPY
	call S9xSA1GetByte
	Cpy8 ABS

OpCCX0:
	Absolute8 CPY2
	call S9xSA1GetWord
	Cpy16 ABS

/* DEC */
Op3AM1:
	movb AL, %al
	decb %al
	movb %al, AL
	SetZN
	jmp S9xSA1MainAsmLoop

Op3AM0:
	decw AA
	setnz SA1_Zero
	movb AH, %al
	movb %al, SA1_Negative
	jmp S9xSA1MainAsmLoop

OpC6M1:
	Direct8 DEC
	Dec8 DIR

OpC6M0:
	Direct8 DEC2
	Dec16 DIR

OpD6M1:
	DirectIndexedX8 DEC
	Dec8 DIX

OpD6M0:
	DirectIndexedX8 DEC2
	Dec16 DIX

OpCEM1:
	Absolute8 DEC
	Dec8 ABS

OpCEM0:
	Absolute8 DEC2
	Dec16 ABS

OpDEM1:
	AbsoluteIndexedX8 DEC

	Dec8 ABSX

OpDEM0:
	AbsoluteIndexedX8 DEC2
	Dec16 ABSX

/* EOR */
Op49M1:
	Immediate8 EOR
	Eor8 IMM

Op49M0:
	Immediate16 EOR
	Eor16 IMM

Op45M1:
	Direct8 EOR
	call S9xSA1GetByte
	Eor8 DIR

Op45M0:
	Direct8 EOR2
	call S9xSA1GetWord
	Eor16 DIR

Op55M1:
	DirectIndexedX8 EOR
	call S9xSA1GetByte
	Eor8 DIX

Op55M0:
	DirectIndexedX8 EOR2
	call S9xSA1GetWord
	Eor16 DIX

Op52M1:
	DirectIndirect8 EOR
	call S9xSA1GetByte
	Eor8 DI

Op52M0:
	DirectIndirect8 EOR2
	call S9xSA1GetWord
	Eor16 DI

Op41M1:
	DirectIndexedIndirect8 EOR
	call S9xSA1GetByte
	Eor8 DII

Op41M0:
	DirectIndexedIndirect8 EOR2
	call S9xSA1GetWord
	Eor16 DII

Op51M1:
	DirectIndirectIndexed8 EOR
	call S9xSA1GetByte
	Eor8 DIIY

Op51M0:
	DirectIndirectIndexed8 EOR2
	call S9xSA1GetWord
	Eor16 DIIY

Op47M1:
	DirectIndirectLong8 EOR
	call S9xSA1GetByte
	Eor8 DIL

Op47M0:
	DirectIndirectLong8 EOR2
	call S9xSA1GetWord
	Eor16 DIL

Op57M1:
	DirectIndirectIndexedLong8 EOR
	call S9xSA1GetByte
	Eor8 DIIL

Op57M0:
	DirectIndirectIndexedLong8 EOR2
	call S9xSA1GetWord
	Eor16 DIIL

Op4DM1:
	Absolute8 EOR
	call S9xSA1GetByte
	Eor8 ABS

Op4DM0:
	Absolute8 EOR2
	call S9xSA1GetWord
	Eor16 ABS

Op5DM1:
	AbsoluteIndexedX8 EOR
	call S9xSA1GetByte
	Eor8 ABSX

Op5DM0:
	AbsoluteIndexedX8 EOR2
	call S9xSA1GetWord
	Eor16 ABSX

Op59M1:
	AbsoluteIndexedY8 EOR
	call S9xSA1GetByte
	Eor8 ABSY

Op59M0:
	AbsoluteIndexedY8 EOR2
	call S9xSA1GetWord
	Eor16 ABSY

Op4FM1:
	AbsoluteLong8 EOR
	call S9xSA1GetByte
	Eor8 ABSL

Op4FM0:
	AbsoluteLong8 EOR2
	call S9xSA1GetWord
	Eor16 ABSL

Op5FM1:
	AbsoluteLongIndexedX8 EOR
	call S9xSA1GetByte
	Eor8 ALX

Op5FM0:
	AbsoluteLongIndexedX8 EOR2
	call S9xSA1GetWord
	Eor16 ALX

Op43M1:
	StackRelative8 EOR
	call S9xSA1GetByte
	Eor8 SREL

Op43M0:
	StackRelative8 EOR2
	call S9xSA1GetWord
	Eor16 SREL

Op53M1:
	StackRelativeIndirectIndexed8 EOR
	call S9xSA1GetByte
	Eor8 SRII

Op53M0:
	StackRelativeIndirectIndexed8 EOR2
	call S9xSA1GetWord
	Eor16 SRII

/* INC */
Op1AM1:
	movb AL, %al
	incb %al
	movb %al, AL
	SetZN
	jmp S9xSA1MainAsmLoop

Op1AM0:
	incw AA
	setnz SA1_Zero
	movb AH, %ah
	movb %ah, SA1_Negative
	jmp S9xSA1MainAsmLoop

OpE6M1:
	Direct8 INC
	Inc8 DIR

OpE6M0:
	Direct8 INC2
	Inc16 DIR
	
OpF6M1:
	DirectIndexedX8 INC
	Inc8 DIX

OpF6M0:
	DirectIndexedX8 INC2
	Inc16 DIX

OpEEM1:
	Absolute8 INC
	Inc8 ABS

OpEEM0:
	Absolute8 INC2
	Inc16 ABS

OpFEM1:
	AbsoluteIndexedX8 INC
	Inc8 ABSX

OpFEM0:
	AbsoluteIndexedX8 INC2
	Inc16 ABSX

/* LDA */
OpA9M1:
	Immediate8 LDA
	Lda8 IMM

OpA9M0:
	Immediate16 LDA
	Lda16 IMM

OpA5M1:
	Direct8 LDA
	call S9xSA1GetByte
	Lda8 DIR

OpA5M0:
	Direct8 LDA2
	call S9xSA1GetWord
	Lda16 DIR

OpB5M1:
	DirectIndexedX8 LDA
	call S9xSA1GetByte
	Lda8 DIX

OpB5M0:
	DirectIndexedX8 LDA2
	call S9xSA1GetWord
	Lda16 DIX

OpB2M1:
	DirectIndirect8 LDA
	call S9xSA1GetByte
	Lda8 DI

OpB2M0:
	DirectIndirect8 LDA2
	call S9xSA1GetWord
	Lda16 DI

OpA1M1:
	DirectIndexedIndirect8 LDA
	call S9xSA1GetByte
	Lda8 DII