;------------------------------------------------
getain                  ;W->chan.(0..7); W<-value(0..255),  f877-re, reg:R0, 10 bites
        MOVWF   R0
        RLF     R0,F
        RLF     R0,F
        RLF     R0,W            ;3-al balra kell shiftelni
        ANDLW   00111000b       ;a b3..b5 bitpozici¢kon v rja a csatorn t
        IORLW   10000001b       ;Fosc/32 clk, ch0, ADON
        MOVWF   ADCON0
        CLRF    R0
        DECFSZ  R0,F
        GOTO    $-1             ;sample/hold (800us)
        BSF     ADCON0,GO_DONE  ;indul a konverzi¢
GETA_L
        BTFSC   ADCON0,GO_DONE  ;v runk mig k‚sz nem lesz
        GOTO    GETA_L
        GOTO    $+1
        GOTO    $+1
        GOTO    $+1
        GOTO    $+1

        RETURN
;---------------------------------------------




;------------------------------------------------
getain                  ;W->chan.(0..7); OUT:adrl,adrh,azonositva a soros atvitelhez  f877-re, reg:R0, 10 bites
        MOVWF   R0
        RLF     R0,F
        RLF     R0,F
        RLF     R0,W            ;3-al balra kell shiftelni
        ANDLW   00111000b       ;a b3..b5 bitpozici¢kon v rja a csatorn t
        IORLW   10000001b       ;Fosc/32 clk, ch0, ADON
        MOVWF   ADCON0
        CLRF    R0
        DECFSZ  R0,F
        GOTO    $-1             ;sample/hold (800us)
        BSF     ADCON0,GO_DONE  ;indul a konverzi¢
GETA_L
        BTFSC   ADCON0,GO_DONE  ;v runk mig k‚sz nem lesz
        GOTO    GETA_L
        GOTO    $+1
        GOTO    $+1
        GOTO    $+1
        GOTO    $+1
;Az AD ertek 2 bajtjanak azonositasa, ADRL:0xxxxxxx, ADRH:1xxxxxxx
	bank1
	movf	ADRESL,w
	bank0
	movwf	adrl		;low byte
	movf	ADRESH,w
	movwf	adrh		;high byte

	clrc
	rlf	adrh,f			;balra tolas
	bsf	adrh,7			;utolso bitet 1-be, AZONOSITAS!
	btfsc	adrl,7		;AD also byte 7. bitje 1 vagy 0?
	goto haegy			;ha 1
	bcf	adrh,0			;ha 0
	goto vegeAD
haegy
	bsf	adrh,0	
vegeAD
	bcf	adrl,7			;utolso bitet 0-ba  AZONOSITAS!
        RETURN
;---------------------------------------------