;pov con pic 16f628a
;por d4y-all m2
;Letrero Giratorio con mensaje "HOLA"

__CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _XT_OSC & _DATA_CP_OFF & _LVP_OFF	; Configuración para el programador

LIST p=16F628A	;Tipo de Pic
#INCLUDE<P16F628A.INC>


PROS1	EQU 0X20
PROS2	EQU 0X21

	ORG	0X00
	GOTO	INICIO	

	bsf	STATUS,RP0
	clrf	PORTB
	clrf	PORTA
	bsf	STATUS,RP0
	
INICIO:
	MOVLW	b'11111111'	;letra H
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'11111111'
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB	;Espacio
	CLRF	PORTB	;Espacoo
	CALL	DEMORA
	MOVLW	b'01111110'	;Letra O
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'01111110'
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB	;Espacio
	CLRF	PORTB	;Espacio
	CALL	DEMORA
	MOVLW	b'11111111'	;Letra L
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'10000000'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00000000'
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB	;ESpacio
	CLRF	PORTB	;Espacio
	CALL	DEMORA
	MOVLW	b'11111110'	;Letra A
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'00010001'
	MOVWF	PORTB
	CALL	DEMORA
	MOVLW	b'11111110'
	MOVWF	PORTB
	CALL	DEMORA
	CLRF	PORTB	;Espacio
	CLRF	PORTB	;ESpacio
	CALL	DEMORA
	GOTO	INICIO	;Vuelve a empezar
	
DEMORA
	MOVLW	.10
	MOVWF	PROS2
UNO	MOVLW	.60
	MOVWF	PROS1
DOS	DECFSZ	PROS1
	GOTO	DOS
	DECFSZ	PROS2
	GOTO	UNO
	RETURN
	
	END	;Fin del programa