; A-Dコンバータの初期設定
	bcf	STATUS,RP0
	bcf	STATUS,RP1	; bank0にする

	movlw	B'01000001'
	movwf	ADCON0

	bsf	STATUS,RP0	; bank1にする
	movlw	B'11000000'
	movwf	ADCON1
	bcf	STATUS,RP0	; bank0にする
	; ここまでが初期設定

	call	delay10us	; 10[μs]×2待つ
	call	delay10us

	bsf	ADCON0,GO	; A-D変換開始
	
	btfsc	ADCON0,GO	; A-D変換終了まで待つ
	goto	$-1

	movfw	ADRESH		; 結果を読み込む(上位バイト)
	movwf	DATA0H

	bsf	STATUS,RP0	; bank1にする
	movfw	ADRESL		; 結果を読み込む(下位バイト)
	movwf	DATA0L
	bcf	STATUS,RP0	; bank0に戻す

リスト5-1    Copyright 2005 Noriaki Mitsunaga