; sum an array

.code 0
  mov r1 #0
  mov r2 #0
  mov r3 #100
:loop
  lt r5 r2 #10
  jf r5 exit
  ld r4 +r3 r2
  add r1 r1 r4
  add r2 r2 #1
  jmp loop
:exit
  trap r0 #0
.end