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

17 lines
387 B
Plaintext

StringRam equ $100000
myString: DC.B "HELLO WORLD",0
EVEN
LEA myString,A3
LEA StringRam,A4
CopyString:
MOVE.B (A3)+,D0
MOVE.B D0,(A4)+ ;we could have used "MOVE.B (A3)+,(A4)+" but this makes it easier to check for the terminator.
BEQ Terminated
BRA CopyString
Terminated: ;the null terminator is already stored along with the string itself, so we are done.
;program ends here.