;;  while 
;;  i = 0
;;  while i < 10
;;     i = i + 1
;;
.org 0
  jmp begin
i: 0
.org 100H
begin:
  lda #0
  sta i
loop:
;;  to do i < 10 
;;  as we do i + (-10) 
;;  and check if carry flag is set
;;  it signifies negative result
  lda i
  add #-10
  jpc doit
  jmp exit
doit:
  lda i
  add #1
  sta i
  jmp loop
exit:
  jsr 1001
.end
