Ensamblador - Reloj formato 24h

LIST P=16F887

	#INCLUDE <P16F887.INC>

	__CONFIG _CONFIG1, 20D4H

	__CONFIG _CONFIG2, 3FFFH

DIG1	EQU	0X20

DIG2	EQU	0X21

DIG3	EQU	0X22

DIG4	EQU	0X23

AUX_W	EQU	0X24

AUX_STATUS	EQU	0X25

AUX1	EQU	0X26

CONTADOR	EQU	0X27

ESTADO_LED	EQU	0X28

CONTADOR_ISR	EQU	0X29

RA			EQU	0X2A

RB			EQU 0X2B

	ORG	0X00

	GOTO	INICIO

	ORG	0X04

	GOTO	SERVICIO

	ORG	0X05

INICIO

	BSF	STATUS,RP0		;NOS CAMBIAMOS AL BANCO 1

	MOVLW   B'00000000' ;CONFIGURAMOS EL PUERTO A COMO SALIDA

	MOVWF 	TRISC

	MOVLW 	B'00000000'	;CONFIGURAMOS EL PUERTO D COMO SALIDA

	MOVWF 	TRISD

	MOVLW	B'00000000' ;CONFIGURAMOS EL TIMER COMO TEMPORIZADOR Y PREESCALER DE 256

	MOVWF	OPTION_REG

	BSF		STATUS,RP1	;NOS CAMBIAMOS AL BANCO 3

	CLRF	ANSEL 		;DESACTIVAMOS LOS CANALES ANALOGICOS

	CLRF	ANSELH

	BCF		STATUS,RP1

	BCF 	STATUS, RP0

	MOVLW	B'00100000'	;HABILITAMOS LA INTERRUPCION POR TIMER0

	MOVWF	INTCON

	MOVLW	.61			;PRECARGAMOS EL TIMER0 PARA QUE CUENTE LO MAS CERCANO A 50000 (ES DECIR 50MS)

	MOVWF	TMR0

	CLRF	PORTA

	CLRF	PORTD

	COMF	PORTD

	CLRF 	CONTADOR	;INICIALIZAMOS LAS VARIABLES

	CLRF	ESTADO_LED

	CLRF	DIG1

	CLRF	DIG2

	CLRF	DIG3

	CLRF	DIG4

	BSF		INTCON,GIE	;HABILITAMOS EL GLOBAL DE INTERRUPCIONES

	GOTO	PRINCIPAL

TABLA

	ADDWF 	PCL,F

	RETLW	B'01000000';0

	RETLW	B'01111001';1

	RETLW	B'00100100';2

	RETLW	B'00110000';3

	RETLW	B'00011001';4

	RETLW	B'00010010';5

	RETLW	B'00000010';6

	RETLW	B'01111000';7

	RETLW	B'00000000';8

	RETLW	B'00011000';9

SERVICIO

INICIO_ISR

	BCF	INTCON,GIE	;DESHABILITAMOS EL HABILITADOR GLOBAL

	MOVWF	AUX_W	;RESPALDAMOS W

	SWAPF	STATUS,0	;RESPALDAMOS STATUS

	MOVWF	AUX_STATUS

ISR

	INCF	CONTADOR_ISR,F

	MOVLW	.20

	XORWF	CONTADOR_ISR,W

	BTFSS	STATUS,Z

	GOTO	SALIR_ISR

	CLRF	CONTADOR_ISR

	INCF	DIG1,F

	MOVLW	.10

	XORWF	DIG1,W

	BTFSS	STATUS,Z

	GOTO	SALIR_ISR

	CLRF	DIG1

	INCF	DIG2,F

	MOVLW	.6

	XORWF	DIG2,W

	BTFSS	STATUS,Z

	GOTO	SALIR_ISR

	CLRF	DIG2

	INCF	DIG3,F

	CALL	MAXIMO

	MOVLW	.10

	XORWF	DIG3,W

	BTFSS	STATUS,Z

	GOTO	SALIR_ISR

	CLRF	DIG3

	INCF	DIG4,F

	MOVLW	.2

	XORWF	DIG4,W

	BTFSS	STATUS,Z

	GOTO	SALIR_ISR

	CLRF	DIG4

