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 ) PC ORG @ 0x0f + ! ( compiledWord )
( Execute a list of atoms, which always end with EXIT. ( 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 1. Push current IP to RS
2. Set new IP to the second atom of the list 2. Set new IP to the second atom of the list
3. Execute the first 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 ) HL POPqq, ( D )
DE POPqq, ( C ) DE POPqq, ( C )
BC POPqq, ( B ) BC POPqq, ( B )
IY POPqq, ( A ) EXX, HL POPqq, EXX, ( A )
chkPS, chkPS,
IY PUSHqq, ( A ) EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B ) BC PUSHqq, ( B )
DE PUSHqq, ( C ) DE PUSHqq, ( C )
HL PUSHqq, ( D ) HL PUSHqq, ( D )
IY PUSHqq, ( A ) EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B ) BC PUSHqq, ( B )
;CODE ;CODE
@ -101,11 +101,11 @@ CODE 2SWAP
HL POPqq, ( D ) HL POPqq, ( D )
DE POPqq, ( C ) DE POPqq, ( C )
BC POPqq, ( B ) BC POPqq, ( B )
IY POPqq, ( A ) EXX, HL POPqq, EXX, ( A )
chkPS, chkPS,
DE PUSHqq, ( C ) DE PUSHqq, ( C )
HL PUSHqq, ( D ) HL PUSHqq, ( D )
IY PUSHqq, ( A ) EXX, HL PUSHqq, EXX, ( A )
BC PUSHqq, ( B ) BC PUSHqq, ( B )
;CODE ;CODE