Si, es la configuración de la placa, el include me permite simplificar el programa principal.
'****************************************************************************
'Configuración de la placa entrenadora Pic EBasic ***************************
'By COS, 01/14, 11/2013, Pic Simulator IDE v6.96_04 *************************
'Pic16F88 y LCD con linea de datos a 4 Bit sin Bit R/W **********************
'****************************************************************************
'Include "_ProcSetUpEBasic.bas"
Symbol ledv = RB0 'Etiqueta al led verde
Symbol leda = RA7 'Etiqueta al led amarillo
Symbol blcd = RB3 'Etiqueta al backlight del lcd
Symbol tecla1 = RA6 'Etiqueta a la tecla S1
Symbol tecla2 = RA5 'Etiqueta a la tecla S2
'Codigos Ascci de control del Hyperterminal
Const ff = 0x0c 'FF, Avance de pagina
Const bell = 0x07 'BELL, Señal sonora
Const sp = 0x20 'SP, Espacio
Const bksp = 0x08 'BKSP, Retroceso
Const cr = 0x0d 'CR, retorno de carro
'-----------------------------------------
Proc _setupebasic()
'Puerto del LCD ----------------------------------------------------------
Define LCD_BITS = 4 'Bus de datos del lcd, a 4bit
Define LCD_DREG = PORTA 'Bus de datos, puerto A
Define LCD_DBIT = 0 'Bus datos 4, bit menos significativos del puerto
Define LCD_RSREG = PORTB 'Bit de control RS, puerto B
Define LCD_RSBIT = 7 'RB7 como RS
Define LCD_EREG = PORTB 'Bit de control E, puerto B
Define LCD_EBIT = 6 'RB6 como E
Define LCD_COMMANDUS = 2000 'Espera despues de cada comando
Define LCD_DATAUS = 100 'Espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50 'Espera inicialización del Display
'Configuración Placa Pic EBasic -----------
AllDigital
ANSEL = 0x00 'Los pin I/O digitales
CMCON = 0x07 'Comparador a off
OSCCON = 0x7e 'Reloj interno a 8Mhz
TRISA = 0x00 'Puerto A como salidas
TRISB = 0x00 'Puerto B como salidas
TRISA.4 = 1 'Como entrada (RA4, adc)
TRISA.6 = 1 'Como entrada (RA6, tecla S1)
TRISA.5 = 1 'Como entrada (RA5, tecla S2)
TRISB.5 = 0 'Como salida(RB5,Tx RS232)
TRISB.2 = 1 'Como entrada (RB2, Rx RS232)
TRISB.4 = 1 'Como entrada (RHT03 inicio)
PORTB.3 = 1 'Luz lcd a ON (RB3)
PORTA.7 = 1 'Led amarillo a OFF
PORTB.0 = 1 'Led verde a OFF
PORTB.1 = 0 'LED RHT03 a OFF
'-----------------------------------------
'Lcdinit
End Proc