collapseos/blk/661

11 lines
308 B
Plaintext
Raw Normal View History

2020-05-16 09:51:02 -04:00
VARIABLE ORG
VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
2020-05-16 09:51:02 -04:00
: SPLITB
256 /MOD SWAP
;
2020-05-17 09:30:36 -04:00
( We divide by 2 because each PC represents a word. )
: PC H@ ORG @ - 1 RSHIFT ;
2020-05-16 09:51:02 -04:00
( 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, ;