aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/comma.asm
blob: 0f2c8d15ad6802398763071bb0544d0b42de39bd (plain)
1
2
3
4
5
6
7
8
9
10
;C I,    x --           append cell to Code dict
;   XT_IHERE I! 1 CELLS IALLOT ;
    ; HEADER(COMMA,2,",",DOCOLON)
        DW      link
        DB      0FFh       ; not immediate
.set link = $
        DB      1,","
        .align 16
XT_COMMA: DW      DOCOLON
        DW XT_IHERE,XT_STOREI,XT_TWO,XT_IALLOT,XT_EXIT