;用方式一双机通信：定时器采用定时器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