ROA EQU 7FH ;es Reloj o es Alarma

USR EQU 50H ;Unidades de Segundos del Reloj

DSR EQU 51H ;Decenas de Segundos del Reloj

UMR EQU 52H ;Unidades de Minutos del  Reloj

DMR EQU 53H ;Decenas de Minutos del  Reloj

UHR EQU 54H ;Unidades de Horas del Reloj

DHR EQU 55H ;Decenas de Horas del Reloj

AIR EQU 56H ;Alarma es Igual al Reloj (0 <= AIR <= 4)

;Registros para guardar valores de alarma

USA EQU 57H ;Unidades de Segundos del Alarma

DSA EQU 58H ;Decenas de Segundos del Alarma

UMA EQU 59H ;Unidades de Minutos del  Alarma

DMA EQU 5AH ;Decenas de Minutos del  Alarma

UHA EQU 5BH ;Unidades de Horas del Alarma

DHA EQU 5CH ;Decenas de Horas del Alarma

;Para multiplexor se usa el valor 20h de la memoria

ORG 0000H

SJMP inicio

ORG 0003H ;VECTOR DE INTERRUPCIÓN EXTERNA 0

CPL ROA ;Cambio entre alarma y reloj

CPL P0.0

RETI

ORG 000BH ;Vector de interrupción Temp0

JMP INTT0

ORG 0013H ;Vector de interrupción Ext1

SETB INT1 ;Apaga la interrupción uno para evitar múltiples cambios de minutos

JMP INTEX1

ORG 0040H

INICIO: MOV TMOD, #00100010 B ;Inicia los dos temporizadores en modo 2, disparados por software y como temporizadores

MOV TH0, #-250 ;Recarga del temporizador de inicio (250us)

;Inicialización de registros y variables

SETB ROA ;INICIA EN MODO RELOJ

SETB TR0 ;ACTIVA EL TEMPORIZADOR 0

SETB IT1 ;INT EXTERNA 1

SETB IT0 ;INT EXTERNA 0

CLR A

MOV P1, #0FEH ;MANDA AL PUERTO 1 (MULTIPLEXOR) UN 11111110b

SETB P2.7 ;MANDA 5V AL BUZZER

;Inicia el reloj en 12:00:00

MOV R2, #5

MOV R3, #5

MOV R4, #6

MOV R5, #5

MOV R6, #23

NOP

MOV A, AIR

CLR A

MOV AIR, A

;Inicia el reloj en 12:00:00

MOV USR, #0

MOV DSR, #0

MOV UMR, #6

MOV DMR, #5

MOV UHR, #3

MOV DHR, #2

;TABLA DECODIFIDORA

; gfedcba

MOV 60H,#1000000B ;0

MOV 61H,#1111001B ;1

MOV 62H,#0100100B ;2

MOV 63H,#0110000B ;3

MOV 64H,#0011001B ;4

MOV 65H,#0010010B ;5

MOV 66H,#0000010B ;6

MOV 67H,#1111000B ;7

MOV 68H,#0000000B ;8

MOV 69H,#0011000B ;9

;Inicia la alarma en 18:00:00

MOV USA, #0

MOV DSA, #0

MOV UMA, #9

MOV DMA, #5

MOV UHA, #9

MOV DHA, #1

SETB P2.5

MOV 20h, #0FEH

MOV IP, #05H ;Da prioridad a las interrupciones externas

MOV IE, #87H ;Habilita interrupciones (EA, EX1, ET0, EX0)

JMP $

;Inicia el conteo

INTT0: INC R1

CJNE R1,#8,REGRESAR ;Mientras R1 != 8 regresa

ACALL MULT ;Si no, Manda a llamar al multiplexor

INC R2 ;Incrementa los segundos

ACALL COMP

MOV A, R1 ;MUEVE R1 AL ACUMULADOR *

CLR A ;Pone A n ceros

MOV R1, A ;Mueve A a R1

CJNE R2,#23,REGRESAR

INC R3

MOV R2, #1

CJNE R3,#20,REGRESAR ;CONTADOR DE 1 SEGUNDO

MOV AIR, #0 ;Reinicializa la variable del contador

ACALL DISP ;Subrutina para obtener el valor de cada display

ACALL ALARMA ;Subrutina para activar la alarma

MOV R3, #0

INC R4

CJNE R4,#60,REGRESAR ;CONTADOR DE 60 SEG O 1 MIN

MOV R4, #0

INC R5

SETB P0.1 ;Después de un minuto apaga por completo la alarma

; ACALL INTEX1

CJNE R5,#60,REGRESAR ;CONTADOR DE 60 MIN O 1 HORA

MOV R5, #0

INC R6

CJNE R6,#25,REGRESAR

MOV R6, #1

REGRESAR: RETI

;Subrutina para el multiplexor

MULT: MOV A, 20h

RL A ;Mueve el bit en 0 a la derecha

MOV 20h, A

MOV P1, 20h ;Envia el valor de 20h al puerto 1

JNB 00h, MUS ;Muestra Unidades de Segundos

JNB 01h, MDS ;Muestra Decenas de Segundos

JNB 02h, MUM ;Muestra Unidades de Minutos

JNB 03h, MSM ;Muestra Decenas de Minutos

JNB 04h, MUH ;Muestra Unidades de Horas

JNB 05h, MDH ;Muestra Decenas de Horas

EPRT: RET

;ROA = 0 -> alarma, ROA =1  -> reloj

MUS: JNB ROA, MSUA ;Mostrar Segundos Unidades Alarma

MOV A, USR

JMP PRINT

MSUA: MOV A, USA

JMP PRINT

MDS: JNB ROA, MSDA ;Mostrar Segundos Decenas Alarma

