aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/immediate.asm
blob: 6a2370db714f40e6b34280e2672e14def34374d4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
; ( -- ) 
; Compiler
; set immediate flag for the most recent word definition
VE_IMMEDIATE:
    .dw $ff09
    .db "immediate",0
    .dw VE_HEAD
    .set VE_HEAD = VE_IMMEDIATE
XT_IMMEDIATE:
    .dw DO_COLON
PFA_IMMEDIATE:
    .dw XT_GET_CURRENT
    .dw XT_FETCHE
    .dw XT_DUP
    .dw XT_FETCHI
    .dw XT_DOLITERAL
    .dw $7fff
    .dw XT_AND
    .dw XT_SWAP
    .dw XT_STOREI
    .dw XT_EXIT