; call a subroutine

.code 0
:main
  mov r1 #3
  jal r2 double   ; r2 store return address
  trap r0 #0    ; stop

:double
  add r1 r1 r1   ; double r1 value
  ret r2 
.end