;; sum 1..10
;;   i = 0
;;   s = 0
;;   while i <= 10
;;     s = s + i
;;     i = i + 1

.org 0
  jmp begin
s:   0 
i:   0
.org 100H
begin:
  lda #0
  sta i
  sta s
while:
  lda i
  add #-11
  jpz exit
  lda s
  add i
  sta s
  lda i
  add #1
  sta i
  jmp while
exit:
  jsr 1001
.end
   