pic16f877 秒表程序

源程序如下:

LIST P=16F877

INCLUDE "P16F877.INC"

；時鐘顯示范圍：00.00秒-99.99秒，分辨度：0.01秒；所用的寄存器如下:

S0 EQU 0X20 ；0.01 秒計(jì)時器

S1 EQU S0+1 ；0.1 秒計(jì)時器

S2 EQU S0+2 ；1 秒計(jì)時器

S3 EQU S0+3 ；10 秒計(jì)時器

SREG EQU S0+4 ；軟計(jì)數(shù)器

LEDF EQU S0+5 ；顯示的LED的位置指示寄存器

XW_TEMP EQU S0+6 ；用于中斷中保護(hù)W的值

XHOSTS EQU S0+7 ；用于中斷中保護(hù)STATUS的值

DEYH EQU S0+8

DEYL EQU S0+9 ；以上兩個寄存器用于軟件延時

HOSTF EQU S0+0A ；用于中斷中保護(hù)FSR的值

ORG 0X00

GOTO MAIN

ORG 0X04

GOTO CLKINT ；轉(zhuǎn)向中斷服務(wù)程序

ORG 0X10

CONVERT ；不帶小數(shù)點(diǎn)的共陽極碼表

ADDWF PCL,1

RETLW 0XC0

RETLW 0XF9

RETLW 0XA4

RETLW 0XB0

RETLW 0X99

RETLW 0X92

RETLW 0X82

RETLW 0XD8

RETLW 0X80

RETLW 0X90

RETURN

CONVERT2 ；帶小數(shù)點(diǎn)的共陽極碼表

ADDWF PCL,1

RETLW 0X40

RETLW 0X79

RETLW 0X24

RETLW 0X30

RETLW 0X19

RETLW 0X12

RETLW 0X02

RETLW 0X78

RETLW 0X00

RETLW 0X10

RETURN

TRANSMIT ；SPI發(fā)送顯示子模塊

CLRF PORTA ；LACK送低電平，為鎖存做準(zhǔn)備

MOVWF SSPBUF ；啟動發(fā)送

WAIT BANKSEL PIR1

BTFSS PIR1，SSPIF

GOTO WAIT ；等待發(fā)送結(jié)束

BCF PIR1，SSPIF ；清除中斷標(biāo)志

NOP

RETURN

；***********顯示子程序模塊************

DISPLAY MOVLW 0X01

MOVWF LEDF

MOVLW 0XA0

MOVWF FSR

AGAINXIAN MOVF LEDF，W

SUBLW 0X02

BTFSS STATUS，Z

GOTO XIANB

MOVF INDF，W

CALL CONVERT2 ；若是第二位，則查帶小數(shù)點(diǎn)的碼表

GOTO TRAN

XIANB MOVF INDF，W

CALL CONVERT

TRAN CALL TRANSMIT ；發(fā)送一個顯示數(shù)據(jù)

INCF FSR

INCF LEDF

MOVF LEDF，W

SUBLW 0X05

BTFSS STATUS，Z

GOTO AGAINXIAN

MOVLW 0X01

MOVWF LEDF

BSF PORTA，5 ；最后給一個鎖存信號，代表一次顯示任務(wù)完成

RETURN

；********** S0計(jì)數(shù)溢出處理子程序***************

CS0 CLRF S0

INCF S1

RETURN

；********** S1計(jì)數(shù)溢出處理子程序***************

CS1 CLRF S1

INCF S2

RETURN

；********** S2計(jì)數(shù)溢出處理子程序***************

CS2 CLRF S2

INCF S3

RETURN

；********** S3計(jì)數(shù)溢出處理子程序***************

CS3 CLRF S3

RETURN

；***********時鐘中斷服務(wù)程序*******************

CLKINT MOVWF XW_TEMP ；保存W的值

SWAPF STATUS，W

MOVWF XHOSTS ；暫存STATUS的值

MOVF FSR，W

MOVWF HOSTF ；保存FSR的值。以上程序?yàn)橹袛喱F(xiàn)場保護(hù)

MOVLW 0X14

MOVWF TMR0 ；對TMR0寫入一個調(diào)整值，因?yàn)閷懭?/p>

；TMR0后接著的兩個周期不能增量

BCF INTCON，T0IF ；清除中斷標(biāo)志

INCF SREG

MOVF SREG，W

SUBLW 0X28 ；TMR0 每250 μs中斷一次

BTFSS STATUS，Z ；其中斷40次后才執(zhí)行對S0、 S1、 S2、 S3 的

；操作

GOTO TIFAN

CLRF SREG

INCF S0

MOVF S0，W

SUBLW 0X0A

BTFSC STATUS，Z

CALL CS0

MOVF S1，W

SUBLW 0X0A

BTFSC STATUS，Z

CALL CS1

MOVF S2，W

SUBLW 0X0A

BTFSC STATUS，Z

CALL CS2

MOVF S3，W

SUBLW 0X0A

BTFSC STATUS，Z

CALL CS3

TIFAN MOVF HOSTF，W ；以下為中斷現(xiàn)場恢復(fù)

MOVWF FSR ；恢復(fù)間接尋址指針FSR的值

SWAPF XHOSTS，W

MOVWF STATUS ；恢復(fù)STATUS的值

SWAPF XW_TEMP，1

SWAPF XW_TEMP，W ；恢復(fù)W的值

RETFIE

；*********** TMR0初始化子程序***************

