;------------------------------------------------------------------------------------------------------------
; Ñoaïn chöông trình baét buoäc ñaàu chöông trình ngaét
;------------------------------------------------------------------------------------------------------------
MOVWF W_save
SWAPF STATUS,W
CLRF STATUS
MOVWF STATUS_save
MOVF PCLATH,W
MOVWF PCLATH_save
CLRF PCLATH
MOVF FSR,W
MOVWF FSR_save
BTFSS INTCON,TMR0IF ; Kieåm tra côø ngaét Timer0
GOTO exit_int ; Neáu côø ngaét chöa ñöôïc set, thoaùt khoûi
; chöông trình ngaét
BCF INTCON,TMR0IF ; neáu côø ngaét ñaõ ñöôïc set, xoùa côø ngaét ñeå
; cho pheùp nhaän bieát thôøi ñieåm tieáp theo
; xaûy ra ngaét
;-------------------------------------------------------------------------------------------------------------
; Caùc thao taùc chính cuûa chöông trình ngaét
;-------------------------------------------------------------------------------------------------------------
INCF hang_don_vi,1 ; taêng haøng ñôn vò
MOVLW 0x0A
XORWF hang_don_vi,0 ; so saùnh haøng ñôn vò vôùi 10
BTFSS STATUS,Z
GOTO exit_int ; thoaùt chöông trình ngaét neáu chöa baèng 10
CLRF hang_don_vi ; neáu baèng 10, xoùa haøng ñôn vò
INCF hang_chuc,1 ; taêng haøng chuïc
MOVLW 0x0A
XORWF hang_chuc,0 ; so saùnh haøng chuïc vôùi 10
BTFSS STATUS,Z
GOTO exit_int ; thoaùt chöông trình ngaét neáu chöa baèng 10
CLRF hang_chuc ; neáu baèng 10, xoùa haøng chuïc, baét ñaàu ñeám
; laïi töø giaù trò 00
GOTO exit_int ; thoaùt chöông trình ngaét
;---------------------------------------------------------------------------------------------------------------
; Ñoaïn chöông trình baét buoäc tröôùc khi thoaùt khoûi chöông trình ngaét
;---------------------------------------------------------------------------------------------------------------
exit_int
MOVF FSR_save,W
MOVWF FSR
MOVF PCLATH_save,W
MOVWF PCLATH
SWAPF STATUS_save,W
MOVWF STATUS
SWAPF W_save,1
SWAPF W_save,0
RETFIE
;----------------------------------------------------------------------------------------------------------------
; Keát thuùc chöông trình ngaét
;----------------------------------------------------------------------------------------------------------------
ORG 0x0000
GOTO start
ORG 0x050
;----------------------------------------------------------------------------------------------------------------
; Baét ñaàu chöông trình chính
;----------------------------------------------------------------------------------------------------------------
start
;---------------------------------------------
; Khôûi taïo caùc PORT
;---------------------------------------------
BCF STATUS,RP1
BSF STATUS,RP0 ; Choïn BANK1
MOVLW 0x00
MOVWF TRISD ; PORTD <- output
MOVLW b'11111100'
MOVWF TRISB ; PORTB<1:0> <- output
BCF STATUS,RP0 ; choïn BANK0
CLRF PORTD
MOVLW b'00000011' ; taét caùc LED haøng chuïc vaø haøng ñôn vò
MOVWF PORTB
;----------------------------------------
; Khôûi taïo Timer0
;----------------------------------------
CLRF TMR0 ; xoùa thanh ghi TMR0
CLRF INTCON ; xoùa thanh ghi INTCON
BSF STATUS,RP0 ; choïn BANK0
MOVLW b'10000001' ; taét chöùc naêng ñieän trôû keùo leân ôû PORTB,
MOVWF OPTION_REG ; choïn xung ñeám laø xung leänh, gaùn
; prescaler cho Timer0 vaø choïn tæ soá chia
; taàn soá prescaler laø 1:4
BCF STATUS,RP0 ; choïn BANK0
BSF INTCON,TMR0IE ; cho pheùp ngaét Timer0
BSF INTCON,PEIE ; cho pheùp ngaét ngoaïi vi
BSF INTCON,GIE ; cho pheùp toaøn boä caùc ngaét
;----------------------------------------------
; Khôûi taïo caùc bieán
;----------------------------------------------
CLRF hang_chuc
CLRF hang_don_vi
;----------------------------------------------
; Voøng laëp chính
;----------------------------------------------
main
CALL hien_thi ; goïi chöông trình con
GOTO main
;----------------------------------------------------------------------------------------------------------------
; Chöông trình con hieån thò caùc giaù trò chöùa trong caùc thanh ghi hang_chuc vaø hang_don_vi ra
; caùc LED haøng chuïc vaø LED haøng ñôn vò
;----------------------------------------------------------------------------------------------------------------
hien_thi
MOVF hang_chuc,0 ; hieån thò LED haøng chuïc
CALL table
MOVWF PORTD
MOVLW b'11111101'
MOVWF PORTB
CALL delay_1ms
MOVF hang_don_vi,0 ; hieån thò LED haøng ñôn vò
CALL table
MOVWF PORTD
MOVLW b'11111110'
MOVWF PORTB
CALL delay_1ms
RETURN ; keát thuùc chöông trình con hien_thi
;--------------------------------------------------------------------------------------------------------
; Caùc chöông trình con duøng cho chöông trình con hien_thi
;--------------------------------------------------------------------------------------------------------
table ; baûng döõ lieäu chuyeån töø maõ thaäp phaân sang maõ
; LED 7 ñoaïn
ADDWF PCL,1
RETLW 0xC0
RETLW 0xF9
RETLW 0xA4
RETLW 0xB0
RETLW 0x99
RETLW 0x92
RETLW 0x82
RETLW 0xF8
RETLW 0x80
RETLW 0x90
delay_1ms
MOVLW d'1'
MOVWF count1
d2 MOVLW 0xC7
MOVWF counta
MOVLW 0x01
MOVWF countb
delay_1 ; chöông trình con taïo thôøi gian delay 1 ms
DECFSZ counta,1
GOTO $+2
DECFSZ countb,1
GOTO delay_1
DECFSZ count1,1
GOTO d2
RETURN
END ; chöông trình keát thuùc taïi ñaây
Ta nhaän thaáy raèng caáu truùc chöông trình treân hoaøn toaøn töông töï nhö caáu truùc cuûa
chöông trình maãu, caùc giaûi thuaát veà hieån thò LED ñaõ ñöôïc ñeà caäp cuï theå ôû öùng duïng 4.6, do
ñoù vaàn ñeà coøn laïi chæ laø caùc vaán ñeà lieân quan ñeán Timer0. Caùc böôùc khôûi taïo Timer0 ñaõ ñöôïc
ñeà caäp cuï theå trong caùc taøi lieäu cuûa nhaø saûn xuaát, ta chæ vieäc döïa theo “söôøn baøi” coù saün ñoù
vaø theâm vaøo caùc thoâng soá thích hôïp ñaët vaøo caùc thanh ghi ñieàu khieån (ñoái vôùi Timer0 laø caùc
thanh ghi OPTION_REG, thanh ghi INTCON vaø thanh ghi TMR0) ñeå khôûi taïo caùc ñieàu kieän
ban ñaàu cho Timer0 sao cho phuø hôïp vôùi muïc ñích söû duïng.
Vôùi chöông trình treân, moãi laàn ngaét Timer0 xaûy ra, vi ñieàu khieån seõ töø voøng laëp cuûa
chöông trình chính quay trôû veà chöông trình ngaét. Chöông trình ngaét seõ thöïc hieän coâng vieäc
taêng giaù trò ñeám moät caùch thích hôïp ôû caùc thanh ghi hang_chuc vaø thanh ghi hang_don_vi.
Thuaät toaùn daønh cho chöông trình ngaét cuõng töông ñoái ñôn giaûn, giaù trò ñeám seõ ñöôïc löu tröïc
tieáp döôùi daïng maõ thaäp phaân neân ta khoâng caàn phaûi chuyeån ñoåi töø maõ HEX sang maõ thaäp
phaân. Khi quaù trình caäp nhaät giaù trò ñeám keát thuùc, vi ñieàu khieån quay trôû veà voøng laëp chính
vaø tieáp tuïc quaù trình hieån thò caùc giaù trò ñaõ ñöôïc caäp nhaät töø chöông trình ngaét.
Baây giôø ta thöû tính thôøi gian ñònh thôøi do Timer0 taïo ra. Do ta khôûi taïo Timer0 söû
duïng xung ñeám laø xung leänh neân moãi xung coù thôøi gian laø 1 uS (ñoái vôùi oscillator 4 MHz),
xung leänh ñöôïc chia 4 bôûi prescaler neân giaù trò cuûa thanh ghi TMR0 seõ taêng leân 1 ñôn vò sau
khoaûng thôøi gian (4*1 uS) = 4 uS. Nhö vaäy ngaét seõ xaûy ra sau moãi quaõng thôøi gian (256*4 uS)
= 1024 uS (Timer0 laø boä ñeám 8 bit vaø ngaét xaûy ra khi TMR0 bò traøn).
Döïa vaøo chöông trình treân ta coù theå kieåm tra ñöôïc taùc ñoäng cuûa prescaler baèng caùch
thay ñoåi giaù trò ñöa vaøo thanh ghi OPTION_REG. Söï thay ñoåi thôøi gian ñònh thôøi khi ta thay
ñoåi tæ soá chia cuûa prescaler laø töông ñoái roõ raøng.
Cuõng döïa vaøo chöông trình treân ta coù theå thay Timer0 baèng Timer1 hoaëc Timer2 ñeå
laøm quen vôùi caùc Timer cuûa vi ñieàu khieån. Söï thay ñoåi duy nhaát so vôùi chöông trình treân laø ôû
caùc böôùc khôûi taïo, do moãi Timer ñeàu coù moät caáu truùc vaø hoaït ñoäng ñoäc laäp vôùi nhau. Caùc
böôùc khôûi taïo coù theå ñöôïc tham khaûo trong caùc taøi lieäu cuûa nhaø saûn xuaát. Chöông trình sau coù
taùc duïng nhö chöông trình 4.5.1 nhöng laàn naøy ta seõ söû duïng Timer2 laøm boä ñònh thôøi.
;-----------------------------------------------------------------------------------------------------------
; Ghi chuù veà chöông trình
;-----------------------------------------------------------------------------------------------------------
; Chöông trình 4.5.2
; Chöông trình hieån thò soá ñeám treân hai LED 7 ñoaïn theo thöù töï taêng daàn
; Timer söû duïng: Timer2
;------------------------------------------------------------------------------------------------------------
; Khai baùo vi ñieàu khieån
;------------------------------------------------------------------------------------------------------------
processor 16f877a
include <p16f877a.inc>
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC &
_WRT_OFF & _LVP_OFF & _CPD_OFF
; -----------------------------------------------------------------------------------------------------------
; Khai baùo bieán
;------------------------------------------------------------------------------------------------------------
count1 EQU 0x20
counta EQU 0x21
countb EQU 0x22
hang_don_vi EQU 0x23
hang_chuc EQU 0x24