CopiaCadena (StrCopy)

*-----------------------------------------------------------
* Title      :copiacadena
* Written by :
* Date       :
* Description:Copia una cadena de caracteres ASCII finalizada en NULL a
*             otra zona de memoria
*-----------------------------------------------------------
        ORG $1000
START:                  ; first instruction of program
        MOVE.L #TEXTO,A0
        MOVE.L #TEXTOCOPIA,A1
BUCLE
        MOVE.B (A0)+,D0  *Pasa un dato de la cadena a D0
                         *y A0 queda apuntando al siguiente
        CMP.B #0,D0      *Comprobamos si es el NULL para finalizar
        BEQ FIN
            *Aquí se añadiría el código para procesar el dato en D0
        MOVE.B D0,(A1)+
        JMP BUCLE

FIN     MOVE.B #0,(A1)+ *Finalizamos con NULL la nueva cadena

        SIMHALT             ; halt simulator

* Put variables and constants here

        ORG $2000
TEXTO       DC.B 'hola mundo',0
TEXTOCOPIA  DS.B 11             *Reservamos 10 caracteres + NULL
        END    START