Common host functions

::host::

Install an IRQ handler at the given vector number:

: irq-handler! ( num handler -- )
               2/
               swap 1- 4 * #target +
               $940c over w!
               2 + w! ;

Save the target image as a hex file:

: write-hex    ( c-addr n -- )
               w/o create-file throw >r
               trom #target there trom - r@ type-hex
               r> close-file throw ;

Initialize the target cell size:

2 to tcell