izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/298

13 lines
331 B
Plaintext
Raw Normal View History

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-06 12:23:40 +10:00
CODE (loop)
PC ORG @ 0x45 + ! ( stable ABI JP )
0 IX+ INC(IXY+), IFZ, 1 IX+ INC(IXY+), THEN, ( I++ )
( Jump if I <> I' )
A 0 IX+ LDrIXY, 2 IX- CP(IXY+), JRNZ, L1 BWR ( branch )
A 1 IX+ LDrIXY, 1 IX- CP(IXY+), JRNZ, L1 BWR ( branch )
( don't branch )
IX DECd, IX DECd, IX DECd, IX DECd,
z80: Use BC as IP register instead of IY It's a bit more inconvenient in terms of register protection (BC is much more generally useful than IY), but it makes tight spots such as next and execute much faster, so I think it's worth it.
2020-07-07 13:31:00 +10:00
BC INCd,
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-06 12:23:40 +10:00
;CODE