はじめまして。
年始そうそう質問させていただきます。
アセンブラでPICを動かしているのですが最近はAD変換に挑戦しています。
16ｆ877というマイコンを使用します。
自分で書いたプログラムは
;16F877のAD変換
;AN0 = A
;AN1 = D
;AN2 = D
;AN3 = D
;AN4 = D
;*********************************************
;AD変換の説明
;*********************************************
;1.ADモジュールの構成を設定 （初期化処理）
; どのピンでAD変換するか決める。→ADCON1
; AD変換のスイッチをオンにする。→ADCON0
;2.AD変換の準備のため待つ。
; 入力取得時間経過を待つ 20μ秒
;3.変換をはじめる。
; ADCON0のGOを1にするとAD変換が始まる。
;4.変換が終わったか調べる。
; AD変換が終わるとADCON0のGOが0になるので比較演算等の処理をするのはそれからにする。
;5.変換結果を読み込む。
; 変換結果がADRESHとADRESLに入っているので、どこか他の場所に移す。
;*********************************************
LIST P=PIC16F877
INCLUDE "P16f877.inc"
__CONFIG _HS_OSC & _PWRTE_ON & _WDT_OFF & _LVP_OFF
;*********************************************
CBLOCK 024h
TIMCNT ;タイマ用カウンタ
TIM2CNT
TIM5CNT
TIM1CNT
ADHK_H ;AD変換の値(上の8ビット)
ADHK_L ;AD変換の値(下の8ビット)
PORTB_OUT
ENDC
;*********************************************************
ORG 0
;*********************************************************
;<ここで1番>
SET_IO ;初期処理
BSF STATUS,RP0 ;これからピンの設定をする。
BCF INTCON,GIE ;（割り込み禁止）
MOVLW 0EH
MOVWF ADCON1 ;RA0のみアナログ、（ADFM=0（結果左詰））
MOVLW 07H
MOVWF OPTION_REG ;（内部クロック、プリスケーラ1:256）
MOVLW 01H
MOVWF TRISA ;ポートAのRA0は入力、他は出力
CLRF TRISB ;ポートBを出力モードに設定
CLRF TRISC ;ポートCを出力モードに設定
CLRF TRISD ;ポートDを出力モードに設定
CLRF TRISE ;ポートEを出力モードに設定
BCF STATUS,RP0 ;これでピンの設定は終わり。
MOVLW 080H ;A/Dコンバータをオフにする。
MOVWF ADCON0 ;ADCON0に080hを書き込むとオフになる。
ADSTART ;A/D変換をはじめる。
MOVLW 081H ;（Fosc/32,ch0,A/D on）
MOVWF ADCON0 ;ADCON0に081hを書き込むとオンになる。
;<ここで2番>
CALL TIM20 ;20μsec待ち = AD変換には時間が必要。
;<ここで3番>
BSF ADCON0,GO ;AD変換スタート
WAITE ;AD変換結果待ち
;<ここで4番>
BTFSC ADCON0,GO ;AD変換が終わるとADCON0のGOが0になるので調べている。
GOTO WAITE ;終わっていないなら前に戻る。
;<ここで5番>
;AD変換された値を読み込む。
MOVF ADRESH,W ;（AD上位ビット（左詰め））
MOVWF ADHK_H
BSF STATUS,RP0 ;（バンク1へ切替）
MOVF ADRESL,W
BCF STATUS,RP0 ;（バンク0に戻す）
MOVWF ADHK_L
;************************************************************
;AD変換の結果はADHK_HとADHK_Lに入ってる。
;ここからメインの処理を書く。
MOVF ADHK_L,W
MOVWF PORTB
GOTO ADSTART
;************************************************************
TIM20 ;約20μSECタイマ
MOVLW 012H
MOVWF TIMCNT
TIMLP
DECFSZ TIMCNT,F
GOTO TIMLP
RETURN
TIM02 ;約0.2mSECタイマ
MOVLW 0FFH
MOVWF TIM2CNT
TIM2LP NOP
DECFSZ TIM2CNT,F
GOTO TIM2LP
RETURN
;*********************************************************
END
なのですが、まともに動いてくれません。
もしかしたら回路的にも間違っているのかもしれません。
プログラム的にはどうでしょうか？
判定よろしくお願いします。
[添付]: 3211 bytes
[添付]: 608 bytes
- Joyful Note -