WRITE_CMD:
	PUSH	B
	MOV	B,A
	ANL	A,#00001111B		;MASK OFF UPPER 4 BITS
	XCH	A,B			;B IS READY
	ANL	A,#11110000B		;MASK OFF LOWER 4 BITS
	SWAP	A			;SWAP UPPER AND LOWER NIBBLES
      	ACALL	SNDLCD			;A IS READY - SEND IT
	MOV	A,B
	ACALL	SNDLCD			;SEND B
	POP	B
        RET
SNDLCD: 
	MOV	P1,A			;SEND IT OUT
	setb	en
	PUSH	01
	MOV	R1,#255			;Delay
	DJNZ	R1,$
	POP	01
	clr	en
	RET