当前位置:首页 > 单片机 > 单片机
[导读] 以下程序要用二个定时器资源,凡是有二个定时器的PIC单片机均可实现,该范例需要的MCU是MICROChipPIC16C62INCLUDE"D:\\PIC\\P16XX.EQU";该文件在MICROCHIP光盘中可找到;*********************************

以下程序要用二个定时器资源,凡是有二个定时器的PIC单片机均可实现,该范例需要的MCU是MICROChipPIC16C62
INCLUDE"D:PICP16XX.EQU";该文件在MICROCHIP光盘中可找到
;**************************************************

#defineBeepOutRC,4
;**************************************************
W_TEMPEQU0X20;(0XA0)
STATUS_TEMPEQU0X21
BeepCntequ30h
TmrBakequ31h
BeepModeequ32h
Sflagequ33h
;**************************************************
CSTIME100MSequ.8;
;**************************************************
;Sflag
Fg_100msequ0
FgBeepequ1
;**************************************************
ORG000H;
GOTOMAIN;Skipoverinterruptvecter
ORG04H;InterruptVector
GOTOINTZ

;**************************************************
OkTab:
MOV fBeepCnt,w
addwfPCL,f
retlw.255-.130;0xf6;1;
retlw.255-.126;0xfa;2;
retlw.255-.119;0xfd;3;
retlw0
;**************************************************
WhisleTab:
MOV fBeepCnt,w
addwfPCL,f
retlw.255-.239;523Hz;0;
retlw.255-.179;698Hz;1;
retlw.255-.159;784Hz;2;
retlw.255-.119;1046Hz;3;
retlw.0
;**************************************************
HangTab:
MOV fBeepCnt,w
addwfPCL,f
retlw.255-.159;784Hz;0;
retlw.255-.119;1046Hz;1;
retlw.255-.150;830Hz;2;
retlw.255-.112;1109Hz;3;
retlw.255-.142;880Hz;4;
retlw.255-.106;1174Hz;5;
retlw.255-.134;932Hz;6;
retlw.255-.100;1244Hz;7
retlw.255-.126;988Hz;8;
retlw.255-.94;1318Hz;9;
retlw.255-.119;1046Hz;10;
retlw.255-.89;1397Hz;11;
retlw.0

;**************************************************
WelcomTab:
MOV fBeepCnt,w
addwfPCL,f
retlw.255-.89;1397Hz;11;
retlw.255-.119;1046Hz;10;
retlw.255-.94;1318Hz;9;
retlw.255-.126;988Hz;8;
retlw.255-.100;1244Hz;7
retlw.255-.134;932Hz;6;
retlw.255-.106;1174Hz;5;
retlw.255-.142;880Hz;4;
retlw.255-.112;1109Hz;3;
retlw.255-.150;830Hz;2;
retlw.255-.119;1046Hz;1;
retlw.255-.159;784Hz;0;
retlw.0
;**************************************************
BeepModeJmp:
addwfPCL,f
bpsWhisle;0
bpsOk;1
bpsHang;2
bpsWelcom;3
;**************************************************
IO_SET:
BANK1_
MOV LWB’11001011’
MOV WFTRISA
MOV LWB’00001100’
MOV wfTRISB
MOV LWB’00000011’
MOV wfTRISC;SetPort_Ctoalloutputs
BANK0_
RETURN
;**************************************************
SYS_SET:
BANK1_
MOV LWB’00000111’;1:256TMR0分频
MOV WFOPTION_R
BSFPIE1,TMR2IE;TMR2中断允许
BANK0_
MOV LWB’00000001’;开TMR1
MOV WFT1CON
bsfINTCON,TOIE;TMR0中断允许
BSFINTCON,PEIE;允许所有未被屏蔽之外围接口中断
RETURN
;**************************************************
MAIN:;Mainrotation
CALLIO_SET
MOV LWB’00000000’;关所有中断
MOV WFINTCON
;****************************
CALLSYS_SET
;****************************
callPlayPsWelcom;上电提示音
MAINLOOP:
bsfINTCON,GIE;开所有中断
CLRWDT;ClearWDT
callBeepFor
BMAINLOOP
;**************************************************
INTZ:
PUSH;Push;中断服务程序
BTFSCPIR1,TMR2IF;测试TMR2中断标志位
bINT_TMR2;
BTFSCINTCON,TOIF;测试TMR0中断标志位
GOTOINT_TMR0
IntRet:
POP;Pop
RETFIE
;**************************************************
INT_TMR2:
BCFPIR1,TMR2IF;清TMR2中断标志位
MOV fTmrBak,w
MOV wfTMR2
CPLBeepOut
BeeperEnd:
bIntRet
;**************************************************
INT_TMR0:;定时0中断
BCFINTCON,TOIF;clearINTF
MOV LW.255-.38;10ms
MOV WFTMR0
;====================
decfszT100ms,f
bint_tmr0_ret
MOV lwCSTIME100MS
MOV wfT100ms
bsfSflag,Fg_100ms
;=====================
int_tmr0_ret:
bIntRet
;**************************************************
PlayPsWhisle:
bsfFg,FgBeep
clrfBeepCnt
MOV lw.0
MOV wfBeepMode
MOV lwCSTIME100MS
MOV wfT100ms
retlw0
;**************************************************
PlayPsOk:
bsfFg,FgBeep
clrfBeepCnt
MOV lw.1
MOV wfBeepMode
MOV lwCSTIME100MS
MOV wfT100ms
retlw0
;**************************************************
PlayPsHang:
bsfFg,FgBeep
clrfBeepCnt
MOV lw.2
MOV wfBeepMode
MOV lwCSTIME100MS
MOV wfT100ms
retlw0
;**************************************************
PlayPsWelcom:
bsfFg,FgBeep
clrfBeepCnt
MOV lw.3
MOV wfBeepMode
MOV lwCSTIME100MS
MOV wfT100ms
retlw0
;**************************************************
;音乐播放程序
;BeepMode=0:psWhisle
;BeepMode=1:psOk
;BeepMode=2:psHang
;BeepMode=3:psWelcom
;**************************************************
BeepFor:
btfssSflag,Fg_100ms
bBeepForEnd
bcfSflag,Fg_100ms
btfssSflag,FgBeep
bBeepForEnd
MOV LWB’00000101’;开TMR21:4分频
MOV WFT2CON
MOV fBeepMode,w
bBeepModeJmp
psWhisle:
callWhisleTab
bBeepPlay
psOk:
callOkTab
bBeepPlay
psHang:
callHangTab
bBeepPlay
psWelcom:
callWelcomTab
bBeepPlay
BeepPlay:
incfBeepCnt,f
MOV wfTmrBak
MOV fTmrBak,f
btfscstatus,z
bBeepOff
MOV lw.1
xorwfTmrBak,w
btfscstatus,z
bBeepStop
bBeepForEnd
BeepOff:
clrfBeepCnt
bcfSflag,FgBeep
bcfBeepOut
bcfT2CON,TMR2ON
bBeepForEnd
BeepStop:
bcfT2CON,TMR2ON;stop
bcfBeepOut
BeepForEnd:
retlw0
;**************************************************
END


