几种警笛声音的PIC程序_PIC单片机

几种警笛声音的PIC程序

点击数：7900 次录入时间：03-04 12:03:42 整理：http://www.55dianzi.com PIC单片机

;-----------------------------------------------------
RTCC EQU 01H ;定义各寄存器
PC EQU 02H
STATUS EQU 03H
C EQU 0
RP0 EQU 5
;----------------------
PORTA EQU 05H

TRISA EQU 05H
;-----------------------
SOUNDDELAY1 EQU 10H    ;声音频率变化计数器，从1.1K~0.5KHZ
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
SOUND
    MOVLW 222           ;450HZ反复循环
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷时W*5US
    BCF PORTA,0
    MOVLW 222
    CALL SOUNDDELAY0
    GOTO SOUND
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*5US+1US
SOUNDDELAYUS_1
    NOP
    NOP
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END

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

-- 作者：陈学乾
-- 发布时间：2004-8-26 12:33:56

;ST套件产生救护音
;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间
;本实例的功能是能PIC16F84产生救护音，频率分两个1S第一个
;1S频率是440HZ,第二个1S频率是180HZ,反复循环
;程序复位后,蜂鸣器开始报警
;PIC 单片机学习网-----http://www.55dianzi.com
;烧写时应注意：配置位已经在程序中写明，加载HEX文件时会自动加载，烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择；
;*****************************************************
LIST P=16F84A,R=DEC         ;定义器件,默认为十进制
;-----------------------------------------------------
__CONFIG B\\\'11111111110001\\\';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为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      ;声音频率高低电平廷时计数器
FRE_REPEATH EQU 11H      ;同一频率的重复次数外部循环
FRE_REPEATL EQU 12H      ;同一频率的重复次数内部循环
TEMP EQU 14H           ;暂存寄存器
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND2S       ;调用报警200MS子程序
    GOTO LOOP          ;反复循环报警
;-------------------------------
SOUND2S                          ;先440HZ 1S
    MOVLW 189
    MOVWF TEMP         ;440HZ频率高低电平廷时值送TEMP 1S/[(189*6)US*2]=440HZ
    MOVLW 2             ;同一频率重复次数外部循环送初值
    MOVWF FRE_REPEATH
SOUND2S_1
    MOVLW 220
    MOVFW FRE_REPEATL     ;同一频率重复次数内部循环送初值220*2=440次,440HZ频率重复440次即1S
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0   ;廷时W*6US 440hz正半周
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0    ;廷时W*6US 440hz负半周
    DECFSZ FRE_REPEATL,1
    GOTO REPEAT0_LP
    DECFSZ FRE_REPEATH,1    ;同一频率持续1S
    GOTO SOUND2S_1
SOUND2S_B                  ;再180HZ 1S
    MOVLW 231
    MOVWF TEMP         ;180HZ频率高低电平廷时值送TEMP 1S/[(231*2*6)US*2]=180HZ
    MOVLW 180
    MOVFW FRE_REPEATL     ;同一频率重复次数送初值180HZ频率重复180次即1S
REPEAT0_LP_B
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0   ;廷时W*6US*2 180HZ正半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0   ;廷时W*6US*2 180HZ负半周
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEATL,1 ;同一频率持续1S
    GOTO REPEAT0_LP_B
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*6US+1US
SOUNDDELAYUS_1
    nop
    nop
    nop
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END