;定義用戶寄存器
            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