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

几种警笛声音的PIC程序

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

    BCF PORTA,0
    MOVLW 125
    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:35:14

;ST套件产生治安音
;本实例的目的是让大家学会用单片机产生声音的方法，学会计算程序所用时间
;本实例的功能是能PIC16F84产生治安音，频率分两个0.4s第一个
;0.4S频率从1.8K-2.2K匀速增加第二个0.4S频率从2.2K-1.8K匀速减少,
;程序复位后,蜂鸣器开始报警
;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    ;声音频率变化计数器，从0.8~2.2KHZ
FRE_COUNT EQU 11H      ;同一频率的重复次数保存地址
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         ;同一频率重复次数   5*132个变化点*(1S/1.5KHZ)=0.4S
;--------------------
    ORG 0000H
MAIN
    CLRF PORTA         ;初始化IO口

    BSF STATUS,RP0     ;设置数据寄存器体1
    MOVLW 0000000B
    MOVWF TRISA        ;设置RA端口全部为输出
    BCF STATUS,RP0     ;恢复数据寄存器体0
LOOP
    CALL SOUND800MS    ;调用报警800MS子程序
    GOTO LOOP          ;反复循环报警
;-------------------------------
SOUND800MS
    MOVLW S_LOOP
    MOVWF FRE_COUNT     ;132=208-76 最低频率的计数减去最高频率的计数等于频率变化的次数
SOUND_LH_LP
    MOVLW S_REPEAT      ;同一频率重复次数送FRE_REPEAT
    MOVWF FRE_REPEAT
    MOVFW FRE_COUNT
    ADDLW S_MIN        ;计数值加最小值
    MOVWF TEMP
REPEAT0_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0   ;廷时W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1 ;每五次减频率计数一次
    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    ;同一频率重复次数送FRE_REPEAT
    MOVWF FRE_REPEAT
    MOVFW FRE_COUNT
    SUBLW S_MAX       ;最大值减计数值
    MOVWF TEMP
REPEAT1_LP
    MOVFW TEMP
    BSF PORTA,0
    CALL SOUNDDELAY0    ;廷时W*3US
    BCF PORTA,0
    MOVFW TEMP
    CALL SOUNDDELAY0
    DECFSZ FRE_REPEAT,1;五次减频率计数一次
    GOTO REPEAT1_LP
    DECFSZ FRE_COUNT,1
    GOTO SOUND_HL_LP
SOUND_END
    RETLW 0
;------------------------------
SOUNDDELAY0
    MOVWF SOUNDDELAY1     ;廷时W*3US+1US
SOUNDDELAYUS_1
    DECFSZ SOUNDDELAY1,1
    GOTO SOUNDDELAYUS_1
    RETLW 0
;------------------------
    END