EEPW论坛

ORG 0000H
AJMP main0
ORG 0030H
main0: MOV 20H,#00H
MOV TMOD,#22H ;设定时器工作方式
MOV SCON,#40H
MOV TH1,#0FAH ;速度9600
MOV PCON,#80H
SETB TR1
SETB REN ;允许接收
ajmp start
start: mov dptr,#ok ;查表
senda: clr a ;
movc a,@a+dptr
cjne a,#'$',senda_0
ajmp $ ;遇到$停止。
senda_0:mov sbuf,a
JNB TI,$ ;串行发送一帧结束了吗？
CLR TI ;
inc dptr ;指针加一
Ljmp senda
ok: db 0dh,0ah,0dh,0ah,"http://dl-dz.taobao.com   QQ：1267247892",0dh,0ah,'$'
end