1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:38:06 +11:00
collapseos/blk/319
Virgil Dupras bf4ab0f1b4 z80: protect or avoid BC wherever it's used
For the IY->BC move, of course.
2020-07-05 23:12:17 -04:00

17 lines
334 B
Plaintext

CODE * EXX, ( protect BC )
( DE * BC -> DE (high) and HL (low) )
DE POP, BC POP, chkPS,
HL 0 LDdn,
A 0x10 LDri,
BEGIN,
HL ADDHLd,
E RL, D RL,
IFC,
BC ADDHLd,
IFC, DE INCd, THEN,
THEN,
A DECr,
JRNZ, AGAIN,
HL PUSH,
EXX, ( unprotect BC ) ;CODE