collapseos/blk/247

: 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, ;
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-19 20:36:13 -04:00			`: THEN,`
			`DUP PC ( l l pc )`
			`-^ 1- ( l off )`
			`( warning: l is a PC offset, not a mem addr! )`
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			`SWAP ORG @ + BIN( @ - ( off addr )`
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-19 20:36:13 -04:00			`C!`
			`;`
			`: FWR BSET 0 A, ;`
			`: FSET @ THEN, ;`