1 .arm
   2 .global _start
   3 _start:
   4         b reset
   5         b loop
   6         b loop
   7         b loop
   8         b loop
   9         nop
  10         b loop
  11         b loop
  12 
  13 /* ==============================
  14 *  TEST CODE
  15 *  igualar las palabra de una cadena a la mas larga
  16 *  ==============================
  17 */
  18 reset:
  19         ldr r1,=CADENA
  20         ldr r2,=SALIDA
  21  
  22         mov r5,#0 @maxima longitud
  23 	mov r4,#0 @contador longitud
  24 otro:   ldrb r3,[r1],#1
  25         cmp r3,#0
  26         beq salir1
  27         cmp r3,#' ' 
  28         beq salir1
  29         add r4,#1
  30         b otro
  31 salir1: cmp r4,r5
  32 	movhi r5,r4
  33  	mov r4,#0
  34 	cmp r3,#0
  35 	bne otro
  36 
  37         ldr r1,=CADENA
  38 	ldr r2,=SALIDA
  39 	
  40 otro2:  ldrb r3,[r1],#1
  41     	cmp r3,#0
  42         beq salir2
  43         cmp r3,#' ' 
  44         beq salir2
  45 	strb r3,[r2],#1
  46 	add r4,#1
  47 	b otro2
  48 salir2: cmp r4,#0 @si es otro espacio seguido no completo con '_'
  49 	beq seguir
  50 otro3:  cmp r4,r5
  51 	beq seguir
  52 	mov r6,#'_'
  53 	strb r6,[r2],#1
  54 	add r4,#1
  55 	b otro3
  56 seguir: strb r3,[r2],#1
  57 	mov r4,#0
  58 	cmp r3,#0
  59 	bne otro2
  60 
  61 
  62 loop:   b loop
  63         .ltorg
  64 
  65 /* ==============================
  66 *  CONTANTES
  67 *  ==============================
  68 */
  69 CADENA:  .asciz "igualar el largo de las palabras"
  70 SALIDA:  .space(200)
  71 
  72         .balign 4
  73         .end