program new_example_glcd_16f877a
' Declarations section
dim GLCD_DataPORT as byte at PORTD
dim GLCD_CS1 as sbit at RC0_bit ' Conexiones del módulo Glcd
GLCD_CS2 as sbit at RC1_bit
GLCD_RS as sbit at RC2_bit
GLCD_RW as sbit at RC3_bit
GLCD_EN as sbit at RC4_bit
GLCD_RST as sbit at RC5_bit

dim GLCD_CS1_Direction as sbit at TRISC0_bit
GLCD_CS2_Direction as sbit at TRISC1_bit
GLCD_RS_Direction as sbit at TRISC2_bit
GLCD_RW_Direction as sbit at TRISC3_bit
GLCD_EN_Direction as sbit at TRISC4_bit
GLCD_RST_Direction as sbit at TRISC5_bit ' Final de conexiones del módulo Glcd

dim t as byte     'variavle t del tipo byte


main:

INTCON = 0                ' Todas las interrupciones deshabilitadas
ADCON0=%11010001
ADCON1=%00000000
TRISA = 0x00
 PORTA =0
 t= 10
 Glcd_Init()  ' Glcd_Init_EP5
Glcd_Set_Font(@font5x7, 5, 7, 32) ' Seleccionar el tamaño de fuente 5x7
Glcd_Fill(0) ' Borrar el GLCD

Glcd_Write_Text("ING. ELECTRONICA",10,0,1)
Glcd_Write_Text("GLCD Y PANEL TACTIL",10,7,1)

 Glcd_Set_Side(1)
 Glcd_Set_X(10)
 Glcd_Set_Page(4)


 Glcd_Write_data(48+tlong)
 

end.