
; sum array 0..9

.code 0
  mov r1 #0     
  mov r2 #0      ; i = 0
  mov r4 #100    ;  &A
:while
  lt r3 r2 #10
  jf r3 exit
  ld r5 +r4 r2    ;  A[i]
  add r1 r1 r5
  add r2 r2 #1 
  jmp while
:exit
  trap r1 #1      ; print r1
  trap r0 #0      ; stop

.data 100
  1 2 3 4 5 6 7 8 9 10
.end
