; ( adr -- adr n ) Tools
; R( -- )
; get count byte out of packed counted string in flash
VE_ICOUNT:
.db $06, "icount",0
.dw VE_HEAD
.set VE_HEAD = VE_ICOUNT
XT_ICOUNT:
.dw DO_COLON
PFA_ICOUNT:
.dw XT_DUP
.dw XT_IFETCH
.dw XT_DOLITERAL
.dw $00ff ; only the count byte
.dw XT_AND
.dw XT_EXIT