.text
.arm
.global _start
_start:
        b reset
        b loop
        b loop
        b loop
        b loop
        nop
        b loop
        b loop

/* ==============================
*  TEST CODE
*  ==============================
*/
reset:
        mov r1,#VECT-1
        mov r4,#0
        mov r2,#VECT
	
	
otro: 	ldrb r3,[r2]
	cmp r3,#0 
        cmpne r3,#' '
        beq espacio
	add r4,r4,#1

seguir:	add r2,r2,#1
	b otro

espacio:
	cmp r4,#1
	bls seguir_esp
	mov r5,#1

otracopia:
	ldrb r7,[r1,r5]
	ldrb r6,[r2,-r5]
	strb r7,[r2,-r5]
	strb r6,[r1,r5]
	cmp r5,r4,lsr #1
	add r5,r5,#1
	bne otracopia
seguir_esp:
	mov r1,r2
	mov r4,#0
	cmp r3,#0
	bne seguir

salir:

loop:   b loop

/* ==============================
*  CONTANTES
*  ==============================
*/
VECT:	.asciz " Las    palabras en el mismo    están separadas por uno o varios espacios " 
        .balign 4

        .end