[an error occurred while processing this directive]
|
Инициализация ну напрмер:
PersistRnd = 1
PseudoRndSmall = 4
у PersistRnd проход по всем значениям байта (256)
PseudoRndSmall до 128
выбирай.
По использованию:
поставь вызовы в разных местах программы, или по прерыванию
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