MOV R7,63H ;日减一 LCALL JIAN1 MOV 63H,A
CJNE A,#00H,GADDDAY1 MOV 63H,#31H GADDDAY1:
MOV 32H,#86H ;日值送人1302 MOV 31H,63H LCALL WRITE MOV R0,63H
LCALL DIVIDE ;日分离，送显示缓存 MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2
WAITT3: ;~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT3 JNB P0.3,WAITT3 AJMP SETG5 SETG6:
SETB 0CH ;调星期时闪标志 GWAIT6: LCALL DISPLAY JNB P0.1,GWAIT6
SETG7:
LCALL DISPLAY JNB P0.1,SETG8 JNB P0.2,GADDWEEK JNB P0.3,JIANWEEK AJMP SETG7 GADDWEEK:
MOV R7,64H ;星期加一 LCALL ADD1 MOV 64H,A
CJNE A,#07H,GADDWEEK1 MOV 64H,#00H AJMP GADDWEEK1 JIANWEEK:
MOV R7,64H ;星期减一 LCALL JIAN1 MOV 64H,A
CJNE A,#00H,GADDWEEK1 MOV 64H,#06H GADDWEEK1: MOV 32H,#8AH
MOV 31H,64H ;星期值送人1302 LCALL WRITE MOV R0,64H
LCALL DIVIDE ;星期值分离送显示缓存
MOV 48H,R1 MOV 78H,R1
WAITT4: ;~~~~~~~~~~~~~~~ ~~~~~ LCALL DISPLAY JNB P0.2,WAITT4 JNB P0.3,WAITT4 AJMP SETG7 SETG8:
SETB 0DH ;调小时时闪标志 GWAIT8: LCALL DISPLAY JNB P0.1,GWAIT8 SETG9:
LCALL DISPLAY JNB P0.1,SETG10 JNB P0.2,GADDHOUR JNB P0.3,JIANHOUR AJMP SETG9 GADDHOUR:
MOV R7,62H ;小时加一 LCALL ADD1 MOV 62H,A
CJNE A,#24H,GADDHOUR1 MOV 62H,#00H AJMP GADDHOUR1
JIANHOUR:
MOV R7,62H ;小时减一 LCALL JIAN1 MOV 62H,A
CJNE A,#00H,GADDHOUR1 MOV 62H,#23H GADDHOUR1:
MOV 32H,#84H ;小时值送人1302 MOV 31H,62H LCALL WRITE MOV R0,62H
LCALL DIVIDE ;小时值分离送显示缓存 MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2
WAITT5: ;~~~~~~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT5 JNB P0.3,WAITT5 AJMP SETG9 SETG10:
SETB 0EH ;调分时候闪标志 GWAIT10: LCALL DISPLAY