.begin
.org 2048

ld [address], %r1
add %r0, 16, %r2 ! 20 bytes => 5 palabras, último valor en [address] + 16

ld [address_2], %r3
add %r0, 0, %r4
loop:   andcc %r2, %r2, %r0
    bneg done
    ld %r1, %r2, %r5 ! r5 = dato del array 1
    st %r5, %r3, %r4
    add %r2, -4, %r2 ! actualizo indices de arrays
    add %r4, 4, %r4
    ba loop

done: jmpl %r15 +4, %r0

address:    3000
address_2:  3020

.org 3000
    1
    2
    3
    4
    5
.end

---- Segunda versión con .dwb para el array a ser escrito ----

.begin
.org 2048

ld [address_1], %r1
add %r0, 16, %r2 ! 20 bytes => 5 palabras, último valor en [address] + 16

add %r0, 0, %r4
loop:   andcc %r2, %r2, %r0
    bneg done
    ld %r1, %r2, %r5 ! r5 = dato del array 1
    st %r5, %r4, [array_2]
    add %r2, -4, %r2 ! actualizo indices de arrays
    add %r4, 4, %r4
    ba loop

done: jmpl %r15 +4, %r0

address: 3000
.org 3000
array_1:        1
            2
            3
            4
            5

array_2: .dwb 5
.end