mirror of
https://github.com/fadden/6502bench.git
synced 2024-08-20 11:28:58 +00:00
We append an assembler identifier to generated code. For Merlin 32, this was "_Merlin32". All of the other assemblers use a lower-case string, which makes Merlin look a little weird, so it has been changed to "_merlin32". Windows filesystems are generally case-insensitive, so this won't likely affect anything.
120 lines
2.2 KiB
ArmAsm
120 lines
2.2 KiB
ArmAsm
PrintInlineL1String equ $011000
|
|
PrintInlineL2String equ $012000
|
|
PrintInlineDciString equ $013000
|
|
|
|
org $1000
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jsr PrintInline8String
|
|
asc '01234567'
|
|
jsr PrintInlineRev8String
|
|
rev '01234567'
|
|
jsr PrintInlineNullString
|
|
asc 'null-term string',00
|
|
jsl PrintInlineL1String
|
|
str 'string with length/1'
|
|
jsl PrintInlineL2String
|
|
strl 'string with length/2'
|
|
jsl PrintInlineDciString
|
|
dci 'DCI string'
|
|
jsr L1800
|
|
jsr L184F
|
|
jsr L1848
|
|
brk $01
|
|
dw data01
|
|
brk $02
|
|
dw data02
|
|
nop
|
|
jsr L1085
|
|
dfb $24
|
|
L1085 dfb $a9
|
|
dfb $00
|
|
sta $ff
|
|
dfb $ea
|
|
jmp Next1
|
|
|
|
PrintInline8String rts
|
|
|
|
PrintInlineRev8String rts
|
|
|
|
PrintInlineNullString rts
|
|
|
|
data01 dw 4386
|
|
ddb $3344
|
|
adrl $88776655
|
|
dfb $99,$88,$77,$66
|
|
dfb 'f'
|
|
dfb "F"
|
|
dfb $40
|
|
dfb $c1
|
|
dfb $42
|
|
dfb $c3
|
|
dfb $44
|
|
dfb $c5
|
|
dfb $46
|
|
dfb $c7
|
|
adr PrintInlineL2String
|
|
dw data02
|
|
dfb $80
|
|
data02 dw :data03
|
|
dfb $80
|
|
:data03 asc "AllEight"
|
|
|
|
NoCont pla ;split across address change
|
|
pla
|
|
rts
|
|
|
|
L10BA jsr NoCont
|
|
|
|
dfb $00
|
|
dfb $80
|
|
|
|
L10BF jsr NoCont
|
|
|
|
dfb $00
|
|
dfb $80
|
|
|
|
Next1 jsr L10BA
|
|
jsr :L10CF
|
|
clc
|
|
jsr L10BF
|
|
rts
|
|
|
|
:L10CF sec
|
|
jsr L10BF
|
|
clc
|
|
brk $02
|
|
dw data02
|
|
bcc :L10DE
|
|
bcs :L10DE
|
|
|
|
dfb $00
|
|
dfb $80
|
|
|
|
:L10DE rts
|
|
|
|
ds 289
|
|
|
|
org $1800
|
|
L1800 jsr PrintInlineNullString
|
|
per $8778
|
|
rtl
|
|
|
|
dfb $65
|
|
dfb $6e
|
|
dfb $20
|
|
dfb $01
|
|
org $1840
|
|
asc 'string'
|
|
dfb $00
|
|
dfb $60
|
|
|
|
L1848 jsl PrintInlineL2String
|
|
asl A
|
|
brk $60
|
|
|
|
L184F jsr PrintInlineNullString
|
|
adc $6e
|
|
dfb $64
|