Отправлено пикюзер 24 августа 2004 г. 15:54 В ответ на: Ответ: Все равно лезут :) отправлено alexander_telesys 24 августа 2004 г. 15:51

ConvertADC_Channels:	MOVLF	B'10000001',MainTmp2	; start RA0
		;
		; Преобразовать
		;	
	__NextADC_ch:	MOVWF	ADCON0			;
		; Delay
			MOVLW	D'20'			;
			ADDLW	-1			; 4*0.2=0.8us
			SKPZ				;
			B	$-2			; 20*0.8=16us
			BSF	ADCON0,GO		;
			WAIT0	ADCON0,NOT_DONE		; Ждёмс окончаня преобразования
			MOVFW	ADRESH			;
			CALL	tmmSramWrite		;
			BANKD	01			;
			MOVFW	ADRESL			;
			BANKD	10			;
			CALL	tmmSramWrite		;
			BTFSC	MainTmp2,bit4		;
			RET				;
			MOVLW	B'00001000'		;
			ADDWF	MainTmp2		; B'10001001' = RA1
			BTFSS	MainTmp2,bit3		;
			ADDWF	MainTmp2		; B'10011001' = RA3
			MOVFW	MainTmp2		;
			B	__NextADC_ch		;