; let ax[.] is at 100
;  r1 i, r2 m, r3 &ax, r4 ax[i], r5 flag
.symbol
.code 0
  mov r1 #0
  mov r2 #0
  mov r3 #100
:loop
  ld r4 +r3 r1
  jf r4 exit
  lt r5 r2 r4
  jf r5 skip
  mov r2 r4
:skip
  add r1 r1 #1
  jmp loop
:exit
  trap r2 #1
  trap r0 #0

.data 100
  11 22 33 66 55 0
.end
