232.asm

单片机的程序

;串口双向通信试验
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
	ORG 0000H
	AJMP main0
	ORG 0030H
main0: MOV 20H,#00H		;设置串口工作方式
	MOV TMOD,#22H
	MOV SCON,#40H
	MOV TH1,#0F3H		;设置速率4800,(12M晶体）
	MOV PCON,#80H
	SETB TR1
	SETB REN		;允许接收
	clr p2.6		;开数码管的最后一位
	ajmp start
start:
l1:jnb p1.0,l3			;检测键盘，如果按下则执行L3
	jnb p1.1,l4
	jnb p1.2,l5
	JNB P1.3,L6
	jbc ri,rec
	mov p0,#0ffh
rec: mov a,sbuf			;缓冲数据送到a
	;mov p1,a
 	CJNE A,#00110001b,T00
	MOV P0,#07eH          	;数码管显示2
 	mov p0,#0ffh
t00: CJNE A,#00110010b,T2
	MOV P0,#0A2H          	;数码管显示2
 	mov p0,#0ffh
T2: 	CJNE A,#00110011b,T3
	MOV P0,#62H
T3: 	CJNE A,#00110100b,T4
	MOV 	P0,#74H
T4: 	CJNE A,#00110101b,T5
	MOV P0,#61H
T5: 	CJNE A,#00110110b,T6
	MOV P0,#21H
T6:	CJNE A,#00110111b,T7
	MOV P0,#7AH
T7:	 CJNE A,#00111000b,T8
	MOV P0,#20H
T8:	CJNE A,#00111001b,t9
	MOV P0,#60H
T9: CJNE A,#00110000b,t10
	MOV P0,#28H
t10:ljmp L1
l3: 	mov dptr,#ok1		;置表头1
	ajmp	senda3
senda3: clr a ;
	movc a,@a+dptr
	cjne a,#'$',senda_3
	ajmp start		;遇到$则从头开始执行。
senda_3:mov sbuf,a		;发送数据
	JNB TI,$;
	CLR TI ;
	inc dptr
	Ljmp senda3
l4: 	mov dptr,#ok2		;置表头2
	ajmp	senda3
l5: 	mov dptr,#ok3		;置表头3
	ajmp	senda3
l6: 	mov dptr,#ok4		;置表头4
	ajmp	senda3
ok1: db 0dh,0ah,0dh,0ah,"如果我还有一天寿命，那天我要做你女友。我还有一天的命吗？..没有。所以，很可惜。我今生仍然不是你的女友。如果我有翅膀，我要从天堂飞下来看你。我有翅膀吗？..没有。所以，很遗憾。我从此无法再看到你。",0dh,0ah,'$'
ok2: db 0dh,0ah,0dh,0ah,"倚天版开发套件是51测试网在志强版开发套件的基础上开发的增强型编程试验一体化开发套件，适合于零基础，或者初中级单片机爱好者 使用。并适合于单片机程序员的前期试",0dh,0ah,'$'
ok3: db 0dh,0ah,0dh,0ah,"89c51text-xp是51测试网为初学者量身定做的一套编程试验一体化51开发套件。采用单片机精确时序编程，质量非常稳定，决不会因为编程器的原因烧毁芯片。由一个51编程器和一个51标准",0dh,0ah,'$'
ok4: db 0dh,0ah,0dh,0ah," 2002年11月15日本站申请国际域名成功名称  http://www.51c51.com 我要c51!!!2002年9月推出标准版开发套件2002年10月推出xp版",0dh,0ah,'$'
end