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 inc, dereference into DE for execute call later. )
    LDDE(HL),
    HL INCss,
    HL PUSHqq, IY POPqq, ( --> IP )
    JR, L3 BWR      ( execute-B301 )
recipes/trs80: wip 2020-04-28 07:51:41 -04:00			`L1 BSET PC ORG @ 0x0f + ! ( compiledWord )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( 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-27 15:04:37 -04:00			`0x11 BCALL, ( 11 == pushRS )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`EXDEHL, ( HL points to PFA )`
recipes/trs80: wip 2020-04-28 07:51:41 -04:00			`( While we inc, dereference into DE for execute call later. )`
			`LDDE(HL),`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`HL INCss,`
			`HL PUSHqq, IY POPqq, ( --> IP )`
			`JR, L3 BWR ( execute-B301 )`
VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-11 18:12:01 -04:00