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 *  realizar el factorial de numero, mediante una funcion recursiva 
  16 *  ==============================
  17 */
  18 reset:
  19         mov r0,#10
  20         bl factorial
  21 
  22 loop:   b loop
  23         
  24         .ltorg
  25 
  26 /* ----------------------------------------------------------------------------*/
  27 /* funcion factorial */
  28 /* ----------------------------------------------------------------------------*/
  29 factorial:
  30         push {r1,r2,lr}
  31         
  32         cmp r0,#1 
  33         beq salir
  34         mov r1,r0
  35         sub r0,r0,#1
  36         bl factorial
  37         mul r2,r0,r1
  38         mov r0,r2
  39 salir:  
  40         pop {r1,r2,lr}
  41         mov pc,lr
  42 /* fin función */
  43 
  44 /* ==============================
  45 *  CONTANTES
  46 *  ==============================
  47 */
  48         .space 200
  49 STACK:
  50         .balign 4
  51         .end