.module uart_main.c
	.area text(rom, con, rel)
	.dbfile D:\16實驗程序\串口通信\單片機間通信\主機\uart_main.c
	.dbfile D:\16實驗程序\串口通信\單片機間通信\主機\uart1.h
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 6
; #define uchar unsigned char
; uchar rx_data;
; 
; //端口初始化
; void port_init(void)
; {
	.dbline 7
;  PORTA = 0x00;
	clr R2
	out 0x1b,R2
	.dbline 8
;  DDRA  = 0x00;
	out 0x1a,R2
	.dbline 9
;  PORTB = 0x00;
	out 0x18,R2
	.dbline 10
;  DDRB  = 0x00;
	out 0x17,R2
	.dbline 11
;  PORTC = 0x00; //m103 output only
	out 0x15,R2
	.dbline 12
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 13
;  PORTD = 0x00;
	out 0x12,R2
	.dbline 14
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart0_init _uart0_init fV
	.even
_uart0_init::
	.dbline -1
	.dbline 19
; }
; 
; //串行口初始化
; void uart0_init(void)
; {
	.dbline 20
;  UCSRB = 0x00; //disable while setting baud rate
	clr R2
	out 0xa,R2
	.dbline 21
;  UCSRA = 0x00;
	out 0xb,R2
	.dbline 22
;  UCSRC = BIT(URSEL) | 0x06;
	ldi R24,134
	out 0x20,R24
	.dbline 23
;  UBRRL = 0x19; //set baud rate lo
	ldi R24,25
	out 0x9,R24
	.dbline 24
;  UBRRH = 0x00; //set baud rate hi
	out 0x20,R2
	.dbline 25
;  UCSRB = 0x18;
	ldi R24,24
	out 0xa,R24
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 30
; }
; 
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 32
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 33
;  port_init();
	xcall _port_init
	.dbline 34
;  uart0_init();
	xcall _uart0_init
	.dbline 36
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 37
;  GICR  = 0x00;
	out 0x3b,R2
	.dbline 38
;  TIMSK = 0x00; //timer interrupt sources
	out 0x39,R2
	.dbline 39
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L3:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart_tx _uart_tx fV
;            txc -> R16
	.even
_uart_tx::
	.dbline -1
	.dbline 45
;  //all peripherals are now initialized
; }
; 
; //發送一個字節的數據
; void uart_tx(uchar txc)      //send a uchar data
; {
L5:
	.dbline 46
; while(!(UCSRA&(1<<UDRE)));   //check send enable
L6:
	.dbline 46
	sbis 0xb,5
	rjmp L5
X0:
	.dbline 47
; UDR=txc;              
	out 0xc,R16
	.dbline -2
L4:
	.dbline 0 ; func end
	ret
	.dbsym r txc 16 c
	.dbend
	.dbfunc e rx_c _rx_c fc
	.even
_rx_c::
	.dbline -1
	.dbline 52
; }
; 
; //查詢接收
; uchar rx_c()
; {
	.dbline 53
; PORTC|=(1<<2);
	sbi 0x15,2
L9:
	.dbline 54
; while(!(UCSRA&(1<<RXC)));
L10:
	.dbline 54
	sbis 0xb,7
	rjmp L9
X1:
	.dbline 55
; PORTC|=(1<<3);
	sbi 0x15,3
	.dbline 56
; return UDR;
	in R16,0xc
	.dbline -2
L8:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfile D:\16實驗程序\串口通信\單片機間通信\主機\uart_main.c
	.dbfunc e ms _ms fI
;             aa -> R16,R17
	.even
_ms::
	.dbline -1
	.dbline 10
; //串口通信的主機程序
; //發送數據并等待接收數據，收到數據與發送數據對比，正確繼續，錯誤閃爍
; //led顯示數據
; #include <iom16v.h>
; #include <macros.h>
; #include "uart1.h"
; #define uint unsigned int
; 
; ms(uint aa)
; {
	.dbline 11
; for(;aa>0;aa--);
	xjmp L16
L13:
	.dbline 11
L14:
	.dbline 11
	subi R16,1
	sbci R17,0
L16:
	.dbline 11
	cpi R16,0
	cpc R16,R17
	brne L13
X2:
	.dbline -2
L12:
	.dbline 0 ; func end
	ret
	.dbsym r aa 16 i
	.dbend
	.dbfunc e main _main fI
;        rx_temp -> R12
;              i -> R10
	.even
_main::
	.dbline -1
	.dbline 15
; }
; 
; main()
; {
	.dbline 16
; uchar i=0,rx_temp;
	clr R10
	.dbline 17
; init_devices();      //初始化
	xcall _init_devices
	.dbline 18
; DDRD=0xff;
	ldi R24,255
	out 0x11,R24
	.dbline 19
; PORTD=0x00;
	clr R2
	out 0x12,R2
	.dbline 20
; ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	xjmp L19
L18:
	.dbline 22
; while(1)
; 		{
	.dbline 23
;       		uart_tx(i);       //發送數據i
	mov R16,R10
	xcall _uart_tx
	.dbline 24
; 			rx_temp=rx_c();   //查詢接收
	xcall _rx_c
	mov R12,R16
	.dbline 25
; 			if(rx_temp==i)    //驗證發送接收是否正確
	cp R16,R10
	brne L24
X3:
	.dbline 26
; 			{
	.dbline 27
; 			i++;
	inc R10
	.dbline 28
; 			PORTD=~i<<2; 
	mov R2,R10
	com R2
	lsl R2
	lsl R2
	out 0x12,R2
	.dbline 29
; 			ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 30
; 			ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 31
; 			ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 32
; 			ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 33
; 			ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 34
; 			}
	xjmp L22
L23:
	.dbline 38
; 			else              //通信錯誤
; 			{
; 			while(1)
; 			     {
	.dbline 39
; 			      PORTD=0x00;
	clr R2
	out 0x12,R2
	.dbline 40
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 41
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 42
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 43
; 			      PORTD=0xff;
	ldi R24,255
	out 0x12,R24
	.dbline 44
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 45
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 46
; 			      ms(60000);
	ldi R16,60000
	ldi R17,234
	xcall _ms
	.dbline 47
; 				  }
L24:
	.dbline 37
	xjmp L23
L22:
	.dbline 49
; 			}
; 		}
L19:
	.dbline 21
	xjmp L18
X4:
	.dbline -2
L17:
	.dbline 0 ; func end
	ret
	.dbsym r rx_temp 12 c
	.dbsym r i 10 c
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\16實驗程序\串口通信\單片機間通信\主機\uart_main.c
_rx_data::
	.blkb 1
	.dbfile D:\16實驗程序\串口通信\單片機間通信\主機\uart1.h
	.dbsym e rx_data _rx_data c
; }