usart_scan.s

protues_atmeg8学习之：uart篇源代码

	.module usart_scan.c
	.area text(rom, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\USART_Scan\usart_scan.c
	.dbfunc e putchar _putchar fV
;              c -> R16
	.even
_putchar::
	.dbline -1
	.dbline 17
; /******************************************/
; //文件名：usart_scan.c
; //功能： 扫描式串口通信的应用
; //作者:  young
; //时间： 2006.11.16
; //目标MCU:ATmega8   
; //晶振:  8MHZ
; /******************************************/
; //通信波特率为9600（8位数据，无校验，1位停止位，无数据流控制）。
; 
; #include <iom8v.h>
; #define fosc 8000000   //晶振8MHZ
; #define baud 9600	   //波特率
; 
; //字符输出函数
; void putchar(unsigned char c)
; {	 
L2:
	.dbline 19
L3:
	.dbline 19
;      //等待写入UDR的字符被送到发送移位寄存器
;      while (!(UCSRA&(1<<UDRE)));
	sbis 0xb,5
	rjmp L2
	.dbline 20
; 	 UDR=c;    
	out 0xc,R16
	.dbline -2
	.dbline 21
; }
L1:
	.dbline 0 ; func end
	ret
	.dbsym r c 16 c
	.dbend
	.dbfunc e getchar _getchar fc
	.even
_getchar::
	.dbline -1
	.dbline 25
; 
; //字符输入函数	
; unsigned char getchar(void)
; {
L6:
	.dbline 27
L7:
	.dbline 27
;     //等待接收字符
; 	 while(!(UCSRA&(1<<RXC)));
	sbis 0xb,7
	rjmp L6
	.dbline 28
;      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 33
; }
; 	
; //字符串输出函数
; int puts(char *s)
; {
	rjmp L11
L10:
	.dbline 35
	.dbline 36
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 37
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 38
L11:
	.dbline 34
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L10
	.dbline 39
; 	{
; 		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 44
; }
; 
; //含回车换行的字符串输出函数
; void puts_hh(char *s)
; {
	rjmp L15
L14:
	.dbline 46
	.dbline 47
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 48
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 49
L15:
	.dbline 45
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L14
	.dbline 50
; 	{
; 		putchar(*s);
; 		s++;
; 	}	
;     putchar(0x0a);//换行
	ldi R16,10
	rcall _putchar
	.dbline 51
; 	putchar(0x0d);//回车
	ldi R16,13
	rcall _putchar
	.dbline -2
	.dbline 52
; }
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 56
; 
; //UART初始化
; void uart_init(void)
; {
	.dbline 57
;     UCSRB=(1<<RXEN)|(1<<TXEN);             //允许发送和接收
	ldi R24,24
	out 0xa,R24
	.dbline 58
;     UBRRL=(fosc/16/baud-1)%256;
	ldi R24,51
	out 0x9,R24
	.dbline 59
;     UBRRH=(fosc/16/baud-1)/256;
	clr R2
	out 0x20,R2
	.dbline 60
;     UCSRC=(1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0);//8位数据+1位停止位
	ldi R24,134
	out 0x20,R24
	.dbline -2
	.dbline 61
; }
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 66
; 
; 
; //RS232通信main函数
; void main(void)
; {
	.dbline 67
;     unsigned char i=0;
	clr R20
	.dbline 68
;     uart_init();
	rcall _uart_init
	.dbline 71
; 
; 	//proteus还不支持汉文显示
;     puts_hh("RS232 test demo!");
	ldi R16,<L19
	ldi R17,>L19
	rcall _puts_hh
	.dbline 72
;     puts_hh("MAIL:[e-mail]");
	ldi R16,<L20
	ldi R17,>L20
	rcall _puts_hh
	.dbline 73
;     putchar(0x0a);    //换行
	ldi R16,10
	rcall _putchar
	.dbline 74
;     putchar(0x0d);    //回车
	ldi R16,13
	rcall _putchar
	.dbline 77
;  
;     //键盘输入回显到终端
;     puts("put int please: ");
	ldi R16,<L21
	ldi R17,>L21
	rcall _puts
	rjmp L23
L22:
	.dbline 80
; 
;     while(1)
;     {
	.dbline 81
;  	    i=getchar();
	rcall _getchar
	mov R20,R16
	.dbline 82
; 	    if (i!=0)              //按PC键盘开始测试
	tst R16
	breq L25
	.dbline 83
; 	    {
	.dbline 84
; 	        putchar(0x0a);     //换行
	ldi R16,10
	rcall _putchar
	.dbline 85
;             putchar(0x0d);     //回车
	ldi R16,13
	rcall _putchar
	.dbline 86
; 	        puts("your put is: ");
	ldi R16,<L27
	ldi R17,>L27
	rcall _puts
	.dbline 87
; 		    putchar(i);
	mov R16,R20
	rcall _putchar
	.dbline 88
; 		    putchar(0x0a);     //换行
	ldi R16,10
	rcall _putchar
	.dbline 89
;             putchar(0x0d);     //回车
	ldi R16,13
	rcall _putchar
	.dbline 90
; 		    puts("put int please: ");
	ldi R16,<L21
	ldi R17,>L21
	rcall _puts
	.dbline 91
; 	    }	
L25:
	.dbline 92
L23:
	.dbline 79
	rjmp L22
X0:
	.dbline -2
	.dbline 93
;     }
; }
L18:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.area data(ram, con, rel)
	.dbfile F:\Learn\AVR\Pro_Mega8\USART\USART_Scan\usart_scan.c
L27:
	.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_Scan\usart_scan.c
L21:
	.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_Scan\usart_scan.c
L20:
	.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_Scan\usart_scan.c
L19:
	.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_Scan\usart_scan.c