MOV A, DSR

JMP PRINT

MSDA: MOV A, DSA

JMP PRINT

MUM: JNB ROA, MMUA ;Mostrar Minutos Unidades Alarma

MOV A, UMR

JMP PRINT

MMUA: MOV A, UMA

JMP PRINT

MSM: JNB ROA, MMDA ;Mostrar Minutos Decenas Alarma

MOV A, DMR

JMP PRINT

MMDA: MOV A, DMA

JMP PRINT

MUH: JNB ROA, MHUA ;Mostrar Horas Unidades Alarma

MOV A, UHR

JMP PRINT

MHUA: MOV A, UHA

JMP PRINT

MDH: JNB ROA, MHDA ;Mostrar Horas Decenas Alarma

MOV A, DHR

JMP PRINT

MHDA: MOV A, DHA

JMP PRINT

;Suma al valor del acomulador (Un número del uno al nueve) 60H, dirección

;donde se encuentran los segmentos de cada número

PRINT: ADD A, #60H ;Inicio de Tabla

MOV R0, A ;Mueve ese valor a R0

MOV P2, @R0 ;Mueve el contenido de R0 a P2

JMP EPRT

DISP: MOV A, R4 ;Mueve los segundos al acomulador

MOV B, #10

DIV AB ;Divide A entre B, como B es 10 convierte el numero de dos dígitos en

; un cociente de uno y un residuo de uno

MOV USR, B ;B es la parte Unidades de los segundos (Residuo)

MOV DSR, A ;A es la parte alta de los segundos (Cociente)

MOV A, R5 ;Mueve los minutos al acomulador

MOV B, #10

DIV AB ;Divide A entre B, como B es 10 convierte el número de dos dígitos en

; un cociente de uno y un residuo de uno

MOV UMR, B ;B es la parte baja de los minutos (Residuo)

MOV DMR, A ;A es la parte alta de los minutos (Cociente)

MOV A, R6 ;Mueve las horas al acomulador

MOV B, #10

DIV AB ;Divide A entre B, como B es 10 convierte el número de dos dígitos en

; un cociente de uno y un residuo de uno

MOV UHR, B ;B es la parte baja de las horas (Residuo)

MOV DHR, A ;A es la parte alta de las horas (Cociente)

RET

ALARMA: MOV A, UMA

CJNE A, UMR, UMAR ;Sí minutos es igual en alarma y reloj incrementa AIR

INC AIR

UMAR: MOV A, DMA

CJNE A, DMR, DMAR ;Sí minutos es igual en alarma y reloj incrementa AIR

INC AIR

DMAR: MOV A, UHA

CJNE A, UHR, UHAR ;Si horas es igual en alarma y reloj incrementa AIR

INC AIR

UHAR: MOV A, DHA

CJNE A, DHR, DHAR ;Si horas es igual en alarma y reloj incrementa AIR

INC AIR

DHAR: MOV A, AIR

CJNE A, #4, REG ;Si todas las comparaciones fueron correctas, AIR debe valer 4

CPL P0.1 ;Enciende el buzzer

;MOV A, DHR

;CJNE A, #2, REG

;MOV A, UHR

;CJNE A, #3, REG

;MOV A, DMR

;CJNE A, #5, REG

;MOV A, UMR

;CJNE A, #9, REG

;MOV A, DSR

;CJNE A, #5, REG

;MOV A, USR

;CJNE A, #9, CERO

;CALL INTEX1

REG: RET

INTEX1: JNB ROA, INTEX1A ;Si ROA es cero, cambia a una subrutina para aumentar la alarma

MOV A, R5

CJNE A, #59, INC0 ;Si los minutos NO son 59, llama a una subrutina para aumentarlos en 1

MOV R5, #0 ;Si son 59, los cambia a 0, e intenta aumentar horas

MOV A, R6

CJNE A, #23, INC1 ;Si las horas NO son 23, llama a una subrutina para aumentarlos en 1

  ;CJNE A, #24, INC1

MOV R6, #0 ;Si son 23 los vuelve 0

JMP REGR

INC0: ADD A, #1 ;Aumenta una minuto

;ADD A, #1

MOV R5, A

JMP REGR

INC1: MOV A, R6

ADD A, #1 ;Aumenta una hora

MOV R6, A

JMP REGR

INTEX1A: MOV A, UMA

CJNE A, #9, INC4 ;se sigue con el siguiente valor

MOV UMA, #0

MOV A, DMA

CJNE A, #5, INC5

MOV DMA, #0

NOP

MOV A, UHA

CJNE A, #9, INC6

MOV UHA, #0

MOV A, DHA

CJNE A, #2, INC7

MOV A, UHA

INC4: ADD A, #1 ;Incrementa UNIDADESvde los minutos

MOV UMA, A

JMP REGR

INC5: ADD A, #1 ;Incrementa DECENAS de los minutos

MOV DMA, A

JMP REGR

INC6: MOV A, DHA

CJNE A, #2, INC8 ;Cambio para las 24 hrs

MOV A, UHA

CJNE A, #3, INC8

MOV DHA, #0

MOV UHA, #0

JMP REGR

INC7: MOV A, DHA ;Incrementa las unidades de horas

ADD A, #1

MOV DHA, A

JMP REGR

INC8: MOV A, UHA ;Incrementa las decenas de horas

ADD A, #1

MOV UHA, A

REGR: RETI

CERO:

MOV DHR,#2

MOV UHR,#3

MOV DMR,#5

MOV UMR,#9

MOV DSR,#5

MOV USR,#9

MOV R6, #0

RETI

COMP: CJNE R6,#24,NADA

JMP CERO

RETI

NADA: RETI

END