uart.s

电机控制程,用于电机控制,可用于需要的系统中

	.module uart.c
	.area text(rom, con, rel)
	.dbfile D:\NEWWOR~1\motor\uart.c
	.dbfunc e baudselect _baudselect fi
;       bauddata -> R20,R21
;           baud -> R16,R17
	.even
_baudselect::
	xcall push_gset1
	.dbline -1
	.dbline 6
; #include <iom64v.h>
; #include <macros.h>
; #include "head.h"
; 
; uint baudselect(uint baud)//baud的选择
; {
	.dbline 7
;  uint bauddata=0;
	clr R20
	clr R21
	.dbline 8
;  if(baud==9600) bauddata=0x47;       //baud=9600
	cpi R16,128
	ldi R30,37
	cpc R17,R30
	brne L2
	.dbline 8
	ldi R20,71
	xjmp L3
L2:
	.dbline 9
;  else if(baud==19200) bauddata=0x23;  //baud=19200
	cpi R16,0
	ldi R30,75
	cpc R17,R30
	brne L4
	.dbline 9
	ldi R20,35
	ldi R21,0
	xjmp L5
L4:
	.dbline 10
;  else if(baud==57600) bauddata=0x0B;  //baud=57600
	cpi R16,0
	ldi R30,225
	cpc R17,R30
	brne L6
	.dbline 10
	ldi R20,11
	ldi R21,0
L6:
L5:
L3:
	.dbline 11
;  return(bauddata);
	movw R16,R20
	.dbline -2
L1:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r bauddata 20 i
	.dbsym r baud 16 i
	.dbend
	.dbfunc e Uart1Init _Uart1Init fV
;           baud -> R20,R21
	.even
_Uart1Init::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 14
; }
; void Uart1Init(uint baud)
; {
	.dbline 15
;  CLI(); //disable all interrupts
	cli
	.dbline 16
;  UCSR1B = 0x00; //disable while setting baud rate
	clr R2
	sts 154,R2
	.dbline 17
;  UCSR1A=0x00;
	sts 155,R2
	.dbline 18
;  UBRR1H=((baudselect(baud))>>8)&0x00ff;
	movw R16,R20
	xcall _baudselect
	movw R24,R16
	mov R24,R25
	clr R25
	andi R25,0
	sts 152,R24
	.dbline 19
;  UBRR1L=(baudselect(baud))&0x00ff;
	movw R16,R20
	xcall _baudselect
	movw R24,R16
	andi R25,0
	sts 153,R24
	.dbline 20
;  UCSR1B=(1<<RXCIE1)|(1<<RXEN1)|(1<<TXEN1);//接收器与发送器使能
	ldi R24,152
	sts 154,R24
	.dbline 21
;  UCSR1C=(3<<UCSZ10);//设计浈格式：8位数据位，1位停止位，无效验位,异步模式
	ldi R24,6
	sts 157,R24
	.dbline 22
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L8:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r baud 20 i
	.dbend
	.dbfunc e USART_Transmit_byte _USART_Transmit_byte fV
;       bytedata -> R16
	.even
_USART_Transmit_byte::
	.dbline -1
	.dbline 26
; } 
; 
; void USART_Transmit_byte(uchar bytedata)
; {
L10:
	.dbline 27
L11:
	.dbline 27
;  while(!(UCSR1A&(1<<UDRE1)));
	lds R2,155
	sbrs R2,5
	rjmp L10
	.dbline 28
;  	UDR1=bytedata;
	sts 156,R16
	.dbline -2
L9:
	.dbline 0 ; func end
	ret
	.dbsym r bytedata 16 c
	.dbend
	.dbfunc e USART_Transmit_arraydata _USART_Transmit_arraydata fV
;              i -> R20
;      arraydata -> R22,R23
;         lenght -> R10
	.even
_USART_Transmit_arraydata::
	xcall push_gset3
	movw R22,R18
	mov R10,R16
	.dbline -1
	.dbline 34
; }
; 
; /***send array_byte data**********/
; 
; void USART_Transmit_arraydata(uchar lenght,uchar arraydata[])
; {
	.dbline 36
;  uchar i;
;  for(i=0;i<lenght;i++)
	clr R20
	xjmp L17
L14:
	.dbline 37
	mov R30,R20
	clr R31
	add R30,R22
	adc R31,R23
	ldd R16,z+0
	xcall _USART_Transmit_byte
L15:
	.dbline 36
	inc R20
L17:
	.dbline 36
	cp R20,R10
	brlo L14
	.dbline -2
L13:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbsym r arraydata 22 pc
	.dbsym r lenght 10 c
	.dbend
	.dbfunc e USART_Flush _USART_Flush fc
;          dummy -> R16
	.even
_USART_Flush::
	.dbline -1
	.dbline 41
;  		USART_Transmit_byte(arraydata[i]);
; }
; 
; uchar USART_Flush( void ) 
; { 
	xjmp L20
L19:
	.dbline 43
	lds R16,156
L20:
	.dbline 43
; unsigned char dummy; 
; while ( UCSR1A & (1<<RXC1) ) dummy = UDR1;        //读UDR会使RXC清零 ]
	lds R2,155
	sbrc R2,7
	rjmp L19
	.dbline 44
; return dummy;
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbsym r dummy 16 c
	.dbend
	.area vector(rom, abs)
	.org 120
	jmp _uart1_rx_isr
	.area text(rom, con, rel)
	.dbfile D:\NEWWOR~1\motor\uart.c
	.dbfunc e uart1_rx_isr _uart1_rx_isr fV
	.even
_uart1_rx_isr::
	.dbline -1
	.dbline 51
; } 
; 
; /*interrupt process***************/
; 
; #pragma interrupt_handler uart1_rx_isr:31
; void uart1_rx_isr(void) //uart has received a character in UDR
; {
	.dbline -2
L22:
	.dbline 0 ; func end
	reti
	.dbend