历史上的今天
返回首页

历史上的今天

今天是:2025年01月26日(星期日)

2018年01月26日 | HT48R50A的7段数码管显示程序

2018-01-26 来源:eefocus

; ********************************************
; Function :       7段数码管显示程序         *

; MICroProcessor : HT48R50A-1/28SKDIP-A      *

; Author:         www.picavr.com              *
; Crystal :       4MHz                       *
; ********************************************
#INCLUDE                HT48R50A-1.INC
;---------------------------------------------
DATA    .SECTION        AT 60H  'DATA'
DELAY_COUNTER_1         DB      ?       ;[60H]
DELAY_COUNTER_2         DB      ?       ;[61H]
SCAN_COUNTER            DB      ?       ;[62H]
SCAN_DATA               DB      ?       ;[63H]
DISPLAY_COUNTER         DB      ?       ;[64H]
DISPLAY_DATA            DB      ?       ;[65H]
LOOP_COUNTER            DB      ?       ;[66H]
;---------------------------------------------
CODE    .SECTION        AT 00H  'CODE'
        ORG     00H
        JMP     START
START:
        CLR     PAC
        SET     PA
        CLR     PCC
        SET     PC
SCAN_BEGIN:
        CLR     DISPLAY_COUNTER
LOOP_1:
        MOV      A,90H
        MOV      LOOP_COUNTER,A
LOOP_2:
        MOV      A,DISPLAY_COUNTER
        MOV      TBLP,A
        MOV      A,0EH
        MOV      SCAN_DATA,A
        MOV      A,04H
        MOV      SCAN_COUNTER,A
SCAN_NEXT:
        MOV      A,SCAN_DATA
        MOV      PC,A
        TABRDL  DISPLAY_DATA
        MOV      A,DISPLAY_DATA
        MOV      PA,A
        CALL    DELAY
        SET     C
        RLC     SCAN_DATA
        INC     TBLP
        SDZ     SCAN_COUNTER
        JMP     SCAN_NEXT
        SDZ     LOOP_COUNTER
        JMP     LOOP_2
        MOV      A,04H
        ADDM    A,DISPLAY_COUNTER
        MOV      A,DISPLAY_COUNTER
        SUB     A,10H
        SZ      ACC
        JMP     LOOP_1
        JMP     SCAN_BEGIN
        RET
;---------------------------------------------
DELAY   PROC
        MOV      A,09H
        MOV      DELAY_COUNTER_1,A
        MOV      DELAY_COUNTER_2,A
WAIT:
        SDZ     DELAY_COUNTER_2
        JMP     WAIT
        SDZ     DELAY_COUNTER_1
        JMP     WAIT
        RET
DELAY   ENDP
;---------------------------------------------
        ORG     0F00H
        DC      081H,0CFH,092H,086H   ;0,1,2,3
        DC      0CCH,0A4H,0A0H,08FH   ;4,5,6,7
        DC      080H,084H,088H,0E0H   ;8,9,A,B
        DC      0B1H,0C2H,0B0H,0B8H   ;C,D,E,F
;---------------------------------------------
        END

基于HT48R50A的7段数码管显示


推荐阅读

史海拾趣

Corning Cable Systems公司的发展小趣事

在追求经济效益的同时,Corning Cable Systems公司也积极履行社会责任,致力于推动绿色环保理念的实践。公司注重环保材料的选择和使用,并在生产过程中采取多项环保措施,以降低对环境的影响。此外,公司还积极推广绿色通信解决方案,为全球通信行业的可持续发展做出了积极贡献。

通过以上五个故事,我们可以看到Corning Cable Systems公司在电子行业中的发展历程和取得的成就。作为光纤通信领域的领军企业,公司凭借其创新技术、扩大生产规模、技术合作和绿色环保理念等方面的努力,不断推动着整个行业的进步和发展。

General Instrument Corp公司的发展小趣事
通过对比实际转换结果与预期值,检查变换器的性能是否符合要求。
Allianc公司的发展小趣事

在XXXX年,Allianc公司迎来了一次重大的技术突破。公司研发团队成功开发出了一款具有领先性能的新型电子产品,该产品不仅具有更高的性能和更低的能耗,还具备更好的用户体验。这一技术突破使得Allianc公司在市场上迅速脱颖而出,赢得了大量客户的青睐。随着产品销量的不断攀升,公司的知名度和影响力也逐渐扩大。

