标题: 51单片机双机串行通信汇编语言程序+Proteus仿真 [打印本页]
作者: 买醉的minguk    时间: 2019-6-7 15:23
标题: 51单片机双机串行通信汇编语言程序+Proteus仿真
甲机按键控制乙机数码管，乙机按键控制甲机LED灯
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1.            ORG 00H
  2.                    SJMP INIT
  3.                    ORG 0023H
  4.                    LJMP LOOP
  5.                    ORG 0030H
  6. INIT:     MOV SP,#5FH
  7.            MOV SCON,#50H              ;串行口工作方式1，允许接收
  8.            MOV TMOD,#20H              ;定时器1工作方式2
  9.                MOV PCON,#0H               ;波特率不加倍
  10.                MOV TH1,#0FDH              ;波特率9.6kbit/s
  11.                MOV TL1,#0FDH
  12.                SETB TR1                   ;启动定时器1
  13.                    SETB EA
  14.                    SETB ES
  15.                    CLR TI
  16.                    CLR RI
  17. KEYS:     MOV P0,#0FFH
  18.            MOV R1,#0EFH               ;初始化各寄存器
  19.            MOV R2,#4
  20.            MOV R3,#0FFH
  21.                    MOV 20H,#11101111B
  22.                    MOV 21H,#11111110B
  23. KEYREAD:  MOV A,R1
  24.            MOV P0,A                    ;送扫描码至P0口
  25.                    MOV A,P0                    ;读P0口按键状态
  26.                    MOV R3,A                    ;将此状态保存在寄存器R3中
  27.                    ORL A,#0F0H                 ;屏蔽P0口高四位
  28.                    CJNE A,#0FFH,KEYDOWN        ;若P0口低四位不全为1，有按键落下
  29.                    MOV A,R1
  30.            RL A                        ;若低四位全为1，扫描下一行
  31.                    MOV R1,A
  32.                    DJNZ R2,KEYREAD
  33.                    LJMP KEYS
  34. KEYDOWN:  MOV A,P0
  35.            ORL A,#0F0H
  36.            CJNE A,#0FFH,KEYTURN1        ;若按键确实落下，将按键转换为按键码
  37.            LJMP KEYS
  38. KEYTURN1: MOV R2,#4                   ;设循环次数
  39.            MOV B,#0                    ;按键码初始值设为0
  40. LOOP1:    MOV A,P0
  41.            ORL A,#0F0H
  42.            CJNE A,21H,S1               ;判断落下按键是否位于该列
  43.            SJMP KEYTURN2               ;是，跳转判断行
  44. S1:       INC B                       ;否，按键码加1，(21H)左移，判断是否位于下一列
  45.            MOV A,21H
  46.            RL A
  47.                    MOV 21H,A
  48.                    DJNZ R2,LOOP1
  49.                    SJMP KEYREAD
  50. KEYTURN2: MOV R2,#4
  51. LOOP2:    MOV A,P0
  52.            ORL A,#0FH
  53.            CJNE A,20H,S2                ;判断落下按键是否位于该行
  54.            SJMP S3                     
  55. S2:       INC B                       ;否，按键码加4，(20H)左移，判断是否位于下一行
  56.            INC B
  57.            INC B
  58.                    INC B
  59.                    MOV A,20H
  60.                    RL A
  61.                    MOV 20H,A
  62.                    DJNZ R2,LOOP2
  63.                    SJMP KEYREAD
  64. S3:       MOV A,B                     ;将按键码送给A
  65. SEND:     MOV SBUF,A                  ;发送数据
  66.            JNB TI,$
  67.                    CLR TI
  68.                    LJMP INIT
  69. LOOP:           MOV A,SBUF                  ;接收乙机数据
  70.            JNB RI,$
  71.                    CLR RI                      ;清接收中断标志
  72.                    MOV P1,#0FFH
  73.            LCALL LED8                  ;将乙机按键数据送P1口，点亮LED灯
  74.            RETI
  75. LED8:     JNB ACC.0,LIGHT1
  76.                    JNB ACC.1,LIGHT2
  77.                    JNB ACC.2,LIGHT3
  78. RETURN:   RET
  79. LIGHT1:   MOV A,#0FEH
  80.            MOV R2,#8
  81.     L1:           MOV P1,A
  82.                RL A
  83.                    ACALL DELAY
  84.                    DJNZ R2,L1
  85.            SJMP RETURN
  86. LIGHT2:   MOV A,#07FH
  87.            MOV R2,#8
  88.     L2:    MOV P1,A
  89.                RR A
  90.                    ACALL DELAY
  91.                    DJNZ R2,L2
  92.            SJMP RETURN
  93. LIGHT3:   MOV A,#0E7H
  94.            MOV P1,A
  95.                    ACALL DELAY
  96.                    SETB C
  97.         L31:   MOV R0,A
  98.                    ORL A,#0FH
  99.                    RLC A
  100.                    MOV R1,A
  101.                    MOV A,R0
  102.                    ORL A,#0F0H
  103.                    RRC A
  104.                MOV R2,A
  105.                ANL A,#0FH
  106.                    MOV R0,A
  107.                    MOV A,R1
  108.                    ANL A,#0F0H
  109.                    ADD A,R0
  110.                    MOV P1,A
  111.                    ACALL DELAY
  112.                JB P1.7,L31
  113.     L32:   SETB C
  114.            MOV R0,A
  115.                    ORL A,#0FH
  116.                    RRC A
  117.                    MOV R1,A
  118.                    MOV A,R0
  119.                    ORL A,#0F0H
  120.                    RLC A
  121.                    MOV R2,A
  122.                ANL A,#0FH
  123.                    MOV R0,A
  124. ……………………

  126. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
程序代码.rar (2.64 KB, 下载次数: 156)

作者: zzx1026160138    时间: 2019-6-12 08:30
好好研究一哈
作者: kaixuan_27    时间: 2019-8-15 08:51
没有仿真图啊，只有代码
作者: 单片机房烟花雨    时间: 2019-8-15 16:52
不应该是甲乙各有程序吗
作者: littlejia    时间: 2019-10-21 19:16
单片机房烟花雨 发表于 2019-8-15 16:52
不应该是甲乙各有程序吗

两片单片机应该是2套程序，看来程序还得自己编啊

作者: liking    时间: 2019-12-1 16:29
littlejia 发表于 2019-10-21 19:16
两片单片机应该是2套程序，看来程序还得自己编啊

分别写在两个单片机里就可以了
作者: 弑途者    时间: 2019-12-4 21:18
liking 发表于 2019-12-1 16:29
分别写在两个单片机里就可以了

你们运行成功了吗？
作者: qianjun    时间: 2019-12-9 21:59
有人成功了吗，可不可行
作者: 薯条怎么这么贵    时间: 2020-3-27 13:04
有C的程序吗
作者: cc5218    时间: 2020-5-4 12:00
请问有仿真图吗？运行没有成功
作者: 1015182671    时间: 2020-5-29 21:15
cc5218 发表于 2020-5-4 12:00
请问有仿真图吗？运行没有成功

你有程序么发给我一份
作者: 9876    时间: 2020-6-3 19:05
我打不开那个asm
作者: generalissimo    时间: 2021-6-20 21:04
接收过程比较简单，没多少参考，多谢啦。



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1