PIC單片機外部中斷

ORG  000HGOTO A1ORG  04HGOTO ZD01A1   BSF  STATUS,RP0BCF  STATUS,RP1;體1MOVLW 0HMOVWF TRISA;設置A口為輸出口MOVLW   06H  MOVWF   ADCON1;設置A口為普通I/O口模式 movlw 0FFHmovwf TRISB;設定RB為輸入BCF  STATUS,RP0BCF  STATUS,RP1;體0MOVLW 0FFHMOVWF PORTA;A口輸出高電平BCF  INTCON,INTF;清中斷標志BSF  INTCON,INTE;開外部中斷BSF  INTCON,GIE;開總中斷GOTO $ZD01  BTFSS INTCON,INTF;判斷是否發生外部中斷GOTO ZD02 BCF  INTCON,INTF;清中斷標志BTFSS PORTB,0;;判斷觸發中斷鍵是否抬起避免產生2次中斷GOTO $-1;COMF PORTA,1;取反A口ZD02 RETFIE ;中斷標志END#INCLUDE"P16F877.inc"ORG  000HGOTO A1ORG  004H;定時中斷入口地址 GOTO ZD01;ORG  0CHA1   MOVLW 1;位1顯示數MOVWF 50H; MOVLW 2;位2顯示數MOVWF 51H;MOVLW 3;位3顯示數MOVWF 52H;MOVLW 4;位4顯示數MOVWF 53H;MOVLW 4;顯示位數MOVWF 40H;MOVLW B00000001;位碼MOVWF 41H;MOVLW 50H;MOVWF FSR ;間接尋址BSF  STATUS,RP0;選擇體1BCF  STATUS,RP1;MOVLW 00H;1:2TMRO比例MOVWF OPTION_REG;分頻1/2BCF  STATUS,RP0;體0BCF  STATUS,RP1;MOVLW 0FFH;MOVFW TMR0;初值BCF  INTCON,T0IF;清定時中斷標志BSF  INTCON,T0IE;開定時中斷BSF  INTCON,GIE;開總中斷A2   BTFSC PORTD,4GOTO A3MOVLW 1MOVWF 50HA3   BTFSC PORTD,5GOTO A4MOVLW 2MOVWF 50HA4   BTFSC PORTD,6GOTO A5MOVLW 3MOVWF 50HA5   BTFSC PORTD,7GOTO A6MOVLW 4MOVWF 50HA6   GOTO A2ZD01  BCF  INTCON,GIE;關總中斷BTFSS INTCON,T0IF;判斷是否產生定時中斷GOTO ZD03;否跳出是繼續執行BCF  INTCON,T0IFBSF  STATUS,RP0;體1BCF  STATUS,RP1;MOVLW 0;MOVWF TRISC;RB口設為輸出口MOVLW B11110000MOVWF TRISD;RD口設為輸出口BCF  STATUS,RP0;體0BCF  STATUS,RP1;MOVLW 0FFH;MOVWF PORTC;RB口輸出高電平MOVLW 0MOVWF PORTD;RD口輸出低電平起清屏作用MOVFW INDF;間接尋址顯示數據  CALL Q1;查數據表MOVWF PORTC;顯示斷碼輸出到RB口INCF FSR,1;間接尋址地址加1MOVFW 41H ;位碼MOVWF PORTD;位碼輸出到RD口RLF  41H,0;處理CRLF  41H,1;左移位碼DECFSZ 40H,1;判斷是否顯示完4位GOTO ZD02;否則繼續顯示MOVLW 4;顯示位數MOVWF 40H;MOVLW B00000001;位碼MOVWF 41H;MOVLW 50H;MOVWF FSR ;間接尋址ZD02  MOVLW 0FFH;MOVFW TMR0;重裝初值ZD03  BSF  INTCON,GIE;開總中斷RETFIE ;中斷返回;********************************************;    數據表;********************************************      Q1   ADDWF   PCL,1  RETLW     00C0H        ;0RETLW     00F9H        ;1RETLW     00A4H        ;2RETLW     00B0H        ;3RETLW     0099H        ;4RETLW     0092H        ;5RETLW     0082H        ;6RETLW     00F8H        ;7RETLW     0080H        ;8RETLW     0090H        ;9RETLW     0088H        ;ARETLW     0083H        ;BRETLW     00C6H        ;CRETLW     00A1H        ;DRETLW     0086H        ;ERETLW     008EH        ;FEND