mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-16 19:18:05 +11:00
7359717000
chkPS, used to be only for words that pushed back to PS, but I've recently removed underflow checks from next and I forgot to add missing chkPS, calls that go with this change.
17 lines
274 B
Plaintext
17 lines
274 B
Plaintext
CODE I
|
|
L 0 IX+ LDrIXY, H 1 IX+ LDrIXY,
|
|
HL PUSH,
|
|
;CODE
|
|
CODE I'
|
|
L 2 IX- LDrIXY, H 1 IX- LDrIXY,
|
|
HL PUSH,
|
|
;CODE
|
|
CODE J
|
|
L 4 IX- LDrIXY, H 3 IX- LDrIXY,
|
|
HL PUSH,
|
|
;CODE
|
|
CODE >R
|
|
HL POP, chkPS,
|
|
IX INCd, IX INCd, 0 IX+ L LDIXYr, 1 IX+ H LDIXYr,
|
|
;CODE
|