📄 9.s
字号:
.module _9.c
.area lit(rom, con, rel)
_sound::
.byte 35,36
.byte 37,'D
.byte 'E,36
.byte 35,34
.byte 'B,64
.byte 64,35
.byte 34,33
.byte 'A,40
.byte 'H,35
.byte 37,'E
.byte 64,64
.byte 33,33
.byte 'B,33
.byte 33,'A
.byte 32,40
.byte 'G,38
.byte 23,22
.byte 21,'E
.byte 64,49
.byte 17,33
.byte 33,33
.byte 34,'B
.byte 64,32
.byte 35,35
.byte 36,37
.byte 36,35
.byte 36,37
.byte 38,35
.byte 35,'B
.byte 'B,64
.byte 35,34
.byte 33,'A
.byte 40,40
.byte 40,35
.byte 37,'E
.byte 'E,64
.byte 32,37
.byte 'F,40
.byte 40,'H
.byte 32,41
.byte 'G,38
.byte 23,22
.byte 21,'E
.byte 37,37
.byte 38,40
.byte 24,22
.byte 38,40
.byte 38,40
.byte 25,25
.byte 'I,'I
.byte 32,37
.byte 42,24
.byte 25,41
.byte 40,22
.byte 23,22
.byte 21,37
.byte 37,40
.byte 41,42
.byte 41,'H
.byte 40,'H
.byte 44,'L
.byte 'L,64
.byte 42,44
.byte 28,26
.byte 42,42
.byte 41,'J
.byte 43,42
.byte 'J,'J
.byte 64,42
.byte 41,41
.byte 40,40
.byte 38,'H
.byte 41,38
.byte 'E,'E
.byte 64,37
.byte 37,38
.byte 33,24
.byte 22,38
.byte 40,38
.byte 40,41
.byte 'I,'I
.byte 32,37
.byte 40,41
.byte 42,41
.byte 'I,40
.byte 'H,44
.byte 'L,'L
.byte 64,42
.byte 44,21
.byte 26,42
.byte 42,41
.byte 'J,43
.byte 42,'J
.byte 'J,64
.byte 42,41
.byte 41,40
.byte 40,38
.byte 40,40
.byte 41,38
.byte 'E,'E
.byte 64,37
.byte 37,38
.byte 40,40
.byte 38,42
.byte 25,24
.byte 40,24
.byte 25,'H
.byte 'H,64
.byte 64,64
.byte 64,40
.byte 'H,41
.byte 40,40
.byte 42,26
.byte 26,26
.byte 24,64
.byte 32,38
.byte 40,40
.byte 40,38
.byte 40,'H
.byte 38,37
.byte 'E,'E
.byte 64,64
.byte 64,40
.byte 'H,40
.byte 40,28
.byte 29,45
.byte 44,40
.byte 40,40
.byte 32,38
.byte 25,26
.byte 41,25
.byte 24,40
.byte 40,38
.byte 33,41
.byte 'I,'I
.byte 64,32
.byte 40,41
.byte 42,'J
.byte 'J,32
.byte 37,40
.byte 41,'H
.byte 'H,'H
.byte 37,37
.byte 38,40
.byte 40,38
.byte 42,25
.byte 24,40
.byte 24,25
.byte 'I,'I
.byte 64,64
.byte 37,40
.byte 42,'J
.byte 41,40
.byte 'H,40
.byte 38,'F
.byte 40,'E
.byte 37,40
.byte 42,'J
.byte 41,40
.byte 'H,40
.byte 41,'I
.byte 42,'I
.byte 64,42
.byte 'J,43
.byte 'L,64
.byte 61,29
.byte 45,45
.byte 'L,64
.byte 42,'J
.byte 44,'H
.byte 40,42
.byte 41,'F
.byte 37,'H
.byte 64,42
.byte 42,'J
.byte 42,42
.byte 'J,42
.byte 44,40
.byte 41,'J
.byte 'J,43
.byte 43,43
.byte 43,43
.byte 42,42
.byte 42,42
.byte 41,41
.byte 40,'I
.byte 'L,42
.byte 42,'J
.byte 42,42
.byte 'J,42
.byte 44,40
.byte 41,'J
.byte 'J,43
.byte 43,43
.byte 43,43
.byte 42,42
.byte 42,44
.byte 44,43
.byte 41,'H
.byte 'H,'J
.byte 42,41
.byte 40,41
.byte 40,39
.byte 'F,'F
.byte 'F,'F
.byte 'K,43
.byte 42,41
.byte 40,41
.byte 43,'J
.byte 'J,'J
.byte 'K,43
.byte 42,'I
.byte 41,43
.byte 'J,42
.byte 40,'F
.byte 'H,'G
.byte 'J,41
.byte 40,39
.byte 40,'F
.byte 'F,'F
.byte 'F,'J
.byte 42,41
.byte 40,41
.byte 40,39
.byte 'F,'F
.byte 'F,'F
.byte 'K,43
.byte 42,41
.byte 40,41
.byte 43,'J
.byte 'J,'J
.byte 'K,43
.byte 42,'I
.byte 41,43
.byte 'J,42
.byte 40,'F
.byte 'H,'G
.byte 'J,41
.byte 40,39
.byte 40,'F
.byte 'F,'F
.byte 'F,'C
.byte 'C,'E
.byte 'I,'I
.byte 'I,'H
.byte 'H,'E
.byte 'D,'D
.byte 'D,'C
.byte 'C,'C
.byte 'C,'D
.byte 'E,'F
.byte 'F,'F
.byte 'E,'E
.byte 'E,'C
.byte 'C,'E
.byte 'I,'I
.byte 'I,'H
.byte 'H,'E
.byte 'D,'D
.byte 'D,'C
.byte 'C,'E
.byte 'E,'F
.byte 'G,'H
.byte 'H,'H
.byte 'H,'H
.byte 'H,'I
.byte 'I,'E
.byte 'G,'F
.byte 'E,'C
.byte 'C,'E
.byte 'H,'H
.byte 'H,'F
.byte 'F,'H
.byte 'I,'I
.byte 'H,'G
.byte 'G,'G
.byte 'E,'E
.byte 'E,'C
.byte 'C,'E
.byte 'I,'I
.byte 'I,'H
.byte 'H,'E
.byte 'D,'D
.byte 'D,'C
.byte 'C,'E
.byte 'E,'F
.byte 'G,'H
.byte 'H,'H
.byte 'H,64
.byte 64,'E
.byte 'H,'J
.byte 'J,'J
.byte 'J,'J
.byte 'J,'I
.byte 'J,'I
.byte 'H,'H
.byte 'H,'H
.byte 'H,'E
.byte 'H,'J
.byte 'J,'H
.byte 'J,'L
.byte 'L,'K
.byte 'J,'I
.byte 'I,'I
.byte 'I,'I
.byte 'L,'K
.byte 'J,'J
.byte 'J,'I
.byte 'H,'H
.byte 'I,'J
.byte 'L,'K
.byte 'K,'K
.byte 'K,'K
.byte 'F,'F
.byte 'E,'E
.byte 'E,'G
.byte 'H,'I
.byte 'I,'J
.byte 'I,'H
.byte 'H,'H
.byte 'H,'H
.byte 'H,0
.byte 0
.dbfile D:\xij\demo\demo_diy02-8a\1\C语言\02-8A-9\9.c
.dbsym e sound _sound A[645:645]kc
_TONETABLE::
.word 64580
.word 64684
.word 64777
.word 64820
.word 64898
.word 64968
.word 65030
.word 65058
.word 65110
.word 65157
.word 65178
.word 65217
.word 65252
.word 65283
.word 65297
.dbsym e TONETABLE _TONETABLE A[30:15]ki
.area text(rom, con, rel)
.dbfile D:\xij\demo\demo_diy02-8a\1\C语言\02-8A-9\9.c
.dbfunc e delay_us _delay_us fV
; time -> R16,R17
.even
_delay_us::
.dbline -1
.dbline 86
;
;
; #include <iom48v.h>
; #include <macros.h>
; /* 音乐数据 */
; /* 四分之一拍为0x10, 二分之一拍为0x20, 一拍为0x40*/
; /* 低1-1 2-2 3-3 4-4 5-5 6-6 7-7 */
; /* 中1-8 2-9 3-A 4-B 5-C 6-D 7-E */
; /* 高1-F*/
;
; const unsigned char sound[]={ //乐曲数据表
; 0x23,0x24,0x25,0x44,0x45,0x24,0x23,0x22,0x42,0x40,0x40,0x23,0x22,0x21,0x41,0x28,
; 0x48,0x23,0x25,0x45,0x40,0x40,0x21,0x21,0x42,0x21,0x21,0x41,0x20,0x28,0x47,0x26,
; 0x17,0x16,0x15,0x45,0x40,0x31,0x11,0x21,0x21,0x21,0x22,0x42,0x40,0x20,0x23,0x23,
; 0x24,0x25,0x24,0x23,0x24,0x25,0x26,0x23,0x23,0x42,0x42,0x40,0x23,0x22,0x21,0x41,
; 0x28,0x28,0x28,0x23,0x25,0x45,0x45,0x40,0x20,0x25,0x46,0x28,0x28,0x48,0x20,0x29,
; 0x47,0x26,0x17,0x16,0x15,0x45,0x25,0x25,0x26,0x28,0x18,0x16,0x26,0x28,0x26,0x28,
; 0x19,0x19,0x49,0x49,0x20,0x25,0x2a,0x18,0x19,0x29,0x28,0x16,0x17,0x16,0x15,0x25,
; 0x25,0x28,0x29,0x2a,0x29,0x48,0x28,0x48,0x2c,0x4c,0x4c,0x40,0x2a,0x2c,0x1c,0x1a,
; 0x2a,0x2a,0x29,0x4a,0x2b,0x2a,0x4a,0x4a,0x40,0x2a,0x29,0x29,0x28,0x28,0x26,0x48,
; 0x29,0x26,0x45,0x45,0x40,0x25,0x25,0x26,0x21,0x18,0x16,0x26,0x28,0x26,0x28,0x29,
; 0x49,0x49,0x20,0x25,0x28,0x29,0x2a,0x29,0x49,0x28,0x48,0x2c,0x4c,0x4c,0x40,0x2a,
; 0x2c,0x15,0x1a,0x2a,0x2a,0x29,0x4a,0x2b,0x2a,0x4a,0x4a,0x40,0x2a,0x29,0x29,0x28,
; 0x28,0x26,0x28,0x28,0x29,0x26,0x45,0x45,0x40,0x25,0x25,0x26,0x28,0x28,0x26,0x2a,
; 0x19,0x18,0x28,0x18,0x19,0x48,0x48,0x40,0x40,0x40,0x40,0x28,0x48,0x29,0x28,0x28,
; 0x2a,0x1a,0x1a,0x1a,0x18,0x40,0x20,0x26,0x28,0x28,0x28,0x26,0x28,0x48,0x26,0x25,
; 0x45,0x45,0x40,0x40,0x40,0x28,0x48,0x28,0x28,0x1c,0x1d,0x2d,0x2c,0x28,0x28,0x28,
; 0x20,0x26,0x19,0x1a,0x29,0x19,0x18,0x28,0x28,0x26,0x21,0x29,0x49,0x49,0x40,0x20,
; 0x28,0x29,0x2a,0x4a,0x4a,0x20,0x25,0x28,0x29,0x48,0x48,0x48,0x25,0x25,0x26,0x28,
; 0x28,0x26,0x2a,0x19,0x18,0x28,0x18,0x19,0x49,0x49,0x40,0x40,
;
; 0x25,0x28,0x2A,0x4A,0x29,0x28,0x48,0x28,
; 0x26,0x46,0x28,0x45,0x25,0x28,0x2A,0x4A,
; 0x29,0x28,0x48,0x28,0x29,0x49,0x2A,0x49,
; 0x40,0x2A,0x4A,0x2B,0x4C,0x40,0x3D,0x1D,
; 0x2D,0x2D,0x4C,0x40,0x2A,0x4A,0x2C,0x48,
; 0x28,0x2A,0x29,0x46,0x25,0x48,0x40,
;
; 0x2a,0x2a,0x4a,0x2a,0x2a,0x4a,0x2a,0x2c,0x28,0x29,
; 0x4a,0x4a,0x2b,0x2b,0x2b,0x2b,0x2b,0x2a,0x2a,0x2a,
; 0x2a,0x29,0x29,0x28,0x49,0x4c,0x2a,0x2a,0x4a,0x2a,
; 0x2a,0x4a,0x2a,0x2c,0x28,0x29,0x4a,0x4a,0x2b,0x2b,
; 0x2b,0x2b,0x2b,0x2a,0x2a,0x2a,0x2c,0x2c,0x2b,0x29,
; 0x48,0x48,
;
; 0x4a,0x2a,0x29,0x28,0x29,0x28,0x27,0x46,0x46,0x46,
; 0x46,0x4b,0x2b,0x2a,0x29,0x28,0x29,0x2b,0x4a,0x4a,
; 0x4a,0x4b,0x2b,0x2a,0x49,0x29,0x2b,0x4a,0x2a,0x28,
; 0x46,0x48,0x47,0x4a,0x29,0x28,0x27,0x28,0x46,0x46,
; 0x46,0x46,0x4a,0x2a,0x29,0x28,0x29,0x28,0x27,0x46,
; 0x46,0x46,0x46,0x4b,0x2b,0x2a,0x29,0x28,0x29,0x2b,
; 0x4a,0x4a,0x4a,0x4b,0x2b,0x2a,0x49,0x29,0x2b,0x4a,
; 0x2a,0x28,0x46,0x48,0x47,0x4a,0x29,0x28,0x27,0x28,
; 0x46,0x46,0x46,0x46,
;
; 0x43,0x43,0x45,0x49,0x49,0x49,0x48,0x48,0x45,0x44,
; 0x44,0x44,0x43,0x43,0x43,0x43,0x44,0x45,0x46,0x46,
; 0x46,0x45,0x45,0x45,0x43,0x43,0x45,0x49,0x49,0x49,
; 0x48,0x48,0x45,0x44,0x44,0x44,0x43,0x43,0x45,0x45,
; 0x46,0x47,0x48,0x48,0x48,0x48,0x48,0x48,0x49,0x49,
; 0x45,0x47,0x46,0x45,0x43,0x43,0x45,0x48,0x48,0x48,
; 0x46,0x46,0x48,0x49,0x49,0x48,0x47,0x47,0x47,0x45,
; 0x45,0x45,0x43,0x43,0x45,0x49,0x49,0x49,0x48,0x48,
; 0x45,0x44,0x44,0x44,0x43,0x43,0x45,0x45,0x46,0x47,
; 0x48,0x48,0x48,0x48,0x40,0x40,
;
; 0x45,0x48,0x4a,0x4a,0x4a,0x4a,0x4a,0x4a,0x49,0x4a,
; 0x49,0x48,0x48,0x48,0x48,0x48,0x45,0x48,0x4a,0x4a,
; 0x48,0x4a,0x4c,0x4c,0x4b,0x4a,0x49,0x49,0x49,0x49,
; 0x49,0x4c,0x4b,0x4a,0x4a,0x4a,0x49,0x48,0x48,0x49,
; 0x4a,0x4c,0x4b,0x4b,0x4b,0x4b,0x4b,0x46,0x46,0x45,
; 0x45,0x45,0x47,0x48,0x49,0x49,0x4a,0x49,0x48,0x48,
; 0x48,0x48,0x48,0x48,
;
; 0x00,0x00
; };
;
; /* 音阶表 */
; const unsigned int TONETABLE[15]={
; 64580,64684,64777,64820,64898,64968,65030,65058,
; 65110,65157,65178,65217,65252,65283,65297
; };
; /* 音阶重装常数 */
; /* 微秒级延时程序 */
; void delay_us(int time)
; {
L2:
.dbline 88
; do
; {
.dbline 89
; time--;
subi R16,1
sbci R17,0
.dbline 90
; }
L3:
.dbline 91
; while (time>1);
ldi R24,1
ldi R25,0
cp R24,R16
cpc R25,R17
brlt L2
.dbline -2
L1:
.dbline 0 ; func end
ret
.dbsym r time 16 I
.dbend
.dbfunc e delay_ms _delay_ms fV
; time -> R20,R21
.even
_delay_ms::
rcall push_gset1
movw R20,R16
.dbline -1
.dbline 96
; }
;
; /* 毫秒级延时程序 */
; void delay_ms(unsigned int time)
; {
rjmp L7
L6:
.dbline 98
.dbline 99
ldi R16,1000
ldi R17,3
rcall _delay_us
.dbline 100
subi R20,1
sbci R21,0
.dbline 101
L7:
.dbline 97
; while(time!=0)
cpi R20,0
cpc R20,R21
brne L6
X0:
.dbline -2
L5:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r time 20 i
.dbend
.area vector(rom, abs)
.org 26
rjmp _timer1_ovf_isr
.area text(rom, con, rel)
.dbfile D:\xij\demo\demo_diy02-8a\1\C语言\02-8A-9\9.c
.dbfunc e timer1_ovf_isr _timer1_ovf_isr fV
.even
_timer1_ovf_isr::
st -y,R2
st -y,R3
st -y,R24
in R2,0x3f
st -y,R2
.dbline -1
.dbline 107
; {
; delay_us(1000);
; time--;
; }
; }
;
; unsigned int toneconst;
; #pragma interrupt_handler timer1_ovf_isr:iv_TIMER1_OVF
; void timer1_ovf_isr(void)
; {
.dbline 108
; TCNT1=toneconst;
lds R2,_toneconst
lds R3,_toneconst+1
sts 132+1,R3
sts 132,R2
.dbline 109
; PORTD^=8;
ldi R24,8
in R2,0xb
eor R2,R24
out 0xb,R2
.dbline -2
L9:
ld R2,y+
out 0x3f,R2
ld R24,y+
ld R3,y+
ld R2,y+
.dbline 0 ; func end
reti
.dbend
.dbfunc e music _music fV
; sound_add -> R20,R21
; temp1 -> R22
; temp -> R10
.even
_music::
rcall push_gset3
.dbline -1
.dbline 112
; }
; void music(void)
; {
.dbline 114
; unsigned char temp,temp1;
; unsigned int sound_add=0;
clr R20
clr R21
.dbline 115
; TCCR1A = 0x00;
clr R2
sts 128,R2
.dbline 116
; TCCR1B =(1<<CS11);//8分频
ldi R24,2
sts 129,R24
.dbline 117
; temp1 = sound[sound_add];
ldi R24,<_sound
ldi R25,>_sound
movw R30,R20
add R30,R24
adc R31,R25
lpm R22,Z
rjmp L12
L11:
.dbline 119
; while(temp1!=0)
; {
.dbline 120
; temp=temp1;
mov R10,R22
.dbline 121
; temp&=0x0f;
mov R24,R10
andi R24,15
mov R10,R24
.dbline 122
; if(temp!=0)
tst R24
breq L14
.dbline 123
; {
.dbline 124
; TIMSK1|=(1<<TOIE1);//根据SOUNDTABLE中数据的低四位选择音调频率
lds R24,111
ori R24,1
sts 111,R24
.dbline 125
; temp--;
dec R10
.dbline 126
; toneconst=TONETABLE[temp];
ldi R24,2
mul R24,R10
movw R30,R0
ldi R24,<_TONETABLE
ldi R25,>_TONETABLE
add R30,R24
adc R31,R25
lpm R0,Z+
lpm R1,Z
movw R30,R0
sts _toneconst+1,R31
sts _toneconst,R30
.dbline 127
; TCNT1=toneconst;
movw R2,R30
sts 132+1,R3
sts 132,R2
.dbline 128
; }
L14:
.dbline 129
mov R10,R22
.dbline 130
mov R24,R10
swap R24
andi R24,#0x0F
.dbline 131
andi R24,15
mov R10,R24
.dbline 132
ldi R24,129
mul R24,R10
movw R16,R0
rcall _delay_ms
.dbline 133
lds R24,111
andi R24,254
sts 111,R24
.dbline 134
subi R20,255 ; offset = 1
sbci R21,255
.dbline 135
ldi R24,<_sound
ldi R25,>_sound
movw R30,R20
add R30,R24
adc R31,R25
lpm R22,Z
.dbline 136
L12:
.dbline 118
tst R22
breq X1
rjmp L11
X1:
.dbline 137
; temp=temp1;
; temp>>=4;
; temp&=0x0f;
; delay_ms(temp*129);//根据SOUNDTABLE中数据的高四位*5后，为音调持续时间
; TIMSK1&=~(1<<TOIE1);
; sound_add++;
; temp1 = sound[sound_add];
; }
; delay_ms(1000);
ldi R16,1000
ldi R17,3
rcall _delay_ms
.dbline -2
L10:
rcall pop_gset3
.dbline 0 ; func end
ret
.dbsym r sound_add 20 i
.dbsym r temp1 22 c
.dbsym r temp 10 c
.dbend
.dbfunc e mic_startup _mic_startup fV
; mic_in -> R16
.even
_mic_startup::
.dbline -1
.dbline 141
; }
;
; void mic_startup()
; {//声控启动程序运行
rjmp L18
L17:
.dbline 144
; unsigned char mic_in;
; while(1)
; { //无键按下等待
.dbline 145
; mic_in=PINC & 0x20; //pc5=0
in R16,0x6
andi R16,32
.dbline 146
; if(mic_in==0){break;}
brne L20
.dbline 146
.dbline 146
rjmp L19
L20:
.dbline 147
L18:
.dbline 143
rjmp L17
L19:
.dbline -2
L16:
.dbline 0 ; func end
ret
.dbsym r mic_in 16 c
.dbend
.dbfunc e main _main fV
; i -> <dead>
.even
_main::
.dbline -1
.dbline 152
; }//有键按下运行下面的程序
; }
;
; /* 主程序 */
; void main(void)
; {
.dbline 154
; unsigned char i;
; DDRC=0x00;
clr R2
out 0x7,R2
.dbline 155
; PORTC=0xff;
ldi R24,255
out 0x8,R24
.dbline 156
; DDRD=0xfb;
ldi R24,251
out 0xa,R24
.dbline 157
; PORTD=0xff;
ldi R24,255
out 0xb,R24
.dbline 158
; SEI();
sei
.dbline 160
; //等待声控启动
; mic_startup();
rcall _mic_startup
rjmp L24
L23:
.dbline 163
.dbline 164
rcall _music
.dbline 165
L24:
.dbline 162
rjmp L23
X2:
.dbline -2
L22:
.dbline 0 ; func end
ret
.dbsym l i 1 c
.dbend
.area bss(ram, con, rel)
.dbfile D:\xij\demo\demo_diy02-8a\1\C语言\02-8A-9\9.c
_toneconst::
.blkb 2
.dbsym e toneconst _toneconst i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -