1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 18:38:05 +11:00
collapseos/blk/324
Virgil Dupras d041b91846 Optimize chkPS
Use EXX instead of the stack for HL protection and remove all
spurious uses of chkPS,

I wanted to inline chkPS in next because of its "tight loop" status,
but for reasons I don't understand, doing so breaks Collapse OS.
Later...
2020-05-22 23:12:03 -04:00

15 lines
143 B
Plaintext

CODE PC!
BC POPqq,
HL POPqq,
L OUT(C)r,
;CODE
CODE PC@
BC POPqq,
chkPS,
H 0 LDrn,
L INr(C),
HL PUSHqq,
;CODE