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

Strip usages of IY register

This commit is contained in:
Virgil Dupras 2020-04-15 16:53:04 -04:00
parent 2b0186fd58
commit 2a84a426b4
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

2
forth/boot.fs
View File

@ -320,7 +320,7 @@ PC ORG @ 0x34 + ! ( execute )
PC ORG @ 0x0f + ! ( compiledWord )
( Execute a list of atoms, which always end with EXIT.
IY points to that list. What do we do:
DE points to that list. What do we do:
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. )

10
forth/z80c.fs
View File

@ -85,13 +85,13 @@ CODE 2OVER
HL POPqq, ( D )
DE POPqq, ( C )
BC POPqq, ( B )
IY POPqq, ( A )
EXX, HL POPqq, EXX, ( A )
chkPS,
IY PUSHqq, ( A )
EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B )
DE PUSHqq, ( C )
HL PUSHqq, ( D )
IY PUSHqq, ( A )
EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B )
;CODE
@ -101,11 +101,11 @@ CODE 2SWAP
HL POPqq, ( D )
DE POPqq, ( C )
BC POPqq, ( B )
IY POPqq, ( A )
EXX, HL POPqq, EXX, ( A )
chkPS,
DE PUSHqq, ( C )
HL PUSHqq, ( D )
IY PUSHqq, ( A )
EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B )
;CODE