main.a51

UART基本收发

;*******************************************************************************
;程序名称：简单的串行口收发
;硬件接法：RXD和TXD通过RS-232电平转换电路接到电脑的串行口上
;运行效果：开机时向电脑发送Hello，然后接收电脑发出的字符并回显
;*******************************************************************************


;*******************************************************************************
;定义波特率（取值1200、2400、4800、9600、19200等）
;*******************************************************************************
BaudRate	EQU	9600


;*******************************************************************************
;复位入口
;*******************************************************************************
	ORG	0x0000
	LJMP	PreMain


;*******************************************************************************
;程序段：PreMain
;功能：进入主程序之前的初始化操作
;*******************************************************************************
PreMain:
	MOV	SP, #0x30
	LJMP	main


;*******************************************************************************
;函数：void UartInit()
;功能：串行口初始化
;*******************************************************************************
UartInit:
	MOV	SCON, #0x50	;串口方式1（8位UART），允许接收
	ORL	PCON, #0x80	;波特率加倍
	ANL	TMOD, #0x0F	;设置T1为8位自动重装定时器，用于产生波特率
	ORL	TMOD, #0x20
	MOV	TL1, #(256-57600/BaudRate)	;根据波特率设置T1初值
	MOV	TH1, TL1
	SETB	TR1		;启动T1
	RET


;*******************************************************************************
;函数：void UartSendChar(char c)
;功能：通过串行口发送单个字节
;参数：c = R7，是被发送的字节数据，取值0x00～0xFF
;*******************************************************************************
UartSendChar:
	MOV	SBUF, R7	;数据写入SBUF，同时启动硬件发送过程
	JNB	TI, $		;等待发送完毕
	CLR	TI		;清除发送标志
	RET


;*******************************************************************************
;函数：void UartSendStr(char *s)
;功能：通过串行口发送单个字节
;参数：*s = (R6,R7)，是被发送的字符串
;*******************************************************************************
UartSendStr:
	MOV	DPH, R6
	MOV	DPL, R7
UartSendStr_Loop:
	CLR	A
	MOVC	A, @A+DPTR
	INC	DPTR
	JZ	UartSendStr_end		;遇到字符串结束标志0x00时，停止发送
	MOV	R7, A
	CALL	UartSendChar
	SJMP	UartSendStr_Loop
UartSendStr_end:
	RET


;*******************************************************************************
;函数：void main()
;功能：主函数
;*******************************************************************************
main:
	CALL	UartInit	;串行口初始化
	MOV	R6, #HIGH(main_String)
	MOV	R7, #LOW(main_String)
	CALL	UartSendStr	;发送Hello字符串
main_Loop:
	JNB	RI, $		;等待接收数据
	CLR	RI		;清除接收标志
	MOV	R7, SBUF	;读取接收到的数据
	CALL	UartSendChar	;回送收到的数据
	SJMP	main_Loop
main_String:
	DB	'Hello',0x0D,0x0A,0x00


;*******************************************************************************
;程序结束
;*******************************************************************************
	END