COMPARAR

	MOVLW	.4

	XORWF	DIG3,W

	BTFSS	STATUS,Z

	CLRF	DIG4

	RETURN

MAXIMO

	MOVLW	.2

	SUBWF	DIG4,W

	BTFSS	STATUS,C

	CALL 	COMPARAR

	RETURN

SALIR_ISR

	BCF		INTCON,T0IF		;LIMPIAMOS LA BANDERA DE INTERRUPCION DE TMR0

	MOVLW	.61				;PRECARGAMOS DE NUEVO EL TIMER

	MOVWF	TMR0

	BSF		INTCON,GIE		;HABILITAMOS DE NUEVO EL GLOBAL

	SWAPF 	AUX_STATUS,0	;DEVOLVEMOS EL RESPALDO DE STATUS

	MOVWF	STATUS

	SWAPF 	AUX_W,F			;DEVOLVEMOS EL RESPALDO DE W

	SWAPF	AUX_W,W

	RETFIE

PRINCIPAL

	CALL	MULTIPLEXACION	;ESTA RUTINA TARDA 20MS

	INCF	CONTADOR,F		;EL CONTADOR ES PARA HACER UN RETARDO PARA EL LED

	MOVLW	.50

	XORWF	CONTADOR,W

	BTFSS	STATUS,Z

	GOTO	PRINCIPAL

	BTFSC	ESTADO_LED,0

	GOTO	APAGAR

	GOTO	ENCENDER

APAGAR

	BCF	PORTB,7

	BCF	ESTADO_LED,0

	GOTO	PRINCIPAL

ENCENDER

	BSF	PORTB,7

	BSF	ESTADO_LED,0

	GOTO	PRINCIPAL

MULTIPLEXACION

	CLRF	PORTA ;desactivamos todos los display

	MOVLW	b'01111111'  ;apagamos todos los segmentos

	IORWF	PORTD,1

	BSF 	PORTC,3		 ;activamos el PRIMER DISPLAY

	MOVF	DIG1,0

	CALL	TABLA		 ;convertimos el dato a mostrar en 7seg

	ANDWF	PORTD,1

	CALL	RETARDO		 ;hacemos una pausa de unos 5ms

	BCF		PORTC,3		 ;desactivamos el PRIMER display

	MOVLW	b'01111111'	;SE REPITE LO MISMO PARA EL RESTO DE LOS DISPLAY

	IORWF	PORTD,1

	BSF 	PORTC,2		;activamos el SEGUNDO DISPLAY

	MOVF	DIG2,0

	CALL 	TABLA

 	ANDWF	PORTD,1

	CALL	RETARDO

	BCF		PORTC,2		;DESACTIVAMOS el SEGUNDO DISPLAY

	MOVLW	b'01111111'

	IORWF	PORTD,1

	BSF 	PORTC,1		;activamos el TERCERO DISPLAY

	MOVF	DIG3,0

	CALL	TABLA

	ANDWF	PORTD,1

	CALL	RETARDO

	BCF 	PORTC,1		;DESactivamos el TERCERO DISPLAY

	MOVLW	b'01111111'

	IORWF	PORTD,1

	BSF 	PORTC,0		;activamos el CUARTO DISPLAY

	MOVF	DIG4,0

	CALL	TABLA

	ANDWF	PORTD,1

	CALL	RETARDO

	BCF 	PORTC,0		;DESactivamos el CUARTO DISPLAY

	RETURN

RETARDO

	MOVLW	.8

	MOVWF	RA

LOOP

	MOVLW	.249

	MOVWF	RB

	DECFSZ	RB,1

	GOTO	$-1

	DECFSZ	RA,1

	GOTO	LOOP

	RETURN

	END