Browse Source

Strip usages of IY register

pull/102/head
Virgil Dupras 4 years ago
parent
commit
2a84a426b4
3 changed files with 6 additions and 6 deletions
  1. BIN
      emul/forth/z80c.bin
  2. +1
    -1
      forth/boot.fs
  3. +5
    -5
      forth/z80c.fs

BIN
emul/forth/z80c.bin View File


+ 1
- 1
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. )


+ 5
- 5
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



Loading…
Cancel
Save