aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/set-current.asm
blob: 334e16796603bbe0f4dbfc8ff121301a9f4fac3e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( wid -- ) 
; Search Order
; set current word list to the given word list wid
VE_SET_CURRENT:
    .dw $ff0b
    .db "set-current",0
    .dw VE_HEAD
    .set VE_HEAD = VE_SET_CURRENT
XT_SET_CURRENT:
    .dw DO_COLON
PFA_SET_CURRENT:
    .dw XT_DOLITERAL
    .dw CFG_CURRENT
    .dw XT_STOREE
    .dw XT_EXIT