aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/loop.asm
blob: 9ffbface73ce3bfa82e7ace8e249960190f7cc76 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
; (R: loop-sys -- ) (C: do-sys -- ) 
; Compiler
; compile (loop) and resolve the backward branch

.if cpu_msp430==1
    IMMED(XT_LOOP,4,"loop",DOCOLON)
.endif

.if cpu_avr8==1
VE_LOOP:
    .dw $0004
    .db "loop"
    .dw VE_HEAD
    .set VE_HEAD = VE_LOOP
XT_LOOP:
    .dw DO_COLON
PFA_LOOP:
.endif
    .dw XT_COMPILE
    .dw XT_DOLOOP
    .dw XT_ENDLOOP
    .dw XT_EXIT