.module sound.c
.area vector(rom, abs)
.org 14
rjmp _timer0
.org 8
rjmp _timer1
.area lit(rom, con, rel)
_music_data::
.word 440
.word 600
.word 494
.word 200
.word 523
.word 600
.word 440
.word 200
.word 523
.word 400
.word 494
.word 200
.word 440
.word 200
.word 494
.word 400
.word 330
.word 400
.word 494
.word 600
.word 523
.word 200
.word 578
.word 600
.word 494
.word 200
.word 578
.word 400
.word 523
.word 200
.word 494
.word 200
.word 440
.word 800
.word 659
.word 400
.word 880
.word 400
.word 784
.word 400
.word 880
.word 200
.word 784
.word 200
.word 698
.word 400
.word 659
.word 200
.word 578
.word 200
.word 659
.word 400
.word 440
.word 400
.word 0
.word 200
.word 698
.word 400
.word 578
.word 200
.word 659
.word 600
.word 523
.word 200
.word 494
.word 200
.word 330
.word 200
.word 523
.word 200
.word 494
.word 200
.word 440
.word 800
.word 659
.word 400
.word 880
.word 400
.word 784
.word 400
.word 880
.word 200
.word 784
.word 200
.word 698
.word 400
.word 659
.word 200
.word 578
.word 200
.word 659
.word 400
.word 440
.word 400
.word 0
.word 200
.word 698
.word 400
.word 578
.word 200
.word 659
.word 600
.word 523
.word 200
.word 494
.word 200
.word 330
.word 200
.word 523
.word 200
.word 494
.word 200
.word 440
.word 800
.word 0
.word 0
.dbfile D:\ICC-AVR\examples.sl\music\sound.c
.dbsym s music_data _music_data AAi[4:2][232:58]
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\music\sound.c
_delay::
.blkb 2
.area idata
.word 0
.area data(ram, con, rel)
.dbfile D:\ICC-AVR\examples.sl\music\sound.c
.dbsym s delay _delay i
.area text(rom, con, rel)
.dbfile D:\ICC-AVR\examples.sl\music\sound.c
.dbfunc s music_init _music_init fI
.even
_music_init::
.dbline 43{
; /**********************************************
; http://www.sl.com.cn
; 双龙电子公司----电脑音乐演示程序(ICCAVR)
; 作者：詹卫前
; 1、学习定时器T0溢出中断的使用
; 2、学习定时器T1比较中断的使用
; 3、学习电脑音乐的产生
; **********************************************/
; #include
; #include
; #pragma interrupt_handler timer0:8
; #pragma interrupt_handler timer1:5
; //#pragma data:code
; flash unsigned int music_data[][2]=
; /*******************************************
; 卡秋莎音乐数据{x,y}
; x:对应音符音阶(频率),0表示休止符
; y:对应音符节拍
; ********************************************/
; {
; {440,600} ,{494,200} ,{523,600} ,{440,200},
; {523,400} ,{494,200} ,{440,200} ,{494,400},
; {330,400} ,{494,600} ,{523,200} ,{578,600},
; {494,200} ,{578,400} ,{523,200} ,{494,200},
; {440,800} ,{659,400} ,{880,400} ,{784,400},
; {880,200} ,{784,200} ,{698,400} ,{659,200},
; {578,200} ,{659,400} ,{440,400} ,{ 0,200},//休止符
; {698,400} ,{578,200} ,{659,600} ,{523,200},
; {494,200} ,{330,200} ,{523,200} ,{494,200},
; {440,800} ,{659,400} ,{880,400} ,{784,400},
; {880,200} ,{784,200} ,{698,400} ,{659,200},
; {578,200} ,{659,400} ,{440,400} ,{ 0,200},//休止符
; {698,400} ,{578,200}, {659,600} ,{523,200},
; {494,200} ,{330,200}, {523,200} ,{494,200},
; {440,800} ,
; {0,0}};
; #pragma data:data
; unsigned int delay=0;
; /*******************************
; MCU初始化
; *******************************/
; void music_init(void)
; {
.dbline 44
; MCUCR=0x00;
clr R2
out 0x35,R2
.dbline 45
; DDRC=0x01;
ldi R24,1
out 0x14,R24
.dbline 46
; TCCR1A=0x00;
out 0x2f,R2
.dbline 47
; TCCR1B=0x09;
ldi R24,9
out 0x2e,R24
.dbline 48
; TCCR0=0x03;
ldi R24,3
out 0x33,R24
.dbline 49
; TCNT0=0x19;
ldi R24,25
out 0x32,R24
.dbline 50
; TIMSK=0x42;
ldi R24,66
out 0x39,R24
.dbline 51}
; }
L1:
ret
.dbfunc s timer0 _timer0 fI
.even
_timer0::
st -y,R24
st -y,R25
in R24,0x3f
st -y,R24
.dbline 56{
; /**************************************************
; T0中断程序，产生音乐节拍
; **************************************************/
; void timer0(void)
; {
.dbline 57
; delay++;
lds R25,_delay+1
lds R24,_delay
adiw R24,1
sts _delay+1,R25
sts _delay,R24
.dbline 58
; TCNT0=0x19;
ldi R24,25
out 0x32,R24
.dbline 59}
; }
L2:
ld R24,y+
out 0x3f,R24
ld R25,y+
ld R24,y+
reti
.dbfunc s timer1 _timer1 fI
.even
_timer1::
st -y,R2
st -y,R24
in R2,0x3f
st -y,R2
.dbline 64{
; /**************************************************
; T1中断程序，根据SOUND函数输出一定频率的方波
; **************************************************/
; void timer1(void)
; {
.dbline 65
; PORTC^=0x01;
ldi R24,1
in R2,0x15
eor R2,R24
out 0x15,R2
.dbline 66}
; }
L3:
ld R2,y+
out 0x3f,R2
ld R24,y+
ld R2,y+
reti
.dbfunc s sound _sound fI
; y -> R10,R11
; x -> R12,R13
.even
_sound::
rcall push_gset4
mov R10,R18
mov R11,R19
mov R12,R16
mov R13,R17
.dbline 73{
; /*****************************************************
; SOUND程序，输出频率为 x HZ的方波,延时 y MS
; x:100~20000 HZ, 0表示不发声
; y:0~65536 MS
; *****************************************************/
; void sound(unsigned int x,unsigned int y)
; {
.dbline 74
; SEI();
sei
.dbline 75
; delay=0;
clr R2
clr R3
sts _delay+1,R3
sts _delay,R2
.dbline 76
; if (x!=0)
tst R12
brne X0
tst R13
breq L5
X0:
.dbline 77
; {
.dbline 78
; x=4000000/x;
mov R2,R12
mov R3,R13
clr R4
clr R5
ldi R16, ldi R17,>L7
rcall lpm32
st -y,R5
st -y,R4
st -y,R3
st -y,R2
rcall div32s
mov R12,R16
mov R13,R17
.dbline 79
; OCR1A=x;
sts 74+1,R13
sts 74,R12
.dbline 80
; TCNT1=0x00;
clr R2
clr R3
sts 76+1,R3
sts 76,R2
.dbline 81
; TIMSK|=0x40;
in R24,0x39
ori R24,64
out 0x39,R24
L8:
.dbline 83
L9:
.dbline 82
; while(delay lds R3,_delay+1
lds R2,_delay
cp R2,R10
cpc R3,R11
brlo L8
.dbline 84
; ;
; TIMSK&=0xbf;
in R24,0x39
andi R24,191
out 0x39,R24
.dbline 85
; }
rjmp L6
L5:
.dbline 87
; else
; {
.dbline 88
; TIMSK&=0xbf;
in R24,0x39
andi R24,191
out 0x39,R24
L11:
.dbline 90
L12:
.dbline 89
; while(delay lds R3,_delay+1
lds R2,_delay
cp R2,R10
cpc R3,R11
brlo L11
.dbline 91
; ;
; }
L6:
.dbline 92
; CLI();
cli
.dbline 94}
;
; }
L4:
rcall pop_gset4
ret
.dbsym r y 10 i
.dbsym r x 12 i
.dbfunc s main _main fI
; i -> R20
.even
_main::
.dbline 99{
; /*******************************
; 主程序
; *******************************/
; void main(void)
; {
.dbline 100
; unsigned char i=0;
clr R20
.dbline 101
; music_init();
rcall _music_init
rjmp L16
X1:
.dbline 103
; while(1)
; {
L18:
.dbline 105
.dbline 106
ldi R18,2
ldi R19,0
mov R16,R20
clr R17
rcall lsl16
mov R2,R16
mov R3,R17
ldi R24, ldi R25,>_music_data+2
add R16,R24
adc R17,R25
rcall lpm16
mov R18,R16
mov R19,R17
ldi R24, ldi R25,>_music_data
mov R16,R2
mov R17,R3
add R16,R24
adc R17,R25
rcall lpm16
rcall _sound
.dbline 107
inc R20
.dbline 108
L19:
.dbline 104
ldi R18,2
ldi R19,0
mov R16,R20
clr R17
rcall lsl16
mov R2,R16
mov R3,R17
ldi R24, ldi R25,>_music_data+2
add R2,R24
adc R3,R25
mov R16,R2
mov R17,R3
rcall lpm16
cpi R16,0
cpc R16,R17
brne L18
.dbline 109
clr R20
.dbline 110
L16:
.dbline 102
rjmp L19
X2:
.dbline 111}
; while(music_data[i][1]!=0)
; {
; sound(music_data[i][0],music_data[i][1]);
; i++;
; }
; i=0;
; }
; }
L14:
ret
.dbsym r i 20 c
.area lit(rom, con, rel)
L7:
.word 2304,61
