1
0
mirror of https://github.com/fadden/6502bench.git synced 2024-12-05 03:49:53 +00:00
6502bench/SourceGen/SGTestData/Source/1004-data-recognition.S
2018-09-28 10:05:11 -07:00

50 lines
1.2 KiB
ArmAsm

; Copyright 2018 faddenSoft. All Rights Reserved.
; See the LICENSE.txt file for distribution terms (Apache 2.0).
;
; Assembler: Merlin 32
org $1000
lda zsplit
ora esplit
rts
asc3 asc '333' ;no match
dfb $80
asc4 asc '4444' ;run of 4, as ASCII
dfb $80
asc5 asc '55555' ;run of 5, as ASCII
dfb $80
ascM asc 'MMMMMMMMMM' ;run of 62, as ASCII
asc 'MMMMMMMMMM'
asc 'MMMMMMMMMM'
asc 'MMMMMMMMMM'
asc 'MMMMMMMMMM'
asc 'MMMMMMMMMM'
asc 'MM'
dfb $80
ascL asc 'LLLLLLLLLL' ;run of 63, as fill
asc 'LLLLLLLLLL'
asc 'LLLLLLLLLL'
asc 'LLLLLLLLLL'
asc 'LLLLLLLLLL'
asc 'LLLLLLLLLL'
asc 'LLL'
dfb $81
zero ds 3 ;no match
dfb $81
ds 4 ;no match
dfb $81
ds 5 ;fill of 5
dfb $81
; The auto-label should split these in half.
ds 8
zsplit ds 8
hex 8282828282828282
esplit hex 8282828282828282