1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 00:30:55 +11:00
collapseos/blk/752
2020-06-13 17:58:42 -04:00

7 lines
113 B
Plaintext

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