|
Инициализация:
PersistRnd = 1
PseudoRndSmall = 4CalcRandom:
MOVLW 0 ;
BTFSC PersistRnd,7 ;
MOVLW 1 ;BTFSC PersistRnd,3 ;
XORLW 1 ;
BTFSC PersistRnd,4 ;
XORLW 1 ;
BTFSC PersistRnd,5 ;
XORLW 1 ;
RLF PersistRnd ;
BCF PersistRnd,0 ;
IORWF PersistRnd ;
RETCalcSmallRandom:
MOVLW 0 ;
BTFSC PseudoRndSmall,5 ;
MOVLW 1 ;
BTFSC PseudoRndSmall,6 ;
XORLW 1 ;CLRC ;
RLF PseudoRndSmall ;
BCF PseudoRndSmall,7 ;
IORWF PseudoRndSmall ;
;
RET ;
E-mail: info@telesys.ru