; sum all elements in an array at ax[.] size 10
;   result in r2

; i = 0
; sum = 0
; while i < 10
;  sum += ax[i]
;  i++
;
; i - R1, sum - R2

.symbol
  ax  4      ; &ax << 4

.code 0
:sum
  clr r1
  clr r2 
  mvi #ax 
  mvr bp
:loop 
  mvi #10
  gt r1 
  jf exit
  ldx r1       ; ac = ax[i]
  add r2
  mvr r2
  inc r1       ; i++
  jmp loop
:exit
  trap #0

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

