|
CalcRandom: RLF PersistRnd,w ; MOVLW 1 ; BTFSC PersistRnd,3 ; XORWF STATUS ; BTFSC PersistRnd,4 ; XORWF STATUS ; BTFSC PersistRnd,5 ; XORWF STATUS ; RLF PersistRnd ; ;---------------------------------------- ; CalcSmallRandom | ;---------------------------------------- CLRC ; MOVLW 1 ; BTFSC PseudoRndSmall,5 ; XORWF STATUS ; BTFSC PseudoRndSmall,6 ; XORWF STATUS ; RLF PseudoRndSmall ; BCF PseudoRndSmall,7 ; RET ;
E-mail: info@telesys.ru