mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-30 01:50:10 +00:00
d80132e941
There's no easy way to make non-zero-bank 65816 code work, so I'm punting and just generating a whole-file hex dump for those. This renders tests 2007 and 2009 useless, so I'm hesitant to claim that ACME support is fully functional.
124 lines
2.3 KiB
ArmAsm
124 lines
2.3 KiB
ArmAsm
!cpu 65816
|
|
* = $1000
|
|
!as
|
|
!rs
|
|
clc
|
|
xce
|
|
sep #$ff
|
|
jsr L1100
|
|
jsr L1107
|
|
jmp L2000
|
|
|
|
!pseudopc $1100 {
|
|
L1100 bit L1100
|
|
L1103 lda #$11
|
|
ldx #$11
|
|
L1107 ldy #$11
|
|
per L1103
|
|
bra L1103
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $1100 {
|
|
L1100_0 bit L1100_0
|
|
lda #$22
|
|
L1105 ldx #$22
|
|
ldy #$22
|
|
per L1105
|
|
jmp L1105
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $1100 {
|
|
L1100_1 bit L1100_1
|
|
lda #$33
|
|
ldx #$33
|
|
L1107_0 ldy #$33
|
|
per L1107_0
|
|
bra L1107_0
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $2000 {
|
|
L2000 bit L2000
|
|
beq $2018
|
|
bra L2020
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $2020 {
|
|
L2020 bit L2020
|
|
beq offend+1
|
|
brl L2080
|
|
|
|
offend nop
|
|
} ;!pseudopc
|
|
!pseudopc $2080 {
|
|
L2080 bit L2080
|
|
lda offend
|
|
jsr offend
|
|
lda offend+1
|
|
jsr offend+1
|
|
lda $207f
|
|
jsr $207f
|
|
lda L2080
|
|
jsr L2080
|
|
lda $00
|
|
beq L2100
|
|
!byte $ad
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $2100 {
|
|
L2100 nop
|
|
nop
|
|
jmp L3000
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $2800 {
|
|
!byte $00
|
|
!byte $28
|
|
!fill 14,$00
|
|
} ;!pseudopc
|
|
!pseudopc $2820 {
|
|
!fill 18,$00
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $3000 {
|
|
L3000 bit L3000
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
brl fwd
|
|
|
|
ulabel !byte $00
|
|
!byte $01
|
|
} ;!pseudopc
|
|
!pseudopc $3100 {
|
|
L3100 !byte $02
|
|
|
|
fwd bit fwd
|
|
lda ulabel
|
|
lda ulabel+1
|
|
lda ulabel+2
|
|
lda $300f
|
|
lda L3100
|
|
beq L3182
|
|
!byte $ea
|
|
!byte $ea
|
|
} ;!pseudopc
|
|
!pseudopc $3180 {
|
|
!byte $00
|
|
!byte $01
|
|
|
|
L3182 bit L3182
|
|
lda label1
|
|
lda label1+1
|
|
lda label1+112
|
|
bra L3200
|
|
|
|
label1 !byte $ea
|
|
!byte $ea
|
|
|
|
} ;!pseudopc
|
|
!pseudopc $3200 {
|
|
L3200 bit L3200
|
|
!byte $00
|
|
!byte $01
|
|
} ;!pseudopc
|