qasm/lup.s

22 lines
164 B
ArmAsm

xc
xc
lst on
org $2000
macro mac
lup 4
lda #$00
eom
start pha
lup 5
]1 asl
bcs ]1
--^
pla
macro
end