( Splits word into msb/lsb, lsb being on TOS )
: SPLITB
    256 /MOD SWAP
;
: PC H@ ORG @ - BIN( @ + ;
: A, C, ;
: A,, SPLITB A, A, ;