aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/exit.asm
blob: 89e19b9e4c1c93c5109f5588bf4a8b4e3f227257 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( -- ) (R: nest-sys -- )
; Compiler
; end of current colon word
VE_EXIT:
    .dw $ff04
    .db "exit"
    .dw VE_HEAD
    .set VE_HEAD = VE_EXIT
XT_EXIT:
    .dw PFA_EXIT
PFA_EXIT:
    pop XL
    pop XH
    jmp_ DO_NEXT