diy0816-02.s

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

	.module diy0816-02.c
	.area text(rom, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_2\diy0816-02.c
	.dbfunc e shiyan2 _shiyan2 fV
	.even
_shiyan2::
	.dbline -1
	.dbline 16
; //2.	I/O端口作输入或输出实验。
; //ATmega16的PA.0端口开关(可用接插线接VCC或GND代替, 红色箭头表示本实验连线,
; //实验1与2对比,说明单片机I/O口功能,这个端口可作输入(I)或输出(O),
; //和人的鼻子功能一样,吸(输入)/呼(输出)。
; //如果接上玩具直流电动机,电动机就会转动起来。
; //     www.sl.com.cn
; //     [e-mail]    05-11-12
; // Target : atmega16     Crystal: 8.0000Mhz
; 
; #include <iom16v.h>
; #include <macros.h>
; 
; unsigned char pa_buf;
; 
; void shiyan2()
; {
	.dbline 17
;  DDRA=0x00;PORTA=0xFF;//PA口输入，且内部上拉
	clr R2
	out 0x1a,R2
	.dbline 17
	ldi R24,255
	out 0x1b,R24
	.dbline 18
;  DDRB=0xFF;PORTB=0xFF;//PB口输出
	out 0x17,R24
	.dbline 18
	out 0x18,R24
	xjmp L3
L2:
	.dbline 21
; 
;  while(1)//循环运行
;  {
	.dbline 22
;   pa_buf=PINA;//检测PINA0是否为低电平 0
	in R2,0x19
	sts _pa_buf,R2
	.dbline 23
;   pa_buf=pa_buf & 0x01;
	mov R24,R2
	andi R24,1
	sts _pa_buf,R24
	.dbline 24
;   if(pa_buf==0x00)
	tst R24
	brne L5
	.dbline 25
;   PORTB=0xfe;//为0，PB0输出低电平，点亮LED
	ldi R24,254
	out 0x18,R24
	xjmp L6
L5:
	.dbline 26
;   else PORTB = 0xff;//为1，PB0输出高电平，熄灭LED
	ldi R24,255
	out 0x18,R24
L6:
	.dbline 28
L3:
	.dbline 20
	xjmp L2
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 32
; 
;  }
; }
; 
; void main()
; {
	.dbline 33
;  shiyan2();//实验2函数
	xcall _shiyan2
	.dbline -2
L7:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\SL-DIY~1\diy0208_16_2\diy0816-02.c
_pa_buf::
	.blkb 1
	.dbsym e pa_buf _pa_buf c