collapseos/blk/287

lblexec BSET L1 FSET ( B284 ) L2 FSET ( B286 )
    ( DE -> wordref )
    LDA(DE), DE INCd, EXDEHL, ( HL points to PFA )
    A ORr, IFZ, JP(HL), THEN,
    A DECr, ( compiled? ) IFNZ, ( no )
    ( cell or does. push PFA ) HL PUSH,
    A DECr, JRZ, lblnext BWR ( cell )
    HL INCd, HL INCd, LDDE(HL), EXDEHL, ( does )
    THEN, ( continue to compiledWord )
z80: move lbluflw code around with uflw checks not being in next anymore, we can save ourselves a forward jump. 2020-08-08 08:19:31 -04:00			`lblexec BSET L1 FSET ( B284 ) L2 FSET ( B286 )`
z80: move boot code around Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word. 2020-07-05 22:23:40 -04:00			`( DE -> wordref )`
z80: make exec routine a wee bit tighter 1 whole byte! 2020-10-28 13:28:27 -04:00			`LDA(DE), DE INCd, EXDEHL, ( HL points to PFA )`
			`A ORr, IFZ, JP(HL), THEN,`
			`A DECr, ( compiled? ) IFNZ, ( no )`
			`( cell or does. push PFA ) HL PUSH,`
z80: move boot code around Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word. 2020-07-05 22:23:40 -04:00			`A DECr, JRZ, lblnext BWR ( cell )`
z80: make exec routine a wee bit tighter 1 whole byte! 2020-10-28 13:28:27 -04:00			`HL INCd, HL INCd, LDDE(HL), EXDEHL, ( does )`
			`THEN, ( continue to compiledWord )`