aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/leave.asm
blob: a7e676c6ae3f5d2f4480584049c9418ac5b25267 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
; ( -- ) (R: loop-sys -- )
; Compiler
; immediatly leave the current DO..LOOP

.if cpu_msp430==1
    IMMED(XT_LEAVE,5,"leave",DOCOLON)
.endif

.if cpu_avr8==1
VE_LEAVE:
   .dw $0005
   .db "leave",0
   .dw VE_HEAD
   .set VE_HEAD = VE_LEAVE
XT_LEAVE:
    .dw DO_COLON
PFA_LEAVE:
.endif
    .DW XT_COMPILE,XT_UNLOOP
    .DW XT_AHEAD,XT_TO_L,XT_EXIT