草庐IT

实验02_Proteus仿真数码管显示代码

bzxf 2023-03-28 原文

一、原理总结

  • 利用两个寄存器R4和R5来存储两个数码管的显示效果，R4是前一个数码管显示所需，而R5是后一个数码管显示所需，利用左移操作RLC来使之每一位被依次输入到C中，然后将C输入到LED中（当LED每位都有数据时，数码管才会显示），利用停顿函数使数码管上数字停留一段时间。

二、程序分析

  • 以下为全部代码，之后会进行具体分析

总体代码

    ;====================================================================
    ; Main.asm file generated by New Project wizard
    ;
    ; Created:   周一 九月 19 2022
    ; Processor: AT89C51
    ; Compiler:  ASEM-51 (Proteus)
    ;====================================================================

    $NOMOD51
    $INCLUDE (8051.MCU)

    ;====================================================================
    ; DEFINITIONS
    ;====================================================================

    ;====================================================================
    ; VARIABLES
    ;====================================================================

    ;====================================================================
    ; RESET and INTERRUPT VECTORS
    ;====================================================================

        ; Reset Vector
        org   0000h
        jmp   Start

    ;====================================================================
    ; CODE SEGMENT
    ;====================================================================

        org   0100h
    TAB : DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H

    PAUSE: ;停顿函数
            MOV R1,#255	;R1是第一层嵌套循环
    D1:		MOV R2,#255	;R2是第二层嵌套循环
    D2:		DJNZ R2,D2	;当R2不为0时跳转，为0时不跳转，执行DJNZ R1，D1使得R1- -
            DJNZ R1,D1	;当R1不为0时跳转，为0时不跳转
    RET

    LED:
            MOV R0,#8   ;将8赋值给R0，8位左移
            MOV A,R5    ;R5代表右边的LED的数
            MOVC A,@A+DPTR  ;A是偏移地址，是从DPTR中寻址
            
    LOOP1:	
            RLC A       ;A左移
            CLR P1.4
            MOV P1.5,C
            SETB P1.4
            DJNZ R0,LOOP1
            
            MOV R0,#8
            MOV A,R4
            MOVC A,@A+DPTR
            
    LOOP2:	
            RLC A
            CLR P1.4
            MOV P1.5,C
            SETB P1.4
            DJNZ R0,LOOP2
            
            MOV R6,#0
    S1:		LCALL PAUSE
            INC R6
            CJNE R6,#10,S1

    RET
            
    START:	MOV A,#00H
            MOV p0,A
            
            MOV DPTR,#TAB
            MOV R4,#0
            MOV R5,#0
            
    A1:		MOV C,P1.0
            JC XUNHUAN
            MOV C,9
            JC FUWEI
            INC R5
            CJNE R5,#15,XUNHUAN
            MOV R5,#0
            INC R4
            CJNE R4,#15,XUNHUAN
            JMP FUWEI
            
    XUNHUAN:	
            LCALL LED
            JMP A1
            
    FUWEI:	
            MOV R4,#0
            MOV R5,#0
            JMP A1
            
            
    JMP START	
    ;====================================================================
        END

数组存值:

  • TAB 是用来存储0-15这16个数据，之后使用A来寻址
TAB : DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H

停顿函数：

  • R1是第一层嵌套循环,R2是第二层嵌套循环,当R2不为0时跳转，为0时不跳转，执行DJNZ R1，D1使得R1- -,当R1不为0时跳转，为0时不跳转。
    PAUSE: ;停顿函数
                MOV R1,#255	;R1是第一层嵌套循环
        D1:		MOV R2,#255	;R2是第二层嵌套循环
        D2:		DJNZ R2,D2	;当R2不为0时跳转，为0时不跳转，执行DJNZ R1，D1使得R1- -
                DJNZ R1,D1	;当R1不为0时跳转，为0时不跳转
    RET

数码管亮灯函数

  • LED中的内容：
    1. 将8赋值给R0，使用R0来实现8位右移
    2. 将R5赋值给A，而R5代表的是右边的数码管，R5共八位，使用R0来使之每位被传输到数码管中。
    3. MOVC A,@A+DPTR 是将A在DPTR中寻址，之后回赋值给A。
    LED:
        MOV R0,#8   ;将8赋值给R0，8位右移
        MOV A,R5    ;R5代表右边的LED的数
        MOVC A,@A+DPTR  ;A是偏移地址，是从DPTR中寻址
  • LOOP1中的内容:
      • RLC 是带进位的循环左移，RLC A 即将A的内容左移一位，将进位位C中的值移到累加器A的最低位，A的最高位移到C里。若有A=01000001,C=1,则执行 RLC的话：A=10000011，C=0(A的最高位移到C，C原值移到A最低位)。
      • RL 是带进位的循环左移，RL A 即将A的内容左移一位，将进位位C中的值移到累加器A的最低位，A的最高位不移到C里，若有A=01000001,C=1,则执行RL的话：A=10000010，C=1（A所有位左移一位，最低位补零，C不参加移位操作，保持原值不变）
    2. RLC之后三行是将数据放入数码管中的操作，不过多赘述
    3. DJNZ R0，LOOP0 是将 R0-- 过后看是否为0，若不为零则跳转，若为0则执行下面的操作

