;用方法一双机通讯：定时器选用定时器1（8位主动重装），波特率选用9600bit/s
;此程序完成双机一起发送（数码管0-9），并能一起承受，并显示出来，真实完成异步全双工
org 0000h
ljmp reset
org 0003h
reti
org 000bh
reti
org 001bh
reti
org 0023h
ljmp tans_int ;串口中止进口
reset: mov r0,#0 ;先进行体系预备（能够不要）
djnz r0,$
init: mov r1,#4 ;各个寄存器初始化
mov tmod,#0020h
mov th1,#0fdh
mov tl1,#0fdh
setb tr1 ;翻开定时器中止
mov pcon,#00h
clr sm0 ;设置工作方法1
setb sm1
setb ren ;答应串行口接纳数据
clr ti
clr ri
setb es ;翻开串行中止
setb ea ;翻开大局中止
main:
mov r0,#9
mov a,#0
loop:
mov dptr,#table ;主函数首要完成串行发送
mov a,r0
movc a,@a+dptr
mov sbuf,a
jb ti,$ ;判别发送中止标志是否在中止中清零
lcall delay ;若清零，则延时
inc dptr
dec r0
cjne r0,#255,loop ;减到0之后会变成255
ljmp main
tans_int:
push acc
push psw
jnb ti,recive_clr ;判别是否为发送中止
clr ti
sjmp int_end
recive_clr:
jnb ri,int_end ;判别是否为接纳中止
clr ri
mov a,sbuf ;若是，则显示出来
mov p2,a
int_end:
pop psw
pop acc
reti
table: ;共阳极数码管扫描码
db 0c0h,0f9h,0a4h,0b0h,99h
db 92h,82h,0f8h,80h,90h
delay:
mov r3,#4 ;延时函数（延时大约5**255*255*2=500ms）
l0:mov r4,#0
l1: mov r5,#0ffh
djnz r5,$
djnz r4,l1
djnz r3,l0
ret
end
