1 .text
   2 .arm
   3 .global _start
   4 _start:
   5         b reset
   6         b loop
   7         b loop
   8         b loop
   9         b loop
  10         nop
  11         b loop
  12         b loop
  13 
  14 /* ==============================
  15 *  TEST CODE
  16 *  ==============================
  17 */
  18 reset:
  19         mov r1,#VECT-1
  20         mov r4,#0
  21         mov r2,#VECT
  22 	
  23 	
  24 otro: 	ldrb r3,[r2]
  25 	cmp r3,#0 
  26         cmpne r3,#' '
  27         beq espacio
  28 	add r4,r4,#1
  29 
  30 seguir:	add r2,r2,#1
  31 	b otro
  32 
  33 espacio:
  34 	cmp r4,#1
  35 	bls seguir_esp
  36 	mov r5,#1
  37 
  38 otracopia:
  39 	ldrb r7,[r1,r5]
  40 	ldrb r6,[r2,-r5]
  41 	strb r7,[r2,-r5]
  42 	strb r6,[r1,r5]
  43 	cmp r5,r4,lsr #1
  44 	add r5,r5,#1
  45 	bne otracopia
  46 seguir_esp:
  47 	mov r1,r2
  48 	mov r4,#0
  49 	cmp r3,#0
  50 	bne seguir
  51 
  52 salir:
  53 
  54 loop:   b loop
  55 
  56 /* ==============================
  57 *  CONTANTES
  58 *  ==============================
  59 */
  60 VECT:	.asciz " Las    palabras en el mismo    están separadas por uno o varios espacios " 
  61         .balign 4
  62 
  63         .end