2020-06-15 00:12:56 +10:00
|
|
|
PC ORG @ 0x2c + ! ( doesWord )
|
|
|
|
|
( 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. )
|
|
|
|
|
DE PUSHqq, ( like a regular cell )
|
|
|
|
|
EXDEHL,
|
2020-04-23 11:19:12 +10:00
|
|
|
HL INCss,
|
2020-06-15 00:12:56 +10:00
|
|
|
HL INCss,
|
|
|
|
|
E (HL) LDrr,
|
|
|
|
|
HL INCss,
|
|
|
|
|
D (HL) LDrr,
|
|
|
|
|
( continue to compiledWord )
|
2020-06-12 08:12:01 +10:00
|
|
|
|
