;實驗目的：熟悉RB口電平變化中斷功能的使用
;軟件規劃：
; 1，只取下降沿觸發的中斷；上升沿中斷直接返回
; 2，按RB4一次，輸出加1
; 3，按RB5一次，輸出減1
; 4，RC口LED做輸出結果顯示
;硬件規劃：
; 1，使能內部弱上拉
; 2，RB4和RB5接按鍵
; 3；C口LED燈做結果顯示。
LIST P=16F877
INCLUDE “P16F877a.INC”
__config(0x1832)
;—————————————————————————————————————————————
PORTC_TEP EQU 31H
W_TEMP EQU 32H
STATUS_TEM EQU 33H

       ORG  00H
       NOP
       GOTO   ST

;—————————————————————————————————————————————
;中斷服務程序
;—————————————————————————————————————————————
ORG 04H
MOVWF W_TEMP
MOVFW STATUS
MOVWF STATUS_TEM

       BCF     INTCON,RBIF      ;清除RB中斷標志位
       BTFSS   PORTB,4          ;RB4是否按下？
       GOTO    RB4
       BTFSS   PORTB,5          ;RB5是否按下？
       GOTO    RB5

RE MOVFW STATUS_TEM ;中斷返回
MOVWF STATUS
SWAPF W_TEMP,1
SWAPF W_TEMP,0
RETFIE
RB4
BTFSS PORTB,4 ;等待RB4釋放
GOTO RB4
INCF PORTC_TEP,1 ;輸出加1
GOTO RE
RB5
BTFSS PORTB,5 ;等待RB5釋放
GOTO RB5
DECF PORTC_TEP,1 ;輸出減1
GOTO RE
;—————————————————————————————————————————————
;主程序
;—————————————————————————————————————————————
ST BSF STATUS,RP0 ;選擇數據存儲器體1
CLRF OPTION_REG ;開啟內部弱上拉
MOVLW 00H
MOVWF TRISC ;RC端口為輸出
MOVLW 30H
MOVWF TRISB ;R4,R5為輸入
BCF STATUS,RP0 ;選擇數據存儲器體0
MOVLW 88H
MOVWF INTCON ;總中斷和RB中斷使能
CLRF PORTB
CLRF PORTC ;PORTC輸出清零
CLRF PORTC_TEP ;臨時PORTC清零
MOVLW 00H
MOVWF PORTC ;PORTC輸出清零
CALL DELAY1 ;延時
LOOP MOVF PORTC_TEP,W ;取出臨時PORTC清零
MOVWF PORTC ;臨時PORTC加載
CALL DELAY1 ;延時
GOTO LOOP ;返回
;—————————————————————————————————————————————
;延時子程序
;—————————————————————————————————————————————
DELAY1
MOVLW 3FH ;外循環常數
MOVWF 20H ;外循環寄存器
L1 MOVLW 02H ;內循環常數
MOVWF 21H ;內循環寄存器
L2 DECFSZ 21H,1 ;內循環寄存器遞減
GOTO L2 ;繼續內循環
DECFSZ 20H,1 ;外循環寄存器遞減
GOTO L1 ;繼續外循環
RETURN ;子程序返回
;—————————————————————————————————————————————
END