mirror of https://github.com/hsoft/collapseos.git
17 lines
505 B
Plaintext
17 lines
505 B
Plaintext
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,
|
|
HL INCss,
|
|
HL INCss,
|
|
E (HL) LDrr,
|
|
HL INCss,
|
|
D (HL) LDrr,
|
|
JR, L1 BWR ( compiledWord-B302 )
|
|
|