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. )
: 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`
Add word A, This would be useful, for example, to allow the assembler to write straight to an AT28 EEPROM without going to RAM. This would be a life saver in machines with tight RAM such as the SMS. 2020-10-29 11:45:50 +11:00			`Both increase PC. )`
			`: A,, SPLITB A, A, ;`