1
0
mirror of https://github.com/fadden/6502bench.git synced 2024-12-12 05:31:04 +00:00
6502bench/SourceGen/SGTestData/Expected/10002-allops-value-65816_64tass.S
Andy McFadden 3ff0fbae34 Regression test rework, part 1
The regression tests were written with the assumption that all cross
assemblers would support 6502, 65C02, and 65816 code.  There are a
few that support 65816 partially (e.g. ACME) or not at all.  To best
support these, we need to split some of the tests into pieces, so
that important 6502 tests aren't skipped simply because parts of the
test also exercise 65816 code.

The first step is to change the regression test naming scheme.  The
old system used 1xxx for tests without project files, and 2xxx for
tests with project files.  The new system uses 1xxxN / 2xxxN, where
N indicates the CPU type: 0 for 6502, 1 for 65C02, and 2 for 65816.
For the 1xxxN tests the new value determines which CPU is used,
which allows us to move the "allops" 6502/65C02 tests into the
no-project category.  For 2xxxN it just allows the 6502 and 65816
versions to have the same base name and number.

This change updates the first batch of tests.  It involves minor
changes to the test harness and a whole bunch of renaming.
2020-06-06 14:47:19 -07:00

288 lines
5.5 KiB
ArmAsm

.cpu "65816"
* = $1000
.as
.xs
sec
xce
jsr L101F
jsr L10AB
jsr L10F2
jsr L1106
jsr L1109
jsr L112C
jsr L11F9
jsr L11FC
nop
nop
nop
brk
.byte $ff
L101F ora ($ff,x)
cop #$ff
ora $ff,s
tsb $ff
ora $ff
asl $ff
ora [$ff]
php
ora #$ff
asl a
phd
tsb $feff
ora $feff
asl $feff
ora $fdfeff
bpl _L1041
_L1041 ora ($ff),y
ora ($ff)
ora ($ff,s),y
trb $ff
ora $ff,x
asl $ff,x
ora [$ff],y
clc
ora $feff,y
inc a
tcs
trb $feff
ora $feff,x
asl $feff,x
ora $fdfeff,x
jsr $feff
and ($ff,x)
jsl $fdfeff
and $ff,s
bit $ff
and $ff
rol $ff
and [$ff]
plp
and #$ff
rol a
pld
bit $feff
and $feff
rol $feff
and $fdfeff
bmi _L1089
_L1089 and ($ff),y
and ($ff)
and ($ff,s),y
bit $ff,x
and $ff,x
rol $ff,x
and [$ff],y
sec
and $feff,y
dec a
tsc
bit $feff,x
and $feff,x
rol $feff,x
and $fdfeff,x
rti
L10AB eor ($ff,x)
.byte $42,$ff
eor $ff,s
mvp #$fe,#$ff
eor $ff
lsr $ff
eor [$ff]
pha
eor #$ff
lsr a
phk
jmp _L10C2
_L10C2 eor $feff
lsr $feff
eor $fdfeff
bvc _L10CE
_L10CE eor ($ff),y
eor ($ff)
eor ($ff,s),y
mvn #$fe,#$ff
eor $ff,x
lsr $ff,x
eor [$ff],y
cli
eor $feff,y
phy
tcd
jml _L10E7
_L10E7 eor $feff,x
lsr $feff,x
eor $fdfeff,x
rts
L10F2 adc ($ff,x)
per $0ff6
adc $ff,s
stz $ff
adc $ff
ror $ff
adc [$ff]
pla
adc #$ff
ror a
rtl
L1106 jmp ($feff)
L1109 adc $feff
ror $feff
adc $fdfeff
bvs _L1115
_L1115 adc ($ff),y
adc ($ff)
adc ($ff,s),y
stz $ff,x
adc $ff,x
ror $ff,x
adc [$ff],y
sei
adc $feff,y
ply
tdc
jmp ($feff,x)
L112C adc $feff,x
ror $feff,x
adc $fdfeff,x
bra _L1138
_L1138 sta ($ff,x)
brl _L113D
_L113D sta $ff,s
sty $ff
sta $ff
stx $ff
sta [$ff]
dey
bit #$ff
txa
phb
sty $feff
sta $feff
stx $feff
sta $fdfeff
bcc _L115B
_L115B sta ($ff),y
sta ($ff)
sta ($ff,s),y
sty $ff,x
sta $ff,x
stx $ff,y
sta [$ff],y
tya
sta $feff,y
txs
txy
stz $feff
sta $feff,x
stz $feff,x
sta $fdfeff,x
ldy #$ff
lda ($ff,x)
ldx #$ff
lda $ff,s
ldy $ff
lda $ff
ldx $ff
lda [$ff]
tay
lda #$ff
tax
plb
ldy $feff
lda $feff
ldx $feff
lda $fdfeff
bcs _L11A0
_L11A0 lda ($ff),y
lda ($ff)
lda ($ff,s),y
ldy $ff,x
lda $ff,x
ldx $ff,y
lda [$ff],y
clv
lda $feff,y
tsx
tyx
ldy $feff,x
lda $feff,x
ldx $feff,y
lda $fdfeff,x
cpy #$ff
cmp ($ff,x)
rep #$00
cmp $ff,s
cpy $ff
cmp $ff
dec $ff
cmp [$ff]
iny
cmp #$ff
dex
wai
cpy $feff
cmp $feff
dec $feff
cmp $fdfeff
bne _L11E5
_L11E5 cmp ($ff),y
cmp ($ff)
cmp ($ff,s),y
pei ($ff)
cmp $ff,x
dec $ff,x
cmp [$ff],y
cld
cmp $feff,y
phx
stp
L11F9 jml [$feff]
L11FC cmp $feff,x
dec $feff,x
cmp $fdfeff,x
cpx #$ff
sbc ($ff,x)
sep #$00
sbc $ff,s
cpx $ff
sbc $ff
inc $ff
sbc [$ff]
inx
sbc #$ff
nop
xba
cpx $feff
sbc $feff
inc $feff
sbc $fdfeff
beq _L122A
_L122A sbc ($ff),y
sbc ($ff)
sbc ($ff,s),y
pea $feff
sbc $ff,x
inc $ff,x
sbc [$ff],y
sed
sbc $feff,y
plx
xce
jsr ($feff,x)
sbc $feff,x
inc $feff,x
sbc $fdfeff,x