collapseos/blk/247
Virgil Dupras fc67b88720 Make BIN( offsetted binaries closer to working at all
I have a working offset-by-0x100 stage0 now.
2020-04-28 21:12:52 -04:00

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