mirror of
https://github.com/fadden/6502bench.git
synced 2024-09-11 04:57:02 +00:00
107 lines
2.0 KiB
ArmAsm
107 lines
2.0 KiB
ArmAsm
|
; Copyright 2020 faddenSoft. All Rights Reserved.
|
||
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
||
|
|
;
|
||
|
|
; Assembler: Merlin 32
|
||
|
|
|
||
|
|
org $1000
|
||
|
|
|
||
|
|
start
|
||
|
|
clc
|
||
|
|
xce
|
||
|
|
sep #$30
|
||
|
|
mx %11
|
||
|
|
|
||
|
|
lda start
|
||
|
|
lda bank2
|
||
|
|
|
||
|
|
phk
|
||
|
|
plb
|
||
|
|
lda start
|
||
|
|
lda bank2
|
||
|
|
|
||
|
|
lda #$02
|
||
|
|
pha
|
||
|
|
plb ;EDIT: set DBR=$02
|
||
|
|
lda start
|
||
|
|
lda bank2
|
||
|
|
|
||
|
|
lda #$08
|
||
|
|
pha
|
||
|
|
plb ;EDIT: set DBR=$08
|
||
|
|
jsl bank2
|
||
|
|
|
||
|
|
lda #$02
|
||
|
|
pha
|
||
|
|
plb ;EDIT: set DBR=$02
|
||
|
|
jsl bank3
|
||
|
|
|
||
|
|
phk
|
||
|
|
plb
|
||
|
|
bit start
|
||
|
|
|
||
|
|
jml alldone
|
||
|
|
|
||
|
|
code2bz
|
||
|
|
dw snippet ;EDIT: format as 16-bit address
|
||
|
|
snippet rts
|
||
|
|
|
||
|
|
code2zero
|
||
|
|
adr code2b ;EDIT: format as 24-bit address
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
org $022000
|
||
|
|
bank2
|
||
|
|
ldal bank2 ;EDIT: set DBR=$08
|
||
|
|
ldx #$00
|
||
|
|
jsr code2a
|
||
|
|
jsr :call2bz
|
||
|
|
jsr :call2zero
|
||
|
|
nop
|
||
|
|
|
||
|
|
lda #$03
|
||
|
|
pha
|
||
|
|
plb ;EDIT: set DBR=$03
|
||
|
|
lda bank3dat
|
||
|
|
|
||
|
|
rtl
|
||
|
|
|
||
|
|
:call2bz
|
||
|
|
jmp (code2bz) ;source/target in bank 0
|
||
|
|
:call2zero
|
||
|
|
jmp [code2zero] ;source in bank 0
|
||
|
|
|
||
|
|
code2a
|
||
|
|
jmp (bank2addr,x) ;both addresses formed with K
|
||
|
|
code2b
|
||
|
|
nop
|
||
|
|
rts
|
||
|
|
|
||
|
|
bank2addr
|
||
|
|
dw code2b
|
||
|
|
|
||
|
|
|
||
|
|
org $033000
|
||
|
|
bank3
|
||
|
|
ldal bank3 ;EDIT: set DBR=$02
|
||
|
|
jsr :post_plb
|
||
|
|
beq :skip_mayhem
|
||
|
|
; Test PHK/PLB with an address shift in the middle. Not really something
|
||
|
|
; that should ever happen, but we need to handle everything.
|
||
|
|
phk
|
||
|
|
org $033020 ;EDIT: set address
|
||
|
|
:post_plb
|
||
|
|
plb
|
||
|
|
:self nop
|
||
|
|
bra :skip_mayhem
|
||
|
|
|
||
|
|
:skip_mayhem
|
||
|
|
lda bank2addr
|
||
|
|
rtl
|
||
|
|
|
||
|
|
bank3dat
|
||
|
|
dw bank3dat
|
||
|
|
|
||
|
|
|
||
|
|
alldone rts
|