mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 09:18:06 +11:00
b9fb6a6226
Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word.
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 )
|