BEGIN, ( loop )
SCF,
C RL,
RLA,
HL ADCHLd,
DE SBCHLd,
IFC,
DE ADDHLd,
C DECr,
THEN,
DJNZ, AGAIN, ( loop )
B A LDrr,
HL PUSH,
BC PUSH,
;CODE