aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/immediate-q.asm
blob: 36fb29af474ebf334cf0d64c24b526ceb8ac63ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
; ( flagset -- +/-1 )  
; Tools
; return +1 if immediate, -1 otherwise, flag from name>flags
;VE_IMMEDIATEQ:
;    .dw $ff06
;    .db "immediate?"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_IMMEDIATEQ
XT_IMMEDIATEQ:
    .dw DO_COLON
PFA_IMMEDIATEQ:
    .dw XT_DOLITERAL
    .dw $8000
    .dw XT_AND
    .dw XT_ZEROEQUAL
    .dw XT_DOCONDBRANCH
    DEST(IMMEDIATEQ1)
     .dw XT_ONE
     .dw XT_EXIT
IMMEDIATEQ1:
    ; not immediate
    .dw XT_TRUE
    .dw XT_EXIT