2020-07-05 23:12:17 -04:00
|
|
|
CODE * EXX, ( protect BC )
|
|
|
|
( DE * BC -> DE (high) and HL (low) )
|
2020-06-27 22:01:56 -04:00
|
|
|
DE POP, BC POP, chkPS,
|
2020-08-15 08:11:48 -04:00
|
|
|
HL 0 LDdi,
|
2020-06-27 22:01:56 -04:00
|
|
|
A 0x10 LDri,
|
2020-07-05 23:12:17 -04:00
|
|
|
BEGIN,
|
|
|
|
HL ADDHLd,
|
|
|
|
E RL, D RL,
|
|
|
|
IFC,
|
|
|
|
BC ADDHLd,
|
|
|
|
IFC, DE INCd, THEN,
|
|
|
|
THEN,
|
|
|
|
A DECr,
|
|
|
|
JRNZ, AGAIN,
|
2020-06-27 22:01:56 -04:00
|
|
|
HL PUSH,
|
2020-07-05 23:12:17 -04:00
|
|
|
EXX, ( unprotect BC ) ;CODE
|