'****************************************************************************
'Configuración de la placa entrenadora Pic EBasic ***************************
'By COS, 11/2013, Pic Simulator IDE v6.94 ***********************************
'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
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