本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

Holtek隆重推出全新一代32-bit Arm® Cortex®-M0+ 5V CAN MCU - HT32F53231/HT32F53241/HT32F53242/HT32F53252。这一系列单片机带有来自Bosc...

关键字: MCU 工业自动化 单片机

Holtek精益求精,宣布推出全新5V宽电压Arm® Cortex®-M0+ 32-bit MCU系列HT32F50431/HT32F50441/HT32F50442/HT32F50452。此系列MCU经多方位升级能满...

关键字: 单片机 智能家居 工业控制

单片机小精灵是一款针对单片机开发者的辅助工具,它集成了代码编辑、编译、调试等多项功能,旨在帮助开发者更加高效地进行单片机项目的开发。本文将详细介绍单片机小精灵的使用方法,帮助读者快速掌握这款工具,提高开发效率。

关键字: 单片机 代码编辑 辅助工具

单片机和PLC将是下述内容的主要介绍对象,通过这篇文章,小编希望大家可以对二者的相关情况以及信息有所认识和了解,详细内容如下。

关键字: PLC 单片机

在这篇文章中,小编将对单片机的相关内容和情况加以介绍以帮助大家增进对单片机的了解程度,和小编一起来阅读以下内容吧。

关键字: 单片机 芯片 集成电路

一直以来,单片机都是大家的关注焦点之一。因此针对大家的兴趣点所在,小编将为大家带来单片机的相关介绍,详细内容请看下文。

关键字: 单片机 控制器

今天,小编将在这篇文章中为大家带来STM32单片机最小系统的有关报道,通过阅读这篇文章,大家可以对它具备清晰的认识,主要内容如下。

关键字: 单片机 单片机最小系统 STM32

51单片机将是下述内容的主要介绍对象,通过这篇文章,小编希望大家可以对51单片机的相关情况以及信息有所认识和了解,详细内容如下。

关键字: 单片机 51单片机

在这篇文章中,小编将对单片机最小系统的相关内容和情况加以介绍以帮助大家增进对它的了解程度,和小编一起来阅读以下内容吧。

关键字: 单片机 单片机最小系统

一直以来,单片机都是大家的关注焦点之一。因此针对大家的兴趣点所在,小编将为大家带来单片机的相关介绍,详细内容请看下文。

关键字: 单片机 芯片
关闭
关闭