sum equ 128
_s1__i equ 129
_s2__i equ 130
_s3__i equ 131
r equ 132
s equ 133
_s5__i equ 134
_s6__i equ 135
steps equ 136
   org $2e0
   dta a($2000)
   org $2000
;### loop.atl(11) sum = 0
;### loop.atl(12) for i : 5..10 sum = sum + i
   lda #5
   sta _s1__i
   ldx #0
_lbl5:
   txa
   clc
   adc _s1__i
   tax
   inc _s1__i
   lda _s1__i
   cmp #11
   jne _lbl5
   stx sum
;### loop.atl(14) sum2 = 5 + 6 + 7 + 8 + 9 + 10
;### loop.atl(16) "Range [sum]"  ;45
   jsr _std_print_out
   dta b(6),c'Range '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(20) sum = 0
;### loop.atl(21) for i:range sum = sum + i
   lda #5
   sta _s2__i
   ldx #0
_lbl7:
   txa
   clc
   adc _s2__i
   tax
   inc _s2__i
   lda _s2__i
   cmp #11
   jne _lbl7
   stx sum
;### loop.atl(23) "Type [sum]"
   jsr _std_print_out
   dta b(5),c'Type '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(27) sum = 0
;### loop.atl(28) for i:range sum = sum + i
   lda #5
   sta _s3__i
   ldx #0
_lbl9:
   txa
   clc
   adc _s3__i
   tax
   inc _s3__i
   lda _s3__i
   cmp #11
   jne _lbl9
   stx sum
;### loop.atl(30) "Var [sum]"
   jsr _std_print_out
   dta b(4),c'Var '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(35) sum = 0
;### loop.atl(36) for r sum = sum + r
   lda #5
   sta r
   ldx #0
_lbl11:
   txa
   clc
   adc r
   tax
   inc r
   lda r
   cmp #11
   jne _lbl11
   stx sum
;### loop.atl(38) "Global var [sum]"
   jsr _std_print_out
   dta b(11),c'Global var '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(42) in out s:0..100 = 5
   lda #5
   sta s
;### loop.atl(44) sum = 0
   lda #0
   sta sum
;### loop.atl(45) for i:s..s+5 sum = sum + i
   lda s
   clc
   adc #5
   tax
   lda s
   sta _s5__i
_lbl13:
   lda sum
   clc
   adc _s5__i
   sta sum
   inc _s5__i
   jcs _lbl14
   cpx _s5__i
   jcs _lbl13
_lbl14:
;### loop.atl(47) "Variable range [sum]"
   jsr _std_print_out
   dta b(15),c'Variable range '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(58) sum = 0
   lda #0
   sta sum
;### loop.atl(59) for i:double_range(5) sum = sum + i
;### loop.atl(55) 	a = s
;### loop.atl(56) 	b = s * 2
   lda #5
   ldx #10
   sta _s6__i
_lbl16:
   lda sum
   clc
   adc _s6__i
   sta sum
   inc _s6__i
   jcs _lbl17
   cpx _s6__i
   jcs _lbl16
_lbl17:
;### loop.atl(61) "Function range [sum]"
   jsr _std_print_out
   dta b(15),c'Function range '
   dta b(129),a(sum)
   dta b(128)
   dta b(0)
;### loop.atl(63) "Loop 0..255 ",
   jsr _std_print_out
   dta b(12),c'Loop 0..255 '
   dta b(0)
;### loop.atl(66) steps = 0
   lda #0
   sta steps+1
;### loop.atl(67) for i:0..255 inc steps
   tax
   tay
_lbl19:
   iny
   jne _lbl20
   inc steps+1
_lbl20:
   inx
   cpx #0
   jne _lbl19
   sty steps
;### loop.atl(69) "[steps]"
   jsr _std_print_out
   dta b(130),a(steps)
   dta b(128)
   dta b(0)
_lbl21:
   jmp _lbl21
   icl 'P:\atalan\atalan\platform\atari\atari.asm'
   icl 'P:\atalan\atalan\processor\m6502\m6502.asm'