Subroute Threaded Forth, AVRxx chip specific host words

host-stc.ft

::host::

Create a dictionary entry, link addresses are mapped to $8000 upwards to allow using LD instructions to traverse the dictionary.

:noname        talign
               there tlast @ $8000 or t, tlast !
               there >target pack$ c@ 1+ tallot talign ; is thead