mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-06 23:38:45 +10: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.
12 lines
217 B
Plaintext
12 lines
217 B
Plaintext
CODE PC! EXX, ( protect BC )
|
|
BC POP, HL POP, chkPS,
|
|
L OUT(C)r,
|
|
EXX, ( unprotect BC ) ;CODE
|
|
|
|
CODE PC@ EXX, ( protect BC )
|
|
BC POP, chkPS,
|
|
H 0 LDri,
|
|
L INr(C),
|
|
HL PUSH,
|
|
EXX, ( unprotect BC ) ;CODE
|