; Module MDOUBL24
; Steven M. Cohen
; March 10, 1987
;
 	PUBLIC	DOUBLE24
;	Doubles the 24 bit buffer pointed to by HL
;       Registers affected :NONE
;       Side effects: NONE
;                     
DOUBLE24:
        PUSH	AF		;preserve flags 
	OR	A
	RL	(HL)		;RL= mult by 2
	INC	HL		
	RL	(HL)	
	INC	HL
	RL	(HL)
	DEC	HL
	DEC	HL
	POP	AF		;restore flags

	RET