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

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