.module UART.C
	.area data(ram, con, rel)
_Table::
	.blkb 2
	.area idata
	.byte 63,6
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 91,'O
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 'f,'m
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 125,7
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 127,'o
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 'w,124
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 57,94
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 'y,'q
	.area data(ram, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.dbsym e Table _Table A[16:16]c
_Send_Data::
	.blkb 2
	.area idata
	.byte 'a,'b
	.area data(ram, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.blkb 2
	.area idata
	.byte 'c,'d
	.area data(ram, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.dbsym e Send_Data _Send_Data A[4:4]c
_Receive_Data::
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.dbsym e Receive_Data _Receive_Data A[4:4]c
	.area text(rom, con, rel)
	.dbfile J:\AVRpractice\BOOK\UARTforBook\UART.C
	.dbfunc e DelayMs _DelayMs fV
;              j -> R20,R21
;              i -> R16,R17
	.even
_DelayMs::
	rcall push_gset1
	.dbline -1
	.dbline 11
; #include <io8535v.h>
; #define uchar unsigned char
; #define uint  unsigned int
; 
; uchar Table[16]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
;                  0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
; uchar Send_Data[]={'a','b','c','d'};
; uchar Receive_Data[]={0,0,0,0};
; 			 
; void DelayMs(uint i)
; {uint j;
	.dbline 12
;  for(;i!=0;i--)
	rjmp L5
L2:
	.dbline 13
	.dbline 13
	ldi R20,2000
	ldi R21,7
	rjmp L9
L6:
	.dbline 13
	.dbline 13
	.dbline 13
L7:
	.dbline 13
	subi R20,1
	sbci R21,0
L9:
	.dbline 13
	cpi R20,0
	cpc R20,R21
	brne L6
X0:
	.dbline 13
L3:
	.dbline 12
	subi R16,1
	sbci R17,0
L5:
	.dbline 12
	cpi R16,0
	cpc R16,R17
	brne L2
X1:
	.dbline -2
	.dbline 14
;    {for(j=2000;j!=0;j--) {;}}
; }
L1:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r j 20 i
	.dbsym r i 16 i
	.dbend
	.dbfunc e Display _Display fV
;            sel -> R20
;              i -> R22
;              p -> R10,R11
	.even
_Display::
	rcall push_gset3
	mov R10,R16
	mov R11,R17
	.dbline -1
	.dbline 17
; 
; void Display(uchar *p)         //動態顯示函數，參數p為待顯示的數組名
; {uchar i,sel=0x01;           
	.dbline 17
	ldi R20,1
	.dbline 18
;  for(i=0;i<4;i++)
	clr R22
	rjmp L14
L11:
	.dbline 19
	.dbline 19
	out 0x1b,R20
	.dbline 20
	mov R30,R22
	clr R31
	add R30,R10
	adc R31,R11
	ldd R30,z+0
	clr R31
	ldi R24,<_Table
	ldi R25,>_Table
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	clr R3
	ldi R24,255
	ldi R25,0
	sub R24,R2
	sbc R25,R3
	out 0x15,R24
	.dbline 21
	ldi R16,1
	ldi R17,0
	rcall _DelayMs
	.dbline 22
	lsl R20
	.dbline 23
L12:
	.dbline 18
	inc R22
L14:
	.dbline 18
	cpi R22,4
	brlo L11
	.dbline -2
	.dbline 24
;   {PORTA=sel;                  //選通最右邊的數碼管
;    PORTC=0xff-Table[p[i]];     //送字型碼
;    DelayMs(1);                 //顯示延時    
;    sel=sel<<1;                 //移位以顯示前一位
;   }
; }
L10:
	rcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r sel 20 c
	.dbsym r i 22 c
	.dbsym r p 10 pc
	.dbend
	.dbfunc e main _main fV
;           temp -> <dead>
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 27
; 
; void main(void)
; {uchar temp,i;
	.dbline 28
;  DDRA=0xff;
	ldi R24,255
	out 0x1a,R24
	.dbline 29
;  DDRC=0xff;
	out 0x14,R24
	.dbline 30
;  PORTA=0xff;
	out 0x1b,R24
	.dbline 31
;  PORTC=0x00;
	clr R2
	out 0x15,R2
	.dbline 32
;  DelayMs(2000);
	ldi R16,2000
	ldi R17,7
	rcall _DelayMs
	.dbline 33
;  PORTC=0xff;
	ldi R24,255
	out 0x15,R24
	.dbline 34
;  UBRR=51;//9600bps,8.000M,
	ldi R24,51
	out 0x9,R24
	.dbline 35
;  UCR=0x18;//RXD.TXD使能；
	ldi R24,24
	out 0xa,R24
	.dbline 36
;  for(i=0;i<4;i++)
	clr R20
	rjmp L19
X2:
	.dbline 37
;    {while(!(USR&0x80)) 
L20:
	.dbline 38
	.dbline 38
	ldi R16,<_Receive_Data
	ldi R17,>_Receive_Data
	rcall _Display
	.dbline 38
L21:
	.dbline 37
	sbis 0xb,7
	rjmp L20
	.dbline 39
	ldi R24,<_Receive_Data
	ldi R25,>_Receive_Data
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	in R24,0xc
	subi R24,48
	std z+0,R24
	.dbline 39
L17:
	.dbline 36
	inc R20
L19:
	.dbline 36
	cpi R20,4
	brlo L21
	.dbline 40
;       {Display(Receive_Data);}            //等待接收完成
;     Receive_Data[i]=UDR-48;}            //接收數據
;  for(i=0;i<4;i++)
	clr R20
	rjmp L26
X3:
	.dbline 41
;    {while(!(USR&0x20)) 
L27:
	.dbline 42
	.dbline 42
	ldi R16,<_Receive_Data
	ldi R17,>_Receive_Data
	rcall _Display
	.dbline 42
L28:
	.dbline 41
	sbis 0xb,5
	rjmp L27
	.dbline 43
	ldi R24,<_Send_Data
	ldi R25,>_Send_Data
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0xc,R2
	.dbline 43
L24:
	.dbline 40
	inc R20
L26:
	.dbline 40
	cpi R20,4
	brlo L28
	rjmp L31
L30:
	.dbline 45
	ldi R16,<_Receive_Data
	ldi R17,>_Receive_Data
	rcall _Display
L31:
	.dbline 44
	rjmp L30
X4:
	.dbline -2
	.dbline 46
;       {Display(Receive_Data); }           //等待移位寄存器空；
;     UDR=Send_Data[i];} 
;  while(1)
;    Display(Receive_Data);   
; }
L15:
	.dbline 0 ; func end
	ret
	.dbsym l temp 1 c
	.dbsym r i 20 c
	.dbend