1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 22:20:55 +11:00
collapseos/blk/287

17 lines
470 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( 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,