RosettaCodeData/Task/Copy-a-string/68000-Assembly/copy-a-string-2.68000

14 lines
209 B
Plaintext

StringRam equ $100000
myString: DC.B "HELLO WORLD",0
EVEN
LEA myString,A3
LEA StringRam,A4
CopyString:
MOVE.B (A3)+,(A4)+ ;Copy one byte.
BNE CopyString ;Not zero, do more bytes.
;program ends here.