1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 04:28:05 +11:00
collapseos/blk/661

9 lines
195 B
Plaintext
Raw Normal View History

2020-05-16 23:51:02 +10:00
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, ;