Bueno aunque demore un poco pero aqui tengo el codigo para hacer el Scroll lateral en el panel para cualquier palabra que entre en el panel =) ahora esta en ustedes ayudarme a corregir o minimizar el codigo aunque funciona bien pero ocupa regularcito espacio
ahi les va
En este se visualiza la palabra DAVID en movimiento:
list p=16f84a
radix hex
include <p16f84a.inc>
DELAY0 EQU 0X0C
DELAY2 EQU 0X0D
CARGADOR1 EQU 0X0E
OCHO EQU 0X0F
OTRO EQU 0X10
PDel0 EQU 0X11
PDel1 EQU 0X12
PDel2 EQU 0X13
CARGADOR2 EQU 0X14
CARGADOR3 EQU 0X16
CARGADOR4 EQU 0X18
SUMADOR EQU 0X20
GUARDADOR EQU 0X22
UNO EQU 0X24
SUMADOR4 EQU 0X26
BYTE EQU 0X28
CARGADOR5 EQU 0X29
CARGADOR6 EQU 0X2A
CARGADOR7 EQU 0X2B
CARGADOR8 EQU 0X2C
CARGADOR9 EQU 0X2D
CARGADOR10 EQU 0X2E
CARGADOR11 EQU 0X2F
CARGADOR12 EQU 0X30
CARGADOR13 EQU 0X31
CARGADOR14 EQU 0X32
CARGADOR15 EQU 0X33
CARGADOR16 EQU 0X34
CARGADOR17 EQU 0X35
CARGADOR18 EQU 0X36
CARGADOR19 EQU 0X37
CARGADOR20 EQU 0X38
CARGADOR21 EQU 0X39
CARGADOR22 EQU 0X40
CARGADOR23 EQU 0X41
CARGADOR24 EQU 0X42
CARGADOR25 EQU 0X43
CARGADOR26 EQU 0X44
CARGADOR27 EQU 0X45
CARGADOR28 EQU 0X46
CARGADOR EQU 0X47
PUCHA EQU 0X48
#DEFINE BANCO1 BSF STATUS,5
#DEFINE BANCO0 BCF STATUS,5
#DEFINE PRENDE BSF PORTA,1
#DEFINE APAGA BCF PORTA,1
ORG 0X00
GOTO INICIO
ORG 0X04
ORG 0X05
INICIO
BANCO1
CLRF PORTA
CLRF PORTB
BANCO0
MOVLW 0X01
MOVWF UNO
MOVLW 0XFF
MOVWF PORTB
CLRF PORTA
MOVLW 0X80
MOVWF OCHO
MOVLW 0X00
MOVWF STATUS
COMIENZA
MOVLW B'00111111'
MOVWF CARGADOR1
MOVLW B'11010100'
MOVWF CARGADOR2
MOVLW B'10001101'
MOVWF CARGADOR3
MOVLW B'11000011'
MOVWF CARGADOR4
MOVLW B'11011111'
MOVWF CARGADOR5
MOVLW B'11010101'
MOVWF CARGADOR6
MOVLW B'01110101'
MOVWF CARGADOR7
MOVLW B'11011101'
MOVWF CARGADOR8
MOVLW B'11011111'
MOVWF CARGADOR9
MOVLW B'11010101'
MOVWF CARGADOR10
MOVLW B'01110101'
MOVWF CARGADOR11
MOVLW B'11011101'
MOVWF CARGADOR12
MOVLW B'11011111'
MOVWF CARGADOR13
MOVLW B'11010101'
MOVWF CARGADOR14
MOVLW B'00000101'
MOVWF CARGADOR15
MOVLW B'11011101'
MOVWF CARGADOR16
MOVLW B'11011111'
MOVWF CARGADOR17
MOVLW B'11010101'
MOVWF CARGADOR18
MOVLW B'01110101'
MOVWF CARGADOR19
MOVLW B'11011101'
MOVWF CARGADOR20
MOVLW B'11011111'
MOVWF CARGADOR21
MOVLW B'10110101'
MOVWF CARGADOR22
MOVLW B'01110110'
MOVWF CARGADOR23
MOVLW B'11011101'
MOVWF CARGADOR24
MOVLW B'00111111'
MOVWF CARGADOR25
MOVLW B'01110100'
MOVWF CARGADOR26
MOVLW B'01110111'
MOVWF CARGADOR27
MOVLW B'11000011'
MOVWF CARGADOR28
MOVLW d'32'
MOVWF BYTE
otae
MOVF CARGADOR1,0
CALL ENVIO
MOVF CARGADOR2,0
CALL ENVIO
MOVF CARGADOR3,0
CALL ENVIO
MOVF CARGADOR4,0
CALL ENVIO
CALL RETARDITO
CALL FILA1
MOVF CARGADOR5,0
CALL ENVIO
MOVF CARGADOR6,0
CALL ENVIO
MOVF CARGADOR7,0
CALL ENVIO
MOVF CARGADOR8,0
CALL ENVIO
CALL RETARDITO
CALL FILA2
MOVF CARGADOR9,0
CALL ENVIO
MOVF CARGADOR10,0
CALL ENVIO
MOVF CARGADOR11,0
CALL ENVIO
MOVF CARGADOR12,0
CALL ENVIO
CALL RETARDITO
CALL FILA3
MOVF CARGADOR13,0
CALL ENVIO
MOVF CARGADOR14,0
CALL ENVIO
MOVF CARGADOR15,0
CALL ENVIO
MOVF CARGADOR16,0
CALL ENVIO
CALL RETARDITO
CALL FILA4
MOVF CARGADOR17,0
CALL ENVIO
MOVF CARGADOR18,0
CALL ENVIO
MOVF CARGADOR19,0
CALL ENVIO
MOVF CARGADOR20,0
CALL ENVIO
CALL RETARDITO
CALL FILA5
MOVF CARGADOR21,0
CALL ENVIO
MOVF CARGADOR22,0
CALL ENVIO
MOVF CARGADOR23,0
CALL ENVIO
MOVF CARGADOR24,0
CALL ENVIO
CALL RETARDITO
CALL FILA6
MOVF CARGADOR25,0
CALL ENVIO
MOVF CARGADOR26,0
CALL ENVIO
MOVF CARGADOR27,0
CALL ENVIO
MOVF CARGADOR28,0
CALL ENVIO
CALL RETARDITO
CALL FILA7
;**************FILA1************
MOVLW 0X80
ANDWF CARGADOR1,0
BTFSS STATUS,2
GOTO UNO1
BCF STATUS,0
VA1
RLF CARGADOR1,1
MOVLW 0X80
ANDWF CARGADOR2,0
BTFSS STATUS,2
GOTO UNO2
BCF STATUS,0
VA2
RLF CARGADOR2,1
MOVLW 0X80
ANDWF CARGADOR3,0
BTFSS STATUS,2
GOTO UNO3
BCF STATUS,0
VA3
RLF CARGADOR3,1
MOVLW 0X80
ANDWF CARGADOR4,0
BTFSS STATUS,2
GOTO UNO4
BCF STATUS,0
VA4
RLF CARGADOR4,1
MOVF CARGADOR1,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR1,0
MOVF CARGADOR2,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR2,0
MOVF SUMADOR,0
IORWF CARGADOR2,1
MOVF CARGADOR3,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR3,0
MOVF GUARDADOR,0
IORWF CARGADOR3,1
MOVF CARGADOR4,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR4,0
MOVF SUMADOR,0
IORWF CARGADOR4,1
MOVF GUARDADOR,0
IORWF CARGADOR1,1
;*************FILA2***************
MOVLW 0X80
ANDWF CARGADOR5,0
BTFSS STATUS,2
GOTO UNO5
BCF STATUS,0
VA5
RLF CARGADOR5,1
MOVLW 0X80
ANDWF CARGADOR6,0
BTFSS STATUS,2
GOTO UNO6
BCF STATUS,0
VA6
RLF CARGADOR6,1
MOVLW 0X80
ANDWF CARGADOR7,0
BTFSS STATUS,2
GOTO UNO7
BCF STATUS,0
VA7
RLF CARGADOR7,1
MOVLW 0X80
ANDWF CARGADOR8,0
BTFSS STATUS,2
GOTO UNO8
BCF STATUS,0
VA8
RLF CARGADOR8,1
MOVF CARGADOR5,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR5,0
MOVF CARGADOR6,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR6,0
MOVF SUMADOR,0
IORWF CARGADOR6,1
MOVF CARGADOR7,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR7,0
MOVF GUARDADOR,0
IORWF CARGADOR7,1
MOVF CARGADOR8,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR8,0
MOVF SUMADOR,0
IORWF CARGADOR8,1
MOVF GUARDADOR,0
IORWF CARGADOR5,1
;************FILA3**************
MOVLW 0X80
ANDWF CARGADOR9,0
BTFSS STATUS,2
GOTO UNO9
BCF STATUS,0
VA9
RLF CARGADOR9,1
MOVLW 0X80
ANDWF CARGADOR10,0
BTFSS STATUS,2
GOTO UNO10
BCF STATUS,0
VA10
RLF CARGADOR10,1
MOVLW 0X80
ANDWF CARGADOR11,0
BTFSS STATUS,2
GOTO UNO11
BCF STATUS,0
VA11
RLF CARGADOR11,1
MOVLW 0X80
ANDWF CARGADOR12,0
BTFSS STATUS,2
GOTO UNO12
BCF STATUS,0
VA12
RLF CARGADOR12,1
MOVF CARGADOR9,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR9,0
MOVF CARGADOR10,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR10,0
MOVF SUMADOR,0
IORWF CARGADOR10,1
MOVF CARGADOR11,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR11,0
MOVF GUARDADOR,0
IORWF CARGADOR11,1
MOVF CARGADOR12,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR12,0
MOVF SUMADOR,0
IORWF CARGADOR12,1
MOVF GUARDADOR,0
IORWF CARGADOR9,1
;************FILA4**************
MOVLW 0X80
ANDWF CARGADOR13,0
BTFSS STATUS,2
GOTO UNO13
BCF STATUS,0
VA13
RLF CARGADOR13,1
MOVLW 0X80
ANDWF CARGADOR14,0
BTFSS STATUS,2
GOTO UNO14
BCF STATUS,0
VA14
RLF CARGADOR14,1
MOVLW 0X80
ANDWF CARGADOR15,0
BTFSS STATUS,2
GOTO UNO15
BCF STATUS,0
VA15
RLF CARGADOR15,1
MOVLW 0X80
ANDWF CARGADOR16,0
BTFSS STATUS,2
GOTO UNO16
BCF STATUS,0
VA16
RLF CARGADOR16,1
MOVF CARGADOR13,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR13,0
MOVF CARGADOR14,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR14,0
MOVF SUMADOR,0
IORWF CARGADOR14,1
MOVF CARGADOR15,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR15,0
MOVF GUARDADOR,0
IORWF CARGADOR15,1
MOVF CARGADOR16,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR16,0
MOVF SUMADOR,0
IORWF CARGADOR16,1
MOVF GUARDADOR,0
IORWF CARGADOR13,1
;************FILA5**************
MOVLW 0X80
ANDWF CARGADOR17,0
BTFSS STATUS,2
GOTO UNO17
BCF STATUS,0
VA17
RLF CARGADOR17,1
MOVLW 0X80
ANDWF CARGADOR18,0
BTFSS STATUS,2
GOTO UNO18
BCF STATUS,0
VA18
RLF CARGADOR18,1
MOVLW 0X80
ANDWF CARGADOR19,0
BTFSS STATUS,2
GOTO UNO19
BCF STATUS,0
VA19
RLF CARGADOR19,1
MOVLW 0X80
ANDWF CARGADOR20,0
BTFSS STATUS,2
GOTO UNO20
BCF STATUS,0
VA20
RLF CARGADOR20,1
MOVF CARGADOR17,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR17,0
MOVF CARGADOR18,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR18,0
MOVF SUMADOR,0
IORWF CARGADOR18,1
MOVF CARGADOR19,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR19,0
MOVF GUARDADOR,0
IORWF CARGADOR19,1
MOVF CARGADOR20,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR20,0
MOVF SUMADOR,0
IORWF CARGADOR20,1
MOVF GUARDADOR,0
IORWF CARGADOR17,1
;************FILA6**************
MOVLW 0X80
ANDWF CARGADOR21,0
BTFSS STATUS,2
GOTO UNO21
BCF STATUS,0
VA21
RLF CARGADOR21,1
MOVLW 0X80
ANDWF CARGADOR22,0
BTFSS STATUS,2
GOTO UNO22
BCF STATUS,0
VA22
RLF CARGADOR22,1
MOVLW 0X80
ANDWF CARGADOR23,0
BTFSS STATUS,2
GOTO UNO23
BCF STATUS,0
VA23
RLF CARGADOR23,1
MOVLW 0X80
ANDWF CARGADOR24,0
BTFSS STATUS,2
GOTO UNO24
BCF STATUS,0
VA24
RLF CARGADOR24,1
MOVF CARGADOR21,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR21,0
MOVF CARGADOR22,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR22,0
MOVF SUMADOR,0
IORWF CARGADOR22,1
MOVF CARGADOR23,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR23,0
MOVF GUARDADOR,0
IORWF CARGADOR23,1
MOVF CARGADOR24,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR24,0
MOVF SUMADOR,0
IORWF CARGADOR24,1
MOVF GUARDADOR,0
IORWF CARGADOR21,1
;************FILA7**************
MOVLW 0X80
ANDWF CARGADOR25,0
BTFSS STATUS,2
GOTO UNO25
BCF STATUS,0
VA25
RLF CARGADOR25,1
MOVLW 0X80
ANDWF CARGADOR26,0
BTFSS STATUS,2
GOTO UNO26
BCF STATUS,0
VA26
RLF CARGADOR26,1
MOVLW 0X80
ANDWF CARGADOR27,0
BTFSS STATUS,2
GOTO UNO27
BCF STATUS,0
VA27
RLF CARGADOR27,1
MOVLW 0X80
ANDWF CARGADOR28,0
BTFSS STATUS,2
GOTO UNO28
BCF STATUS,0
VA28
RLF CARGADOR28,1
MOVF CARGADOR25,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR25,0
MOVF CARGADOR26,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR26,0
MOVF SUMADOR,0
IORWF CARGADOR26,1
MOVF CARGADOR27,0
ANDWF UNO,0
MOVWF SUMADOR
BCF CARGADOR27,0
MOVF GUARDADOR,0
IORWF CARGADOR27,1
MOVF CARGADOR28,0
ANDWF UNO,0
MOVWF GUARDADOR
BCF CARGADOR28,0
MOVF SUMADOR,0
IORWF CARGADOR28,1
MOVF GUARDADOR,0
IORWF CARGADOR25,1
decfsz BYTE,1
goto otae
return
;***********************RUTINAS DE DEMORA PARA TIEMPOS VISIBLES***********************
PULSO
CALL DELAY1
PRENDE
CALL DELAY1
APAGA
CALL DELAY1
RETURN
DELAY1
MOVLW 0X08
MOVWF OTRO
LOOP
DECFSZ OTRO,1
GOTO LOOP
RETURN
SALTO
MOVLW 0X20
MOVWF OTRO
LOOP1
DECFSZ OTRO,1
GOTO LOOP1
RETURN
;********RUTINA PARA EL BARRIDO DE FILAS********
FILA1
BCF PORTB,0
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,0
RETURN
FILA2
BCF PORTB,1
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,1
RETURN
FILA3
BCF PORTB,2
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,2
RETURN
FILA4
BCF PORTB,3
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,3
RETURN
FILA5
BCF PORTB,4
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,4
RETURN
FILA6
BCF PORTB,5
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,5
RETURN
FILA7
BCF PORTB,6
CALL SALTO
CALL SALTO
CALL SALTO
BSF PORTB,6
RETURN
;***************SUB RUTINA DE ENVIO DE BITS EN GRUPO DE 8**********
ENVIO
MOVWF CARGADOR
MOVLW 0X08
MOVWF OCHO
DENUEVO
MOVLW 0X01
ANDWF CARGADOR,0
MOVWF PORTA
CALL PULSO
RRF CARGADOR,1
DECFSZ OCHO,1
GOTO DENUEVO
RETURN
;***********************************************************
RETARDITO
MOVLW 0X30
MOVWF PUCHA
AQUISITO
DECFSZ PUCHA,1
GOTO AQUISITO
RETURN
;*********** RUTINA CORREXION DE BIT DE STATUS (CARRY) PARA ROTACION DE BITS
UNO1
BSF STATUS,0
GOTO VA1
UNO2
BSF STATUS,0
GOTO VA2
UNO3
BSF STATUS,0
GOTO VA3
UNO4
BSF STATUS,0
GOTO VA4
UNO5
BSF STATUS,0
GOTO VA5
UNO6
BSF STATUS,0
GOTO VA6
UNO7
BSF STATUS,0
GOTO VA7
UNO8
BSF STATUS,0
GOTO VA8
UNO9
BSF STATUS,0
GOTO VA9
UNO10
BSF STATUS,0
GOTO VA10
UNO11
BSF STATUS,0
GOTO VA11
UNO12
BSF STATUS,0
GOTO VA12
UNO13
BSF STATUS,0
GOTO VA13
UNO14
BSF STATUS,0
GOTO VA14
UNO15
BSF STATUS,0
GOTO VA15
UNO16
BSF STATUS,0
GOTO VA16
UNO17
BSF STATUS,0
GOTO VA17
UNO18
BSF STATUS,0
GOTO VA18
UNO19
BSF STATUS,0
GOTO VA19
UNO20
BSF STATUS,0
GOTO VA20
UNO21
BSF STATUS,0
GOTO VA21
UNO22
BSF STATUS,0
GOTO VA22
UNO23
BSF STATUS,0
GOTO VA23
UNO24
BSF STATUS,0
GOTO VA24
UNO25
BSF STATUS,0
GOTO VA25
UNO26
BSF STATUS,0
GOTO VA26
UNO27
BSF STATUS,0
GOTO VA27
UNO28
BSF STATUS,0
GOTO VA28
END
Su sugerencias estana la espera