历史上的今天
返回首页

历史上的今天

今天是:2024年10月16日(星期三)

正在发生

2019年10月16日 | PIC产生伪随机数汇编语言程序

2019-10-16 来源:eefocus

PSW    EQU   03
R0     EQU   08
R1     EQU   09
R2     EQU   0AH
R3     EQU   0BH
R4     EQU   0CH
R5     EQU   0DH
R6     EQU   0EH
R7     EQU   0FH
TEMP   EQU   13H
CNT1   EQU   11H
CNTH   EQU   12H
BUF0   EQU   17H
BUF1   EQU   18H
ESUM1  EQU   13H
ESUM2  EQU   14H
ESUM3  EQU   15H
ESUM4  EQU   16H
DSUM1  EQU   19H
DSUM2  EQU   1AH
DSUM3  EQU   1BH
DSUM4  EQU   1CH
DSUM5  EQU   1DH
DSUM6  EQU   1EH
       ORG   1FFH
       GOTO  RADM
       ORG   000
D_ADD  MOVF  R0,0
       ADDWF R6,1
       BTFSC PSW,0
       INCF  R7
       MOVF  R1,0
       ADDWF R7,1
       RETLW 0
DMU1   MOVLW 16
       MOVWF TEMP
       CLRF  R7
       CLRF  R6
DMUL_1 RRF   R3
       RRF   R2
       BTFSC PSW,0
       CALL  D_ADD
       RRF   R7
       RRF   R6
       RRF   R5
       RRF   R4
       DECFSZ TEMP
       GOTO  DMUL_1
       RETLW 0
RADM   CLRF  ESUM1
       CLRF  ESUM2
       CLRF  ESUM3
       CLRF  ESUM4
       CLRF  DSUM1
       CLRF  DSUM2
       CLRF  DSUM3
       CLRF  DSUM4
       CLRF  DSUM5
       CLRF  DSUM6
       MOVLW 20H
       MOVWF CNTH
RADM_1 MOVLW 00
       MOVWF CNTL
RADM_2 MOVLW 64H
       MOVWF R3
       MOVLW 85H
       MOVWF R2
       MOVF  BUF1,0
       MOVWF R1
       MOVF  BUF0,0
       MOVWF R0
       CALL  DMUL
       MOVLW 19H
       ADDWF R4,0
       MOVWF R0
       MOVWF BUF0
       BTFSC PSW,0
       INCF  R5
       MOVLW 36H
       ADDWF R5,0
       MOVWF R1
       MOVWF BUF1
       MOVF  R0,0
       ADDWF ESUM1,1
       BUFSS PSW,0
       GOTO  EADD_1
       INCF  ESUM2
       BTFSS PSW,2
       GOTO  EADD_1
       INCF  ESUM3
       BTFSS PSW,2
       GOTO  EADD_1
       INCF  ESUM4
EADD_1 MOVF  R1,0
       ADDWF ESUM2,1
       BTFSS PSW,0
       GOTO  EADD_2
       BTFSS PSW,2
       GOTO  EADD_2
       INCF  ESUM4
EADD_2 BTFSC R1,7
       GOTO  RADM_3
       COMF  R0,1
       COMF  R1,1
       MOVLW 1
       ADDWF R0,1
       BTFSC PSW,0
       INCF  R1
RADM_3 MOVLW 80H
       ADDWF R1,1
       MOVF  R1,0
       MOVWF R3
       MOVF  R0,0
       MOVWF R2
       CALL  DMUL
       MOVF  R4,0
       ADDWF DSUM1,1
       BTFSS PSW,0
       GOTO  DADD_1
       INCF  DSUM2
       BTFSS PSW,2
       GOTO  DADD_1
       INCF  DSUM3
       BTFSS PSW,2
       GOTO  DADD_1
       INCF  DSUM4
       BTFSS PSW,2
       GOTO  DADD_1
       INCF   DSUM6
