speak.s

16个单片机c语言实验程序

	.module speak.c
	.area text(rom, con, rel)
	.dbfile speak.c
	.dbfile E:\产品\开发板\mega128-board\待完成\无源蜂鸣器\speak.c
	.dbfunc e s_ms _s_ms fV
;              m -> R20,R21
;              t -> R16,R17
	.even
_s_ms::
	st -y,R20
	st -y,R21
	.dbline -1
	.dbline 9
; //无源蜂鸣器试验
; //产生间隔的di的响声
; #include<iom16v.h>
; #define uchar unsigned char 
; #define uint unsigned int 
; 
; //延时函数
; void s_ms(unsigned int t)
; {
	.dbline 11
;  uint m;
;     for(;t>1;t--)
	xjmp L5
L2:
	.dbline 12
;     {
	.dbline 13
; 	for(m=0;m<100;m++);
	clr R20
	clr R21
	xjmp L9
L6:
	.dbline 13
L7:
	.dbline 13
	subi R20,255  ; offset = 1
	sbci R21,255
L9:
	.dbline 13
	cpi R20,100
	ldi R30,0
	cpc R21,R30
	brlo L6
X0:
	.dbline 14
;     }
L3:
	.dbline 11
	subi R16,1
	sbci R17,0
L5:
	.dbline 11
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlo L2
X1:
	.dbline -2
L1:
	.dbline 0 ; func end
	ld R21,y+
	ld R20,y+
	ret
	.dbsym r m 20 i
	.dbsym r t 16 i
	.dbend
	.dbfunc e main _main fI
;              i -> R20,R21
	.even
_main::
	.dbline -1
	.dbline 19
; }
; 
; //主函数
; main()
; {
	.dbline 21
; uint i;
; DDRC=0xff;         //端口C为输出
	ldi R24,255
	out 0x14,R24
	.dbline 22
; PORTC=0xff;        
	out 0x15,R24
	xjmp L12
L11:
	.dbline 24
; while(1)
;      {
	.dbline 25
; 	  s_ms(12000);       //间隔延时
	ldi R16,12000
	ldi R17,46
	xcall _s_ms
	.dbline 26
; 	  for(i=0;i<500;i++) //在端口c产生音频信号
	clr R20
	clr R21
	xjmp L17
L14:
	.dbline 27
; 	       {
	.dbline 28
; 	       PORTC|=0x80;  //端口=1
	sbi 0x15,7
	.dbline 29
; 	       s_ms(6);      //延时
	ldi R16,6
	ldi R17,0
	xcall _s_ms
	.dbline 30
; 	       PORTC&=~0x80; //端口=0
	cbi 0x15,7
	.dbline 31
; 	       s_ms(6);
	ldi R16,6
	ldi R17,0
	xcall _s_ms
	.dbline 32
; 		   }
L15:
	.dbline 26
	subi R20,255  ; offset = 1
	sbci R21,255
L17:
	.dbline 26
	cpi R20,244
	ldi R30,1
	cpc R21,R30
	brlo L14
X2:
	.dbline 33
; 	  }
L12:
	.dbline 23
	xjmp L11
X3:
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbend
; }