Elprotronic Inc.公司的发展小趣事

随着电子行业的不断发展,客户对电子元器件的需求也在不断变化。Elprotronic Inc.紧跟市场趋势,不断推出具有创新性的产品和技术。其中,一项名为“高速数据传输技术”的创新成果引起了业界的广泛关注。这项技术可以大幅提高数据传输速度,同时保证数据的稳定性和安全性。这一突破性的技术创新为Elprotronic Inc.赢得了更多客户的信赖和支持,也进一步巩固了公司在行业中的地位。

Continental公司的发展小趣事

随着技术的不断进步和市场的不断变化,大陆集团也在不断调整其业务架构。在新的架构中,大陆集团将业务领域划分为三个部分:自主驾驶和安全、车联网和信息、以及橡胶技术(包括轮胎业务和康迪泰克)。这一调整使得大陆集团能够更好地应对市场变化和技术挑战。同时,大陆集团还通过收购和兼并等方式不断扩大其业务范围和技术实力。

Communications公司的发展小趣事

在全球化的大背景下,一家名为“全球通信”的公司积极实施国际化发展战略,成功拓展了海外市场。他们不仅将产品和技术推向全球,还积极参与国际标准和规范的制定,提升了公司在国际通信行业的影响力。

通过与海外企业的合作与交流,“全球通信”不断吸收国际先进技术和管理经验,提升了自身的竞争力。同时,他们还积极参与国际公益事业,树立了良好的企业形象。

问答坊 | AI 解惑

SJA1000独立的CAN控制器应用指南

前面介绍了SJA1000独立的CAN控制器的工作原理和电路本文将介绍SJA1000独立的CAN控制器应用指南以变可以更好的运用SJA1000…

查看全部问答>

IT项目管理成功秘笈

你听过能预言祸吉的咒语吗?虽然这是回到在古希腊时代才能听得到,它似乎在当今的整个美国,包括IT领域内的众多企业在内仍然存在并且十分盛行。   卡珊德拉,这位古希腊美女,被深爱她的阿波罗赋予了预知未来的禀赋。但当卡珊德拉拒绝他的时 ...…

查看全部问答>

中国做模拟IC还有前途吗?

工作难找啊 研究生毕业才刚入门,都没人要!一般都去做数字了。…

查看全部问答>

各位大虾,帮忙看看下面是什么编译错误,怎么解决,多谢啦

在PPC下编译出现如下编译错误: 2140: Error: unsupported relocation type                                    &nb ...…

查看全部问答>

为什么基于cepc和geode定制的系统,一个可以跳转,一个停在jumping..上

Debug Serial Init SysInit: GDTBase=80ad70e8 IDTBase=80b28ec0 KData=80b49800 Windows CE Kernel for i486 Built on Jun 24 2004 at 18:23:42 g_pPageDir = 80b4a000               Init ...…

查看全部问答>

关于spi的问题

麻烦各位帮我看看程序 为什么我得不到uclk和mosi的波形呀 #include<msp430x14x.h> void main(void) { volatile unsigned int i; WDTCTL = WDTPW + WDTHOLD; // Stop watchdog BCSCTL1&=~XT2OFF; ...…

查看全部问答>

请教关于pwm波相位的问题?

cortex LM3S系列的单片机中的pwm模块 能否对pwm波进行相位设置?如能大概怎么操作?…

查看全部问答>

ADI USB全速隔离芯片ADUM4160

ADI USB全速隔离芯片ADUM4160 ADuM4160是一款基于ADI公司iCoupler®技术的USB端口隔离器。它将高速CMOS工艺与单片空芯变压器技术相结合,可提供优异的工作性能,并且很容易与低速和全速USB兼容外设集成。许多微控制器实施的USB只向外部引脚提供 ...…

查看全部问答>

有关AD835的使用注意事项?

本帖最后由 paulhyde 于 2014-9-15 03:32 编辑 AD835在使用的过程中会影响结果的主要注意事项有哪些?谢谢!    …

查看全部问答>

CC2530无法下载问题!急。。

一块CC2530板子在下载时,出现“This device has been locked for debugging. To enable debugging and continue with... ”,导致无法下载,另外一块板子如此下载没有问题。 当用SmartRF Flsah pragrammer 下载.hex时,出现“Chip is locked! Not ...…

查看全部问答>