collapseos/blk/306

11 lines
302 B
Plaintext
Raw Normal View History

2020-07-05 14:13:01 -04:00
CODE (n) ( number literal )
PC ORG @ 0x25 + ! ( stable ABI JP )
( 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. )
E 0 IY+ LDrIXY,
D 1 IY+ LDrIXY,
IY INCd, IY INCd,
DE PUSH,
2020-04-22 21:19:12 -04:00
;CODE