;===============================================
; Получение случайного числа из АЦП
; 
;===============================================
PRG_RND			MOVLW		.8
				MOVWF		N_BIT_RND

LRND_01			MOVLW		B'10001001'			;
				MOVWF		ADCON0				; Тактовый сигнал, выбор канала, включение АЦП
				MOVLW		.50					; Задержка для заряда Cxold
				MOVWF		D_RND				; 
				DECFSZ		D_RND, 1			; 
				GOTO		$-1					; 
				BSF			ADCON0, 2			; Начало преобразования
				MOVLW		.100				; Задержка
				MOVWF		D_RND				; 
				DECFSZ		D_RND, 1			; 
				GOTO		$-1					; 
				BSF			STATUS,RP0			; 
				MOVF		ADRESL, 0			; Чтение младших битов канала АЦП (+- километр)
				BCF			STATUS,RP0			; 
				ANDLW		B'00000001'			; Отбросили все, кроме младшего бита. Записали в W
				BCF			STATUS,0			; 
				RLF			RAND,1				; Сдвиг числа влево	
				IORWF		RAND, 1				; На освободившееся значение пишем последений бит

				DECFSZ		N_BIT_RND, 1		; 
				GOTO		LRND_01