2020-06-17 07:53:00 -04:00
|
|
|
CODE 2>R ( 0xa9 )
|
2020-06-27 22:01:56 -04:00
|
|
|
DE POP, HL POP,
|
2020-05-12 10:37:24 -04:00
|
|
|
17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,
|
2020-06-17 14:25:32 -04:00
|
|
|
;CODE NOP, NOP, NOP,
|
|
|
|
CODE (n) ( 0xbf, number literal )
|
2020-06-17 16:31:08 -04:00
|
|
|
( Literal value to push to stack is next to (n) reference
|
|
|
|
in the atom list. That is where IP is currently pointing.
|
|
|
|
Read, push, then advance IP. )
|
2020-06-17 14:25:32 -04:00
|
|
|
E 0 IY+ LDrIXY,
|
|
|
|
D 1 IY+ LDrIXY,
|
2020-06-27 22:01:56 -04:00
|
|
|
IY INCd, IY INCd,
|
|
|
|
DE PUSH,
|
2020-06-17 07:53:00 -04:00
|
|
|
;CODE
|