JIAM:INC MIAO ;加秒 MOV A,MIAO CJNE A,#60,K2M MOV MIAO,#0
K2M:ACALL CONV ACALL DISPLAY JNB K2,K2M JMP TMM
JIANM:DEC MIAO ;减秒 MOV A,MIAO CJNE A,#255,K3M MOV MIAO,#59 K3M:ACALL CONV ACALL DISPLAY JNB K3,K3M JMP TMM
;------------------------------------------------------------- TF:ACALL DISPLAY ;设置分钟 JNB K1,TF
TFF:ACALL DISPLAYF JNB K1,TM JNB K2,JIAF JNB K3,JIANF JNB K5,QUE JMP TFF
JIAF:INC FEN ;加分钟 MOV A,FEN CJNE A,#60,K2F MOV FEN,#0
K2F:ACALL CONV ACALL DISPLAY JNB K2,K2F JMP TFF
JIANF:DEC FEN ;减分钟 MOV A,FEN
CJNE A,#255,K3F MOV FEN,#59
K3F:ACALL CONV
35
ACALL DISPLAY JNB K3,K3F JMP TFF
;------------------------------------------------------------ DISPLAYS: ;时闪子程序 MOV R3,#20
DISS:MOV R1,#BUF+2 MOV A,#04H MOV R2,#6 ACALL DP1 DJNZ R3,DISS MOV R3,#20
DIS2:MOV R1,#BUF MOV A,#01H MOV R2,#8 ACALL DP1 DJNZ R3,DIS2 RET
DISPLAYF: MOV R3,#20
DISF:MOV R1,#BUF+5 MOV A,#20H MOV R2,#6 ACALL DP1 DJNZ R3,DISF MOV R3,#20 ACALL DIS2 RET
DISPLAYM: MOV R3,#20
DISM:MOV R1,#BUF MOV A,#01H MOV R2,#6 ACALL DP1 DJNZ R3,DISM MOV R3,#20 ACALL DIS2 RET
;分闪子程序 ;秒闪子程序 36
;------------------------------------------------- SETNAO: ;设置闹钟时间 TTN:ACALL CONVNAO
ACALL DISPLAY ;闹设置小时 TSN:JNB K4,TTN
TSSN:ACALL DISPLAYS JNB K4,TFN JNB K2,JIASN JNB K3,JIANSN JNB K5,QUEN SJMP TSSN JIASN:INC HH ;闹加时子程序 MOV A,HH
CJNE A,#24,K2SN MOV HH,#0
K2SN:ACALL CONVNAO ACALL DISPLAY JNB K2,K2SN SJMP TSSN
JIANSN:DEC HH ;闹减时子程序MOV A,HH
CJNE A,#255,K3SN MOV HH,#23
K3SN:ACALL CONVNAO ACALL DISPLAY JNB K3,K3SN SJMP TSSN
QUEN:ACALL BZ SETB TR0 LJMP LOOP
;------------------------------------------------ TMN:ACALL CONVNAO ACALL DISPLAY ;闹设置秒 JNB K4,TMN
TMMN:ACALL DISPLAYM JNB K4,TSN JNB K2,JIAMN JNB K3,JIANMN
37
JNB K5,QUEN JMP TMMN
JIAMN:INC MM ;闹加秒 MOV A,MM
CJNE A,#60,K2MN MOV MM,#0
K2MN:ACALL CONVNAO ACALL DISPLAY JNB K2,K2MN JMP TMMN
JIANMN:DEC MM ;闹减秒 MOV A,MM
CJNE A,#255,K3MN MOV MM,#59
K3MN:ACALL CONVNAO ACALL DISPLAY JNB K3,K3MN JMP TMMN
;------------------------------------------------------------- TFN:ACALL CONVNAO
ACALL DISPLAY ;闹设置分钟JNB K4,TFN
TFFN:ACALL DISPLAYF JNB K4,TMN JNB K2,JIAFN JNB K3,JIANFN JNB K5,QUEN JMP TFFN
JIAFN:INC FF ;闹加分钟 MOV A,FF
CJNE A,#60,K2FN MOV FF,#0
K2FN:ACALL CONVNAO ACALL DISPLAY JNB K2,K2FN JMP TFFN
JIANFN:DEC FF ;减分钟 MOV A,FF
38
相关推荐: