mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-11 13:50:13 +00:00
835c1c7fe2
During a discussion with the cc65 developers, I became convinced that generating "MVN $01,$02" is wrong, and "MVN #$01,#$02" is correct. 64tass, cc65, and Merlin 32 all accept this syntax; only ACME does not. Operands without a leading '#' should be treated as 24-bit values, and have the bank byte extracted. This change updates the on-screen display and assembled output to include the '#'. The ACME generator uses a Quirk to suppress the hash mark. (It doesn't currently accept values larger than 8 bits, so there's no ambiguity.)
289 lines
5.8 KiB
ArmAsm
289 lines
5.8 KiB
ArmAsm
.setcpu "65816"
|
|
; .segment "SEG000"
|
|
.org $1000
|
|
.a8
|
|
.i8
|
|
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)
|
|
wdm $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
|