mirror of https://github.com/hsoft/collapseos.git
14 lines
434 B
Plaintext
14 lines
434 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 INCss,
|
|
HL INCss,
|
|
E (HL) LDrr,
|
|
HL INCss,
|
|
D (HL) LDrr,
|
|
( continue to compiledWord )
|