数字电子钟 课设 程序.doc

ORG 0000H LJMP TO_MAIN ORG 000BH LJMP TO_T0 ORG 0013H LJMP TO_INT1 ORG 001BH LJMP TO_T1 ORG 0050H SB1 BIT P3.0 SB2 BIT P3.1 SB3 BIT P3.2 ML BIT 00H DATAM EQU 40H DATAD EQU 41H DATAH EQU 42H DATAMI EQU 43H DATAS EQU 44H CLOCKH EQU 45H CLOCKMI EQU 46H SWATCHMI EQU 47H SWATCHS EQU 48H SWATCHMM EQU 49H MDATA EQU 4AH MCLK EQU 4BH DAY EQU 4CH DATASW EQU 4DH DATAGW EQU 4EH TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH MONTH:DB 00H,20H,1DH,20H,1FH,20H,1FH,20H,20H,1FH,20H,1FH,20H TO_MAIN:MOV DATAM,#1 MOV DATAD,#1 MOV CLOCKH,#6 MOV CLOCKMI,#30 MOV P3,#0FFH MOV TMOD,#11H MOV TL0,#0B0H MOV TH0,#3CH MOV TL1,#0F0H MOV TH1,#0D8H CLR ML SETB TR0 SETB ET0 SETB ET1 SETB PT0 SETB PT1 SETB EX1 SETB EA MOV R7,#20 LOOP:JNB ML,LOOP71 LCALL TO_CLOCK LOOP71:LCALL TO_OUT SJMP LOOP TO_T0:MOV TL0,#0B0H MOV TH0,#3CH DJNZ R7,LOOP1 INC DATAS MOV R7,#20 MOV R0,#DATAS CJNE @R0,#60,LOOP2 MOV @R0,#0 DEC R0 INC @R0 LOOP2:MOV R0,#DATAMI CJNE @R0,#60,LOOP3 MOV @R0,#0 DEC R0 INC @R0 LOOP3:MOV R0,#DATAH CJNE @R0,#24,LOOP4 MOV @R0,#0 DEC R0 INC @R0 LOOP4:MOV A,DATAM MOV DPTR,#MONTH MOVC A,@A+DPTR MOV DAY,A MOV A,DATAD CJNE A,DAY,LOOP1 MOV DATAD,#1 INC DATAM MOV A,DATAM CJNE A,#13,LOOP1 MOV DATAM,#1 LOOP1:RETI TO_T1:MOV TL1,#0F0H MOV TH1,#0D8H INC SWATCHMM MOV R0,#SWATCHMM CJNE @R0,#100,LOOP10 MOV @R0,#0 DEC R0 INC @R0 LOOP10:MOV R0,#SWATCHS CJNE @R0,#60,LOOP11 MOV @R0,#0 DEC R0 INC @R0 LOOP11:MOV R0,#SWATCHMI CJNE @R0,#60,LOOP12 MOV @R0,#0 LOOP12:RETI TO_INT1:JNB SB1,TO_SB1 JNB SB2,TO_SB2 JNB SB3,TO_SB3 LJMP LOOP20 TO_SB1:LCALL TO_K1 SJMP LOOP20 TO_SB2:LCALL TO_K2 SJMP LOOP20 TO_SB3:LCALL TO_K3 LOOP20:LCALL DELAY SETB EX1 RETI TO_K1:CLR EX1