xl232up.asm

说明：本文件夹一共提供各类编程实例200多个

/********************************************************************************
*  标题:  xl系列单片机实验仪演示程序 电脑和单片机串口通信                      *
*  文件:   XL232UP.asm                                                         *
*  日期:  2006-1-5                                                             *
*  版本:  3.0 （试验通过版）可用xl600-xl1000单片机综合试验仪试验               *
*  邮箱:  [e-mail]                                                      *
*  网站： http://www.51c51.com    www.8951.com                                 *
********************************************************************************
;*  描述:                                                                       *
;*         单片机接收主机的数据,然后将数据传送到P0口, 并传回给主机;             *
;*         当按下K1时, 单片机发送字串"welcome! www.51c51.com\n\r" 给主机        * 
;*  引用：p0口接8位指示灯  按键接p35                                            *
;*  注意：演示此程序需要配合串口调试软件,且串口调试软件与xlisp软件不能同时打开。*
;*        串口调试软件在光盘“工具软件”目录下有。                              *
;*                                                                              *
;* 方法：先用xlisp软件将程序写入单片机，关闭xlisp软件，将xl1000或xl600的串口切换*
;*            开关切换到仿真位置（这样设置后计算机的串口才能与试验芯片串口通信）*
;*            最后运行串口调试软件即可实验。 (串口通信速度2400                  *
********************************************************************************
* 【版权】 Copyright(C)深圳市学林电子有限公司 www.51c51.com                    *
* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
*  【技术支持】请访问http://www.51c51.com/bbs/index.asp  官方论坛              *
********************************************************************************/

K1	EQU	P3.5			; 按键端口
; 变量定义
KEY_S	EQU	50H			; 当前的按键状态			
KEY_V	EQU	51H			; 上次的按键状态
	ORG	0000H
	LJMP	MAIN	
MAIN:
	MOV	TMOD,#20H		; 定时器1工作于8位自动重载模式,用于产生波特率
	MOV	TH1,#0F3H
	MOV	TL1,#0F3H		; 波特率2400	
	MOV	SCON,#50H		; 设定串行口工作方式
	ANL	PCON,#0EFH		; 波特率不倍增	
	SETB	TR1			; 启动定时器1
	MOV	IE,#0			; 禁止任何中断
	MOV	KEY_V,#01H		; 	
MAIN_RX:
	JNB	RI,MAIN_KEY		; 是否有数据到来
	CLR	RI
	MOV	A,SBUF			; 暂存接收到的数据
	MOV	P0,A			; 数据传送到P0口
	LCALL	SEND_CHAR		; 回传接收到的数据	
MAIN_KEY:
	LCALL	SCAN_KEY		;  扫描按键
	JZ	MAIN_RX
	LCALL	DELAY_15MS		;  延时去抖动
	LCALL	SCAN_KEY
	JZ	MAIN_RX
	MOV	KEY_V,KEY_S		;  保存键值
	LCALL	PROC_KEY		; 键处理
	SJMP	MAIN_RX
;===============================================================================
SCAN_KEY:
; 扫描按键, (在此实例中仅扫描按键K1)	
; 传入参数: 无
; 返回值:　无
	CLR	A
	MOV	C,K1
	MOV	ACC.0, C
	MOV	KEY_S,A
	XRL	A,KEY_V			; 检查按键状态是否改变
	RET
;===============================================================================	
PROC_KEY:
; 按键处理子程序 --- 发送字符串到PC
; 传入参数: KEY_V --- 按键值
; 返回值: 无	
	JB	K1,END_PROC_KEY	; K1未按下时，直接返回
	MOV	DPTR,#TAB_WWW		; 字串表格地址
SEND_STRING:
	CLR	A
	MOVC	A,@A+DPTR
	JZ	END_PROC_KEY		; 查到00H时,表示字串结束
	ACALL	SEND_CHAR
	INC	DPTR			; 下一字符
	SJMP	SEND_STRING
END_PROC_KEY:
	RET	
;===============================================================================
SEND_CHAR:
; 传送一个字符
; 传入参数: ACC(要发送的数据)
; 返回值: 无
	MOV	SBUF,A
	JNB	TI,$			; 等特数据传送
	CLR	TI			; 清除数据传送标志
	RET
;===============================================================================
; 扫描按键, (在此实例中仅扫描按键K1)	
; 传入参数: 无
; 返回值:　无
DELAY_15MS:
	MOV	R7,#15
DELAY15MS_1:
	MOV	R6,#0E8H
DELAY15MS_2:
	NOP
	NOP
	DJNZ	R6,DELAY15MS_2
	DJNZ	R7,DELAY15MS_1
	RET	
TAB_WWW:
	DB	"welcome! www.51c51.com"
	DB	0AH,0DH		;换行/回车
	DB	00H
	END