单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 656|回复: 2
打印 上一主题 下一主题
收起左侧

AT89C51汇编语言程序+Proteus仿真交通信号灯

[复制链接]
跳转到指定楼层
楼主


仿真原理图如下(proteus仿真工程文件可到本帖附件中下载)


单片机源程序如下:
  1. #include <REGX51.H>
  2.                 DIN EQU P3.0
  3.                 CLK EQU P3.1
  4.                 DBUF EQU 30H
  5.                 TEMP EQU 40H
  6.                
  7.                 ORG 0000H
  8.                 MOV 30H,#00
  9.                
  10. MAIN:        ACALL DISP                                ;获取段码,并输送给数码显示管
  11.                 ACALL KEY                                ;获取键值
  12.                 AJMP MBIN
  13.                
  14.                  ;判断键值子程序
  15. KEY:        MOV P1,#0FFH          ;初始化
  16.                 MOV A,P1                                ;P1为按下的键,给累加器A
  17.                 CJNE A#0FFH,K00      ;判断是否有键按下,没按就循环,按下就跳到K00
  18.                 AJMP KEY
  19.                
  20. K00:        ACALL DELAY            ;运行延时子程序,消除抖动操作
  21.                 MOV A,P1
  22.                 CJNE A,#OFFH,K01       ;二次判断是否按下,没按跳转回KEY
  23.                 AJMP KEY1
  24.                
  25.                 ;开始判断按下的是那个键
  26. K01:        MOVR3,#9                                ;设置判断的循环次数,判断9次,1~9键
  27.                 MOV R2,#00H             ;设置查表偏移值,从00H开始
  28.                 MOV B,A                 ;A内为按下的值,赋给B,之后做判断使用
  29.                 MOV DPTR,#K0TAB                    ;赋表头地址(键值表(K0TAB))给DPTR
  30.                
  31. K02:        MOV A,R2                                 ;偏移值赋给累加器A
  32.                 MOVC A,@A+DPTR                        ;偏移值加表头地址得到的键值赋给累加器A
  33.                 CJNE AB,K04                        ;判断按下的键值和查表的到的键值是否一致,不同则跳转
  34.                
  35. K03:        MOV A,P1                               
  36.                 CJNE A,#0FFH,K03        ;第三次重新判断按下的键
  37.                 ACALL DELAY             ;延时消除抖动操作
  38.                 MOV A,R2                                ;偏移值给累加器A?
  39.                 RET                                                ;返回
  40.                
  41. K04:        INC R2                                        ;偏移值加一
  42.                 DJNZ R3K02                                ;循环次数减一,不等于0,跳转到K02
  43.                 MOV A #OFFH                                ;循环结束,给累加器A赋值FFH
  44.                 AJMP KEY                                ;跳转到KEY,重新开始此子程序
  45.                
  46. K0TAB:        DB 0FFH,0FEH,0FDH,0FBH,0F7H                        ;键值表
  47.                 DB 0EFH,0DFH,0BFH,7FH
  48.                
  49. DISP:        MOV DFUF,A                                ;段码值给DBUF,A(KEY子程序得到的键码值)给DBUF(30H)
  50.                 MOV RO,#DBUF                        ;30H给R0
  51.                 MOV R1,#TEMP                        ;40H给R1
  52.                
  53. DP10:        MOV DPTR,#SEGTAB                ;表头地址给DPTR
  54.                 MOV A,@R0                                ;((R0))给累加器A,R0=30H
  55.                 MOVC A,A+DPTR                        ;表头地址加累加器A(键码)的值(A=DBUF=30H=键码),查表后得到段码值再给A, (A=段码)
  56.                 MOV @R1,A                                ;上段代码得到的A内的段码给((R1)),((R1))=TEMP=40H,40H=段码值
  57.                 MOV RO,#TEMP                        ;40H再给R0
  58.                
  59. DP12:        MOV R2,#8                                ;设置循环次数
  60.                 MOV A,@R0                                ;段码再给累加器A
  61.                
  62. DP13:        RLC A                                        ;循环左移A(循环左移段码)逐个移动到CY位
  63.                 MOV DIN,C                                ;CY内的值再给DIN,传送到74LS164
  64.                 CLR CLK                                        ;清零CLK口
  65.                 SETB CLK                                ;再给CLK口置1
  66.                 DJNZ R2.DP13                        ;循环减一,循环8次,输送完段码八个位
  67.                 RET                                                ;返回主程序
  68.                
  69. SEGTAB:        DB 3FH,06H,5BH,4FH,66H                   ;段码表
  70.                 DB 6DH,7DH,07H,7FH,6FH
  71.                
  72. DELAY1:        MOV R4.#20                                ;延时程序,10ms
  73. AA1:        MOV R5,#250
  74. AA:                DJNZ R5,AA
  75.                 DJNE R4 AA1
  76.                 RET
  77.                 END
复制代码

所有资料51hei提供下载:
新建文件夹.rar (597.3 KB, 下载次数: 11)


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 顶 踩
回复

使用道具 举报

沙发
jxhjjm 发表于 2018-6-13 09:10 | 只看该作者
下载。。。。。。。。。。。。。。。。。。。。。
回复

使用道具 举报

无效楼层,该帖已经被删除
地板
zfmbh3 发表于 2019-1-5 18:22 | 只看该作者
按键在哪里
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|单片机论坛 |51黑电子论坛单片机. 联系QQ:125739409;技术交流QQ群582644647

Powered by 单片机教程网

快速回复 返回顶部 返回列表