mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-29 10:50:28 +00:00
108 lines
1.9 KiB
ArmAsm
108 lines
1.9 KiB
ArmAsm
org $1000
|
|
clc
|
|
xce
|
|
sep #$ff
|
|
jsr L1100
|
|
jsr L1107
|
|
jmp L2000
|
|
|
|
org $1100
|
|
L1100 bit L1100
|
|
L1103 lda #$11
|
|
ldx #$11
|
|
L1107 ldy #$11
|
|
per L1103
|
|
bra L1103
|
|
|
|
org $1100
|
|
:L1100_0 bit :L1100_0
|
|
lda #$22
|
|
:L1105 ldx #$22
|
|
ldy #$22
|
|
per :L1105
|
|
jmp :L1105
|
|
|
|
org $1100
|
|
:L1100_1 bit :L1100_1
|
|
lda #$33
|
|
ldx #$33
|
|
:L1107_0 ldy #$33
|
|
per :L1107_0
|
|
bra :L1107_0
|
|
|
|
org $2000
|
|
L2000 bit L2000
|
|
beq $2018
|
|
bra :L2020
|
|
|
|
org $2020
|
|
:L2020 bit :L2020
|
|
beq $2029
|
|
brl :L2080
|
|
|
|
:offend nop
|
|
org $2080
|
|
:L2080 bit :L2080
|
|
lda :offend
|
|
jsr :offend
|
|
lda $2029
|
|
jsr $2029
|
|
lda :L2080-1
|
|
jsr :L2080-1
|
|
lda :L2080
|
|
jsr :L2080
|
|
lda $00
|
|
beq :L2100
|
|
dfb $ad
|
|
|
|
org $2100
|
|
:L2100 nop
|
|
nop
|
|
jmp :L3000
|
|
|
|
org $2800
|
|
dfb $00
|
|
dfb $28
|
|
ds 14
|
|
org $2820
|
|
ds 18
|
|
|
|
org $3000
|
|
:L3000 bit :L3000
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
brl :fwd
|
|
|
|
:ulabel dfb $00
|
|
dfb $01
|
|
org $3100
|
|
dfb $02
|
|
|
|
:fwd bit :fwd
|
|
lda :ulabel
|
|
lda :ulabel+1
|
|
lda $300e
|
|
lda $300f
|
|
lda :fwd-1
|
|
beq :L3182
|
|
dfb $ea
|
|
dfb $ea
|
|
org $3180
|
|
dfb $00
|
|
dfb $01
|
|
|
|
:L3182 bit :L3182
|
|
lda :label1
|
|
lda :label1+1
|
|
lda :label1+112
|
|
bra :L3200
|
|
|
|
:label1 dfb $ea
|
|
dfb $ea
|
|
|
|
org $3200
|
|
:L3200 bit :L3200
|
|
dfb $00
|
|
dfb $01
|