数字电子钟 课设 程序.doc

ORG 0000H LJMP TO_MAIN ORG 000BH LJMP TO_T0ORG 0013HLJMP TO_INT1ORG 001BH LJMP TO_T1 ORG 0050HSB1 BIT P3.0SB2 BIT P3.1SB3 BIT P3.2ML BIT 00H DATAM EQU 40H DATAD EQU 41H DATAH EQU 42H DATAMI EQU 43HDATAS EQU 44HCLOCKH EQU 45HCLOCKMI EQU 46HSWATCHMI EQU 47HSWATCHS EQU 48HSWATCHMM EQU 49HMDATA EQU 4AHMCLK EQU 4BHDAY EQU 4CHDATASW EQU 4DHDATAGW EQU 4EHTAB: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,20HTO_MAIN:MOV DATAM,#1 MOV DATAD,#1MOV CLOCKH,#6MOV CLOCKMI,#30MOV P3,#0FFH MOV TMOD,#11H MOV TL0,#0B0HMOV TH0,#3CH MOV TL1,#0F0HMOV TH1,#0D8HCLR ML SETB TR0SETB ET0SETB ET1SETB PT0SETB PT1SETB EX1SETB EAMOV R7,#20 LOOP:JNB ML,LOOP71 LCALL TO_CLOCK LOOP71:LCALL TO_OUT SJMP LOOPTO_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 R0LOOP2:MOV R0,#DATAMI CJNE R0,#60,LOOP3 MOV R0,#0 DEC R0 INC R0LOOP3:MOV R0,#DATAH CJNE R0,#24,LOOP4 MOV R0,#0 DEC R0 INC R0LOOP4: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,#1LOOP1:RETITO_T1:MOV TL1,#0F0H MOV TH1,#0D8H INC SWATCHMM MOV R0,#SWATCHMM CJNE R0,#100,LOOP10 MOV R0,#0 DEC R0 INC R0LOOP10:MOV R0,#SWATCHS CJNE R0,#60,LOOP11 MOV R0,#0 DEC R0 INC R0LOOP11:MOV R0,#SWATCHMI CJNE R0,#60,LOOP12 MOV R0,#0LOOP12:RETI TO_INT1:JNB SB1,TO_SB1 JNB SB2,TO_SB2JNB SB3,TO_SB3 LJMP LOOP20TO_SB1:LCALL TO_K1 SJMP LOOP20TO_SB2:LCALL TO_K2 SJMP LOOP20TO_SB3:LCALL TO_K3LOOP20:LCALL DELAY SETB EX1 RETITO_K1:CLR EX1 MOV P3,#0FFH MOV A,SWATCHMI JNZ LOOP31 LCALL OUTSSS LCALL OUTSMM SJMP LOOP30LOOP31:LCALL OUTSMI LCALL OUTSSGLOOP30:JNB SB1,TO_SB11 JNB SB2,TO_SB12 JNB SB3,TO_SB13 SJMP TO_K1TO_SB12:LCALL DELAY1 JB SB2,TO_K1 SETB TR1 SJMP TO_K1TO_SB13:LCALL DELAY1 JB SB3,TO_K1JNB TR1,TO_SB133 CLR TR1 SJMP TO_K1TO_SB133:MOV SWATCHMI,#0 MOV SWATCHS,#0 MOV SWATCHMM,#0 LJMP TO_K1TO_SB11:LCALL DELAY1 JB SB1,TO_K1LOOP32:MOV P3,#0FFH LCALL OUTCH JNB SB1,TO_SB111JNB SB2,TO_SB112JNB SB3,TO_SB113SJMP LOOP32TO_SB112:LCALL DELAY1 JB SB2,LOOP32 INC CLOCKH MOV R1,#CLOCKH CJNE R1,#24,LOOP32 MOV CLOCKH,#0 SJMP LOOP32TO_SB111:LCALL DELAY1 JB SB1,LOOP32LOOP33: MOV P3,#0FFH LCALL OUTCMI JNB SB1,LOOP34 JNB SB2,TO_SB1112 JNB SB3,TO_SB1113 SJMP LOOP33TO_SB1112:LCALL DELAY1 JB SB2,LOOP33 INC CLOCKMI MOV R1,#CLOCKMI CJNE R1,#60,LOOP33 MOV CLOCKMI,#0 SJMP LOOP33 TO_SB113:LCALL DELAY1 JB SB3,TO_SB11 SETB ML SJMP LOOP34TO_SB1113:LCALL DELAY1 JB SB3,TO_SB11 CLR ML SJMP LOOP34LOOP34:RETTO_K2:CLR EX1 MOV P3,#0FFH LCALL OUTM LCALL OUTD JNB SB2,TO_SB22 SJMP TO_K2TO_SB22:LCALL DELAY1JB SB2,TO_K2LOOP40:MOV P3,#0FFH LCALL OUTCH LCALL OUTCMI JNB SB2,TO_SB222 SJMP LOOP40 TO_SB222:LCALL DELAY1 JB SB2,LOOP40LOOP41:MOV P3,#0FFH LCALL OUTS JNB SB2,LOOP42 JB SB3,LOOP42 MOV DATAS,#0 SJMP LOOP41LOOP42:LCALL DELAY1 JB SB2,LOOP41 RETTO_K3: CLR EX1 MOV P3,#0FFH LCALL OUTM JNB SB2,TO_SB32 JNB SB3,TO_SB33 SJMP TO_K3TO_SB32:LCALL DELAY1 JB SB2,TO_K3INC DATAMMOV R1,#DATAMCJNE R1,#13,TO_K3MOV DATAM,#1LJMP TO_K3TO_SB33:LCALL DELAY1 JB SB3,TO_K3LOOP50:MOV P3,#0FFH LCALL OUTD JNB SB2,TO_SB332 JNB SB3,TO_SB333 SJMP LOOP50TO_SB332:LCALL DELAY1 JB SB2,LOOP50INC DATADMOV A,DATAM MOV DPTR,#MONTH MOVC A,A+DPTR MOV DAY,A MOV A,DATAD CJNE A,DAY,LOOP50 MOV DATAD,#1LJMP LOOP50TO_SB333:LCALL DELAY1 JB SB3,LOOP50LOOP51:MOV P3,#0FFH LCALL OUTH JNB SB2,TO_SB3332 JNB SB3,TO_SB3333 SJMP LOOP51TO_SB3332:LCALL DELAY1 JB SB2,LOOP51 INC DATAH MOV R1,#DATAH CJNE R1,#24,LOOP51 MOV DATAH,#0 LJMP LOOP51TO_SB3333:LCALL DELAY1 JB SB3,LOOP51LOOP52:MOV P3,#0FFH LCALL OUTMI JNB SB2,TO_SB33332 JNB SB3,LOOP53 SJMP LOOP52TO_SB33332:LCALL DELAY1 JB SB2,LOOP52 INC DATAMI MOV R1,#DATAMI CJNE R1,#60,LOOP52 MOV DATAMI,#0 LJMP LOOP52 LOOP53:LCALL DELAY1 JB SB3,LOOP52 RETTO_CLOCK:MOV A,CLOCKH CJNE A,DATAH,LOOP60 MOV A,CLOCKMI CJNE A,DATAMI,LOOP60 CLR P0.7 JNB SB1,LOOP61 JNB SB2,LOOP61 JNB SB3,LOOP61 SJMP LOOP60LOOP61:SETB P0.7 CLR MLLOOP60:RETTO_OUT:LCALL OUTH LCALL OUTMI RETOUTM:MOV DATASW,DATAM LCALL OUTSW RETOUTD:MOV DATAGW,DATAD LCALL OUTGW RETOUTH:MOV DATASW,DATAH LCALL OUTSW RETOUTMI:MOV DATAGW,DATAMI LCALL OUTGW RETOUTS:MOV DATAGW,DATAS LCALL OUTGW RETOUTCH:MOV DATASW,CLOCKH LCALL OUTSW RETOUTCMI:MOV DATAGW,CLOCKMI LCALL OUTGW RETOUTSMI:MOV DATASW,SWATCHMI LCALL OUTSW RETOUTSSG:MOV DATAGW,SWATCHS LCALL OUTGW RETOUTSSS:MOV DATASW,SWATCHS LCALL OUTSW RETOUTSMM:MOV DATAGW,SWATCHMM LCALL OUTGW RETOUTSW:MOV A,DATASW MOV B,#10 DIV AB MOV MDATA,A MOV MCLK,#0FEH LCALL OUT_OUT MOV MDATA,B MOV MCLK,#0FBH LCALL OUT_OUT RETOUTGW:MOV A,DATAGW MOV B,#10 DIV AB MOV MDATA,A MOV MCLK,#0FDH LCALL OUT_OUT MOV MDATA,B MOV MCLK,#0F7H LCALL OUT_OUT RETOUT_OUT:MOV A,MDATA MOV DPT