check_row:  clr ROW0
            setb ROW1
            setb ROW2
            setb ROW3
			
			mov a,p1
            anl a,#01111111b 			 ;test row zero
            cjne a,#01111111b,row_0