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レジスタ」 MOVWF TEST_VAR2 ;「TEST_VAR2 = Wレジスタ」 MOVF TEST_VAR2,F ;自分自身にこぴー BTFSS STATUS,Z ;Ｚフラグが1なら(TEST_VAR2が0なら)TEST_TTには行かない GOTO TEST_TT GOTO MAINLOOP ;無限ループ ;--- TEST_TT ;TEST_VARが10以外のとき(TEST_VAR2を調べた結果、Zフラグが0のとき)はここにくる 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'10'　　　;ここに好きな値をセットして試してみてください
MOVWF TEST_VAR

▲比較の実行
MOVF TEST_VAR,W　　　;「Wレジスタ = TEST_VAR」
SUBLW D'10'　　　;「Wレジスタ = 10 - Wレジスタ」ここが比較したい値
MOVWF TEST_VAR2　　　;「TEST_VAR2 = Wレジスタ」
MOVF TEST_VAR2,F　　　;自分自身にコピー(Zフラグを調べたいから)
BTFSS STATUS,Z　　　;Ｚフラグが1なら(TEST_VAR2が0なら)TEST_TTには行かない
GOTO TEST_TT　　;TEST_VARが10以外のとき(TEST_VAR2を調べた結果、Zフラグが0のとき)はここが実行されてTEST_TTラベルに飛びます

;TEST_VARが10のときの処理を以下に書いておけばよい
GOTO TEST_TT2



◆関連記事
条件分岐の発展系

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




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