《匠人手记》推荐网上购书渠道:
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
卓越亚马逊网 购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

设为首页加入收藏联系匠人管理入口21IC首页21IC博客21IC社区侃单片机回复的贴参与的贴

天气预报
百宝日历
载入中...

百宝专栏

载入中...
最新货色

载入中...

粉丝评论

载入中...

载入中...



百宝信息

载入中...

百宝流量

(2006-07-01开始)


匠人手记

 匠人观点: 好记性不如烂笔头  
 黑色幽默:三鹿门——后世畅想

PIC产生伪随机数汇编语言程序
程序匠人 发表于 2005-8-17 18:01:00  阅读全文 | 回复(1) | 引用通告 | 编辑

      PIC产生伪随机数汇编语言程序

      作者:佚名  
      PIC产生伪随机数汇编语言程序
      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
 

看《匠人手记》,与匠人同行!北航出版,正在热卖!

回复:PIC产生伪随机数汇编语言程序
rainsun发表评论于2005-8-21 13:37:00  个人主页 | 引用 | 返回 | 删除 | 回复

rainsun

能讲一下思路吗

看《匠人手记》,与匠人同行!北航出版,正在热卖!

发表评论:
载入中...

芯片专题

器件专题

软件专题

硬件专题

综合专题

项目专题

原创专题

器件检测
LCD LED
按键 触摸键
E2PROM
电池 电机
电阻 电容 电感

指令系统
软件算法
编程规范
滤波算法
串行通讯

PCB设计
I2C PWM
红外遥控
充电技术
中断 ADC 

匠人手记
匠人夜话
网络心路
一周热点串烧
从零开始玩PIC
DIY旋转时钟

广告5号位 [投放]


学习板、开发板、编程器、下载器、仿真器(查看详情……)

广告3号位 [投放]

站内搜索


站外搜索


百度  google
mp3  歌词 
图片  FLASH 
知道  文档
新闻  词典 
地图  mp3 
软件  天网 
雅虎  爱问 
搜狗  讯雷 
网讯  华军 
天空 

21IC器件搜索
百宝箱分站
  • 《匠人的百宝箱》21IC站
  • 《匠人的百宝箱》21IC笔记团队
  • 《匠人手记》21IC书友会
  • 《匠人的百宝箱》MCUBLOG站
  • 《匠人的百宝箱》MCUBLOG笔记团队
  • 《匠人的百宝箱》EDN站
  • 《匠人手记》EDN书友会
  • 《匠人的百宝箱》与非网站
  • 《匠人的百宝箱》新浪站
  • 《匠人的百宝箱》百度站
  • 《匠人的百宝箱》网易126站
  • 《匠人的百宝箱》网易163站
  • 《匠人的百宝箱》互动出版网站
  • 广告4号位 [投放]

     
     

    匠人原创

    往日酷贴

     
     
     

    大千八卦

    友情连接

    新浪新闻:
    新浪财经:
    AK58新闻:
    新浪股票:
    新浪股票:
    证券之星:

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

    MCU博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

    !!! 《匠人的百宝箱》 !!!