adcon1 =7 ; convierte los puertos del pic en digitales
trisb=%111000 ; los primeros 3 bits ban a ser entradas, los otros 3 salidas
En las siguientest lineas definimos en que puerto va a ir conectado el display.
define LCD_DREG PORTD ; definimos donde van a ir conectados los puertos de registro
define LCD_DBIT 4 ; y desde que puerto los vamos a conectar
define LCD_RSREG PORTD ; definimos en donde vamos a conectar RS
define LCD_RSBIT 1 ; este es el bit donde ira conectado RS
define LCD_EREG PORTD definimos en donde vamos a conectar E
define LCD_EBIT 2 este es el bit donde ira conectado E
CICLO: ; empezamos un ciclo
high portb.0 ; encendemos el puerto b.0
if portb.3 = 1 then lcdout $FE,1 , $FE,2 ,"1" ; le decimos al pic que si mandamos un uno logico al al puerto b.1nos aparezca en pantalla "1"
if portb.4 = 1 then lcdout $FE,1 , $FE,2 ,"4" ;le decimos al pic que si mandamos un uno logico al puerto b.4 nos aparezca en pantalla "4"
if portb.5 = 1 then lcdout $FE,1 , $FE,2 ,"7" ; le decimos al pic que si mandamos un uno logico al puerto b.5 nos aparezca en pantalla "7"
LOW portb.0 ; Apagamos el puerto.
high portb.1
if portb.3 = 1 then lcdout $FE,1 , $FE,2 ,"2"
if portb.4 = 1 then lcdout $FE,1 , $FE,2 ,"5"
if portb.5 = 1 then lcdout $FE,1 , $FE,2 ,"8"
LOW portb.1
high portb.2
if portb.3 = 1 then lcdout $FE,1 , $FE,2 ,"3"
if portb.4 = 1 then lcdout $FE,1 , $FE,2 ,"6"
if portb.5 = 1 then lcdout $FE,1 , $FE,2 ,"9"
LOW portb.2
GOTO ciclo ; regresamos al ciclo para verificar que numero se aplasto.