collapseos/blk/760

: FWRs BSET 0 A, ;
: FSET @ THEN, ;
( : BREAK, FJR, 0x8000 OR ;
: BREAK?, DUP 0x8000 AND IF
        0x7fff AND 1 ALLOT THEN, -1 ALLOT
    THEN ; )
: RPCs, PC - 1- DUP 128 + 0xff > IF ABORT" PC ovfl" THEN A, ;
: RPCn, PC - 2- A,, ;
: AGAIN, ( BREAK?, ) RPCs, ;
( Use RPCx with appropriate JMP/CALL op. Example:
  JMPs, 0x42 RPCs, or CALLn, 0x1234 RPCn, )
pcat: add PICK and (roll) 2020-06-19 11:21:46 +10:00			`: FWRs BSET 0 A, ;`
			`: FSET @ THEN, ;`
			`( : BREAK, FJR, 0x8000 OR ;`
			`: BREAK?, DUP 0x8000 AND IF`
			`0x7fff AND 1 ALLOT THEN, -1 ALLOT`
			`THEN ; )`
8086asm: add overflow check to RPCs, I've spent way too much time debugging bugs caused by this... sigh, why can't I learn? 2020-06-21 03:36:21 +10:00			`: RPCs, PC - 1- DUP 128 + 0xff > IF ABORT" PC ovfl" THEN A, ;`
			`: RPCn, PC - 2- A,, ;`
pcat: add PICK and (roll) 2020-06-19 11:21:46 +10:00			`: AGAIN, ( BREAK?, ) RPCs, ;`
			`( Use RPCx with appropriate JMP/CALL op. Example:`
			`JMPs, 0x42 RPCs, or CALLn, 0x1234 RPCn, )`