aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/do-defer.asm
blob: dbd190e488ad2169bfe77ff6257b30cce4b42838 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
; ( i*x -- j*x )
; System
; runtime of defer
VE_DODEFER:
    .dw $ff07
    .db "(defer)", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_DODEFER
XT_DODEFER:
    .dw DO_COLON
PFA_DODEFER:
    .dw XT_DOCREATE
    .dw XT_REVEAL
    .dw XT_COMPILE
    .dw PFA_DODEFER1
    .dw XT_EXIT
PFA_DODEFER1:
    call_ DO_DODOES
    .dw XT_DUP
    .dw XT_ICELLPLUS
    .dw XT_FETCHI
    .dw XT_EXECUTE 
    .dw XT_EXECUTE
    .dw XT_EXIT

; : (defer) <builds does> dup i-cell+ @i execute execute ;