diy0816_09.s

AVR单片机应用开发指南及实例,包含许多实例,挺不错

	.module diy0816_09.c
	.area text(rom, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_9\diy0816_09.c
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 12
; //9.	I/O端口的又一应用-发声。
; //PB.0端口开关控制PC.0输出报警声程序! 
; //请你修改程序改变报警声音调及快慢。
; //     www.sl.com.cn
; //     [e-mail]    05-11-12
; // Target : mega16     Crystal: 8.0000Mhz
; 
; #include <iom16v.h>
; #include <macros.h>
; 		 //微秒级延时
; void delay_us(int time)
; {     
L2:
	.dbline 14
;  do
;  {
	.dbline 15
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 16
;  }	
L3:
	.dbline 17
;   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::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 21
; }	  
; 	  	//毫秒级延时
; void delay_ms(unsigned int time)
; {
	xjmp L7
L6:
	.dbline 23
	.dbline 24
	ldi R16,1000
	ldi R17,3
	xcall _delay_us
	.dbline 25
	subi R20,1
	sbci R21,0
	.dbline 26
L7:
	.dbline 22
;  while(time!=0)
	cpi R20,0
	cpc R20,R21
	brne L6
X0:
	.dbline -2
L5:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r time 20 i
	.dbend
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 30
;  {		
;   delay_us(1000);
;   time--;
;  }
; }		
; 
; void port_init(void)
; {	 //端口初始化
	.dbline 31
;  DDRA  = 0x00;PORTA = 0xFF;
	clr R2
	out 0x1a,R2
	.dbline 31
	ldi R24,255
	out 0x1b,R24
	.dbline 32
;  DDRB  = 0x00;PORTB = 0xFF;
	out 0x17,R2
	.dbline 32
	out 0x18,R24
	.dbline 33
;  DDRC  = 0xFF;PORTC = 0xFF;
	out 0x14,R24
	.dbline 33
	out 0x15,R24
	.dbline 34
;  DDRD  = 0x00;PORTD = 0xFF; 
	out 0x11,R2
	.dbline 34
	out 0x12,R24
	.dbline -2
L9:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e timer1_init _timer1_init fV
	.even
_timer1_init::
	.dbline -1
	.dbline 41
; }
; 
; //TIMER1 initialisation - prescale:8
; // desired value: 100uSec
; // actual value: 100.000uSec (0.0%)
; void timer1_init(void)
; {	 //定时/计数器1初始化
	.dbline 42
;  TCCR1B = 0x00; //stop
	clr R2
	out 0x2e,R2
	.dbline 43
;  TCNT1H = 0xFe; //setup
	ldi R24,254
	out 0x2d,R24
	.dbline 44
;  TCNT1L = 0x86;
	ldi R24,134
	out 0x2c,R24
	.dbline 45
;  OCR1AH = 0x00;
	out 0x2b,R2
	.dbline 46
;  OCR1AL = 0x64;
	ldi R24,100
	out 0x2a,R24
	.dbline 47
;  OCR1BH = 0x00;
	out 0x29,R2
	.dbline 48
;  OCR1BL = 0x64;
	out 0x28,R24
	.dbline 49
;  TCCR1A = 0x00;
	out 0x2f,R2
	.dbline 50
;  TCCR1B = 0x02; //start Timer
	ldi R24,2
	out 0x2e,R24
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 32
	jmp _timer1_ovf_isr
	.area text(rom, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_9\diy0816_09.c
	.dbfunc e timer1_ovf_isr _timer1_ovf_isr fV
	.even
_timer1_ovf_isr::
	st -y,R2
	st -y,R24
	st -y,R25
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 55
; }
; 
; #pragma interrupt_handler timer1_ovf_isr:9
; void timer1_ovf_isr(void)
; {	 //定时/计数器1溢出中断处理函数
	.dbline 56
;  TCNT1 = 0xFe86; //reload counter value
	ldi R24,65158
	ldi R25,254
	out 0x2d,R25
	out 0x2c,R24
	.dbline 57
;  PORTC^=0x01;
	ldi R24,1
	in R2,0x15
	eor R2,R24
	out 0x15,R2
	.dbline -2
L11:
	ld R2,y+
	out 0x3f,R2
	ld R25,y+
	ld R24,y+
	ld R2,y+
	.dbline 0 ; func end
	reti
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 62
; }
; 
; //call this routine to initialise all peripherals
; void init_devices(void)
; {//芯片初始化
	.dbline 64
;  //stop errant interrupts until set up
;  CLI(); //关中断
	cli
	.dbline 65
;  port_init();//调用端口初始化函数
	xcall _port_init
	.dbline 66
;  timer1_init();//调用定时/计数器1初始化函数
	xcall _timer1_init
	.dbline 68
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 69
;  GICR = 0x00;
	out 0x3b,R2
	.dbline 70
;  TIMSK = 0x04;
	ldi R24,4
	out 0x39,R24
	.dbline -2
L12:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;         pb_buf -> R20
	.even
_main::
	.dbline -1
	.dbline 75
; // SEI(); //开中断
; }
; 
; void main(void)
; {	 //主函数
	.dbline 77
;  unsigned char pb_buf;//定义局部字符型变量
;  init_devices();//调用芯片初始化函数
	xcall _init_devices
	xjmp L15
L14:
	.dbline 79
;  while(1) //等待PB0按键按下
;  {		  //无键按下等待
	.dbline 80
;   pb_buf=PINB & 0x01;
	in R20,0x16
	andi R20,1
	.dbline 81
;   if(pb_buf==0x00){break;}
	brne L17
	.dbline 81
	.dbline 81
	xjmp L16
L17:
	.dbline 82
L15:
	.dbline 78
	xjmp L14
L16:
	.dbline 83
;  }//有键按下运行下面的程序
;  SEI();//开中断
	sei
	xjmp L20
L19:
	.dbline 85
	.dbline 86
	ldi R24,255
	out 0x14,R24
	.dbline 87
	ldi R16,500
	ldi R17,1
	xcall _delay_ms
	.dbline 88
	clr R2
	out 0x14,R2
	.dbline 89
	ldi R16,500
	ldi R17,1
	xcall _delay_ms
	.dbline 90
L20:
	.dbline 84
	xjmp L19
X1:
	.dbline -2
L13:
	.dbline 0 ; func end
	ret
	.dbsym r pb_buf 20 c
	.dbend