collapseos/blk/051

VARIABLE ORG
VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: SPLITB
    256 /MOD SWAP
;
( We divide by 2 because each PC represents a word. )
: PC H@ ORG @ - 1 RSHIFT ;
( 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, ;
avra: first steps 2020-05-16 23:51:02 +10:00			`VARIABLE ORG`
avra: begin implementing forward label system 2020-05-18 01:04:08 +10:00			`VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4`
avra: first steps 2020-05-16 23:51:02 +10:00			`: SPLITB`
			`256 /MOD SWAP`
			`;`
avra: add arg range checks 2020-05-17 23:30:36 +10:00			`( We divide by 2 because each PC represents a word. )`
			`: PC H@ ORG @ - 1 RSHIFT ;`
avra: first steps 2020-05-16 23:51:02 +10: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, ;`