DADD_1 MOVF   R5,0
       ADDWF  DSUM2,1
       BTFSS  PSW,0
       GOTO   DADD_2
       INCF   DSUM3
       BTFSS  PSW,2
       GOTO   DADD_2
       INCF   DSUM4
       BTFSS  PSW,2
       GOTO   DADD_2
       INCF   DSUM5
       BTFSS  PSW,2
       GOTO   DADD_2
       INCF   DSSUM6
DADD_2 MOVF   R6,0
       ADDWF  DSUM3,1
       BTFSS  PSW,0
       GOTO   DADD_3
       INCF   DSUM4
       BTFSS  PSW,2
       GOTO   DADD_3
       INCF   DSUM5
       BTFSS  PSW,2
       GOTO   DADD_3
       INCF   DSUM6
DADD_3 MOVF   R7,0
       ADDWF  DSUM4,1
       BTFSS  PSW,0
       GOTO   DADD_4
       INCF   DSUM5
       BTFSS  PSW,2
       GOTO   DADD_4
       INCF   DSUM6
DADD_4 DECFSZ CNTL
       GOTO   RADM_2
       DECFSZ CNTH
       GOTO   RADM_1
       MOVLW  5
       MOVWF  CNTL
RADM_4 BCF    PSW,0
       RRF    ESUM4
       RRF    ESUM3
       RRF    ESUM2
       RRF    ESUM1
       DECFSZ CNTL
       GOTO   RADM_4
       MOVLW  5
       MOVWF  CNTL
RADM_5 BCF    PSW,0
       RRF    DSUM6
       RRF    DSUM5
       RRF    DSUM4
       RRF    DSUM3
       RRF    DSUM2
       RRF    DSUM1
       DECFSZ CNTL
       GOTO   RADM_5
LOOP   GOTO   LOOP
       END

推荐阅读

史海拾趣

EFINIX公司的发展小趣事

EFINIX公司成立于2012年,由一群来自知名FPGA企业的创始人团队创立。他们拥有丰富的FPGA设计经验,并致力于在可编程逻辑行业实现突破性的创新。公司总部位于美国加利福尼亚州圣克拉拉市,计划采用一种全新的现场可编程门阵列(FPGA)技术——量子可编程技术,来设计芯片。这种技术旨在实现芯片尺寸仅为传统芯片的四分之一,能耗减少一半,同时结构更加简化。EFINIX公司相信,这种技术将推动人工智能和深度学习的发展,使数据处理更加高效。

Caliber公司的发展小趣事

在环保意识日益增强的今天,Caliber公司积极响应国家号召,推动绿色环保生产。公司投入大量资金引进环保设备和技术,减少生产过程中的污染排放。同时,Caliber还研发了一系列节能型电子产品,为用户提供更加环保的选择。这些举措不仅提升了公司的社会形象,也为公司的可持续发展注入了新的动力。

Alutronic Kuhlkorper Gmbh & Co Kg公司的发展小趣事

Caliber公司自创立之初,便以技术创新为核心竞争力。在电子行业的早期,该公司敏锐地捕捉到市场对高性能计算芯片的需求,投入大量资源进行研发。经过数年的努力,Caliber成功推出了一款具有划时代意义的芯片产品,以其出色的性能和稳定性赢得了市场的广泛认可。这一创新不仅为Caliber带来了巨大的商业成功,也为整个电子行业的发展注入了新的活力。

Electrocube Inc公司的发展小趣事

作为一家有社会责任感的企业,Electrocube Inc公司始终关注环保问题。公司积极采用环保材料和生产工艺,减少生产过程中的污染排放。同时,公司还积极参与环保公益活动,推动电子行业的绿色发展。这种对环保的关注和践行,使得Electrocube Inc公司在业界树立了良好的形象。

广州盛炬(GZSJ)公司的发展小趣事

Electrocube Inc公司的创始人在创立之初便面临着重重挑战。当时,电子行业正处于快速发展阶段,市场竞争激烈。然而,创始人凭借对电子技术的深刻理解和敏锐的市场洞察力,成功开发出了一款高性能、低成本的电容器产品。这款产品迅速获得了市场的认可,为公司赢得了第一桶金,也为后续的发展奠定了坚实的基础。

