;; fill array with 8
;; i = 0
;; while i < 10
;;   a[i] = 8
;;   i = i + 1
.org 0
  jmp begin
i: 0
aa: 6   ;; &a
ea: 0
a: 0 0 0 0
.org 100H
begin:
  lda #0
  sta i
loop:
  lda i
  add #-3
  jpc body  ;; test i < 10
  jmp exit
body:
  lda aa
  add i
  sta ea   ;; &a[i]
  lda #8
  sta (ea)  ;; a[i] = 8
  lda i
  add #1
  sta i      ;; i = i + 1
  jmp loop
exit:
  jsr 1001
  .end
