check_row:  clr ROW0
            setb ROW1
            setb ROW2
            setb ROW3
			
	    mov a,p1
            anl a,#00001111b 
            cjne a,#00001111b,row_0