aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/unloop.asm
blob: f4fb4bcd83b3ee43d27dd83c21291641942d273c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( -- ) (R: loop-sys -- ) 
; Compiler
; remove loop-sys, exit the loop and continue execution after it
VE_UNLOOP:
    .dw $ff06
    .db "unloop"
    .dw VE_HEAD
    .set VE_HEAD = VE_UNLOOP
XT_UNLOOP:
    .dw PFA_UNLOOP
PFA_UNLOOP:
    pop temp1
    pop temp0
    pop temp1
    pop temp0
    jmp_ DO_NEXT