itype

 reads string from flash and emit it

Stackeffects

( addr n -- )
R( -- )

Definition

: itype
   dup    2/    swap    over    2*    -    >r    0    (?do)
PFA_ITYPE1:
   dup    i@    dup    emit    hiemit    1+
(loop) PFA_ITYPE1

PFA_ITYPE2:
   r>    0>
(?branch) PFA_ITYPE3
   dup    i@    emit
PFA_ITYPE3:
   drop    exit
;

Used by

. quit show-wordlist ver