C=1，A=55H，RLC A后则为：C=0 A=ABH，即：1 01010101变为：0 10101011

    LOOP1:	
            RLC A       ;A左移
            CLR P1.4    ;下面三行是对LED进行输入
            MOV P1.5,C
            SETB P1.4
            DJNZ R0,LOOP1
            
            MOV R0,#8
            MOV A,R4
            MOVC A,@A+DPTR

    LED:
            MOV R0,#8   ;将8赋值给R0，8位右移
            MOV A,R5    ;R5代表右边的LED的数
            MOVC A,@A+DPTR  ;A是偏移地址，是从DPTR中寻址
            
    LOOP1:	
            RLC A       ;A左移
            CLR P1.4    ;下面三行是对LED进行输入
            MOV P1.5,C
            SETB P1.4
            DJNZ R0,LOOP1
            
            MOV R0,#8
            MOV A,R4
            MOVC A,@A+DPTR
            
    LOOP2:	
            RLC A
            CLR P1.4
            MOV P1.5,C
            SETB P1.4
            DJNZ R0,LOOP2
            
            MOV R6,#0
    S1:		LCALL PAUSE
            INC R6
            CJNE R6,#10,S1

    RET

START 部分：

  • 首先对图中上面的数码管进行归0处理，然后 MOV DPTR，#TAB 将TAB这个数组的首地址给予DPTR，后续寻址使用，将R4 与 R5 进行初始化，赋值为0，
  • C中一开始存储的是 p1.0 （其中存储的是开关数值，为1的话进行累加，为0的话保持不变）如C为1则直接执MOV C，9，若C为0的话跳转XUNHUAN，保持当前数字
  • 之后C中存储的是9号端口传入的数据，9号段口控制复位（9号端口为1时执行之后指令，为0时执行FUWEI）
  • 之后正式执行，R5从0开始累加，累加够16使R4加一，当R5小于等于15时执行数码管显示函数，大于15时执行R4++
START:	
            MOV A,#00H
            MOV p0,A
            
            MOV DPTR,#TAB
            MOV R4,#0
            MOV R5,#0
            
    A1:
            MOV C,P1.0
            JC XUNHUAN
            MOV C,9
            JC FUWEI
            INC R5
            CJNE R5,#15,XUNHUAN
            MOV R5,#0
            INC R4
            CJNE R4,#15,XUNHUAN
            JMP FUWEI

XUNHUAN 和 FUWEI 部分：

  • XUNHUAN 使用LED函数，亮数码管，之后跳转A1中。
  • FUWEI 给与R4与R5赋值为0，之后跳转到A1中
XUNHUAN:	
            LCALL LED
            JMP A1
            
    FUWEI:	
            MOV R4,#0
            MOV R5,#0
            JMP A1
数码管ProteusstrongMOV嵌入式

