aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/doloop.asm
blob: b5e0a262c378052f181389476d0c91d9a405a5aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( -- ) (R: loop-sys1 -- loop-sys2| )
; System
; runtime of loop
;VE_DOLOOP:
;    .dw $ff06
;    .db "(loop)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOLOOP
XT_DOLOOP:
    .dw PFA_DOLOOP
PFA_DOLOOP:
    pop zl
    pop zh
    adiw zl,1
    brvs PFA_DOPLUSLOOP_LEAVE
    jmp_ PFA_DOPLUSLOOP_NEXT