www.pudn.com > com-double.rar > com-double.asm, change:2007-10-27,size:1977b


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 p3.3,l3 ;检测键盘,如果P3.3按下则执行L3 
jnb p3.4,l4 
jnb p3.5,l5 
JNB P3.2,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