example2.s

AVR单片机C语言编程及应用实例 适合初学者的学习研究 其中包含Atmega16中文资料及Protel部分电路图

	.module example2.c
	.area text(rom, con, rel)
	.dbfile G:\学习\avr\天祥电子AVR视频教程\chengxu\example\example2.c
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;             ms -> R16,R17
	.even
_delay::
	xcall push_xgsetF000
	.dbline -1
	.dbline 5
; #include <iom16v.h>
; #include <macros.h>
; 
; void delay(int ms)
; {
	.dbline 7
;     int i,j;
; 	for(i=0;i<ms;i++)
	clr R20
	clr R21
	xjmp L5
L2:
	.dbline 8
; 	   for(j=0;j<1141;j++);
	clr R22
	clr R23
L6:
	.dbline 8
L7:
	.dbline 8
	subi R22,255  ; offset = 1
	sbci R23,255
	.dbline 8
	cpi R22,117
	ldi R30,4
	cpc R23,R30
	brlt L6
X0:
L3:
	.dbline 7
	subi R20,255  ; offset = 1
	sbci R21,255
L5:
	.dbline 7
	cp R20,R16
	cpc R21,R17
	brlt L2
X1:
	.dbline -2
L1:
	.dbline 0 ; func end
	xjmp pop_xgsetF000
	.dbsym r i 20 I
	.dbsym r j 22 I
	.dbsym r ms 16 I
	.dbend
	.dbfunc e main _main fV
;              l -> R22
;              k -> R20
	.even
_main::
	.dbline -1
	.dbline 12
;        
; }
; void main()
; {
	.dbline 14
;    
;    DDRA=0XFF;PORTA=0X00;
	ldi R24,255
	out 0x1a,R24
	.dbline 14
	clr R2
	out 0x1b,R2
	.dbline 15
;    DDRC=0X01;PORTC=0X01;
	ldi R24,1
	out 0x14,R24
	.dbline 15
	out 0x15,R24
	xjmp L12
L11:
	.dbline 17
;    while(1)
;    {
	.dbline 19
;       char k,l;
; 	  for(l=2;l>0;l--)
	ldi R22,2
	xjmp L17
L14:
	.dbline 20
; 	  {
	.dbline 21
;          for(k=0;k<8;k++)
	clr R20
	xjmp L21
L18:
	.dbline 22
; 	       {
	.dbline 23
;               PORTA|=BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	in R2,0x1b
	or R2,R16
	out 0x1b,R2
	.dbline 24
; 			  PORTC=0X00;
	clr R2
	out 0x15,R2
	.dbline 25
; 	          delay(200);
	ldi R16,200
	ldi R17,0
	xcall _delay
	.dbline 26
; 	           PORTA&=~BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	mov R2,R16
	com R2
	in R3,0x1b
	and R3,R2
	out 0x1b,R3
	.dbline 27
; 			   PORTC=0X01;
	ldi R24,1
	out 0x15,R24
	.dbline 28
; 	          delay(200);
	ldi R16,200
	ldi R17,0
	xcall _delay
	.dbline 29
; 	        }
L19:
	.dbline 21
	inc R20
L21:
	.dbline 21
	cpi R20,8
	brlo L18
X2:
	.dbline 30
; 	     for(k=6;k>0;k--)
	ldi R20,6
	xjmp L25
L22:
	.dbline 31
; 	         {
	.dbline 32
;                 PORTA|=BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	in R2,0x1b
	or R2,R16
	out 0x1b,R2
	.dbline 33
; 				PORTC=0X00;
	clr R2
	out 0x15,R2
	.dbline 34
; 	            delay(200);
	ldi R16,200
	ldi R17,0
	xcall _delay
	.dbline 35
; 	           PORTA&=~BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	mov R2,R16
	com R2
	in R3,0x1b
	and R3,R2
	out 0x1b,R3
	.dbline 36
; 			   PORTC=0X01;
	ldi R24,1
	out 0x15,R24
	.dbline 37
; 	           delay(200);
	ldi R16,200
	ldi R17,0
	xcall _delay
	.dbline 38
; 	        }
L23:
	.dbline 30
	dec R20
L25:
	.dbline 30
	ldi R24,0
	cp R24,R20
	brlo L22
X3:
	.dbline 39
;       }
L15:
	.dbline 19
	dec R22
L17:
	.dbline 19
	ldi R24,0
	cp R24,R22
	brsh X8
	xjmp L14
X8:
X4:
	.dbline 40
; 	  PORTA=0X00;
	clr R2
	out 0x1b,R2
	.dbline 42
; 	  
; 	  for(k=0;k<8;k++)
	clr R20
	xjmp L29
L26:
	.dbline 43
; 	       {
	.dbline 44
; 		       for(l=0;l<5;l++)
	clr R22
	xjmp L33
L30:
	.dbline 45
; 		         {
	.dbline 46
; 		           PORTA|=BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	in R2,0x1b
	or R2,R16
	out 0x1b,R2
	.dbline 47
; 				   delay(50);
	ldi R16,50
	ldi R17,0
	xcall _delay
	.dbline 48
; 	                PORTA&=~BIT(k);
	ldi R16,1
	mov R17,R20
	xcall lsl8
	mov R2,R16
	com R2
	in R3,0x1b
	and R3,R2
	out 0x1b,R3
	.dbline 49
; 					delay(50);
	ldi R16,50
	ldi R17,0
	xcall _delay
	.dbline 50
; 	             }
L31:
	.dbline 44
	inc R22
L33:
	.dbline 44
	cpi R22,5
	brlo L30
X5:
	.dbline 51
; 			   delay(300);
	ldi R16,300
	ldi R17,1
	xcall _delay
	.dbline 52
; 	        }
L27:
	.dbline 42
	inc R20
L29:
	.dbline 42
	cpi R20,8
	brlo L26
X6:
	.dbline 53
;   }
L12:
	.dbline 16
	xjmp L11
X7:
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbsym r l 22 c
	.dbsym r k 20 c
	.dbend
; }