1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 02:20:58 +11:00
collapseos/blk/286

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