#lang planet zwizwa/staapl/pic18 \ -*- forth -*-
\ For PIC18, execute doesn't make much sense: 8 bit address space
\ doesn't bring you very far. However, the 16 bit version does make
\ So let's define an execution token as a 2 byte value. Does this lead
\ to trouble?
\ Note that the value of a symbol representing a code address always
\ uses WORD ADDRESSING unless otherwise indicated. This is different
\ from table reading and writing, which uses BYTE ADDRESSING. I found
\ this to be the sanest way of dealing with addresses. It's a
\ trade--off slightly in favour if this solution.
\ As a result, _execute does need to shift its arguments.
: lohi dup #xFF and swap 8 >>> forth
: execute/w 2nd rot<<c! rot<<c \ the LSB is ignored by the machine..
: execute/b push TOSH ! TOSL !