mirror of
https://github.com/marketideas/qasm.git
synced 2024-12-27 15:29:30 +00:00
50 lines
1.2 KiB
ArmAsm
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
|
|
|