mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-02 13:51:36 +00:00
a23c7e5ab6
These *almost* match what cc65 has, and are accepted as primary or aliases by 64tass. This combines the LAX and LXA operations. LXA is the immediate form of LAX, and behaves somewhat differently (and is unstable). I was treating them as two separate operations with independent mnemonics, but that doesn't seem to be the preferred way to handle it. The cc65 generator wasn't generating LAX before; now it does. This required nudging the width disambiguator, as LAX is a second example of an instruction with both DP,Y and ABS,Y operands. (issue #20)
295 lines
6.1 KiB
ArmAsm
295 lines
6.1 KiB
ArmAsm
.setcpu "6502X"
|
|
.org $1000
|
|
jsr L1035
|
|
jsr L1038
|
|
jsr L1059
|
|
jsr L107D
|
|
jsr L109E
|
|
jsr L10BD
|
|
jsr L10C0
|
|
jsr L10E1
|
|
jsr L1100
|
|
jsr L1103
|
|
jsr L1116
|
|
jsr L1124
|
|
jsr L1169
|
|
jsr L11AE
|
|
jsr L11F3
|
|
jsr L1238
|
|
nop
|
|
nop
|
|
nop
|
|
.byte $00,$ff
|
|
|
|
L1035: ora ($ff,x)
|
|
jam
|
|
|
|
L1038: slo ($ff,x)
|
|
.byte $04,$ff
|
|
ora $ff
|
|
asl $ff
|
|
slo $ff
|
|
php
|
|
ora #$ff
|
|
asl A
|
|
anc #$ff
|
|
.byte $0c,$ff,$fe
|
|
ora $feff
|
|
asl $feff
|
|
slo $feff
|
|
bpl L1056
|
|
L1056: ora ($ff),y
|
|
.byte $12
|
|
|
|
L1059: slo ($ff),y
|
|
.byte $14,$ff
|
|
ora $ff,x
|
|
asl $ff,x
|
|
slo $ff,x
|
|
clc
|
|
ora $feff,y
|
|
.byte $1a
|
|
slo $feff,y
|
|
.byte $1c,$ff,$fe
|
|
ora $feff,x
|
|
asl $feff,x
|
|
slo $feff,x
|
|
jsr $feff
|
|
and ($ff,x)
|
|
.byte $22
|
|
|
|
L107D: rla ($ff,x)
|
|
bit $ff
|
|
and $ff
|
|
rol $ff
|
|
rla $ff
|
|
plp
|
|
and #$ff
|
|
rol A
|
|
.byte $2b,$ff
|
|
bit $feff
|
|
and $feff
|
|
rol $feff
|
|
rla $feff
|
|
bmi L109B
|
|
L109B: and ($ff),y
|
|
.byte $32
|
|
|
|
L109E: rla ($ff),y
|
|
.byte $34,$ff
|
|
and $ff,x
|
|
rol $ff,x
|
|
rla $ff,x
|
|
sec
|
|
and $feff,y
|
|
.byte $3a
|
|
rla $feff,y
|
|
.byte $3c,$ff,$fe
|
|
and $feff,x
|
|
rol $feff,x
|
|
rla $feff,x
|
|
rti
|
|
|
|
L10BD: eor ($ff,x)
|
|
.byte $42
|
|
|
|
L10C0: sre ($ff,x)
|
|
.byte $44,$ff
|
|
eor $ff
|
|
lsr $ff
|
|
sre $ff
|
|
pha
|
|
eor #$ff
|
|
lsr A
|
|
alr #$ff
|
|
jmp L10D3
|
|
|
|
L10D3: eor $feff
|
|
lsr $feff
|
|
sre $feff
|
|
bvc L10DE
|
|
L10DE: eor ($ff),y
|
|
.byte $52
|
|
|
|
L10E1: sre ($ff),y
|
|
.byte $54,$ff
|
|
eor $ff,x
|
|
lsr $ff,x
|
|
sre $ff,x
|
|
cli
|
|
eor $feff,y
|
|
.byte $5a
|
|
sre $feff,y
|
|
.byte $5c,$ff,$fe
|
|
eor $feff,x
|
|
lsr $feff,x
|
|
sre $feff,x
|
|
rts
|
|
|
|
L1100: adc ($ff,x)
|
|
.byte $62
|
|
|
|
L1103: rra ($ff,x)
|
|
.byte $64,$ff
|
|
adc $ff
|
|
ror $ff
|
|
rra $ff
|
|
pla
|
|
adc #$ff
|
|
ror A
|
|
arr #$ff
|
|
jmp ($feff)
|
|
|
|
L1116: adc $feff
|
|
ror $feff
|
|
rra $feff
|
|
bvs L1121
|
|
L1121: adc ($ff),y
|
|
.byte $72
|
|
|
|
L1124: rra ($ff),y
|
|
.byte $74,$ff
|
|
adc $ff,x
|
|
ror $ff,x
|
|
rra $ff,x
|
|
sei
|
|
adc $feff,y
|
|
.byte $7a
|
|
rra $feff,y
|
|
.byte $7c,$ff,$fe
|
|
adc $feff,x
|
|
ror $feff,x
|
|
rra $feff,x
|
|
.byte $80,$ff
|
|
sta ($ff,x)
|
|
.byte $82,$ff
|
|
sax ($ff,x)
|
|
sty $ff
|
|
sta $ff
|
|
stx $ff
|
|
sax $ff
|
|
dey
|
|
.byte $89,$ff
|
|
txa
|
|
ane #$ff
|
|
sty $feff
|
|
sta $feff
|
|
stx $feff
|
|
sax $feff
|
|
bcc L1166
|
|
L1166: sta ($ff),y
|
|
.byte $92
|
|
|
|
L1169: sha ($ff),y
|
|
sty $ff,x
|
|
sta $ff,x
|
|
stx $ff,y
|
|
sax $ff,y
|
|
tya
|
|
sta $feff,y
|
|
txs
|
|
tas $feff,y
|
|
shy $feff,x
|
|
sta $feff,x
|
|
shx $feff,y
|
|
sha $feff,y
|
|
ldy #$ff
|
|
lda ($ff,x)
|
|
ldx #$ff
|
|
lax ($ff,x)
|
|
ldy $ff
|
|
lda $ff
|
|
ldx $ff
|
|
lax $ff
|
|
tay
|
|
lda #$ff
|
|
tax
|
|
lax #$ff
|
|
ldy $feff
|
|
lda $feff
|
|
ldx $feff
|
|
lax $feff
|
|
bcs L11AB
|
|
L11AB: lda ($ff),y
|
|
.byte $b2
|
|
|
|
L11AE: lax ($ff),y
|
|
ldy $ff,x
|
|
lda $ff,x
|
|
ldx $ff,y
|
|
lax $ff,y
|
|
clv
|
|
lda $feff,y
|
|
tsx
|
|
las $feff,y
|
|
ldy $feff,x
|
|
lda $feff,x
|
|
ldx $feff,y
|
|
lax $feff,y
|
|
cpy #$ff
|
|
cmp ($ff,x)
|
|
.byte $c2,$ff
|
|
dcp ($ff,x)
|
|
cpy $ff
|
|
cmp $ff
|
|
dec $ff
|
|
dcp $ff
|
|
iny
|
|
cmp #$ff
|
|
dex
|
|
axs #$ff
|
|
cpy $feff
|
|
cmp $feff
|
|
dec $feff
|
|
dcp $feff
|
|
bne L11F0
|
|
L11F0: cmp ($ff),y
|
|
.byte $d2
|
|
|
|
L11F3: dcp ($ff),y
|
|
.byte $d4,$ff
|
|
cmp $ff,x
|
|
dec $ff,x
|
|
dcp $ff,x
|
|
cld
|
|
cmp $feff,y
|
|
.byte $da
|
|
dcp $feff,y
|
|
.byte $dc,$ff,$fe
|
|
cmp $feff,x
|
|
dec $feff,x
|
|
dcp $feff,x
|
|
cpx #$ff
|
|
sbc ($ff,x)
|
|
.byte $e2,$ff
|
|
isc ($ff,x)
|
|
cpx $ff
|
|
sbc $ff
|
|
inc $ff
|
|
isc $ff
|
|
inx
|
|
sbc #$ff
|
|
nop
|
|
.byte $eb,$ff
|
|
cpx $feff
|
|
sbc $feff
|
|
inc $feff
|
|
isc $feff
|
|
beq L1235
|
|
L1235: sbc ($ff),y
|
|
.byte $f2
|
|
|
|
L1238: isc ($ff),y
|
|
.byte $f4,$ff
|
|
sbc $ff,x
|
|
inc $ff,x
|
|
isc $ff,x
|
|
sed
|
|
sbc $feff,y
|
|
.byte $fa
|
|
isc $feff,y
|
|
.byte $fc,$ff,$fe
|
|
sbc $feff,x
|
|
inc $feff,x
|
|
isc $feff,x
|