collapseos/blk/042

: 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 CALL, 0x1234 RPCn, )
pcat: properly handle IMMED flag in _find 2020-06-22 03:09:51 +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- DUP 128 + 0xff > IF ABORT" PC ovfl" THEN A, ;`
			`: RPCn, PC - 2- A,, ;`
			`: AGAIN, ( BREAK?, ) RPCs, ;`
			`( Use RPCx with appropriate JMP/CALL op. Example:`
Document 8086 asm instructions list Also, remove needless argtype in CALL and RET 2020-09-26 09:39:31 +10:00			`JMPs, 0x42 RPCs, or CALL, 0x1234 RPCn, )`