DAD	H		; HL:=HL+HL;
	JNC	DONE		; goto DONE if carry is zero;
	INX	H		; HL:=HL+1;
DONE	EQU	$		; first line of routine DONE;