mirror of
https://github.com/fadden/6502bench.git
synced 2024-07-04 01:29:34 +00:00
8c053c29f2
Two things changed: (1) string literals can now hold backslash escapes like "\n"; (2) MVN/MVP operands can now be prefixed with '#'. The former was a breaking change because any string with "\" must be changed to "\\". This is now handled by the string operand formatter. Also, improved test harness output. Show the assembler versions at the end, and include assembler failure messages in the collected output.
288 lines
5.5 KiB
ArmAsm
288 lines
5.5 KiB
ArmAsm
!cpu 65816
|
|
* = $1000
|
|
!as
|
|
!rs
|
|
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
|
|
phd
|
|
tsb $feff
|
|
ora $feff
|
|
asl $feff
|
|
ora+3 $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
|
|
tcs
|
|
trb $feff
|
|
ora $feff,x
|
|
asl $feff,x
|
|
ora+3 $fdfeff,x
|
|
jsr $feff
|
|
and ($ff,x)
|
|
jsl $fdfeff
|
|
and $ff,S
|
|
bit $ff
|
|
and $ff
|
|
rol $ff
|
|
and [$ff]
|
|
plp
|
|
and #$ff
|
|
rol
|
|
pld
|
|
bit $feff
|
|
and $feff
|
|
rol $feff
|
|
and+3 $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
|
|
tsc
|
|
bit $feff,x
|
|
and $feff,x
|
|
rol $feff,x
|
|
and+3 $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
|
|
phk
|
|
jmp @L10C2
|
|
|
|
@L10C2 eor $feff
|
|
lsr $feff
|
|
eor+3 $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+3 $fdfeff,x
|
|
rts
|
|
|
|
L10F2 adc ($ff,x)
|
|
per $0ff6
|
|
adc $ff,S
|
|
stz $ff
|
|
adc $ff
|
|
ror $ff
|
|
adc [$ff]
|
|
pla
|
|
adc #$ff
|
|
ror
|
|
rtl
|
|
|
|
L1106 jmp ($feff)
|
|
|
|
L1109 adc $feff
|
|
ror $feff
|
|
adc+3 $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+3 $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+3 $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+3 $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+3 $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+3 $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+3 $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+3 $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+3 $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+3 $fdfeff,x
|