main.s

学习AVR单片机的基础实验程序 适合初学者学习提高

	.module main.c
	.area text(rom, con, rel)
	.dbfile D:\AVR\我的程序\异步串口UART实验/cfg.h
	.dbfunc e delay_ms _delay_ms fV
;              i -> R20,R21
;           time -> R16,R17
	.even
_delay_ms::
	xcall push_gset1
	.dbline -1
	.dbline 10
; /***********************************
; *实验目的：熟悉UART编程
; *设    计：萧联珠
; *日    期：2007-11-20
; ************************************/
; #include <iom16v.h>
; #include "cfg.h"
; 
; void main()
; {
	.dbline 12
;   char num;
;   unsigned int i;
	xjmp L5
L2:
	.dbline 13
	clr R20
	clr R21
L6:
	.dbline 13
L7:
	.dbline 13
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 13
	cpi R20,100
	ldi R30,0
	cpc R21,R30
	brlt L6
L3:
	.dbline 12
	subi R16,1
	sbci R17,0
L5:
	.dbline 12
	clr R2
	clr R3
	cp R2,R16
	cpc R3,R17
	brlt L2
	.dbline -2
L1:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I
	.dbsym r time 16 I
	.dbend
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 18
;   port_init();
;   uart_init();
;   
;   while(1)
;   {
;    num=UDR;
	.dbline 19
;    if((num=='a')|(num=='A'))  //假如接收到A或a则发送0到9
	sbi 0x11,5
	.dbline 20
;    {
	sbi 0x12,5
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart_init _uart_init fV
	.even
_uart_init::
	.dbline -1
	.dbline 25
;      UCSRB|=(1<<TXEN);           //发送使能
;      while(!(UCSRA&(1<<UDRE)));  //等待发送准备完备
; 	 for(i=0;i<10;i++)
; 	 {
; 	  UDR=i;
	.dbline 26
; 	  while(!(UCSRA&(1<<UDRE)));  
	ldi R24,2
	out 0xb,R24
	.dbline 27
; 	  }
	ldi R24,24
	out 0xa,R24
	.dbline 28
; 	}
	ldi R24,6
	out 0x20,R24
	.dbline 29
;    else if(num=='8')      //假如接收到8则停止发送数据
	clr R2
	out 0x20,R2
	.dbline 30
; 	 UCSRB&=~(1<<TXEN);
	ldi R24,12
	out 0x9,R24
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfile D:\AVR\我的程序\异步串口UART实验\main.c
	.dbfunc e main _main fV
;            num -> R20
;              i -> R22,R23
	.even
_main::
	.dbline -1
	.dbline 10
	.dbline 13
	xcall _port_init
	.dbline 14
	xcall _uart_init
	xjmp L14
L13:
	.dbline 17
	.dbline 18
	in R20,0xc
	.dbline 19
	cpi R20,97
	brne L18
	ldi R24,1
	ldi R25,0
	movw R10,R24
	xjmp L19
L18:
	clr R10
	clr R11
L19:
	cpi R20,65
	brne L20
	ldi R22,1
	ldi R23,0
	xjmp L21
L20:
	clr R22
	clr R23
L21:
	movw R2,R10
	or R2,R22
	or R3,R23
	tst R2
	brne X0
	tst R3
	breq L16
X0:
	.dbline 20
	.dbline 21
	sbi 0xa,3
L22:
	.dbline 22
L23:
	.dbline 22
	sbis 0xb,5
	rjmp L22
	.dbline 23
	clr R22
	clr R23
	xjmp L28
L25:
	.dbline 24
	.dbline 25
	out 0xc,R22
L29:
	.dbline 26
L30:
	.dbline 26
	sbis 0xb,5
	rjmp L29
	.dbline 27
L26:
	.dbline 23
	subi R22,255  ; offset = 1
	sbci R23,255
L28:
	.dbline 23
	cpi R22,10
	ldi R30,0
	cpc R23,R30
	brlo L25
	.dbline 28
	xjmp L17
L16:
	.dbline 29
	cpi R20,56
	brne L32
	.dbline 30
	cbi 0xa,3
	xjmp L33
L32:
	.dbline 32
;    else                   //否则轰鸣器报警
;    {
	.dbline 33
;      PORTD|=1<<PD5;
	sbi 0x12,5
	.dbline 34
; 	 delay_ms(100);
	ldi R16,100
	ldi R17,0
	xcall _delay_ms
	.dbline 35
; 	 PORTD&=~(1<<PD5);
	cbi 0x12,5
	.dbline 36
; 	}
L33:
L17:
	.dbline 37
L14:
	.dbline 16
	xjmp L13
X1:
	.dbline -2
L12:
	.dbline 0 ; func end
	ret
	.dbsym r num 20 c
	.dbsym r i 22 i
	.dbend