microP

start org             $1000
               lea src_string, a1
move.w #14,d0
trap  #15

move.b #11,d0
clr d1
lea src_string,a0

aaa move.b (a0,d0),(a1,d1)
cmp.b #0,d0
beq             bbb
subi #1,d0
addi           #1,d1
bra aaa
 
bbb move.b #9,d0
trap #15

            src_string dc.b 'I LOVE MICROPROCESSOR!',0
end             start

p/s: esk lab test! errkkk :(