uart.s

atmega16 iic（twi）主从机通信 测试通过

	.module uart.c
	.area lit(rom, con, rel)
L2:
	.byte 0
	.byte 0,0,0,0,0,0,0
	.area text(rom, con, rel)
	.dbfile E:\atmega16子函数\TWI_master\uart.c
	.dbfunc e put _put fV
;              d -> y+0
;              i -> R20,R21
	.even
_put::
	rcall push_gset1
	movw R20,R16
	sbiw R28,8
	.dbline -1
	.dbline 5
; #include <iom8v.h>
; #include<macros.h>
; 
; void put(unsigned int i)
; {
	.dbline 6
;  char d[8]={0};
	ldi R24,<L2
	ldi R25,>L2
	movw R30,R28
	ldi R16,8
	ldi R17,0
	st -y,R31
	st -y,R30
	st -y,R25
	st -y,R24
	rcall asgncblk
	.dbline 7
;  Int_to_Char(i,d);
	movw R18,R28
	movw R16,R20
	rcall _Int_to_Char
	.dbline 8
;  puts(d);
	movw R16,R28
	rcall _puts
	.dbline -2
	.dbline 9
;  }
L1:
	adiw R28,8
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym l d 0 A[8:8]c
	.dbsym r i 20 i
	.dbend
	.dbfunc e Int_to_Char _Int_to_Char fV
;              p -> R20,R21
;              i -> R22,R23
	.even
_Int_to_Char::
	rcall push_gset2
	movw R20,R18
	movw R22,R16
	.dbline -1
	.dbline 11
;  void Int_to_Char(unsigned int i,char *p)
;  {p[0]=i/1000+48;
	.dbline 11
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	rcall div16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+0,R24
	.dbline 12
;   p[1]=(i/100)%10+48;
	ldi R18,100
	ldi R19,0
	movw R16,R22
	rcall div16u
	ldi R18,10
	ldi R19,0
	rcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+1,R24
	.dbline 13
;   p[2]=(i%100)/10+48;
	ldi R18,100
	ldi R19,0
	movw R16,R22
	rcall mod16u
	ldi R18,10
	ldi R19,0
	rcall div16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+2,R24
	.dbline 14
;   p[3]=(i%100)%10+48;
	ldi R18,100
	ldi R19,0
	movw R16,R22
	rcall mod16u
	ldi R18,10
	ldi R19,0
	rcall mod16u
	movw R24,R16
	adiw R24,48
	movw R30,R20
	std z+3,R24
	.dbline -2
	.dbline 15
;  }
L3:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r p 20 pc
	.dbsym r i 22 i
	.dbend
	.dbfunc e putchar _putchar fV
;              c -> R16
	.even
_putchar::
	.dbline -1
	.dbline 18
; /*          字符输出函数         */
; void putchar(char c)
;     {    
L5:
	.dbline 19
L6:
	.dbline 19
;      while (!(UCSRA&(1<<UDRE)));
	sbis 0xb,5
	rjmp L5
	.dbline 20
;      UDR=c;    
	out 0xc,R16
	.dbline -2
	.dbline 21
;     }
L4:
	.dbline 0 ; func end
	ret
	.dbsym r c 16 c
	.dbend
	.dbfunc e getchar _getchar fc
	.even
_getchar::
	.dbline -1
	.dbline 24
; /*          字符输入函数         */	
; unsigned char getchar(void)
;     {
L9:
	.dbline 25
L10:
	.dbline 25
;      while(!(UCSRA& (1<<RXC)));
	sbis 0xb,7
	rjmp L9
	.dbline 27
;      
; 	 return UDR;
	in R16,0xc
	.dbline -2
L8:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e puts _puts fV
;              s -> R20,R21
	.even
_puts::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 31
;     }   	
; /*          字符串输出函数       */ 
; void puts(char * s)
;     {
	rjmp L14
L13:
	.dbline 33
	.dbline 34
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 35
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 36
L14:
	.dbline 32
;     while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L13
	.dbline 37
;         {
;         putchar(*s);
;         s++;
;         }	
;     putchar(0x0a);//回车换行
	ldi R16,10
	rcall _putchar
	.dbline 38
;     putchar(0x0d);
	ldi R16,13
	rcall _putchar
	.dbline -2
	.dbline 40
;     
;     }
L12:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbend
	.dbfunc e putstr _putstr fV
;              s -> R20,R21
	.even
_putstr::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 43
; /*         不含回车换行的字符串输出函数      */ 
; void putstr(char * s)
;     {
	rjmp L18
L17:
	.dbline 45
	.dbline 46
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 47
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 48
L18:
	.dbline 44
;     while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L17
	.dbline -2
	.dbline 49
;         {
;         putchar(*s);
;         s++;
;         }	
;     }   
L16:
	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 52
; /*          UART初始化          	*/	
; void uart_init(void)
; {
	.dbline 54
;  
;  UCSRB=(1<<RXEN)|(1<<TXEN)|(1<<RXCIE);;//允许发送和接收
	ldi R24,152
	out 0xa,R24
	.dbline 54
	.dbline 55
;  UBRRL=47;  // 4M 25        8M 51    7.3728M 47
	ldi R24,47
	out 0x9,R24
	.dbline 56
;  UBRRH=0;  //       9600;   
	clr R2
	out 0x20,R2
	.dbline 57
;  UCSRC=(1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0);//8位数据+1位STOP位
	ldi R24,134
	out 0x20,R24
	.dbline -2
	.dbline 58
; }
L20:
	.dbline 0 ; func end
	ret
	.dbend