mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-28 12:00:19 +10:00
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, ;
|