collapseos/blk/303

( compiled word ) L1 FSET ( execute B301 )
( 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 )
    lblpushRS @ ( 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, lblexec BWR      ( execute-B301 )
Make word routines into word types Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now... 2020-06-18 11:41:01 +10:00			`( compiled word ) L1 FSET ( execute B301 )`
z80: reorder compiledWord and doesWord, saving ourselves a jump 2020-06-15 00:12:56 +10: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 )`
z80: use named labels for boot routines The usage of numerotated labels for this was becoming severly confusing. 2020-06-18 21:16:40 +10:00			`lblpushRS @ ( 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 )`
z80: use named labels for boot routines The usage of numerotated labels for this was becoming severly confusing. 2020-06-18 21:16:40 +10:00			`JR, lblexec BWR ( execute-B301 )`
z80: reorder compiledWord and doesWord, saving ourselves a jump 2020-06-15 00:12:56 +10:00