1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 02:18:04 +11:00
collapseos/blk/247

10 lines
197 B
Plaintext
Raw Normal View History

: 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, ;