PCF8574 IO EXPANDER の序でにEEPROMもドキュメントを
残そうと取り組んでみました、皆様のようにサクッ!!っとC言語とかで
制御出来なくて地道にPICマイコンのアセンブラで組んでみましたが
思いの外難しくて時間が掛かりました。
特記すべきはネット記事では見つからなかったものの良く探せば同様
のトラブルが在った事を解決後に知りましたが下記の様な事です・・・
EEPROMの書き込み時間は最低 5ms を必要とする
・・・という事実、これを知らなかったばかりに書き込み後直ちに
読み出しすると最初のスレーブアドレスを送信してフリーズして
仕舞うのです、この問題を解決するためにオシロスコープとにらめっこ
して何日無駄にしたか・・・・はぁ、って感じです、たまたま
デバッグする為にタイマーを入れたらすんなり動いたので
「なんで？」
もしやインターバルが必要なのかとネット検索したら同様のトラブル
の記事がみつかりまして「ああ、やっぱりそうか」と、更には
EEPROMのデータシートを視れば書き込みに5msと書いて有る
ではないですか、そんな訳で無駄な悪戦苦闘を強いられました。
データシートの当該部分です赤枠内
↓
取り敢えずこの動画はEEPROM のメモリー番地 0x000～0x0FF
の255のアドレスに00/01/02/03・・・・FD/FE/FF/00と一個ずつ加算
して書いて同時に読み出してLチカさせています。
↓
実際のI2C波形です、一つずつインクリメントしている様子が判ります
↓
ちゃんと書けているか確認しました、以前から所持していた秋月電子
PIC PROGRAMMER を使いました、この基板はPICだけで無く
アプリケーション・ソフトをダウンロードすればEEPROMの
読み書き込みも可能なのです
↓
但し、これを使うに当たっては色々と問題が在りました
先ず、今時のパソコンにはCOM1(9pin-D-sub / serial)が無い
で、あるにも関わらず我がDELL T3500には付いていた、だから今まで
PIC PROGRAMMERは問題無く動いていた、なのに秋月電子の
アプリケーション・ソフト、Serial EEPROM Programmer Ver6.5.8
は何故だか「エラー’13’型式が合いません」なるシステムエラーが出て
使えないのです、ならばという事で古いノートパソコンを引っ張り出して
それにインストールされている windows xp professional の元で
動かしたものの同様のエラーで動作しません、もうなにをやってもダメ
そこで思いついたのは USB/Serial変換器 REX -USB60F
これです ↓
これを使うことでSerial EEPROM Programmer Ver6.5.8は動くのです
折角COM1 / serial ポートが在るのにそれはダメでわざわざ
USB/Serial変換器を使うと動くという矛盾、その嫌らしさ・・・・
然かも COM14 とか、もう信じられない
という訳でちゃんと書けていることが確認出来ました
↓
オシロスコープで波形観測するには肝心な部分だけを視たいのに
他の波形が重複して見辛いことこの上ないですよね、その問題は
簡単に解決出来ました、PICの空きポートを利用してそこにトリガー
パルスを出してディレーで眺めれば楽勝です
製作した EEPROM 基板です、LEDは短絡しています
↓
単純にEEPROMだけですが、保護ダイオード、パスコン、チェック端子
とシンプルな基板です
↓
全体回路図
↓
これでは何も見えませんね、PIC部分
↓
EEPROM部分
↓
I2Cのプロトコルは下記の通り、データシートの抜粋です
デバッグしていて何が一番知りたかったか、それは実際の波形です
SCL / SDA の相互位相関係で全てが決まります、それぞれの立ち上がり
立ち下がり、その時の状況で様々な意味を持たせているので抽象的な
データシートの波形では満足できませんでした、特にACKは僅かな凹みが
足跡の様に残るのです、オシロスコープに顔を近づけないと判別出来ない
のですが、ACKが出ている、出ていない、の大きな手掛かりと成ります
写真は下記の条件での波形です
・EEPROM 24LC64 秋月で50円、マイクロチップ社製 255byte x 32頁
・SLAVE ADDRESS 0xA0(WRITE) / 0xA1(READ)
・MEMORY ADDRESS 0x00
・WRITE & READ DATA 0x55
WRITE→READ間インターバルはおよそ 6ms
データシートでは「書き込み時間」と称していますが「書いてから読み出す
までに最低5msは待って呉れ」とは書かれていないのです、データシートの
嫌らしさ、不親切さは自社の欠点や不利益な部分を別の真実という形で表現
し結果的に危険性が伝わらない、と云う形で書かれていると私は永年感じて
居ます
↓
I2C クロック周波数はほぼ100KHz
↓
オシロスコープ画面、左側が読み出し、右が書き込み
これを延々と繰り返すだけです
↓
読み出し START→ 0xA0→ ACK→ 0x00→ ACK
↓
読み出し 0x00→ ACK→ RESTART→ 0xA1
↓
読み出し 上の写真の 0xA1 は重複、続いて ACK→ 0x55→ NACK→ STOP
↓
書き込み START→ 0xA0→ ACK→ 0x00→ ACK
↓
書き込み 0x00→ ACK→ 0x55→ ACK→ STOP
↓
こうした具体的な波形で無いと私には無理。
プログラムです、下記のファイルと成ります
・p16f886.inc
・p16f886_24C64_006.asm メイン
・p16f886_24C64_read.asm サブルーチン、読み出し
・p16f886_24C64_sub_i2c.asm サブルーチン
・p16f886_24C64_write.asm サブルーチン、書き込み
・subroutin.asm サブルーチン
プログラムの流れは・・・
・データ 0x55 を書く
・読み込む
・LEDを点灯させる(PORTB)
・・・と単純で無意味な動作です、然し乍ら方法を知る為には
やらないよりはまし
———————————————————————————
・p16f886.inc はMICRO CHIP 社で配布しているものです
それに追加した部分だけを示します
↓
CBLOCK H'20' ;20hからユーザーのメモリが連続して割り当てられる開始宣言 W_TEMP ;For Interupt S_TEMP ;For Interupt COUNT ;For サブルーチン変数 COUNT2 ;For サブルーチン変数 COUNT3 ;For サブルーチン変数 COUNT4 ;For サブルーチン変数 COUNT10 ;For サブルーチン変数 COUNT11 ;For サブルーチン変数 COUNT12 ;For サブルーチン変数 COUNT13 ;For サブルーチン変数 TMR0_INT_C ;TMR0割込回数カウンタ(65.28msでインクリメント但し水晶=4MHz) TMR0_INT_D ;上記カウンタが255を超えたら+1するカウンタ ; MAX = 4244.8秒 ( 65.28ms x 255 x 255 ) およそ70分 FLAG ;FLAG RESISTER ;0= ;1= ;2= ;3= ;4= ;5= ;6= ;7= SWFLAG ;SW FLAG ONLY RESISTER ;0=SWの状態ビット0 ;1=SWの状態ビット1 ;2=SW ON ビット、MAINプログラムではこれが立った事でSW ONを知る ;3= ;4= ;5= ;6= ;7= SWFLAG2 ;SW FLAG ONLY RESISTER ;0=SWの状態ビット0 ;1=SWの状態ビット1 ;2=SW ON ビット、MAINプログラムではこれが立った事でSW ONを知る ;3= ;4= ;5= ;6= ;7= COUNTB ;For Interrupt 避難用 COUNT2B ;For Interrupt 避難用 COUNT3B ;For Interrupt 避難用 COUNT4B ;For Interrupt 避難用 TEMP1 ;For A/D value MSB TEMP2 ;For A/D value LSB TEMP3 ;For Adjustable timer routin PTA ;For I/O register PTB ;For I/O register PTC ;For I/O register PTE ;For I/O register WRITEADRS ;スレーブアドレス・ライト WRITEHADRS ;メモリ上位アドレス・ライト WRITELADRS ;メモリ下位アドレス・ライト EPROMWDATA ;書き込むデータ READADRS ;スレーブアドレス・リード READHADRS ;メモリ上位アドレス・リード READLADRS ;メモリ下位アドレス・リード
・p16f886_24C64_006.asm メイン
↓
;*************************************************************************************************************** ;This software is provided in an “AS IS” condition,NO WARRANTIES in any form apply to this software. ; picmicrolab.com 5.31.2014 ; Modified Dec,10,2018 by maru ;*************************************************************************************************************** ; PCF8574 I2C 8-bit IO expander interface with PIC16F876A; ;-------------------------------------------------------------------------------------; LIST P=PIC16F886 include P16f886.inc errorlevel -302 ; 翻訳時に302エラーが出ないようにします errorlevel -205 ; 翻訳時に205エラーが出ないようにします errorlevel -305 ; 翻訳時に305エラーが出ないようにします ;サブルーチンは別ファイルをコール ; EXTERN TIMADJ,TIM8ms,TIM100ms,TIM500ms,TIM10ms,ADGET,OUT_A,OUT_B,OUT_C,SWON,SWON2 EXTERN E24LC64_READ,I2C_INIT,START_I2C,STOP_I2C,E24LC64_WRITE,IDLE EXTERN TIM100ms,TIM8ms,TIM10ms ;別ファイルに存在するサブルーチンのラベル名を宣言する ;別ファイルでは必ず GLOBAL で受ける、つまり EXTERN と GLOBAL はペア。 ; __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _HS_OSC & _LVP_OFF & _DEBUG_OFF & _CPD_OFF __CONFIG _CONFIG1 , _CP_OFF & _DEBUG_OFF & _CPD_OFF & _LVP_OFF & _MCLRE_ON & _PWRTE_ON & _WDT_OFF & _INTOSCIO & _BOR_OFF org 0x00 reset: goto start org 0x04 start: ;=============================================================================== ;スレーブアドレスとデータの宣言 ;-------------- WSADRS EQU H'00A0' ;スレーブアドレス WRITE WSHADRS EQU H'0000' ;メモリアドレス上位 WRITE WSLADRS EQU H'0000' ;メモリアドレス下位 WRITE ROMWDATA EQU H'0055' ;E24LC64 に書き込むデータ ;-------------- RSADRS EQU H'00A1' ;スレーブアドレス READ RSHADRS EQU H'0000' ;メモリアドレス上位 READ RSLADRS EQU H'0000' ;メモリアドレス下位 READ ;-------------- MOVLW WSADRS ;data -> W MOVWF WRITEADRS ;W -> F MOVLW WSHADRS ;data -> W MOVWF WRITEHADRS ;W -> F MOVLW WSLADRS ;data -> W MOVWF WRITELADRS ;W -> F ;-------------- MOVLW ROMWDATA ;data -> W MOVWF EPROMWDATA ;W -> F ;-------------- MOVLW RSADRS ;data -> W MOVWF READADRS ;W -> F MOVLW RSHADRS ;data -> W MOVWF READHADRS ;W -> F MOVLW RSLADRS ;data -> W MOVWF READLADRS ;W -> F ;-------------- ; READADRS ;スレーブアドレス・リード・レジスタ ; WRITEADRS ;スレーブアドレス・ライト・レジスタ ;=============================================================================== ;For PORTA RA0=OUT using trigger pulse for oscilloscope BANKSEL TRISA MOVLW b'00000000' MOVWF TRISA banksel PORTA CLRF PORTA ;=============================================================================== ;For MCLR INIT 1pin MCLR to use reset sw 1pin (PORTE-RE3) BANKSEL PORTE CLRF PORTE BANKSEL ANSEL CLRF ANSEL BANKSEL TRISE MOVLW b'00001000' MOVWF TRISE ;=============================================================================== ;*** iNTERNAL OSC 設定 ( OSCCON-8Fh ) ;OSCINIT BANKSEL OSCCON MOVLW 70h ;CLOCK=4MHz (70H=8MHzでMAX) MOVWF OSCCON BCF STATUS,5 ;Back to BANK0 ;=============================================================================== ;I2C の為の初期化 LOOP: CALL I2C_INIT ;=============================================================================== ;LOOP: ;=============================================================================== ;E24LC64WRITE CALL IDLE CALL START_I2C CALL E24LC64_WRITE CALL STOP_I2C ;=============================================================================== ;For EEPROM WRITE WAITING TIME(Musd be 5ms minimum) if no wait gonna be freeze CALL TIM10ms ;=============================================================================== ;E24LC64READ BANKSEL PORTA ;For oscilloscope trigger CLRF PORTA ;↑ BSF PORTA,0 ;↑ CALL IDLE CALL START_I2C CALL E24LC64_READ CALL STOP_I2C banksel PORTA ;For oscilloscope trigger BCF PORTA,0 ;↑ ;=============================================================================== BANKSEL W_TEMP MOVF W_TEMP,W ;W_TEMP -> W MOVWF PORTB ;W → PORTB に即出力(LEDモニタとして使用) ;=============================================================================== GOTO LOOP end
・p16f886_24C64_read.asm サブルーチン、読み出し
↓
list p=16F886 ; 翻訳時にリストファイルを作ります #include; 定義ファイルを読み込みます errorlevel -302 ; 翻訳時に302エラーが出ないようにします errorlevel -205 ; 翻訳時に205エラーが出ないようにします errorlevel -305 ; 翻訳時に305エラーが出ないようにします ;*********************************************************************** ;サブルーチン、E24LC64を読む GLOBAL E24LC64_READ ;サブルーチンのラベル名がメインプログラムでEXTERNで宣言されて居る ;その為、必ずGLOBALで受ける、つまり EXTERN と GLOBAL はペア ;=============================================================================== CODE ;サブルーチン、ここから ;=============================================================================== ; WRITEADRS ;スレーブアドレス・リードの為のライト E24LC64_READ BANKSEL WRITEADRS MOVF WRITEADRS,W ;F -> W スレーブアドレス一発目はライトモード MOVWF SSPBUF ;W -> F INITIATE SEND この瞬間に送信される ;SLAVE ADDRESS SENDC3: BANKSEL PIR1 BTFSS PIR1, SSPIF ;SEND COMPLETED? YES,SKIP NEXT 送信完了? GOTO SENDC3 BCF PIR1, SSPIF ;YES,CLEAR FLAG 割り込みフラグ・クリア BANKSEL SSPCON2 BTFSC SSPCON2,ACKSTAT ;ACK RECEIVED FROM SLAVE?IF YES SKIP ; スレーブからの ACK待ち 0=受信済み次ぎをスキップ GOTO $-1 ;IF NO,END ;=============================================================================== ; メモリアドレス上位送信 BANKSEL READHADRS MOVF READHADRS,W ;F -> W MOVWF SSPBUF ;W -> F INITIATE SEND この瞬間に送信される ;SLAVE ADDRESS SENDC3B: BANKSEL PIR1 BTFSS PIR1, SSPIF ;SEND COMPLETED? YES,SKIP NEXT 送信完了? GOTO SENDC3B BCF PIR1, SSPIF ;YES,CLEAR FLAG 割り込みフラグ・クリア BANKSEL SSPCON2 BTFSC SSPCON2,ACKSTAT ;ACK RECEIVED FROM SLAVE?IF YES SKIP ; スレーブからの ACK待ち 0=受信済み次ぎをスキップ GOTO $-1 ;IF NO,END ; RETURN ;=============================================================================== ; メモリアドレス下位送信 BANKSEL READLADRS MOVF READLADRS,W ;F -> W MOVWF SSPBUF ;W -> F INITIATE SEND この瞬間に送信される SENDC3C: BANKSEL PIR1 BTFSS PIR1, SSPIF ;SEND COMPLETED? YES,SKIP NEXT 送信完了? GOTO SENDC3C BCF PIR1, SSPIF ;YES,CLEAR FLAG 割り込みフラグ・クリア BANKSEL SSPCON2 BTFSC SSPCON2,ACKSTAT ;ACK RECEIVED FROM SLAVE?IF YES SKIP ; スレーブからの ACK待ち 0=受信済み次ぎをスキップ GOTO $-1 ;IF NO,END ;=============================================================================== ;repeated start banksel SSPCON2 bsf SSPCON2,RSEN btfsc SSPCON2,RSEN goto $-1 ;=============================================================================== ; READADRS ;スレーブアドレス・リード BANKSEL READADRS ;bank0 MOVF READADRS,W ;F -> W スレーブアドレス・リード MOVWF SSPBUF ;W -> F INITIATE SEND この瞬間に送信される SENDC3D: BANKSEL PIR1 bcf PIR1,SSPIF BTFSS PIR1, SSPIF ;SEND COMPLETED? YES,SKIP NEXT 送信完了? GOTO SENDC3D BCF PIR1, SSPIF ;YES,CLEAR FLAG 割り込みフラグ・クリア BANKSEL SSPCON2 BTFSC SSPCON2,ACKSTAT ;ACK RECEIVED FROM SLAVE?IF YES SKIP ; スレーブからの ACK待ち 0=受信済み次ぎをスキップ GOTO $-1 ; Wait to ACK END ;=============================================================================== ; I2Cから1byte入力しWREGに格納する。デバイスへはNACKを返す。 ; i2c_last_read 最終1byte入力 bsf SSPCON2,RCEN ; 受信を許可 btfsc SSPCON2,RCEN goto $-1 ; PICが受信許可状態になるまでループ banksel PIR1 ;bank0 btfss PIR1,SSPIF goto $-1 bcf PIR1,SSPIF banksel SSPBUF ;bank0 movf SSPBUF,W MOVWF W_TEMP ;W -> W_TEMP I/O EXPANDER へ出力するデータの確保 banksel SSPCON2 ;bank1 bsf SSPCON2,ACKDT ; NACKを出力 bsf SSPCON2,ACKEN ; ACKENをセット btfsc SSPCON2,ACKEN goto $-1 ; ACKの送信が終了するループ banksel PIR1 ;bank0 bcf PIR1,SSPIF return END
・p16f886_24C64_sub_i2c.asm サブルーチン
↓
list p=16F886 ; 翻訳時にリストファイルを作ります #include; 定義ファイルを読み込みます errorlevel -302 ; 翻訳時に302エラーが出ないようにします errorlevel -205 ; 翻訳時に205エラーが出ないようにします errorlevel -305 ; 翻訳時に305エラーが出ないようにします ;*********************************************************************** ;サブルーチン、PCF8574を読む GLOBAL I2C_INIT,START_I2C,STOP_I2C,IDLE ;サブルーチンのラベル名がメインプログラムでEXTERNで宣言されて居る ;その為、必ずGLOBALで受ける、つまり EXTERN と GLOBAL はペア ;=============================================================================== CODE ;サブルーチン、ここから ;=============================================================================== I2C_INIT ;=============================================================================== ;I2C の為の初期化 BANKSEL SSPCON ;BANK0 movlw 0x28 ;0x28 = シリアルポートを動作させ、SDA とSCL ピンをシリアルポートピンにする。 ;0x28 = I2C マスターモード、クロック＝ FOSC / (4 * (SSPADD+1) ) movwf SSPCON BANKSEL SSPSTAT ;BANK1 BSF SSPSTAT, SMP BCF SSPSTAT, CKE CLRF TRISB ;BANK1 BSF TRISC, 0x04 ;SDA=IN BSF TRISC, 0x03 ;SCL=IN MOVLW 0x13 ;I2C BUS speed 小さい程早く成る MOVWF SSPADD ;BANK1 NOP RETURN ;********************* START CONDITION ***************************************** START_I2C BANKSEL SSPCON2 BSF SSPCON2, SEN ; INITIATE START SENDB2: BANKSEL PIR1 BTFSS PIR1, SSPIF ;START COMPLETED?YES SKIP NEXT GOTO SENDB2 BCF PIR1, SSPIF ;YES,CLEAR FLAG RETURN ;********************* INITIATE STOP******************************************* STOP_I2C SENDB5: BANKSEL SSPCON2 ;bank1 BSF SSPCON2,PEN BCF STATUS,RP0 ;bank0 SENDBE: BTFSS PIR1,SSPIF GOTO SENDBE BCF PIR1,SSPIF RETURN ;=============================================================================== ;idle IDLE: banksel SSPCON2 ; ; CLRF SSPCON2 ; btfsc SSPCON2,ACKDT ; goto $-1 ; btfsc SSPCON2,ACKEN goto $-1 btfsc SSPCON2,RCEN goto $-3 btfsc SSPCON2,PEN goto $-5 btfsc SSPCON2,RSEN goto $-7 btfsc SSPCON2,SEN goto $-9 RETURN END
・p16f886_24C64_write.asm サブルーチン、書き込み
↓
list p=16F886 ; 翻訳時にリストファイルを作ります #include; 定義ファイルを読み込みます errorlevel -302 ; 翻訳時に302エラーが出ないようにします errorlevel -205 ; 翻訳時に205エラーが出ないようにします errorlevel -305 ; 翻訳時に305エラーが出ないようにします ;*********************************************************************** ;サブルーチン、PCF8574を読む GLOBAL I2C_INIT,START_I2C,STOP_I2C,IDLE ;サブルーチンのラベル名がメインプログラムでEXTERNで宣言されて居る ;その為、必ずGLOBALで受ける、つまり EXTERN と GLOBAL はペア ;=============================================================================== CODE ;サブルーチン、ここから ;=============================================================================== I2C_INIT ;=============================================================================== ;I2C の為の初期化 BANKSEL SSPCON ;BANK0 movlw 0x28 ;0x28 = シリアルポートを動作させ、SDA とSCL ピンをシリアルポートピンにする。 ;0x28 = I2C マスターモード、クロック＝ FOSC / (4 * (SSPADD+1) ) movwf SSPCON BANKSEL SSPSTAT ;BANK1 BSF SSPSTAT, SMP BCF SSPSTAT, CKE CLRF TRISB ;BANK1 BSF TRISC, 0x04 ;SDA=IN BSF TRISC, 0x03 ;SCL=IN MOVLW 0x13 ;I2C BUS speed 小さい程早く成る MOVWF SSPADD ;BANK1 NOP RETURN ;********************* START CONDITION ***************************************** START_I2C BANKSEL SSPCON2 BSF SSPCON2, SEN ; INITIATE START SENDB2: BANKSEL PIR1 BTFSS PIR1, SSPIF ;START COMPLETED?YES SKIP NEXT GOTO SENDB2 BCF PIR1, SSPIF ;YES,CLEAR FLAG RETURN ;********************* INITIATE STOP******************************************* STOP_I2C SENDB5: BANKSEL SSPCON2 ;bank1 BSF SSPCON2,PEN BCF STATUS,RP0 ;bank0 SENDBE: BTFSS PIR1,SSPIF GOTO SENDBE BCF PIR1,SSPIF RETURN ;=============================================================================== ;idle IDLE: banksel SSPCON2 ; ; CLRF SSPCON2 ; btfsc SSPCON2,ACKDT ; goto $-1 ; btfsc SSPCON2,ACKEN goto $-1 btfsc SSPCON2,RCEN goto $-3 btfsc SSPCON2,PEN goto $-5 btfsc SSPCON2,RSEN goto $-7 btfsc SSPCON2,SEN goto $-9 RETURN END
・subroutin.asm サブルーチン
無駄なプログラムが多いです、流用なのでご容赦
↓
;*********************************************************************************** ; PIC16F886 Extra Subroutines Ver 1.00 2009/11/25 ;*********************************************************************************** list p=16F886 ; 翻訳時にリストファイルを作ります #include; 12F683用定義ファイルを読み込みます errorlevel -302 ; 翻訳時に302エラーが出ないようにします errorlevel -205 ; 翻訳時に205エラーが出ないようにします errorlevel -305 ; 翻訳時に305エラーが出ないようにします ;============================================================ GLOBAL TIMADJ,TIM8ms,TIM100ms,TIM500ms,TIM10ms,ADGET,OUT_A,OUT_B,OUT_C,SWON,SWON2 ;サブルーチンのラベル名がメインプログラムでEXTERNで宣言されて居る ;その為、必ずGLOBALで受ける、つまり EXTERN と GLOBAL はペア ;============================================================ CODE ;サブルーチン、ここから ;============================================================ ;A/D コンバータースタート、10bit有る、ADINITで左シフトに設定してあるので上位8ビットがTEMP1に入る ;ADCON0のbit2を1にするとスタートし、それが0に成ったらA/D変換終了 ;A/D回路はノイズが出るらしく、ここではいちいちA/Dを使う設定をし、変換したら使わない設定にするADCON0,0 ADGET ;A/D Convertion BSF ADCON0,0 ;USE A/D Convertion CALL SC01 BSF ADCON0,1 ;A/D Covert to start CALL SC01 ;Wait 40us for A/D Convertion Capacitor Charge Time LP00B CLRWDT ;WATCH DOG TIMER RESET BTFSC ADCON0,1 GOTO LP00B MOVF ADRESH,W ;A/D Value MSB to W MOVWF TEMP1 ;W to TEMP1 BSF STATUS,5 ;Change to Bank1 (STATUS Register Bit5 set to 1) MOVF ADRESL,W ;A/D Value LSB to W BCF STATUS,5 ;Back to Bank0 (STATUS Register Bit5 set to 0) MOVWF TEMP2 ;W to TEMP2 BCF ADCON0,0 ;NO-USE A/D Convertion (For Noise cut) RETURN SC01 ;Timer 40us MOVLW 24H MOVWF COUNT LP01B DECFSZ COUNT,F ;Dec COUNT untill 0 GOTO LP01B RETURN ;============================================================ ;TEMP3レジスタの数値を01--FFhで変化させる事で待ち時間を設定出来る TIMADJ ;Adjustable TIMER MOVLW D'1' ;DataA write to the W register(under the ALU) MOVWF COUNT4 ;Data set to the COUNT4 LP5B MOVLW D'12' ;DataA write to the W register(under the ALU) MOVWF COUNT3 ;Data set to the COUNT3 LP5C DECFSZ COUNT2 ;COUNT2 DEC GOTO LP5C ;CNTR INC UNTILL 0 CLRWDT ;WATCH DOG TIMER RESET MOVF TEMP3,W ;TEMP1 to W MOVWF COUNT2 ;W to COUNT2 DECFSZ COUNT3 ;COUNT3 DEC GOTO LP5C ;REPT DEC UNTILL 0 DECFSZ COUNT4 ;REPT2 DEC GOTO LP5B ;REPT2 DEC UNTILL 0 RETURN ;BACK TO Main Rutin ;============================================================ ;10ms待つ TIM10ms ;10msTIMER MOVLW D'1' ;DataA write to the W register(under the ALU) MOVWF COUNT3 ;Data set to the COUNT2 LP08B MOVLW D'13' ;DataA write to the W register(under the ALU) MOVWF COUNT2 ;Data set to the COUNT LP08C INCFSZ COUNT ;CNTR INC GOTO LP08C ;CNTR INC UNTILL 256 CLRWDT ;WATCH DOG TIMER RESET DECFSZ COUNT2 ;COUNT DEC GOTO LP08C ;COUNT DEC UNTILL 0 DECFSZ COUNT3 ;COUNT2 DEC GOTO LP08B ;COUNT2 DEC UNTILL 0 RETURN ;BACK TO MAIN ;============================================================ ;8ms待つ TIM8ms ;8msTIMER MOVLW D'1' ;DataA write to the W register(under the ALU) MOVWF COUNT3 ;Data set to the COUNT2 LP08D MOVLW D'1' ;DataA write to the W register(under the ALU) MOVWF COUNT2 ;Data set to the COUNT LP08E INCFSZ COUNT ;CNTR INC GOTO LP08E ;CNTR INC UNTILL 256 CLRWDT ;WATCH DOG TIMER RESET DECFSZ COUNT2 ;COUNT DEC GOTO LP08E ;COUNT DEC UNTILL 0 DECFSZ COUNT3 ;COUNT2 DEC GOTO LP08D ;COUNT2 DEC UNTILL 0 RETURN ;BACK TO MAIN ;============================================================ ;100ms待つ TIM100ms ;100msTIMER MOVLW D'10' ;DataA write to the W register(under the ALU) MOVWF COUNT3 ;Data set to the COUNT2 LP08F MOVLW D'13' ;DataA write to the W register(under the ALU) MOVWF COUNT2 ;Data set to the COUNT LP08G INCFSZ COUNT ;CNTR INC GOTO LP08G ;CNTR INC UNTILL 256 CLRWDT ;WATCH DOG TIMER RESET DECFSZ COUNT2 ;COUNT DEC GOTO LP08G ;COUNT DEC UNTILL 0 DECFSZ COUNT3 ;COUNT2 DEC GOTO LP08F ;COUNT2 DEC UNTILL 0 RETURN ;BACK TO MAIN ;============================================================ ;500ms待つ TIM500ms ;100msTIMER MOVLW D'50' ;DataA write to the W register(under the ALU) MOVWF COUNT3 ;Data set to the COUNT2 LP08H MOVLW D'13' ;DataA write to the W register(under the ALU) MOVWF COUNT2 ;Data set to the COUNT LP08I INCFSZ COUNT ;CNTR INC GOTO LP08I ;CNTR INC UNTILL 256 CLRWDT ;WATCH DOG TIMER RESET DECFSZ COUNT2 ;COUNT DEC GOTO LP08I ;COUNT DEC UNTILL 0 DECFSZ COUNT3 ;COUNT2 DEC GOTO LP08H ;COUNT2 DEC UNTILL 0 RETURN ;BACK TO MAIN ;============================================================ ;PORTAが出力に設定されて居る場合PTAレジスタのビットを立てればそのビットを出力する OUT_A NOP ;PORT OUTPUT ROUTIN CLRWDT ;WATCH DOG TIMER RESET MOVF PTA,W ;DATA COPY FROM PTA TO W RESISTER MOVWF PORTA ;DATA COPY FROM W TO PORTA RETURN ;============================================================ ;PORTBが出力に設定されて居る場合PTAレジスタのビットを立てればそのビットを出力する OUT_B NOP ;PORT OUTPUT ROUTIN CLRWDT ;WATCH DOG TIMER RESET MOVF PTB,W ;DATA COPY FROM PTB TO W RESISTER MOVWF PORTB ;DATA COPY FROM W TO PORTB RETURN ;============================================================ ;PORTCが出力に設定されて居る場合PTCレジスタのビットを立てればそのビットを出力する OUT_C NOP ;PORT OUTPUT ROUTIN CLRWDT ;WATCH DOG TIMER RESET MOVF PTC,W ;DATA COPY FROM PTC TO W RESISTER MOVWF PORTC ;DATA COPY FROM W TO PORTC RETURN ;============================================================ ;入力はPA0(17pin) ;ここでは入力が H-->L-->H を一通り経由すると SWFLAGのbit2 が0-->1に成る ;チャタリングは30msに設定されて居る ;特徴は入力の状態をずっと見ているのでは無く時々見に行きフラグを変化させている ;その為、入力を見に行って他のことが何も出来ないのではなく同時に並行して他の ;作業を出来ることである ;------------------------------ SWON CLRWDT BCF SWFLAG,2 ;SW ON のフラグをクリア BCF STATUS,Z BCF STATUS,C BCF STATUS,DC MOVLW D'1' ;D'5'--->W 1= 10ms MOVWF COUNT4 ;W--->COUNT4 ;-----------------------SW ポートの H/Lチェック MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSC PTA,0 ;SW=Hつまり押されていない、次へ ;SW=Lつまり押された、次をスキップ GOTO SWONC ;押されて居ないへ進む ;-----------------------SW ポートは L チャタリングチェック SWONB CLRWDT CALL TIM10ms CALL TIM10ms CALL TIM10ms MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSC PTA,0 ;SW=1つまり押されていない、次へ ;SW=0つまり押された、次をスキップ RETURN ;押されて居ない、チャタリング、MAINへ戻る ; CALL TIM10ms ;10ms timer チャタリング対策 ; DECFSZ COUNT4,1 ;COUNT4 = COUNT4 - 1 ゼロに成ったら次をスキップ ;ゼロで無いならば次へ進む ; GOTO SWONB ;再度押されたかチェックを繰り返す ;----------------------- MOVLW D'1' ; 1 --> W SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONB1 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET0 ;SWFLAGをゼロにしてMAINに戻る SWONB1 SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONB2 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET2 ;SWFLAGを2にしてMAINに戻る SWONB2 SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONB3 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET2 ;SWFLAGを2にしてMAINに戻る SWONB3 GOTO SET0 ;SWFLAGをゼロにしてMAINに戻る ;-----------------------SW ポートは H チャタリングチェック SWONC CLRWDT CALL TIM10ms CALL TIM10ms CALL TIM10ms MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSS PTA,0 ;SW=0つまり押されていない、次をスキップ ;SW=1つまり押された、次へ RETURN ;押されて居ない、チャタリング、MAINへ戻る ; CALL TIM10ms ;10ms timer チャタリング対策 ; DECFSZ COUNT4,1 ;COUNT4 = COUNT4 - 1 ゼロに成ったら次をスキップ ;ゼロで無いならば次へ進む ; GOTO SWONC ;再度押されたかチェックを繰り返す ;----------------------- MOVLW D'1' ; 1 --> W SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONC1 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET1 ;SWFLAGを1にしてMAINに戻る SWONC1 SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONC2 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET1 ;SWFLAGを1にしてMAINに戻る SWONC2 SUBWF SWFLAG,1 ;SWFLAG=SWFLAG-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWONC3 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SET3 ;SWFLAGを3にしてMAINに戻る、つまりSWは一通りの経過を経て押された SWONC3 GOTO SET0 ;SWFLAGをゼロにしてMAINに戻る ;----------------------- SET0 CLRF SWFLAG ;SET0 RETURN SET1 MOVLW D'1' ;SET1 MOVWF SWFLAG ;W --> SWFLAG RETURN SET2 MOVLW D'2' ;SET2 MOVWF SWFLAG ;W --> SWFLAG RETURN SET3 MOVLW D'3' ;SET3 つまりSW操作は正しく一通り行われた MOVWF SWFLAG ;W --> SWFLAG BSF SWFLAG,2 ;SW ON のフラグを立てる RETURN ;============================================================ ;入力はPA1(18pin) ;ここでは入力が H-->L-->H を一通り経由すると SWFLAG2のbit2 が0-->1に成る ;チャタリングは30msに設定されて居る ;特徴は入力の状態をずっと見ているのでは無く時々見に行きフラグを変化させている ;その為、入力を見に行って他のことが何も出来ないのではなく同時に並行して他の ;作業を出来ることである SWON2 CLRWDT BCF SWFLAG2,2 ;SW ON のフラグをクリア BCF STATUS,Z BCF STATUS,C BCF STATUS,DC MOVLW D'1' ;D'5'--->W 1= 10ms MOVWF COUNT4 ;W--->COUNT4 ;-----------------------SW ポートの H/Lチェック MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSC PTA,1 ;SW=Hつまり押されていない、次へ ;SW=Lつまり押された、次をスキップ GOTO SWON2C ;押されて居ないへ進む ;-----------------------SW ポートは L チャタリングチェック SWON2B CLRWDT CALL TIM10ms CALL TIM10ms CALL TIM10ms MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSC PTA,1 ;SW=1つまり押されていない、次へ ;SW=0つまり押された、次をスキップ RETURN ;押されて居ない、チャタリング、MAINへ戻る ; CALL TIM10ms ;10ms timer チャタリング対策 ; DECFSZ COUNT4,1 ;COUNT4 = COUNT4 - 1 ゼロに成ったら次をスキップ ;ゼロで無いならば次へ進む ; GOTO SWON2B ;再度押されたかチェックを繰り返す ;----------------------- MOVLW D'1' ; 1 --> W SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2B1 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB0 ;SWFLAG2をゼロにしてMAINに戻る SWON2B1 SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2B2 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB2 ;SWFLAG2を2にしてMAINに戻る SWON2B2 SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2B3 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB2 ;SWFLAG2を2にしてMAINに戻る SWON2B3 GOTO SETB0 ;SWFLAG2をゼロにしてMAINに戻る ;-----------------------SW ポートは H チャタリングチェック SWON2C CLRWDT CALL TIM10ms CALL TIM10ms CALL TIM10ms MOVF TRISA,W ;IO-->W MOVWF PTA ;W-->PTA BTFSS PTA,1 ;SW=0つまり押されていない、次をスキップ ;SW=1つまり押された、次へ RETURN ;押されて居ない、チャタリング、MAINへ戻る ; CALL TIM10ms ;10ms timer チャタリング対策 ; DECFSZ COUNT4,1 ;COUNT4 = COUNT4 - 1 ゼロに成ったら次をスキップ ;ゼロで無いならば次へ進む ; GOTO SWON2C ;再度押されたかチェックを繰り返す ;----------------------- MOVLW D'1' ; 1 --> W SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2C1 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB1 ;SWFLAG2を1にしてMAINに戻る SWON2C1 SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2C2 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB1 ;SWFLAG2を1にしてMAINに戻る SWON2C2 SUBWF SWFLAG2,1 ;SWFLAG2=SWFLAG2-1 BTFSC STATUS,C ;C=1(キャリーフラグ)ならばプラス、次へ ;C=0ならばゼロかマイナス次をスキップ GOTO SWON2C3 BTFSS STATUS,Z ;Z=0ならマイナス次 Z=1ならゼロ次をスキップ GOTO SETB3 ;SWFLAG2を3にしてMAINに戻る、つまりSWは一通りの経過を経て押された SWON2C3 GOTO SETB0 ;SWFLAG2をゼロにしてMAINに戻る ;----------------------- SETB0 CLRF SWFLAG2 ;SETB0 RETURN SETB1 MOVLW D'1' ;SETB1 MOVWF SWFLAG2 ;W --> SWFLAG2 RETURN SETB2 MOVLW D'2' ;SETB2 MOVWF SWFLAG2 ;W --> SWFLAG2 RETURN SETB3 MOVLW D'3' ;SETB3 つまりSW操作は正しく一通り行われた MOVWF SWFLAG2 ;W --> SWFLAG2 BSF SWFLAG2,2 ;SW ON のフラグを立てる RETURN ;******************************************************************************************** END