collapseos/blk/297

12 lines
200 B
Plaintext

lblpushRS BSET
IX INCd, IX INCd,
0 IX+ L LDIXYr,
1 IX+ H LDIXYr,
RET,
lblpopRS BSET PC ORG @ 0x15 + ! ( popRS )
L 0 IX+ LDrIXY,
H 1 IX+ LDrIXY,
IX DECd, IX DECd,
RET,