十年專注單片機方案開發的方案公司英銳恩，分享和初學者一起學習。英銳恩現提供服務產品涉及主控芯片：8位單片機、16位單片機、32位單片機及各類運算放大器等。
以下程序：
;************************
;60秒記數，RB0控制時間模式切換；RB1控制秒高/低位切換；
;RB2控制加1功能；RB4控制停止/啟動;TMR2產生秒信號;TMR0
;控制數碼管掃描
;************************
list p=16f877a
#include
;************************
__CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_XT_OSC&_WRT_OFF&_LVP_OFF&_CPD_OFF
;************************
cblock 0x30
second_l ;秒低位
second_h ;秒高位
_t2count ;T2記數
time_mode ；時間模式
flag ;停止標志
porta ;移位標志
porta_w ;位選通標志
fsr
_ptr ;指針
_count ;閃爍次數記數
_flag0 ;兩次閃爍間隔標志
endc
cblock 0x70
w_temp
status_temp
fsr_temp
pclath_temp ;中斷臨時寄存器
endc
#define key0 PORTB,0
#define key1 PORTB,1
#define key2 PORTB,2
#define key4 PORTB,4 ;定義按鍵
#define _cycletime .249 ;循環時間
;*************************
org 0x000
nop
goto main
;************************
org 0x004
movwf w_temp
movf STATUS,w
clrf STATUS
movwf status_temp
movf PCLATH,w
movwf pclath_temp
movf FSR,w
movwf fsr_temp ;現場保護
;*************************
banksel INTCON ;中斷判斷
btfss INTCON,PEIE
goto _chkt0int
banksel PIE1
btfss PIE1,TMR2IE
goto _chkt0int
banksel PIR1
btfss PIR1,TMR2IF
goto _chkt0int
;****************************
;確定T2中斷
;****************************
banksel PORTA
pagesel $
clrf PIR1 ;清標志
btfss time_mode,0 ;模式判斷,是否普通顯示模式
goto _flickerdis ;否,轉閃爍顯示模式
;****************************
decf _t2count,f
movf _t2count,w
skpz
goto _generaldis ;沒到1秒,轉普通顯示
movlw .25
movwf _t2count
call _addsec ;1秒處理
goto _generaldis ;1秒處理后轉普通顯示
;******************
_chkt0int ;t0中斷判斷
banksel INTCON
btfss INTCON,T0IE
goto endofint
btfss INTCON,T0IF
goto endofint ;不是則直接中斷退出
;****************************
bcf INTCON,T0IF;確定為T0中斷，先清標志
btfss time_mode,0 ;判斷顯示模式
goto _flickerdis ; 轉閃爍顯示
goto _generaldis ;轉普通顯示
;****************************
_generaldis
clrf STATUS ;轉體0，普通顯示，C=0，IRP=0
comf porta_w,w
movwf PORTA ;低位選通
movlw second_l&0xff ;取秒低位首地址
movwf FSR
movf _ptr,w
addwf FSR,f ;確定時間單元地址
movf INDF,w
movwf fsr
call _tablepro;查表處理
movwf PORTC ;數碼顯示
btfsc porta_w,1 ;判斷2位是否移位完畢
goto bb
clrc
rlf porta_w,f ;沒有，準備點亮下一位
cc incf _ptr,f ;指針指向下1時間單元
movlw 0x01
andwf _ptr,f ;保證指針在2個時間單元移動
goto endofint
bb movlw 0x01 ;兩位移位完畢，重新賦值開始新一輪顯示
movwf porta_w
goto cc
;*******************************
_flickerdis
movlw .25 ;閃爍顯示，重新賦值時間記數器
movwf _t2count
clrf STATUS ;轉體0，C=0，IRP=0
btfss _flag0,0 ;兩次閃爍的間隔次數控制標志，1=調整位亮，0=調整位滅
goto mm ;0則調整位滅
comf porta_w,w
movwf PORTA
movlw second_l&0xff ;取秒低位首地址
movwf FSR
movf _ptr,w
addwf FSR,f
movf INDF,w
movwf fsr
call _tablepro
movwf PORTC
btfsc porta_w,1
goto bb1
clrc
rlf porta_w,f ;準備點亮下一位
cc1 incf _ptr,f
movlw 0x01
andwf _ptr,f
decf _count,f ;閃爍次數
movf _count,w
skpnz
goto _judge_porta
goto endofint
bb1 movlw 0x01
movwf porta_w
goto cc1
;***********************************
_judge_porta
clrf _flag0 ;標志位清0
movlw .100
movwf _count
mm btfss porta,0 ;判斷正在調整哪一位
goto sec_lpro ;秒低位調整
goto sec_hpro ;秒高位調整
sec_lpro
movlw b'11111101' ;低位調整，高位一直選通
movwf PORTA
movf second_h,w
LL movwf fsr
call _tablepro
movwf PORTC
decf _count,f
movf _count,w
skpz
goto endofint
movlw 0x01
xorwf _flag0,f ;標志取反
movlw .60
movwf _count
goto endofint
sec_hpro
movlw b'11111110';高位調整
movwf PORTA
movf second_l,w
goto LL
;******************
endofint ;中斷退出
clrf STATUS
MOVF fsr_temp,w ;現場恢復
MOVWF FSR
movf pclath_temp,w
movwf PCLATH
movf status_temp,w
movwf STATUS
swapf w_temp,f
swapf w_temp,w
retfie
;************************
main
banksel TRISA
movlw 0x07
movwf ADCON1 ;轉體1，設置A口全數字通道，輸出,數碼管位控
clrf TRISA
movlw b'00010111'
movwf TRISB
clrf TRISC ;數碼管段碼輸出
movlw 0x02
movwf OPTION_REG ;TMRO分品比1：8，內部時鐘,2MS中斷一次，B口內部上拉
clrf STATUS ;轉體0
clrf INTCON ;清標志
bsf INTCON,T0IE
bsf INTCON,PEIE ;T0&PEIE使能
banksel TRISA
movlw _cycletime
movwf PR2 ;設置T2循環周期
clrf PIE1
bsf PIE1,TMR2IE ;使能T2
banksel PORTA
clrf PORTB
RETLW 99H ;4
RETLW 92H ;5
RETLW 82H ;6
RETLW 0F8H ;7
RETLW 80H ;8
RETLW 98H ;9
;***************************************
end
（文源網絡，侵刪）
.png)
2.png)
