mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 22:00:54 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
470 B
Plaintext
17 lines
470 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,
|
|
|
|
|