Crear Caracter CGRAM - PIC16F84, librerias

[xDeLiRiOx]

Buenas con todos, como la mayoría de los que empieza con PICs he usado este libro: Microcontrolador PIC16F84. Desarrollo de proyectos
Tiene librerias como LCD_4BIT.INC o ejemplos como LCD_01.ASM que incluso están subidas en esta plataforma, entonces imagino que alguno de uds debe tener el archivo GRAFICO_XX.ASM en el que se muestra el código para crear un carácter en el CGRAM, la verdad es que entiendo a medias lo que quieren explicar con respecto a este tema y son muy pocas las publicaciones en assembler.
Espero alguien pueda ayudarme, gracias de antemano.
 

16f84 libro.JPG
(62.59 kB, 711x578 - visto 852 veces)

[PalitroqueZ]

hace unos eones  hice un programilla para generar caracteres cgram en displays alfanumericos

https://www.todopic.com.ar/foros/index.php?topic=14552.msg88689#msg88689

[xDeLiRiOx]

Gracias PalitroqueZ, acabo de ver tu código y me pareció interesante yo recién estoy aprendiendo pero logre encontrar lo que estaba buscando, el código es el siguiente:
;************************************** Grafico_01.asm **************************************
;
;   ===================================================================
;     Del libro "MICROCONTROLADOR PIC16F84. DESARROLLO DE PROYECTOS"
;     E. Palacios, F. Remiro y L. López.
;      Editorial Ra-Ma.  www.ra-ma.es
;   ===================================================================
;
; El módulo LCD visualiza el caracter de una bateria creado en el CGRAM.
;
; ZONA DE DATOS **********************************************************************

   __CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
   LIST      P=16F84A
   INCLUDE  <P16F84A.INC>

   CBLOCK 0x0C
   Contador
   ENDC

; ZONA DE CÓDIGOS ********************************************************************

   ORG 0
Inicio
   call LCD_Inicializa   ;prepara la pantalla LCD
   call CGRAM_EscribeDatos
Principal
   call LCD_Borra      ;limpia pantalla LCD
   clrw            ;simbolo en posicion 0 de CGRAM
   call LCD_Caracter   ;lo visualiza
   sleep            ;pasa a bajo consumo
   goto Principal

;subrutina LCD_Escribe CGRAM
;escribe en la CGRAM simbolo de pila descargada
;
CGRAM_NUM_IMAGENES EQU 1   ;se grabara un solo simbolo
;
CGRAM_EscribeDatos
   movlw   b'01000000'      ;indica que va a escribir en la
   call   LCD_EnviaComando;direccion 0 de la CGRAM
   clrf   Contador
CGRAM_EscribeOtro
   movf   Contador,W
   call    CGRAM_Escribe
   call    LCD_Caracter
   incf   Contador,F
   movlw   CGRAM_NUM_IMAGENES*8;cada imag, ocupa 8 posiciones de CGRAM
   subwf   Contador,W
   btfss   STATUS,C
   goto    CGRAM_EscribeOtro
   call   LCD_Borra
   return

CGRAM_Escribe
   addwf   PCL,F
         ;bateria al 0%, byte cero de la CGRAM
                  ; ----------
   retlw   b'00001110'   ; |    xxx |
   retlw   b'00011011'   ; |   xx xx|
   retlw   b'00010001'   ; |   x   x|
   retlw   b'00010001'   ; |   x   x|
   retlw   b'00010001'   ; |   x   x|
   retlw   b'00010001'   ; |   x   x|
   retlw   b'00011111'   ; |   xxxxx|
   ;retlw   b'00011111'   ; |   xxxxx|
                  ; ----------
   INCLUDE   <RETARDOS.INC>
   INCLUDE   <LCD_4BIT.INC>
END
   

   ;sleep            ; Entra en modo de bajo consumo.

   INCLUDE  <LCD_4BIT.INC>   ; Subrutinas de control del módulo LCD.
   INCLUDE  <RETARDOS.INC>   ; Subrutinas de retardo.
   END            ; Fin del programa.

;   ===================================================================
;     Del libro "MICROCONTROLADOR PIC16F84. DESARROLLO DE PROYECTOS"
;     E. Palacios, F. Remiro y L. López.
;      Editorial Ra-Ma.  www.ra-ma.es
;   ===================================================================
El circuito es el siguiente:
 

grafico01.JPG
(88.13 kB, 761x472 - visto 639 veces)

Para que entiendan el código pueden buscar el video en youtube: CGRAM CREANDO CARACTERES PERSONALIZADOS CAPT 12 PARTE 27
Yo por ejemplo cree 8 caracteres y los puse uno a continuacion de otro (viendo la parte 28) y me quedo como un gif, algo asi:
 

captura7.gif
(127.02 kB, 300x126 - visto 634 veces)

UNSAAC - ING. ELECTRONICA - ALVARO ESCALANTE