mirror of
https://github.com/fadden/6502bench.git
synced 2024-09-11 20:54:37 +00:00
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.
90 lines
1.9 KiB
ArmAsm
90 lines
1.9 KiB
ArmAsm
!cpu 65816
|
|
PrintInlineL1String = $011000
|
|
PrintInlineL2String = $012000
|
|
PrintInlineDciString = $013000
|
|
|
|
* = $1000
|
|
!as
|
|
!rs
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jsr PrintInline8String
|
|
!text "01234567"
|
|
jsr PrintInlineRev8String
|
|
!text "76543210"
|
|
jsr PrintInlineNullString
|
|
!text "null-term string",$00
|
|
jsl PrintInlineL1String
|
|
!text $14,"string with length/1"
|
|
jsl PrintInlineL2String
|
|
!text $14,$00,"string with length/2"
|
|
jsl PrintInlineDciString
|
|
!text "DCI strin",$e7
|
|
jsr L10B5
|
|
jsr L110F
|
|
jsr L1108
|
|
!byte $00,$01
|
|
!word data01
|
|
!byte $00,$02
|
|
!word data02
|
|
nop
|
|
jsr L1085
|
|
!byte $24
|
|
L1085 !byte $a9
|
|
!byte $00
|
|
sta $ff
|
|
!byte $ea
|
|
rts
|
|
|
|
PrintInline8String rts
|
|
|
|
PrintInlineRev8String rts
|
|
|
|
PrintInlineNullString rts
|
|
|
|
data01 !word 4386
|
|
!byte $33,$44
|
|
!32 $88776655
|
|
!byte $99,$88,$77,$66
|
|
!byte 'f'
|
|
!byte 'F' | $80
|
|
!byte $40
|
|
!byte $c1
|
|
!byte $42
|
|
!byte $c3
|
|
!byte $44
|
|
!byte $c5
|
|
!byte $46
|
|
!byte $c7
|
|
!24 PrintInlineL2String
|
|
!word data02
|
|
!byte $80
|
|
data02 !word @data03
|
|
!byte $80
|
|
!xor $80 {
|
|
@data03 !text "AllEight"
|
|
}
|
|
|
|
L10B5 jsr PrintInlineNullString ;split across address change
|
|
per $802d
|
|
rtl
|
|
|
|
!byte $65
|
|
!byte $6e
|
|
!byte $20
|
|
!byte $01
|
|
!pseudopc $1100 {
|
|
!text "string"
|
|
!byte $00
|
|
!byte $60
|
|
|
|
L1108 jsl PrintInlineL2String
|
|
asl
|
|
!byte $00,$60
|
|
|
|
L110F jsr PrintInlineNullString
|
|
adc $6e
|
|
!byte $64
|
|
} ;!pseudopc
|