mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 00:48:05 +11:00
8c452f5add
Not comparing strings yet. Without asm tooling support, it's a big chunk to swallow at once. It's progressing well!
11 lines
313 B
Plaintext
11 lines
313 B
Plaintext
: 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, )
|