有关实验02_Proteus仿真数码管显示代码的更多相关文章

  1. ruby-on-rails - Rails 编辑表单不显示嵌套项 - 2

    我得到了一个包含嵌套链接的表单。编辑时链接字段为空的问题。这是我的表格:Editingkategori{:action=>'update',:id=>@konkurrancer.id})do|f|%>'Trackingurl',:style=>'width:500;'%>'Editkonkurrence'%>|我的konkurrencer模型:has_one:link我的链接模型:classLink我的konkurrancer编辑操作:defedit@konkurrancer=Konkurrancer.find(params[:id])@konkurrancer.link_attrib

  2. ruby - 如何在 buildr 项目中使用 Ruby 代码？ - 2

    如何在buildr项目中使用Ruby？我在很多不同的项目中使用过Ruby、JRuby、Java和Clojure。我目前正在使用我的标准Ruby开发一个模拟应用程序，我想尝试使用Clojure后端(我确实喜欢功能代码)以及JRubygui和测试套件。我还可以看到在未来的不同项目中使用Scala作为后端。我想我要为我的项目尝试一下buildr(http://buildr.apache.org/)，但我注意到buildr似乎没有设置为在项目中使用JRuby代码本身!这看起来有点傻，因为该工具旨在统一通用的JVM语言并且是在ruby中构建的。除了将输出的jar包含在一个独特的、仅限ruby​​

  3. ruby - 解析 RDFa、微数据等的最佳方式是什么，使用统一的模式/词汇(例如 schema.org)存储和显示信息 - 2

    我主要使用Ruby来执行此操作，但到目前为止我的攻击计划如下:使用gemsrdf、rdf-rdfa和rdf-microdata或mida来解析给定任何URI的数据。我认为最好映射到像schema.org这样的统一模式，例如使用这个yaml文件，它试图描述数据词汇表和opengraph到schema.org之间的转换:#SchemaXtoschema.orgconversion#data-vocabularyDV:name:namestreet-address:streetAddressregion:addressRegionlocality:addressLocalityphoto:i

  4. ruby-on-rails - Rails 源代码 : initialize hash in a weird way? - 2

    在rails源中:https://github.com/rails/rails/blob/master/activesupport/lib/active_support/lazy_load_hooks.rb可以看到以下内容@load_hooks=Hash.new{|h,k|h[k]=[]}在IRB中，它只是初始化一个空哈希。和做有什么区别@load_hooks=Hash.new 最佳答案 查看rubydocumentationforHashnew→new_hashclicktotogglesourcenew(obj)→new_has

  5. ruby-on-rails - 使用 Sublime Text 3 突出显示 HTML 背景语法中的 ERB？ - 2

    所以我在关注Railscast，我注意到在html.erb文件中，ruby代码有一个微弱的背景高亮效果，以区别于其他代码HTML文档。我知道Ryan使用TextMate。我正在使用SublimeText3。我怎样才能达到同样的效果？谢谢! 最佳答案 为SublimeText安装ERB包。假设您安装了SublimeText包管理器*，只需点击cmd+shift+P即可获得命令菜单，然后键入installpackage并选择PackageControl:InstallPackage获取包管理器菜单。在该菜单中，键入ERB并在看到包时选择

  6. ruby-on-rails - link_to 不显示任何 rails - 2

    我试图在索引页中创建一个超链接，但它没有显示，也没有给出任何错误。这是我的index.html.erb代码。ListingarticlesTitleTextssss我检查了我的路线，我认为它们也没有问题。PrefixVerbURIPatternController#Actionwelcome_indexGET/welcome/index(.:format)welcome#indexarticlesGET/articles(.:format)articles#indexPOST/articles(.:format)articles#createnew_articleGET/article

  7. ruby-on-rails - 如何在 Rails View 上显示错误消息？ - 2

    我是rails的新手，想在form字段上应用验证。myviewsnew.html.erb.....模拟.rbclassSimulation{:in=>1..25,:message=>'Therowmustbebetween1and25'}end模拟Controller.rbclassSimulationsController我想检查模型类中row字段的整数范围，如果不在范围内则返回错误信息。我可以检查上面代码的范围，但无法返回错误消息提前致谢 最佳答案 关键是您使用的是模型表单，一种显示ActiveRecord模型实例属性的表单。c

  8. ruby-on-rails - 浏览 Ruby 源代码 - 2

    我的主要目标是能够完全理解我正在使用的库/gem。我尝试在Github上从头到尾阅读源代码，但这真的很难。我认为更有趣、更温和的踏脚石就是在使用时阅读每个库/gem方法的源代码。例如，我想知道RubyonRails中的redirect_to方法是如何工作的:如何查找redirect_to方法的源代码？我知道在pry中我可以执行类似show-methodmethod的操作，但我如何才能对Rails框架中的方法执行此操作？您对我如何更好地理解Gem及其API有什么建议吗？仅仅阅读源代码似乎真的很难，尤其是对于框架。谢谢! 最佳答案 Ru

  9. ruby - 模块嵌套代码风格偏好 - 2

    我的假设是moduleAmoduleBendend和moduleA::Bend是一样的。我能够从thisblog找到解决方案,thisSOthread和andthisSOthread.为什么以及什么时候应该更喜欢紧凑语法A::B而不是另一个，因为它显然有一个缺点？我有一种直觉，它可能与性能有关，因为在更多命名空间中查找常量需要更多计算。但是我无法通过对普通类进行基准测试来验证这一点。 最佳答案 这两种写作方法经常被混淆。首先要说的是，据我所知，没有可衡量的性能差异。(在下面的书面示例中不断查找)最明显的区别，可能也是最著名的，是你的

  10. ruby - 寻找通过阅读代码确定编程语言的ruby gem？ - 2

    几个月前，我读了一篇关于ruby​​gem的博客文章，它可以通过阅读代码本身来确定编程语言。对于我的生活，我不记得博客或gem的名称。谷歌搜索“ruby编程语言猜测”及其变体也无济于事。有人碰巧知道相关gem的名称吗？ 最佳答案 是这个吗:http://github.com/chrislo/sourceclassifier/tree/master 关于ruby-寻找通过阅读代码确定编程语言的rubygem？，我们在StackOverflow上找到一个类似的问题：

随机推荐