« anterior próximo »
Páginas: [1]   Ir Abajo

Autor Tema: Scroll Lateral Para panel del Leds  (Leído 3295 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado uhsspa

  • PIC10
  • *
  • Mensajes: 37
    • Una recopilación de Circuitos de internet de varias páginas:
Scroll Lateral Para panel del Leds
« en: 13 de Febrero de 2007, 17:03:45 »
Hola queria pedir ayuda con respecto a como hacer el lenguaje para un movimiento lateral osea que la palabra se desplace de derecha a izquierda. el diagrama del circuito esta en la pagina: http://www.ucontrol.com.ar/Articulos/matrizled7x32/Circuito1.gif
asi que apreciaria una idea de como hacerlo gracias =)
En línea
La humildad conlleva a la Grandeza....  http://sapiens.ya.com/yllapa   (varios circuitos de internet)

Desconectado aitopes

  • Moderadores
  • DsPIC33
  • *****
  • Mensajes: 5100
    • uControl
Re: Scroll Lateral Para panel del Leds
« Respuesta #1 en: 13 de Febrero de 2007, 17:48:58 »
Hola!

Simplemente, luego de enviar los 32 datos por el registro de desplamiento, esperas unas 3 o 4 decimas de segundo, y mandas lo mismo pero con un blanco al final. Luego, con dos blancos al final, etc. Si el texto excede el largo del cartel, en lugar de blancos envias datos nuevos que estaban "fuera" de la pantalla.

Saludos!
En línea
“Si cualquier habilidad que aprende un niño será obsoleta antes de que la use, entonces, ¿qué es lo que tiene que aprender? La respuesta es obvia:
La única habilidad competitiva a largo plazo es la habilidad para aprender“. Seymour Papert

Desconectado uhsspa

  • PIC10
  • *
  • Mensajes: 37
    • Una recopilación de Circuitos de internet de varias páginas:
Re: Scroll Lateral Para panel del Leds
« Respuesta #2 en: 13 de Febrero de 2007, 23:11:21 »
mmm mas o menos como seria un ejemplo en lenguaje assembler te lo agradeceria mucho =P
En línea
La humildad conlleva a la Grandeza....  http://sapiens.ya.com/yllapa   (varios circuitos de internet)

Desconectado manuelroin24

  • Colaborador
  • PIC24F
  • *****
  • Mensajes: 665
Re: Scroll Lateral Para panel del Leds
« Respuesta #3 en: 13 de Febrero de 2007, 23:58:15 »
te recomendaria hacerlo con una letra primero mi amigo, intentalo pon tu codigo y ahi te ayudamos
En línea
El conocimiento se consigue a base de esfuerzo...

Desconectado uhsspa

  • PIC10
  • *
  • Mensajes: 37
    • Una recopilación de Circuitos de internet de varias páginas:
Re: Scroll Lateral Para panel del Leds
« Respuesta #4 en: 14 de Febrero de 2007, 00:48:53 »
bueno si en eso tienes razon pero hay una cosa osea primero lo haria mm enviando los 32 bits de limpieza de inicio y luego enviaria un codigo poejemplo un 1, envio el clock, luego el otro dato y asi sucesivamente (suponiendo que es en una fila)
pero la cosa es como reflejarlo en codigo assembler por eso , necesito una idea de como se desarrollaria el codigo, por ejemplo si tengo que cargar las palabras en tablas bueno eso debe ser fijo
pero el juego de el envio y manejo de los datos que salen al panel, a eso me refiero.  =)

gracias por las respuestas anticipadas
En línea
La humildad conlleva a la Grandeza....  http://sapiens.ya.com/yllapa   (varios circuitos de internet)

Desconectado uhsspa

  • PIC10
  • *
  • Mensajes: 37
    • Una recopilación de Circuitos de internet de varias páginas:
Re: Scroll Lateral Para panel del Leds
« Respuesta #5 en: 16 de Febrero de 2007, 12:59:39 »
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
En línea
La humildad conlleva a la Grandeza....  http://sapiens.ya.com/yllapa   (varios circuitos de internet)
Páginas: [1]   Ir Arriba
« anterior próximo »
 

anything