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:  ldr sp,=STACK 
  19         ldr r1,=VECTOR
  20         mov r2,#16
  21         mov r3,#0
  22         mov r4,#0
  23         mov r5,#0
  24         mov r6,#0
  25 
  26 otro:   ldr r0,[r1],#4          @ suma todo los elementos en r3
  27         add r3,r0
  28         subs r2,#1
  29         bne otro     
  30  
  31         mov r3,r3, asr #4        @ calcula promedio
  32         
  33         ldr r1,=VECTOR
  34         mov r2,#16
  35         mov r7,r1
  36 
  37 otro2:  ldr r0,[r1]
  38 
  39         sub r5,r0,r3            @ calcula r5 = abs(r0-r3)
  40         cmp r5,#0
  41         rsbmi r5,#0
  42 
  43         cmp r7,r1               @ carga como menor al primer valor del vector
  44         beq primero
  45 
  46         cmp r4,r5               @ actualiza al menor 
  47         ble nomenor
  48 primero:mov r4,r5
  49         mov r6,r0
  50         
  51 nomenor:
  52         add r1,#4
  53         subs r2,#1
  54         bne otro2
  55             
  56 loop:   b loop
  57 
  58 
  59 VECTOR: .word 1000,-1000,234,-234,100,-90,-10,200,-100,-100,20,80,100,200,-400,160
  60 .balign 4
  61       .space(200)
  62 STACK:
  63 
  64         .end