INCLUDE "modedefs.bas"
OSCCON=$70
DEFINE OSC 8
define LCD_DREG PORTC
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
BO VAR byte


ANSEL=0
CMCON0=7
LOW PORTA.4
LCDOUT $FE,1,"LCD 1.0v"
pause 500
HIGH PORTA.2 'Back LED
LCDStart:
serin PORTC.5,N2400,BO
lcdout BO
goto LCDStart