recv:
	mov r7,#08

back2:
	setb sda
	setb scl
	nop
	nop
	nop
	nop

	mov c,sda
	rlc a
	clr scl
	nop
	nop
	nop
	nop
	djnz r7,back2
	setb sda
	clr scl
	nop
	nop
	nop
	nop
	setb scl
       	clr sda
	nop
	nop
	nop
	nop
	nop
	clr scl
	nop
	nop
	nop
	nop
	mov @R0,a
	inc R0
return:	ret