1
0
mirror of https://github.com/fadden/6502bench.git synced 2024-07-14 05:28:55 +00:00
6502bench/SourceGen/SGTestData/Expected/2022-extension-scripts_64tass.S

91 lines
1.9 KiB
ArmAsm
Raw Normal View History

.cpu "65816"
.enc sg_hiascii
.cdef $20,$7e,$a0
.enc sg_ascii
.cdef $20,$7e,$20
PrintInlineL1String = $011000
PrintInlineL2String = $012000
PrintInlineDciString = $013000
* = $1000
.as
.xs
clc
xce
sep #$30
jsr PrintInline8String
.text "01234567"
jsr PrintInlineRev8String
.text "76543210"
jsr PrintInlineNullString
.null "null-term string"
jsl PrintInlineL1String
.ptext "string with length/1"
jsl PrintInlineL2String
.text $14,$00,"string with length/2"
jsl PrintInlineDciString
.shift "DCI string"
jsr L10AB
jsr L110F
jsr L1108
brk
.byte $01
.word data01
brk
.byte $02
.word data02
rts
PrintInline8String rts
PrintInlineRev8String rts
PrintInlineNullString rts
data01 .word 4386
.byte $33,$44
.dword $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
.long PrintInlineL2String
.word data02
.byte $80
data02 .word data03
.byte $80
.enc sg_hiascii
data03 .text "AllEight"
L10AB jsr PrintInlineNullString
per $8023
rtl
.byte $65
.byte $6e
.byte $20
.byte $01
.logical $1100
.enc sg_ascii
.text "string"
.byte $00
.byte $60
L1108 jsl PrintInlineL2String
asl a
brk
.byte $60
L110F jsr PrintInlineNullString
adc $6e
.byte $64
.here