Bird-Soft Weblog

以下がサンプルです。実験用に作ったものを多少変更して載せているだけですが、
参考にしていただければ幸いです。

※PIC16F88で動作確認したスクリプトを単純化しました


◆サンプルスクリプト

; 7SEG test ;---------------------PIC定義---------------------- LIST P=PIC16F88 INCLUDE "P16F88.INC" ;コンフィグも16F84Aとは書き方が違う __CONFIG _CONFIG1, _CP_OFF & _PWRTE_ON & _WDT_OFF & _INTRC_IO & _LVP_OFF ;ウオッチドッグONだと謎現象発生したりするので、使わないときはちゃんとOFFにするのを忘れないようにする ;今回は内部発振4MHzを使う（16F84Aには内部発振はないので注意） ;---------------------変数など--------------------- CBLOCK 020H ;PICによって使える汎用レジスタのアドレスがことなるので注意！ CNT1 ;タイマー用変数 CNT2 ;タイマー用変数 CNT3 ;タイマー用変数 CNT4 ;タイマー用変数 TEST_VAR TEST_VAR2 ENDC ;----------------------メイン---------------------- ORG 0 GOTO START START BSF STATUS,RP0 ;バンク切り替え CLRF TRISA ;出力モードにする CLRF TRISB ;出力モードにする MOVLW B'01100110' ;「Wレジスタ = 01100110」 MOVWF OSCCON ;内部発振4MHz MOVLW B'00000111' MOVWF CMCON ;コンパレータモジュールは未使用 CLRF ANSEL ;アナログ入力なし BCF STATUS,RP0 ;バンクを元に戻す CLRF PORTA ;ポートの初期化 CLRF PORTB ;ポートの初期化 MOVLW H'FF' ;データのセット MOVWF PORTA ;ポートAに出力 ;--TEST MOVLW D'10' ;ここに好きな値をセットして試してみてください MOVWF TEST_VAR MAINLOOP MOVLW H'FF' ;データのセット MOVWF PORTB ;ポートＢに出力 CALL TIMER3 MOVF TEST_VAR,W ;「Wレジスタ = TEST_VAR」の代入処理みたいな SUBLW D'10' ;「Wレジスタ = 10 - Wレジスタ」ここが比較したい値 ;引き算の結果が0または正のとき、Cフラグは1 ? ;引き算の結果が負のとき、Cフラグは0 ? BTFSS STATUS,C ;Cフラグが1なら(TEST_VARのほうが大きかったら)TEST_TTには行かない 1ならスキップ (ここをBTFSCとすれば、条件を逆にできる) GOTO TEST_TT ;TEST_VARが10以下のときの処理 if(TEST_VAR<=10) { INCF TEST_VAR,F ;TEST_VAR++ GOTO MAINLOOP ;無限ループ ;--- TEST_TT ;TEST_VARが10より大きいときはここにくる if(TEST_VAR > 10) { MOVLW H'F0' ;データのセット MOVWF PORTB ;ポートＢに出力 CALL TIMER3 GOTO TEST_TT ;-----------------ウエイトのサブルーチン------------ ;0.1ms(クロックが4MHzのとき) TIMER1 MOVLW D'31' MOVWF CNT1 LOOP1 NOP DECFSZ CNT1,1 GOTO LOOP1 RETURN ;10ms TIMER2 MOVLW D'100' MOVWF CNT2 LOOP2 NOP CALL TIMER1 ;タイマー1の呼び出し DECFSZ CNT2,1 GOTO LOOP2 RETURN ;1s TIMER3 MOVLW D'100' MOVWF CNT3 LOOP3 NOP CALL TIMER2 ;タイマー2の呼び出し DECFSZ CNT3,1 GOTO LOOP3 RETURN ;2s TIMER4 MOVLW D'2' MOVWF CNT4 LOOP4 NOP CALL TIMER3 ;タイマー3の呼び出し DECFSZ CNT4,1 GOTO LOOP4 RETURN ;---------------------------------------------- END

ポイントとなる部分は以下のあたりです。

▲値のセット
MOVLW D'8'　　　;ここに好きな値をセットして試してみてください
MOVWF TEST_VAR

▲比較の実行
;引き算の結果が0または正のとき、Cフラグは1 ?
;引き算の結果が負のとき、Cフラグは0 ?

MOVF TEST_VAR,W　　　;「Wレジスタ = TEST_VAR」
SUBLW D'10'　　　;「Wレジスタ = 10 - Wレジスタ」ここが比較したい値

;Cフラグが1なら(TEST_VARのほうが大きかったら)TEST_TTには行かない
;ここをBTFSCとすれば、条件を逆にできる
BTFSS STATUS,C
GOTO TEST_TT　　;TEST_VARが10より大きいときはここが実行されてTEST_TTラベルに飛びます

;TEST_VARが10以下のときの処理 if(TEST_VAR<=10) {
INCF TEST_VAR,F　　　;TEST_VAR++



※なにぶん初心者なもので、間違いもあるかもしれませんがご容赦ください。




応援お願いします(人気blogランキングへ)