usart_int.s

protues_atmeg8学习之：uart篇源代码

	.module usart_int.c
	.area data(ram, con, rel)
_gU8getchar::
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
	.dbsym e gU8getchar _gU8getchar c
_gU8RecBuff::
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
	.blkb 1
	.area idata
	.byte 0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
	.dbsym e gU8RecBuff _gU8RecBuff A[3:3]c
	.area text(rom, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
	.dbfunc e putchar _putchar fV
;              c -> R16
	.even
_putchar::
	.dbline -1
	.dbline 21
; /******************************************/
; //文件名：usart_int.c
; //功能： 中断模式串口通信的应用
; //作者:  young
; //时间： 2006.11.16
; //目标MCU:ATmega8   
; //晶振:  8MHZ
; /******************************************/
; //通信波特率为9600（8位数据，无校验，1位停止位，无数据流控制）。
; 
; #include <iom8v.h>
; #include <macros.h>
; 
; #define fosc 8000000   //晶振8MHZ
; #define baud 9600	   //波特率
; unsigned char gU8getchar=0x00;
; unsigned char gU8RecBuff[3]={0,0,0};
; 
; //字符输出函数
; void putchar(unsigned char c)
; {	 
L2:
	.dbline 23
L3:
	.dbline 23
;      //等待写入UDR的字符被送到发送移位寄存器
;      while (!(UCSRA&(1<<UDRE)));
	sbis 0xb,5
	rjmp L2
	.dbline 24
; 	 UDR=c;    
	out 0xc,R16
	.dbline -2
	.dbline 25
; }
L1:
	.dbline 0 ; func end
	ret
	.dbsym r c 16 c
	.dbend
	.dbfunc e getchar _getchar fc
	.even
_getchar::
	.dbline -1
	.dbline 29
; 
; //字符输入函数
; unsigned char getchar(void)
; {
L6:
	.dbline 31
L7:
	.dbline 31
;     //等待接收字符
; 	 while(!(UCSRA&(1<<RXC)));
	sbis 0xb,7
	rjmp L6
	.dbline 32
;      return UDR;
	in R16,0xc
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e puts _puts fI
;              s -> R20,R21
	.even
_puts::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 37
; }
; 	
; //字符串输出函数
; int puts(char *s)
; {
	rjmp L11
L10:
	.dbline 39
	.dbline 40
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 41
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 42
L11:
	.dbline 38
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L10
	.dbline 43
; 	{
; 		putchar(*s);
; 		s++;
; 	}	
;     return 1;
	ldi R16,1
	ldi R17,0
	.dbline -2
L9:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbend
	.dbfunc e puts_hh _puts_hh fV
;              s -> R20,R21
	.even
_puts_hh::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 48
; }
; 
; //含回车换行的字符串输出函数
; void puts_hh(char *s)
; {
	rjmp L15
L14:
	.dbline 50
	.dbline 51
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 52
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 53
L15:
	.dbline 49
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L14
	.dbline 54
; 	{
; 		putchar(*s);
; 		s++;
; 	}	
;     putchar(0x0a);//换行
	ldi R16,10
	rcall _putchar
	.dbline 55
; 	putchar(0x0d);//回车
	ldi R16,13
	rcall _putchar
	.dbline -2
	.dbline 56
; }
L13:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbend
	.dbfunc e uart_init _uart_init fV
	.even
_uart_init::
	.dbline -1
	.dbline 60
; 
; //UART初始化
; void uart_init(void)
; {
	.dbline 61
;     UCSRB=0x00;
	clr R2
	out 0xa,R2
	.dbline 62
; 	UCSRA=0x00;    
	out 0xb,R2
	.dbline 63
;     UBRRL=(fosc/16/baud-1)%256;
	ldi R24,51
	out 0x9,R24
	.dbline 64
;     UBRRH=(fosc/16/baud-1)/256;
	out 0x20,R2
	.dbline 65
;     UCSRC=(1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0);//8位数据+1位停止位
	ldi R24,134
	out 0x20,R24
	.dbline 67
; 	//允许发送和接收，接收完成中断允许
; 	UCSRB=(1<<RXEN)|(1<<TXEN)|(1<<RXCIE);  
	ldi R24,152
	out 0xa,R24
	.dbline -2
	.dbline 68
; }
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.area vector(rom, abs)
	.org 22
	rjmp _uart_rx_isr
	.area text(rom, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
	.dbfunc e uart_rx_isr _uart_rx_isr fV
;           temp -> R16
	.even
_uart_rx_isr::
	st -y,R2
	st -y,R16
	st -y,R24
	st -y,R25
	st -y,R30
	st -y,R31
	in R2,0x3f
	st -y,R2
	.dbline -1
	.dbline 72
; 
; #pragma interrupt_handler uart_rx_isr:iv_USART_RX
; void uart_rx_isr(void)
; {
	.dbline 74
; 	unsigned char temp;	
; 	temp = UDR;
	in R16,0xc
	.dbline 75
; 	if(gU8getchar < 3)
	lds R24,_gU8getchar
	cpi R24,3
	brsh L19
	.dbline 76
; 	{
	.dbline 77
; 		gU8RecBuff[gU8getchar]=temp;
	ldi R24,<_gU8RecBuff
	ldi R25,>_gU8RecBuff
	lds R30,_gU8getchar
	clr R31
	add R30,R24
	adc R31,R25
	std z+0,R16
	.dbline 78
; 	}
	rjmp L20
L19:
	.dbline 80
; 	else
; 	{
	.dbline 81
; 		gU8getchar=0;
	clr R2
	sts _gU8getchar,R2
	.dbline 82
; 		gU8RecBuff[gU8getchar]=temp;
	ldi R24,<_gU8RecBuff
	ldi R25,>_gU8RecBuff
	mov R30,R2
	clr R31
	add R30,R24
	adc R31,R25
	std z+0,R16
	.dbline 83
; 	}	
L20:
	.dbline 84
; 	gU8getchar++;
	lds R24,_gU8getchar
	subi R24,255    ; addi 1
	sts _gU8getchar,R24
	.dbline -2
	.dbline 85
; }
L18:
	ld R2,y+
	out 0x3f,R2
	ld R31,y+
	ld R30,y+
	ld R25,y+
	ld R24,y+
	ld R16,y+
	ld R2,y+
	.dbline 0 ; func end
	reti
	.dbsym r temp 16 c
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 89
; 
; //RS232通信main函数
; void main(void)
; {
	.dbline 90
;     unsigned char i=0;
	clr R20
	.dbline 91
; 	CLI();
	cli
	.dbline 92
;     uart_init();
	rcall _uart_init
	.dbline 93
;     SEI();
	sei
	.dbline 95
; 	//proteus还不支持汉文显示
;     puts_hh("RS232 test demo!");
	ldi R16,<L22
	ldi R17,>L22
	rcall _puts_hh
	.dbline 96
;     puts_hh("MAIL:[e-mail]");
	ldi R16,<L23
	ldi R17,>L23
	rcall _puts_hh
	.dbline 97
;     putchar(0x0a);    //换行
	ldi R16,10
	rcall _putchar
	.dbline 98
;     putchar(0x0d);    //回车 
	ldi R16,13
	rcall _putchar
	.dbline 100
;     //键盘输入回显到终端
;     puts("put int please: ");
	ldi R16,<L24
	ldi R17,>L24
	rcall _puts
	rjmp L26
L25:
	.dbline 102
;     while(1)
;     {  
	.dbline 103
; 	    if (0<gU8getchar)              //按PC键盘开始测试
	lds R2,_gU8getchar
	clr R3
	cp R3,R2
	brsh L28
	.dbline 104
; 	    {
	.dbline 105
; 	        putchar(0x0a);     //换行
	ldi R16,10
	rcall _putchar
	.dbline 106
;             putchar(0x0d);     //回车
	ldi R16,13
	rcall _putchar
	.dbline 107
; 	        puts("your put is: ");
	ldi R16,<L30
	ldi R17,>L30
	rcall _puts
	.dbline 108
; 			for(i=0;i<gU8getchar;i++)
	clr R20
	rjmp L34
L31:
	.dbline 109
	ldi R24,<_gU8RecBuff
	ldi R25,>_gU8RecBuff
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	ldd R16,z+0
	rcall _putchar
L32:
	.dbline 108
	inc R20
L34:
	.dbline 108
	lds R2,_gU8getchar
	cp R20,R2
	brlo L31
	.dbline 110
; 		    putchar(gU8RecBuff[i]);
; 			gU8getchar=0;
	clr R2
	sts _gU8getchar,R2
	.dbline 111
; 		    putchar(0x0a);     //换行
	ldi R16,10
	rcall _putchar
	.dbline 112
;             putchar(0x0d);     //回车
	ldi R16,13
	rcall _putchar
	.dbline 113
; 		    puts("put int please: ");
	ldi R16,<L24
	ldi R17,>L24
	rcall _puts
	.dbline 114
; 	    }	
L28:
	.dbline 115
L26:
	.dbline 101
	rjmp L25
X0:
	.dbline -2
	.dbline 116
;     }
; }
L21:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
L30:
	.blkb 14
	.area idata
	.byte 'y,'o,'u,'r,32,'p,'u,'t,32,'i,'s,58,32,0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
L24:
	.blkb 17
	.area idata
	.byte 'p,'u,'t,32,'i,'n,'t,32,'p,'l,'e,'a,'s,'e,58,32
	.byte 0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
L23:
	.blkb 21
	.area idata
	.byte 'M,'A,'I,'L,58,'y,'o,'u,'n,'g,52,53,64,49,50,54
	.byte 46,'c,'o,'m,0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c
L22:
	.blkb 17
	.area idata
	.byte 'R,'S,50,51,50,32,'t,'e,'s,'t,32,'d,'e,'m,'o,33
	.byte 0
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\usart_int\usart_int.c