#INCLUDE"P16F877.inc"
   ORG  000H
   GOTO A1
   ORG  04H
   GOTO ZD01
A1   BSF  STATUS,RP0
   BCF  STATUS,RP1;體1
   MOVLW 0H
   MOVWF TRISA;設置A口為輸出口
   MOVLW   06H  
   MOVWF   ADCON1;設置A口為普通I/O口模式 
   movlw 0FFH
   movwf TRISB;設定RB為輸入
   BCF  STATUS,RP0
   BCF  STATUS,RP1;體0
   MOVLW 0FFH
   MOVWF 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  000H
   GOTO A1
   ORG  004H;定時中斷入口地址 
   GOTO ZD01;
   ORG  0CH
A1   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 B'00000001';位碼
   MOVWF 41H;
   MOVLW 50H;
   MOVWF FSR ;間接尋址
   BSF  STATUS,RP0;選擇體1
   BCF  STATUS,RP1;
   MOVLW 00H;1:2TMRO比例
   MOVWF OPTION_REG;分頻1/2
   BCF  STATUS,RP0;體0
   BCF  STATUS,RP1;
   MOVLW 0FFH;
   MOVFW TMR0;初值
   BCF  INTCON,T0IF;清定時中斷標志
   BSF  INTCON,T0IE;開定時中斷
   BSF  INTCON,GIE;開總中斷

A2   BTFSC PORTD,4
   GOTO A3
   MOVLW 1
   MOVWF 50H
A3   BTFSC PORTD,5
   GOTO A4
   MOVLW 2
   MOVWF 50H
A4   BTFSC PORTD,6
   GOTO A5
   MOVLW 3
   MOVWF 50H
A5   BTFSC PORTD,7
   GOTO A6
   MOVLW 4
   MOVWF 50H
A6   GOTO A2
  
   
   
ZD01  BCF  INTCON,GIE;關總中斷
   BTFSS INTCON,T0IF;判斷是否產生定時中斷
   GOTO ZD03;否跳出是繼續執行
   BCF  INTCON,T0IF
   BSF  STATUS,RP0;體1
   BCF  STATUS,RP1;
   MOVLW 0;
   MOVWF TRISC;RB口設為輸出口
   MOVLW B'11110000'
   MOVWF TRISD;RD口設為輸出口
   BCF  STATUS,RP0;體0
   BCF  STATUS,RP1;
   MOVLW 0FFH;
   MOVWF PORTC;RB口輸出高電平
   MOVLW 0
   MOVWF PORTD;RD口輸出低電平起清屏作用
   
   MOVFW INDF;間接尋址顯示數據  
   CALL Q1;查數據表
   MOVWF PORTC;顯示斷碼輸出到RB口
   INCF FSR,1;間接尋址地址加1
   MOVFW 41H ;位碼
   MOVWF PORTD;位碼輸出到RD口
   RLF  41H,0;處理C
   RLF  41H,1;左移位碼
   DECFSZ 40H,1;判斷是否顯示完4位
   GOTO ZD02;否則繼續顯示
   MOVLW 4;顯示位數
   MOVWF 40H;
   MOVLW B'00000001';位碼
   MOVWF 41H;
   MOVLW 50H;
   MOVWF FSR ;間接尋址
ZD02  MOVLW 0FFH;
   MOVFW TMR0;重裝初值
ZD03  BSF  INTCON,GIE;開總中斷
   RETFIE ;中斷返回

;********************************************
;    數據表
;********************************************      
Q1   ADDWF   PCL,1  
    RETLW     00C0H        ;0
       RETLW     00F9H        ;1
        RETLW     00A4H        ;2
        RETLW     00B0H        ;3
      RETLW     0099H        ;4
      RETLW     0092H        ;5
      RETLW     0082H        ;6
      RETLW     00F8H        ;7
      RETLW     0080H        ;8
      RETLW     0090H        ;9
      RETLW     0088H        ;A
      RETLW     0083H        ;B
      RETLW     00C6H        ;C
      RETLW     00A1H        ;D
      RETLW     0086H        ;E
      RETLW     008EH        ;F
   END 

相關文章