mirror of https://github.com/fadden/6502bench.git
149 lines
2.8 KiB
ArmAsm
149 lines
2.8 KiB
ArmAsm
org $030000
|
|
mx %00
|
|
L30000 clc
|
|
xce
|
|
mx %11
|
|
sep #$30
|
|
ldal L30000
|
|
nop
|
|
jsl :L23456
|
|
jsl :L80000
|
|
ldal :L23456
|
|
lda :L23456
|
|
lda #<:L23456
|
|
lda #>:L23456
|
|
lda #^:L23456
|
|
ldal :L80019
|
|
lda: :L80019
|
|
lda #<:L80019
|
|
lda #>:L80019
|
|
lda #^:L80019
|
|
nop
|
|
rep #$30
|
|
mx %00
|
|
lda #:L80019
|
|
lda #>:L80019
|
|
lda #^:L80019
|
|
nop
|
|
lda #$000f
|
|
ldx #:L80026
|
|
ldy #:L23467
|
|
mvn #^:L23467+$60000,#^:L23467
|
|
nop
|
|
lda $0000,y
|
|
sta $0002,y
|
|
:L3004B pea $0000
|
|
pea $f000
|
|
pea :L80019
|
|
pea ^:L80019
|
|
pea :L3004B
|
|
pea >:L3004B
|
|
:L3005D pea ^:L3004B
|
|
pea :L3005D
|
|
pea $104b
|
|
nop
|
|
jmp :L30073
|
|
|
|
dw :L4FFE0
|
|
adr :L4FFE0
|
|
adr :L4FFE0
|
|
dfb $00
|
|
|
|
:L30073 phk
|
|
plb
|
|
lda #$0000
|
|
asl A
|
|
asl A
|
|
tax
|
|
lda: :L30088,x
|
|
pha
|
|
lda: :L30086,x
|
|
pha
|
|
beq :L3008E
|
|
rts
|
|
|
|
:L30086 dfb $4b
|
|
dfb $00
|
|
:L30088 dfb $03
|
|
dfb $00
|
|
adr :L30073
|
|
dfb $00
|
|
|
|
:L3008E rts
|
|
|
|
org $04ffe0
|
|
:L4FFE0 adr :L4FFE0
|
|
dfb $00
|
|
dfb $00
|
|
dfb $01
|
|
dfb $02
|
|
dfb $03
|
|
dfb $04
|
|
dfb $05
|
|
dfb $06
|
|
dfb $07
|
|
dfb $08
|
|
dfb $09
|
|
dfb $0a
|
|
dfb $0b
|
|
dfb $0c
|
|
dfb $0d
|
|
dfb $0e
|
|
dfb $0f
|
|
dfb $10
|
|
dfb $11
|
|
dfb $12
|
|
dfb $13
|
|
dfb $14
|
|
dfb $15
|
|
dfb $16
|
|
dfb $17
|
|
dfb $18
|
|
dfb $19
|
|
dfb $1a
|
|
dfb $1b
|
|
org $050000
|
|
dfb $1c
|
|
dfb $1d
|
|
dfb $1e
|
|
dfb $1f
|
|
asc ' !"#$%&',27,'()*+,-./'
|
|
|
|
org $023456
|
|
mx %11
|
|
:L23456 ldal :L23456
|
|
jsr :L23477
|
|
ldy #<:L23467
|
|
ora $3456
|
|
oral :L23456
|
|
rtl
|
|
|
|
:L23467 ds 16
|
|
|
|
:L23477 nop
|
|
rts
|
|
|
|
org $080000
|
|
:L80000 ldal :L80000
|
|
lda: :L80019
|
|
nop
|
|
ldal $010000
|
|
ldal $020000
|
|
ldal L30000
|
|
ldal :L80000
|
|
rtl
|
|
|
|
:L80019 adr :L80019
|
|
dfb $00
|
|
adr :L23456
|
|
dfb $00
|
|
dfb $80
|
|
dfb $00
|
|
dfb $10
|
|
dfb $08
|
|
dfb $00
|
|
:L80026 asc 'This is a test.'
|
|
dfb $00
|
|
org $060000
|
|
asc 'hello, world!'
|