mirror of https://github.com/hsoft/collapseos.git
15 lines
468 B
Plaintext
15 lines
468 B
Plaintext
( See B85 for word routine impl notes )
|
|
PC ORG @ 0x20 + ! ( numberWord )
|
|
PC ORG @ 0x24 + ! ( addrWord )
|
|
( This is not a word, but a number literal. This works a bit
|
|
differently than others: PF means nothing and the actual
|
|
number is placed next to the numberWord reference in the
|
|
compiled word list. What we need to do to fetch that number
|
|
is to play with the IP. )
|
|
E 0 IY+ LDrIXY,
|
|
D 1 IY+ LDrIXY,
|
|
IY INCss,
|
|
IY INCss,
|
|
DE PUSHqq,
|
|
JPNEXT,
|