用PIC16C711做的直流电压表---原理图,源程序

;定义用户寄存器
            WEI1   EQU H’0C’     ;BIT0=MODS:选择模式位  0:模式1  1:模式2
                                 ;BIT1=BREK:断路判别位  0:无断路 1:有断路
                                 ;BIT2=
                                 ;BIT3=
                                 ;BIT4=
                                 ;BIT5=慢响
                                 ;BIT6=快响
                                 ;BIT7=长响
            WEI2   EQU H’0D’     ;“百位值运算”的启始值
            WEI3   EQU H’0E’     ;“十位值运算”的启始值
            WEI4   EQU H’0F’     ;个位值
            WEI5   EQU H’10’     ;百位值
            WEI6   EQU H’11’     ;十位值
            WEI7   EQU H’12’     ;
            WEI8   EQU H’13’     ;
            WEI9   EQU H’14’     ;
            WEIA   EQU H’15’     ;
            WEIB   EQU H’16’

   WEIC   EQU H’17’
            WEID   EQU H’18’
            WEIE   EQU H’19’
            WEIF   EQU H’1A’
            WEIG   EQU H’1B’     
            WEIH   EQU H’1C’
            WEII   EQU H’1D’   
            CHECK  EQU H’7’
            DP     EQU H’1’
            AD     EQU H’0’
            BUZZER EQU H’3’
            R      EQU H’2’
            L      EQU H’4’
;************************************************************************
;矢量地址
            ORG    H’00’        ;复位矢量
            GOTO  MAIN
            ORG    H’04’        ;中断矢量
            NOP                            
            GOTO  INTER   
;********************************************************************

****
;数码值
TABLE:   
            ADDWF  PCL,F             ;
            RETLW    B’01000000’     ;“0”值
            RETLW    B’01111001’     ;“1”值
            RETLW    B’00100100’     ;“2”值
            RETLW    B’00110000’     ;“3”值
            RETLW    B’00011001’     ;“4”值
            RETLW    B’00010010’     ;“5”值
            RETLW    B’00000010’     ;“6”值
            RETLW    B’01011000’     ;“7”值
            RETLW    B’00000000’     ;“8”值
            RETLW    B’00010000’     ;“9”值
;------------------------------------------------------------------------
;清除寄存器WEI1-WEIG         
MAIN:       

 CLRF  WEI1         ;
            CLRF  WEI2         ;
            CLRF  WEI3         ;
            CLRF  WEI4         ;
            CLRF  WEI5         ;
            CLRF  WEI6         ;
            CLRF  WEI7         ;
            CLRF  WEI8         ;
            CLRF  WEI9         ;
            CLRF  WEIA         ;
            CLRF  WEIB         ;
            CLRF  WEIC         ;
            CLRF  WEID         ;
            CLRF  WEIE         ;
            CLRF  WEIF         ;
            CLRF  WEIG         ;           
            CLRF  WEIH         ;
            CLRF  WEII         ;  
            BSF    STATUS,RP0  ;
            BCF    OPTION_REG,NOT_RBPU
            BCF    STATUS,RP0  ;
            MOVF   PORTB,1     ;
            BTFSS  PORTB,1     ;
            BSF    WEI1,0      ;
;------------------------------------------------------------------------ 

 CLRF  WEI1         ;
            CLRF  WEI2         ;
            CLRF  WEI3         ;
            CLRF  WEI4         ;
            CLRF  WEI5         ;
            CLRF  WEI6         ;
            CLRF  WEI7         ;
            CLRF  WEI8         ;
            CLRF  WEI9         ;
            CLRF  WEIA         ;
            CLRF  WEIB         ;
            CLRF  WEIC         ;
            CLRF  WEID         ;
            CLRF  WEIE         ;
            CLRF  WEIF         ;
            CLRF  WEIG         ;           
            CLRF  WEIH         ;
            CLRF  WEII         ;  
            BSF    STATUS,RP0  ;
            BCF    OPTION_REG,NOT_RBPU
            BCF    STATUS,RP0  ;
            MOVF   PORTB,1     ;
            BTFSS  PORTB,1     ;
            BSF    WEI1,0      ;
;------------------------------------------------------------------------ 

;选择模式
            BTFSC  WEI1,0      ;判断“模式开关”是否闭合
            GOTO   MODLE2      ;“模式开关”闭合，则进入“模式2”
            GOTO   MODLE1      ;“模式开关”断开，则进入“模式1”
;------------------------------------------------------------------------
;“模式1”初始化
MODLE1:     
            MOVF   PORTB,1      ;
            BTFSS  PORTB,CHECK  ;判断是否有断路
            GOTO