PIC16F886 24LC64 EEPROM I2C アセンブラ

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