mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:10:55 +11:00
0892193cbe
I don't remove z80a.fs yet because build process needs it, but that will change shortly.
14 lines
336 B
Plaintext
14 lines
336 B
Plaintext
( Place BEGIN, where you want to jump back and AGAIN after
|
|
a relative jump operator. Just like BSET and BWR. )
|
|
: BEGIN, PC ;
|
|
: AGAIN, PC - 1- A, ;
|
|
|
|
: BSET PC SWAP ! ;
|
|
: BWR @ AGAIN, ;
|
|
( same as BSET, but we need to write a placeholder )
|
|
: FJR, PC 0 A, ;
|
|
: IFZ, JRNZ, FJR, ;
|
|
: IFNZ, JRZ, FJR, ;
|
|
: IFC, JRNC, FJR, ;
|
|
: IFNC, JRC, FJR, ;
|