mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 08:28:06 +11:00
15 lines
415 B
Plaintext
15 lines
415 B
Plaintext
CODE 2>R ( 0xa9 )
|
|
DE POPqq, HL POPqq,
|
|
17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,
|
|
;CODE NOP, NOP, NOP,
|
|
CODE (n) ( 0xbf, number literal )
|
|
( PF means nothing and the actual number is placed next to
|
|
the (n) 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,
|
|
;CODE
|