collapseos/blk/668

( a -- k12, absolute addr a, relative to PC in a k12 addr )
: _r7ffc DUP 0x7ff > IF _oor THEN ;
: _raddr12
    PC - DUP 0< IF 0x800 + _r7ffc 0x800 OR ELSE _r7ffc THEN ;
: RJMP _raddr12 0xc000 OR ;
: RCALL _raddr12 0xd000 OR ;
: RJMP, RJMP A,, ; : RCALL, RCALL A,, ;
avra: add RJMP and RCALL 2020-05-18 00:13:43 +10:00			`( a -- k12, absolute addr a, relative to PC in a k12 addr )`
			`: _r7ffc DUP 0x7ff > IF _oor THEN ;`
			`: _raddr12`
			`PC - DUP 0< IF 0x800 + _r7ffc 0x800 OR ELSE _r7ffc THEN ;`
avra: add a layer of indirection to FLBL! This will make it easier to fit BR* in there. 2020-05-19 09:45:30 +10:00			`: RJMP _raddr12 0xc000 OR ;`
			`: RCALL _raddr12 0xd000 OR ;`
avra: implement BR* Getting good! still advancing on ps2ctl in sms/kbd and still matching reference binary. 2020-05-19 10:34:06 +10:00			`: RJMP, RJMP A,, ; : RCALL, RCALL A,, ;`
VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00