aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/c-comma.asm
blob: 506476856ca2ac7c62e6f17d626982baf0e219d7 (plain)
1
2
3
4
5
6
7
8
9
10
;C IC,   char --        append char to Code dict
;   XT_IHERE IC! 1 CHARS IALLOT ;
    ; HEADER(ICCOMMA,3,"IC,",DOCOLON)
        DW      link
        DB      0FFh       ; not immediate
.set link = $
        DB      2,"c,"
        .align 16
XT_CCOMMA: DW      DOCOLON
        DW XT_IHERE,XT_CSTOREI,XT_ONE,XT_IALLOT,XT_EXIT