mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-13 13:10:51 +00:00
4e08810278
The label localizer is now always on. The regression tests turned it off by default, but that's no longer allowed, so the generated output has changed for many of them. The tests themselves were not altered.
84 lines
1.7 KiB
ArmAsm
84 lines
1.7 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 L10B5
|
|
jsr L110F
|
|
jsr L1108
|
|
brk $01
|
|
dw data01
|
|
brk $02
|
|
dw data02
|
|
nop
|
|
jsr L1085
|
|
dfb $24
|
|
L1085 dfb $a9
|
|
dfb $00
|
|
sta $ff
|
|
dfb $ea
|
|
rts
|
|
|
|
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"
|
|
|
|
L10B5 jsr PrintInlineNullString ;split across address change
|
|
per $802d
|
|
rtl
|
|
|
|
dfb $65
|
|
dfb $6e
|
|
dfb $20
|
|
dfb $01
|
|
org $1100
|
|
asc 'string'
|
|
dfb $00
|
|
dfb $60
|
|
|
|
L1108 jsl PrintInlineL2String
|
|
asl A
|
|
brk $60
|
|
|
|
L110F jsr PrintInlineNullString
|
|
adc $6e
|
|
dfb $64
|