十年單片機開發方案公司深圳英銳恩分享PIC單片機數字鐘程序，希望對大家有所幫助！！！
;*******************************************
;數字鐘程序
;*******************************************
LIST P=16F877
INCLUDE BCDMIAO EQU 70H;存放秒的二進制轉化為BCD后的BCD嗎
BCDFEN EQU 71H;存分的
BCDSHI EQU 72H;存十的
GMIAO EQU 73H;秒個位寄存器
SMIAO EQU 74H;十位
GFEN EQU 75H;分個位寄存器
SFEN EQU 76H;十位
GSHI EQU 77H;時個位寄存器
SSHI EQU 78H;十位
COUNT EQU 79H;計數器
DY1 EQU 7AH;延時計數器1
DY2 EQU 7BH;延時計數器2
WTEMP EQU 7CH;W備份寄存器
STEMP EQU 7DH;STATUS備份寄存器
TEMP EQU 7EH;定時器0初值寄存器
RBTEMP EQU 7FH;RB口寄存器
DY5 EQU 20H;延時計數器5
DY6 EQU 21H;6
PCLATH_TEMP EQU 22H;PCLATH備份寄存器
DISPBUF EQU 24H ;顯示值暫存
DISPBUF_H EQU 25H ;顯示器高位
DISPBUF_L EQU 26H ;顯示器低位
BUFFER EQU 27H;移位寄存器（之所以這樣稱呼它，是應為BUFFER1中得數左移到它中）
BUFFER1 EQU 28H;存放個/分/時的數據（可對它進行移位）
SUM EQU 29H;判斷寄存器（判斷高低四位加三后是否大于7）
DIGHT EQU 2AH ;存放個/分/時的數據（中轉寄存器）
CMIAO EQU 30H;存秒的數（二進制）
CFEN EQU 31H;分的
CSHI EQU 32H;時的
COUNTER EQU 33H
;主程序
ORG 0000H
GOTO MAIN
ORG 0004H
GOTO SERVE
ORG 0005H
MAIN NOP;
BCF STATUS,RP0;
MOVLW 00H;P口清0
MOVWF PORTC;
BSF STATUS,RP0;
MOVLW 00H ;P口輸出
MOVWF TRISC;
MOVLW 0FFH;
MOVWF TRISB;
MOVLW 47H;INT上升沿觸發，分頻器為TMR0，1：256
MOVWF OPTION_REG;
BCF STATUS,RP0;
MOVLW 0F8H;開中斷
MOVWF INTCON;
BCF INTCON,T0IF;清標志位
BCF INTCON,INTF;
BCF INTCON,RBIF;
CLRF CMIAO;清存寄存器
CLRF CFEN;
CLRF CSHI;
MOVLW D'20';設置定時期的中斷次數
MOVWF COUNT;
MOVLW D'60';定時期初值
MOVWF TEMP;
MOVWF TMR0;開定時期
;循環掃描程序
SHAOMIAO
BCF STATUS,RP0;
MOVF CMIAO,0;
MOVWF DIGHT;秒位數據送出轉換為BCD碼
CALL BCD2;
MOVWF BCDMIAO;帶會BCD碼
MOVWF GMIAO;給秒的個位積存器
MOVLW 0FH;屏蔽高四位
ANDWF GMIAO;
MOVLW 50H;位選碼
IORWF GMIAO;BCD碼+位選
MOVF GMIAO,0;
MOVWF PORTC;送顯
CALL YANSHI;
MOVF BCDMIAO,0;同上
MOVWF SMIAO;
MOVLW 0F0H;
ANDWF SMIAO,1;
SWAPF SMIAO,1;注意此處要反轉
MOVLW 40H;
IORWF SMIAO;
MOVF SMIAO,0;
MOVWF PORTC;
CALL YANSHI;
MOVF CFEN,0;同上
MOVWF DIGHT;
CALL BCD2;
MOVWF BCDFEN;
MOVWF GFEN;
MOVLW 0FH;
ANDWF GFEN;
MOVLW 30H;
IORWF GFEN;
MOVF GFEN,0;
MOVWF PORTC;
CALL YANSHI;
MOVF BCDFEN,0;
MOVWF SFEN;
MOVLW 0F0H;
ANDWF SFEN;
SWAPF SFEN;
MOVLW 20H;
IORWF SFEN;
MOVF SFEN,0;
MOVWF PORTC;
CALL YANSHI;
MOVF CSHI,0;
MOVWF DIGHT;
CALL BCD2;
MOVWF BCDSHI;
MOVWF GSHI;
MOVLW 0FH;
ANDWF GSHI;
MOVLW 10H;
IORWF GSHI;
MOVF GSHI,0;
MOVWF PORTC;
CALL YANSHI;
MOVF BCDSHI,0;
MOVWF SSHI;
MOVLW 0F0H;
ANDWF SSHI;
SWAPF SSHI;
MOVLW 00H;
IORWF SSHI;
MOVF SSHI,0;
MOVWF PORTC;
CALL YANSHI;
GOTO SHAOMIAO;循環掃描
;查中斷源
SERVE MOVWF WTEMP;
SWAPF STATUS,W;
CLRF STATUS;
MOVWF STEMP;保護現場
MOVF PCLATH,W;
MOVWF PCLATH_TEMP;
CLRF PCLATH
BTFSS INTCON,INTF;是INT中斷嗎？
GOTO SERVE1;不是，轉SERVE1
GOTO INTT;是，轉INT中斷處理
SERVE1 BTFSS INTCON,T0IF;是定時期中斷嗎？
GOTO SERVE2;不是，轉SERVE2
GOTO T0II;是，轉定時期中斷處理
SERVE2 BTFSS INTCON,RBIF;是RB中斷嗎？
GOTO SERVE3;不是，返回
GOTO PDRB;是，轉RB中斷處理
SERVE3 RETFIE
;定時器中斷處理
T0II
BCF INTCON,T0IF;清中斷標志位
BCF INTCON,T0IE;關定時期中斷
MOVF TEMP,0;重新值數
MOVWF TMR0;
BCF INTCON,GIE;防止/原因是：產生中斷時，GIE位清0，并轉入中斷入口，當GIE清0后，如果這時正好CPU在執行
BSF INTCON,T0IE;產生/一條對INTCON“讀，修改，寫”的指令，則GIE位還會被寫會操作重新值1，這樣會使CPU
BSF INTCON,GIE;兩次中斷/產生兩次中斷，解決的辦法就是，在對INTCON進行修改之前，事先值GIE=0，修改完后
DECFSZ COUNT,1;/再恢復GIE=1。
GOTO LOOP;返回
MOVLW D'20';
MOVWF COUNT;賦記數次數
INCF CMIAO,1;
MOVLW D'60';
XORWF CMIAO,W;
BTFSS STATUS,Z;
GOTO LOOP;
CLRF CMIAO;60秒到清0
INCF CFEN;
MOVLW D'60';
XORWF CFEN,W;
BTFSS STATUS,Z;
GOTO LOOP;
CLRF CFEN;60分到清0
INCF CSHI;
MOVLW D'24';
XORWF CSHI,W;
BTFSS STATUS,Z;
GOTO LOOP;
CLRF CSHI;24時到清0
RETFIE;
;判斷是那一個產生的中斷
PDRB MOVF PORTB,0;
MOVWF RBTEMP ;
BTFSC RBTEMP,5;是0嗎？是轉向RBII
GOTO RBIII;不是，轉向RBIII
;RB5口中斷處理 調秒
RBII
CALL DELAY;去抖
BTFSC PORTB,5;是下降沿嗎？
GOTO LOOP8;不是，轉（清除上升沿產生的虛假中斷）
MOVF PORTB,1;讀PORTB，終結失陪條件
BCF INTCON,RBIF;清標志位
; BCF INTCON,T0IF
BCF INTCON,T0IE;關定時期中斷
MOVF TEMP,0;
MOVWF TMR0;重新賦值
BSF INTCON,T0IE;開定時期中斷
INCF CMIAO,1;
MOVLW D'60';
XORWF CMIAO,W;判斷到60秒了嗎？
BTFSS STATUS,Z;
GOTO LOOP;返回
CLRF CMIAO;
INCF CFEN,1;
RETFIE
LOOP8
MOVF PORTB,1;清除RBIF前要讀口
BCF INTCON,RBIF;
RETFIE
;RB4口中斷處理 調分
RBIII
CALL DELAY;去抖
BTFSC PORTB,4;
GOTO LOOP8;
MOVF PORTB,1;
BCF INTCON,RBIF;
BCF INTCON,T0IE;
; BCF INTCON,T0IF
MOVF TEMP,W;
MOVWF TMR0;
BSF INTCON,T0IE;
INCF CFEN,1;
MOVLW D'60';
XORWF CFEN,W;
BTFSS STATUS,Z;
GOTO LOOP;
CLRF CFEN;
INCF CSHI;
RETFIE
;外部中斷處理 調時
INTT
BCF INTCON,INTF;
CALL DELAY;
INCF CSHI,1;
MOVLW D'24';
XORWF CSHI,W;
BTFSS STATUS,Z;
GOTO LOOP;
CLRF CSHI;
RETFIE
;恢復現場
LOOP MOVF PCLATH_TEMP,W;
MOVWF PCLATH;
SWAPF STEMP,0;
MOVWF STATUS;
SWAPF WTEMP;
SWAPF WTEMP,0;
RETFIE
;去抖程序,延時8MS（5-10MS）
DELAY MOVLW D'51';
MOVWF DY1;
LOOP4 MOVLW D'51';
MOVWF DY2;
LOOP5 DECFSZ DY2,1;
GOTO LOOP5;
DECFSZ DY1,1;
GOTO LOOP4;
RETURN
;延時程序,延時約3MS，（10-20MS循環一次,六個數碼官需要18MS，在次范圍內）
YANSHI MOVLW D'21';
MOVWF DY5;
LOOP7 MOVLW D'51';
MOVWF DY6;
LOOP6 DECFSZ DY6,1;
GOTO LOOP6;
DECFSZ DY5,1;
GOTO LOOP7;
RETURN
BCD2 MOVLW 8;
MOVWF COUNTER; ;循環左移計數器置8
CLRF BUFFER ; ;清除緩沖器
MOVF DIGHT,W ;
MOVWF BUFFER1 ;
LOOP2
RLF BUFFER1,1 ; ;二進制數轉換成BCD碼（以便顯示）
RLF BUFFER,1;
DECFSZ COUNTER,1; ;左移8次
GOTO ADJUST ; ;
MOVF BUFFER,W;
MOVWF DISPBUF ;
MOVF DISPBUF,W;
RETURN ;是否有進位（即已達100），如已計數到100則
; SKPC ;從0開始再計數顯示（顯示00～99）
ADJUST
MOVLW 3 ; ;二進制轉BCD的調整
ADDWF BUFFER,W; ;每次移位后都檢查低四位LSD+3是否大于7
MOVWF SUM ;
BTFSC SUM,3;
MOVWF BUFFER;
MOVLW 30H;
ADDWF BUFFER,W ; ;如果是則再加3，否則不加。
MOVWF SUM;
BTFSC SUM,7;
MOVWF BUFFER; ;接著再將高四位MSD作相同處理
GOTO LOOP2;
END
（文源網絡，侵刪）
.png)
2.png)
