diy0816_06.s

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

	.module diy0816_06.c
	.area text(rom, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_6\diy0816_06.c
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 18
; //6.	用1个I/O端口控制8个I/O端口。
; //ATmega16的PB.0端口开关(可用接插线接VCC或GND代替)控制PA口8个LED灯闪烁; 
; //可作简单的广告灯使用。
; //如果ATmega16的PB.0端口开关要控制PA口,PC口,PD口三个口同时闪烁,
; //你应该怎样编程序?
; //     www.sl.com.cn
; //     [e-mail]    05-11-12
; // Target : mega16    Crystal: 8.0000Mhz
; 
; #include <iom16v.h>
; #include <macros.h>
; 
; #define delay_time 500
;      //delay_time=500，定义延时常量
; unsigned char pb_buf;
; 
; void delay_us(int time)
; {   //微秒延时           
L2:
	.dbline 20
;  do
;  {
	.dbline 21
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 22
;  }	
L3:
	.dbline 23
;   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 27
; }	  
; 
; void delay_ms(unsigned int time)
; {   //微秒延时      
	xjmp L7
L6:
	.dbline 29
	.dbline 30
	ldi R16,1000
	ldi R17,3
	xcall _delay_us
	.dbline 31
	subi R20,1
	sbci R21,0
	.dbline 32
L7:
	.dbline 28
;  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 shiyan6 _shiyan6 fV
	.even
_shiyan6::
	.dbline -1
	.dbline 36
;  {		
;   delay_us(1000);
;   time--;
;  }
; }		
; 
; void shiyan6()
; {
	.dbline 37
;  DDRB=0x00;PORTB=0xFF;//PB口输入，内部上拉
	clr R2
	out 0x17,R2
	.dbline 37
	ldi R24,255
	out 0x18,R24
	.dbline 38
;  DDRA=0xFF;PORTA=0xFF;//PA口输出
	out 0x1a,R24
	.dbline 38
	out 0x1b,R24
	xjmp L11
L10:
	.dbline 40
;  while(1)//循环运行
;  {
	.dbline 41
;   pb_buf=PINB & 0x01;//检测PINB0是否为0，为1重新检测
	in R24,0x16
	andi R24,1
	sts _pb_buf,R24
	.dbline 42
;   if(pb_buf==0x00)//为0，PA口的LED整体闪烁
	tst R24
	brne L13
	.dbline 43
;   {
	.dbline 44
;    PORTA=0x00;//点亮PA口所有的LED
	clr R2
	out 0x1b,R2
	.dbline 45
;    delay_ms(delay_time);//延时
	ldi R16,500
	ldi R17,1
	xcall _delay_ms
	.dbline 46
;    PORTA = 0xff;//熄灭PB口所有的LED
	ldi R24,255
	out 0x1b,R24
	.dbline 47
;    delay_ms(delay_time);//延时
	ldi R16,500
	ldi R17,1
	xcall _delay_ms
	.dbline 48
;   }//循环检测，为1停止闪烁（熄灭）
L13:
	.dbline 49
L11:
	.dbline 39
	xjmp L10
X1:
	.dbline -2
L9:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 53
;  }
; }
; 
; void main()
; {
	.dbline 54
;  shiyan6();//实验6函数
	xcall _shiyan6
	.dbline -2
L15:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_6\diy0816_06.c
_pb_buf::
	.blkb 1
	.dbsym e pb_buf _pb_buf c