mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-03 23:06:09 +00:00
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
|