diy0816_08.s

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

	.module diy0816_08.c
	.area text(rom, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_8\diy0816_08.c
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 15
; //8.	I/O端口的进一步应用。
; //请你设计SL-DIY08-16主板上4个I/O口32个LED灯的变化多样的广告灯程序。
; //     www.sl.com.cn
; //    [e-mail]    05-11-12
; // Target : atmega16     Crystal: 8.0000Mhz
; 
; #include <iom16v.h>
; #include <macros.h>
; 
; #define delay_time 500
;      //delay_time=500，定义延时常量
; unsigned char pa_buf,pb_buf,pc_buf,pd_buf,loop_timers;
; 	 //定义为字符型变量
; void delay_us(int time)
; {    //微秒延时         
L2:
	.dbline 17
;  do
;  {
	.dbline 18
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 19
;  }	
L3:
	.dbline 20
;   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 24
; }	  
; 
; void delay_ms(unsigned int time)
; {    //毫秒延时
	xjmp L7
L6:
	.dbline 26
	.dbline 27
	ldi R16,1000
	ldi R17,3
	xcall _delay_us
	.dbline 28
	subi R20,1
	sbci R21,0
	.dbline 29
L7:
	.dbline 25
;  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 shiyan8 _shiyan8 fV
	.even
_shiyan8::
	.dbline -1
	.dbline 33
;  {		
;   delay_us(1000);
;   time--;
;  }
; }		
; 
; void shiyan8()
; {	 //PA口、PB口、PC口、PD口都为输出口
	.dbline 34
;  DDRA=0xFF;PORTA=0xFF;
	ldi R24,255
	out 0x1a,R24
	.dbline 34
	out 0x1b,R24
	.dbline 35
;  DDRB=0xFF;PORTB=0xFF;
	out 0x17,R24
	.dbline 35
	out 0x18,R24
	.dbline 36
;  DDRC=0xFF;PORTC=0xFF;
	out 0x14,R24
	.dbline 36
	out 0x15,R24
	.dbline 37
;  DDRD=0xFF;PORTD=0xFF;
	out 0x11,R24
	.dbline 37
	out 0x12,R24
	.dbline 38
;  delay_ms(delay_time/2);
	ldi R16,250
	ldi R17,0
	xcall _delay_ms
	xjmp L11
L10:
	.dbline 40
;  while(1)//循环运行
;  {
	.dbline 41
;   pa_buf=0x01;//PA0~PA7依次点亮
	ldi R24,1
	sts _pa_buf,R24
	.dbline 42
;   for(loop_timers=0;loop_timers<8;loop_timers++)
	clr R2
	sts _loop_timers,R2
	xjmp L16
L13:
	.dbline 43
	.dbline 43
	lds R2,_pa_buf
	com R2
	out 0x1b,R2
	.dbline 43
	lds R2,_pa_buf
	lsl R2
	sts _pa_buf,R2
	.dbline 43
	ldi R16,166
	ldi R17,0
	xcall _delay_ms
	.dbline 43
L14:
	.dbline 42
	lds R24,_loop_timers
	subi R24,255    ; addi 1
	sts _loop_timers,R24
L16:
	.dbline 42
	lds R24,_loop_timers
	cpi R24,8
	brlo L13
	.dbline 44
;   {PORTA=~pa_buf;pa_buf=pa_buf<<1;delay_ms(delay_time/3);}
;   PORTA=0xff;//PA口熄灭
	ldi R24,255
	out 0x1b,R24
	.dbline 45
;   pc_buf=0x80;//PC7~PC0一次点亮
	ldi R24,128
	sts _pc_buf,R24
	.dbline 46
;   for(loop_timers=0;loop_timers<8;loop_timers++)
	clr R2
	sts _loop_timers,R2
	xjmp L20
L17:
	.dbline 47
	.dbline 47
	lds R2,_pc_buf
	com R2
	out 0x15,R2
	.dbline 47
	lds R2,_pc_buf
	lsr R2
	sts _pc_buf,R2
	.dbline 47
	ldi R16,125
	ldi R17,0
	xcall _delay_ms
	.dbline 47
L18:
	.dbline 46
	lds R24,_loop_timers
	subi R24,255    ; addi 1
	sts _loop_timers,R24
L20:
	.dbline 46
	lds R24,_loop_timers
	cpi R24,8
	brlo L17
	.dbline 48
;   {PORTC=~pc_buf;pc_buf=pc_buf>>1;delay_ms(delay_time/4);}
;   PORTC=0xff;//PC口熄灭
	ldi R24,255
	out 0x15,R24
	.dbline 49
;   pb_buf=0x01;//PB0~PB7依次点亮
	ldi R24,1
	sts _pb_buf,R24
	.dbline 50
;   for(loop_timers=0;loop_timers<8;loop_timers++)
	clr R2
	sts _loop_timers,R2
	xjmp L24
L21:
	.dbline 51
	.dbline 51
	lds R2,_pb_buf
	com R2
	out 0x18,R2
	.dbline 51
	lds R2,_pb_buf
	lsl R2
	sts _pb_buf,R2
	.dbline 51
	ldi R16,125
	ldi R17,0
	xcall _delay_ms
	.dbline 51
L22:
	.dbline 50
	lds R24,_loop_timers
	subi R24,255    ; addi 1
	sts _loop_timers,R24
L24:
	.dbline 50
	lds R24,_loop_timers
	cpi R24,8
	brlo L21
	.dbline 52
;   {PORTB=~pb_buf;pb_buf=pb_buf<<1;delay_ms(delay_time/4);}
;   PORTB=0xff;//PB口熄灭
	ldi R24,255
	out 0x18,R24
	.dbline 53
;   pd_buf=0x01;//PD0~PD7依次点亮
	ldi R24,1
	sts _pd_buf,R24
	.dbline 54
;   for(loop_timers=0;loop_timers<8;loop_timers++)
	clr R2
	sts _loop_timers,R2
	xjmp L28
L25:
	.dbline 55
	.dbline 55
	lds R2,_pd_buf
	com R2
	out 0x12,R2
	.dbline 55
	lds R2,_pd_buf
	lsl R2
	sts _pd_buf,R2
	.dbline 55
	ldi R16,125
	ldi R17,0
	xcall _delay_ms
	.dbline 55
L26:
	.dbline 54
	lds R24,_loop_timers
	subi R24,255    ; addi 1
	sts _loop_timers,R24
L28:
	.dbline 54
	lds R24,_loop_timers
	cpi R24,8
	brlo L25
	.dbline 56
;   {PORTD=~pd_buf;pd_buf=pd_buf<<1;delay_ms(delay_time/4);}
;   PORTD=0xff;//PD口熄灭
	ldi R24,255
	out 0x12,R24
	.dbline 57
;   for(loop_timers=0;loop_timers<4;loop_timers++)
	clr R2
	sts _loop_timers,R2
	xjmp L32
L29:
	.dbline 58
	.dbline 59
	ldi R24,240
	out 0x12,R24
	out 0x1b,R24
	.dbline 59
	ldi R24,15
	out 0x15,R24
	out 0x18,R24
	.dbline 59
	ldi R16,250
	ldi R17,0
	xcall _delay_ms
	.dbline 60
	ldi R24,15
	out 0x12,R24
	out 0x1b,R24
	.dbline 60
	ldi R24,240
	out 0x15,R24
	out 0x18,R24
	.dbline 60
	ldi R16,250
	ldi R17,0
	xcall _delay_ms
	.dbline 61
L30:
	.dbline 57
	lds R24,_loop_timers
	subi R24,255    ; addi 1
	sts _loop_timers,R24
L32:
	.dbline 57
	lds R24,_loop_timers
	cpi R24,4
	brlo L29
	.dbline 62
	ldi R24,255
	out 0x12,R24
	out 0x15,R24
	out 0x18,R24
	out 0x1b,R24
	.dbline 63
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 67
;   {
;    PORTA=PORTD=0xf0;PORTB=PORTC=0x0f;delay_ms(delay_time/2);
;    PORTA=PORTD=0x0f;PORTB=PORTC=0xf0;delay_ms(delay_time/2);
;   }//PA、PB、PC、PD对半交替闪烁
;   PORTA=PORTB=PORTC=PORTD=0xFF;//熄灭四个口所有的LED
;  }
; }
; 
; void main()
; {
	.dbline 68
;  shiyan8();//实验8函数
	xcall _shiyan8
	.dbline -2
L33:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_8\diy0816_08.c
_loop_timers::
	.blkb 1
	.dbsym e loop_timers _loop_timers c
_pd_buf::
	.blkb 1
	.dbsym e pd_buf _pd_buf c
_pc_buf::
	.blkb 1
	.dbsym e pc_buf _pc_buf c
_pb_buf::
	.blkb 1
	.dbsym e pb_buf _pb_buf c
_pa_buf::
	.blkb 1
	.dbsym e pa_buf _pa_buf c