mirror of
https://github.com/fadden/6502bench.git
synced 2024-07-13 14:29:23 +00:00
58 lines
1.2 KiB
ArmAsm
58 lines
1.2 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 L107C
|
||
|
|
jsr L110F
|
||
|
|
jsr L1108
|
||
|
|
rts
|
||
|
|
|
||
|
|
PrintInline8String rts
|
||
|
|
|
||
|
|
PrintInlineRev8String rts
|
||
|
|
|
||
|
|
PrintInlineNullString rts
|
||
|
|
|
||
|
|
L107C jsr PrintInlineNullString
|
||
|
|
per $7ff4
|
||
|
|
rtl
|
||
|
|
|
||
|
|
!byte $65
|
||
|
|
!byte $6e
|
||
|
|
!byte $20
|
||
|
|
!byte $01
|
||
|
|
!pseudopc $1100 {
|
||
|
|
!text "string"
|
||
|
|
!byte $00
|
||
|
|
!byte $60
|
||
|
|
|
||
|
|
L1108 jsl PrintInlineL2String
|
||
|
|
asl
|
||
|
|
brk
|
||
|
|
|
||
|
|
!byte $60
|
||
|
|
|
||
|
|
L110F jsr PrintInlineNullString
|
||
|
|
adc $6e
|
||
|
|
!byte $64
|
||
|
|
} ;!pseudopc
|