collapseos/blk/757

: 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- A, ; : RPCn, PC - 2- A,, ;
: AGAIN, ( BREAK?, ) RPCs, ;
( Use RPCx with appropriate JMP/CALL op. Example:
  JMPs, 0x42 RPCs, or CALLn, 0x1234 RPCn, )
pcat: begin implementing find Not comparing strings yet. Without asm tooling support, it's a big chunk to swallow at once. It's progressing well! 2020-06-15 11:52:58 +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 ; )`
			`: RPCs, PC - 1- A, ; : RPCn, PC - 2- A,, ;`
			`: AGAIN, ( BREAK?, ) RPCs, ;`
			`( Use RPCx with appropriate JMP/CALL op. Example:`
			`JMPs, 0x42 RPCs, or CALLn, 0x1234 RPCn, )`