8086asm: add overflow check to RPCs,
I've spent way too much time debugging bugs caused by this... *sigh*, why can't I learn?
This commit is contained in:
parent
019fd8a67d
commit
acf8e03f53
3
blk/760
3
blk/760
@ -4,7 +4,8 @@
|
||||
: BREAK?, DUP 0x8000 AND IF
|
||||
0x7fff AND 1 ALLOT THEN, -1 ALLOT
|
||||
THEN ; )
|
||||
: RPCs, PC - 1- A, ; : RPCn, PC - 2- A,, ;
|
||||
: 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, )
|
||||
|
Loading…
Reference in New Issue
Block a user