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
