Bläddra i källkod

Strip usages of IY register

pull/102/head
Virgil Dupras 4 år sedan
förälder
incheckning
2a84a426b4
3 ändrade filer med 6 tillägg och 6 borttagningar
  1. Binär
      emul/forth/z80c.bin
  2. +1
    -1
      forth/boot.fs
  3. +5
    -5
      forth/z80c.fs

Binär
emul/forth/z80c.bin Visa fil


+ 1
- 1
forth/boot.fs Visa fil

@@ -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 Visa fil

@@ -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



Laddar…
Avbryt
Spara