movlw 	b'01001111'	;O
movwf 	lcddata
call 		wrdata
nop

wrdata

    	
bsf		PORTA, 2
bcf		PORTA, 1
movf 	lcddata,w
movwf	PORTB
bsf		PORTA, 0
nop
bcf		PORTA, 0
return