CLKINSUB BANKSEL OPTION_REG

BCF OPTION_REG，T0CS ；TMR0工作于定時器方式

BSF OPTION_REG，PSA ；TMR0不用分頻

BANKSEL INTCON

BCF INTCON，T0IF ；清除TMR0的中斷標(biāo)志

BCF INTCON，GIE ；總中斷禁止

BSF INTCON，T0IE ；TMR0中斷允許

RETURN

；***************系統(tǒng)初始化子程序*****************

MAINSUB BANKSEL TRISA

BCF TRISA，5 ；置RA5為輸出方式，以輸出鎖存信號

BCF TRISB，1

BCF TRISB，2

BSF TRISB，4

BSF TRISB，5 ；設(shè)置與鍵盤有關(guān)的各口的輸入輸出方式

BCF TRISC，5

BCF TRISC，3 ；設(shè)置SCK與SDO為輸出方式

BCF INTCON，GIE ；關(guān)閉所有中斷

MOVLW 0XC0

MOVWF SSPSTAT ；設(shè)置SSPSTAT寄存器

BANKSEL SSPCON

MOVLW 0X30

MOVWF SSPCON ；設(shè)置SPI的控制方式，允許SSP方式，

BCF STATUS，IRP ；間接尋址選中BANK0、BANK1

RETURN ；返回

；***********鍵掃描子程序********************

KEYSCAN CLRF PORTB ；B1和B2兩條線上送0

NOP

NOP ；經(jīng)過一段時間的延時，避開引腳電平的過渡過程

MOVF PORTB，W

ANDLW 0X30 ；只檢查B4和B5兩位，屏蔽其它各位

SUBLW 0X30

RETURN

；****************************************

KEYDELAY MOVLW 0X80 ；鍵盤去抖子程序(約8ms的軟件延時)

MOVWF DEYH

AGAIN2 MOVLW 0XFF

MOVWF DEYL

AGAIN1 DECFSZ DEYL,1

GOTO AGAIN1

DECFSZ DEYH,1

GOTO AGAIN2

RETURN

；*************顯示緩沖區(qū)處理子程序****************

XIANHUAN MOVLW 0XA0

MOVWF FSR

MOVF S3，W

MOVWF INDF

INCF FSR

MOVF S2，W

MOVWF INDF

INCF FSR

MOVF S1，W

MOVWF INDF

INCF FSR

MOVF S0，W

MOVWF INDF

RETURN

MAIN NOP

CALL MAINSUB ；系統(tǒng)初始化

CALL CLKINSUB ；調(diào)用時鐘初始化子程序

DENJIAN BCF INTCON，GIE ;禁止中斷

BANKSEL S0

CLRF S0

CLRF S1

CLRF S2

CLRF S3

CLRF SREG

CLRF LEDF ；清零 S0=S1=S2=S3=0

CALL XIANHUAN ；把S3、S2、S1、S0的值裝入顯示緩沖區(qū)

CALL DISPLAY ；顯示

DENAN BCF INTCON，GIE ；關(guān)中斷

CALL KEYSCAN ；進(jìn)行鍵掃描

BTFSS STATUS，Z

GOTO XIAODOU1 ；如起始鍵按下，則消抖動

GOTO DENAN ；如起始鍵沒按下，則繼續(xù)等待

XIAODOU1 CALL KEYDELAY ；延時消抖動

CALL KEYSCAN ；再次進(jìn)行鍵掃描

BTFSC STATUS，Z

GOTO DENAN ；若為干擾，則再次等待鍵按下

BANKSEL S0

CLRF S0

CLRF S1

CLRF S2

CLRF S3

CLRF SREG ；設(shè)置新一次計(jì)時的初始條件

WAITS CALL KEYSCAN

BTFSS STATUS，Z

GOTO WAITS ；為了防止按鍵過于靈敏，等鍵松開后再進(jìn)行

；下面的操作

MOVLW 0X08

MOVWF TMR0

BSF INTCON，GIE ；開總中斷

HERE CALL XIANHUAN ；顯示緩沖區(qū)處理

CALL DISPLAY ；即時更新顯示內(nèi)容

CALL KEYSCAN

BTFSS STATUS，Z

GOTO XIAODOU ；若停止計(jì)時鍵按下，則消抖

GOTO HERE ；若停止計(jì)時鍵沒按下，則繼續(xù)等待中斷計(jì)時

XIAODOU CALL DISPLAY ；利用消抖動時間調(diào)用顯示程序

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL DISPLAY

CALL KEYSCAN

BTFSC STATUS，Z

GOTO HERE ；若為干擾，則繼續(xù)等待停止鍵按下

BCF INTCON，GIE ；若停止鍵按下，則禁止中斷

CALL DISPLAY ；若不為干擾，則禁止中斷，更新顯示內(nèi)容

WAITR CALL KEYSCAN

BTFSS STATUS，Z

GOTO WAITR ；為了防止按鍵過于靈敏，等鍵松開后再進(jìn)行

；下面的操作

DENDAI CALL KEYSCAN

BTFSC STATUS，Z

GOTO DENDAI ；循環(huán)進(jìn)行鍵掃描，等待清0鍵按下

CALL KEYDELAY

CALL KEYSCAN

BTFSC STATUS，Z

GOTO DENDAI ；延時消抖

WAIT19 CALL KEYSCAN

BTFSS STATUS，Z

GOTO WAIT19 ；等鍵松開

GOTO DENJIAN ；新一次計(jì)時開始

END