M_SEND				; 
	mov	R2,	#07H	; init bit pointer
SEEK	RL	A		; 
	dec	R2		; Update bit pointer         
	jnb	ACC.7,	ST_BIT	; If bit is '0', got it!
	sjmp	SEEK		; Go back to find start bit

ST_BIT	RL	A		; Get element
	jnb	ACC.7,	DOT	; If a 0, send dot else sent dash
	acall	TX_DASH
	djnz	R2,	ST_BIT
	ret

DOT	acall	TX_DOT
	djnz	R2,	ST_BIT
	ret