【正文】 B39。0000000139。 。將0DH送到w，***** MOVWF PORTD 。將0DH送到portd MOVLW B39。0000001039。 。 MOVWF PORTE 。將02h送到porte BCF PORTE,1 。將porte的第一個(gè)位置清0 MOVLW B39。0010000039。 。 MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0101000039。 。P MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100110039。 。L MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100010139。 。E MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100000139。 。A MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0101001139。 。S MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100010139。 。E MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0010000039。 。 MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0101001039。 。R MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100010139。 。E MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0101001139。 。S MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0100010139。 。E MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0101010039。 。T MOVWF PORTD CALL ENABLE CALL DELAY1MS MOVLW B39。0010000139。 ! MOVWF PORTD CALL ENABLE CALL DELAY1MS CALL SPEAKER GOTO STOP。**********************************************ENABLE MOVLW B39。0000001139。 。將03h存入w MOVWF PORTE 。將03h存入porte NOP NOP NOP BCF PORTE,0 CALL DELAY1MS RETURN。***********************************************DELAY100MS MOVLW D39。13339。 。外循環(huán)變量初始值經(jīng)W轉(zhuǎn)送M MOVWF M LOOP1 MOVLW D39。25139。 。內(nèi)循環(huán)變量初始值經(jīng)W轉(zhuǎn)送N MOVWF N LOOP2 DECFSZ N,1 。N1=0?是!跳出內(nèi)層循環(huán) GOTO LOOP2 。否!循環(huán)回去 DECFSZ M,1 。M1=0?是!跳出循環(huán) GOTO LOOP1 。否!循環(huán)回去 RETURN 。返回調(diào)用程序。***************發(fā)聲1s(1s=10x(50ms+50ms))***********TONE1S MOVLW .10 。循環(huán)次數(shù)計(jì)數(shù)器賦予初值 MOVWF COUNT1 。T1LOP CALL TONE630 。 CALL DELAY1MS CALL TONE630 。 DECFSZ COUNT1,F 。循環(huán)次數(shù)遞減，為0，跳一步 GOTO T1LOP 。不為0，跳回 RETURN 。*****低音調(diào)**************TONE500 MOVLW .50 。 MOVWF COUNT2 。50=T5LOP BCF INTCON,T0IF 。清除TMR0溢出中斷標(biāo)志位 MOVLW .190 。256125=131 MOVWF TMR0 。啟動(dòng)定時(shí)器T5HERE BTFSS INTCON,T0IF 。定時(shí)器溢出否 GOTO T5HERE 。否，循環(huán)檢測(cè) MOVLW B39。0001000039。 。只將bit0置位 MOVWF PORTC 。只將RA3腳電平反轉(zhuǎn)，其余不變 DECFSZ COUNT2,F 。循環(huán)次數(shù)遞減，為0，跳一步 GOTO T5LOP 。不為0，跳回 RETURN 。*******高音調(diào)**************TONE630 MOVLW .63 。 MOVWF COUNT3 。T6LOP BCF INTCON,T0IF 。 MOVLW .220 。 MOVWF TMR0 。T6HERE BTFSS INTCON,T0IF 。 GOTO T6HERE 。 MOVLW B39。0001000039。 。 MOVWF PORTC 。 XORWF PORTA,F 。 DECFSZ COUNT2,F 。 GOTO T6LOP 。 RETURN 。********斷續(xù)發(fā)聲3次報(bào)警********************TONE3T MOVLW .3 。 MOVWF COUNT4 。T3LOP CALL TONE1S 。 CALL DELAY1S 。 DECFSZ COUNT4,F 。 GOTO T3LOP 。 RETURN 。***********TMR0延時(shí)1s(16x256x(25612)us)***************DELAY1S BSF STATUS,RP0 。設(shè)置文件寄存器的體1 MOVF OPTION_REG,W 。保護(hù)選項(xiàng)寄存器內(nèi)容 MOVWF OPTION_TEMP 。 MOVLW 07H 。重設(shè)選項(xiàng)寄存器：上拉電阻啟用，INT下降沿觸發(fā) MOVWF OPTION_REG 。分頻器給TMR0，分頻比1：256 BCF STATUS,RP0 ?；謴?fù)到文件寄存器的體0 MOVLW .16 。循環(huán)利用TMR0定時(shí)16次 MOVWF COUNT3 。溢出次數(shù)計(jì)數(shù)器D1LOP BCF INTCON,T0IF 。清除TMR0溢出中斷標(biāo)志位 BCF INTCON,T0IE 。清除TMR0溢出中斷矢能位 MOVLW .12 。12=256244 MOVWF TMR0 。啟動(dòng)定時(shí)器HERE BTFSS INTCON,T0IF 。用查詢法檢測(cè)TMR0溢出否 GOTO HERE 。否，返回 DECFSZ COUNT3,F 。是，溢出次數(shù)減1，為0，則跳一步 GOTO D1LOP 。否，循環(huán)利用TMR0 BSF STATUS,RP0 。設(shè)置文件寄存器的體1 MOVF OPTION_TEMP,W ?；謴?fù)選項(xiàng)寄存器內(nèi)容 MOVWF OPTION_REG 。 BCF STATUS,RP0 ?；謴?fù)到文件寄存器的體0 RETURN。**********************************************。**********************************************SPEAKER CLRF PORTC 。初始化IO口 BSF STATUS,RP0 。設(shè)置數(shù)據(jù)寄存器體1 MOVLW 0H MOVWF TRISC 。設(shè)置RC端口全部為輸出 BCF STATUS,RP0 。恢復(fù)數(shù)據(jù)寄存器體0LOOP CALL SOUND200MS 。調(diào)用報(bào)警200MS子程序 GOTO LOOP 。反復(fù)循環(huán)報(bào)警。SOUND200MS MOVLW S_LOOP MOVWF FRE_COUNT 。46=9347 最低頻率的計(jì)數(shù)減去最高頻率的計(jì)數(shù)等于頻率變化的次數(shù)SOUND_LH_LP MOVLW S_REPEAT 。同一頻率重復(fù)次數(shù)送FRE_REPEAT MOVWF FRE_REPEAT MOVFW FRE_COUNT ADDLW S_MIN 。計(jì)數(shù)值加最小值 MOVWF TEMP1REPEAT0_LP MOVFW TEMP1 BSF PORTC,4 CALL SOUNDDELAY0 。廷時(shí)W*3US BCF PORTC,4 MOVFW TEMP1 CALL SOUNDDELAY0 DECFSZ FRE_REPEAT,1 。每四次減頻率計(jì)數(shù)一次 GOTO REPEAT0_LP DECFSZ FRE_COUNT,1 GOTO SOUND_LH_LPSOUND_HL MOVLW S_LOOP MOVWF FRE_COUNT 。46=9347SOUND_HL_LP MOVLW S_REPEAT 。同一頻率重復(fù)次數(shù)送FRE_REPEAT MOVWF FRE_REPEAT MOVFW FRE_COUNT SUBLW S_MAX 。最大值減計(jì)數(shù)值 MOVWF TEMP1REPEAT1_LP MOVFW TEMP1 BCF PORTC,4 CALL SOUNDDELAY0 。廷時(shí)W*3US BSF PORTC,4 MOVFW TEMP1 CALL SOUNDDELAY0 DECFSZ FRE_REPEAT,1。四次減頻率計(jì)數(shù)一次 GOTO REPEAT1_LP DECFSZ FRE_COUNT,1 GOTO SOUND_LH_LP RETLW 0。SOUNDDELAY0 MOVWF SOUNDDELAY1 。廷時(shí)W*3US+1USSOUNDDELAYUS_1 DECFSZ SOUNDDELAY1,1 GOTO SOUNDDELAYUS_1 RETLW 0。 。**********************************************STO