動態(tài)數碼管掃描顯示的時鐘
;使用資源：
;1，TMRO定時器。確定顯示的位，及顯示延時。
;2，TMR1定時器。秒信號產生。
;3，PORTA端口。六共陽極位數碼管的位選信號，低電平有效
;4，PORTC端口。數碼管的七段，RC7不用。
;功能說明:
;1.六位數碼管動態(tài)掃描顯示時間（格式為：HHMMSS，24小時制）。
;2.時鐘信號由單片機內部定時器硬件單元編程產生。
;本實戰(zhàn)的目的是讓大家進一步熟悉定時器的編程，多位數碼管動態(tài)掃描顯示的編程。
;硬件接法:
;1.實驗板上撥碼開關S4、S5的所有位必須置ON，其他都可以關閉。
;2.最好把93C46跟24CXX存儲器從板上取下。
;本實例原提供者:pic16論壇會員 leef728 ,在此鳴謝leef728同志共享本實例.
;程序文件名“TIME.ASM"
;程序清單如下:
;************************************
LIST P=16F877A
INCLUDE"P16F877A.INC"
ERRORLEVEL -302
;***********************************
__CONFIG _DEBUG_OFF&_CP_ALL&_WRT_HALF&_CPD_ON&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC;
;***************文件寄存器定義**************
CBLOCK 0X20
WAW
YIW
BAW
QIW
GEW
SHW
TEMP
COUNTER
S3
DAA
STATUS_TMP
W_TMP
ENDC
;********************程序開始****************
ORG 0000H
NOP ;復位地址
GOTO MAIN
ORG 0004H
;********************中斷處理程序***********
MOVWF W_TMP
SWAPF STATUS,W
CLRF STATUS
MOVWF STATUS_TMP ;以上4條指令為中斷現場保護
BCF INTCON,2 ;清除TMRO中斷標志位
MOVF TEMP,W ;時間存放單元的地址
MOVWF FSR
MOVF INDF,W ;取得某一位的時間值
CALL BMA ;查表得時間的顯示代碼
MOVWF PORTC ;送數碼管顯示
COMF DAA,W ;位碼取反
MOVWF PORTA ;點亮相應的數碼管
RLF DAA,F ;準備點亮下一位
INCF TEMP,F ;下一時間存放單元地址
BTFSS DAA,6 ;是否顯示完六位
GOTO RT
MOVLW 01H ;是，重新開始新一輪顯示
MOVWF DAA
MOVLW 20H ;重新獲取時間單元的地址
MOVWF TEMP
RT
SWAPF STATUS_TMP,W ;中斷現場恢復
MOVWF STATUS
SWAPF W_TMP,F
SWAPF W_TMP,W
MOVLW 0XE0 ;賦定時器初值
MOVWF TMR0
RETFIE
;*******************主程序開始****************
MAIN
BANKSEL TRISA ;選擇體1
MOVLW 00H
MOVWF TRISA ;PORTA設置為輸出
MOVWF TRISC ;PORTC設置為輸出
MOVLW 06H
MOVWF ADCON1 ;設置A口為普通數字口
BANKSEL INTCON
MOVLW 00H
MOVWF YIW
MOVWF WAW
MOVWF QIW
MOVWF BAW
MOVWF SHW
MOVWF GEW ;以上7條指令清零時間
MOVWF DAA
MOVLW 20H
MOVWF TEMP ;時間存放單元地址
BSF STATUS,RP0
MOVLW 0X05
MOVWF OPTION_REG ;分頻器給TMR0做定時用，且分頻比1：4
BCF STATUS,RP0
BSF INTCON,7 ;開啟中斷總允許位GIE
BSF INTCON,5 ;開啟TMRO中斷允許位
BCF INTCON,2 ;清除TMRO中斷標志位
MOVLW 0XE0 ;TMRO賦初值
MOVWF TMR0
CLRF DAA
INCF DAA,F ;顯示位設置
;**************************************************************
KS
CALL DELAY ;調用200ms定時程序
CALL DELAY
CALL DELAY
CALL DELAY
CALL DELAY ;調用5次，剛好1s
INCF GEW,F
MOVF GEW,W ;判斷秒的個位是否夠10
XORLW .10
BTFSS STATUS,Z
GOTO KS ;是，秒的個位清0，秒的十位加1
INCF SHW,F
CLRF GEW
CLRF STATUS
MOVF SHW,W
XORLW .6 ;判斷秒的十位是否為6（1分鐘60秒）
BTFSS STATUS,Z
GOTO KS
INCF BAW,F ;是，秒的十位清0，分的個位加1
CLRF SHW
CLRF STATUS
MOVF BAW,W
XORLW .10 ;判斷分的各位是否夠10
BTFSS STATUS,Z
GOTO KS
INCF QIW,F ;是，分的個位清0，分的十位加1
CLRF BAW
CLRF STATUS
MOVF QIW,W
XORLW .6 ;判斷分的十位是否夠6（1小時60分）
BTFSS STATUS,Z
GOTO KS
INCF WAW,F ;是，分的十位清0，時的個位加1
CLRF QIW
CLRF STATUS
MOVF WAW,W
XORLW .4 ;判斷時的個位是否夠4（24小時制）
BTFSS STATUS,Z
GOTO KS
INCF YIW,F ;是，時的個位清0，時的十位加1
CLRF WAW
CLRF STATUS
MOVF YIW,W
XORLW .2 ;判斷時的十位是否夠2
BTFSS STATUS,Z
GOTO KS
CLRF GEW ;是，使時間回到00-00-00
CLRF SHW
CLRF BAW
CLRF QIW
CLRF WAW
CLRF YIW
GOTO KS ;循環(huán)顯示
;**************************200ms延時程序********************
DELAY
NOP
BANKSEL PIE1
BCF PIE1,0 ;禁止TMR1中斷
BANKSEL T1CON
MOVLW 24H ;TMR1分頻1:4
MOVWF T1CON
BCF PIR1,0
MOVLW 0X3C
MOVWF TMR1H
MOVLW 0XB0
MOVWF TMR1L ;TMR1賦初值0X3CB0
BSF T1CON,0
LOP
BTFSS PIR1,0 ;查詢是否定時時間到
GOTO LOP
RETURN
;**********************************************************
BMA
ADDWF PCL,F ;考察偏移量
RETLW 0XC0 ;"0" 編碼
RETLW 0XF9 ;"1" 編碼
RETLW 0XA4 ;"2" 編碼
RETLW 0XB0 ;"3" 編碼
RETLW 0X99 ;"4" 編碼
RETLW 0X92 ;"5" 編碼
RETLW 0X82 ;"6" 編碼
RETLW 0XF8 ;"7" 編碼
RETLW 0X80 ;"8" 編碼
RETLW 0X98 ;"9" 編碼
RETLW 0XFF
;**********************************************************
END ;源程序結束
;***********************************************************
; 進入該實戰(zhàn)演練的工序流程如下:
; 1.創(chuàng)建源文件和編輯源文件;在此介紹一種不同于前面講的創(chuàng)建源文件的方法,用Windows附件中的”記事本”
; 這個為大家所熟知和好用的文件編輯器,并且可以方便的加入中文注釋.不過有兩點需要注意,一是注釋前面的
; 分號”;”必須用西文半角輸入;二是必須用”.asm”擴展名存儲到事先建立的一個專用子目錄下.
; 2.打開MPLAB集成開發(fā)環(huán)境:首先在WINDOWS環(huán)境下,選用開始>程序>Microchip MPLAB>MPLAB命令,啟動MPLAB
; 并進入MPLAB的桌面.
; 3.創(chuàng)建項目:選用菜單File>New或Project>New Project,在事先建立的一個專用子目錄下創(chuàng)建一個新項目,將
; 用記事本創(chuàng)建的源文件加入到該項目中.
; 4.建立項目中的目標文件:選擇菜單Project >Build All(項目>建立所有文件),MPLAB將自動調用MPASM將項目
; 文件管理下的源文件(.asm)匯編成十六進制的目標文件(.hex).
.png)
2.png)
