aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/execute.asm
blob: 4a2308d3431db05b8d4a296598df4f4f2a2bc71c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( xt -- ) 
; System
; execute XT
VE_EXECUTE:
    .dw $ff07
    .db "execute",0
    .dw VE_HEAD
    .set VE_HEAD = VE_EXECUTE
XT_EXECUTE:
    .dw PFA_EXECUTE
PFA_EXECUTE:
    movw wl, tosl
    loadtos
    jmp_ DO_EXECUTE