--  給你幾個(gè)程序參考

;ST套件產(chǎn)生報(bào)警音
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生報(bào)警音，頻率分兩個(gè)0.1s第一個(gè)
;0.1S頻率從1.8K-3.5K勻速增加第二個(gè)0.1S頻率從3.5K-1.8K勻速減少,
;程序復(fù)位后,蜂鳴器開始報(bào)警
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;聲音頻率變化計(jì)數(shù)器，從1.8~3.55KHZ
FRE_COUNT EQU 11H      ;同一頻率的重復(fù)次數(shù)保存地址
FRE_REPEAT EQU 12H    
SOUND_TEMP EQU 13H
TEMP EQU 14H           ;暫存寄存器
S_LOOP EQU 46          ;93-47=46
S_MAX EQU 93           ;最低頻率1.8K  93*3=280US*2
S_MIN EQU 47           ;最高頻率3.55K  47*3=140*2
S_REPEAT EQU 4         ;同一頻率重復(fù)次數(shù)
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
LOOP
    CALL SOUND200MS    ;調(diào)用報(bào)警200MS子程序
    GOTO LOOP         ;反復(fù)循環(huán)報(bào)警
;-------------------------------
SOUND200MS
    MOVLW S_LOOP
    MOVWF FRE_COUNT     ;46=93-47 最低頻率的計(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 TEMP
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷時(shí)W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1 ;每四次減頻率計(jì)數(shù)一次
    GOTO REPEAT0_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_LH_LP
SOUND_HL
    MOVLW S_LOOP
    MOVWF FRE_COUNT   ;46=93-47
SOUND_HL_LP
    MOVLW S_REPEAT    ;同一頻率重復(fù)次數(shù)送FRE_REPEAT
    MOVWF FRE_REPEAT
    MOVFW FRE_COUNT
    SUBLW S_MAX       ;最大值減計(jì)數(shù)值
    MOVWF TEMP
REPEAT1_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷時(shí)W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1;四次減頻率計(jì)數(shù)一次
    GOTO REPEAT1_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*3US+1US
SOUNDDELAYUS_1
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者：陳學(xué)乾
--  發(fā)布時(shí)間：2004-8-26 12:33:25

-- 

;ST套件產(chǎn)生450hz低音
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生低音，
;450HZ,相當(dāng)于450HZ的方波信號(hào)發(fā)生器。
;程序復(fù)位后,蜂鳴器開始發(fā)音
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;聲音頻率變化計(jì)數(shù)器，從1.1K~0.5KHZ
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
SOUND
    MOVLW 222           ;450HZ反復(fù)循環(huán)
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷時(shí)W*5US
    BCF PORTA,0
    MOVLW 222
    CALL SOUNDDELAY0
    GOTO SOUND
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*5US+1US
SOUNDDELAYUS_1
    NOP
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者：陳學(xué)乾
--  發(fā)布時(shí)間：2004-8-26 12:33:56

-- 

;ST套件產(chǎn)生救護(hù)音
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生救護(hù)音，頻率分兩個(gè)1S第一個(gè)
;1S頻率是440HZ,第二個(gè)1S頻率是180HZ,反復(fù)循環(huán)
;程序復(fù)位后,蜂鳴器開始報(bào)警
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H
TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H      ;聲音頻率高低電平廷時(shí)計(jì)數(shù)器
FRE_REPEATH EQU 11H      ;同一頻率的重復(fù)次數(shù)外部循環(huán)
FRE_REPEATL EQU 12H      ;同一頻率的重復(fù)次數(shù)內(nèi)部循環(huán)
TEMP EQU 14H           ;暫存寄存器
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
LOOP
    CALL SOUND2S       ;調(diào)用報(bào)警200MS子程序
    GOTO LOOP          ;反復(fù)循環(huán)報(bào)警
;-------------------------------
SOUND2S                          ;先440HZ 1S
    MOVLW 189
    MOVWF TEMP         ;440HZ頻率高低電平廷時(shí)值送TEMP 1S/[(189*6)US*2]=440HZ
    MOVLW 2             ;同一頻率重復(fù)次數(shù)外部循環(huán)送初值
    MOVWF FRE_REPEATH
SOUND2S_1
    MOVLW 220
    MOVFW FRE_REPEATL     ;同一頻率重復(fù)次數(shù)內(nèi)部循環(huán)送初值220*2=440次,440HZ頻率重復(fù)440次即1S
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷時(shí)W*6US 440hz正半周
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0    ;廷時(shí)W*6US 440hz負(fù)半周
    DECFSZ FRE_REPEATL,1
    GOTO REPEAT0_LP
    DECFSZ FRE_REPEATH,1    ;同一頻率持續(xù)1S
    GOTO SOUND2S_1
SOUND2S_B                  ;再180HZ  1S
    MOVLW 231
    MOVWF TEMP         ;180HZ頻率高低電平廷時(shí)值送TEMP 1S/[(231*2*6)US*2]=180HZ
    MOVLW 180
    MOVFW FRE_REPEATL     ;同一頻率重復(fù)次數(shù)送初值180HZ頻率重復(fù)180次即1S
REPEAT0_LP_B
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷時(shí)W*6US*2  180HZ正半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0   ;廷時(shí)W*6US*2  180HZ負(fù)半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEATL,1  ;同一頻率持續(xù)1S
    GOTO REPEAT0_LP_B
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*6US+1US
SOUNDDELAYUS_1
    nop
    nop
    nop
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者：陳學(xué)乾
--  發(fā)布時(shí)間：2004-8-26 12:34:23

-- 

;ST套件產(chǎn)生開道音
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生開道音，每一個(gè)3S內(nèi)頻率
;從1.1K-0.5K勻速減少,反復(fù)循環(huán)。
;程序復(fù)位后,蜂鳴器開始報(bào)警
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;聲音頻率變化計(jì)數(shù)器，從1.1K~0.5KHZ
FRE_COUNT EQU 11H      ;同一頻率的重復(fù)次數(shù)保存地址
FRE_REPEAT EQU 12H    
SOUND_TEMP EQU 13H
TEMP EQU 14H           ;暫存寄存器
S_LOOP EQU 136         ;250-114=136
S_MAX EQU 250           ;最低頻率0.5K  250*4=1000 *2
S_MIN EQU 114           ;最高頻率1.1K  114*4=456 *2
S_REPEAT EQU 17         ;同一頻率重復(fù)次數(shù)
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
LOOP
    CALL SOUND3S    ;調(diào)用報(bào)警3S子程序
    GOTO LOOP         ;反復(fù)循環(huán)報(bào)警
;-------------------------------
SOUND3S
    MOVLW S_LOOP
    MOVWF FRE_COUNT   ;136=250-114
SOUND_HL_LP
    MOVLW S_REPEAT    ;同一頻率重復(fù)次數(shù)送FRE_REPEAT
    MOVWF FRE_REPEAT
    MOVFW FRE_COUNT
    SUBLW S_MAX       ;最大值減計(jì)數(shù)值
    MOVWF TEMP
REPEAT1_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷時(shí)W*4US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1;17次減頻率計(jì)數(shù)一次
    GOTO REPEAT1_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*4US+1US
SOUNDDELAYUS_1
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者：陳學(xué)乾
--  發(fā)布時(shí)間：2004-8-26 12:34:47

-- 

;ST套件產(chǎn)生汽笛音800HZ
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生汽笛音800HZ
;相當(dāng)于800HZ的方波信號(hào)發(fā)生器。
;程序復(fù)位后,蜂鳴器開始發(fā)音
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;聲音頻率變化計(jì)數(shù)器，從1.1K~0.5KHZ
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
SOUND
    MOVLW 125           ;800HZ反復(fù)循環(huán)
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷時(shí)W*5US
    BCF PORTA,0
    MOVLW 125
    CALL SOUNDDELAY0
    GOTO SOUND
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*5US+1US
SOUNDDELAYUS_1
    NOP
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

--------------------------------------------------------------------------------

--  作者：陳學(xué)乾
--  發(fā)布時(shí)間：2004-8-26 12:35:14

-- 

;ST套件產(chǎn)生治安音
;本實(shí)例的目的是讓大家學(xué)會(huì)用單片機(jī)產(chǎn)生聲音的方法，學(xué)會(huì)計(jì)算程序所用時(shí)間
;本實(shí)例的功能是能PIC16F84產(chǎn)生治安音，頻率分兩個(gè)0.4s第一個(gè)
;0.4S頻率從1.8K-2.2K勻速增加第二個(gè)0.4S頻率從2.2K-1.8K勻速減少,
;程序復(fù)位后,蜂鳴器開始報(bào)警
;PIC單片機(jī)學(xué)習(xí)網(wǎng)-----http://www.pic16.com
;燒寫時(shí)應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時(shí)會(huì)自動(dòng)加載，燒寫時(shí)不用再手動(dòng)設(shè)置配置位。
;實(shí)驗(yàn)時(shí)請(qǐng)注意套件跳線選擇；
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認(rèn)為十進(jìn)制
;-----------------------------------------------------
  __CONFIG B\\\11111111110001\\\;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護(hù)
                                              ;看門狗關(guān)閉
                                              ;上電廷時(shí)器開啟
                                              ;振蕩器模式為XT
;-----------------------------------------------------
RTCC EQU 01H                ;定義各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;聲音頻率變化計(jì)數(shù)器，從0.8~2.2KHZ
FRE_COUNT EQU 11H      ;同一頻率的重復(fù)次數(shù)保存地址
FRE_REPEAT EQU 12H    
SOUND_TEMP EQU 13H
TEMP EQU 14H           ;暫存寄存器
S_LOOP EQU 132          ;208-76=132
S_MAX EQU 208           ;最低頻率0.8K  208*3=624US *2
S_MIN EQU 76           ;最高頻率2.2K  76*3=228 *2
S_REPEAT EQU 5         ;同一頻率重復(fù)次數(shù)   5*132個(gè)變化點(diǎn)*(1S/1.5KHZ)=0.4S
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;設(shè)置數(shù)據(jù)寄存器體1
    MOVLW 0000000B
    MOVWF TRISA        ;設(shè)置RA端口全部為輸出
    BCF STATUS,RP0     ;恢復(fù)數(shù)據(jù)寄存器體0
LOOP
    CALL SOUND800MS    ;調(diào)用報(bào)警800MS子程序
    GOTO LOOP          ;反復(fù)循環(huán)報(bào)警
;-------------------------------
SOUND800MS
    MOVLW S_LOOP
    MOVWF FRE_COUNT     ;132=208-76 最低頻率的計(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 TEMP
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0      
    CALL SOUNDDELAY0   ;廷時(shí)W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1 ;每五次減頻率計(jì)數(shù)一次
    GOTO REPEAT0_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_LH_LP
SOUND_HL
    MOVLW S_LOOP
    MOVWF FRE_COUNT   ;132=208-76
SOUND_HL_LP
    MOVLW S_REPEAT    ;同一頻率重復(fù)次數(shù)送FRE_REPEAT
    MOVWF FRE_REPEAT
    MOVFW FRE_COUNT
    SUBLW S_MAX       ;最大值減計(jì)數(shù)值
    MOVWF TEMP
REPEAT1_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷時(shí)W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1;五次減頻率計(jì)數(shù)一次
    GOTO REPEAT1_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷時(shí)W*3US+1US
SOUNDDELAYUS_1
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END