mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 11:18:05 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
13 lines
427 B
Plaintext
13 lines
427 B
Plaintext
( does. The word was spawned from a definition word that has a
|
|
DOES>. PFA+2 (right after the actual cell) is a link to the
|
|
slot right after that DOES>. Therefore, what we need to do
|
|
push the cell addr like a regular cell, then follow the
|
|
linkfrom the PFA, and then continue as a regular
|
|
compiledWord. )
|
|
EXDEHL,
|
|
HL INCd, HL INCd,
|
|
E (HL) LDrr,
|
|
HL INCd,
|
|
D (HL) LDrr,
|
|
( continue to compiledWord )
|