collapseos/blk/302

L1 BSET
PC ORG @ 0x0f + ! ( compiledWord )
( 1. Push current IP to RS
  2. Set new IP to the second atom of the list
  3. Execute the first atom of the list. )
    IY PUSHqq, HL POPqq, ( <-- IP )
    0x11 BCALL,      ( 11 == pushRS )
    EXDEHL,          ( HL points to PFA )
    ( While we increase, dereference into DE for execute call
      later. )
    E (HL) LDrr,
    HL INCss,
    D (HL) LDrr,
    HL INCss,
    HL PUSHqq, IY POPqq, ( --> IP )
    JR, L3 BWR      ( execute-B301 )
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`L1 BSET`
			`PC ORG @ 0x0f + ! ( compiledWord )`
			`( 1. Push current IP to RS`
			`2. Set new IP to the second atom of the list`
			`3. Execute the first atom of the list. )`
			`IY PUSHqq, HL POPqq, ( <-- IP )`
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			`0x11 BCALL, ( 11 == pushRS )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`EXDEHL, ( HL points to PFA )`
			`( While we increase, dereference into DE for execute call`
			`later. )`
			`E (HL) LDrr,`
			`HL INCss,`
			`D (HL) LDrr,`
			`HL INCss,`
			`HL PUSHqq, IY POPqq, ( --> IP )`
			`JR, L3 BWR ( execute-B301 )`