aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/immediate-q.asm
blob: 2660efe99c43c8b5a28b81eb1a4df11ce160ab3e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( f -- +/-1 )
; System
; return +1 if immediate, -1 otherwise, flag from name>flags
 HEADLESS(XT_IMMEDIATEQ,DOCOLON)
    .dw XT_ONE
    .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