登丰微(GSTEK)公司的发展小趣事

歌普电子深知技术创新的重要性,因此不断加大在研发方面的投入。公司拥有一支卓越的研发团队,能够设计出先进而成熟的产品方案,并配备了精密模具制造、高速连续冲压等先进生产设备。这些努力使得歌普的产品不仅获得了多项国际安全认证及外观设计专利,还成功与国际品牌连接器相兼容。随着产品的不断优化和升级,歌普的产品远销全球多个工业国家及地区,赢得了良好的国际声誉。

问答坊 | AI 解惑

去耦电容和旁路电容的区别

旁路电容不是理论概念,而是一个经常使用的实用方法,在50 -- 60年代,这个词也就有它特有的含义,现在已不多用。电子管或者晶体管是需要偏置的,就是决定工作点的直流供电条件。例如电子管的栅极相对于阴极往往要求加有负压,为了在一个直流电源下 ...…

查看全部问答>

FPGA QQ群

本帖最后由 paulhyde 于 2014-9-15 03:27 编辑 大赛一定有很多使用了FPGA的同学吧,也有许多想学习FPGA的同学吧,我建了一个QQ群,为大家学习交流提供方便,希望大家踊跃加入。 QQ群号: 69611574。  …

查看全部问答>

大家用ARM在开发什么产品?

能大概介绍下吗,本人想做ARM的产品,但不知道做什么好。 …

查看全部问答>

windows usb driver

1,usb device包含两个configurations, configuration 1是usb mass storage, configuration 2是一个自定义的function; 2, 默认会被windows识别为usb mass storage; 3, 现在需要切换到configuration2, 我发了set configuration 可以成功,但是似 ...…

查看全部问答>

驻极体话筒+运算放大器+AD转换

我想把外界的音乐,声音等信号采集进单片机(AT89S51),采样频率在44.1KHz,问请用什么运算放大器和AD转换器…

查看全部问答>

广州诚招C程序员二名,并寻高手合作.

广州单片机之家诚招C程序员两名(有C++经验更佳):     目前主要从事游戏的设计工作,使用自有的e.Net(e时代的网络语言,以C++基本语法为主)进行 视频游戏的开发,开发出的游戏在自有的从89C51到ARM到PC机各种硬件平台上随处可运行.其实 ...…

查看全部问答>

哪位大侠开发过Symbol MC1000?

RT,系统是wince4.2,哪位开发过?麻烦发个类似记事本写字板一样的能有输入和存档。以前从未在wince上开发过,新手初来,请各位帮忙!!感谢!! 邮箱:jackbinhao@163.com…

查看全部问答>

mobile开发模式与.net类似吗?

如题, 小弟正在学习mobile开发, 因为以前做asp.net, 所以想请教mobile开发模式与.net开发有什么区别, 比如.net主要是事件,用户触发事件后, 需要编写事件的处理函数,而windowsce是消息机制, 请问这个消息和事件的区别, 总是在源码里 ...…

查看全部问答>

请教STM32F103的CAN总线速度和系统时钟之间关系的问题?

偶在调试STM32F103VBT6的CAN总线的时候,外部使用晶体为8MHz,当设置系统时钟=8MHz,APB1=4MHz,BS1=8tq,BS2=7tq,Prescaler=5,得到波特率为50K,两个板子之间CAN收发完全正常。当设置系统时钟使用PLL,设置为72Mhz,APB1=36Mhz,BS1=6tq,BS2=5tq,P ...…

查看全部问答>

#include路径怎么写啊,请高手指点

看了Ti的文档还是不太清楚,最后只能写绝对路径,就是包含盘符的那种,不过还是不太好 现在情况是这样的:在include文件夹下面我定义了A、B、C三个文件夹,用来放置三种.h文件 其中A文件夹中又有A1、A2、A3三个文件夹,如何包含这几个文件夹的头 ...…

查看全部问答>