aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/itype.asm
blob: 68a032e8eac77cd729adbb6dfc18dab19fc3dba6 (plain)
1
2
3
4
5
6
;Z ITYPE   c-addr +n --       type line to term'l
;   ?DUP IF                       from Code space
;     OVER + XT_SWAP DO I IC@ EMIT LOOP
;   ELSE DROP THEN ;
    HEADER(XT_ITYPE,5,"itype",DOCOLON)
    DW XT_TYPE,XT_EXIT