6.s

这里有11个用ICCAVR开发的源代码,经DEMO板调试后已经通过.

	.module _6.c
	.area text(rom, con, rel)
	.dbfile D:\xij\demo\demo_diy02-8a\1\C语言\02-8A-6\6.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 4
; #include	"iom48v.h"
; 
; void		port_init()
; {
	.dbline 5
;  PORTD=0XFF;DDRD=0XFB;//设置PD2输入，其它输出
	ldi R24,255
	out 0xb,R24
	.dbline 5
	ldi R24,251
	out 0xa,R24
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 9
; }
; 
; void delay_us(int time)
; {   //微秒延时  
L3:
	.dbline 11
;  do
;  {
	.dbline 12
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 13
;  }	
L4:
	.dbline 14
;   while (time>1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L3
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.dbfunc e delay_ms _delay_ms fV
;           time -> R20,R21
	.even
_delay_ms::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 18
; }	  
; 
; void delay_ms(unsigned int time)
; {   //毫秒延时
	rjmp L8
L7:
	.dbline 20
	.dbline 21
	ldi R16,1000
	ldi R17,3
	rcall _delay_us
	.dbline 22
	subi R20,1
	sbci R21,0
	.dbline 23
L8:
	.dbline 19
;  while(time!=0)
	cpi R20,0
	cpc R20,R21
	brne L7
X0:
	.dbline -2
L6:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r time 20 i
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 27
;  {		
;   delay_us(1000);
;   time--;
;  }
; }
; 
; void		main()
; {
	.dbline 29
;  unsigned		  char i;
;  port_init();	  //端口初始化
	rcall _port_init
	rjmp L12
L11:
	.dbline 30
;  while(1){
	.dbline 31
;  i=PIND&0x04;   		  //读出PD2口状态
	in R20,0x9
	andi R20,4
	.dbline 32
;  if(i==0){
	brne L14
	.dbline 32
	.dbline 33
;  	 PORTD^=0x8;
	ldi R24,8
	in R2,0xb
	eor R2,R24
	out 0xb,R2
	.dbline 34
; 	 delay_ms(200);
	ldi R16,200
	ldi R17,0
	rcall _delay_ms
	.dbline 35
;  	 }
	rjmp L15
L14:
	.dbline 37
;  else
;  	 PORTD=0XFF; 
	ldi R24,255
	out 0xb,R24
L15:
	.dbline 38
L12:
	.dbline 30
	rjmp L11
X1:
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend