基于51單片機的雙機通信匯編程序+Proteus仿真

ID:455344 · 發表于 2018-12-26 23:20

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載

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

   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

   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