aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/get-current.asm
blob: a016a95487eccd0afb8180372d176fec8199c645 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( -- wid) 
; Search Order
; get the wid of the current compilation word list
VE_GET_CURRENT:
    .dw $ff0b
    .db "get-current",0
    .dw VE_HEAD
    .set VE_HEAD = VE_GET_CURRENT
XT_GET_CURRENT:
    .dw DO_COLON
PFA_GET_CURRENT:
    .dw XT_DOLITERAL
    .dw CFG_CURRENT
    .dw XT_FETCHE
    .dw XT_EXIT