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单片机产生伪随机数程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。