VARIABLE ORG
: SPLITB
    256 /MOD SWAP
;
: PC H@ ORG @ ;
( A, spits an assembled byte, A,, spits an assembled word
  Both increase PC. To debug, change C, to .X )
: A, C, ; : A,, SPLITB A, A, ;