mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 15:18:05 +11:00
10 lines
203 B
Plaintext
10 lines
203 B
Plaintext
: THEN,
|
|
DUP PC ( l l pc )
|
|
-^ 1- ( l off )
|
|
( warning: l is a PC offset, not a mem addr! )
|
|
SWAP ORG @ + BIN( @ - ( off addr )
|
|
C!
|
|
;
|
|
: FWR BSET 0 A, ;
|
|
: FSET @ THEN, ;
|