;定義用戶(hù)寄存器
WEI1 EQU H’0C’ ;BIT0=MODS:選擇模式位 0:模式1 1:模式2

;BIT1=BREK:斷路判別位 0:無(wú)斷路 1:有斷路
;BIT2=
;BIT3=
;BIT4=
;BIT5=慢響
;BIT6=快響
;BIT7=長(zhǎng)響
WEI2 EQU H’0D’ ;“百位值運(yùn)算”的啟始值
WEI3 EQU H’0E’ ;“十位值運(yùn)算”的啟始值
WEI4 EQU H’0F’ ;個(gè)位值
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’ ;復(fù)位矢量
GOTO MAIN
ORG H’04’ ;中斷矢量
NOP
GOTO INTER
;************************************************************************
;數(shù)碼值
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 ;
;------------------------------------------------------------------------
;設(shè)置A/D通道及A/D結(jié)構(gòu)
BSF STATUS,RP0 ;
MOVLW B’00000010’ ;設(shè)置一個(gè)“A/D口”
MOVWF ADCON1 ;參考電壓：工作電壓5V
MOVLW B’10000000’ ;
MOVWF TRISB ;
MOVLW B’00000001’ ;
MOVWF TRISA ;
MOVLW B’10000111’ ;
MOVWF OPTION_REG ;
MOVLW B’10100000’ ;
MOVWF INTCON ;
;-----------------------------------------------------------------------
;設(shè)置端口“輸入/輸出”并設(shè)置初始狀態(tài)
BCF STATUS,RP0 ;
MOVLW B’01000000’ ;設(shè)置A/D通道：AN0
MOVWF ADCON0 ;選用內(nèi)部1：8時(shí)鐘振蕩
MOVLW B’01111111’ ;
MOVWF PORTB ;
MOVLW B’00010110’ ;
MOVWF PORTA ;
MOVLW D’252’ ;
MOVWF TMR0 ;設(shè)置TMR0初始值
;------------------------------------------------------------------------
;選擇模式
BTFSC WEI1,0 ;判斷“模式開(kāi)關(guān)”是否閉合
GOTO MODLE2 ;“模式開(kāi)關(guān)”閉合，則進(jìn)入“模式2”
GOTO MODLE1 ;“模式開(kāi)關(guān)”斷開(kāi)，則進(jìn)入“模式1”
;------------------------------------------------------------------------
;“模式1”初始化
MODLE1:
MOVF PORTB,1 ;
BTFSS PORTB,CHECK ;判斷是否有斷路
GOTO $+7 ;
BSF WEI1,1 ;
BSF WEI1,6 ;有斷路：蜂鳴器快響并且“無(wú)顯示”延時(shí)3秒
BCF WEI1,5 ;
BCF WEI1,7 ;
CALL DELAY3S ;無(wú)斷路：“無(wú)顯示”延時(shí)3秒
GOTO START ;
CALL DELAY3S ;
GOTO START ;
;------------------------------------------------------------------------
;“模式2”初始化 檢測(cè)數(shù)碼管各段，蜂鳴器“長(zhǎng)響 ”
MODLE2:
BSF WEI1,0 ;設(shè)置“模式選擇位”
BSF WEI1,7 ;打開(kāi)蜂鳴器“長(zhǎng)響 ”
BCF WEI1,5 ;
BCF WEI1,6 ;
BCF STATUS,C ;設(shè)置“進(jìn)位標(biāo)志位”
MOVLW B’11111111’ ;
MOVWF WEI7 ;
RLF WEI7,F ;
MOVF WEI7,W ;
MOVWF PORTB ;設(shè)置“檢測(cè)數(shù)碼管段值”給PORT5
BCF PORTA,R ;開(kāi)通“右數(shù)碼管”
BCF PORTA,L ;開(kāi)通“左數(shù)碼管”
CALL DELAYP5 ;
BSF PORTA,R ;關(guān)閉“右數(shù)碼管”
BSF PORTA,L ;關(guān)閉“左數(shù)碼管”
MOVLW B’11111111’ ;
MOVWF PORTB ;清除給PORT5的“檢測(cè)數(shù)碼管段值”
BTFSC WEI7,6 ;檢測(cè)是否完畢
GOTO $-D’11’ ;沒(méi)有完畢 繼續(xù)檢測(cè)
BCF PORTA,DP ;已完畢 設(shè)置“小數(shù)點(diǎn)”及“1”值
BCF PORTA,R ;開(kāi)通“右數(shù)碼管”
BCF PORTA,L ;開(kāi)通“左數(shù)碼管”
CALL DELAYP5 ;
BSF PORTA,R ;關(guān)閉“右數(shù)碼管”
BSF PORTA,L ;關(guān)閉“左數(shù)碼管”
BSF PORTA,DP ;清除“小數(shù)點(diǎn)”及“1”值
BCF WEI1,7 ;關(guān)閉蜂鳴器“長(zhǎng)響 ”
BCF WEI1,6 ;
BCF WEI1,5 ;
GOTO START ;
;------------------------------------------------------------------------
;開(kāi)始工作
START:
MOVF PORTB,F ;
BTFSC PORTB,CHECK ;判斷是否有斷路
GOTO DUANLU ;有斷路
BCF WEI1,1 ;清0斷路判別位
GOTO PANZHI ;無(wú)斷路
;------------------------------------------------------------------------
;斷路處理
DUANLU:
BSF WEI1,1 ;設(shè)置斷路判別位
BSF WEI1,6 ;
BCF WEI1,5 ;
BCF WEI1,7 ;
GOTO PANZHI ;
;------------------------------------------------------------------------
;判斷電壓值
PANZHI:
BSF ADCON0,ADON ;A/D處于工作狀態(tài)
BSF ADCON0,GO_DONE ;A/D開(kāi)始運(yùn)行
BTFSC ADCON0,GO_DONE ;判A/D是否完成
GOTO $-1 ;A/D沒(méi)完成
BCF ADCON0,ADIF ;
BCF ADCON0,ADON ;A/D已完成 關(guān)閉A/D
CALL CV ;
MOVF ADRES,W ;
MOVWF WEI8 ;
MOVWF WEI2 ;A/D值傳給WEI2
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBLW D’200’ ;
BTFSS STATUS,C
GOTO V_20 ;跳到“20V以上”程序
MOVF ADRES,W
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBLW D’160’
BTFSS STATUS,C
GOTO V16 ;跳到“16V-19.9V之間”程序
MOVF ADRES,W
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBLW D’100’
BTFSS STATUS,C
GOTO V10 ;跳到“10V-15.9V之間”程序
MOVF ADRES,W
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBLW D’50’
BTFSS STATUS,C
GOTO V5 ;跳到“5V-9.9V之間”程序
GOTO V4.9 ;跳到4.9V以下程序
;-------------------------------------------------------------------------
V4.9: ;4.9V以下 數(shù)碼管顯示LL
BTFSC WEI1,1 ;判斷是否有斷路
GOTO $+6 ;
BSF WEI1,7 ;無(wú)斷路 長(zhǎng)響
BCF WEI1,6 ;
BCF WEI1,5 ;
CALL LL ;
GOTO START ;
BSF WEI1,6 ;有斷路 快響
BCF WEI1,5 ;
BCF WEI1,7 ;
CALL LL ;
GOTO START ;
;-------------------------------------------------------------------------
V5: ;5V-9.9V之間
BTFSC WEI1,1 ;判斷是否有斷路
GOTO $+5 ;
BSF WEI1,5 ;無(wú)斷路 慢響
BCF WEI1,6 ;
BCF WEI1,7 ;
GOTO DISPLAY ;
BSF WEI1,6 ;有斷路 快響
BCF WEI1,5 ;
BCF WEI1,7 ;
GOTO DISPLAY ;
;-------------------------------------------------------------------------
V10: ;10V-15.9V之間
BTFSC WEI1,1 ;判斷是否有斷路
GOTO $+5 ;
BCF WEI1,5 ;無(wú)斷路 不響
BCF WEI1,6 ;
BCF WEI1,7 ;
GOTO DISPLAY ;
BSF WEI1,6 ;有斷路 快響
BCF WEI1,5 ;
BCF WEI1,7 ;
GOTO DISPLAY ;
;-------------------------------------------------------------------------
V16: ;16V-19.9V
BSF WEI1,6 ;快響
BCF WEI1,5 ;
BCF WEI1,7 ;
GOTO DISPLAY ;
;-------------------------------------------------------------------------
V_20:
BTFSC WEI1,1 ;判斷是否有斷路
GOTO $+6 ;
BSF WEI1,7 ;無(wú)斷路 長(zhǎng)響
BCF WEI1,6 ;
BCF WEI1,5 ;
CALL HH ;
GOTO START ;
BSF WEI1,6 ;有斷路 快響
BCF WEI1,5 ;
BCF WEI1,7 ;
CALL HH ;
GOTO START ;
;-------------------------------------------------------------------------
;運(yùn)算“顯示值”
DISPLAY:
NOP ;
HUN:
MOVF WEI2,W ;
MOVWF WEI3 ;WEI2-100D的余值傳給WEI3作為“十位值運(yùn)算”的啟始值
MOVLW D’100’
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBWF WEI2,F ;WEI2-100D余值傳給WEI2
BTFSS STATUS,C ;判WEI2是否大于100D
GOTO TEN ;小于100D 跳到“十位值運(yùn)算”處
INCF WEI5,F ;大于100D WEI5+1：百位值
GOTO HUN
TEN:
MOVF WEI3,W ;
MOVWF WEI4 ;
MOVLW D’10’ ;WEI3-10D的余值傳給WEI4作為“個(gè)位值運(yùn)算”的啟始值
BCF STATUS,C ;清零“進(jìn)位標(biāo)志位”
SUBWF WEI3,F ;WEI3-10D余值傳給WEI3
BTFSS STATUS,C ;判WEI2是否大于10D
GOTO NUMB ;小于10D 跳到“個(gè)位值運(yùn)算”處
INCF WEI6,F ;大于10D WEI6+1：十位值
GOTO TEN
;------------------------------------------------------------------------
;顯示“十位值”“小數(shù)點(diǎn)”
NUMB:
MOVF WEI6,W
CALL TABLE ;
MOVWF PORTB ;設(shè)置“十位值”
BCF PORTA,DP ;設(shè)置小數(shù)點(diǎn)
BCF PORTA,L ;打開(kāi)顯示“十位值”
CALL DELAY ;
MOVLW B’11111111’ ;
MOVWF PORTB ;清除“十位值”
BSF PORTA,DP ;清除小數(shù)點(diǎn)
BSF PORTA,L ;關(guān)閉顯示“十位值”
;------------------------------------------------------------------------
;顯示“個(gè)位值” “百位值”
MOVF WEI4,W
CALL TABLE
MOVWF PORTB ;設(shè)置“個(gè)位值”
BCF STATUS,Z ;清除“零標(biāo)志位”
CLRW ;清除W
IORWF WEI5,W ;
BTFSS STATUS,Z ;判有無(wú)“百位值”
BCF PORTA,DP ;顯示“百位值”
BCF PORTA,R ;打開(kāi)顯示“個(gè)位值”
CALL DELAY ;
MOVLW B’11111111’ ;
MOVWF PORTB ;清除“個(gè)位值”
BSF PORTA,DP ;清除“百位值”
BSF PORTA,R ;關(guān)閉顯示“個(gè)位值”
CLRF WEI6 ;
CLRF WEI5 ;
GOTO START ;
;************************************************************************
;延時(shí)20MS秒程序
DELAY:
MOVLW D’10’ ;
MOVWF WEIE ;
DELAY1:
MOVLW D’10’ ;
MOVWF WEIF ;
DELAY2:
MOVLW D’10’ ;
MOVWF WEIG ;
DELAY3:
DECFSZ WEIG,F ;
GOTO DELAY3 ;
DECFSZ WEIF,F ;
GOTO DELAY2 ;
DECFSZ WEIE,F ;
GOTO DELAY1 ;
RETURN ;
;------------------------------------------------------------------------
;延時(shí)0.5秒程序
DELAYP5:
CLRF WEI9 ;
CLRF WEIA ;
BTFSS WEIA,2 ;
GOTO $-1 ;
CLRF WEI9 ;
CLRF WEIA ;
RETURN ;
;------------------------------------------------------------------------
;延時(shí)3秒程序
DELAY3S:
CLRF WEI9 ;
CLRF WEIA ;
BTFSS WEIA,4 ;
GOTO $-1 ;
CLRF WEI9 ;
CLRF WEIA ;
RETURN ;
;------------------------------------------------------------------------
CV:
BTFSS WEI1,0 ;
RETURN ;
MOVLW B’11100000’ ;
ANDWF WEI1,W ;
BTFSS STATUS,Z ;
RETURN ;
MOVF ADRES,W ;
XORWF WEI8,W ;
BTFSS STATUS,Z ;
GOTO CLEAR ;
BTFSS WEIA,4 ;
RETURN ;
BSF INTCON,RBIE ;使能PORTB引腳電平變化中斷
BCF INTCON,GIE ;禁止全局中斷
BCF INTCON,T0IE ;
MOVF PORTB,F ;讀狀態(tài)
SLEEP ;進(jìn)入休眠狀態(tài)
NOP ;
CLRF INTCON ;
BSF INTCON,GIE ;
BSF INTCON,T0IE ;
CLRF WEI9 ;
CLRF WEIA ;
RETURN ;
CLEAR:
CLRF WEI9 ;
CLRF WEIA ;
RETURN ;
;------------------------------------------------------------------------
LL:
MOVLW B’11000111’ ;
MOVWF PORTB ;
BCF PORTA,L ;
BCF PORTA,R ;
CALL DELAY ;
MOVLW B’11111111’ ;
MOVWF PORTB ;
BSF PORTA,L ;
BSF PORTA,R ;
RETURN
;------------------------------------------------------------------------
HH:
MOVLW B’10001001’ ;
MOVWF PORTB ;
BCF PORTA,L ;
BCF PORTA,R ;
CALL DELAY ;
MOVLW B’11111111’ ;
MOVWF PORTB ;
BSF PORTA,L ;
BSF PORTA,R ;
RETURN
;************************************************************************
;TMR0中斷
INTER:
MOVWF WEIH ;W，STATUS壓入堆棧
SWAPF STATUS,W ;
MOVWF WEII ;
BCF INTCON,T0IF ;
MOVLW D’252’ ;
MOVWF TMR0 ;設(shè)置TMR0初始值
INCFSZ WEI9,F ;
GOTO $+2 ;
INCF WEIA,F ;
MOVLW B’11100000’ ;
ANDWF WEI1,W ;
BTFSC STATUS,Z ;
GOTO OUT2 ;
MOVLW B’00001000’ ;
XORWF PORTA,F ;
BTFSS WEI1,6 ;
GOTO $+D’10’ ;
INCFSZ WEIB,F ;
GOTO OUT ;
BCF PORTA,BUZZER ;
BSF STATUS,RP0 ;
MOVF TRISA,W ;
XORLW B’00001000’ ;
MOVWF TRISA ;
BCF STATUS,RP0 ;
GOTO OUT ;
;------------------------------------------------------------------------
BTFSS WEI1,5 ;
GOTO OUT1 ;
INCFSZ WEIC,F ;
GOTO OUT ;
INCF WEID,F ;
BTFSS WEID,2 ;
GOTO OUT ;
CLRF WEIC ;
CLRF WEID ;
BCF PORTA,BUZZER ;
BSF STATUS,RP0 ;
MOVF TRISA,W ;
XORLW B’00001000’ ;
MOVWF TRISA ;
BCF STATUS,RP0 ;
GOTO OUT ;
OUT1:
BSF STATUS,RP0 ;
MOVF TRISA,W ;
ANDLW B’11110111’ ;
MOVWF TRISA ;
BCF STATUS,RP0 ;
GOTO OUT ;
OUT2:
BCF PORTA,BUZZER ;
OUT:
SWAPF WEII,W ;W，STATUS彈出堆棧
MOVWF STATUS ;
SWAPF WEIH,F ;
SWAPF WEIH,W ;
RETFIE ;允許中斷并返回
END