collapseos/blk/301

L3 BSET PC ORG @ 0x34 + ! ( execute )
    EXDEHL, ( HL now points to wordref )
    ( We don't apply BIN( reliably on stable ABI stuff, we
      might need to adjust addr. Ugly, but well... )
    BIN( @ [IF]
        A XORr, H ORr, IFZ, H BIN( @ 256 / LDrn,
    [THEN]
    E (HL) LDrr,
    D BIN( @ 256 / LDrn,
    EXDEHL,
    ( HL points to code pointer )
    DE INCss,
    ( DE points to PFA )
    JP(HL),
boot: apply BIN( to stray stable ABI references With cross compiling and IMMEDIATE words, things get icky with stable ABI references. For the same reason that EXIT, (br) and (br?) need to stay at stable offsets, these word references will not have BIN( properly applied at Inner core xcomp. The solution for now is to adjust during EXECUTE, which is ugly and inefficient, but I don't see a better solution right now. 2020-04-28 22:52:47 +10:00			`L3 BSET PC ORG @ 0x34 + ! ( execute )`
			`EXDEHL, ( HL now points to wordref )`
			`( We don't apply BIN( reliably on stable ABI stuff, we`
			`might need to adjust addr. Ugly, but well... )`
			`BIN( @ [IF]`
			`A XORr, H ORr, IFZ, H BIN( @ 256 / LDrn,`
			`[THEN]`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`E (HL) LDrr,`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-28 05:04:37 +10:00			`D BIN( @ 256 / LDrn,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`EXDEHL,`
			`( HL points to code pointer )`
			`DE INCss,`
			`( DE points to PFA )`
			`JP(HL),`