【文章內容簡介】 DPTR,TAB 。字形轉換 MOVC A,@A+DPTR MOV P2,0FFH 。消影 RET TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H 。字形0~9 DB 0FFH,87H,0C8H,0A1H,86H,8EH 。字形 A= ,B=t,C=n,F=F,hsz TAB2:DB 30H,31H,28H,31H,30H,31H,30H,31H,31H,30H,31H,30H,31H 。每個月的天數,平年 TAB3:DB 30H,31H,29H,31H,30H,31H,30H,31H,31H,30H,31H,30H,31H 。每個月的天數,閏年顯示子程序結束菜單顯示子程序 MXIAN:MOV A,3EH 。將暫存的數轉成字形 SWAP A MOV B,10H DIV AB LCALL ZH MOV P0,A 。LED顯示5,6位 MOV P2,0FEH LCALL DELAY MOV A,B LCALL ZH MOV P0,A MOV P2,0FDH LCALL DELAY MOV A,3DH 。將暫存的數轉成字形 SWAP A MOV B,10H DIV AB LCALL ZH MOV P0,A 。LED顯示3,4位 MOV C,08H MOV ,C 。是否顯示小數點2 MOV P2,0FBH LCALL DELAY SETB 。 取消顯示小數點 MOV A,B LCALL ZH MOV P0,A MOV P2,0F7H LCALL DELAY MOV A,3CH 。將暫存的數轉成字形 SWAP A MOV B,10H DIV AB LCALL ZH MOV P0,A 。LED顯示1,2位 MOV C,07H MOV ,C 。是否顯示小數點1 MOV P2,0EFH LCALL DELAY SETB 。 取消顯示小數點 MOV A,B LCALL ZH MOV P0,A MOV P2,0DFH LCALL DELAY RET按鍵子程序開始 CS:MOV P0,0FFH 。秒清零 MOV P2,10111111B JB ,CS1 MOV 32H,00H CS1:SETB RET 。 ADDM1:MOV P0,0FFH 。加一分鐘 MOV P2,10111111B JNB ,ADDM11 CLR 03H 。按鍵2是否有效 ADDM11:JB 03H,ADDM12 JB ,ADDM12 LCALL MXIAN 。這四個為去抖動 MOV P0,0FFH MOV P2,10111111B JB ,ADDM12 SETB 03H 。按鍵2是否有效 SETB 09H 。時鐘加減標致位 MOV A,31H 。分鐘 +1 CJNE A,59H,M21 MOV 31H,00H SJMP ADDM12 M21:ADD A,01 DA A MOV 31H,A SJMP ADDM12 ADDM12:SETB RET 。 ADDH1:MOV P0,0FFH 。加一小時 MOV P2,10111111B JNB ,ADDH11 CLR 04H 。按鍵3是否有效 ADDH11:JB 04H,ADDH12 JB ,ADDH12 LCALL MXIAN 。這四個為去抖動 MOV P0,0FFH MOV P2,10111111B JB ,ADDH12 SETB 04H 。按鍵3是否有效 CLR 09H 。時鐘加減標致位 MOV A,30H 。 小時 +1 CJNE A,23H,H31 MOV 30H,00H SJMP ADDH12 H31:ADD A,01 DA A MOV 30H,A ADDH12:SETB RET 。 DECMH:MOV P0,0FFH 。減一分鐘/一小時 MOV P2,10111111B JNB ,DECM11 CLR 05H 。按鍵1是否有效 DECM11:JB 05H,DECM12 JB ,DECM12 LCALL MXIAN 。這四個為去抖動 MOV P0,0FFH MOV P2,10111111B JB ,DECM12 SETB 05H 。按鍵1是否有效 JNB 09H,DECMH3 MOV A,31H 。分鐘 1 CJNE A,00H,DECMH4 MOV 31H,59H SJMP DECM12 DECMH4:LCALL DECA MOV 31H,A SJMP DECM12 DECMH3:MOV A,30H 。小時 1 CJNE A,00H,DECMH5 MOV 30H,23H SJMP DECM12 DECMH5:LCALL DECA MOV 30H,A DECM12:SETB RET 十進制減法子程序 DECA:CJNE A,10H,DECA1 。運算范圍為1~50 MOV A,09H RET DECA1:CJNE A,20H,DECA2 MOV A,19H RET DECA2:CJNE A,30H,DECA3 MOV A,29H RET DECA3:CJNE A,40H,DECA4 MOV A,39H RET DECA4:CJNE A,50H,DECA5 MOV A,49H RET DECA5:DEC A RET 鬧鐘按鍵子程序 T1M1:MOV P0,0FFH 。鬧鐘1加一分鐘 MOV P2,10111111B JNB ,T1M11 CLR 03H 。按鍵2是否有效 T1M11:JB 03H,T1M12 JB ,T1M12 LCALL MXIAN 。這四個為去抖動 MOV P0,0FFH MOV P2,10111111B JB ,T1M12 SETB 03H 。按鍵2是否有效 SETB 0AH 。時鐘加減標致位 MOV A,36H 。分鐘 +1