;*************** POV*************** ;** Powered by MODDEAR ; Programa para realizar un POV con la palabra HOLA. LIST P=16F84A INCLUDE __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC PEPE EQU 0x30 ; Declaracion de la variable PEPE PEPA EQU 0x31 ; Declaracion de la variable PEPA ; ORG 0 ; Origen del programa en la posicion cero ; bsf STATUS,RP0 ; Se entra a la configuracion de puertos poniendo a uno el bit RP0 de STATUS clrf TRISB ; Se pone a cero el registro TRISB, de esta forma se transforman en salidas clrf TRISA ; Se pone a cero el registro TRISA, de esta forma se transforman en salidas bcf STATUS,RP0 ; Se sale de la configuracion de puertos poniendo a cero el bit RP0 de STATUS ; MODDEAR MOVLW b'11111111' ; LETRA H MOVWF PORTB ; 11111111 CALL DEMORA ; 1 MOVLW b'00010000' ; 1 MOVWF PORTB ; 1 CALL DEMORA ; 11111111 MOVLW b'00010000' ; MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 MOVLW b'00010000' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 1 1 1 MOVLW b'11111111' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CALL DEMORA ; MOVLW b'01111110' ; LETRA O MOVWF PORTB ; 111111 CALL DEMORA ; 1 1 MOVLW b'10000001' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 111111 MOVLW b'10000001' ; MOVWF PORTB ; 1 1 1 CALL DEMORA ; 1 1 MOVLW b'10000001' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 MOVLW b'01111110' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 1 CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CALL DEMORA ; MOVLW b'11111111' ; LETRA L MOVWF PORTB ; 11111111 CALL DEMORA ; 1 MOVLW b'10000000' ; 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 MOVLW b'10000000' ; 1 MOVWF PORTB ; 1 CALL DEMORA ; 1 MOVLW b'10000000' ; 1 MOVWF PORTB ; 1 CALL DEMORA ; 1 1 1 1 CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CALL DEMORA ; MOVLW b'11111110' ; LETRA A MOVWF PORTB ; 1111111 CALL DEMORA ; 1 1 MOVLW b'00010001' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1111111 MOVLW b'00010001' ; MOVWF PORTB ; CALL DEMORA ; 1 1 1 MOVLW b'00010001' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 1 1 1 MOVLW b'11111110' ; 1 1 MOVWF PORTB ; 1 1 CALL DEMORA ; 1 1 CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CLRF PORTB ; -------------------------- ESPACIO ------------------------------------------- CALL DEMORA ; GOTO MODDEAR ; Vuelve a la etiqueta MODDEAR ; DEMORA MOVLW .10 MOVWF PEPA UNO MOVLW .60 MOVWF PEPE DOS DECFSZ PEPE GOTO DOS DECFSZ PEPA GOTO UNO RETURN ; END ; Fin del programa