mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:28:05 +11:00
0892193cbe
I don't remove z80a.fs yet because build process needs it, but that will change shortly.
10 lines
197 B
Plaintext
10 lines
197 B
Plaintext
: THEN,
|
|
DUP PC ( l l pc )
|
|
-^ 1- ( l off )
|
|
( warning: l is a PC offset, not a mem addr! )
|
|
SWAP ORG @ + ( off addr )
|
|
C!
|
|
;
|
|
: FWR BSET 0 A, ;
|
|
: FSET @ THEN, ;
|