collapseos/blk/303

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 )
    L4 @ ( pushRS ) CALLnn,
    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 )
z80: reorder compiledWord and doesWord, saving ourselves a jump 2020-06-15 00:12:56 +10:00			`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 )`
Fix recipes with binary offset (ti84, trs80) I broke them when I removed call indirection layers without also removing usage of BCALL. 2020-06-18 07:44:33 +10:00			`L4 @ ( pushRS ) CALLnn,`
z80: reorder compiledWord and doesWord, saving ourselves a jump 2020-06-15 00:12:56 +10:00			`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 )`